From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 9 Jul 2019 22:53:39 +0000 (+0200)
Subject: White-space fix in fortune-compile
X-Git-Tag: emacs-27.0.90~2026
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d8e759c09b90656e0ac3c5e62a98fa27cb21d86;p=emacs.git

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 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)))))
 
 
 ;;; **************