Mercurial > emacs
comparison lisp/textmodes/scribe.el @ 10460:b2e37a1d2347
(scribe-mode): Treat @: as a sentence end.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 18 Jan 1995 22:12:32 +0000 |
parents | 9e7ec92a4fdf |
children | e9418d324071 |
comparison
equal
deleted
inserted
replaced
10459:67966e17d9d1 | 10460:b2e37a1d2347 |
---|---|
3 ;; Copyright (C) 1985 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Maintainer: FSF | 5 ;; Maintainer: FSF |
6 ;; Keywords: wp | 6 ;; Keywords: wp |
7 | 7 |
8 ;; This file might become part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
9 | 14 |
10 ;; GNU Emacs is distributed in the hope that it will be useful, | 15 ;; GNU Emacs is distributed in the hope that it will be useful, |
11 ;; but without any warranty. No author or distributor | 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 ;; accepts responsibility to anyone for the consequences of using it | 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 ;; or for whether it serves any particular purpose or works at all, | 18 ;; GNU General Public License for more details. |
14 ;; unless he says so in writing. | 19 |
15 | 20 ;; You should have received a copy of the GNU General Public License |
16 ;; Everyone is granted permission to copy, modify and redistribute | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to |
17 ;; GNU Emacs, but only under the conditions described in the | 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
18 ;; document "GNU Emacs copying permission notice". An exact copy | |
19 ;; of the document is supposed to have been given to you along with | |
20 ;; GNU Emacs so that you can know how you may redistribute it all. | |
21 ;; It should be in a file named COPYING. Among other things, the | |
22 ;; copyright notice and this notice must be preserved on all copies. | |
23 | 23 |
24 ;;; Commentary: | 24 ;;; Commentary: |
25 | 25 |
26 ;; A major mode for editing source in written for the Scribe text formatter. | 26 ;; A major mode for editing source in written for the Scribe text formatter. |
27 ;; Knows about Scribe syntax and standard layout rules. The command to | 27 ;; Knows about Scribe syntax and standard layout rules. The command to |
136 scribe-close-parentheses | 136 scribe-close-parentheses |
137 "]$\\)")) | 137 "]$\\)")) |
138 (make-local-variable 'paragraph-separate) | 138 (make-local-variable 'paragraph-separate) |
139 (setq paragraph-separate (if scribe-fancy-paragraphs | 139 (setq paragraph-separate (if scribe-fancy-paragraphs |
140 paragraph-start "^$")) | 140 paragraph-start "^$")) |
141 (make-local-variable 'sentence-end) | |
142 (setq sentence-end "\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") | |
141 (make-local-variable 'compile-command) | 143 (make-local-variable 'compile-command) |
142 (setq compile-command (concat "scribe " (buffer-file-name))) | 144 (setq compile-command (concat "scribe " (buffer-file-name))) |
143 (set-syntax-table scribe-mode-syntax-table) | 145 (set-syntax-table scribe-mode-syntax-table) |
144 (run-hooks 'text-mode-hook 'scribe-mode-hook)) | 146 (run-hooks 'text-mode-hook 'scribe-mode-hook)) |
145 | 147 |