Fix being unable to set the mark in the sly fonification buffer

This commit is contained in:
2025-10-08 19:14:45 -07:00
parent de7e77c1ea
commit 18b804680d

View File

@ -2208,7 +2208,8 @@ Note that this erases the buffer before doing anything."
,@body)) ,@body))
(defun my/-sly-fontify-current-input () (defun my/-sly-fontify-current-input ()
"Function called from `post-command-hook' to fontify the current input." "Function called from `post-command-hook' to fontify the current input."
(when-let ((proc (get-buffer-process (current-buffer))) (when-let ((deactivate-mark nil)
(proc (get-buffer-process (current-buffer)))
(start (process-mark proc)) (start (process-mark proc))
(end (point-max)) (end (point-max))
(input (buffer-substring-no-properties start end)) (input (buffer-substring-no-properties start end))