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 | 5a995965858f372fbcd128fbe5b4dcf37b98c580 (patch) | |
| tree | 2c97ed65bbdb53ccd5a849162b715d171122ba57 /lisp/xml.el | |
| parent | 858af2a56a27a582940f300becc6c9ca7a486879 (diff) | |
| download | emacs-5a995965858f372fbcd128fbe5b4dcf37b98c580.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 |