From: Richard M. Stallman Date: Mon, 1 Nov 2004 07:45:18 +0000 (+0000) Subject: (fortune-to-signature): Don't use interactive-p. X-Git-Tag: ttn-vms-21-2-B4~4292 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d4408c8ebf209bd83bae5745bc273d5d484c745;p=emacs.git (fortune-to-signature): Don't use interactive-p. (fortune-in-buffer): Doc fix. --- diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 306cf7daac1..3919f57e78c 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el @@ -271,7 +271,7 @@ and choose the directory as the fortune-file." (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 @@ and choose the directory as the fortune-file." (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)))