/[emacs]/emacs/lisp/textmodes/xml-lite.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/xml-lite.el

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

revision 1.4 by monnier, Wed Mar 27 22:25:45 2002 UTC revision 1.5 by monnier, Wed Mar 27 22:27:44 2002 UTC
# Line 95  Set this to nil if you don't want a mode Line 95  Set this to nil if you don't want a mode
95      (bolp)))      (bolp)))
96    
97  (defun xml-lite-in-string-p (&optional limit)  (defun xml-lite-in-string-p (&optional limit)
98    "Determine whether point is inside a string."    "Determine whether point is inside a string.
99    
100    Parse begins from LIMIT, which defaults to the preceding occurence of a tag
101    at the beginning of a line."
102    (let (syntax-info)    (let (syntax-info)
103      (or limit      (or limit
104          (setq limit (or (save-excursion          (setq limit (or (save-excursion
105                            (re-search-backward "^[ \t]*<" nil t))                            (re-search-backward "^[ \t]*<" nil t))
106                          (point-min))))                          (point-min))))
107      (setq syntax-info (parse-partial-sexp limit (point)))      (setq syntax-info (parse-partial-sexp limit (point)))
108      (if (nth 3 syntax-info)      (if (nth 3 syntax-info) (nth 8 syntax-info))))
         (list (nth 3 syntax-info) (nth 8 syntax-info)))))  
109    
110    
111  ;; Parsing  ;; Parsing

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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