2 files changed, 15 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6661ee7d768..8bcf188a92b 100644
--- 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 6a8ca89cda5..2987e6680a9 100644
--- 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.