diff options
| author | Lute Kamstra | 2005-05-26 13:30:23 +0000 |
|---|---|---|
| committer | Lute Kamstra | 2005-05-26 13:30:23 +0000 |
| commit | d74fa98c012bb90aa499cf4ce3ed9ed2fe789814 (patch) | |
| tree | 23f0b776b79c488091edf6cfffe24ec4e36f0248 | |
| parent | 5c5fb26b814fa5ca38a678ea547a5a017333cbfb (diff) | |
| download | emacs-d74fa98c012bb90aa499cf4ce3ed9ed2fe789814.tar.gz emacs-d74fa98c012bb90aa499cf4ce3ed9ed2fe789814.zip | |
(calc-mode, calc-trail-mode): Use run-mode-hooks.
| -rw-r--r-- | lisp/calc/calc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 173785dc912..27623907d45 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el | |||
| @@ -1131,7 +1131,7 @@ Notations: 3.14e6 3.14 * 10^6 | |||
| 1131 | (string-match "full" (nth 1 p)) | 1131 | (string-match "full" (nth 1 p)) |
| 1132 | (setq calc-standalone-flag t)) | 1132 | (setq calc-standalone-flag t)) |
| 1133 | (setq p (cdr p)))) | 1133 | (setq p (cdr p)))) |
| 1134 | (run-hooks 'calc-mode-hook) | 1134 | (run-mode-hooks 'calc-mode-hook) |
| 1135 | (calc-refresh t) | 1135 | (calc-refresh t) |
| 1136 | (calc-set-mode-line) | 1136 | (calc-set-mode-line) |
| 1137 | (calc-check-defines)) | 1137 | (calc-check-defines)) |
| @@ -1181,7 +1181,7 @@ commands given here will actually operate on the *Calculator* stack." | |||
| 1181 | (insert (propertize (concat "Emacs Calculator v" calc-version | 1181 | (insert (propertize (concat "Emacs Calculator v" calc-version |
| 1182 | " by Dave Gillespie\n") | 1182 | " by Dave Gillespie\n") |
| 1183 | 'font-lock-face 'italic)))) | 1183 | 'font-lock-face 'italic)))) |
| 1184 | (run-hooks 'calc-trail-mode-hook)) | 1184 | (run-mode-hooks 'calc-trail-mode-hook)) |
| 1185 | 1185 | ||
| 1186 | (defun calc-create-buffer () | 1186 | (defun calc-create-buffer () |
| 1187 | (set-buffer (get-buffer-create "*Calculator*")) | 1187 | (set-buffer (get-buffer-create "*Calculator*")) |