From 0ac588eb45df674049dab835b38ee178f552cef7 Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sun, 28 Jun 2026 06:54:37 -0400
Subject: docs: finish the commentary/comment audit tail

Condensed early-init's debug-flags note and added a why for the deferred global-font-lock, rewrote three vcf-conversion-helpers comments to name the real intent (keeping the reverse-order-to-preserve-positions rationale), and gave the archived testutil-filesystem a real summary while deleting its line-by-line narration comments.
---
 archive/gptel/tests/testutil-filesystem.el | 7 +------
 custom/utilities/vcf-conversion-helpers.el | 8 ++++----
 early-init.el                              | 5 ++++-
 3 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/archive/gptel/tests/testutil-filesystem.el b/archive/gptel/tests/testutil-filesystem.el
index b1970b62d..283a3b2b0 100644
--- a/archive/gptel/tests/testutil-filesystem.el
+++ b/archive/gptel/tests/testutil-filesystem.el
@@ -1,4 +1,4 @@
-;;; testutil-filesystem.el ---  -*- coding: utf-8; lexical-binding: t; -*-
+;;; testutil-filesystem.el --- Filesystem helpers for archived GPTel tests -*- coding: utf-8; lexical-binding: t; -*-
 ;;
 ;; Author: Craig Jennings <c@cjennings.net>
 ;;
@@ -27,11 +27,8 @@ By default, hidden entries (starting with '.') are excluded unless
 INCLUDE-HIDDEN is non-nil. FILTER-PREDICATE, if non-nil, is a predicate
 function called on each entry's absolute path; only entries where it returns
 non-nil are included."
-  ;; Convert 'path' to an absolute filename string
   (let* ((expanded-path (expand-file-name path))
-		 ;; get absolute paths in expanded directory
 		 (entries (directory-files expanded-path t nil t))
-		 ;; remove "." ".." entries
          (filtered-entries
           (cl-remove-if
            (lambda (entry)
@@ -40,10 +37,8 @@ non-nil are included."
                  (and (not include-hidden)
                       (string-prefix-p "." (f-filename entry)))))
            entries)))
-	;; apply filtered predicate if provided
     (if filter-predicate
 		(seq-filter filter-predicate filtered-entries)
-	  ;; retun filtered-entries
       filtered-entries)))
 
 (defun cj/get-file-info (path)
diff --git a/custom/utilities/vcf-conversion-helpers.el b/custom/utilities/vcf-conversion-helpers.el
index d336eac8e..4ea340236 100644
--- a/custom/utilities/vcf-conversion-helpers.el
+++ b/custom/utilities/vcf-conversion-helpers.el
@@ -15,8 +15,8 @@
 	(insert-file-contents input-vcf)
 	(goto-char (point-min))
 
-	;; First, clean up multi-line fields (unfold them) BEFORE processing
-	;; This ensures PHOTO and other multi-line fields are on single lines
+	;; Unfold continuation lines before field-level parsing; PHOTO and NOTE values
+	;; often span multiple physical lines in exported VCF files.
 	(goto-char (point-min))
 	(while (re-search-forward "\n[ \t]+" nil t)
 	  (replace-match " " t t))
@@ -60,7 +60,7 @@
 			(field-value (match-string 3)))
 		(replace-match (format "%s%s:%s" field-type field-params field-value) t t)))
 
-	;; NOW remove unwanted fields (but not the converted TEL/EMAIL fields)
+	;; Remove Apple/Google metadata fields after preserving converted TEL/EMAIL data.
 	(let ((remove-patterns
 		   '("^PHOTO:.*$"
 			 "^X-ABRELATEDNAMES:.*$"
@@ -156,7 +156,7 @@
 
 				  (widen)))))))
 
-	  ;; Remove VCARDs with no identifying information (in reverse order to preserve positions)
+	  ;; Drop cards with no displayable name, in reverse order to keep positions valid.
 	  (dolist (vcard-range (reverse vcards-to-remove))
 		(delete-region (car vcard-range) (cdr vcard-range))
 		(message "Removed VCARD with no identifying information")))
diff --git a/early-init.el b/early-init.el
index 32f144cdb..f2ed5bfa3 100644
--- a/early-init.el
+++ b/early-init.el
@@ -21,7 +21,8 @@
 ;;   (add-hook 'after-init-hook 'benchmark-init/deactivate))
 
 ;; -------------------------------- Debug Flags --------------------------------
-;; debugging enabled during Emacs startup. disabled again after Emacs startup.
+;; Keep debug-on-error enabled only during startup; the startup hook restores the
+;; normal interactive behavior after init has loaded.
 
 ;; uncomment when repo signatures expire and package installation is necessary
 ;; (setq package-check-signature nil)
@@ -295,6 +296,8 @@ early-init.el.")
 			   bidi-inhibit-bpa t)         ;; additional speedup
 
 ;; Disable global font lock mode until after initialization
+;; Defer global font-lock until init finishes; major modes re-enable normal
+;; highlighting after startup.
 (setq-default global-font-lock-mode nil)
 (add-hook 'emacs-startup-hook #'global-font-lock-mode)
 
-- 
cgit v1.2.3