emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/corfu 7af9ca840e 2/2: Revert "HACK: Try to fix focus is


From: ELPA Syncer
Subject: [elpa] externals/corfu 7af9ca840e 2/2: Revert "HACK: Try to fix focus issue on Lucid/Athena toolkit (See #159)"
Date: Mon, 9 May 2022 06:57:23 -0400 (EDT)

branch: externals/corfu
commit 7af9ca840e371704c25011f31a6aecfbba0e8cdf
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Revert "HACK: Try to fix focus issue on Lucid/Athena toolkit (See #159)"
    
    This reverts commit 688170e70a7485fbce364aa53b0704d8e57ea4c0.
---
 corfu.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/corfu.el b/corfu.el
index 18199362e1..c3cc2d9eca 100644
--- a/corfu.el
+++ b/corfu.el
@@ -866,8 +866,7 @@ there hasn't been any input, then quit."
       (corfu--candidates-popup beg)
       (corfu--preview-current beg end)
       (corfu--echo-documentation)
-      (redisplay 'force) ;; XXX HACK Ensure that popup is redisplayed
-      (x-focus-frame (selected-frame))) ;; XXX HACK Try to fix focus 
(Lucid/Athena)
+      (redisplay 'force)) ;; XXX HACK Ensure that popup is redisplayed
      ;; 4) There are no candidates & corfu-quit-no-match => Confirmation popup.
      ((and (not corfu--candidates)
            (pcase-exhaustive corfu-quit-no-match
@@ -875,8 +874,7 @@ there hasn't been any input, then quit."
              ('nil t)
              ('separator (seq-contains-p (car corfu--input) corfu-separator))))
       (corfu--popup-show beg 0 8 '(#("No match" 0 8 (face italic))))
-      (redisplay 'force) ;; XXX HACK Ensure that popup is redisplayed
-      (x-focus-frame (selected-frame))) ;; XXX HACK Try to fix focus 
(Lucid/Athena)
+      (redisplay 'force)) ;; XXX HACK Ensure that popup is redisplayed
      (t (corfu-quit)))))
 
 (defun corfu--pre-command ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]