mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(snarf-spooks): Restore function.

Browse Source
This commit is contained in:
Roland McGrath 1993-07-14 23:38:00 +00:00
parent 4054367c9e
commit 215aa4f9c9
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/play/spook.el
View File

@ -1,6 +1,6 @@
;;; spook.el --- spook phrase utility for overloading the NSA line eater
;; Copyright (C) 1988 Free Software Foundation, Inc.
;; Copyright (C) 1988, 1993 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: games
@ -49,13 +49,20 @@
(defun spook ()
"Adds that special touch of class to your outgoing mail."
(interactive)
(cookie-insert
spook-phrases-file
spook-phrase-default-count
"Checking authorization"
"Checking authorization...Approved"))
(cookie-insert spook-phrases-file
spook-phrase-default-count
"Checking authorization..."
"Checking authorization...Approved"))
;; Note: the implementation that used to take up most of this file has
;; been cleaned up and generalized and now resides in cookie1.el.
;;;###autoload
(defun snarf-spooks ()
"Return a vector containing the lines from `spook-phrases-file'."
(cookie-snarf spook-phrases-file
"Checking authorization..."
"Checking authorization...Approved"))
;; Note: the implementation that used to take up most of this file has been
;; cleaned up, generalized, gratuitously broken by esr, and now resides in
;; cookie1.el.
;;; spook.el ends here