From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 4 Jun 1999 18:22:55 +0000 (+0000)
Subject: (speedbar-hack-buffer-menu): Fixed so if the user
X-Git-Tag: emacs-20.4~140
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8197cfe373baad36a0b635da430cd74cb5f4317;p=emacs.git

(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.
---

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 <zappo@gnu.org>
 ;; 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."