diff options
| author | Karoly Lorentey | 2005-06-15 12:57:51 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-06-15 12:57:51 +0000 |
| commit | ef85512e51f043d73788f00a2aed13cccde0682c (patch) | |
| tree | fc1fa1378533250f260ef8eaa9a84ae882d9df84 /lisp/files.el | |
| parent | 8736257554f49445f7b4402ac7a9436b38ce6452 (diff) | |
| parent | ef88a9999004e6c26148c8d280d6a41f623d7249 (diff) | |
| download | emacs-ef85512e51f043d73788f00a2aed13cccde0682c.tar.gz emacs-ef85512e51f043d73788f00a2aed13cccde0682c.zip | |
Merged from miles@gnu.org--gnu-2005 (patch 80-82, 350-422)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-350
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-351
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-352
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-353
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-354
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-355
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-356
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-357
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-358
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-359
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-360
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-361
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-362
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-363
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-364
Remove "-face" suffix from widget faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-365
Remove "-face" suffix from custom faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-366
Remove "-face" suffix from change-log faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367
Remove "-face" suffix from compilation faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-368
Remove "-face" suffix from diff-mode faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-369
lisp/longlines.el (longlines-visible-face): Face removed
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-370
Remove "-face" suffix from woman faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-371
Remove "-face" suffix from whitespace-highlight face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-372
Remove "-face" suffix from ruler-mode faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-373
Remove "-face" suffix from show-paren faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-374
Remove "-face" suffix from log-view faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-375
Remove "-face" suffix from smerge faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Remove "-face" suffix from show-tabs faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-377
Remove "-face" suffix from highlight-changes faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-378
Remove "-face" suffix from and downcase info faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-379
Remove "-face" suffix from pcvs faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-380
Update uses of renamed pcvs faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-381
Tweak ChangeLog
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-382
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-383
Remove "-face" suffix from strokes-char face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-384
Remove "-face" suffix from compare-windows face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-385
Remove "-face" suffix from calendar faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-386
Remove "-face" suffix from diary-button face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-387
Remove "-face" suffix from testcover faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-388
Remove "-face" suffix from viper faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-389
Remove "-face" suffix from org faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-390
Remove "-face" suffix from sgml-namespace face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-391
Remove "-face" suffix from table-cell face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-392
Remove "-face" suffix from tex-mode faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393
Remove "-face" suffix from texinfo-heading face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-394
Remove "-face" suffix from flyspell faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-395
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-396
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-397
Remove "-face" suffix from gomoku faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-398
Remove "-face" suffix from mpuz faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-399
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-400
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-401
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-402
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-403
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-404
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-405
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-406
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-407
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-408
Remove "-face" suffix from Buffer-menu-buffer face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-409
Remove "-face" suffix from antlr-mode faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410
Remove "-face" suffix from ebrowse faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-411
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-412
Remove "-face" suffix from flymake faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-413
Remove "-face" suffix from idlwave faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-414
Remove "-face" suffix from sh-script faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415
Remove "-face" suffix from vhdl-mode faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-416
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-417
Remove "-face" suffix from which-func face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-418
Remove "-face" suffix from cperl-mode faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-419
Remove "-face" suffix from ld-script faces
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-420
Fix cperl-mode font-lock problem
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-421
Tweak which-func face
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-422
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-80
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-81
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-82
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-350
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/lisp/files.el b/lisp/files.el index e5c2358b1d0..ee986e5cece 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -658,7 +658,7 @@ one or more of those symbols." | |||
| 658 | 658 | ||
| 659 | (defun locate-file-completion (string path-and-suffixes action) | 659 | (defun locate-file-completion (string path-and-suffixes action) |
| 660 | "Do completion for file names passed to `locate-file'. | 660 | "Do completion for file names passed to `locate-file'. |
| 661 | PATH-AND-SUFFIXES is a pair of lists (DIRECTORIES . SUFFIXES)." | 661 | PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)." |
| 662 | (if (file-name-absolute-p string) | 662 | (if (file-name-absolute-p string) |
| 663 | (read-file-name-internal string nil action) | 663 | (read-file-name-internal string nil action) |
| 664 | (let ((names nil) | 664 | (let ((names nil) |
| @@ -1766,12 +1766,12 @@ in that case, this function acts as if `enable-local-variables' were t." | |||
| 1766 | ("\\.ad[abs]\\'" . ada-mode) | 1766 | ("\\.ad[abs]\\'" . ada-mode) |
| 1767 | ("\\.ad[bs].dg\\'" . ada-mode) | 1767 | ("\\.ad[bs].dg\\'" . ada-mode) |
| 1768 | ("\\.\\([pP]\\([Llm]\\|erl\\|od\\)\\|al\\)\\'" . perl-mode) | 1768 | ("\\.\\([pP]\\([Llm]\\|erl\\|od\\)\\|al\\)\\'" . perl-mode) |
| 1769 | ("GNUmakefile\\'" . makefile-gmake-mode) | ||
| 1770 | ,@(if (memq system-type '(berkeley-unix next-mach darwin)) | 1769 | ,@(if (memq system-type '(berkeley-unix next-mach darwin)) |
| 1771 | '(("\\.mk\\'" . makefile-bsdmake-mode) | 1770 | '(("\\.mk\\'" . makefile-bsdmake-mode) |
| 1771 | ("GNUmakefile\\'" . makefile-gmake-mode) | ||
| 1772 | ("[Mm]akefile\\'" . makefile-bsdmake-mode)) | 1772 | ("[Mm]akefile\\'" . makefile-bsdmake-mode)) |
| 1773 | '(("\\.mk\\'" . makefile-gmake-mode) ; Might be any make, give Gnu the host advantage | 1773 | '(("\\.mk\\'" . makefile-gmake-mode) ; Might be any make, give Gnu the host advantage |
| 1774 | ("[Mm]akefile\\'" . makefile-mode))) | 1774 | ("[Mm]akefile\\'" . makefile-gmake-mode))) |
| 1775 | ("Makeppfile\\'" . makefile-makepp-mode) | 1775 | ("Makeppfile\\'" . makefile-makepp-mode) |
| 1776 | ("\\.am\\'" . makefile-automake-mode) | 1776 | ("\\.am\\'" . makefile-automake-mode) |
| 1777 | ;; Less common extensions come here | 1777 | ;; Less common extensions come here |
| @@ -2159,9 +2159,9 @@ Otherwise, return nil; point may be changed." | |||
| 2159 | (goto-char beg) | 2159 | (goto-char beg) |
| 2160 | end)))) | 2160 | end)))) |
| 2161 | 2161 | ||
| 2162 | (defun hack-local-variables-confirm (string) | 2162 | (defun hack-local-variables-confirm (string flag-to-check) |
| 2163 | (or (eq enable-local-variables t) | 2163 | (or (eq flag-to-check t) |
| 2164 | (and enable-local-variables | 2164 | (and flag-to-check |
| 2165 | (save-window-excursion | 2165 | (save-window-excursion |
| 2166 | (condition-case nil | 2166 | (condition-case nil |
| 2167 | (switch-to-buffer (current-buffer)) | 2167 | (switch-to-buffer (current-buffer)) |
| @@ -2236,7 +2236,8 @@ is specified, returning t if it is specified." | |||
| 2236 | (if (and result | 2236 | (if (and result |
| 2237 | (or mode-only | 2237 | (or mode-only |
| 2238 | (hack-local-variables-confirm | 2238 | (hack-local-variables-confirm |
| 2239 | "Set local variables as specified in -*- line of %s? "))) | 2239 | "Set local variables as specified in -*- line of %s? " |
| 2240 | enable-local-variables))) | ||
| 2240 | (let ((enable-local-eval enable-local-eval)) | 2241 | (let ((enable-local-eval enable-local-eval)) |
| 2241 | (while result | 2242 | (while result |
| 2242 | (hack-one-local-variable (car (car result)) (cdr (car result))) | 2243 | (hack-one-local-variable (car (car result)) (cdr (car result))) |
| @@ -2267,7 +2268,8 @@ is specified, returning t if it is specified." | |||
| 2267 | (and (search-forward "Local Variables:" nil t) | 2268 | (and (search-forward "Local Variables:" nil t) |
| 2268 | (or mode-only | 2269 | (or mode-only |
| 2269 | (hack-local-variables-confirm | 2270 | (hack-local-variables-confirm |
| 2270 | "Set local variables as specified at end of %s? ")))) | 2271 | "Set local variables as specified at end of %s? " |
| 2272 | enable-local-variables)))) | ||
| 2271 | (skip-chars-forward " \t") | 2273 | (skip-chars-forward " \t") |
| 2272 | (let ((enable-local-eval enable-local-eval) | 2274 | (let ((enable-local-eval enable-local-eval) |
| 2273 | ;; suffix is what comes after "local variables:" in its line. | 2275 | ;; suffix is what comes after "local variables:" in its line. |
| @@ -2489,7 +2491,8 @@ is considered risky." | |||
| 2489 | ;; Permit eval if not root and user says ok. | 2491 | ;; Permit eval if not root and user says ok. |
| 2490 | (and (not (zerop (user-uid))) | 2492 | (and (not (zerop (user-uid))) |
| 2491 | (hack-local-variables-confirm | 2493 | (hack-local-variables-confirm |
| 2492 | "Process `eval' or hook local variables in %s? "))) | 2494 | "Process `eval' or hook local variables in %s? " |
| 2495 | enable-local-eval))) | ||
| 2493 | (if (eq var 'eval) | 2496 | (if (eq var 'eval) |
| 2494 | (save-excursion (eval val)) | 2497 | (save-excursion (eval val)) |
| 2495 | (make-local-variable var) | 2498 | (make-local-variable var) |
| @@ -2851,7 +2854,7 @@ the value is \"\"." | |||
| 2851 | 2854 | ||
| 2852 | (defcustom make-backup-file-name-function nil | 2855 | (defcustom make-backup-file-name-function nil |
| 2853 | "A function to use instead of the default `make-backup-file-name'. | 2856 | "A function to use instead of the default `make-backup-file-name'. |
| 2854 | A value of nil gives the default `make-backup-file-name' behaviour. | 2857 | A value of nil gives the default `make-backup-file-name' behavior. |
| 2855 | 2858 | ||
| 2856 | This could be buffer-local to do something special for specific | 2859 | This could be buffer-local to do something special for specific |
| 2857 | files. If you define it, you may need to change `backup-file-name-p' | 2860 | files. If you define it, you may need to change `backup-file-name-p' |