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

(auto-mode-alist): Strip trailing ".in" from the file

Browse source 
name when deciding the mode (for config.h.in, Makefile.in etc).
This commit is contained in:
Sam Steingold 2002-06-01 18:04:35 +00:00
parent 2629d7432a
commit 36236b7232
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2002-06-01 Sam Steingold <sds@gnu.org>
* files.el (auto-mode-alist): Strip trailing ".in" from the file
name when deciding the mode (for config.h.in, Makefile.in etc).
2002-06-01 Thien-Thi Nguyen <ttn@gnu.org>
* progmodes/prolog.el (prolog-mode-syntax-table): Add flags to

11
lisp/files.el
View file

@ -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.