v0.8.3: remove startup info messages from chat history
Remove the add-msg :system calls that printed * Swank <port> * and * <backend> backend WxH * — purely informational/debug messages that cluttered the first lines of the chat window.
This commit is contained in:
@@ -946,17 +946,13 @@ Returns T on success, nil on failure. Does NOT wait or retry."
|
||||
(*error-output* (make-string-output-stream)))
|
||||
(funcall (find-symbol "CREATE-SERVER" "SWANK")
|
||||
:port swank-port :dont-close t))
|
||||
(add-msg :system
|
||||
(format nil "* Swank ~d M-x slime-connect *" swank-port)))
|
||||
(values))
|
||||
(error ()
|
||||
(add-msg :system "* Swank unavailable *"))))
|
||||
(cl-tty.backend:with-terminal (be w h)
|
||||
;; stty -icanon -echo -ixon is set by the bash script.
|
||||
;; We read directly from SBCL's stdin (fd 0) since the
|
||||
;; terminal is in raw mode — no cat subprocess needed.
|
||||
(add-msg :system (format nil "* ~a backend ~dx~d *"
|
||||
(if (typep be 'cl-tty.backend:modern-backend) "modern" "simple")
|
||||
w h))
|
||||
;; stty -icanon -echo -ixon is set by the bash script.
|
||||
;; We read directly from SBCL's stdin (fd 0) since the
|
||||
;; terminal is in raw mode — no cat subprocess needed.
|
||||
;; Initial dirty all to trigger first redraw in loop
|
||||
(setq w (or (and (numberp w) (> w 0) w) 80)
|
||||
h (or (and (numberp h) (> h 0) h) 24))
|
||||
|
||||
Reference in New Issue
Block a user