diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-08-06 16:49:23 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-08-06 16:49:23 +0000 |
| commit | 245cacf13113f35e075fca56bf6180d24c086a41 (patch) | |
| tree | 60330dbf75d3f2fb0756c1f76e973f5ce3a1c0d8 /lisp/vc-svn.el | |
| parent | 5573794231d38f41924fe4d97164f176f8650a4b (diff) | |
| download | emacs-245cacf13113f35e075fca56bf6180d24c086a41.tar.gz | |
(vc-svn-parse-status): Use when instead of if.
Fix 2008-01-01 change: use a shy group to not affect subsequent
match calls.
Diffstat (limited to 'lisp/vc-svn.el')
| -rw-r--r-- | lisp/vc-svn.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." |