fix directory name creation

Signed-off-by: Psionik K <[email protected]>
positron-solutions · Dec 28, 2023 · 7ea9c6d · 7ea9c6d
1 parent 9993376
commit 7ea9c6d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lisp/scratch-pkgs.el b/lisp/scratch-pkgs.el
@@ -53,9 +53,9 @@
 
 (declare-function no-littering-expand-var-file-name "no-littering")
 (defcustom scratch-pkgs-dir
-  (file-name-directory (if (featurep 'no-littering)
-                           (no-littering-expand-var-file-name "scratch-pkgs")
-                         (expand-file-name "var/scratch-pkgs" user-emacs-directory)))
+  (file-name-as-directory (if (featurep 'no-littering)
+                              (no-littering-expand-var-file-name "scratch-pkgs")
+                            (expand-file-name "var/scratch-pkgs" user-emacs-directory)))
   "Where scratches are saved."
   :group 'scratch-pkgs
   :type 'directory)