branch: externals/hyperbole
commit 876ad5cea716a549f3a3f1429e5a50fe0848b72c
Author: Stefan Monnier <[email protected]>
Commit: Mats Lidell <[email protected]>
* hargs.el (hargs:set-string-to-complete): Don't mess with windows
---
hargs.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/hargs.el b/hargs.el
index f0178a1225..4cee338726 100644
--- a/hargs.el
+++ b/hargs.el
@@ -276,8 +276,7 @@ Optional DEFAULT-PROMPT is used to describe default value."
(defun hargs:set-string-to-complete ()
"Store the current minibuffer contents into `hargs:string-to-complete'."
- (save-window-excursion
- (set-buffer (window-buffer (minibuffer-window)))
+ (with-current-buffer (window-buffer (minibuffer-window))
(setq hargs:string-to-complete (minibuffer-contents-no-properties))
(when (equal hargs:string-to-complete "")
(setq hargs:string-to-complete nil))))
