]> git.eshelyaron.com Git - emacs.git/commitdiff
*** empty log message ***
authorNick Roberts <nickrob@snap.net.nz>
Tue, 30 May 2006 08:10:16 +0000 (08:10 +0000)
committerNick Roberts <nickrob@snap.net.nz>
Tue, 30 May 2006 08:10:16 +0000 (08:10 +0000)
lisp/ChangeLog
lisp/speedbar.el

index c327d42a6978c4528e4df429585a08df5006eaf9..901e98c838ab2d07dc675b73e92b8b5c51ff5fec 100644 (file)
@@ -1,5 +1,7 @@
 2006-05-30  Nick Roberts  <nickrob@snap.net.nz>
 
+       * progmodes/gud.el (gud-stop-subjob): Make it work in all buffers.
+
        * progmodes/gdb-ui.el: Move gdb-mouse-toggle-breakpoint-* to
        C-mouse-1.  Move gdb-mouse-until to mouse-3, gdb-mouse-jump
        to C-mouse-3 (for 2 button mice).
index b3913f6f6c682e1bbf684d54885407d8a938ae17..e5ab181e8c669e392554a9186bfca8dbcbfe7b1a 100644 (file)
@@ -921,8 +921,6 @@ This basically creates a sparse keymap, and makes it's parent be
    (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
        (list ["Customize..." speedbar-customize t]))
    (list
-    ["Detach" speedbar-detach (and speedbar-frame
-                                   (eq (selected-frame) speedbar-frame)) ]
     ["Close" dframe-close-frame t]
     ["Quit" delete-frame t] ))
   "Menu items appearing at the end of the speedbar menu.")
@@ -1047,21 +1045,6 @@ supported at a time.
                                  (dframe-attached-frame speedbar-frame)
                                  speedbar-default-position))))
 
-(defun speedbar-detach ()
-  "Detach the current Speedbar from auto-updating.
-Doing this allows the creation of a second speedbar."
-  (interactive)
-  (let ((buffer speedbar-buffer))
-    (dframe-detach 'speedbar-frame 'speedbar-cached-frame 'speedbar-buffer)
-    (save-excursion
-      (set-buffer buffer)
-      ;; Permanently disable auto-updating in this speedbar buffer.
-      (set (make-local-variable 'speedbar-update-flag) nil)
-      (set (make-local-variable 'speedbar-update-flag-disable) t)
-      ;; Make local copies of all the different variables to prevent
-      ;; funny stuff later...
-      )))
-
 (defsubst speedbar-current-frame ()
   "Return the frame to use for speedbar based on current context."
   (dframe-current-frame 'speedbar-frame 'speedbar-mode))
@@ -1224,11 +1207,8 @@ and the existence of packages."
                 (speedbar-initial-menu)
               (save-excursion
                 (dframe-select-attached-frame speedbar-frame)
-                (if (local-variable-p
-                     'speedbar-easymenu-definition-special
-                     (current-buffer))
-                    ;; If bound locally, we can use it
-                    speedbar-easymenu-definition-special)))
+                 (eval (nth 1 (assoc speedbar-initial-expansion-list-name
+                               speedbar-initial-expansion-mode-alist)))))
             ;; Dynamic menu stuff
             '("-")
            (list (cons "Displays"