diff options
Diffstat (limited to 'lisp/xml.el')
| -rw-r--r-- | lisp/xml.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/xml.el b/lisp/xml.el index 74a9ae83342..a6db29795b7 100644 --- 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 |