Mercurial > emacs

comparison lisp/play/spook.el @ 4091:51d19cce579f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(snarf-spooks): Restore function.
author Roland McGrath <roland@gnu.org>
date Wed, 14 Jul 1993 23:38:00 +0000
parents 55e7bbf78b1a
children 83f275dcd93a
comparison
equal deleted inserted replaced
4090:afa2afad53c4 4091:51d19cce579f
1 ;;; spook.el --- spook phrase utility for overloading the NSA line eater 1 ;;; spook.el --- spook phrase utility for overloading the NSA line eater
2 2
3 ;; Copyright (C) 1988 Free Software Foundation, Inc. 3 ;; Copyright (C) 1988, 1993 Free Software Foundation, Inc.
4 4
5 ;; Maintainer: FSF 5 ;; Maintainer: FSF
6 ;; Keywords: games 6 ;; Keywords: games
7 ;; Created: May 1987 7 ;; Created: May 1987
8 8
47 47
48 ;;;###autoload 48 ;;;###autoload
49 (defun spook () 49 (defun spook ()
50 "Adds that special touch of class to your outgoing mail." 50 "Adds that special touch of class to your outgoing mail."
51 (interactive) 51 (interactive)
52 (cookie-insert 52 (cookie-insert spook-phrases-file
53 spook-phrases-file 53 spook-phrase-default-count
54 spook-phrase-default-count 54 "Checking authorization..."
55 "Checking authorization" 55 "Checking authorization...Approved"))
56 "Checking authorization...Approved"))
57 56
58 ;; Note: the implementation that used to take up most of this file has 57 ;;;###autoload
59 ;; been cleaned up and generalized and now resides in cookie1.el. 58 (defun snarf-spooks ()
59 "Return a vector containing the lines from `spook-phrases-file'."
60 (cookie-snarf spook-phrases-file
61 "Checking authorization..."
62 "Checking authorization...Approved"))
63
64 ;; Note: the implementation that used to take up most of this file has been
65 ;; cleaned up, generalized, gratuitously broken by esr, and now resides in
66 ;; cookie1.el.
60 67
61 ;;; spook.el ends here 68 ;;; spook.el ends here