Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix the last commit

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-10-08 19:41:19 -07:00
parent 18b804680d
commit 2367b15a9c
1 changed files with 22 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
init.el
View File

@ -2208,8 +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 ((deactivate-mark nil) (let ((deactivate-mark nil))
(proc (get-buffer-process (current-buffer))) (when-let ((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))
@ -2229,7 +2229,7 @@ Note that this erases the buffer before doing anything."
(setf (plist-get props 'face) nil (setf (plist-get props 'face) nil
(plist-get props 'font-lock-face) face)) (plist-get props 'font-lock-face) face))
(set-text-properties (+ start i) (+ start change-i) props) (set-text-properties (+ start i) (+ start change-i) props)
(setq i change-i))))) (setq i change-i))))))
(defun my/-sly-cleanup-fontification-buffer () (defun my/-sly-cleanup-fontification-buffer ()
(when (buffer-live-p my/-sly-fontification-buffer) (when (buffer-live-p my/-sly-fontification-buffer)
(kill-buffer my/-sly-fontification-buffer))) (kill-buffer my/-sly-fontification-buffer)))