(define-key keymap "r" 'epa-delete-keys)
(define-key keymap "i" 'epa-import-keys)
(define-key keymap "o" 'epa-export-keys)
- (define-key keymap "g" 'epa-list-keys)
+ (define-key keymap "g" 'revert-buffer)
(define-key keymap "n" 'next-line)
(define-key keymap "p" 'previous-line)
(define-key keymap " " 'scroll-up)
;; if buffer-file-name is not set.
(font-lock-set-defaults)
(make-local-variable 'epa-exit-buffer-function)
+ (make-local-variable 'revert-buffer-function)
+ (setq revert-buffer-function 'epa--revert-buffer)
(run-hooks 'epa-key-list-mode-hook))
(defun epa-key-mode ()
(if epa-list-keys-arguments
(car epa-list-keys-arguments)))))
(list (if (equal name "") nil name)))
- (or epa-list-keys-arguments (list nil nil))))
+ (list nil)))
(epa--list-keys name nil))
;;;###autoload
(if epa-list-keys-arguments
(car epa-list-keys-arguments)))))
(list (if (equal name "") nil name)))
- (or epa-list-keys-arguments (list nil nil))))
+ (list nil)))
(epa--list-keys name t))
+(defun epa--revert-buffer (&optional ignore-auto noconfirm)
+ (apply #'epa--list-keys epa-list-keys-arguments))
+
(defun epa--marked-keys ()
(or (save-excursion
(set-buffer epa-keys-buffer)