procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from emacs--rel--22

Browse source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1024
This commit is contained in:
Miles Bader 2008-01-30 07:11:04 +00:00
commit 02cbe062be
3 changed files with 15 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2008-01-30 Richard Stallman <rms@gnu.org>
* progmodes/etags.el (tags-query-replace): Delete unused optional args.
Doc fix.
* files.el (hack-local-variables): Don't query about fake variables.
2008-01-30 Markus Triska <markus.triska@gmx.at>
* linum.el: New file.
@ -202,7 +209,7 @@
* vc.el (vc-exec-after): For mode-line-process highlighting, if
`compile' is not available, fall back to font-lock-warning-face.
2008-01-26 Phil Sung <psung@mit.edu> (tiny change)
2008-01-26 Phil Sung <psung@mit.edu> (tiny change)
* wdired.el (wdired-get-filename): Change `(1+ beg)' to `beg' so
that the filename end is found even when the filename is empty.

3
lisp/files.el
View file

@ -2839,7 +2839,8 @@ is specified, returning t if it is specified."
(dolist (elt result)
(let ((var (car elt))
(val (cdr elt)))
(or (eq var 'mode)
;; Don't query about the fake variables.
(or (memq var '(mode unibyte coding))
(and (eq var 'eval)
(or (eq enable-local-eval t)
(hack-one-local-variable-eval-safep

7
lisp/progmodes/etags.el
View file

@ -1815,7 +1815,7 @@ See documentation of variable `tags-file-name'."
(tags-loop-continue (or file-list-form t))))
;;;###autoload
(defun tags-query-replace (from to &optional delimited file-list-form start end)
(defun tags-query-replace (from to &optional delimited file-list-form)
"Do `query-replace-regexp' of FROM with TO on all files listed in tags table.
Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
If you exit (\\[keyboard-quit], RET or q), you can resume the query replace
@ -1824,7 +1824,10 @@ Fourth arg FILE-LIST-FORM non-nil means initialize the replacement loop.
Fifth and sixth arguments START and END are accepted, for compatibility
with `query-replace-regexp', and ignored.
See also documentation of the variable `tags-file-name'."
If FILE-LIST-FORM is non-nil, it is a form to evaluate to
produce the list of files to search.
See also the documentation of the variable `tags-file-name'."
(interactive (query-replace-read-args "Tags query replace (regexp)" t t))
(setq tags-loop-scan `(let ,(unless (equal from (downcase from))
'((case-fold-search nil)))