(xml-parse-string): Use skip-chars-forward.

[gnu-emacs] / lisp / xml.el

diff --git a/lisp/xml.el b/lisp/xml.el
index 74a9ae83342ede17f5e92373e4b4498562a9a716..a6db29795b79816d8f7436ff6619f01d39189a60 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -494,9 +494,7 @@ Returns one of:
 (defun xml-parse-string ()
   "Parse the next whatever.  Could be a string, or an element."
   (let* ((pos (point))
-        (string (progn (if (search-forward "<" nil t)
-                           (forward-char -1)
-                         (goto-char (point-max)))
+        (string (progn (skip-chars-forward "^<")
                        (buffer-substring-no-properties pos (point)))))
     ;; Clean up the string.  As per XML specifications, the XML
     ;; processor should always pass the whole string to the