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))))) |