From 4f07b9f2ef91d40ee39703592550669cf4278e08 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Tue, 1 Jan 2008 18:40:42 +0000 Subject: [PATCH] Remove some debugging code. --- lisp/vc-svn.el | 24 ++++++++++-------------- 1 file changed, 10 insertions(+), 14 deletions(-) diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 6fcc1239fb3..923613f5b04 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -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)))) -- 2.11.4.GIT