From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Wed, 6 Aug 2008 16:49:23 +0000 (+0000)
Subject: (vc-svn-parse-status): Use when instead of if.
X-Git-Tag: emacs-pretest-23.0.90~3597
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=245cacf13113f35e075fca56bf6180d24c086a41;p=emacs.git

(vc-svn-parse-status): Use when instead of if.
Fix 2008-01-01 change: use a shy group to not affect subsequent
match calls.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50128348afc..6459bbfe6f7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-08-06  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-svn.el (vc-svn-parse-status): Use when instead of if.
+	Fix 2008-01-01 change: use a shy group to not affect subsequent
+	match calls.
+
 2008-08-06  Reto Zimmermann  <reto@gnu.org>
 
 	* progmodes/vera-mode.el (vera-electric-tab):
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 30bf8d4ccf9..854e66e3d1d 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -604,7 +604,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
@@ -643,7 +643,7 @@ information about FILENAME and return its status."
 	  ((eq status ?R)
 	   (vc-file-setprop file 'vc-state 'removed))
 	  (t 'edited)))))
-    (if filename (vc-file-getprop filename 'vc-state))))
+    (when filename (vc-file-getprop filename 'vc-state))))
 
 (defun vc-svn-valid-symbolic-tag-name-p (tag)
   "Return non-nil if TAG is a valid symbolic tag name."