:help-echo 'epa--key-widget-help-echo)
(defun epa--key-widget-action (widget &optional event)
- (epa--show-key (widget-get widget :value)))
+ (save-selected-window
+ (epa--show-key (widget-get widget :value))))
(defun epa--key-widget-value-create (widget)
(let* ((key (widget-get widget :value))
(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."
;; 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'."
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.