Refactor ox-clip advice to omit before/after props

This commit is contained in:
Henrik Lissner 2021-03-22 01:41:26 -04:00
parent 18e1795a98
commit 1b4b077385

View file

@ -47,10 +47,5 @@ properties and font-locking et all)."
(_ (_
;; Omit after/before-string overlay properties in htmlized regions, so we ;; Omit after/before-string overlay properties in htmlized regions, so we
;; don't get fringe characters for things like flycheck or git-gutter. ;; don't get fringe characters for things like flycheck or git-gutter.
(letf! (defun htmlize-get-text-with-display (beg end) (letf! (defun htmlize-add-before-after-strings (_beg _end text) text)
(let ((text (buffer-substring-no-properties beg end)))
(htmlize-copy-prop 'display beg end text)
(htmlize-copy-prop 'htmlize-link beg end text)
;; (setq text (htmlize-add-before-after-strings beg end text))
text))
(ox-clip-formatted-copy beg end))))) (ox-clip-formatted-copy beg end)))))