From 2ea1c4aa5eb1b462a8c653d10d3205b8b428a95e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 9 Dec 2009 05:56:53 +0000 Subject: [PATCH] Drop some properties to avoid surprises. * htmlfontify.el (hfy-ignored-properties): New defcustom. (hfy-fontify-buffer): Use it. --- lisp/ChangeLog | 6 ++++++ lisp/htmlfontify.el | 14 ++++++++++++++ 2 files changed, 20 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bbb1b5d8103..6aefbd112df 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-12-09 Vivek Dasmohapatra + + Drop some properties to avoid surprises. + * htmlfontify.el (hfy-ignored-properties): New defcustom. + (hfy-fontify-buffer): Use it. + 2009-12-09 Stefan Monnier Minor cleanup. diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index af82a140c94..d5fba48c45a 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el @@ -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 -- 2.39.5