mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-28 08:02:40 -07:00
Code Issues Projects Releases Wiki Activity

Eglot: fix thinko in recent markdown-related commit (bug#81063)

Browse source 
* lisp/progmodes/eglot.el (eglot--format-markup): Correct return value
for gfm-view-mode.
This commit is contained in:
Brian Leung 2026-05-17 19:22:39 +01:00 • committed by João Távora
parent 36036e71c0
commit 6c1829bf4c
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/eglot.el
View file

@ -2255,12 +2255,13 @@ If MODE, force MODE to be used for fontifying MARKUP."
for to = (or (next-single-property-change from 'invisible) for to = (or (next-single-property-change from 'invisible)
(point-max)) (point-max))
when inv when inv
do (put-text-property from to 'invisible t))) do (put-text-property from to 'invisible t)
finally return (buffer-string)))
(calc2 (forced-mode) (calc2 (forced-mode)
(cond (cond
(forced-mode `(,forced-mode)) (forced-mode `(,forced-mode))
(built-in `(,#'markdown-ts-view-mode)) (built-in `(,#'markdown-ts-view-mode))
((fboundp 'gfm-view-mode) `(,#'gfm-view-mode #'gfm-extract)) ((fboundp 'gfm-view-mode) `(,#'gfm-view-mode ,#'gfm-extract))
(t `(#'text-mode)))) (t `(#'text-mode))))
(calc (s &optional (forced-mode mode) &aux (x (calc2 forced-mode))) (calc (s &optional (forced-mode mode) &aux (x (calc2 forced-mode)))
(setq string s render (car x) extract (or (cadr x) #'buffer-string)))) (setq string s render (car x) extract (or (cadr x) #'buffer-string))))