readability

1 files changed, 12 insertions, 14 deletions

diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el
index 2321854a..4e72399e 100644
--- a/.emacs.d/init-spw.el
+++ b/.emacs.d/init-spw.el
@@ -2808,20 +2808,18 @@ mutt's review view, after exiting EDITOR."
       ;;
       ;; note that we can't use `beginning-of-defun' as not every top
       ;; level perl block is a defun to Emacs
-      (let ((start)
-            (count 0))
-        (cl-loop do (setq start (point))
-		    (ignore-errors (backward-up-list))
-		    (setq count (1+ count))
-		 until (= start (point)))
-        (if (= count 1)
-            ;; we didn't move; do whole buffer
-            (spw/perltidy-region (point-min) (point-max))
-          ;; tidy the top level block
-	  (let ((begin (line-beginning-position)))
-	    (forward-sexp)
-	    (forward-line)
-	    (spw/perltidy-region begin (point))))))))
+      (cl-loop for count upfrom 1
+	       for start = (point)
+	       do (ignore-errors (backward-up-list))
+	       until (= start (point))
+	       finally (if (= count 1)
+			   ;; we didn't move; do whole buffer
+			   (spw/perltidy-region (point-min) (point-max))
+			 ;; tidy the top level block
+			 (let ((begin (line-beginning-position)))
+			   (forward-sexp)
+			   (forward-line)
+			   (spw/perltidy-region begin (point))))))))
 
 (with-eval-after-load 'cperl-mode
   (define-key cperl-mode-map "\C-ciu" #'spw/perl-add-use)