mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

Justin Bogner <mail at justinbogner.com> (tiny change)

Browse Source 
(fortune-program-options): Change to a list.
(fortune-in-buffer): Use apply.
This commit is contained in:
Glenn Morris 2008-09-20 20:57:47 +00:00
parent 15688fceeb
commit ca514f7274
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-09-20 Justin Bogner <mail@justinbogner.com> (tiny change)
* play/fortune.el (fortune-program-options): Change to a list.
(fortune-in-buffer): Use apply.
2008-09-20 Ulrich Mueller <ulm@kph.uni-mainz.de>
* emacs-lisp/authors.el: Change encoding of file to utf-8.

15
lisp/play/fortune.el
View File

@ -87,9 +87,9 @@ Normally you won't have a reason to change it."
"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 @@ when supplied, specifies the file to choose the fortune from."
(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)