From abc61762a50380ae8dfec17488d694ae3bb8c65f Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Tue, 1 Jan 2008 16:39:59 +0000 Subject: [PATCH] * vc-svn.el (vc-svn-parse-status): Set the 'unregisted property correctly. --- lisp/ChangeLog | 3 +++ lisp/vc-svn.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 582cfb115fc..bf1b6f91811 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-01-01 Eric S. Raymond + * vc-svn.el (vc-svn-parse-status): Set the 'unregisted property + correctly. + * vc.el (vc-dired-hook): Speed tuning. Replace a vc-backend call with vc-state. diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 96bc1284f76..6fcc1239fb3 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -548,7 +548,7 @@ information about FILENAME and return its status." (goto-char (point-min)) (while (re-search-forward ;; Ignore the files with status X. - "^\\? +|^[ ACDGIMR!~][ MC][ L][ +][ S]..\\([ *]\\) +\\([-0-9]+\\) +\\([0-9?]+\\) +\\([^ ]+\\) +" nil t) + "^\\(\\?\\|[ ACDGIMR!~][ MC][ L][ +][ S]..\\([ *]\\) +\\([-0-9]+\\) +\\([0-9?]+\\) +\\([^ ]+\\)\\) +" nil t) ;; If the username contains spaces, the output format is ambiguous, ;; so don't trust the output's filename unless we have to. (setq file (or filename -- 2.39.2