aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/files.el
diff options
context:
space:
mode:
authorKaroly Lorentey2005-06-15 12:57:51 +0000
committerKaroly Lorentey2005-06-15 12:57:51 +0000
commitef85512e51f043d73788f00a2aed13cccde0682c (patch)
treefc1fa1378533250f260ef8eaa9a84ae882d9df84 /lisp/files.el
parent8736257554f49445f7b4402ac7a9436b38ce6452 (diff)
parentef88a9999004e6c26148c8d280d6a41f623d7249 (diff)
downloademacs-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.el23
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'.
661PATH-AND-SUFFIXES is a pair of lists (DIRECTORIES . SUFFIXES)." 661PATH-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'.
2854A value of nil gives the default `make-backup-file-name' behaviour. 2857A value of nil gives the default `make-backup-file-name' behavior.
2855 2858
2856This could be buffer-local to do something special for specific 2859This could be buffer-local to do something special for specific
2857files. If you define it, you may need to change `backup-file-name-p' 2860files. If you define it, you may need to change `backup-file-name-p'