diff options
author | Markus Rost <rost@math.uni-bielefeld.de> | 2003-12-24 23:18:10 +0000 |
---|---|---|
committer | Markus Rost <rost@math.uni-bielefeld.de> | 2003-12-24 23:18:10 +0000 |
commit | 6f09c7931fa73c46b74ab0b1f8e1766bc7dd0588 (patch) | |
tree | c9f28d5757e5bf7f066677921937632a11c89b1d /lisp/vc.el | |
parent | c9e99bcae5d7e1850e6a344387f7b4a99576b38a (diff) | |
download | emacs-6f09c7931fa73c46b74ab0b1f8e1766bc7dd0588.tar.gz |
(vc-dired-purge): Avoid error from `kill-line'.
Diffstat (limited to 'lisp/vc.el')
-rw-r--r-- | lisp/vc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 4ee27391003..b015d56c87f 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -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 @@ Called by dired after any portion of a vc-dired buffer has been read in." ;; 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))) |