procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-svn-parse-status): Use when instead of if.

Browse source 
Fix 2008-01-01 change: use a shy group to not affect subsequent
match calls.
This commit is contained in:
Dan Nicolaescu 2008-08-06 16:49:23 +00:00
parent 5573794231
commit 245cacf131
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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):

4
lisp/vc-svn.el
View file

@ -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."