# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1137459183 0
# Node ID 69be9c945c82c710b5cbdafc5179b9b967b1c522
# Parent  c18c4be711f4448b01c388509a198886036fe61e
Add `coding: iso-2022-7bit' cookie.
(html-mode): Set `sentence-end-base' instead of `sentence-end'.

diff -r c18c4be711f4 -r 69be9c945c82 lisp/textmodes/sgml-mode.el
--- a/lisp/textmodes/sgml-mode.el	Tue Jan 17 00:51:53 2006 +0000
+++ b/lisp/textmodes/sgml-mode.el	Tue Jan 17 00:53:03 2006 +0000
@@ -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 @@
   (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]\\>"