[fu] batch-checkdoc - alignment

pkryger · Nov 18, 2024 · 37539c8 · 37539c8
1 parent 703547f
commit 37539c8
Showing 1 changed file with 31 additions and 31 deletions.
diff --git a/.ci/batch-checkdoc.el b/.ci/batch-checkdoc.el
@@ -34,37 +34,37 @@
                   (car command-line-args-left))
                  (process-default-directory default-directory))
               (with-temp-buffer
-            (insert-file-contents source 'visit)
-            (setq buffer-file-name source)
-            (setq default-directory process-default-directory)
-            (with-demoted-errors "Error in checkdoc: %S"
-              (delay-mode-hooks
-                (emacs-lisp-mode))
-              (setq delayed-mode-hooks nil)
-              (checkdoc-current-buffer t)
-              (with-current-buffer checkdoc-diagnostic-buffer
-                ;; When there are no errors, there are only a few lines in the
-                ;; beginning of the buffer, followed by a single line
-                ;; containing a `checkdoc' stamp.  Remove them and see if
-                ;; buffer has more lines than 1.
-                (let ((inhibit-read-only t))
-                  (goto-char (point-min))
-                  (when-let* (((looking-at
-                                (rx string-start (group (zero-or-more (or whitespace "\n"))
-                                                        (or "\n" line-end))))))
-                    (delete-region (match-beginning 1) (match-end 1))))
-                (cl-incf number-of-errors (- (car (buffer-line-statistics))
-                                             1))
-                (princ
-                 (buffer-substring-no-properties
-                  (point-min)
-                  (point-max)))
-                (princ "\n")
-                (kill-buffer)))))
-        (setq command-line-args-left (cdr command-line-args-left))))
-    (setq command-line-args-left nil)
-    (when (< 0 number-of-errors)
-      (error "There are %s checkdoc errors!" number-of-errors)))))
+                (insert-file-contents source 'visit)
+                (setq buffer-file-name source)
+                (setq default-directory process-default-directory)
+                (with-demoted-errors "Error in checkdoc: %S"
+                  (delay-mode-hooks
+                    (emacs-lisp-mode))
+                  (setq delayed-mode-hooks nil)
+                  (checkdoc-current-buffer t)
+                  (with-current-buffer checkdoc-diagnostic-buffer
+                    ;; When there are no errors, there are only a few lines in the
+                    ;; beginning of the buffer, followed by a single line
+                    ;; containing a `checkdoc' stamp.  Remove them and see if
+                    ;; buffer has more lines than 1.
+                    (let ((inhibit-read-only t))
+                      (goto-char (point-min))
+                      (when-let* (((looking-at
+                                    (rx string-start (group (zero-or-more (or whitespace "\n"))
+                                                            (or "\n" line-end))))))
+                        (delete-region (match-beginning 1) (match-end 1))))
+                    (cl-incf number-of-errors (- (car (buffer-line-statistics))
+                                                 1))
+                    (princ
+                     (buffer-substring-no-properties
+                      (point-min)
+                      (point-max)))
+                    (princ "\n")
+                    (kill-buffer)))))
+            (setq command-line-args-left (cdr command-line-args-left))))
+      (setq command-line-args-left nil)
+      (when (< 0 number-of-errors)
+        (error "There are %s checkdoc errors!" number-of-errors)))))
 
 (provide 'batch-checkdoc)
 ;;; batch-checkdoc.el ends here