From: Glenn Morris <rgm@gnu.org>
Date: Wed, 21 Mar 2018 18:12:17 +0000 (-0400)
Subject: * lisp/play/fortune.el (fortune-in-buffer): Unadvertise no-op arg.
X-Git-Tag: emacs-27.0.90~5443
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0080b854df655ecd224f2ed27b83c63e2ca50a1;p=emacs.git

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

diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 740f436711a..e6c9c227c48 100644
--- a/lisp/play/fortune.el
+++ b/lisp/play/fortune.el
@@ -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