diff options
| author | Daiki Ueno <ueno@unixuser.org> | 2008-07-17 06:21:14 +0000 |
|---|---|---|
| committer | Daiki Ueno <ueno@unixuser.org> | 2008-07-17 06:21:14 +0000 |
| commit | 64cc2f2cca248c8e8ce2e5a24129042173349208 (patch) | |
| tree | 61ff828560b1b2a38dde14d952259ad9c5c5eb38 /lisp | |
| parent | facfbbbdad272decb23553d827fbc2c0fabaf078 (diff) | |
| download | emacs-64cc2f2cca248c8e8ce2e5a24129042173349208.tar.gz | |
(epa-key-list-mode): Use run-mode-hooks.
(epa-key-mode): Ditto.
(epa-info-mode): Ditto.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 <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 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. |