White-space fix in fortune-compile

* lisp/play/fortune.el (fortune-compile): Reindent function.

diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 7226ea07030df1f7c660e08886b6eb97802cd676..f4a529fb26c7f20ec90372b0afe39072d9b31aaa 100644 (file)
--- 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)))))
 
 
 ;;; **************