From a8197cfe373baad36a0b635da430cd74cb5f4317 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 4 Jun 1999 18:22:55 +0000 Subject: [PATCH] (speedbar-hack-buffer-menu): Fixed so if the user does not select a buffer from the buffers menu, then the attached frame is not switched to anything. --- lisp/speedbar.el | 9 +++++---- 1 file 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 @@ ;; Author: Eric M. Ludlam ;; Version: 0.8.1 ;; Keywords: file, tags, tools -;; X-RCS: $Id: speedbar.el,v 1.21 1999/02/16 00:33:44 rms Exp kwzh $ +;; X-RCS: $Id: speedbar.el,v 1.22 1999/03/13 04:52:25 kwzh Exp kwzh $ ;; This file is part of GNU Emacs. @@ -1534,10 +1534,11 @@ Argument E is the event causing this activity." (set-window-dedicated-p (selected-window) nil) (call-interactively fn) (setq newbuff (current-buffer))) - (switch-to-buffer " SPEEDBAR") + (switch-to-buffer speedbar-buffer) (set-window-dedicated-p (selected-window) t)) - (speedbar-with-attached-buffer - (switch-to-buffer newbuff)))) + (if (not (eq newbuff speedbar-buffer)) + (speedbar-with-attached-buffer + (switch-to-buffer newbuff))))) (defun speedbar-next (arg) "Move to the next ARGth line in a speedbar buffer." -- 2.39.5