From 5e7e82fb3c71012cd6b32781ce04d456b6a1f49f Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 26 Oct 2017 02:25:35 -0700 Subject: [PATCH] [Emacs] Avoid making a server symlink loop --- dotfiles/emacs.d/README.org | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index a0b56ba5..b67f318b 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -1405,7 +1405,9 @@ Paradox is a package.el extension. I have no use for it now that I use straight. (file-truename (imalison:get-server-file)))) (defun imalison:make-main-emacs-server () (interactive) - (when (not (equal server-name (imalison:main-emacs-server-name))) + (when (not (and + (string-equal server-name "server") + (string-equal server-name (imalison:main-emacs-server-name)))) (let ((server-file (imalison:get-server-file))) (shell-command-to-string (format "cd %s && rm -f server && ln -s %s server"