Mercurial > emacs

comparison lisp/autoinsert.el @ 49588:37645a051842

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 11:26:42 +0000
parents 417bead90660
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
49587:e82b3fe06d4c 49588:37645a051842
111 & ?\" | -10) 111 & ?\" | -10)
112 112
113 (("[Mm]akefile\\'" . "Makefile") . "makefile.inc") 113 (("[Mm]akefile\\'" . "Makefile") . "makefile.inc")
114 114
115 (html-mode . (lambda () (sgml-tag "html"))) 115 (html-mode . (lambda () (sgml-tag "html")))
116 116
117 (plain-tex-mode . "tex-insert.tex") 117 (plain-tex-mode . "tex-insert.tex")
118 (bibtex-mode . "tex-insert.tex") 118 (bibtex-mode . "tex-insert.tex")
119 (latex-mode 119 (latex-mode
120 ;; should try to offer completing read for these 120 ;; should try to offer completing read for these
121 "options, RET: " 121 "options, RET: "
128 128
129 (("/bin/.*[^/]\\'" . "Shell-Script mode magic number") 129 (("/bin/.*[^/]\\'" . "Shell-Script mode magic number")
130 lambda () 130 lambda ()
131 (if (eq major-mode default-major-mode) 131 (if (eq major-mode default-major-mode)
132 (sh-mode))) 132 (sh-mode)))
133 133
134 (ada-mode . ada-header) 134 (ada-mode . ada-header)
135 135
136 (("\\.[1-9]\\'" . "Man page skeleton") 136 (("\\.[1-9]\\'" . "Man page skeleton")
137 "Short description: " 137 "Short description: "
138 ".\\\" Copyright (C), " (substring (current-time-string) -4) " " 138 ".\\\" Copyright (C), " (substring (current-time-string) -4) " "