diff options
| author | Sam Steingold <sds@gnu.org> | 2012-06-26 12:23:01 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2012-06-26 12:23:01 -0400 |
| commit | d2c32364fd1873a6e9cfa52d2531dfbe500ad297 (patch) | |
| tree | f567c36975e6d137b55ecca8ddf856cfe6e7de0d /lisp/autoinsert.el | |
| parent | 62efea5e881407a178c5c291575facc17dca8a3f (diff) | |
| download | emacs-d2c32364fd1873a6e9cfa52d2531dfbe500ad297.tar.gz | |
* lisp/files.el (file-name-base): New convenience function.
* lisp/autoinsert.el, lisp/cus-dep.el, lisp/doc-view.el, lisp/image-dired.el,
* lisp/woman.el, lisp/eshell/esh-cmd.el, lisp/progmodes/ada-xref.el,
* lisp/progmodes/cc-defs.el, lisp/progmodes/cperl-mode.el,
* lisp/progmodes/flymake.el, lisp/progmodes/gud.el, lisp/progmodes/idlwave.el,
* lisp/textmodes/ispell.el, lisp/textmodes/reftex-ref.el,
* lisp/textmodes/tex-mode.el: Use it.
Did not touch cedet and org because they are maintained elsewhere.
Diffstat (limited to 'lisp/autoinsert.el')
| -rw-r--r-- | lisp/autoinsert.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index e7639b6f8a3..fbf8c466585 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -140,14 +140,14 @@ If this contains a %s, that will be replaced by the matching rule." " .\\\" You may distribute this file under the terms of the GNU Free .\\\" Documentation License. -.TH " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) +.TH " (file-name-base) " " (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))) + (file-name-base) " \\- " str "\n.SH SYNOPSIS -.B " (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) +.B " (file-name-base) "\n" _ " @@ -207,7 +207,7 @@ If this contains a %s, that will be replaced by the matching rule." \(provide '" - (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) + (file-name-base) ") \;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n") (("\\.texi\\(nfo\\)?\\'" . "Texinfo file skeleton") @@ -215,8 +215,7 @@ If this contains a %s, that will be replaced by the matching rule." "\\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename " - (file-name-sans-extension - (file-name-nondirectory (buffer-file-name))) ".info\n" + (file-name-base) ".info\n" "@settitle " str " @c %**end of header @copying\n" |