(epa-key-list-mode): Use run-mode-hooks.

(epa-key-mode): Ditto.
(epa-info-mode): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b03b663fb836a900bc5ac2382b7214161c45719..65b7e033a960d32cb1aa9146c1911d5f96d8e723 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-07-17  Daiki Ueno  <ueno@unixuser.org>
+
+       * epa.el (epa-key-list-mode): Use run-mode-hooks.
+       (epa-key-mode): Ditto.
+       (epa-info-mode): Ditto.
+
 2008-07-17  Glenn Morris  <rgm@gnu.org>
 
        * term/ns-win.el (ns-handle-switch): Simplify.  Handle the numeric case.

diff --git a/lisp/epa.el b/lisp/epa.el
index 18c2ff3e289d05cbc350884996420c18e09f1744..2c86c5fdd4ce09c1e2dd4def369c1f1ca4ae8d4a 100644 (file)
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -327,7 +327,7 @@ You should bind this variable with `let', but do not set it globally.")
   (make-local-variable 'epa-exit-buffer-function)
   (make-local-variable 'revert-buffer-function)
   (setq revert-buffer-function 'epa--key-list-revert-buffer)
-  (run-hooks 'epa-key-list-mode-hook))
+  (run-mode-hooks 'epa-key-list-mode-hook))
 
 (defun epa-key-mode ()
   "Major mode for a key description."
@@ -344,7 +344,7 @@ You should bind this variable with `let', but do not set it globally.")
   ;; if buffer-file-name is not set.
   (font-lock-set-defaults)
   (make-local-variable 'epa-exit-buffer-function)
-  (run-hooks 'epa-key-mode-hook))
+  (run-mode-hooks 'epa-key-mode-hook))
 
 (defun epa-info-mode ()
   "Major mode for `epa-info-buffer'."
@@ -355,7 +355,7 @@ You should bind this variable with `let', but do not set it globally.")
        truncate-lines t
        buffer-read-only t)
   (use-local-map epa-info-mode-map)
-  (run-hooks 'epa-info-mode-hook))
+  (run-mode-hooks 'epa-info-mode-hook))
 
 (defun epa-mark-key (&optional arg)
   "Mark a key on the current line.