diff options
| author | Spencer Williams <spnw@plexwave.org> | 2025-04-16 12:44:26 -0400 |
|---|---|---|
| committer | Spencer Williams <spnw@plexwave.org> | 2025-04-16 12:46:51 -0400 |
| commit | d392a4d4f1f5d6444b2967399099e9940592c6bb (patch) | |
| tree | 59bba5f03040cdf5053eb9fe0eb24b924b655b0d | |
| parent | b910b6ee468b1868ce7429ad359ca9b4f82eade1 (diff) | |
Minor style improvement
| -rw-r--r-- | lisp/seam-test.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |