diff options
| author | Philipp Stephani <phst@google.com> | 2017-09-19 10:29:42 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2017-09-24 10:02:00 +0200 |
| commit | 1eb4e5c3c8e70813c8042a38a2b67be74b16500e (patch) | |
| tree | 2dd4bb0690520cc15ec467b6c7561a32a088784b /lisp/autoinsert.el | |
| parent | 535db535a9168ae73740f50b57210eb127c37119 (diff) | |
| download | emacs-1eb4e5c3c8e70813c8042a38a2b67be74b16500e.tar.gz emacs-1eb4e5c3c8e70813c8042a38a2b67be74b16500e.tar.bz2 emacs-1eb4e5c3c8e70813c8042a38a2b67be74b16500e.zip | |
Make FILENAME argument of 'file-name-base' mandatory
* lisp/files.el (file-name-base): Make FILENAME argument mandatory.
* lisp/autoinsert.el (auto-insert-alist):
* lisp/progmodes/cperl-mode.el (cperl-electric-pod):
* lisp/progmodes/idlwave.el (idlwave-parse-definition):
* lisp/textmodes/reftex-ref.el (reftex-replace-prefix-escapes): Fix
all callers.
Diffstat (limited to 'lisp/autoinsert.el')
| -rw-r--r-- | lisp/autoinsert.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 2820c8a9afa..a43e068a4dc 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -141,14 +141,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-base) +.TH " (file-name-base (buffer-file-name)) " " (file-name-extension (buffer-file-name)) " " (format-time-string "%Y-%m-%d ") "\n.SH NAME\n" - (file-name-base) + (file-name-base (buffer-file-name)) " \\- " str "\n.SH SYNOPSIS -.B " (file-name-base) +.B " (file-name-base (buffer-file-name)) "\n" _ " @@ -211,7 +211,7 @@ If this contains a %s, that will be replaced by the matching rule." \(provide '" - (file-name-base) + (file-name-base (buffer-file-name)) ") \;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n") (("\\.texi\\(nfo\\)?\\'" . "Texinfo file skeleton") @@ -219,7 +219,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-base) ".info\n" + (file-name-base (buffer-file-name)) ".info\n" "@settitle " str " @c %**end of header @copying\n" |