comparison lisp/textmodes/sgml-mode.el @ 24463:9ef31386cb47

(html-mode): Use sentence-end-double-space when setting sentence-end.
author Dave Love <fx@gnu.org>
date Tue, 09 Mar 1999 19:24:33 +0000
parents e2c5b1571392
children d2a4359531e0
comparison
equal deleted inserted replaced
24462:9c3beaed253e 24463:9ef31386cb47
1195 (make-local-variable 'outline-regexp) 1195 (make-local-variable 'outline-regexp)
1196 (make-local-variable 'outline-heading-end-regexp) 1196 (make-local-variable 'outline-heading-end-regexp)
1197 (make-local-variable 'outline-level) 1197 (make-local-variable 'outline-level)
1198 (make-local-variable 'sentence-end) 1198 (make-local-variable 'sentence-end)
1199 (setq sentence-end 1199 (setq sentence-end
1200 "[.?!][]\"')}]*\\(<[^>]*>\\)*\\($\\| $\\|\t\\| \\)[ \t\n]*") 1200 (if sentence-end-double-space
1201 "[.?!][]\"')}]*\\(<[^>]*>\\)*\\($\\| $\\|\t\\| \\)[ \t\n]*"
1202
1203 "[.?!][]\"')}]*\\(<[^>]*>\\)*\\($\\| \\|\t\\)[ \t\n]*"))
1201 (setq sgml-tag-alist html-tag-alist 1204 (setq sgml-tag-alist html-tag-alist
1202 sgml-face-tag-alist html-face-tag-alist 1205 sgml-face-tag-alist html-face-tag-alist
1203 sgml-tag-help html-tag-help 1206 sgml-tag-help html-tag-help
1204 outline-regexp "^.*<[Hh][1-6]\\>" 1207 outline-regexp "^.*<[Hh][1-6]\\>"
1205 outline-heading-end-regexp "</[Hh][1-6]>" 1208 outline-heading-end-regexp "</[Hh][1-6]>"