Mercurial > emacs

comparison lisp/vc-dir.el @ 96880:938dd02137bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-dir-recompute-file-state): Add workaround for CVS.
author Dan Nicolaescu <dann@ics.uci.edu>
date Tue, 22 Jul 2008 02:18:29 +0000
parents d39625535543
children 32da3745adc8
comparison
equal deleted inserted replaced
96879:2ba26c26640b 96880:938dd02137bc
770 (vc-dir-fileinfo->state crt-data)) result)) 770 (vc-dir-fileinfo->state crt-data)) result))
771 result)) 771 result))
772 772
773 (defun vc-dir-recompute-file-state (fname def-dir) 773 (defun vc-dir-recompute-file-state (fname def-dir)
774 (let* ((file-short (file-relative-name fname def-dir)) 774 (let* ((file-short (file-relative-name fname def-dir))
775 (remove-me-when-CVS-works
776 (when (eq vc-dir-backend 'CVS)
777 ;; FIXME: Warning: UGLY HACK. The CVS backend caches the state
778 ;; info, this forces the backend to update it.
779 (vc-call-backend vc-dir-backend 'registered fname))
775 (state (vc-call-backend vc-dir-backend 'state fname)) 780 (state (vc-call-backend vc-dir-backend 'state fname))
776 (extra (vc-call-backend vc-dir-backend 781 (extra (vc-call-backend vc-dir-backend
777 'status-fileinfo-extra fname))) 782 'status-fileinfo-extra fname)))
778 (list file-short state extra))) 783 (list file-short state extra)))
779 784