Mercurial > emacs

comparison lisp/vc-dir.el @ 96888:32da3745adc8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed mismatched parenthesis in vc-dir.el. See Sven Joachim message <87fxq2cotk.fsf@gmx.de> on [emacs-devel]. 2008-07-22 Sven Joachim <svenjoac@gmx.de> (tiny change) * vc-dir.el (vc-dir-recompute-file-state): Fix mismatched paenthesis.
author Bastien Guerry <bzg@altern.org>
date Tue, 22 Jul 2008 08:42:19 +0000
parents 938dd02137bc
children 4abff057d348
comparison
equal deleted inserted replaced
96887:936b47c046f0 96888:32da3745adc8
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 775 (remove-me-when-CVS-works
776 (when (eq vc-dir-backend 'CVS) 776 (when (eq vc-dir-backend 'CVS)
777 ;; FIXME: Warning: UGLY HACK. The CVS backend caches the state 777 ;; FIXME: Warning: UGLY HACK. The CVS backend caches the state
778 ;; info, this forces the backend to update it. 778 ;; info, this forces the backend to update it.
779 (vc-call-backend vc-dir-backend 'registered fname)) 779 (vc-call-backend vc-dir-backend 'registered fname)))
780 (state (vc-call-backend vc-dir-backend 'state fname)) 780 (state (vc-call-backend vc-dir-backend 'state fname))
781 (extra (vc-call-backend vc-dir-backend 781 (extra (vc-call-backend vc-dir-backend
782 'status-fileinfo-extra fname))) 782 'status-fileinfo-extra fname)))
783 (list file-short state extra))) 783 (list file-short state extra)))
784 784