Simplify conditional statement

* ledger-post.el (ledger-indent-line): Prefer 'and' to 'prog + when'
jabranham · Sep 24, 2019 · b5749af · b5749af
1 parent 47a186e
commit b5749af
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ledger-post.el b/ledger-post.el
@@ -129,8 +129,8 @@ Looks only as far as END, if supplied, otherwise `point-max'."
 (defun ledger-indent-line ()
   "Indent the current line."
   ;; Ensure indent if the previous line was indented
-  (let ((indent-level (save-excursion (if (progn (when (zerop (forward-line -1))
-                                                   (memq (ledger-thing-at-point) '(transaction posting))))
+  (let ((indent-level (save-excursion (if (and (zerop (forward-line -1))
+                                               (memq (ledger-thing-at-point) '(transaction posting)))
                                           ledger-post-account-alignment-column
                                         0))))
     (unless (= (current-indentation) indent-level)