From: Roland McGrath <roland@gnu.org>
Date: Wed, 14 Jul 1993 23:38:00 +0000 (+0000)
Subject: (snarf-spooks): Restore function.
X-Git-Tag: emacs-19.34~11760
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=215aa4f9c9c61bb85f5b49d62667165a012097f0;p=emacs.git

(snarf-spooks): Restore function.
---

diff --git a/lisp/play/spook.el b/lisp/play/spook.el
index 7c4b6d6c3d5..30d827e4ad0 100644
--- a/lisp/play/spook.el
+++ b/lisp/play/spook.el
@@ -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"))
-
-;; Note: the implementation that used to take up most of this file has
-;; been cleaned up and generalized and now resides in cookie1.el.
+  (cookie-insert spook-phrases-file
+		 spook-phrase-default-count
+		 "Checking authorization..."
+		 "Checking authorization...Approved"))
+
+;;;###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