# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1117114223 0
# Node ID 3848ecb8352f2fdebaa48659be618e7efb0db012
# Parent  8fd2f1761d1c7ecfd85b52564fce6828674ee209
(calc-mode, calc-trail-mode): Use run-mode-hooks.

diff -r 8fd2f1761d1c -r 3848ecb8352f lisp/calc/calc.el
--- a/lisp/calc/calc.el	Thu May 26 13:27:35 2005 +0000
+++ b/lisp/calc/calc.el	Thu May 26 13:30:23 2005 +0000
@@ -1131,7 +1131,7 @@
 	   (string-match "full" (nth 1 p))
 	   (setq calc-standalone-flag t))
       (setq p (cdr p))))
-  (run-hooks 'calc-mode-hook)
+  (run-mode-hooks 'calc-mode-hook)
   (calc-refresh t)
   (calc-set-mode-line)
   (calc-check-defines))
@@ -1181,7 +1181,7 @@
       (insert (propertize (concat "Emacs Calculator v" calc-version
 				  " by Dave Gillespie\n")
 			  'font-lock-face 'italic))))
-  (run-hooks 'calc-trail-mode-hook))
+  (run-mode-hooks 'calc-trail-mode-hook))
 
 (defun calc-create-buffer ()
   (set-buffer (get-buffer-create "*Calculator*"))