Minor formatting
This commit is contained in:
parent
bf74326b6d
commit
49106bf695
1 changed files with 3 additions and 1 deletions
4
kagi.el
4
kagi.el
|
@ -163,7 +163,9 @@ FastGPT with the following prompt:
|
||||||
(dolist (entry kagi--markup-to-face)
|
(dolist (entry kagi--markup-to-face)
|
||||||
(cl-destructuring-bind (start end face) entry
|
(cl-destructuring-bind (start end face) entry
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(let ((regexp (rx (seq (literal start) (group (*? any)) (literal end)))))
|
(let ((regexp (rx (seq (literal start)
|
||||||
|
(group (*? any))
|
||||||
|
(literal end)))))
|
||||||
(while (re-search-forward regexp nil t)
|
(while (re-search-forward regexp nil t)
|
||||||
(let ((escaped-replacement (string-replace "\\" "\\\\" (match-string 1))))
|
(let ((escaped-replacement (string-replace "\\" "\\\\" (match-string 1))))
|
||||||
(replace-match (propertize escaped-replacement 'font-lock-face face) t nil)
|
(replace-match (propertize escaped-replacement 'font-lock-face face) t nil)
|
||||||
|
|
Loading…
Reference in a new issue