From 346169bfdcc1a50bfdb91865a75366053c239dd3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 18 Jan 1995 22:12:32 +0000 Subject: [PATCH] (scribe-mode): Treat @: as a sentence end. --- lisp/textmodes/scribe.el | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/lisp/textmodes/scribe.el b/lisp/textmodes/scribe.el index d664292c3d1..25815121002 100644 --- a/lisp/textmodes/scribe.el +++ b/lisp/textmodes/scribe.el @@ -5,21 +5,21 @@ ;; Maintainer: FSF ;; Keywords: wp -;; This file might become part of GNU Emacs. +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, -;; but without any warranty. No author or distributor -;; accepts responsibility to anyone for the consequences of using it -;; or for whether it serves any particular purpose or works at all, -;; unless he says so in writing. +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. -;; Everyone is granted permission to copy, modify and redistribute -;; GNU Emacs, but only under the conditions described in the -;; document "GNU Emacs copying permission notice". An exact copy -;; of the document is supposed to have been given to you along with -;; GNU Emacs so that you can know how you may redistribute it all. -;; It should be in a file named COPYING. Among other things, the -;; copyright notice and this notice must be preserved on all copies. +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to +;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: @@ -138,6 +138,8 @@ scribe-electric-parenthesis (make-local-variable 'paragraph-separate) (setq paragraph-separate (if scribe-fancy-paragraphs paragraph-start "^$")) + (make-local-variable 'sentence-end) + (setq sentence-end "\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") (make-local-variable 'compile-command) (setq compile-command (concat "scribe " (buffer-file-name))) (set-syntax-table scribe-mode-syntax-table)