diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-25 13:53:37 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-25 13:53:37 -0400 |
| commit | 397eb3f3e779ed4bd20facb34e4b418f65540643 (patch) | |
| tree | b9352164bd11df295538c5d7bf665c563e57e35d /lisp/epa.el | |
| parent | 605d1fd9a9a619c8c60f26a1bd72eaf6aa845cb3 (diff) | |
| download | emacs-397eb3f3e779ed4bd20facb34e4b418f65540643.tar.gz | |
* epa.el (epa--select-keys): Don't explicitly delete the window since
that can fail (e.g. sole window in frame). Use dedication instead.
Diffstat (limited to 'lisp/epa.el')
| -rw-r--r-- | lisp/epa.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/epa.el b/lisp/epa.el index ea438f0073a..8d77d6938b1 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -508,13 +508,12 @@ If ARG is non-nil, mark the key." (set-keymap-parent (current-local-map) widget-keymap) (setq epa-exit-buffer-function #'abort-recursive-edit) (goto-char (point-min)) - (pop-to-buffer (current-buffer))) + (let ((display-buffer-mark-dedicated 'soft)) + (pop-to-buffer (current-buffer)))) (unwind-protect (progn (recursive-edit) (epa--marked-keys)) - (if (get-buffer-window epa-keys-buffer) - (delete-window (get-buffer-window epa-keys-buffer))) (kill-buffer epa-keys-buffer)))) ;;;###autoload |