mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Nick Roberts 2006-05-30 08:10:16 +00:00
parent 8a464f1b54
commit 89f0e7cc36
2 changed files with 4 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View 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).

24
lisp/speedbar.el
View 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"