# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1072307890 0
# Node ID 019243f7a304c7d807af22d4a876237c3db724b1
# Parent  f800e307fc39777151a6e091f0ead88e8af8453b
(vc-dired-purge): Avoid error from `kill-line'.

diff -r f800e307fc39 -r 019243f7a304 lisp/vc.el
--- a/lisp/vc.el	Wed Dec 24 16:46:28 2003 +0000
+++ b/lisp/vc.el	Wed Dec 24 23:18:10 2003 +0000
@@ -7,7 +7,7 @@
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 ;; Keywords: tools
 
-;; $Id: vc.el,v 1.359 2003/07/06 19:08:13 jpw Exp $
+;; $Id: vc.el,v 1.360 2003/09/01 15:45:17 miles Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -2144,7 +2144,7 @@
 	;; We cannot remove the top level directory.
 	;; Just make it look a little nicer.
 	(forward-line 1)
-	(kill-line)
+	(or (eobp) (kill-line))
 	(if (not (dired-next-subdir 1 t))
 	    (goto-char (point-max))))))
   (goto-char (point-min)))