diff options
author | Sam Steingold <[email protected]> | 2002-06-01 18:04:35 +0000 |
---|---|---|
committer | Sam Steingold <[email protected]> | 2002-06-01 18:04:35 +0000 |
commit | 36236b72327a86ced924d708fd78204b54c625d2 (patch) | |
tree | 83f0e2059109cccb8122eee17a1253758247af45 /lisp/files.el | |
parent | 2629d7432a484bcb6daa991c5e5be1c19d3ea8a4 (diff) |
(auto-mode-alist): Strip trailing ".in" from the file
name when deciding the mode (for config.h.in, Makefile.in etc).
Diffstat (limited to 'lisp/files.el')
-rw-r--r-- | lisp/files.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/files.el b/lisp/files.el index bac2f6bb5c..f6f787cff4 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -303,7 +303,7 @@ REGEXP is a regular expression to match against the file name. If it matches, `replace-match' is used to replace the matching part with REPLACEMENT. If the optional element UNIQUIFY is non-nil, the auto-save file name is -constructed by taking the directory part of the replaced file-name, +constructed by taking the directory part of the replaced file-name, concatenated with the buffer file name with all directory separators changed to `!' to prevent clashes. This will not work correctly if your filesystem truncates the resulting name. @@ -483,7 +483,7 @@ DIR defaults to current buffer's directory default." (unless dir (setq dir default-directory)) (unless default-dirname - (setq default-dirname + (setq default-dirname (if initial (concat dir initial) default-directory))) (read-file-name prompt dir default-dirname mustmatch initial 'file-directory-p)) @@ -1179,7 +1179,7 @@ that are visiting the various files." (unless (or (eq read-only buffer-file-read-only) (eq read-only buffer-read-only)) (when (or nowarn - (let ((question + (let ((question (format "File %s is %s on disk. Change buffer mode? " buffer-file-name (if read-only "read-only" "writable")))) @@ -1461,7 +1461,8 @@ in that case, this function acts as if `enable-local-variables' were t." (mapc (lambda (elt) (cons (purecopy (car elt)) (cdr elt))) - '(("\\.te?xt\\'" . text-mode) + '(("\\.in\\'" nil t) + ("\\.te?xt\\'" . text-mode) ("\\.c\\'" . c-mode) ("\\.h\\'" . c-mode) ("\\.tex\\'" . tex-mode) @@ -1492,7 +1493,7 @@ in that case, this function acts as if `enable-local-variables' were t." ("\\.m\\'" . objc-mode) ("\\.java\\'" . java-mode) ("\\.mk\\'" . makefile-mode) - ("\\(M\\|m\\|GNUm\\)akefile\\(\\.in\\)?\\'" . makefile-mode) + ("\\(M\\|m\\|GNUm\\)akefile\\'" . makefile-mode) ("\\.am\\'" . makefile-mode) ;For Automake. ;; Less common extensions come here ;; so more common ones above are found faster. |