diff options
| author | Juri Linkov <juri@jurta.org> | 2006-01-17 00:53:03 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2006-01-17 00:53:03 +0000 |
| commit | 3d6ce9c2a70bc81ea856dfd906adc82874316445 (patch) | |
| tree | 3b83e281f983ea18ef854df6b434686078a8954c /lisp | |
| parent | cfc1ba0f618c53aff30c311ea1adcff76ff7ad92 (diff) | |
| download | emacs-3d6ce9c2a70bc81ea856dfd906adc82874316445.tar.gz | |
Add `coding: iso-2022-7bit' cookie.
(html-mode): Set `sentence-end-base' instead of `sentence-end'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 79e41cecfc1..77f625b8456 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -1,4 +1,4 @@ -;;; sgml-mode.el --- SGML- and HTML-editing modes +;;; sgml-mode.el --- SGML- and HTML-editing modes -*- coding: iso-2022-7bit -*- ;; Copyright (C) 1992, 1995, 1996, 1998, 2001, 2002, 2003, 2004, ;; 2005 Free Software Foundation, Inc. @@ -1828,12 +1828,9 @@ To work around that, do: (make-local-variable 'outline-regexp) (make-local-variable 'outline-heading-end-regexp) (make-local-variable 'outline-level) - (make-local-variable 'sentence-end) - (setq sentence-end - (if sentence-end-double-space - "[.?!][]\"')}]*\\(<[^>]*>\\)*\\($\\| $\\|\t\\| \\)[ \t\n]*" - "[.?!][]\"')}]*\\(<[^>]*>\\)*\\($\\|[ \t]\\)[ \t\n]*")) - (setq sgml-tag-alist html-tag-alist + (make-local-variable 'sentence-end-base) + (setq sentence-end-base "[.?!][]\"'$B!I$,1r}(B)}]*\\(<[^>]*>\\)*" + sgml-tag-alist html-tag-alist sgml-face-tag-alist html-face-tag-alist sgml-tag-help html-tag-help outline-regexp "^.*<[Hh][1-6]\\>" |