Commit 5d1fd962 authored by Chong Yidong's avatar Chong Yidong
Browse files

* textmodes/sgml-mode.el (sgml-lexical-context): Recognise

comment-start-skip to comment-end-skip as comment (Bug#4781).
parent 022eef62
2009-12-05 Kevin Ryde <user42@zip.com.au>
* textmodes/sgml-mode.el (sgml-lexical-context): Recognise
comment-start-skip to comment-end-skip as comment (Bug#4781).
2009-12-05 Juri Linkov <juri@jurta.org>
* info.el (Info-find-node-2): Set `Info-current-subfile' to nil
......
......@@ -1066,6 +1066,12 @@ If nil, start from a preceding tag at indentation."
(let ((cdata-start (point)))
(unless (search-forward "]]>" pos 'move)
(list 0 nil nil 'cdata nil nil nil nil cdata-start))))
((looking-at comment-start-skip)
;; parse-partial-sexp doesn't handle <!-- comments -->,
;; or only if ?- is in sgml-specials, so match explicitly
(let ((start (point)))
(unless (re-search-forward comment-end-skip pos 'move)
(list 0 nil nil nil t nil nil nil start))))
((and sgml-xml-mode (looking-at "<\\?"))
;; Processing Instructions.
;; In SGML, it's basically a normal tag of the form
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment