/[emacs]/emacs/lisp/xml.el
ViewVC logotype

Diff of /emacs/lisp/xml.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by lektu, Sun Mar 16 10:46:54 2003 UTC revision 1.18 by lektu, Thu Mar 20 18:01:04 2003 UTC
# Line 294  Leaves the point on the first non-blank Line 294  Leaves the point on the first non-blank
294        ;;  or a simple word ?        ;;  or a simple word ?
295        (if (looking-at "\"\\([^\"]*\\)\"")        (if (looking-at "\"\\([^\"]*\\)\"")
296            (setq start-pos (match-beginning 0))            (setq start-pos (match-beginning 0))
297          (if (looking-at "'\\([^']*\\)")          (if (looking-at "'\\([^']*\\)'")
298              (setq start-pos (match-beginning 0))              (setq start-pos (match-beginning 0))
299            (error "XML: Attribute values must be given between quotes")))            (error "XML: Attribute values must be given between quotes")))
300    
# Line 314  Leaves the point on the first non-blank Line 314  Leaves the point on the first non-blank
314        (goto-char start-pos)        (goto-char start-pos)
315        (if (looking-at "\"\\([^\"]*\\)\"")        (if (looking-at "\"\\([^\"]*\\)\"")
316            (goto-char (match-end 0))            (goto-char (match-end 0))
317          (if (looking-at "'\\([^']*\\)")          (if (looking-at "'\\([^']*\\)'")
318              (goto-char (match-end 0))))              (goto-char (match-end 0))))
319    
320        (goto-char (- (re-search-forward "[^ \t\n\r]") 1))        (goto-char (- (re-search-forward "[^ \t\n\r]") 1))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26