branch: elpa/dirvish
commit fa17e5588f1ca4cce5de496abea180813cfa0682
Author: Pratyush Yadav <m...@yadavpratyush.com>
Commit: Alex Lu <hellosimon1...@hotmail.com>
fix: prevent killing emacsclient started on a directory (#293)
When an emacsclient frame is created by visitng directory A, and then
the user goes into subdirectory B and opens a file using
dirvish-find-entry-a, the buffer for A no longer has a window and gets
killed by dirvish-kill. Since this was the original buffer the client
was opened with, this causes the client frame to be killed along with
it, resulting in the frame going away instead of showing the file. This
has been reported earlier in [0] and [1].
This can be reproduced by following the below steps mentioned in [0]:
mkdir tmp && cd tmp
mkdir dir
touch dir/foo
emacsclient -nw .
# RET -- open `dir`
# RET -- try to open `foo`
This will cause the frame to close instead of opening foo.
For buffers tied with a client, the variable server-buffer-clients is
non-nil. Use that to detect such buffers and avoid killing them. Those
buffers will be killed by the user when they wish to close their
session.
[0] https://github.com/doomemacs/doomemacs/issues/8253
[1] https://github.com/alexluigit/dirvish/issues/232
---
dirvish.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/dirvish.el b/dirvish.el
index e8c974747f..c1e2d9e15e 100644
--- a/dirvish.el
+++ b/dirvish.el
@@ -265,6 +265,7 @@ input for `dirvish-redisplay-debounce' seconds."
(defvar dirvish--working-attrs '())
(defvar dirvish--working-preview-dispathchers '())
(defvar image-dired-thumbnail-buffer)
+(defvar server-buffer-clients)
(defvar-local dirvish--props '())
(defvar-local dirvish--attrs-hash nil)
@@ -502,8 +503,10 @@ ARGS is a list of keyword arguments for `dirvish' struct."
"Kill the dirvish instance DV."
(let ((index (cdr (dv-index dv))))
(if (not (car (dv-layout dv)))
- (cl-loop for (_d . b) in (dv-roots dv) when
- (not (get-buffer-window b)) do (kill-buffer b)
+ (cl-loop for (_d . b) in (dv-roots dv)
+ when (and (not (get-buffer-window b))
+ (not (with-current-buffer b server-buffer-clients)))
+ do (kill-buffer b)
finally (setf (dv-index dv) (car (dv-roots dv))))
(when dirvish-use-header-line
(with-current-buffer index
