[Emacs-diffs] /srv/bzr/emacs/trunk r110929: lisp/*.el: Add missing declarations.

[Juanma Barranquero]

------------------------------------------------------------
revno: 110929
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sat 2012-11-17 22:52:12 +0100
message:
  lisp/*.el: Add missing declarations.
  * descr-text.el (quail-find-key):
  * dired.el (desktop-file-name):
  * dirtrack.el (shell-prefixed-directory-name, shell-process-cd):
  * generic-x.el (comint-mode, comint-exec):
  * image-dired.el (widget-forward):
  * info.el (speedbar-add-expansion-list, speedbar-center-buffer-smartly)
  (speedbar-change-expand-button-char)
  (speedbar-change-initial-expansion-list, speedbar-delete-subblock)
  (speedbar-make-specialized-keymap, speedbar-make-tag-line):
  * printing.el (easy-menu-add-item, easy-menu-remove-item)
  (widget-field-action, widget-value-set):
  * speedbar.el (imenu--make-index-alist):
  * term.el (ring-empty-p, ring-ref, ring-insert-at-beginning)
  (ring-length, ring-insert):
  * vcursor.el (compare-windows-skip-whitespace):
  * woman.el (dired-get-filename):
  Declare functions.
  
  * term/w32-win.el (cygwin-convert-path-from-windows): Fix declaration.
modified:
  lisp/ChangeLog
  lisp/descr-text.el
  lisp/dired.el
  lisp/dirtrack.el
  lisp/generic-x.el
  lisp/image-dired.el
  lisp/info.el
  lisp/printing.el
  lisp/speedbar.el
  lisp/term.el
  lisp/term/w32-win.el
  lisp/vcursor.el
  lisp/woman.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-17 21:30:43 +0000
+++ b/lisp/ChangeLog    2012-11-17 21:52:12 +0000
@@ -1,3 +1,25 @@
+2012-11-17  Juanma Barranquero  <address@hidden>
+
+       * descr-text.el (quail-find-key):
+       * dired.el (desktop-file-name):
+       * dirtrack.el (shell-prefixed-directory-name, shell-process-cd):
+       * generic-x.el (comint-mode, comint-exec):
+       * image-dired.el (widget-forward):
+       * info.el (speedbar-add-expansion-list, speedbar-center-buffer-smartly)
+       (speedbar-change-expand-button-char)
+       (speedbar-change-initial-expansion-list, speedbar-delete-subblock)
+       (speedbar-make-specialized-keymap, speedbar-make-tag-line):
+       * printing.el (easy-menu-add-item, easy-menu-remove-item)
+       (widget-field-action, widget-value-set):
+       * speedbar.el (imenu--make-index-alist):
+       * term.el (ring-empty-p, ring-ref, ring-insert-at-beginning)
+       (ring-length, ring-insert):
+       * vcursor.el (compare-windows-skip-whitespace):
+       * woman.el (dired-get-filename):
+       Declare functions.
+
+       * term/w32-win.el (cygwin-convert-path-from-windows): Fix declaration.
+
 2012-11-17  Jay Belanger  <address@hidden>
 
        * calc/calc.el (calc-gregorian-switch): New variable.

=== modified file 'lisp/descr-text.el'
--- a/lisp/descr-text.el        2012-08-20 11:12:16 +0000
+++ b/lisp/descr-text.el        2012-11-17 21:52:12 +0000
@@ -374,6 +374,8 @@
                 (format "%c:%s" x doc)))
             mnemonics ", ")))))
 
+(declare-function quail-find-key "quail" (char))
+
 ;;;###autoload
 (defun describe-char (pos &optional buffer)
   "Describe position POS (interactively, point) and the char after POS.

=== modified file 'lisp/dired.el'
--- a/lisp/dired.el     2012-10-27 09:17:14 +0000
+++ b/lisp/dired.el     2012-11-17 21:52:12 +0000
@@ -3732,6 +3732,7 @@
 ;;;;  Desktop support
 
 (eval-when-compile (require 'desktop))
+(declare-function desktop-file-name "desktop" (filename dirname))
 
 (defun dired-desktop-buffer-misc-data (dirname)
   "Auxiliary information to be saved in desktop file."

=== modified file 'lisp/dirtrack.el'
--- a/lisp/dirtrack.el  2012-05-13 03:05:06 +0000
+++ b/lisp/dirtrack.el  2012-11-17 21:52:12 +0000
@@ -220,6 +220,9 @@
       (goto-char (point-max))
       (insert msg1 msg2 "\n"))))
 
+(declare-function shell-prefixed-directory-name "shell" (dir))
+(declare-function shell-process-cd "shell" (arg))
+
 ;;;###autoload
 (defun dirtrack (input)
   "Determine the current directory from the process output for a prompt.

=== modified file 'lisp/generic-x.el'
--- a/lisp/generic-x.el 2012-10-08 16:20:59 +0000
+++ b/lisp/generic-x.el 2012-11-17 21:52:12 +0000
@@ -549,6 +549,9 @@
      (concat (w32-shell-name) " -c " (buffer-file-name)))))
 
 (eval-when-compile (require 'comint))
+(declare-function comint-mode "comint" ())
+(declare-function comint-exec "comint" (buffer name command startfile 
switches))
+
 (defun bat-generic-mode-run-as-comint ()
   "Run the current BAT file in a comint buffer."
   (interactive)

=== modified file 'lisp/image-dired.el'
--- a/lisp/image-dired.el       2012-07-11 23:13:41 +0000
+++ b/lisp/image-dired.el       2012-11-17 21:52:12 +0000
@@ -2454,6 +2454,8 @@
 (defvar image-dired-widget-list nil
   "List to keep track of meta data in edit buffer.")
 
+(declare-function widget-forward "wid-edit" (arg))
+
 ;;;###autoload
 (defun image-dired-dired-edit-comment-and-tags ()
   "Edit comment and tags of current or marked image files.

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2012-10-29 10:42:58 +0000
+++ b/lisp/info.el      2012-11-17 21:52:12 +0000
@@ -4836,6 +4836,17 @@
 ;; current Info node.
 (eval-when-compile (require 'speedbar))
 
+(declare-function speedbar-add-expansion-list "speedbar" (new-list))
+(declare-function speedbar-center-buffer-smartly "speedbar" ())
+(declare-function speedbar-change-expand-button-char "speedbar" (char))
+(declare-function speedbar-change-initial-expansion-list "speedbar" 
(new-default))
+(declare-function speedbar-delete-subblock "speedbar" (indent))
+(declare-function speedbar-make-specialized-keymap "speedbar" ())
+(declare-function speedbar-make-tag-line "speedbar"
+                  (exp-button-type exp-button-char exp-button-function
+                   exp-button-data tag-button tag-button-function
+                   tag-button-data tag-button-face depth))
+
 (defvar Info-speedbar-key-map nil
   "Keymap used when in the Info display mode.")
 

=== modified file 'lisp/printing.el'
--- a/lisp/printing.el  2012-09-17 05:41:04 +0000
+++ b/lisp/printing.el  2012-11-17 21:52:12 +0000
@@ -1383,6 +1383,10 @@
   (eval-when-compile
     (require 'easymenu))               ; to avoid compilation gripes
 
+  (declare-function easy-menu-add-item "easymenu"
+                    (map path item &optional before))
+  (declare-function easy-menu-remove-item "easymenu" (map path name))
+
   (eval-and-compile
       (defun pr-global-menubar (pr-menu-spec)
        (require 'easymenu)
@@ -6079,6 +6083,8 @@
   (and pr-i-region                     ; let region activated
        (pr-keep-region-active)))
 
+(declare-function widget-field-action "wid-edit" (widget &optional _event))
+(declare-function widget-value-set "wid-edit" (widget value))
 
 (defun pr-insert-section-1 ()
   ;; 1. Print:

=== modified file 'lisp/speedbar.el'
--- a/lisp/speedbar.el  2012-09-17 05:41:04 +0000
+++ b/lisp/speedbar.el  2012-11-17 21:52:12 +0000
@@ -3608,6 +3608,7 @@
     nil
 
 (eval-when-compile (condition-case nil (require 'imenu) (error nil)))
+(declare-function imenu--make-index-alist "imenu" (&optional no-error))
 
 (defun speedbar-fetch-dynamic-imenu (file)
   "Load FILE into a buffer, and generate tags using Imenu.

=== modified file 'lisp/term.el'
--- a/lisp/term.el      2012-11-15 06:17:56 +0000
+++ b/lisp/term.el      2012-11-17 21:52:12 +0000
@@ -397,6 +397,12 @@
 (require 'ring)
 (require 'ehelp)
 
+(declare-function ring-empty-p "ring" (ring))
+(declare-function ring-ref "ring" (ring index))
+(declare-function ring-insert-at-beginning "ring" (ring item))
+(declare-function ring-length "ring" (ring))
+(declare-function ring-insert "ring" (ring item))
+
 (defgroup term nil
   "General command interpreter in a window."
   :group 'processes)

=== modified file 'lisp/term/w32-win.el'
--- a/lisp/term/w32-win.el      2012-11-17 20:41:21 +0000
+++ b/lisp/term/w32-win.el      2012-11-17 21:52:12 +0000
@@ -92,7 +92,7 @@
 (declare-function set-message-beep "w32fns.c")
 
 (declare-function cygwin-convert-path-from-windows "cygw32.c"
-                 (path absolute_p))
+                 (path &optional absolute_p))
 
 ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
 (if (fboundp 'new-fontset)

=== modified file 'lisp/vcursor.el'
--- a/lisp/vcursor.el   2012-04-11 14:26:55 +0000
+++ b/lisp/vcursor.el   2012-11-17 21:52:12 +0000
@@ -881,6 +881,8 @@
        (vcursor-disable -1))))
   )
 
+(declare-function compare-windows-skip-whitespace "compare-w" (start))
+
 ;; vcursor-compare-windows is copied from compare-w.el with only
 ;; minor modifications; these are too bound up with the function
 ;; to make it really useful to call compare-windows itself.

=== modified file 'lisp/woman.el'
--- a/lisp/woman.el     2012-11-13 16:59:34 +0000
+++ b/lisp/woman.el     2012-11-17 21:52:12 +0000
@@ -1550,11 +1550,13 @@
     (woman-dired-define-keys)
   (add-hook 'dired-mode-hook 'woman-dired-define-keys))
 
+(declare-function dired-get-filename "dired"
+                  (&optional localp no-error-if-not-filep))
+
 ;;;###autoload
 (defun woman-dired-find-file ()
   "In dired, run the WoMan man-page browser on this file."
   (interactive)
-  ;; dired-get-filename is defined in dired.el
   (woman-find-file (dired-get-filename)))
 
 
@@ -1947,6 +1949,9 @@
   (message "Woman fill column set to %s."
           (if woman-fill-frame "frame width" woman-fill-column)))
 
+(declare-function apropos-print "apropos"
+                  (do-keys spacing &optional text nosubst))
+
 (defun woman-mini-help ()
   "Display WoMan commands and user options in an `apropos' buffer."
   ;; Based on apropos-command in apropos.el