mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source 
* vc-bzr.el (vc-bzr-prettify-state-info): Remove function, unused.
This commit is contained in:
Dan Nicolaescu 2009-08-26 07:42:11 +00:00
parent 2ddf440db1
commit dc81064982
3 changed files with 3 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -9,6 +9,9 @@
* vc.el: Document the desired behavior for reverted files in the
`added' state.
(vc-default-prettify-state-info): Remove function, unused.
* vc-bzr.el (vc-bzr-prettify-state-info): Remove function, unused.
2009-08-26 Glenn Morris <rgm@gnu.org>

8
lisp/vc-bzr.el
View File

@ -594,14 +594,6 @@ stream. Standard error output is discarded."
(apply #'process-file command nil (list (current-buffer) nil) nil args)
(buffer-substring (point-min) (point-max)))))
(defun vc-bzr-prettify-state-info (file)
"Bzr-specific version of `vc-prettify-state-info'."
(if (eq 'edited (vc-state file))
(concat "(" (symbol-name (or (vc-file-getprop file 'vc-bzr-state)
'edited)) ")")
;; else fall back to default vc.el representation
(vc-default-prettify-state-info 'Bzr file)))
(defstruct (vc-bzr-extra-fileinfo
(:copier nil)
(:constructor vc-bzr-create-extra-fileinfo (extra-name))

26
lisp/vc.el
View File

@ -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 @@ to provide the `find-revision' operation instead."
(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)