diff options
| -rw-r--r-- | lisp/speedbar.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 82b44256e18..e4615017864 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> | 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> |
| 6 | ;; Version: 0.8.1 | 6 | ;; Version: 0.8.1 |
| 7 | ;; Keywords: file, tags, tools | 7 | ;; Keywords: file, tags, tools |
| 8 | ;; X-RCS: $Id: speedbar.el,v 1.21 1999/02/16 00:33:44 rms Exp kwzh $ | 8 | ;; X-RCS: $Id: speedbar.el,v 1.22 1999/03/13 04:52:25 kwzh Exp kwzh $ |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -1534,10 +1534,11 @@ Argument E is the event causing this activity." | |||
| 1534 | (set-window-dedicated-p (selected-window) nil) | 1534 | (set-window-dedicated-p (selected-window) nil) |
| 1535 | (call-interactively fn) | 1535 | (call-interactively fn) |
| 1536 | (setq newbuff (current-buffer))) | 1536 | (setq newbuff (current-buffer))) |
| 1537 | (switch-to-buffer " SPEEDBAR") | 1537 | (switch-to-buffer speedbar-buffer) |
| 1538 | (set-window-dedicated-p (selected-window) t)) | 1538 | (set-window-dedicated-p (selected-window) t)) |
| 1539 | (speedbar-with-attached-buffer | 1539 | (if (not (eq newbuff speedbar-buffer)) |
| 1540 | (switch-to-buffer newbuff)))) | 1540 | (speedbar-with-attached-buffer |
| 1541 | (switch-to-buffer newbuff))))) | ||
| 1541 | 1542 | ||
| 1542 | (defun speedbar-next (arg) | 1543 | (defun speedbar-next (arg) |
| 1543 | "Move to the next ARGth line in a speedbar buffer." | 1544 | "Move to the next ARGth line in a speedbar buffer." |