Mercurial > emacs

changeset 57825:627816ec9a05

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fortune-to-signature): Don't use interactive-p. (fortune-in-buffer): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Mon, 01 Nov 2004 07:45:18 +0000
parents 83de34d9f04f
children 26b411f0feaf
files lisp/play/fortune.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/fortune.el	Mon Nov 01 07:44:08 2004 +0000
+++ b/lisp/play/fortune.el	Mon Nov 01 07:45:18 2004 +0000
@@ -271,7 +271,7 @@
 	 (fortune-ask-file)
        fortune-file)))
    (save-excursion
-    (fortune-in-buffer (interactive-p) file)
+    (fortune-in-buffer t file)
     (set-buffer fortune-buffer-name)
     (let* ((fortune (buffer-string))
 	   (signature (concat fortune-sigstart fortune fortune-sigend)))
@@ -285,7 +285,7 @@
 (defun fortune-in-buffer (interactive &optional file)
   "Put a fortune cookie in the *fortune* buffer.
 
-When INTERACTIVE is nil, don't display it.  Optional argument FILE,
+INTERACTIVE is ignored.  Optional argument FILE,
 when supplied, specifies the file to choose the fortune from."
   (let ((fortune-buffer (or (get-buffer fortune-buffer-name)
 			    (generate-new-buffer fortune-buffer-name)))