Commit 570a1714 authored by Martin Rudalics's avatar Martin Rudalics Committed by Chong Yidong
Browse files

Fix speedbar highlighting bug.

* lisp/speedbar.el (speedbar-unhighlight-one-tag-line): Avoid
unhighlighting due to frame switching.

Fixes: debbugs:10275
parent 1de11f56
2012-03-10 Martin Rudalics <rudalics@gmx.at>
* speedbar.el (speedbar-unhighlight-one-tag-line): Avoid
unhighlighting due to frame switching (Bug#10275).
2012-03-10 Chong Yidong <cyd@gnu.org> 2012-03-10 Chong Yidong <cyd@gnu.org>
* minibuffer.el (completion-in-region, completion-help-at-point): * minibuffer.el (completion-in-region, completion-help-at-point):
......
...@@ -3987,11 +3987,11 @@ TEXT is the buffer's name, TOKEN and INDENT are unused." ...@@ -3987,11 +3987,11 @@ TEXT is the buffer's name, TOKEN and INDENT are unused."
(defun speedbar-unhighlight-one-tag-line () (defun speedbar-unhighlight-one-tag-line ()
"Unhighlight the currently highlighted line." "Unhighlight the currently highlighted line."
(if speedbar-highlight-one-tag-line (when (and speedbar-highlight-one-tag-line
(progn (not (eq this-command 'handle-switch-frame)))
(speedbar-delete-overlay speedbar-highlight-one-tag-line) (speedbar-delete-overlay speedbar-highlight-one-tag-line)
(setq speedbar-highlight-one-tag-line nil))) (setq speedbar-highlight-one-tag-line nil)
(remove-hook 'pre-command-hook 'speedbar-unhighlight-one-tag-line)) (remove-hook 'pre-command-hook 'speedbar-unhighlight-one-tag-line)))
(defun speedbar-recenter-to-top () (defun speedbar-recenter-to-top ()
"Recenter the current buffer so point is on the top of the window." "Recenter the current buffer so point is on the top of the window."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment