Mercurial > emacs
comparison lisp/play/spook.el @ 21363:f1fc193b6958
Customized.
author | Stephen Eglen <stephen@gnu.org> |
---|---|
date | Sun, 05 Apr 1998 16:14:58 +0000 |
parents | 11218164bc54 |
children | dbb638e8f5d5 |
comparison
equal
deleted
inserted
replaced
21362:a45af443a262 | 21363:f1fc193b6958 |
---|---|
38 ;;; Code: | 38 ;;; Code: |
39 | 39 |
40 (require 'cookie1) | 40 (require 'cookie1) |
41 | 41 |
42 ; Variables | 42 ; Variables |
43 (defvar spook-phrases-file (concat data-directory "spook.lines") | 43 (defgroup spook nil |
44 "Keep your favorite phrases here.") | 44 "Spook phrase utility for overloading the NSA line eater." |
45 :prefix "spook-" | |
46 :group 'games) | |
45 | 47 |
46 (defvar spook-phrase-default-count 15 | 48 (defcustom spook-phrases-file (concat data-directory "spook.lines") |
47 "Default number of phrases to insert") | 49 "Keep your favorite phrases here." |
50 :type 'file | |
51 :group 'spook) | |
52 | |
53 (defcustom spook-phrase-default-count 15 | |
54 "Default number of phrases to insert." | |
55 :type 'integer | |
56 :group 'spook) | |
48 | 57 |
49 ;;;###autoload | 58 ;;;###autoload |
50 (defun spook () | 59 (defun spook () |
51 "Adds that special touch of class to your outgoing mail." | 60 "Adds that special touch of class to your outgoing mail." |
52 (interactive) | 61 (interactive) |