about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--users/tazjin/emacs/config/look-and-feel.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/users/tazjin/emacs/config/look-and-feel.el b/users/tazjin/emacs/config/look-and-feel.el
index 467316aa8b25..d46ba974cacb 100644
--- a/users/tazjin/emacs/config/look-and-feel.el
+++ b/users/tazjin/emacs/config/look-and-feel.el
@@ -45,7 +45,8 @@
   (let ((command "who | awk '{print $2}' | grep -v tty7"))
     (-filter (lambda (s) (not (string-empty-p s)))
              (s-lines
-              (s-trim (shell-command-to-string command))))))
+              (s-trim (let ((default-directory "/"))
+                        (shell-command-to-string command)))))))
 
 (defvar cached-tty-sessions (cons (time-convert nil 'integer) (list-tty-sessions))
    "Cached TTY session value to avoid running the command too often.")