# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1208321915 0
# Node ID d4c7a819cf48ab14b81986ca55b1ceeb1bd041a3
# Parent  7b3262e9986b60fd2e1b20857c977b0c8b8ac47d
(vc-dir-kill-query): Fix thinko.

diff -r 7b3262e9986b -r d4c7a819cf48 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 16 03:41:17 2008 +0000
+++ b/lisp/ChangeLog	Wed Apr 16 04:58:35 2008 +0000
@@ -1,3 +1,7 @@
+2008-04-16  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc.el (vc-dir-kill-query): Fix thinko.
+
 2008-04-16  Glenn Morris  <rgm@gnu.org>
 
 	* calendar/diary-lib.el (diary-remind): Don't clobber `date' passed
diff -r 7b3262e9986b -r d4c7a819cf48 lisp/vc.el
--- a/lisp/vc.el	Wed Apr 16 03:41:17 2008 +0000
+++ b/lisp/vc.el	Wed Apr 16 04:58:35 2008 +0000
@@ -3160,10 +3160,11 @@
 (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.