From d392a4d4f1f5d6444b2967399099e9940592c6bb Mon Sep 17 00:00:00 2001
From: Spencer Williams <spnw@plexwave.org>
Date: Wed, 16 Apr 2025 12:44:26 -0400
Subject: Minor style improvement
---
lisp/seam-test.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'lisp')
diff --git a/lisp/seam-test.el b/lisp/seam-test.el
index c0eeab0..791c964 100644
--- 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
--
cgit v1.2.3