Mercurial > emacs
comparison lisp/textmodes/sgml-mode.el @ 92748:ef656c281e1e
(sgml-font-lock-syntactic-keywords): Mark " outside of tags as punctuation.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 12 Mar 2008 03:15:13 +0000 |
| parents | f991f10f15ec |
| children | f4a69fedbd46 |
comparison
equal
deleted
inserted
replaced
| 92747:98f0d29f01c5 | 92748:ef656c281e1e |
|---|---|
| 290 (defvar sgml-font-lock-syntactic-keywords | 290 (defvar sgml-font-lock-syntactic-keywords |
| 291 ;; Use the `b' style of comments to avoid interference with the -- ... -- | 291 ;; Use the `b' style of comments to avoid interference with the -- ... -- |
| 292 ;; comments recognized when `sgml-specials' includes ?-. | 292 ;; comments recognized when `sgml-specials' includes ?-. |
| 293 ;; FIXME: beware of <!--> blabla <!--> !! | 293 ;; FIXME: beware of <!--> blabla <!--> !! |
| 294 '(("\\(<\\)!--" (1 "< b")) | 294 '(("\\(<\\)!--" (1 "< b")) |
| 295 ("--[ \t\n]*\\(>\\)" (1 "> b"))) | 295 ("--[ \t\n]*\\(>\\)" (1 "> b")) |
| 296 ;; Double quotes outside of tags should not introduce strings. | |
| 297 ("\\\"" (0 (if (zerop (car (syntax-ppss))) ".")))) | |
| 296 "Syntactic keywords for `sgml-mode'.") | 298 "Syntactic keywords for `sgml-mode'.") |
| 297 | 299 |
| 298 ;; internal | 300 ;; internal |
| 299 (defvar sgml-face-tag-alist () | 301 (defvar sgml-face-tag-alist () |
| 300 "Alist of face and tag name for facemenu.") | 302 "Alist of face and tag name for facemenu.") |