Mercurial > emacs
changeset 106680:63c5fb6b67fc
Declare some functions for the byte-compiler.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 29 Dec 2009 18:44:27 +0100 |
| parents | 95a78f48ba00 |
| children | d937917bda79 |
| files | lisp/ChangeLog lisp/progmodes/gdb-ui.el |
| diffstat | 2 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Dec 29 20:22:00 2009 +1300 +++ b/lisp/ChangeLog Tue Dec 29 18:44:27 2009 +0100 @@ -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.
--- a/lisp/progmodes/gdb-ui.el Tue Dec 29 20:22:00 2009 +1300 +++ b/lisp/progmodes/gdb-ui.el Tue Dec 29 18:44:27 2009 +0100 @@ -852,6 +852,8 @@ `(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 @@ (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 @@ :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.