[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master af32299 1/3: Fix up previous window excursion patch in epa--selec
From: |
Lars Ingebrigtsen |
Subject: |
master af32299 1/3: Fix up previous window excursion patch in epa--select-keys |
Date: |
Wed, 30 Sep 2020 20:01:46 -0400 (EDT) |
branch: master
commit af32299331d79e5b8427a41f8dcf82ac083dc5c6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix up previous window excursion patch in epa--select-keys
* lisp/epa.el (epa--select-keys): Use save-window-excursion
instead of open-coding the macro.
---
lisp/epa.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/lisp/epa.el b/lisp/epa.el
index a2fb7f2..25e055c 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -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)