[Emacs-diffs] emacs/lisp/progmodes gdb-mi.el

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  09/07/18 10:37:39

Modified files:
        lisp/progmodes : gdb-mi.el 

Log message:
        (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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-mi.el?cvsroot=emacs&r1=1.14&r2=1.15

Patches:
Index: gdb-mi.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-mi.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- gdb-mi.el   14 Jul 2009 08:41:04 -0000      1.14
+++ gdb-mi.el   18 Jul 2009 10:37:39 -0000      1.15
@@ -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.