diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-03-06 21:55:33 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-03-06 21:55:33 +0000 |
| commit | 7d6b15536d1b2f057710bdcb05c66109f77aa507 (patch) | |
| tree | a8abfb472010681771817a21ae8d2491431b9010 | |
| parent | f076cc1527b7f2736ae85096891fe1e735bb0665 (diff) | |
| download | emacs-7d6b15536d1b2f057710bdcb05c66109f77aa507.tar.gz | |
(cperl-msb-fix, cperl-get-help-defer):
Check major-mode for `cperl-mode' as well.
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 8 |
1 files 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)))) |