Mercurial > emacs
comparison lisp/progmodes/cperl-mode.el @ 58190:71f3f7fc6fcd
run-mode-hooks instead of run-hooks
author | Daniel Pfeiffer <occitan@esperanto.org> |
---|---|
date | Fri, 12 Nov 2004 23:47:30 +0000 |
parents | e47d2626afd7 |
children | 4ca1b78a471f b637c617432f |
comparison
equal
deleted
inserted
replaced
58189:9817ad6b6fe4 | 58190:71f3f7fc6fcd |
---|---|
1542 (and (boundp 'msb-menu-cond) | 1542 (and (boundp 'msb-menu-cond) |
1543 (not cperl-msb-fixed) | 1543 (not cperl-msb-fixed) |
1544 (cperl-msb-fix)) | 1544 (cperl-msb-fix)) |
1545 (if (featurep 'easymenu) | 1545 (if (featurep 'easymenu) |
1546 (easy-menu-add cperl-menu)) ; A NOP in Emacs. | 1546 (easy-menu-add cperl-menu)) ; A NOP in Emacs. |
1547 (run-hooks 'cperl-mode-hook) | 1547 (run-mode-hooks 'cperl-mode-hook) |
1548 ;; After hooks since fontification will break this | 1548 ;; After hooks since fontification will break this |
1549 (if cperl-pod-here-scan | 1549 (if cperl-pod-here-scan |
1550 (or cperl-syntaxify-by-font-lock | 1550 (or cperl-syntaxify-by-font-lock |
1551 (progn (or cperl-faces-init (cperl-init-faces-weak)) | 1551 (progn (or cperl-faces-init (cperl-init-faces-weak)) |
1552 (cperl-find-pods-heres))))) | 1552 (cperl-find-pods-heres))))) |