From e45502331b9c4073da3cc77418676798d32c59fe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 22 Aug 1997 21:59:21 +0000 Subject: [PATCH] Customized. --- lisp/textmodes/nroff-mode.el | 17 +++++++++--- lisp/textmodes/paragraphs.el | 54 ++++++++++++++++++++++++------------ 2 files changed, 49 insertions(+), 22 deletions(-) diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el index 0e9182ada07..a44f797098e 100644 --- a/lisp/textmodes/nroff-mode.el +++ b/lisp/textmodes/nroff-mode.el @@ -35,12 +35,19 @@ ;;; Code: +(defgroup nroff nil + "Nroff mode." + :group 'editing + :prefix "nroff-") + (defvar nroff-mode-abbrev-table nil "Abbrev table used while in nroff mode.") (define-abbrev-table 'nroff-mode-abbrev-table ()) -(defvar nroff-electric-mode nil - "*Non-nil means automatically closing requests when you insert an open.") +(defcustom nroff-electric-mode nil + "*Non-nil means automatically closing requests when you insert an open." + :group 'nroff + :type 'boolean) (defvar nroff-mode-map nil "Major mode keymap for nroff mode.") @@ -57,7 +64,7 @@ (defvar nroff-mode-syntax-table nil "Syntax table used while in nroff mode.") -(defvar nroff-font-lock-keywords +(defcustom nroff-font-lock-keywords (list ;; Directives are . or ' at start of line, followed by ;; optional whitespace, then command (which my be longer than @@ -78,7 +85,9 @@ ) "\\|") "\\)") ) - "Font-lock highlighting control in nroff-mode.") + "Font-lock highlighting control in nroff-mode." + :group 'nroff + :type '(repeat regexp)) ;;;###autoload (defun nroff-mode () diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 6a22338ef7d..ffb03724781 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el @@ -1,6 +1,7 @@ ;;; paragraphs.el --- paragraph and sentence parsing. -;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96 Free Software Foundation, Inc. +;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp @@ -29,9 +30,16 @@ ;;; Code: -(defvar use-hard-newlines nil +(defgroup paragraphs nil + "Paragraph and sentence parsing." + :group 'editing) + +(defcustom use-hard-newlines nil "Non-nil means to distinguish hard and soft newlines. -See documentation for the `use-hard-newlines' function.") +See documentation for the `use-hard-newlines' function." + :set '(lambda (symbol value) (use-hard-newlines (or value 0))) + :group 'paragraphs + :type 'boolean) (make-variable-buffer-local 'use-hard-newlines) (defun use-hard-newlines (&optional arg insert) @@ -85,7 +93,7 @@ to paragraphs. The fill functions insert and delete only soft newlines." (point) (1+ (point)))))))))))) (setq use-hard-newlines t))) -(defvar paragraph-start "[ \t\n\f]" "\ +(defcustom paragraph-start "[ \t\n\f]" "\ *Regexp for beginning of a line that starts OR separates paragraphs. This regexp should match lines that separate paragraphs and should also match lines that start a paragraph @@ -100,7 +108,9 @@ The variable `paragraph-separate' specifies how to distinguish lines that start paragraphs from lines that separate them. If the variable `use-hard-newlines' is nonnil, then only lines following a -hard newline are considered to match.") +hard newline are considered to match." + :group 'paragraphs + :type 'regexp) ;; paragraph-start requires a hard newline, but paragraph-separate does not: ;; It is assumed that paragraph-separate is distinctive enough to be believed @@ -108,29 +118,37 @@ hard newline are considered to match.") ;; something very minimal, even including "." (which makes every hard newline ;; start a new paragraph). -(defvar paragraph-separate "[ \t\f]*$" "\ -*Regexp for beginning of a line that separates paragraphs. +(defcustom paragraph-separate "[ \t\f]*$" + "*Regexp for beginning of a line that separates paragraphs. If you change this, you may have to change paragraph-start also. This is matched against the text at the left margin, which is not necessarily the beginning of the line, so it should not use \"^\" as an anchor. This ensures that the paragraph functions will work equally within a region of -text indented by a margin setting.") +text indented by a margin setting." + :group 'paragraphs + :type 'regexp) -(defvar sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") "\ -*Regexp describing the end of a sentence. +(defcustom sentence-end (purecopy "[.?!][]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*") + "*Regexp describing the end of a sentence. All paragraph boundaries also end sentences, regardless. In order to be recognized as the end of a sentence, the ending period, question mark, or exclamation point must be followed by two spaces, -unless it's inside some sort of quotes or parenthesis.") - -(defvar page-delimiter "^\014" "\ -*Regexp describing line-beginnings that separate pages.") - -(defvar paragraph-ignore-fill-prefix nil "\ -Non-nil means the paragraph commands are not affected by `fill-prefix'. -This is desirable in modes where blank lines are the paragraph delimiters.") +unless it's inside some sort of quotes or parenthesis." + :group 'paragraphs + :type 'regexp) + +(defcustom page-delimiter "^\014" + "*Regexp describing line-beginnings that separate pages." + :group 'paragraphs + :type 'regexp) + +(defcustom paragraph-ignore-fill-prefix nil + "*Non-nil means the paragraph commands are not affected by `fill-prefix'. +This is desirable in modes where blank lines are the paragraph delimiters." + :group 'paragraphs + :type 'boolean) (defun forward-paragraph (&optional arg) "Move forward to end of paragraph. -- 2.39.2