diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2024-09-15 04:02:25 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2024-09-15 14:02:36 +0200 |
| commit | 4464062f4e4fe29aea237eec82cd5ddaaeac4052 (patch) | |
| tree | 5a217e698f81bca3473609e3f55b7cc467f38b28 | |
| parent | 16a142c2b2203a2b18743ff27208dace756d86b2 (diff) | |
Remove some XEmacs compat code from cperl-mode.el
The 'initialize-new-tags-table' function is unconditionally available
after 'etags' has been loaded, which is done further up.
* lisp/progmodes/cperl-mode.el (cperl-write-tags): Remove XEmacs compat
code.
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 7b6381b02f6..36ab3557a21 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -7559,6 +7559,8 @@ Use as (defvar cperl-tags-file-name "TAGS" "TAGS file name to use in `cperl-write-tags'.") +(declare-function initialize-new-tags-table "etags" ()) + (defun cperl-write-tags (&optional file erase recurse dir inbuffer noxs topdir) "Write tags for FILE. If this is a directory, RECURSE if non-nil. If ERASE is `ignore', do not erase, and do not try to delete old info. @@ -7635,8 +7637,7 @@ If INBUFFER, do not select buffer, and do not save." (insert (cperl-find-tags file xs topdir)))))) (if inbuffer nil ; Delegate to the caller (save-buffer 0) ; No backup - (if (fboundp 'initialize-new-tags-table) - (initialize-new-tags-table)))))) + (initialize-new-tags-table))))) (defvar cperl-tags-hier-regexp-list (concat |