Commit 004a00f4 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* 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.
parent 34cf517c
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
......
......@@ -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.
......
......@@ -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'.
......
......@@ -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) '())
......
......@@ -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."
......
......@@ -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)
......
......@@ -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."
......
......@@ -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.")
......
......@@ -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)
......
......@@ -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)
......
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment