Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
bf9f5c17
Commit
bf9f5c17
authored
Jan 03, 2003
by
Dave Love
Browse files
(auto-insert-alist): Add man page skeleton.
parent
d0680660
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
30 additions
and
1 deletion
+30
-1
lisp/autoinsert.el
lisp/autoinsert.el
+30
-1
No files found.
lisp/autoinsert.el
View file @
bf9f5c17
;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
;; 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.
;; Author: Charlie Martin <crm@cs.duke.edu>
;; Adapted-By: Daniel Pfeiffer <occitan@esperanto.org>
...
...
@@ -133,6 +133,35 @@ If this contains a %s, that will be replaced by the matching rule."
(ada-mode . ada-header)
(("\\.[1-9]\\'" . "Man page skeleton")
"Short description: "
".\\\" Copyright (C), " (substring (current-time-string) -4) " "
(getenv "ORGANIZATION") |
"Free Software Foundation, Inc."
"
.\\\" You may distribute this file under the terms of the GNU Free
.\\\" Documentation Licence.
.TH "
(
file-name-sans-extension
(
file-name-nondirectory
(
buffer-file-name
)))
" "
(
file-name-extension
(
buffer-file-name
))
" "
(
format-time-string
"%Y-%m-%d "
)
"\n.SH NAME\n"
(
file-name-sans-extension
(
file-name-nondirectory
(
buffer-file-name
)))
" \\- "
str
"\n.SH SYNOPSIS
.B "
(
file-name-sans-extension
(
file-name-nondirectory
(
buffer-file-name
)))
"\n"
_
"
.SH DESCRIPTION
.SH OPTIONS
.SH FILES
.SH \"SEE ALSO\"
.SH BUGS
.SH AUTHOR
"
(
user-full-name
)
'
(
if
(
search-backward
"&"
(
line-beginning-position
)
t
)
(
replace-match
(
capitalize
(
user-login-name
))
t
t
))
'
(
end-of-line
1
)
" <"
(
progn
user-mail-address
)
">\n"
)
((
"\\.el\\'"
.
"Emacs Lisp header"
)
"Short description: "
";;; "
(
file-name-nondirectory
(
buffer-file-name
))
" --- "
str
"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment