Commit 2ea1c4aa authored by Stefan Monnier's avatar Stefan Monnier
Browse files

Drop some properties to avoid surprises.

* htmlfontify.el (hfy-ignored-properties): New defcustom.
(hfy-fontify-buffer): Use it.
parent 9e250ccc
2009-12-09 Vivek Dasmohapatra <vivek@etla.org>
Drop some properties to avoid surprises.
* htmlfontify.el (hfy-ignored-properties): New defcustom.
(hfy-fontify-buffer): Use it.
2009-12-09 Stefan Monnier <monnier@iro.umontreal.ca>
Minor cleanup.
......
......@@ -377,6 +377,18 @@ commands in `hfy-etags-cmd-alist'."
:tag "shell-file-name"
:type '(file))
(defcustom hfy-ignored-properties '(read-only
intangible
modification-hooks
insert-in-front-hooks
insert-behind-hooks
point-entered
point-left)
"Properties to omit when copying a fontified buffer for html transformation."
:group 'htmlfontify
:tag "ignored-properties"
:type '(repeat symbol))
(defun hfy-which-etags ()
"Return a string indicating which flavour of etags we are using."
(let ((v (shell-command-to-string (concat hfy-etags-bin " --version"))))
......@@ -1622,6 +1634,8 @@ FILE, if set, is the file name."
(delete-overlay rovl))
(copy-to-buffer html-buffer (point-min) (point-max))
(set-buffer html-buffer)
;; rip out props that could interfere with our htmlisation of the buffer:
(remove-text-properties (point-min) (point-max) hfy-ignored-properties)
;; Apply overlay invisible spec
(setq orig-ovls
(sort orig-ovls
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment