From: Juanma Barranquero Date: Tue, 29 Dec 2009 17:44:27 +0000 (+0100) Subject: Declare some functions for the byte-compiler. X-Git-Tag: emacs-pretest-23.1.91~7 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=659e4408a49d7ced1cbdfff3ca89a10413d642ac;p=emacs.git Declare some functions for the byte-compiler. --- 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 + + 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 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.