(bb-up, bb-down): Revert 2007-10-21 change and

[gnu-emacs] / lisp / play / bruce.el

diff --git a/lisp/play/bruce.el b/lisp/play/bruce.el
index 46fa59bdec9abb19effd92c549f512dff518a3b4..69ac85a55bae37ee9f444e7913de8fd7e145ceb7 100644 (file)
--- a/lisp/play/bruce.el
+++ b/lisp/play/bruce.el
@@ -1,7 +1,8 @@
-;;; bruce.el --- bruce phrase utility for overloading the Communications
+;;; bruce.el --- bruce phrase utility for overloading the Communications -*- no-byte-compile: t -*-
 ;;; Decency Act snoops, if any.
 
-;; Copyright (C) 1988, 1993, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1988, 1993, 1997, 2001, 2002, 2003, 2004,
+;;   2005, 2006, 2007 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: games
@@ -11,7 +12,7 @@
 
 ;; 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)
+;; the Free Software Foundation; either version 3, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -21,14 +22,14 @@
 
 ;; 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, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
 ;; This program was written to protest the miss-named "Communications
 ;; Decency Act of 1996. This Act bans "indecent speech", whatever that is,
-;; from the internet. For more on the CDA, see Richard Stallman's essay on
+;; from the Internet. For more on the CDA, see Richard Stallman's essay on
 ;; censorship, included in the etc directory of emacs distributions 19.34
 ;; and up. See also http://www.eff.org/blueribbon.html.
 
@@ -56,7 +57,7 @@
 ;; data file from which to select words at random. Sorry about that. I
 ;; believe the average user will be able to come up with a few words on
 ;; his or her own. If that is a problem, feel free to ask any American
-;; teenager, preferrably one who attends a government school. Failing
+;; teenager, preferably one who attends a government school. Failing
 ;; that, you might write to Mr. Clinton or Ms Reno or their successors and
 ;; ask them for suggestions. Think of it as a public spirited act: the
 ;; time they spend answering you is time not spent persecuting someone
@@ -70,7 +71,7 @@
 ;; ascii 0s.
 
 ;; Once you have edited up a data file, you have to tell emacs how to find
-;; the program bruce. Add the follwing two lines to your .emacs file. Be
+;; the program bruce. Add the following two lines to your .emacs file. Be
 ;; sure to uncomment the second line.
 
 ;; for bruce mode
@@ -106,11 +107,20 @@
 (require 'cookie1)
 
 ; Variables
-(defvar bruce-phrases-file "~/bruce.lines"
-   "Keep your favorite phrases here.")
+(defgroup bruce nil
+  "Insert phrases selected at random from a file into a buffer."
+  :prefix "bruce-"
+  :group 'games)
 
-(defvar bruce-phrase-default-count 15
-   "Default number of phrases to insert")
+(defcustom bruce-phrases-file "~/bruce.lines"
+  "Keep your favourite phrases here."
+  :type 'file
+  :group 'bruce)
+
+(defcustom bruce-phrase-default-count 15
+  "Default number of phrases to insert."
+  :type 'integer
+  :group 'bruce)
 
 ;;;###autoload
 (defun bruce ()
@@ -136,4 +146,7 @@
 ;; cleaned up, generalized, gratuitously broken by esr, and now resides in
 ;; cookie1.el.
 
+(provide 'bruce)
+
+;;; arch-tag: b83ded51-4ccb-41ef-8bd6-3b521e81dd9b
 ;;; bruce.el ends here