# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1247913459 0
# Node ID 67efbd930fef49cda2a9df983cbd7b33faa73d32
# Parent  acbf8748cf4b501879344969e28ab37c0e5544be
(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.

diff -r acbf8748cf4b -r 67efbd930fef lisp/progmodes/gdb-mi.el
--- 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.