Mercurial > emacs

comparison lisp/textmodes/sgml-mode.el @ 68223:69be9c945c82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add `coding: iso-2022-7bit' cookie. (html-mode): Set `sentence-end-base' instead of `sentence-end'.
author Juri Linkov <juri@jurta.org>
date Tue, 17 Jan 2006 00:53:03 +0000
parents a11fdee52c05
children 067115a6e738 d88caeac70d7
comparison
equal deleted inserted replaced
68222:c18c4be711f4 68223:69be9c945c82
1 ;;; sgml-mode.el --- SGML- and HTML-editing modes 1 ;;; sgml-mode.el --- SGML- and HTML-editing modes -*- coding: iso-2022-7bit -*-
2 2
3 ;; Copyright (C) 1992, 1995, 1996, 1998, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1992, 1995, 1996, 1998, 2001, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc. 4 ;; 2005 Free Software Foundation, Inc.
5 5
6 ;; Author: James Clark <jjc@jclark.com> 6 ;; Author: James Clark <jjc@jclark.com>
1826 (make-local-variable 'sgml-face-tag-alist) 1826 (make-local-variable 'sgml-face-tag-alist)
1827 (make-local-variable 'sgml-tag-help) 1827 (make-local-variable 'sgml-tag-help)
1828 (make-local-variable 'outline-regexp) 1828 (make-local-variable 'outline-regexp)
1829 (make-local-variable 'outline-heading-end-regexp) 1829 (make-local-variable 'outline-heading-end-regexp)
1830 (make-local-variable 'outline-level) 1830 (make-local-variable 'outline-level)
1831 (make-local-variable 'sentence-end) 1831 (make-local-variable 'sentence-end-base)
1832 (setq sentence-end 1832 (setq sentence-end-base "[.?!][]\"'$B!I$,1r}(B)}]*\\(<[^>]*>\\)*"
1833 (if sentence-end-double-space 1833 sgml-tag-alist html-tag-alist
1834 "[.?!][]\"')}]*\\(<[^>]*>\\)*\\($\\| $\\|\t\\| \\)[ \t\n]*"
1835 "[.?!][]\"')}]*\\(<[^>]*>\\)*\\($\\|[ \t]\\)[ \t\n]*"))
1836 (setq sgml-tag-alist html-tag-alist
1837 sgml-face-tag-alist html-face-tag-alist 1834 sgml-face-tag-alist html-face-tag-alist
1838 sgml-tag-help html-tag-help 1835 sgml-tag-help html-tag-help
1839 outline-regexp "^.*<[Hh][1-6]\\>" 1836 outline-regexp "^.*<[Hh][1-6]\\>"
1840 outline-heading-end-regexp "</[Hh][1-6]>" 1837 outline-heading-end-regexp "</[Hh][1-6]>"
1841 outline-level (lambda () 1838 outline-level (lambda ()