From f3dc5f3ee74335cd2f825be111af47e95e96ad93 Mon Sep 17 00:00:00 2001 From: sakurawald Date: Sun, 1 Dec 2024 14:38:11 +0800 Subject: [PATCH 1/2] fix: the *fill-width* option should not cause the prompt window in listener-mode out of window --- src/ext/listener-mode.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ext/listener-mode.lisp b/src/ext/listener-mode.lisp index 0003e2f60..e7e33250c 100644 --- 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* From a89771b22a8963695df64566ec51b837bb647cb1 Mon Sep 17 00:00:00 2001 From: sakurawald Date: Sun, 1 Dec 2024 14:57:02 +0800 Subject: [PATCH 2/2] fix: the fill-width option in `repl-mode`. --- extensions/lisp-mode/repl.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extensions/lisp-mode/repl.lisp b/extensions/lisp-mode/repl.lisp index 4f347f065..8e74c81aa 100644 --- 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)