[nongnu] elpa/htmlize 5ce4c6e 083/134: Support XEmacs again.

[ELPA Syncer]

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

    Support XEmacs again.
---
 htmlize.el | 33 ++++++++++++++++++++++++---------
 1 file changed, 24 insertions(+), 9 deletions(-)

diff --git a/htmlize.el b/htmlize.el
index 2a15f26..1eba34b 100644
--- a/htmlize.el
+++ b/htmlize.el
@@ -332,7 +332,7 @@ output.")
  (htmlize-running-xemacs
   (defun htmlize-next-change (pos prop &optional limit)
     (if prop
-        (next-single-property-change pos prop nil (or limit (point-max)))
+        (next-single-char-property-change pos prop nil (or limit (point-max)))
       (next-property-change pos nil (or limit (point-max)))))
   (defun htmlize-next-face-change (pos &optional limit)
     (htmlize-next-change pos 'face limit)))
@@ -375,6 +375,22 @@ next-single-char-property-change")))
     ;; cl extensions have a macro implementing lexical let
     `(lexical-let ,@letforms)))
 
+;; Simple overlay emulation for XEmacs
+
+(cond
+ (running-xemacs
+  (defalias 'htmlize-make-overlay 'make-extent)
+  (defalias 'htmlize-overlay-put 'set-extent-property)
+  (defalias 'htmlize-overlay-get 'extent-property)
+  (defun htmlize-overlays-in (beg end) (extent-list nil beg end))
+  (defalias 'htmlize-delete-overlay 'detach-extent))
+ (t
+  (defalias 'htmlize-make-overlay 'make-overlay)
+  (defalias 'htmlize-overlay-put 'overlay-put)
+  (defalias 'htmlize-overlay-get 'overlay-get)
+  (defalias 'htmlize-overlays-in 'overlays-in)
+  (defalias 'htmlize-delete-overlay 'delete-overlay)))
+
 
 ;;; Transformation of buffer text: HTML escapes, untabification, etc.
 
@@ -773,23 +789,22 @@ This is used to protect mailto links without modifying 
their meaning."
   string)
 
 (defun htmlize-make-tmp-overlay (beg end props)
-  (let ((overlay (make-overlay beg end)))
-    (overlay-put overlay 'htmlize-tmp-overlay t)
+  (let ((overlay (htmlize-make-overlay beg end)))
+    (htmlize-overlay-put overlay 'htmlize-tmp-overlay t)
     (while props
-      (overlay-put overlay (pop props) (pop props)))
+      (htmlize-overlay-put overlay (pop props) (pop props)))
     overlay))
 
 (defun htmlize-delete-tmp-overlays ()
-  (dolist (overlay (overlays-in (point-min) (point-max)))
-    (when (overlay-get overlay 'htmlize-tmp-overlay)
-      (delete-overlay overlay))))
+  (dolist (overlay (htmlize-overlays-in (point-min) (point-max)))
+    (when (htmlize-overlay-get overlay 'htmlize-tmp-overlay)
+      (htmlize-delete-overlay overlay))))
 
 (defun htmlize-make-link-overlay (beg end uri)
   (htmlize-make-tmp-overlay beg end `(htmlize-link (:uri ,uri))))
 
 (defun htmlize-create-auto-links ()
-  "Add `htmlize-link' property to all mailto links in the buffer.
-Returns the list of created overlays."
+  "Add `htmlize-link' property to all mailto links in the buffer."
   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward