comparison lisp/play/bruce.el @ 42041:b4eeb5fd09f9

Fix typos.
author Pavel Janík <Pavel@Janik.cz>
date Sat, 15 Dec 2001 10:32:44 +0000
parents f1fc193b6958
children 33d53d287ee4
comparison
equal deleted inserted replaced
42040:e9b0a8b3214e 42041:b4eeb5fd09f9
26 26
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;; This program was written to protest the miss-named "Communications 29 ;; This program was written to protest the miss-named "Communications
30 ;; Decency Act of 1996. This Act bans "indecent speech", whatever that is, 30 ;; Decency Act of 1996. This Act bans "indecent speech", whatever that is,
31 ;; from the internet. For more on the CDA, see Richard Stallman's essay on 31 ;; from the Internet. For more on the CDA, see Richard Stallman's essay on
32 ;; censorship, included in the etc directory of emacs distributions 19.34 32 ;; censorship, included in the etc directory of emacs distributions 19.34
33 ;; and up. See also http://www.eff.org/blueribbon.html. 33 ;; and up. See also http://www.eff.org/blueribbon.html.
34 34
35 ;; For many years, emacs has included a program called Spook. This program 35 ;; For many years, emacs has included a program called Spook. This program
36 ;; adds a series of "keywords" to email just before it goes out. On the 36 ;; adds a series of "keywords" to email just before it goes out. On the
54 ;; However, in order to comply with the CDA as interpreted by Richard 54 ;; However, in order to comply with the CDA as interpreted by Richard
55 ;; Stallman (see the essay on censorship), bruce is distributed without a 55 ;; Stallman (see the essay on censorship), bruce is distributed without a
56 ;; data file from which to select words at random. Sorry about that. I 56 ;; data file from which to select words at random. Sorry about that. I
57 ;; believe the average user will be able to come up with a few words on 57 ;; believe the average user will be able to come up with a few words on
58 ;; his or her own. If that is a problem, feel free to ask any American 58 ;; his or her own. If that is a problem, feel free to ask any American
59 ;; teenager, preferrably one who attends a government school. Failing 59 ;; teenager, preferably one who attends a government school. Failing
60 ;; that, you might write to Mr. Clinton or Ms Reno or their successors and 60 ;; that, you might write to Mr. Clinton or Ms Reno or their successors and
61 ;; ask them for suggestions. Think of it as a public spirited act: the 61 ;; ask them for suggestions. Think of it as a public spirited act: the
62 ;; time they spend answering you is time not spent persecuting someone 62 ;; time they spend answering you is time not spent persecuting someone
63 ;; else. However, do ask them to respond by snail mail, where their 63 ;; else. However, do ask them to respond by snail mail, where their
64 ;; suggestions would be legal. 64 ;; suggestions would be legal.
68 ;; to be followed by an ascii 0, control-@. See the file spook.lines in 68 ;; to be followed by an ascii 0, control-@. See the file spook.lines in
69 ;; the etc directory for an example. In emacs, use c-q c-@ to insert the 69 ;; the etc directory for an example. In emacs, use c-q c-@ to insert the
70 ;; ascii 0s. 70 ;; ascii 0s.
71 71
72 ;; Once you have edited up a data file, you have to tell emacs how to find 72 ;; Once you have edited up a data file, you have to tell emacs how to find
73 ;; the program bruce. Add the follwing two lines to your .emacs file. Be 73 ;; the program bruce. Add the following two lines to your .emacs file. Be
74 ;; sure to uncomment the second line. 74 ;; sure to uncomment the second line.
75 75
76 ;; for bruce mode 76 ;; for bruce mode
77 ;; (autoload 'bruce "bruce" "Use the Bruce program to protest the CDA" t) 77 ;; (autoload 'bruce "bruce" "Use the Bruce program to protest the CDA" t)
78 78
110 "Insert phrases selected at random from a file into a buffer." 110 "Insert phrases selected at random from a file into a buffer."
111 :prefix "bruce-" 111 :prefix "bruce-"
112 :group 'games) 112 :group 'games)
113 113
114 (defcustom bruce-phrases-file "~/bruce.lines" 114 (defcustom bruce-phrases-file "~/bruce.lines"
115 "Keep your favorite phrases here." 115 "Keep your favourite phrases here."
116 :type 'file 116 :type 'file
117 :group 'bruce) 117 :group 'bruce)
118 118
119 (defcustom bruce-phrase-default-count 15 119 (defcustom bruce-phrase-default-count 15
120 "Default number of phrases to insert." 120 "Default number of phrases to insert."