Mercurial > hg > xemacs-beta

diff lisp/psgml/psgml-html.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents b980b6286996
children
line wrap: on
line diff
--- a/lisp/psgml/psgml-html.el	Mon Aug 13 10:01:24 2007 +0200
+++ b/lisp/psgml/psgml-html.el	Mon Aug 13 10:02:21 2007 +0200
@@ -740,17 +740,20 @@
     (while (search-forward "&" end t)
       (forward-char -1)
       (delete-char 1)
-      (insert "&"))
+      (insert "&")
+      (setq end (+ 4 end)))
     (goto-char begin)
     (while (search-forward "<" end t)
       (forward-char -1)
       (delete-char 1)
-      (insert "&lt;"))
+      (insert "&lt;")
+      (setq end (+ 3 end)))
     (goto-char begin)
     (while (search-forward ">" end t)
       (forward-char -1)
       (delete-char 1)
-      (insert "&gt;"))))
+      (insert "&gt;")
+      (setq end (+ 3 end)))))
 
 ;;{{{ html-helper-insert-new-buffer-strings