Declare some functions for the byte-compiler.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6661ee7d7683ad8f9bbcf395b6240c7f675e3915..8bcf188a92bc2dd5b6ba19da1d6662fa417b9612 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-12-29  Juanma Barranquero  <lekktu@gmail.com>
+
+       Declare some functions for the byte-compiler.
+       * progmodes/gdb-ui.el (speedbar-change-initial-expansion-list)
+       (speedbar-timer-fn, speedbar-change-expand-button-char)
+       (speedbar-delete-subblock, speedbar-center-buffer-smartly): Declare.
+
 2009-12-29  Dan Nicolaescu  <dann@ics.uci.edu>
 
        Make vc-dir work on subdirectories of the bzr root.

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 6a8ca89cda53dd0c2bfe496324b364599941393a..2987e6680a99124f8ceb9ff735c166c0210d1be4 100644 (file)
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -852,6 +852,8 @@ With arg, enter name of variable to be watched in the minibuffer."
                `(lambda () (gdb-var-create-handler ,expr)))))))
       (message "gud-watch is a no-op in this mode."))))
 
+(declare-function speedbar-change-initial-expansion-list "speedbar" (new-default))
+
 (defun gdb-var-create-handler (expr)
   (let* ((result (gdb-json-partial-output)))
     (if (not (bindat-get-field result 'msg))
@@ -874,6 +876,8 @@ With arg, enter name of variable to be watched in the minibuffer."
            (speedbar-change-initial-expansion-list "GUD")))
       (message-box "No symbol \"%s\" in current context." expr))))
 
+(declare-function speedbar-timer-fn "speedbar" ())
+
 (defun gdb-speedbar-update ()
   (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame)
             (not (member 'gdb-speedbar-timer gdb-pending-triggers)))
@@ -1058,6 +1062,10 @@ Changed values are highlighted with the face `font-lock-warning-face'."
   :group 'gdb
   :version "22.2")
 
+(declare-function speedbar-change-expand-button-char "speedbar" (char))
+(declare-function speedbar-delete-subblock "speedbar" (indent))
+(declare-function speedbar-center-buffer-smartly "speedbar" ())
+
 (defun gdb-speedbar-expand-node (text token indent)
   "Expand the node the user clicked on.
 TEXT is the text of the button we clicked on, a + or - item.