procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix up previous window excursion patch in epa--select-keys

Browse source 
* lisp/epa.el (epa--select-keys): Use save-window-excursion
instead of open-coding the macro.
This commit is contained in:
Lars Ingebrigtsen 2020-10-01 01:44:05 +02:00
parent fdaceeb8b4
commit af32299331
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/epa.el
View file

@ -435,7 +435,7 @@ q trust status questionable. - trust status unspecified.
(unless (and epa-keys-buffer
(buffer-live-p epa-keys-buffer))
(setq epa-keys-buffer (generate-new-buffer "*Keys*")))
(let ((conf (current-window-configuration)))
(save-window-excursion
(with-current-buffer epa-keys-buffer
(epa-key-list-mode)
;; C-c C-c is the usual way to finish the selection (bug#11159).
@ -462,8 +462,7 @@ q trust status questionable. - trust status unspecified.
(progn
(recursive-edit)
(epa--marked-keys))
(kill-buffer epa-keys-buffer)
(set-window-configuration conf)))))
(kill-buffer epa-keys-buffer)))))
;;;###autoload
(defun epa-select-keys (context prompt &optional names secret)