about summary refs log tree commit diff
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2024-02-04T21·39+0100
committerDaniel Mendler <mail@daniel-mendler.de>2024-02-04T21·39+0100
commit44e74bcc07f6ab2f985bcce12d68dccb943475cf (patch)
tree9bc8d5e12d66cd8c6485482be1a6e569b5efe560
parentfbc1e81ed65a2a7caeb6e73aab88fe8769e0f952 (diff)
Ensure that default-directory is a directory name in EXWM buffers.
Otherwise `default-directory' could be /home/user instead of /home/user/ as is
expected by Emacs.

* exwm-manage.el (exwm-manage--update-default-directory): Use
`file-name-as-directory'.
-rw-r--r--exwm-manage.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/exwm-manage.el b/exwm-manage.el
index d1eeaa7c876c..ab66e298ac8e 100644
--- a/exwm-manage.el
+++ b/exwm-manage.el
@@ -247,7 +247,7 @@ This only works when procfs is mounted, which may not be the case on some BSDs."
               (pid (slot-value response 'value))
               (cwd (file-symlink-p (format "/proc/%d/cwd" pid)))
               ((file-accessible-directory-p cwd)))
-        (setq default-directory cwd)
+        (setq default-directory (file-name-as-directory cwd))
       (setq default-directory (expand-file-name "~/")))))