From 338f78ad6aa84583baa617591dbce1aa1caca4da Mon Sep 17 00:00:00 2001 From: Joshua Datko Date: Wed, 24 Feb 2016 15:42:28 +1100 Subject: [PATCH] Add a fortune-message command * lisp/play/fortune.el (fortune-message): Add a command to display fortunes in the echo area (bug#14915). Copyright-paperwork-exempt: yes --- etc/NEWS | 4 ++++ lisp/play/fortune.el | 13 +++++++++++++ 2 files changed, 17 insertions(+) diff --git a/etc/NEWS b/etc/NEWS index 679532b89c7..18810eabf2c 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -1750,6 +1750,10 @@ details. It should be placed right where the docstring would be, and FORM is then evaluated (and should return a string) when the closure is built. +--- +** The new command `fortune-message' has been added, which displays +fortunes in the echo area. + +++ ** define-inline provides a new way to define inlinable functions. diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 25fa3f66ef1..4871c459023 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el @@ -302,6 +302,19 @@ specifies the file to choose the fortune from." (split-string fortune-program-options) fortune-program-options) (list fort-file))))))) +;;;###autoload +(defun fortune-message (&optional file) + "Display a fortune cookie to the mini-buffer. +If called with a prefix, it has the same behavior as `fortune'. +Optional FILE is a fortune file from which a cookie will be selected." + (interactive (list (if current-prefix-arg + (fortune-ask-file) + fortune-file))) + (with-temp-buffer + (let ((fortune-buffer-name (current-buffer))) + (fortune-in-buffer t file) + (message "%s" (buffer-string))))) + ;;;###autoload (defun fortune (&optional file) "Display a fortune cookie. -- 2.39.5