* progmodes/octave-mod.el (inferior-octave-send-list-and-digest):

* play/yow.el (doctor-ret-or-read):
* vc-hooks.el (vc-dired-resynch-file):
* vc-hg.el (log-view-get-marked):
* smerge-mode.el (ediff-cleanup-mess):
* pcvs.el (vc-editable-p, vc-checkout):
* pcomplete.el (comint-bol):
* informat.el (texinfo-format-refill):
* ido.el (tramp-tramp-file-p):
* ibuffer.el (ibuffer-mark-on-buffer, ibuffer-format-qualifier)
(ibuffer-generate-filter-groups)
(ibuffer-format-filter-group-data):
* add-log.el (c-beginning-of-defun, c-end-of-defun): Declare as
functions.

* ido.el (ido-file-internal): Move with-no-warnings to include the
ffap-string-at-point call.

* pcomplete.el (pcomplete-executables): Move defsubst before first
use.

* vc-hg.el (vc-hg-revision-table): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ad287a33452604bff9f33d7b33988d36964c067..0891910b02521e39477f2e2e32335f3d24b0a250 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,32 @@
+2007-11-19  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * progmodes/octave-mod.el (inferior-octave-send-list-and-digest):
+       * play/yow.el (doctor-ret-or-read):
+       * vc-hooks.el (vc-dired-resynch-file):
+       * vc-hg.el (log-view-get-marked):
+       * smerge-mode.el (ediff-cleanup-mess):
+       * pcvs.el (vc-editable-p, vc-checkout):
+       * pcomplete.el (comint-bol):
+       * informat.el (texinfo-format-refill):
+       * ido.el (tramp-tramp-file-p):
+       * ibuffer.el (ibuffer-mark-on-buffer, ibuffer-format-qualifier)
+       (ibuffer-generate-filter-groups)
+       (ibuffer-format-filter-group-data):
+       * add-log.el (c-beginning-of-defun, c-end-of-defun): Declare as
+       functions.
+
+       * textmodes/ispell.el (ispell-int-char): Make it a defalias
+       instead of fset.
+       (ispell-message): Use with-no-warnings for sc-cite-regexp call.
+
+       * ido.el (ido-file-internal): Move with-no-warnings to include the
+       ffap-string-at-point call.
+
+       * pcomplete.el (pcomplete-executables): Move defsubst before first
+       use.
+
+       * vc-hg.el (vc-hg-revision-table): Fix last change.
+
 2007-11-19  Martin Rudalics  <rudalics@gmx.at>
 
        * menu-bar.el (top-level): Deactivate clipboard-kill-region and

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 3ca1b613955e3da72f5f1d7b7425443f30ea6ad9..21b4a5dbdc873ca238f5bf2e89a7cf533b230756 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -827,6 +827,9 @@ Prefix arg means justify as well."
   '(TeX-mode plain-TeX-mode LaTeX-mode tex-mode)
   "*Modes that look like TeX to `add-log-current-defun'.")
 
