aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/speedbar.el24
2 files changed, 4 insertions, 22 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c327d42a697..901e98c838a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
12006-05-30 Nick Roberts <nickrob@snap.net.nz> 12006-05-30 Nick Roberts <nickrob@snap.net.nz>
2 2
3 * progmodes/gud.el (gud-stop-subjob): Make it work in all buffers.
4
3 * progmodes/gdb-ui.el: Move gdb-mouse-toggle-breakpoint-* to 5 * progmodes/gdb-ui.el: Move gdb-mouse-toggle-breakpoint-* to
4 C-mouse-1. Move gdb-mouse-until to mouse-3, gdb-mouse-jump 6 C-mouse-1. Move gdb-mouse-until to mouse-3, gdb-mouse-jump
5 to C-mouse-3 (for 2 button mice). 7 to C-mouse-3 (for 2 button mice).
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index b3913f6f6c6..e5ab181e8c6 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -921,8 +921,6 @@ This basically creates a sparse keymap, and makes it's parent be
921 (if (and (featurep 'custom) (fboundp 'custom-declare-variable)) 921 (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
922 (list ["Customize..." speedbar-customize t])) 922 (list ["Customize..." speedbar-customize t]))
923 (list 923 (list
924 ["Detach" speedbar-detach (and speedbar-frame
925 (eq (selected-frame) speedbar-frame)) ]
926 ["Close" dframe-close-frame t] 924 ["Close" dframe-close-frame t]
927 ["Quit" delete-frame t] )) 925 ["Quit" delete-frame t] ))
928 "Menu items appearing at the end of the speedbar menu.") 926 "Menu items appearing at the end of the speedbar menu.")
@@ -1047,21 +1045,6 @@ supported at a time.
1047 (dframe-attached-frame speedbar-frame) 1045 (dframe-attached-frame speedbar-frame)
1048 speedbar-default-position)))) 1046 speedbar-default-position))))
1049 1047
1050(defun speedbar-detach ()
1051 "Detach the current Speedbar from auto-updating.
1052Doing this allows the creation of a second speedbar."
1053 (interactive)
1054 (let ((buffer speedbar-buffer))
1055 (dframe-detach 'speedbar-frame 'speedbar-cached-frame 'speedbar-buffer)
1056 (save-excursion
1057 (set-buffer buffer)
1058 ;; Permanently disable auto-updating in this speedbar buffer.
1059 (set (make-local-variable 'speedbar-update-flag) nil)
1060 (set (make-local-variable 'speedbar-update-flag-disable) t)
1061 ;; Make local copies of all the different variables to prevent
1062 ;; funny stuff later...
1063 )))
1064
1065(defsubst speedbar-current-frame () 1048(defsubst speedbar-current-frame ()
1066 "Return the frame to use for speedbar based on current context." 1049 "Return the frame to use for speedbar based on current context."
1067 (dframe-current-frame 'speedbar-frame 'speedbar-mode)) 1050 (dframe-current-frame 'speedbar-frame 'speedbar-mode))
@@ -1224,11 +1207,8 @@ and the existence of packages."
1224 (speedbar-initial-menu) 1207 (speedbar-initial-menu)
1225 (save-excursion 1208 (save-excursion
1226 (dframe-select-attached-frame speedbar-frame) 1209 (dframe-select-attached-frame speedbar-frame)
1227 (if (local-variable-p 1210 (eval (nth 1 (assoc speedbar-initial-expansion-list-name
1228 'speedbar-easymenu-definition-special 1211 speedbar-initial-expansion-mode-alist)))))
1229 (current-buffer))
1230 ;; If bound locally, we can use it
1231 speedbar-easymenu-definition-special)))
1232 ;; Dynamic menu stuff 1212 ;; Dynamic menu stuff
1233 '("-") 1213 '("-")
1234 (list (cons "Displays" 1214 (list (cons "Displays"