emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 6dfe252fff0: Delete commented out code from cperl-mode.el


From: Stefan Kangas
Subject: master 6dfe252fff0: Delete commented out code from cperl-mode.el
Date: Sun, 17 Sep 2023 17:44:50 -0400 (EDT)

branch: master
commit 6dfe252fff035fed7ad09a812d344a7fe309d2b3
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Delete commented out code from cperl-mode.el
    
    * lisp/progmodes/cperl-mode.el: Delete some commented out code.
---
 lisp/progmodes/cperl-mode.el | 20 +-------------------
 1 file changed, 1 insertion(+), 19 deletions(-)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 37ab900a476..68cfe766d0a 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -333,17 +333,7 @@ Affects: `cperl-font-lock', `cperl-electric-lbrace-space',
 (defcustom cperl-vc-rcs-header '("($rcs) = (' $Id\ $ ' =~ 
/(\\d+(\\.\\d+)+)/);")
   "Special version of `vc-rcs-header' that is used in CPerl mode buffers."
   :type '(repeat string)
-     :group 'cperl)
-
-;; (defcustom cperl-clobber-mode-lists
-;;   (not
-;;    (and
-;;     (boundp 'interpreter-mode-alist)
-;;     (assoc "miniperl" interpreter-mode-alist)
-;;     (assoc "\\.\\([pP][Llm]\\|al\\)$" auto-mode-alist)))
-;;   "Whether to install us into `interpreter-' and `extension' mode lists."
-;;   :type 'boolean
-;;   :group 'cperl)
+  :group 'cperl)
 
 (defcustom cperl-info-on-command-no-prompt nil
   "Not-nil (and non-null) means not to prompt on \\[cperl-info-on-command].
@@ -912,14 +902,6 @@ Unless KEEP, removes the old indentation."
       (delete-horizontal-space))
   (indent-to column minimum))
 
-;; Probably it is too late to set these guys already, but it can help later:
-
-;;(and cperl-clobber-mode-lists
-;;(setq auto-mode-alist
-;;      (append '(("\\.\\([pP][Llm]\\|al\\)$" . perl-mode))  auto-mode-alist ))
-;;(and (boundp 'interpreter-mode-alist)
-;;     (setq interpreter-mode-alist (append interpreter-mode-alist
-;;                                       '(("miniperl" . perl-mode))))))
 (eval-when-compile
   (mapc #'require '(imenu easymenu etags timer man info)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]