diff options
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/fortune.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 5e25ebae1fe..5c7d2d21b8e 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el | |||
| @@ -87,9 +87,9 @@ Normally you won't have a reason to change it." | |||
| 87 | "Program to select a fortune cookie." | 87 | "Program to select a fortune cookie." |
| 88 | :type 'string | 88 | :type 'string |
| 89 | :group 'fortune) | 89 | :group 'fortune) |
| 90 | (defcustom fortune-program-options "" | 90 | (defcustom fortune-program-options () |
| 91 | "Options to pass to the fortune program (a string)." | 91 | "Options to pass to the fortune program." |
| 92 | :type 'string | 92 | :type '(repeat string) |
| 93 | :group 'fortune) | 93 | :group 'fortune) |
| 94 | (defcustom fortune-strfile "strfile" | 94 | (defcustom fortune-strfile "strfile" |
| 95 | "Program to compute a new fortune database." | 95 | "Program to compute a new fortune database." |
| @@ -299,11 +299,10 @@ when supplied, specifies the file to choose the fortune from." | |||
| 299 | (if fortune-always-compile | 299 | (if fortune-always-compile |
| 300 | (fortune-compile fort-file)) | 300 | (fortune-compile fort-file)) |
| 301 | 301 | ||
| 302 | (call-process | 302 | (apply 'call-process |
| 303 | fortune-program ;; programm to call | 303 | fortune-program ;; program to call |
| 304 | nil fortune-buffer nil ;; INFILE BUFFER DISPLAYP | 304 | nil fortune-buffer nil ;; INFILE BUFFER DISPLAYP |
| 305 | (concat fortune-program-options fort-file))))) | 305 | fort-file fortune-program-options)))) |
| 306 | |||
| 307 | 306 | ||
| 308 | ;;;###autoload | 307 | ;;;###autoload |
| 309 | (defun fortune (&optional file) | 308 | (defun fortune (&optional file) |