procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Remove some XEmacs compat code from cperl-mode.el

Browse source 
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.
This commit is contained in:
Stefan Kangas 2024-09-15 04:02:25 +02:00
parent 16a142c2b2
commit 4464062f4e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/cperl-mode.el
View file

@ -7559,6 +7559,8 @@ Use as
(defvar cperl-tags-file-name "TAGS" (defvar cperl-tags-file-name "TAGS"
"TAGS file name to use in `cperl-write-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) (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. "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. 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)))))) (insert (cperl-find-tags file xs topdir))))))
(if inbuffer nil ; Delegate to the caller (if inbuffer nil ; Delegate to the caller
(save-buffer 0) ; No backup (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 (defvar cperl-tags-hier-regexp-list
(concat (concat