From 996e261628ce03519bb249b138920909f7352266 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 6 Mar 2001 21:55:33 +0000 Subject: [PATCH] (cperl-msb-fix, cperl-get-help-defer): Check major-mode for `cperl-mode' as well. --- lisp/progmodes/cperl-mode.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 89ffe55e15c..5b5400a81ce 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1558,7 +1558,7 @@ or as help on variables `cperl-tips', `cperl-problems', (handle (1- (nth 1 last)))) (setcdr precdr (list (list - '(eq major-mode 'perl-mode) + '(memq major-mode '(cperl-mode perl-mode)) handle "Perl Files (%d)") last)))) @@ -4299,9 +4299,7 @@ indentation and initial hashes. Behaves usually outside of comment." (add-hook 'font-lock-mode-hook (function (lambda () - (if (or - (eq major-mode 'perl-mode) - (eq major-mode 'cperl-mode)) + (if (memq major-mode '(perl-mode cperl-mode)) (progn (or cperl-faces-init (cperl-init-faces))))))) (if (fboundp 'eval-after-load) @@ -6855,7 +6853,7 @@ We suppose that the regexp is scanned already." (setq cperl-help-shown nil)) (defun cperl-get-help-defer () - (if (not (eq major-mode 'perl-mode)) nil + (when (memq major-mode '(perl-mode cperl-mode)) (let ((cperl-message-on-help-error nil) (cperl-help-from-timer t)) (cperl-get-help) (setq cperl-help-shown t)))) -- 2.39.5