[Emacs-diffs] Changes to emacs/lisp/textmodes/xml-lite.el

[Stefan Monnier]

Index: emacs/lisp/textmodes/xml-lite.el
diff -c emacs/lisp/textmodes/xml-lite.el:1.4 
emacs/lisp/textmodes/xml-lite.el:1.5
*** emacs/lisp/textmodes/xml-lite.el:1.4        Wed Mar 27 17:25:45 2002
--- emacs/lisp/textmodes/xml-lite.el    Wed Mar 27 17:27:44 2002
***************
*** 95,109 ****
      (bolp)))
  
  (defun xml-lite-in-string-p (&optional limit)
!   "Determine whether point is inside a string."
    (let (syntax-info)
      (or limit
          (setq limit (or (save-excursion 
                            (re-search-backward "^[ \t]*<" nil t))
                          (point-min))))
      (setq syntax-info (parse-partial-sexp limit (point)))
!     (if (nth 3 syntax-info)
!         (list (nth 3 syntax-info) (nth 8 syntax-info)))))
  
  
  ;; Parsing
--- 95,111 ----
      (bolp)))
  
  (defun xml-lite-in-string-p (&optional limit)
!   "Determine whether point is inside a string.
!  
! Parse begins from LIMIT, which defaults to the preceding occurence of a tag
! at the beginning of a line."
    (let (syntax-info)
      (or limit
          (setq limit (or (save-excursion 
                            (re-search-backward "^[ \t]*<" nil t))
                          (point-min))))
      (setq syntax-info (parse-partial-sexp limit (point)))
!     (if (nth 3 syntax-info) (nth 8 syntax-info))))
  
  
  ;; Parsing