aboutsummaryrefslogtreecommitdiff
path: root/archive
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-06-28 06:54:37 -0400
committerCraig Jennings <c@cjennings.net>2026-06-28 06:54:37 -0400
commitdcef732348a48e205d9d2fdc7da6f7f7632332bd (patch)
tree645080c0527457cbb2b2e61c809ddb983abde5c9 /archive
parent07ca2e5b677ca7feaeaabd8d1e483786293cd457 (diff)
downloaddotemacs-dcef732348a48e205d9d2fdc7da6f7f7632332bd.tar.gz
dotemacs-dcef732348a48e205d9d2fdc7da6f7f7632332bd.zip
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.
Diffstat (limited to 'archive')
-rw-r--r--archive/gptel/tests/testutil-filesystem.el7
1 files changed, 1 insertions, 6 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)