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

diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 740f436711a1cbee9c9c2f24174a2e6fa8561745..e6c9c227c48927e4ee0beb97fafe164b904cd4ef 100644 (file)
--- 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