From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 21 Jul 2003 09:58:06 +0000 (+0000)
Subject: (emacs-lisp-mode): Use run-mode-hooks.
X-Git-Tag: ttn-vms-21-2-B4~9288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb16e9326788b239a5d51adff4d2f99be9e80a56;p=emacs.git

(emacs-lisp-mode): Use run-mode-hooks.
(lisp-mode): Likewise.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index ca4e7f10a68..fa9661f54a5 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -320,7 +320,7 @@ if that value is non-nil."
   (setq mode-name "Emacs-Lisp")
   (lisp-mode-variables)
   (setq imenu-case-fold-search nil)
-  (run-hooks 'emacs-lisp-mode-hook))
+  (run-mode-hooks 'emacs-lisp-mode-hook))
 (put 'emacs-lisp-mode 'custom-mode-group 'lisp)
 
 (defvar lisp-mode-map
@@ -356,7 +356,7 @@ if that value is non-nil."
   (setq font-lock-keywords-case-fold-search t)
   (setq imenu-case-fold-search t)
   (set-syntax-table lisp-mode-syntax-table)
-  (run-hooks 'lisp-mode-hook))
+  (run-mode-hooks 'lisp-mode-hook))
 
 ;; This will do unless inf-lisp.el is loaded.
 (defun lisp-eval-defun (&optional and-go)