Mercurial > hg > xemacs-beta

comparison lisp/packages/vc.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents b980b6286996
children 59463afc5666
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
1143 1143
1144 If the optional third argument NESTED is non-nil, 1144 If the optional third argument NESTED is non-nil,
1145 scan the entire tree of subdirectories of the current directory." 1145 scan the entire tree of subdirectories of the current directory."
1146 (interactive "DVC status of directory: \nP") 1146 (interactive "DVC status of directory: \nP")
1147 (let* (nonempty 1147 (let* (nonempty
1148 (dl (length dir)) 1148 (dl (+ 1 (length (directory-file-name (expand-file-name dir)))))
1149 (filelist nil) (userlist nil) 1149 (filelist nil) (userlist nil)
1150 dired-buf 1150 dired-buf
1151 (subfunction 1151 (subfunction
1152 (function (lambda (f) 1152 (function (lambda (f)
1153 (if (vc-registered f) 1153 (if (vc-registered f)
1154 (let ((user (vc-locking-user f))) 1154 (let ((user (vc-locking-user f)))
1155 (and (or verbose user) 1155 (and (or verbose user)
1156 (setq filelist (cons (substring f dl) filelist)) 1156 (setq filelist (cons (substring f dl) filelist))
1157 (setq userlist (cons user userlist))))))))) 1157 (setq userlist (cons user userlist)))))))))
1158 (let ((default-directory dir)) 1158 (let ((default-directory (expand-file-name dir)))
1159 (if nested 1159 (if nested
1160 (vc-file-tree-walk subfunction) 1160 (vc-file-tree-walk subfunction)
1161 (vc-dir-all-files subfunction))) 1161 (vc-dir-all-files subfunction)))
1162 (save-excursion 1162 (save-excursion
1163 (dired (cons dir (nreverse filelist)) 1163 (dired (cons dir (nreverse filelist))