procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/play/fortune.el (fortune-in-buffer): Unadvertise no-op arg.

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

5
lisp/play/fortune.el
View file

@ -283,8 +283,9 @@ 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.
INTERACTIVE is ignored. Optional argument FILE, when supplied,
specifies the file to choose the fortune from."
Optional argument FILE, when supplied, specifies the file to
choose the fortune from."
(declare (advertised-calling-convention (&optional file) "27.1"))
(let ((fortune-buffer (or (get-buffer fortune-buffer-name)
(generate-new-buffer fortune-buffer-name)))
(fort-file (expand-file-name