Mercurial > emacs

comparison lisp/vc-git.el @ 94290:55b13d307a7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-git-status-printer): Deal with directories.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 23 Apr 2008 04:07:11 +0000
parents 5d2bbe3fd618
children ad6c174910db
comparison
equal deleted inserted replaced
94289:82466e0389bb 94290:55b13d307a7a
85 ;; - wash-log (file) COULD BE SUPPORTED 85 ;; - wash-log (file) COULD BE SUPPORTED
86 ;; - logentry-check () NOT NEEDED 86 ;; - logentry-check () NOT NEEDED
87 ;; - comment-history (file) ?? 87 ;; - comment-history (file) ??
88 ;; - update-changelog (files) COULD BE SUPPORTED 88 ;; - update-changelog (files) COULD BE SUPPORTED
89 ;; * diff (file &optional rev1 rev2 buffer) OK 89 ;; * diff (file &optional rev1 rev2 buffer) OK
90 ;; - revision-completion-table (files) NEEDED? 90 ;; - revision-completion-table (files) OK
91 ;; - annotate-command (file buf &optional rev) OK 91 ;; - annotate-command (file buf &optional rev) OK
92 ;; - annotate-time () OK 92 ;; - annotate-time () OK
93 ;; - annotate-current-time () NOT NEEDED 93 ;; - annotate-current-time () NOT NEEDED
94 ;; - annotate-extract-revision-at-line () OK 94 ;; - annotate-extract-revision-at-line () OK
95 ;; SNAPSHOT SYSTEM 95 ;; SNAPSHOT SYSTEM
106 ;; - delete-file (file) OK 106 ;; - delete-file (file) OK
107 ;; - rename-file (old new) OK 107 ;; - rename-file (old new) OK
108 ;; - find-file-hook () NOT NEEDED 108 ;; - find-file-hook () NOT NEEDED
109 ;; - find-file-not-found-hook () NOT NEEDED 109 ;; - find-file-not-found-hook () NOT NEEDED
110 110
111 (eval-when-compile (require 'cl) (require 'vc) (require 'grep)) 111 (eval-when-compile
112 (require 'cl)
113 (require 'vc)
114 (require 'grep))
112 115
113 (defvar git-commits-coding-system 'utf-8 116 (defvar git-commits-coding-system 'utf-8
114 "Default coding system for git commits.") 117 "Default coding system for git commits.")
115 118
116 ;;; BACKEND PROPERTIES 119 ;;; BACKEND PROPERTIES
285 (if (eq 0 (logand ?\111 old-perm)) "+x" "-x")) 288 (if (eq 0 (logand ?\111 old-perm)) "+x" "-x"))
286 'face 'font-lock-type-face)) 289 'face 'font-lock-type-face))
287 290
288 (defun vc-git-status-printer (info) 291 (defun vc-git-status-printer (info)
289 "Pretty-printer for the vc-dir-fileinfo structure." 292 "Pretty-printer for the vc-dir-fileinfo structure."
290 (let* ((state (vc-dir-fileinfo->state info)) 293 (let* ((state (if (vc-dir-fileinfo->directory info)
294 'DIRECTORY
295 (vc-dir-fileinfo->state info)))
291 (extra (vc-dir-fileinfo->extra info)) 296 (extra (vc-dir-fileinfo->extra info))
292 (old-perm (when extra (vc-git-extra-fileinfo->old-perm extra))) 297 (old-perm (when extra (vc-git-extra-fileinfo->old-perm extra)))
293 (new-perm (when extra (vc-git-extra-fileinfo->new-perm extra)))) 298 (new-perm (when extra (vc-git-extra-fileinfo->new-perm extra))))
294 (insert 299 (insert
295 " " 300 " "