diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-05-21 11:01:27 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-05-21 11:03:03 -0700 |
commit | d0d972e192f694475d4b722ebd8e1fbb4055b2b0 (patch) | |
tree | aed99efff867ef588426dabe1d6286e60ae1e509 | |
parent | ebd3b7f9ea43c1cc878556d64b2b3e3736ec78ff (diff) | |
download | dotfiles-d0d972e192f694475d4b722ebd8e1fbb4055b2b0.tar.gz |
spw/may-pass-to-gdbmacs-p: use server-running-p
-rw-r--r-- | .emacs.d/init.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index e7e5a97a..fae2b927 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2591,7 +2591,7 @@ Called by '~/src/dotfiles/bin/emacsclient --spw/update-environment'." (defun spw/may-pass-to-gdbmacs-p () (and (display-graphic-p) (not (string= (daemonp) "gdbmacs")) - (spw/daemon-pid "gdbmacs"))) + (eq (server-running-p "gdbmacs") t))) ;; open a frame on a new workspace with only the relevant dired buffer open, ;; eval this form: (global-set-key "\C-cG" #'spw/grading-advance) |