From 64cc2f2cca248c8e8ce2e5a24129042173349208 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Thu, 17 Jul 2008 06:21:14 +0000 Subject: [PATCH] (epa-key-list-mode): Use run-mode-hooks. (epa-key-mode): Ditto. (epa-info-mode): Ditto. --- lisp/ChangeLog | 6 ++++++ lisp/epa.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5b03b663fb8..65b7e033a96 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-07-17 Daiki Ueno + + * epa.el (epa-key-list-mode): Use run-mode-hooks. + (epa-key-mode): Ditto. + (epa-info-mode): Ditto. + 2008-07-17 Glenn Morris * term/ns-win.el (ns-handle-switch): Simplify. Handle the numeric case. diff --git a/lisp/epa.el b/lisp/epa.el index 18c2ff3e289..2c86c5fdd4c 100644 --- 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. -- 2.39.2