Mercurial > emacs

--- a/lisp/ChangeLog	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/ChangeLog	Mon Nov 19 08:50:04 2007 +0000
@@ -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
--- a/lisp/add-log.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/add-log.el	Mon Nov 19 08:50:04 2007 +0000
@@ -827,6 +827,9 @@
   '(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.
--- a/lisp/ibuffer.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/ibuffer.el	Mon Nov 19 08:50:04 2007 +0000
@@ -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'.
--- a/lisp/ido.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/ido.el	Mon Nov 19 08:50:04 2007 +0000
@@ -2281,9 +2281,10 @@
 		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 @@
       (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) '())
--- a/lisp/informat.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/informat.el	Mon Nov 19 08:50:04 2007 +0000
@@ -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."
--- a/lisp/pcomplete.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/pcomplete.el	Mon Nov 19 08:50:04 2007 +0000
@@ -281,6 +281,10 @@
   :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 @@
   "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 @@
   "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)
--- a/lisp/play/yow.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/play/yow.el	Mon Nov 19 08:50:04 2007 +0000
@@ -112,6 +112,8 @@
 ;;
 ;; written by Kayvan Aghaiepour

+(declare-function doctor-ret-or-read "doctor" (arg))
+
 ;;;###autoload
 (defun psychoanalyze-pinhead ()
   "Zippy goes to the analyst."
--- a/lisp/progmodes/octave-mod.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/progmodes/octave-mod.el	Mon Nov 19 08:50:04 2007 +0000
@@ -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.")
--- a/lisp/smerge-mode.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/smerge-mode.el	Mon Nov 19 08:50:04 2007 +0000
@@ -905,6 +905,7 @@
 (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)
--- a/lisp/vc-hg.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/vc-hg.el	Mon Nov 19 08:50:04 2007 +0000
@@ -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 @@
     (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)
--- a/lisp/vc-hooks.el	Mon Nov 19 07:52:07 2007 +0000
+++ b/lisp/vc-hooks.el	Mon Nov 19 08:50:04 2007 +0000
@@ -705,6 +705,8 @@
 	 (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,