From: Stefan Kangas Date: Sun, 15 Sep 2024 02:02:25 +0000 (+0200) Subject: Remove some XEmacs compat code from cperl-mode.el X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=30768f151788dc174c3b634b38ba8e182fee49f3;p=emacs.git 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) --- 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