From: Stefan Monnier Date: Wed, 16 Apr 2008 03:00:53 +0000 (+0000) Subject: Rename vc-status to vc-dir. X-Git-Tag: emacs-pretest-23.0.90~6258 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=99e1b0c028f71e7726ca761e32e3b3316a90cb3c;p=emacs.git Rename vc-status to vc-dir. --- diff --git a/lisp/vc-git.el b/lisp/vc-git.el index 70ef18cf8f5..175f7dcf921 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el @@ -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)