From 98b692326801a07a6f4498dc12e07054c8b84a26 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 5 Oct 2008 19:01:53 +0000 Subject: (xml-parse-string): Use skip-chars-forward. --- lisp/xml.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'lisp/xml.el') diff --git a/lisp/xml.el b/lisp/xml.el index 74a9ae8334..a6db29795b 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 -- cgit v1.2.3