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 6f4726b25f3c3103e2e3a1df8894029fa4f3a1d2..cbb75c3d930b7399ade64013f23aa9409d2a32d8 100644 (file)
--- 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