diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-10-05 19:01:53 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-10-05 19:01:53 +0000 |
| commit | 98b692326801a07a6f4498dc12e07054c8b84a26 (patch) | |
| tree | 52c6083e68a505dfe7a3749ab7a939a629a31c1b /lisp/xml.el | |
| parent | 50694105a69a4f15c290ac81de9064a546ec619f (diff) | |
| download | emacs-98b692326801a07a6f4498dc12e07054c8b84a26.tar.gz | |
(xml-parse-string): Use skip-chars-forward.
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 |