Mercurial > emacs
comparison lisp/files.el @ 16334:5c4b76c66de2
(auto-mode-alist): Add lower-case varieties of
ChangeLog filenames, for case-insensitive MSDOS and MS-Windows.
(insert-file-contents-literally): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 25 Sep 1996 22:37:27 +0000 |
| parents | fa8dbed4d40e |
| children | e311d5372d8c |
comparison
equal
deleted
inserted
replaced
| 16333:585956e62c87 | 16334:5c4b76c66de2 |
|---|---|
| 716 (defun insert-file-contents-literally (filename &optional visit beg end replace) | 716 (defun insert-file-contents-literally (filename &optional visit beg end replace) |
| 717 "Like `insert-file-contents', q.v., but only reads in the file. | 717 "Like `insert-file-contents', q.v., but only reads in the file. |
| 718 A buffer may be modified in several ways after reading into the buffer due | 718 A buffer may be modified in several ways after reading into the buffer due |
| 719 to advanced Emacs features, such as file-name-handlers, format decoding, | 719 to advanced Emacs features, such as file-name-handlers, format decoding, |
| 720 find-file-hooks, etc. | 720 find-file-hooks, etc. |
| 721 This function ensures that none of these modifications will take place." | 721 This function ensures that none of these modifications will take place. |
| 722 | |
| 723 This function does not work for remote files, because it turns off | |
| 724 file name handlers and remote file access uses a file name handler." | |
| 722 (let ((file-name-handler-alist nil) | 725 (let ((file-name-handler-alist nil) |
| 723 (format-alist nil) | 726 (format-alist nil) |
| 724 (after-insert-file-functions nil) | 727 (after-insert-file-functions nil) |
| 725 (find-buffer-file-type-function | 728 (find-buffer-file-type-function |
| 726 (if (fboundp 'find-buffer-file-type) | 729 (if (fboundp 'find-buffer-file-type) |
| 964 ("\\.asm\\'" . asm-mode) | 967 ("\\.asm\\'" . asm-mode) |
| 965 ("ChangeLog\\'" . change-log-mode) | 968 ("ChangeLog\\'" . change-log-mode) |
| 966 ("change.log\\'" . change-log-mode) | 969 ("change.log\\'" . change-log-mode) |
| 967 ("changelo\\'" . change-log-mode) | 970 ("changelo\\'" . change-log-mode) |
| 968 ("ChangeLog.[0-9]+\\'" . change-log-mode) | 971 ("ChangeLog.[0-9]+\\'" . change-log-mode) |
| 972 ;; for MSDOS and MS-Windows (which are case-insensitive) | |
| 973 ("changelog\\'" . change-log-mode) | |
| 974 ("changelog.[0-9]+\\'" . change-log-mode) | |
| 969 ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) | 975 ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) |
| 970 ("\\.scm\\.[0-9]*\\'" . scheme-mode) | 976 ("\\.scm\\.[0-9]*\\'" . scheme-mode) |
| 971 ("\\.[ck]?sh\\'\\|\\.shar\\'\\|/\\.z?profile\\'" . sh-mode) | 977 ("\\.[ck]?sh\\'\\|\\.shar\\'\\|/\\.z?profile\\'" . sh-mode) |
| 972 ("/\\.\\(bash_profile\\|z?login\\|bash_login\\|z?logout\\)\\'" . sh-mode) | 978 ("/\\.\\(bash_profile\\|z?login\\|bash_login\\|z?logout\\)\\'" . sh-mode) |
| 973 ("/\\.\\(bash_logout\\|[kz]shrc\\|bashrc\\|t?cshrc\\|esrc\\)\\'" . sh-mode) | 979 ("/\\.\\(bash_logout\\|[kz]shrc\\|bashrc\\|t?cshrc\\|esrc\\)\\'" . sh-mode) |