/[emacs]/emacs/lisp/autoinsert.el
ViewVC logotype

Diff of /emacs/lisp/autoinsert.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by rms, Tue Apr 30 16:35:52 2002 UTC revision 1.33.2.1 by miles, Fri Apr 4 06:20:00 2003 UTC
# Line 1  Line 1 
1  ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files  ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
2    
3  ;; Copyright (C) 1985, 86, 87, 94, 95, 98, 2000 Free Software Foundation, Inc.  ;; Copyright (C) 1985, 86, 87, 94, 95, 98, 2000, 03 Free Software Foundation, Inc.
4    
5  ;; Author: Charlie Martin <crm@cs.duke.edu>  ;; Author: Charlie Martin <crm@cs.duke.edu>
6  ;; Adapted-By: Daniel Pfeiffer <occitan@esperanto.org>  ;; Adapted-By: Daniel Pfeiffer <occitan@esperanto.org>
# Line 113  If this contains a %s, that will be repl Line 113  If this contains a %s, that will be repl
113      (("[Mm]akefile\\'" . "Makefile") . "makefile.inc")      (("[Mm]akefile\\'" . "Makefile") . "makefile.inc")
114    
115      (html-mode . (lambda () (sgml-tag "html")))      (html-mode . (lambda () (sgml-tag "html")))
116        
117      (plain-tex-mode . "tex-insert.tex")      (plain-tex-mode . "tex-insert.tex")
118      (bibtex-mode . "tex-insert.tex")      (bibtex-mode . "tex-insert.tex")
119      (latex-mode      (latex-mode
# Line 130  If this contains a %s, that will be repl Line 130  If this contains a %s, that will be repl
130       lambda ()       lambda ()
131         (if (eq major-mode default-major-mode)         (if (eq major-mode default-major-mode)
132           (sh-mode)))           (sh-mode)))
133        
134      (ada-mode . ada-header)      (ada-mode . ada-header)
135    
136        (("\\.[1-9]\\'" . "Man page skeleton")
137         "Short description: "
138         ".\\\" Copyright (C), " (substring (current-time-string) -4) "  "
139         (getenv "ORGANIZATION") | "Free Software Foundation, Inc."
140         "
141    .\\\" You may distribute this file under the terms of the GNU Free
142    .\\\" Documentation Licence.
143    .TH " (file-name-sans-extension (file-name-nondirectory (buffer-file-name)))
144         " " (file-name-extension (buffer-file-name))
145         " " (format-time-string "%Y-%m-%d ")
146         "\n.SH NAME\n"
147         (file-name-sans-extension (file-name-nondirectory (buffer-file-name)))
148         " \\- " str
149         "\n.SH SYNOPSIS
150    .B " (file-name-sans-extension (file-name-nondirectory (buffer-file-name)))
151         "\n"
152         _
153         "
154    .SH DESCRIPTION
155    .SH OPTIONS
156    .SH FILES
157    .SH \"SEE ALSO\"
158    .SH BUGS
159    .SH AUTHOR
160    " (user-full-name)
161         '(if (search-backward "&" (line-beginning-position) t)
162              (replace-match (capitalize (user-login-name)) t t))
163         '(end-of-line 1) " <" (progn user-mail-address) ">\n")
164    
165      (("\\.el\\'" . "Emacs Lisp header")      (("\\.el\\'" . "Emacs Lisp header")
166       "Short description: "       "Short description: "
167       ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str "       ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str "

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.33.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26