More very minor sliced preview improvements

Signed-off-by: main <magic_rb@redalder.org>
This commit is contained in:
main 2022-12-11 20:40:47 +01:00
parent 18afbadf1f
commit d22c02c6cc
No known key found for this signature in database
GPG key ID: 08D5287CC5DDCA0E

View file

@ -177,10 +177,10 @@ Normally a LaTeX preview is just one huge image which makes Emacs really jumpy a
(if (> dy (- image-height y))
'(:ascent center)
'(:ascent center)))))
;; remove any fontification face so the images don't get colored
(put-text-property (line-beginning-position) (line-end-position)
'face
nil))
;; ;; remove any fontification face so the images don't get colored
;; (put-text-property (line-beginning-position) (line-end-position)
;; 'face
;; nil))
(forward-line 1)
(setq y (+ y dy))))
@ -194,9 +194,10 @@ Normally a LaTeX preview is just one huge image which makes Emacs really jumpy a
(with-silent-modifications
(put-text-property beg end
'display
(list image-spec))))
(list (append image-spec '(:ascent center))))))
(with-silent-modifications
(put-text-property beg end 'line-height t))))
(put-text-property beg end 'line-height t)
(font-lock-fontify-region beg end)))))
#+end_src