Mercurial > emacs
changeset 103955:67efbd930fef
(speedbar-frame): Declare to avoid compiler
warning.
(gdb-breakpoints-header): Move forward to avoid compiler warning.
(gdb-make-header-line-mouse-map): Remove duplicate definition.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 18 Jul 2009 10:37:39 +0000 |
| parents | acbf8748cf4b |
| children | 8fe7030bb370 |
| files | lisp/progmodes/gdb-mi.el |
| diffstat | 1 files changed, 9 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-mi.el Sat Jul 18 10:37:11 2009 +0000 +++ b/lisp/progmodes/gdb-mi.el Sat Jul 18 10:37:39 2009 +0000 @@ -105,6 +105,7 @@ (defvar tool-bar-map) (defvar speedbar-initial-expansion-list-name) +(defvar speedbar-frame) (defvar gdb-pc-address nil "Initialization for Assembler buffer. Set to \"main\" at start if `gdb-show-main' is t.") @@ -1889,6 +1890,14 @@ ;; TODO (make-sparse-keymap)) +(defvar gdb-breakpoints-header + (list + (gdb-propertize-header "Breakpoints" gdb-breakpoints-buffer + nil nil mode-line) + " " + (gdb-propertize-header "Threads" gdb-threads-buffer + "mouse-1: select" mode-line-highlight mode-line-inactive))) + (defun gdb-threads-mode () "Major mode for GDB threads. @@ -2217,16 +2226,6 @@ (vector (car selection)))))) (if binding (call-interactively binding))))) -;;from make-mode-line-mouse-map -(defun gdb-make-header-line-mouse-map (mouse function) "\ -Return a keymap with single entry for mouse key MOUSE on the header line. -MOUSE is defined to run function FUNCTION with no args in the buffer -corresponding to the mode line clicked." - (let ((map (make-sparse-keymap))) - (define-key map (vector 'header-line mouse) function) - (define-key map (vector 'header-line 'down-mouse-1) 'ignore) - map)) - (defvar gdb-memory-font-lock-keywords '(;; <__function.name+n> ("<\\(\\(\\sw\\|[_.]\\)+\\)\\(\\+[0-9]+\\)?>" (1 font-lock-function-name-face)) @@ -2444,14 +2443,6 @@ ;;; Breakpoints view -(defvar gdb-breakpoints-header - (list - (gdb-propertize-header "Breakpoints" gdb-breakpoints-buffer - nil nil mode-line) - " " - (gdb-propertize-header "Threads" gdb-threads-buffer - "mouse-1: select" mode-line-highlight mode-line-inactive))) - (defun gdb-breakpoints-mode () "Major mode for gdb breakpoints.