From 7d8e759c09b90656e0ac3c5e62a98fa27cb21d86 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 10 Jul 2019 00:53:39 +0200 Subject: [PATCH] White-space fix in fortune-compile * lisp/play/fortune.el (fortune-compile): Reindent function. --- lisp/play/fortune.el | 22 +++++++++++----------- 1 file 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))))) ;;; ************** -- 2.39.5