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 | 996e261628ce03519bb249b138920909f7352266 (patch) | |
| tree | 9edcb6286152de7e245b55b5b7c305efa8a64469 /lisp/progmodes/cperl-mode.el | |
| parent | 029cb4d5b5f5be3187a4e3eaa338e30d1c9051fe (diff) | |
| download | emacs-996e261628ce03519bb249b138920909f7352266.tar.gz | |
(cperl-msb-fix, cperl-get-help-defer):
Check major-mode for `cperl-mode' as well.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -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)))) |