[elpa] externals/corfu 3e472cd: corfu--restore-on-next-command: Restore other window scrolling

[ELPA Syncer]

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

    corfu--restore-on-next-command: Restore other window scrolling
    
    See #98
---
 corfu.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/corfu.el b/corfu.el
index e514b65..0682ac6 100644
--- a/corfu.el
+++ b/corfu.el
@@ -898,11 +898,12 @@ there hasn't been any input, then quit."
         (restore (make-symbol "corfu--restore")))
     (fset restore
           (lambda ()
-            (when (memq this-command '(corfu-quit corfu-reset))
-              (setq this-command #'ignore))
-            (remove-hook 'pre-command-hook restore)
             (setq other-window-scroll-buffer other)
-            (set-window-configuration config)))
+            (unless (memq this-command '(scroll-other-window 
scroll-other-window-down))
+              (when (memq this-command '(corfu-quit corfu-reset))
+                (setq this-command #'ignore))
+              (remove-hook 'pre-command-hook restore)
+              (set-window-configuration config))))
     (add-hook 'pre-command-hook restore)))
 
 ;; Company support, taken from `company.el', see `company-show-doc-buffer'.