seam

commit d392a4d4f1f5d6444b2967399099e9940592c6bb
parent b910b6ee468b1868ce7429ad359ca9b4f82eade1
Author: Spencer Williams <spnw@plexwave.org>
Date:   Wed, 16 Apr 2025 12:44:26 -0400

Minor style improvement

Diffstat:
M
lisp/seam-test.el
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/seam-test.el b/lisp/seam-test.el
@@ -39,7 +39,7 @@
 
 (defmacro seam-test-environment (&rest body)
   (declare (indent 0))
-  `(let* ((seam-test-directory (make-temp-file "seam-test" t))
+  `(let* ((seam-test-directory (file-name-as-directory (make-temp-file "seam-test" t)))
           (seam-note-directory seam-test-directory)
           (default-directory seam-test-directory)
           (seam-note-types '("private" "public"))
@@ -70,7 +70,7 @@
            (mapcar #'kill-buffer (list ,@(mapcar #'car varlist))))))))
 
 (defun seam-test-strip-testdir (filename)
-  (string-remove-prefix (concat seam-test-directory "/") filename))
+  (string-remove-prefix seam-test-directory filename))
 
 (defun seam-test-list-files ()
   (mapcar