diff options
| author | Benjamin Ragheb <ben@benzado.com> | 2019-07-10 00:31:10 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-10 00:33:17 +0200 |
| commit | 52847315da3e8505e73a5c6b1eb517c25e57dd4e (patch) | |
| tree | c9b1e2df36ab139ad750834b961aca2cc03a1f0f /lisp/play | |
| parent | ba4f1d28ecd6490e6886b7e3de89b0eab65b339a (diff) | |
| download | emacs-52847315da3e8505e73a5c6b1eb517c25e57dd4e.tar.gz | |
Search exec-path for fortune strfile program
* lisp/play/fortune.el (fortune-compile): Search exec-path for
strfile program (bug#33984).
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/fortune.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 3c057f41497..7226ea07030 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el @@ -244,12 +244,14 @@ the value of `fortune-file'. This currently cannot handle directories." (let* ((fortune-file (expand-file-name (substitute-in-file-name file))) (fortune-dat (expand-file-name (substitute-in-file-name - (concat fortune-file fortune-database-extension))))) + (concat fortune-file fortune-database-extension)))) + (strfile (or (executable-find fortune-strfile) + (error "Can't find strfile program %s" fortune-strfile)))) (cond ((file-exists-p fortune-file) (cond ((file-newer-than-file-p fortune-file fortune-dat) (message "Compiling new fortune database %s" fortune-dat) (shell-command - (concat fortune-strfile fortune-strfile-options + (concat strfile fortune-strfile-options " " fortune-file fortune-quiet-strfile-options))))) (t (error "Can't compile fortune file %s" fortune-file))))) |