* 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.

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

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.

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'.
 

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) '())

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."

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)

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."

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.")

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)

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)

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,