Merge pull request #1662 from sakurawald/fix-fill-width-in-listener-mode

fix: the *fill-width* option should not cause the prompt window in listener-mode out of window
lem-project · Dec 1, 2024 · f97dee6 · f97dee6
2 parents 136788a + a89771b
commit f97dee6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/extensions/lisp-mode/repl.lisp b/extensions/lisp-mode/repl.lisp
@@ -522,7 +522,8 @@
 (defvar *lisp-repl-shortcuts* '())
 
 (defmacro with-repl-prompt (() &body body)
-  `(let ((lem/prompt-window:*prompt-completion-window-shape* nil))
+  `(let ((lem/prompt-window:*prompt-completion-window-shape* nil)
+         (lem/prompt-window::*fill-width* nil))
      ,@body))
 
 (defun repl-prompt-for-string (prompt &rest args)

diff --git a/src/ext/listener-mode.lisp b/src/ext/listener-mode.lisp
@@ -348,7 +348,7 @@
           (*history-matched-string* nil)
           (*listener-window* (current-window)))
       (unwind-protect
-           (progn
+           (let ((lem/prompt-window::*fill-width* nil))
              (prompt-for-string
               "(reverse-i-search) "
               :special-keymap *history-isearch-keymap*