diff options
| author | Craig Jennings <c@cjennings.net> | 2026-06-28 06:54:37 -0400 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-06-28 06:54:37 -0400 |
| commit | 0ac588eb45df674049dab835b38ee178f552cef7 (patch) | |
| tree | 5580ced98c28f6e4366967b09b36a4f09d7ad2da /archive/gptel/tests | |
| parent | 9180b25fddc96a4b2cd580b86191fb5686dc20d7 (diff) | |
| download | dotemacs-0ac588eb45df674049dab835b38ee178f552cef7.tar.gz dotemacs-0ac588eb45df674049dab835b38ee178f552cef7.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/gptel/tests')
| -rw-r--r-- | archive/gptel/tests/testutil-filesystem.el | 7 |
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) |
