andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/play/fortune.el (fortune-in-buffer): Revert previous nonsense.

Browse source
This commit is contained in:
Glenn Morris 2018-03-21 17:10:41 -04:00
parent 61dfc2c283
commit 3b42c083b6
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/play/fortune.el
View file

@ -283,9 +283,8 @@ and choose the directory as the fortune-file."
;;; Display fortune
(defun fortune-in-buffer (_interactive &optional file)
"Put a fortune cookie in the *fortune* buffer.
Optional argument FILE, when supplied, specifies the file to
choose the fortune from."
(declare (advertised-calling-convention (&optional file) "27.1"))
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)))
(fort-file (expand-file-name