Mercurial > emacs
changeset 94107:5d2bbe3fd618
Rename vc-status to vc-dir.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 16 Apr 2008 03:00:53 +0000 |
| parents | 9294e3bd7d46 |
| children | 7ab68bf3a905 |
| files | lisp/vc-git.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-git.el Wed Apr 16 00:57:12 2008 +0000 +++ b/lisp/vc-git.el Wed Apr 16 03:00:53 2008 +0000 @@ -286,14 +286,14 @@ 'face 'font-lock-type-face)) (defun vc-git-status-printer (info) - "Pretty-printer for the vc-status-fileinfo structure." - (let* ((state (vc-status-fileinfo->state info)) - (extra (vc-status-fileinfo->extra info)) + "Pretty-printer for the vc-dir-fileinfo structure." + (let* ((state (vc-dir-fileinfo->state info)) + (extra (vc-dir-fileinfo->extra info)) (old-perm (when extra (vc-git-extra-fileinfo->old-perm extra))) (new-perm (when extra (vc-git-extra-fileinfo->new-perm extra)))) (insert " " - (propertize (format "%c" (if (vc-status-fileinfo->marked info) ?* ? )) + (propertize (format "%c" (if (vc-dir-fileinfo->marked info) ?* ? )) 'face 'font-lock-type-face) " " (propertize @@ -304,7 +304,7 @@ 'mouse-face 'highlight) " " (vc-git-permissions-as-string old-perm new-perm) " " - (propertize (vc-git-escape-file-name (vc-status-fileinfo->name info)) + (propertize (vc-git-escape-file-name (vc-dir-fileinfo->name info)) 'face 'font-lock-function-name-face 'mouse-face 'highlight) (vc-git-file-type-as-string old-perm new-perm) @@ -387,7 +387,7 @@ "Return a list of (FILE STATE EXTRA) entries for DIR." ;; Further things that would have to be fixed later: ;; - how to handle unregistered directories - ;; - how to support vc-status on a subdir of the project tree + ;; - how to support vc-dir on a subdir of the project tree (vc-git-dir-status-goto-stage 'update-index nil update-function)) (defun vc-git-dir-status-files (dir files default-state update-function)