[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog htmlfontify.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog htmlfontify.el |
Date: |
Wed, 09 Dec 2009 05:56:57 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog htmlfontify.el,
Stefan Monnier <=