Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 03:17:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(fortune-to-signature): Don't use interactive-p.

Browse source 
(fortune-in-buffer): Doc fix.
This commit is contained in:
Richard M. Stallman 2004-11-01 07:45:18 +00:00
parent 2dccd96f17
commit 1d4408c8eb
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/play/fortune.el
View file

@ -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)))