branch: elpa/htmlize
commit a8b73f1393b2d73541ba4a8fd716c0d07ce50276
Author: Hrvoje Niksic <[email protected]>
Commit: Hrvoje Niksic <[email protected]>
New option htmlize-untabify. (#21)
---
htmlize.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/htmlize.el b/htmlize.el
index 3584b83..4a499ec 100644
--- a/htmlize.el
+++ b/htmlize.el
@@ -302,6 +302,11 @@ example:
This variable can be also be `let' bound when running `htmlize-buffer'.")
+(defcustom htmlize-untabify t
+ "Non-nil means untabify buffer contents during htmlization."
+ :type 'boolean
+ :group 'htmlize)
+
(defcustom htmlize-html-major-mode nil
"The mode the newly created HTML buffer will be put in.
Set this to nil if you prefer the default (fundamental) mode."
@@ -710,7 +715,7 @@ list."
(setf (aref v i) (make-string i ?\ )))
v))
-(defun htmlize-untabify (text start-column)
+(defun htmlize-untabify-string (text start-column)
"Untabify TEXT, assuming it starts at START-COLUMN."
(let ((column start-column)
(last-match 0)
@@ -762,7 +767,8 @@ list."
(setq trailing-ellipsis
(get-text-property (1- (length text))
'htmlize-ellipsis text)))
- (setq text (htmlize-untabify text (current-column)))
+ (when htmlize-untabify
+ (setq text (htmlize-untabify-string text (current-column))))
(setq text (htmlize-string-to-html text))
(values text trailing-ellipsis)))
