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

Remove some debugging code.

Browse source
This commit is contained in:
Eric S. Raymond 2008-01-01 18:40:42 +00:00
parent abc61762a5
commit 4f07b9f2ef
1 changed files with 10 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/vc-svn.el
View file

@ -536,10 +536,6 @@ and that it passes `vc-svn-global-switches' to it before FLAGS."
nil)
(message "There are unresolved conflicts in this file")))
(defun vc-file-setprop2 (f p v)
(message (format "On file %s. setting property %s to %s" f p v))
(sit-for 2))
(defun vc-svn-parse-status (&optional filename)
"Parse output of \"svn status\" command in the current buffer.
Set file properties accordingly. Unless FILENAME is non-nil, parse only
@ -556,37 +552,37 @@ information about FILENAME and return its status."
(buffer-substring (point) (line-end-position)))))
(setq status (char-after (line-beginning-position)))
(if (eq status ??)
(vc-file-setprop2 file 'vc-state 'unregistered)
(vc-file-setprop file 'vc-state 'unregistered)
;; `vc-BACKEND-registered' must not set vc-backend,
;; which is instead set in vc-registered.
(unless filename (vc-file-setprop2 file 'vc-backend 'SVN))
(unless filename (vc-file-setprop file 'vc-backend 'SVN))
;; Use the last-modified revision, so that searching in vc-print-log
;; output works.
(vc-file-setprop2 file 'vc-working-revision (match-string 3))
(vc-file-setprop file 'vc-working-revision (match-string 3))
;; Remember Svn's own status.
(vc-file-setprop2 file 'vc-svn-status status)
(vc-file-setprop2
(vc-file-setprop file 'vc-svn-status status)
(vc-file-setprop
file 'vc-state
(cond
((eq status ?\ )
(if (eq (char-after (match-beginning 1)) ?*)
'needs-patch
(vc-file-setprop2 file 'vc-checkout-time
(vc-file-setprop file 'vc-checkout-time
(nth 5 (file-attributes file)))
'up-to-date))
((eq status ?A)
;; If the file was actually copied, (match-string 2) is "-".
(vc-file-setprop2 file 'vc-working-revision "0")
(vc-file-setprop2 file 'vc-checkout-time 0)
(vc-file-setprop file 'vc-working-revision "0")
(vc-file-setprop file 'vc-checkout-time 0)
'added)
((memq status '(?M ?C))
(if (eq (char-after (match-beginning 1)) ?*)
'needs-merge
'edited))
((eq status ?I)
(vc-file-setprop2 file 'vc-state 'ignored))
(vc-file-setprop file 'vc-state 'ignored))
((eq status ?R)
(vc-file-setprop2 file 'vc-state 'removed))
(vc-file-setprop file 'vc-state 'removed))
(t 'edited)))))
(if filename (vc-file-getprop filename 'vc-state))))