# HG changeset patch # User Eric S. Raymond # Date 1209711419 0 # Node ID fee32a11924d43998ffff8e5b22aa0161c7682e2 # Parent dc1cd59ce955687b07075e208eca426fd439c324 Name change in preparation for ripping out vc-dired. diff -r dc1cd59ce955 -r fee32a11924d lisp/ChangeLog --- a/lisp/ChangeLog Fri May 02 03:52:08 2008 +0000 +++ b/lisp/ChangeLog Fri May 02 06:56:59 2008 +0000 @@ -1,3 +1,10 @@ +2008-05-02 Eric S. Raymond + + * vc.el (vc-default-dired-state-info): Change name of primitive + to prettify-state-info, in preparation for ripping out dired mode. + * vc-bzr.el (vc-bzr-dired-state-info): Change name of primitive + to prettify-state-info, in preparation for ripping out dired mode. + 2008-05-02 Dan Nicolaescu * vc-rcs.el (vc-rcs-state): Fix typos. @@ -33,14 +40,14 @@ * vc.el (vc-default-dired-state): Change needs-patch state to needs-update, since the name now shows up in dir-status listings and was somewhat misleading. - * vc-cvs.el (vc-cvs-delete-file) Don't do a "cvs commit" + * vc-cvs.el (vc-cvs-delete-file): Don't do a "cvs commit" immediately after removing the file. * vc.el (vc-next-action): More informative messages when a fileset is in a mixed state or files are missing. 2008-05-01 Sam Steingold - * vc.el (vc-delete-file): Check if the file has uncommitted changed. + * vc.el (vc-delete-file): Check if the file has uncommitted changes. 2008-05-01 Stefan Monnier diff -r dc1cd59ce955 -r fee32a11924d lisp/vc-bzr.el --- a/lisp/vc-bzr.el Fri May 02 03:52:08 2008 +0000 +++ b/lisp/vc-bzr.el Fri May 02 06:56:59 2008 +0000 @@ -647,13 +647,13 @@ (setq current-vc-state nil) (setq current-bzr-state nil))))))) -(defun vc-bzr-dired-state-info (file) - "Bzr-specific version of `vc-dired-state-info'." +(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-dired-state-info 'Bzr file))) + (vc-default-prettify-state-info 'Bzr file))) ;; XXX: this needs testing, it's probably incomplete. (defun vc-bzr-after-dir-status (update-function) diff -r dc1cd59ce955 -r fee32a11924d lisp/vc-git.el --- a/lisp/vc-git.el Fri May 02 03:52:08 2008 +0000 +++ b/lisp/vc-git.el Fri May 02 06:56:59 2008 +0000 @@ -58,7 +58,7 @@ ;; * checkout-model (file) OK ;; - workfile-unchanged-p (file) OK ;; - mode-line-string (file) OK -;; - dired-state-info (file) OK +;; - prettify-state-info (file) OK ;; STATE-CHANGING FUNCTIONS ;; * create-repo () OK ;; * register (files &optional rev comment) OK diff -r dc1cd59ce955 -r fee32a11924d lisp/vc-hg.el --- a/lisp/vc-hg.el Fri May 02 03:52:08 2008 +0000 +++ b/lisp/vc-hg.el Fri May 02 06:56:59 2008 +0000 @@ -50,7 +50,7 @@ ;; * checkout-model (file) OK ;; - workfile-unchanged-p (file) OK ;; - mode-line-string (file) NOT NEEDED -;; - dired-state-info (file) OK +;; - prettify-state-info (file) OK ;; STATE-CHANGING FUNCTIONS ;; * register (files &optional rev comment) OK ;; * create-repo () OK diff -r dc1cd59ce955 -r fee32a11924d lisp/vc.el --- a/lisp/vc.el Fri May 02 03:52:08 2008 +0000 +++ b/lisp/vc.el Fri May 02 06:56:59 2008 +0000 @@ -254,10 +254,10 @@ ;; The default implementation deals well with all states that ;; `vc-state' can return. ;; -;; - dired-state-info (file) +;; - prettify-state-info (file) ;; ;; Translate the `vc-state' property of FILE into a string that can be -;; used in a vc-dired buffer. The default implementation deals well +;; used in a human-readable buffer. The default implementation deals well ;; with all states that `vc-state' can return. ;; ;; STATE-CHANGING FUNCTIONS @@ -674,6 +674,9 @@ ;; - backends that care about vc-stay-local should try to take it into ;; account for vc-dir. Is this likely to be useful??? ;; +;; - vc-dir listing needs a footer generated when it's done to make it obvious +;; that it has finished. +;; ;;; Code: (require 'vc-hooks) @@ -2678,7 +2681,7 @@ (forward-line 1))) ;; Either we're in non-terse mode or it's out of date ((not (and vc-dired-terse-mode (vc-up-to-date-p filename))) - (vc-dired-reformat-line (vc-call dired-state-info filename)) + (vc-dired-reformat-line (vc-call prettify-state-info filename)) (forward-line 1)) ;; Remaining cases are under version control but uninteresting (t @@ -4256,7 +4259,7 @@ (insert-file-contents-literally tmpfile))) (delete-file tmpfile)))) -(defun vc-default-dired-state-info (backend file) +(defun vc-default-prettify-state-info (backend file) (let* ((state (vc-state file)) (statestring (cond