Mercurial > emacs
comparison lisp/emulation/mlsupport.el @ 9058:626086713f36
(auto-execute): Use \' in auto-mode-alist regexps.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 24 Sep 1994 04:11:17 +0000 |
| parents | f287613dfc28 |
| children | 278c796d9d7e |
comparison
equal
deleted
inserted
replaced
| 9057:eee647e8ca9e | 9058:626086713f36 |
|---|---|
| 137 | 137 |
| 138 (defun auto-execute (function pattern) | 138 (defun auto-execute (function pattern) |
| 139 (if (/= (aref pattern 0) ?*) | 139 (if (/= (aref pattern 0) ?*) |
| 140 (error "Only patterns starting with * supported in auto-execute")) | 140 (error "Only patterns starting with * supported in auto-execute")) |
| 141 (setq auto-mode-alist (cons (cons (concat "\\." (substring pattern 1) | 141 (setq auto-mode-alist (cons (cons (concat "\\." (substring pattern 1) |
| 142 "$") | 142 "\\'") |
| 143 function) | 143 function) |
| 144 auto-mode-alist))) | 144 auto-mode-alist))) |
| 145 | 145 |
| 146 (defun move-to-comment-column () | 146 (defun move-to-comment-column () |
| 147 (indent-to comment-column)) | 147 (indent-to comment-column)) |