mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(xml-lite-in-string-p): Simplify.

Browse Source
This commit is contained in:
Stefan Monnier 2002-03-27 22:27:44 +00:00
parent 7a5fb450aa
commit 843e95014b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/xml-lite.el
View File

@ -95,15 +95,17 @@ Set this to nil if you don't want a modeline indicator for xml-lite-mode."
(bolp)))
(defun xml-lite-in-string-p (&optional limit)
"Determine whether point is inside a string."
"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)
(list (nth 3 syntax-info) (nth 8 syntax-info)))))
(if (nth 3 syntax-info) (nth 8 syntax-info))))
;; Parsing