master 522a74d60a9: ; cperl-mode.el: Remove functions using mode-compile.el

[Harald Jörg]

branch: master
commit 522a74d60a915ca9e922ad42dedc19d9f72e3ae5
Author: Harald Jörg <haj@posteo.de>
Commit: Harald Jörg <haj@posteo.de>

    ; cperl-mode.el: Remove functions using mode-compile.el
    
    mode-compile.el is no longer available from any maintained repository,
    its archived version does not work since Emacs 27.  The menu options
    tested for availability of mode-compile and therefore were disabled,
    the function was not documented.
    
    * lisp/progmodes/cperl-mode.el (cperl-tips): Remove reference to
    mode-compile.el.
    (cperl-menu): Remove defunct entries requiring mode-compile.
    (cperl-check-syntax): Remove function.
    (cperl-extra-perl-args): Remove user option only used by cperl-check-syntax.
---
 lisp/progmodes/cperl-mode.el | 24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index d525b069407..807927aa86d 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -473,12 +473,6 @@ If nil, the value of `cperl-indent-level' will be used."
   :group 'cperl)
 (make-obsolete-variable 'cperl-under-as-char 'superword-mode "24.4")
 
-(defcustom cperl-extra-perl-args ""
-  "Extra arguments to use when starting Perl.
-Currently used with `cperl-check-syntax' only."
-  :type 'string
-  :group 'cperl)
-
 (defcustom cperl-message-electric-keyword t
   "Non-nil means that the `cperl-electric-keyword' prints a help message."
   :type 'boolean
@@ -631,10 +625,7 @@ imenu entries."
 ;;; Short extra-docs.
 
 (defvar cperl-tips 'please-ignore-this-line
-  "Note that to enable Compile choices in the menu you need to install
-mode-compile.el.
-
-If your Emacs does not default to `cperl-mode' on Perl files, and you
+  "If your Emacs does not default to `cperl-mode' on Perl files, and you
 want it to: put the following into your .emacs file:
 
   (add-to-list \\='major-mode-remap-alist \\='(perl-mode . cperl-mode))
@@ -1056,12 +1047,6 @@ Unless KEEP, removes the old indentation."
     ["Comment region" cperl-comment-region (use-region-p)]
     ["Uncomment region" cperl-uncomment-region (use-region-p)]
     "----"
-    ["Run" mode-compile (fboundp 'mode-compile)]
-    ["Kill" mode-compile-kill (and (fboundp 'mode-compile-kill)
-                                   (get-buffer "*compilation*"))]
-    ["Next error" next-error (get-buffer "*compilation*")]
-    ["Check syntax" cperl-check-syntax (fboundp 'mode-compile)]
-    "----"
     ["Debugger" cperl-db t]
     "----"
     ("Tools"
@@ -6561,13 +6546,6 @@ side-effect of memorizing only.  Examples in 
`cperl-style-examples'."
            cperl-old-style (cdr cperl-old-style))
       (set (car setting) (cdr setting)))))
 
-(defvar perl-dbg-flags)
-(defun cperl-check-syntax ()
-  (interactive)
-  (require 'mode-compile)
-  (let ((perl-dbg-flags (concat cperl-extra-perl-args " -wc")))
-    (eval '(mode-compile))))           ; Avoid a warning
-
 (declare-function Info-find-node "info"
                  (filename nodename &optional no-going-back strict-case
                             noerror))