From eb320d93d1517ddc75f933b75a8e1227729ae957 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 16 Apr 2008 04:58:35 +0000 Subject: [PATCH] (vc-dir-kill-query): Fix thinko. --- lisp/ChangeLog | 4 ++++ lisp/vc.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0205b66ec94..b07bc8f955f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-04-16 Dan Nicolaescu + + * vc.el (vc-dir-kill-query): Fix thinko. + 2008-04-16 Glenn Morris * calendar/diary-lib.el (diary-remind): Don't clobber `date' passed diff --git a/lisp/vc.el b/lisp/vc.el index cf92102c4c5..9f60590610f 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -3160,10 +3160,11 @@ Throw an error if another update process is in progress." (defun vc-dir-kill-query () ;; Make sure that when the VC status buffer is killed the update ;; process running in background is also killed. - (when (vc-dir-busy) + (if (vc-dir-busy) (when (y-or-n-p "Status update process running, really kill status buffer?") (vc-dir-kill-dir-status-process) - t))) + t) + t)) (defun vc-dir-next-line (arg) "Go to the next line. -- 2.39.5