diff options
| author | Nick Roberts | 2006-05-30 08:10:16 +0000 |
|---|---|---|
| committer | Nick Roberts | 2006-05-30 08:10:16 +0000 |
| commit | 89f0e7cc360e37fa3c044333559ff98bbb338ad0 (patch) | |
| tree | d5dfacc9ef9200b0d1e1b1202320d315ba9c28f6 | |
| parent | 8a464f1b547fc86a236bc386722d003e847b3257 (diff) | |
| download | emacs-89f0e7cc360e37fa3c044333559ff98bbb338ad0.tar.gz emacs-89f0e7cc360e37fa3c044333559ff98bbb338ad0.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/speedbar.el | 24 |
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 @@ | |||
| 1 | 2006-05-30 Nick Roberts <nickrob@snap.net.nz> | 1 | 2006-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. | ||
| 1052 | Doing 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" |