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 |