# HG changeset patch
# User Tassilo Horn <tassilo@member.fsf.org>
# Date 1222079071 0
# Node ID 1943be2bc7c2e54f599340eb788273a1842347ce
# Parent  bea14960a539fca010387b06a25c743bf2cc8e0d
(fortune-in-buffer): Fix a bug which forced
usage of `fortune-file' even though a FILE argument was passed to
the function.

diff -r bea14960a539 -r 1943be2bc7c2 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Sep 21 23:32:49 2008 +0000
+++ b/lisp/ChangeLog	Mon Sep 22 10:24:31 2008 +0000
@@ -1,3 +1,9 @@
+2008-09-22  Tassilo Horn  <tassilo@member.fsf.org>
+
+	* 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  <dann@ics.uci.edu>
 
 	* startup.el (command-line): Start the server when in daemon mode.
diff -r bea14960a539 -r 1943be2bc7c2 lisp/play/fortune.el
--- a/lisp/play/fortune.el	Sun Sep 21 23:32:49 2008 +0000
+++ b/lisp/play/fortune.el	Mon Sep 22 10:24:31 2008 +0000
@@ -306,7 +306,7 @@
              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)