Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 21:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Problems): Remove fixed issues.

Browse source 
(vc-expand-dirs): Avoid returning directories.
This commit is contained in:
Dan Nicolaescu 2008-05-26 23:53:33 +00:00
parent 4f922bf541
commit 918e2ac456
2 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -1,6 +1,7 @@
2008-05-26 Dan Nicolaescu <dann@ics.uci.edu>
* vc.el (Problems): Remove fixed issues.
(vc-expand-dirs): Avoid returning directories.
* vc-dispatcher.el (vc-resynch-window): Fix mode-line updating.
(vc-dir-menu-map): Fix menu title for the menu bar and the popup menu.

10
lisp/vc.el
View file

@ -656,8 +656,6 @@
;;
;; - the CVS vc-dir display is now incorrect from some states.
;;
;; - vc-dir is now broken for RCS and SCCS.
;;
;; - the *vc-dir* buffer is not updated correctly anymore after VC
;; operations that change the file state.
;;
@ -988,10 +986,10 @@ be registered."
Within directories, only files already under version control are noticed."
(let ((flattened '()))
(dolist (node file-or-dir-list)
(if (file-directory-p node)
(vc-file-tree-walk
node (lambda (f) (when (vc-backend f) (push f flattened)))))
(push node flattened))
(when (file-directory-p node)
(vc-file-tree-walk
node (lambda (f) (when (vc-backend f) (push f flattened)))))
(unless (file-directory-p node) (push node flattened)))
(nreverse flattened)))
(defun vc-derived-from-dir-mode (&optional buffer)