diff lisp/vc.el @ 104618:7c3b132bf9bb

* vc.el (vc-default-prettify-state-info): Remove function, unused. * vc-bzr.el (vc-bzr-prettify-state-info): Remove function, unused.

--- a/lisp/vc.el	Wed Aug 26 07:01:09 2009 +0000
+++ b/lisp/vc.el	Wed Aug 26 07:42:11 2009 +0000
@@ -225,12 +225,6 @@
 ;;   The default implementation deals well with all states that
 ;;   `vc-state' can return.
 ;;
-;; - prettify-state-info (file)
-;;
-;;   Translate the `vc-state' property of FILE into a string that can be
-;;   used in a human-readable buffer.  The default implementation deals well
-;;   with all states that `vc-state' can return.
-;;
 ;; STATE-CHANGING FUNCTIONS
 ;;
 ;; * create-repo (backend)
@@ -2389,26 +2383,6 @@
 	    (insert-file-contents-literally tmpfile)))
       (delete-file tmpfile))))
 
-(defun vc-default-prettify-state-info (backend file)
-  (let* ((state (vc-state file))
-	(statestring
-	 (cond
-	  ((stringp state) (concat "(locked:" state ")"))
-	  ((eq state 'edited) "(modified)")
-	  ((eq state 'needs-merge) "(merge)")
-	  ((eq state 'needs-update) "(update)")
-	  ((eq state 'added) "(added)")
-	  ((eq state 'removed) "(removed)")
-          ((eq state 'ignored) "(ignored)")
-          ((eq state 'unregistered) "(unregistered)")
-	  ((eq state 'unlocked-changes) "(stale)")
-	  (t (format "(unknown:%s)" state))))
-	(buffer
-	 (get-file-buffer file))
-	(modflag
-	 (if (and buffer (buffer-modified-p buffer)) "+" "")))
-    (concat statestring modflag)))
-
 (defun vc-default-rename-file (backend old new)
   (condition-case nil
       (add-name-to-file old new)