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.

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