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

vibhavp · Mar 21, 2018 · e0080b8 · e0080b8
1 parent 03a27fa
commit e0080b8
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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