Fix being unable to set the mark in the sly fonification buffer
This commit is contained in:
3
init.el
3
init.el
@ -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))
|
||||||
|
Reference in New Issue
Block a user