diff options
| author | Chong Yidong | 2008-10-05 19:01:53 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-10-05 19:01:53 +0000 |
| commit | 98b692326801a07a6f4498dc12e07054c8b84a26 (patch) | |
| tree | 52c6083e68a505dfe7a3749ab7a939a629a31c1b | |
| parent | 50694105a69a4f15c290ac81de9064a546ec619f (diff) | |
| download | emacs-98b692326801a07a6f4498dc12e07054c8b84a26.tar.gz emacs-98b692326801a07a6f4498dc12e07054c8b84a26.zip | |
(xml-parse-string): Use skip-chars-forward.
| -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: | |||
| 494 | (defun xml-parse-string () | 494 | (defun xml-parse-string () |
| 495 | "Parse the next whatever. Could be a string, or an element." | 495 | "Parse the next whatever. Could be a string, or an element." |
| 496 | (let* ((pos (point)) | 496 | (let* ((pos (point)) |
| 497 | (string (progn (if (search-forward "<" nil t) | 497 | (string (progn (skip-chars-forward "^<") |
| 498 | (forward-char -1) | ||
| 499 | (goto-char (point-max))) | ||
| 500 | (buffer-substring-no-properties pos (point))))) | 498 | (buffer-substring-no-properties pos (point))))) |
| 501 | ;; Clean up the string. As per XML specifications, the XML | 499 | ;; Clean up the string. As per XML specifications, the XML |
| 502 | ;; processor should always pass the whole string to the | 500 | ;; processor should always pass the whole string to the |