From: Eric S. Raymond <esr@snark.thyrsus.com>
Date: Tue, 1 Jan 2008 18:40:42 +0000 (+0000)
Subject: Remove some debugging code.
X-Git-Tag: emacs-pretest-23.0.90~8746
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f07b9f2ef91d40ee39703592550669cf4278e08;p=emacs.git

Remove some debugging code.
---

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