Mercurial > emacs
comparison lisp/progmodes/m4-mode.el @ 19779:fc52884e1dfc
(m4-mode): Add autoload cookie.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 06 Sep 1997 22:20:09 +0000 |
parents | 88e528f3dc49 |
children | 229f31952731 |
comparison
equal
deleted
inserted
replaced
19778:ad56f277ce38 | 19779:fc52884e1dfc |
---|---|
32 ;; To Do's: | 32 ;; To Do's: |
33 | 33 |
34 ;; * want to make m4-m4-(buffer|region) look sorta like M-x compile look&feel ? | 34 ;; * want to make m4-m4-(buffer|region) look sorta like M-x compile look&feel ? |
35 ;; * sexp motion commands don't seem to work right | 35 ;; * sexp motion commands don't seem to work right |
36 | 36 |
37 ;; to autoload m4 lisp code: | |
38 ;; (autoload 'm4-mode "m4-mode" nil t) | |
39 ;; | |
40 ;; or can use (load "m4-mode") or (require 'm4-mode) to just load it | |
41 ;; | |
42 ;; to try to "auto-detect" m4 files: | |
43 ;; (setq auto-mode-alist | |
44 ;; (cons '(".*\\.m4$" . m4-mode) | |
45 ;; auto-mode-alist)) | |
46 ;;; Thanks: | 37 ;;; Thanks: |
47 ;;; to Akim Demaille and Terry Jones for the bug reports | 38 ;;; to Akim Demaille and Terry Jones for the bug reports |
48 ;;; to Simon Marshall for the regexp tip | 39 ;;; to Simon Marshall for the regexp tip |
49 ;;; to Martin Buchholz for some general fixes | 40 ;;; to Martin Buchholz for some general fixes |
50 | 41 |
126 (m4-start-m4) | 117 (m4-start-m4) |
127 (process-send-region "m4process" (point) (mark)) | 118 (process-send-region "m4process" (point) (mark)) |
128 (process-send-eof "m4process") | 119 (process-send-eof "m4process") |
129 (switch-to-buffer-other-window "*m4 output*")) | 120 (switch-to-buffer-other-window "*m4 output*")) |
130 | 121 |
122 ;;;###autoload | |
131 (defun m4-mode () | 123 (defun m4-mode () |
132 "A major-mode to edit m4 macro files | 124 "A major mode to edit m4 macro files. |
133 \\{m4-mode-map} | 125 \\{m4-mode-map} |
134 " | 126 " |
135 (interactive) | 127 (interactive) |
136 (kill-all-local-variables) | 128 (kill-all-local-variables) |
137 (use-local-map m4-mode-map) | 129 (use-local-map m4-mode-map) |