+(declare-function c-beginning-of-defun "progmodes/cc-cmds" (&optional arg))
+(declare-function c-end-of-defun "progmodes/cc-cmds" (&optional arg))
+
 ;;;###autoload
 (defun add-log-current-defun ()
   "Return name of function definition point is in, or nil.

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 80133d227abe674fc31ff722e2746d5e97c46caf..b09a3e26979a7b6f66df01c97636a7f3494f86fc 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -55,6 +55,13 @@
 (defvar ibuffer-tmp-hide-regexps)
 (defvar ibuffer-tmp-show-regexps)
 
+(declare-function ibuffer-mark-on-buffer "ibuf-ext" 
+                 (func &optional ibuffer-mark-on-buffer-mark group))
+(declare-function ibuffer-format-qualifier "ibuf-ext" (qualifier))
+(declare-function ibuffer-generate-filter-groups "ibuf-ext" 
+                 (bmarklist &optional noempty nodefault))
+(declare-function ibuffer-format-filter-group-data "ibuf-ext" (filter))
+
 (defgroup ibuffer nil
   "An advanced replacement for `buffer-menu'.
 

diff --git a/lisp/ido.el b/lisp/ido.el
index 0a077f9dab69ee938adc3ad882a92d243660ab68..af8936b86d97ae3be4825287299f8ab28d07a344 100644 (file)
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2281,9 +2281,10 @@ If cursor is not at the end of the user input, move to end of input."
                filename t))
 
         ((and ido-use-filename-at-point
-              (setq fn (if (eq ido-use-filename-at-point 'guess)
-                           (with-no-warnings (ffap-guesser))
-                         (ffap-string-at-point)))
+              (setq fn (with-no-warnings
+                         (if (eq ido-use-filename-at-point 'guess)
+                             (ffap-guesser)
+                           (ffap-string-at-point))))
               (not (string-match "^http:/" fn))
               (setq d (file-name-directory fn))
               (file-directory-p d))
@@ -3363,6 +3364,8 @@ for first matching file."
       (nconc ido-temp-list items)
     (setq ido-temp-list items)))
 
+(declare-function tramp-tramp-file-p "net/tramp" (name))
+
 (defun ido-file-name-all-completions-1 (dir)
   (cond
    ((ido-nonreadable-directory-p dir) '())

diff --git a/lisp/informat.el b/lisp/informat.el
index 18a459ba0fedeecc6a727b944aec883791877678..747d57c4f38200f3c0e521e8a39526162ef2d3a6 100644 (file)
--- a/lisp/informat.el
+++ b/lisp/informat.el
@@ -32,6 +32,8 @@
 
 (require 'info)
 
+(declare-function texinfo-format-refill "textmodes/texinfmt" ())
+
 ;;;###autoload
 (defun Info-tagify (&optional input-buffer-name)
   "Create or update Info file tag table in current buffer or in a region."

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 62a71621dc6b7897a6eda4fd3dee22aede97510e..8116ad91fd255248a4eb7076b1f5e7c66a188779 100644 (file)
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -281,6 +281,10 @@ to all arguments, such as variable names after a $."
   :type 'hook
   :group 'pcomplete)
 
+(defsubst pcomplete-executables (&optional regexp)
+  "Complete amongst a list of directories and executables."
+  (pcomplete-entries regexp 'file-executable-p))
+
 (defcustom pcomplete-command-completion-function
   (function
    (lambda ()
@@ -599,6 +603,8 @@ this is `comint-dynamic-complete-functions'."
   "Setup shell-mode to use pcomplete."
   (pcomplete-comint-setup 'shell-dynamic-complete-functions))
 
+(declare-function comint-bol "comint" (&optional arg))
+
 (defun pcomplete-parse-comint-arguments ()
   "Parse whitespace separated arguments in the current region."
   (let ((begin (save-excursion (comint-bol nil) (point)))
@@ -780,10 +786,6 @@ component, `default-directory' is used as the basis for completion."
   "Complete amongst a list of directories."
   (pcomplete-entries regexp 'file-directory-p))
 
-(defsubst pcomplete-executables (&optional regexp)
-  "Complete amongst a list of directories and executables."
-  (pcomplete-entries regexp 'file-executable-p))
-
 ;; generation of completion lists
 
 (defun pcomplete-find-completion-function (command)

diff --git a/lisp/play/yow.el b/lisp/play/yow.el
index 28fc453577bb6c9111af153af65c83e3a04fb881..702052f52d6abdc43c77d98b9d32af8232e8cfa4 100644 (file)
--- a/lisp/play/yow.el
+++ b/lisp/play/yow.el
@@ -112,6 +112,8 @@ If called interactively, display a list of matches."
 ;;
 ;; written by Kayvan Aghaiepour
 
+(declare-function doctor-ret-or-read "doctor" (arg))
+
 ;;;###autoload
 (defun psychoanalyze-pinhead ()
   "Zippy goes to the analyst."

diff --git a/lisp/progmodes/octave-mod.el b/lisp/progmodes/octave-mod.el
index a0d33f56ee48b35a55e974425efd33367472bfd3..e8246ddb816a40a1f7f67afd9f005bdd847e91ae 100644 (file)
--- a/lisp/progmodes/octave-mod.el
+++ b/lisp/progmodes/octave-mod.el
@@ -52,6 +52,8 @@
 (defvar inferior-octave-output-string nil)
 (defvar inferior-octave-receive-in-progress nil)
 
+(declare-function inferior-octave-send-list-and-digest "octave-inf" (list))
+
 (defconst octave-maintainer-address
   "Kurt Hornik <Kurt.Hornik@wu-wien.ac.at>, bug-gnu-emacs@gnu.org"
   "Current maintainer of the Emacs Octave package.")

diff --git a/lisp/smerge-mode.el b/lisp/smerge-mode.el
index 18ca1a3418189684cb4fa0f49643391c802dcabf..dcbb97bd79cf9a951d54165edca79d849e359d5b 100644 (file)
--- a/lisp/smerge-mode.el
+++ b/lisp/smerge-mode.el
@@ -905,6 +905,7 @@ replace chars to try and eliminate some spurious differences."
 (defvar ediff-buffer-C)
 (defvar ediff-ancestor-buffer)
 (defvar ediff-quit-hook)
+(declare-function ediff-cleanup-mess "ediff-util" nil)
 
 ;;;###autoload
 (defun smerge-ediff (&optional name-mine name-other name-base)

diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index 872be45a2c19a91561744eb6697850f1a03f30f9..af2b4f133d2175bf7cfaefb65d555109f3335ae3 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -296,7 +296,7 @@
 (defun vc-hg-revision-table (files)
   (let ((default-directory (file-name-directory (car files))))
     (with-temp-buffer
-      (vc-hg-command t nil file "log" "--template" "{rev} ")
+      (vc-hg-command t nil files "log" "--template" "{rev} ")
       (split-string 
        (buffer-substring-no-properties (point-min) (point-max))))))
 
@@ -480,6 +480,8 @@ REV is the revision to check out into WORKFILE."
     (pop-to-buffer bname)
     (vc-hg-incoming-mode)))
 
+(declare-function log-view-get-marked "log-view" ())
+
 ;; XXX maybe also add key bindings for these functions.
 (defun vc-hg-push ()
   (interactive)

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index e28a01d35e6f4a07e392b88fd4f77db16be3df8e..80f12af974aa108987ba450479038b67575a61d8 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -705,6 +705,8 @@ Before doing that, check if there are any old backups and get rid of them."
         (vc-call make-version-backups-p file)
          (vc-make-version-backup file))))
 
+(declare-function vc-dired-resynch-file "vc" (file))
+
 (defun vc-after-save ()
   "Function to be called by `basic-save-buffer' (in files.el)."
   ;; If the file in the current buffer is under version control,