[Emacs-diffs] emacs/lisp ChangeLog htmlfontify.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/12/09 05:56:56

Modified files:
        lisp           : ChangeLog htmlfontify.el 

Log message:
        Drop some properties to avoid surprises.
        * htmlfontify.el (hfy-ignored-properties): New defcustom.
        (hfy-fontify-buffer): Use it.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16873&r2=1.16874
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/htmlfontify.el?cvsroot=emacs&r1=1.5&r2=1.6

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16873
retrieving revision 1.16874
diff -u -b -r1.16873 -r1.16874
--- ChangeLog   9 Dec 2009 02:11:29 -0000       1.16873
+++ ChangeLog   9 Dec 2009 05:56:53 -0000       1.16874
@@ -1,3 +1,9 @@
+2009-12-09  Vivek Dasmohapatra  <address@hidden>
+
+       Drop some properties to avoid surprises.
+       * htmlfontify.el (hfy-ignored-properties): New defcustom.
+       (hfy-fontify-buffer): Use it.
+
 2009-12-09  Stefan Monnier  <address@hidden>
 
        Minor cleanup.

Index: htmlfontify.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/htmlfontify.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- htmlfontify.el      1 Dec 2009 09:28:22 -0000       1.5
+++ htmlfontify.el      9 Dec 2009 05:56:56 -0000       1.6
@@ -377,6 +377,18 @@
   :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 @@
       (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