# HG changeset patch # User Juanma Barranquero # Date 1262108667 -3600 # Node ID 63c5fb6b67fcafafd46ff6f4e8de19b426e978f1 # Parent 95a78f48ba0048e5d63a42cdcb1e79d868fa6d15 Declare some functions for the byte-compiler. diff -r 95a78f48ba00 -r 63c5fb6b67fc lisp/ChangeLog --- 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 + + 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 -r 95a78f48ba00 -r 63c5fb6b67fc lisp/progmodes/gdb-ui.el --- 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.