[nongnu] elpa/htmlize 73333fc 068/134: Add an option `htmlize-use-images' to turn off image generation.

[ELPA Syncer]

branch: elpa/htmlize
commit 73333fca2c0b44ce41e4b3b765e79149deb7ec59
Author: Hrvoje Niksic <hniksic@gmail.com>
Commit: Hrvoje Niksic <hniksic@gmail.com>

    Add an option `htmlize-use-images' to turn off image generation.
---
 htmlize.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/htmlize.el b/htmlize.el
index 311fb7c..1553277 100644
--- a/htmlize.el
+++ b/htmlize.el
@@ -131,6 +131,11 @@ sheet to carry around)."
   :type '(choice (const css) (const inline-css) (const font))
   :group 'htmlize)
 
+(defcustom htmlize-use-images t
+  "*Whether htmlize generates `img' for images attached to buffer contents."
+  :type 'boolean
+  :group 'htmlize)
+
 (defcustom htmlize-generate-hyperlinks t
   "*Non-nil means generate the hyperlinks for URLs and mail addresses.
 This is on by default; set it to nil if you don't want htmlize to
@@ -417,10 +422,12 @@ next-single-char-property-change")))
 
 (defun htmlize-usable-display-prop (display)
   (or (stringp display)
-      (eq (car-safe display) 'image)))
+      (and htmlize-use-images
+           (eq (car-safe display) 'image))))
 
-(defun htmlize-decode-display-prop (display)
+(defun htmlize-display-prop-to-html (display)
   (if (stringp display)
+      ;; Emacs ignores recursive display properties.
       (htmlize-protect-string display)
     (htmlize-generate-image (cdr display))))
 
@@ -440,7 +447,9 @@ next-single-char-property-change")))
       (setq display (get-char-property pos 'display string)
            next-change (next-single-property-change pos 'display string end))
       (if (htmlize-usable-display-prop display)
-          (push (htmlize-decode-display-prop display) outlist)
+          (push (htmlize-display-prop-to-html display) outlist)
+        ;; If we don't interpret the display prop, ignore it and show
+        ;; the string.
         (push (htmlize-protect-string (substring string pos next-change))
               outlist))
       (setq pos next-change))