[Emacs-diffs] master 7d8e759: White-space fix in fortune-compile

[Lars Ingebrigtsen]

branch: master
commit 7d8e759c09b90656e0ac3c5e62a98fa27cb21d86
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 7226ea0..f4a529f 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)))))
 
 
 ;;; **************