diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-10 00:53:39 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-10 00:53:39 +0200 |
commit | 7d8e759c09b90656e0ac3c5e62a98fa27cb21d86 (patch) | |
tree | 351c6b8141ea23ae340ba6a0e339311b4ebeef36 | |
parent | 52847315da3e8505e73a5c6b1eb517c25e57dd4e (diff) | |
download | emacs-7d8e759c09b90656e0ac3c5e62a98fa27cb21d86.tar.gz |
White-space fix in fortune-compile
* lisp/play/fortune.el (fortune-compile): Reindent function.
-rw-r--r-- | lisp/play/fortune.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 7226ea07030..f4a529fb26c 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el @@ -237,23 +237,23 @@ read the file name to use. Otherwise use the value of `fortune-file'." If called with a prefix asks for the FILE to compile, otherwise uses the value of `fortune-file'. This currently cannot handle directories." (interactive - (list - (if current-prefix-arg - (fortune-ask-file) - fortune-file))) + (list + (if current-prefix-arg + (fortune-ask-file) + fortune-file))) (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)))) (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 strfile fortune-strfile-options - " " fortune-file fortune-quiet-strfile-options))))) - (t (error "Can't compile fortune file %s" fortune-file))))) + (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 strfile fortune-strfile-options + " " fortune-file fortune-quiet-strfile-options))))) + (t (error "Can't compile fortune file %s" fortune-file))))) ;;; ************** |