mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Make FILENAME argument of 'file-name-base' mandatory

Browse source 
* 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.
This commit is contained in:
Philipp Stephani 2017-09-19 10:29:42 +02:00
parent 535db535a9
commit 1eb4e5c3c8
7 changed files with 14 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/autoinsert.el
View file

@ -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"