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/progmodes/cperl-mode.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/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index abd77bd973d..e956637572c 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -2314,7 +2314,7 @@ to nil." nil t)))) ; Only one (progn (forward-word-strictly 1) - (setq name (file-name-base) + (setq name (file-name-base (buffer-file-name)) p (point)) (insert " NAME\n\n" name " - \n\n=head1 SYNOPSIS\n\n\n\n" |