From b45c803b1039695cf21c682d1339248c26af4c4e Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Mon, 22 Sep 2008 10:24:31 +0000 Subject: [PATCH] (fortune-in-buffer): Fix a bug which forced usage of `fortune-file' even though a FILE argument was passed to the function. --- lisp/ChangeLog | 6 ++++++ lisp/play/fortune.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da8b2f3cc93..6de4bd738d3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-09-22 Tassilo Horn + + * play/fortune.el (fortune-in-buffer): Fix a bug which forced + usage of `fortune-file' even though a FILE argument was passed to + the function. + 2008-09-21 Dan Nicolaescu * startup.el (command-line): Start the server when in daemon mode. diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 2d548c3b220..1e8e7315372 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el @@ -306,7 +306,7 @@ when supplied, specifies the file to choose the fortune from." nil fortune-buffer nil ; INFILE BUFFER DISPLAY (append (if (stringp fortune-program-options) (split-string fortune-program-options) - fortune-program-options) (list fortune-file)))))) + fortune-program-options) (list fort-file)))))) ;;;###autoload (defun fortune (&optional file) -- 2.39.5