From 004a00f4ae0d64a86265c0fa6d6d52f0fa3d9434 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 19 Nov 2007 08:50:04 +0000 Subject: [PATCH] * 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 | 29 +++++++++++++++++++++++++++++ lisp/add-log.el | 3 +++ lisp/ibuffer.el | 7 +++++++ lisp/ido.el | 9 ++++++--- lisp/informat.el | 2 ++ lisp/pcomplete.el | 10 ++++++---- lisp/play/yow.el | 2 ++ lisp/progmodes/octave-mod.el | 2 ++ lisp/smerge-mode.el | 1 + lisp/vc-hg.el | 4 +++- lisp/vc-hooks.el | 2 ++ 11 files changed, 63 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6ad287a334..0891910b02 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,32 @@ +2007-11-19 Dan Nicolaescu + + * 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 * menu-bar.el (top-level): Deactivate clipboard-kill-region and diff --git a/lisp/add-log.el b/lisp/add-log.el index 3ca1b61395..21b4a5dbdc 100644 --- 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 80133d227a..b09a3e2697 100644 --- 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 0a077f9dab..af8936b86d 100644 --- 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 18a459ba0f..747d57c4f3 100644 --- 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 62a71621dc..8116ad91fd 100644 --- 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 28fc453577..702052f52d 100644 --- 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 a0d33f56ee..e8246ddb81 100644 --- 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 , 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 18ca1a3418..dcbb97bd79 100644 --- 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 872be45a2c..af2b4f133d 100644 --- 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 e28a01d35e..80f12af974 100644 --- 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, -- 2.20.1