# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 983915733 0
# Node ID 4bcc2745d610cb33faaaa55a97c480511f02213e
# Parent  2a84d5417fbd155374525dcb743332b2e990b07f
(cperl-msb-fix, cperl-get-help-defer):
Check major-mode for `cperl-mode' as well.

diff -r 2a84d5417fbd -r 4bcc2745d610 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Tue Mar 06 21:47:33 2001 +0000
+++ b/lisp/progmodes/cperl-mode.el	Tue Mar 06 21:55:33 2001 +0000
@@ -1558,7 +1558,7 @@
 	 (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 @@
     (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 @@
 	(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))))