diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-04T21·39+0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-02-04T21·39+0100 |
| commit | 44e74bcc07f6ab2f985bcce12d68dccb943475cf (patch) | |
| tree | 9bc8d5e12d66cd8c6485482be1a6e569b5efe560 | |
| parent | fbc1e81ed65a2a7caeb6e73aab88fe8769e0f952 (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.el | 2 |
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 "~/"))))) |