# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1221944256 0
# Node ID c4f6098c09140da492df847e3925b7c62525f85d
# Parent  2e2d18ca9e6f683137c7bba3746de3cbad329186
Justin Bogner  <mail at justinbogner.com>  (tiny change)

(fortune-program-options): Change to a list.
(fortune-in-buffer): Use apply.

diff -r 2e2d18ca9e6f -r c4f6098c0914 lisp/play/fortune.el
--- a/lisp/play/fortune.el	Sat Sep 20 20:25:05 2008 +0000
+++ b/lisp/play/fortune.el	Sat Sep 20 20:57:36 2008 +0000
@@ -87,9 +87,9 @@
   "Program to select a fortune cookie."
   :type 'string
   :group 'fortune)
-(defcustom fortune-program-options ""
-  "Options to pass to the fortune program (a string)."
-  :type 'string
+(defcustom fortune-program-options ()
+  "Options to pass to the fortune program."
+  :type '(repeat string)
   :group 'fortune)
 (defcustom fortune-strfile "strfile"
   "Program to compute a new fortune database."
@@ -299,11 +299,10 @@
       (if fortune-always-compile
 	  (fortune-compile fort-file))
 
-      (call-process
-        fortune-program  ;; programm to call
-	nil fortune-buffer nil ;; INFILE BUFFER DISPLAYP
-	(concat fortune-program-options fort-file)))))
-
+      (apply 'call-process
+             fortune-program  ;; program to call
+             nil fortune-buffer nil ;; INFILE BUFFER DISPLAYP
+             fort-file fortune-program-options))))
 
 ;;;###autoload
 (defun fortune (&optional file)