diff options
| author | Richard M. Stallman | 1998-03-05 02:17:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-05 02:17:48 +0000 |
| commit | e13322a0d943728730d9b0e92bd424e24ffe3532 (patch) | |
| tree | 20e90a1a9e3beaa93436fc73f6902c4b69373676 | |
| parent | af0f19d71bd5e774c4928975c4b479428c9974db (diff) | |
| download | emacs-e13322a0d943728730d9b0e92bd424e24ffe3532.tar.gz emacs-e13322a0d943728730d9b0e92bd424e24ffe3532.zip | |
(auto-mode-alist): Recognize zone-mode.
| -rw-r--r-- | lisp/files.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index c28455a8d66..606c49e6a14 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1204,6 +1204,7 @@ run `normal-mode' explicitly." | |||
| 1204 | ("\\`/tmp/Re" . text-mode) | 1204 | ("\\`/tmp/Re" . text-mode) |
| 1205 | ("/Message[0-9]*\\'" . text-mode) | 1205 | ("/Message[0-9]*\\'" . text-mode) |
| 1206 | ("/drafts/[0-9]+\\'" . mh-letter-mode) | 1206 | ("/drafts/[0-9]+\\'" . mh-letter-mode) |
| 1207 | ("\\.zone\\'" . zone-mode) | ||
| 1207 | ;; some news reader is reported to use this | 1208 | ;; some news reader is reported to use this |
| 1208 | ("\\`/tmp/fol/" . text-mode) | 1209 | ("\\`/tmp/fol/" . text-mode) |
| 1209 | ("\\.y\\'" . c-mode) | 1210 | ("\\.y\\'" . c-mode) |
| @@ -1230,6 +1231,20 @@ If the element has the form (REGEXP FUNCTION NON-NIL), then after | |||
| 1230 | calling FUNCTION (if it's not nil), we delete the suffix that matched | 1231 | calling FUNCTION (if it's not nil), we delete the suffix that matched |
| 1231 | REGEXP and search the list again for another match.") | 1232 | REGEXP and search the list again for another match.") |
| 1232 | 1233 | ||
| 1234 | |||
| 1235 | |||
| 1236 | |||
| 1237 | To install, put this in your .emacs: | ||
| 1238 | (setq auto-mode-alist (cons '(\".zone$\" . zone-mode) | ||
| 1239 | auto-mode-alist)) | ||
| 1240 | or put ;-*-zone-*- | ||
| 1241 | on an the first line of the zone files. | ||
| 1242 | |||
| 1243 | You may also need to add | ||
| 1244 | (autoload 'zone-mode \"zone-mode\" "") | ||
| 1245 | |||
| 1246 | Font-lock support assumes emacs-20. | ||
| 1247 | |||
| 1233 | (defvar interpreter-mode-alist | 1248 | (defvar interpreter-mode-alist |
| 1234 | '(("perl" . perl-mode) | 1249 | '(("perl" . perl-mode) |
| 1235 | ("perl5" . perl-mode) | 1250 | ("perl5" . perl-mode) |