From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 22 Aug 1997 21:59:21 +0000 (+0000)
Subject: Customized.
X-Git-Tag: emacs-20.1~473
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e45502331b9c4073da3cc77418676798d32c59fe;p=emacs.git

Customized.
---

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.