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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c9c879b5e88470a73c5963b15827c5e0f2fc7f5f..f9e9217fe10e0e436cc7505510c8eb030c4b57e1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,25 @@
+2012-11-17  Juanma Barranquero  <lekktu@gmail.com>
+
+       * 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  <jay.p.belanger@gmail.com>
 
        * calc/calc.el (calc-gregorian-switch): New variable.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 0c7f82d516e8ff5857defd53c1eb1df0f3aba6c5..c384b96df8697a1c19a3218c2fccb8d31a31cd69 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -374,6 +374,8 @@ This function is semi-obsolete.  Use `get-char-code-property'."
                 (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.

diff --git a/lisp/dired.el b/lisp/dired.el
index 5f7ee48a810341944de375056ab61c9acc8db4d6..f6056e20d0a7f2f3ff3abe44709462e8a37a0272 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3732,6 +3732,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
 ;;;;  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."

diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el
index 5e825032741b3e2dd62d1450634d034087c98169..a66fc23dec17dd60fa335b2c88ba27c0a27e6475 100644 (file)
--- a/lisp/dirtrack.el
+++ b/lisp/dirtrack.el
@@ -220,6 +220,9 @@ the mode if ARG is omitted or nil."
       (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.

diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index 878021ec5c501dffd56ccfb3dde21601a682b26a..e2533c1f12b19476883c10126add9272968145ab 100644 (file)
--- a/lisp/generic-x.el
+++ b/lisp/generic-x.el
@@ -549,6 +549,9 @@ like an INI file.  You can add this hook to `find-file-hook'."
      (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)

diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 3659894f08dc5ad8265c6a92fe11d029b4608657..77c968b21ae3cca1f8c5806e9c19372dad02d5e3 100644 (file)
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -2454,6 +2454,8 @@ when using per-directory thumbnail file storage"))
 (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.

diff --git a/lisp/info.el b/lisp/info.el
index 36ffa806f041191ab69843cf48ec6e4d32d7ae85..b0ef5c6bc4d4ce208492dc40b9cccfb4afcabdbb 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -4836,6 +4836,17 @@ first line or header line, and for breadcrumb links.")
 ;; 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.")
 

diff --git a/lisp/printing.el b/lisp/printing.el
index 02b2fb0139c8fd40f208d6c65d9738065edc9fae..26a7648f68eee4b44b52ffa9eae46fe319b9f5cb 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -1383,6 +1383,10 @@ Used by `pr-menu-bind' and `pr-update-menus'.")
   (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 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
   (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:

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 25a6fbfd99833652b8fd2f6569b83b326a8bb3dc..dd104d436b5eab31ce4e40cb2a54b65d1ca89a0f 100644 (file)
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -3608,6 +3608,7 @@ functions to do caching and flushing if appropriate."
     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.

diff --git a/lisp/term.el b/lisp/term.el
index d6acaef1ae983d1f6a110243238e5255c99f26c8..a7c50d6556256714f666c5adac074a1d73a4ebd6 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -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)

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 80bc647c2f72a9275f9c2fd3e599fd86a836287f..42e09b65750b1c9d2b4ebb751def313d5478d6e2 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -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)

diff --git a/lisp/vcursor.el b/lisp/vcursor.el
index 19cb7a9df8d43a447284c1f861bb130bd4e2b4be..a277abcad9bc246044b5a9400bb5432094137392 100644 (file)
--- a/lisp/vcursor.el
+++ b/lisp/vcursor.el
@@ -881,6 +881,8 @@ ALL-FRAMES is also used to decide whether to split the window."
        (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.

diff --git a/lisp/woman.el b/lisp/woman.el
index 46b6b6804405284ca8040967f2f98887375189d4..193dcd9902237a8cfb8a3c331789bbba883764bb 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1550,11 +1550,13 @@ Also make each path-info component into a list.
     (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 @@ Optional argument REDRAW, if non-nil, forces mode line to be updated."
   (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