[emacs-wiki-discuss] emacs-wiki-publish: bug in escape-html-string function

[Jim Ottaway]

The function `emacs-wiki-escape-html-string' occasionally throws an
error: "Wrong type argument: integerp, nil"; here is a fixed version.

Regards,

Jim Ottaway

--- orig/emacs-wiki-publish.el
+++ mod/emacs-wiki-publish.el
 
@@ -1258,12 +1258,12 @@
   (when str
     (let (pos code len char)
       (save-match-data
-        (while (setq pos (string-match
-                          (concat "[^-"
-                                  emacs-wiki-regexp-alnum
-                                  "/:address@hidden")
-                          str pos)
-                     char (aref str pos))
+        (while (and (setq pos (string-match
+                              (concat "[^-"
+                                      emacs-wiki-regexp-alnum
+                                      "/:address@hidden")
+                              str pos))
+                     (setq char (aref str pos)))
           ;; Work around XEmacs differentiation of char and int
           (setq code (int-to-string
                       (cond ((fboundp 'char-to-ucs)


-- 
Jim Ottaway