From 30768f151788dc174c3b634b38ba8e182fee49f3 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 15 Sep 2024 04:02:25 +0200 Subject: [PATCH] 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. (cherry picked from commit 4464062f4e4fe29aea237eec82cd5ddaaeac4052) --- lisp/progmodes/cperl-mode.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 6f4726b25f3..cbb75c3d930 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -7556,6 +7556,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. @@ -7632,8 +7634,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 -- 2.39.2