Mercurial > emacs
changeset 36602:4bcc2745d610
(cperl-msb-fix, cperl-get-help-defer):
Check major-mode for `cperl-mode' as well.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 06 Mar 2001 21:55:33 +0000 |
| parents | 2a84d5417fbd |
| children | 24397e66d5d9 |
| files | lisp/progmodes/cperl-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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))))