Mercurial > emacs
comparison lisp/vc.el @ 87679:caf9a76fd5a3
(vc-deduce-fileset): Return the currently selected file if
no files are selected when using vc-status.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 09 Jan 2008 07:21:08 +0000 |
| parents | e4a11c2d5016 |
| children | c1ba1fb56b96 |
comparison
equal
deleted
inserted
replaced
| 87678:ae3fe9150b36 | 87679:caf9a76fd5a3 |
|---|---|
| 1274 (let ((firstbackend (vc-backend (car marked)))) | 1274 (let ((firstbackend (vc-backend (car marked)))) |
| 1275 (dolist (f (cdr marked)) | 1275 (dolist (f (cdr marked)) |
| 1276 (unless (eq (vc-backend f) firstbackend) | 1276 (unless (eq (vc-backend f) firstbackend) |
| 1277 (error "All members of a fileset must be under the same version-control system.")))) | 1277 (error "All members of a fileset must be under the same version-control system.")))) |
| 1278 marked)) | 1278 marked)) |
| 1279 ((eq major-mode 'vc-status-mode) | 1279 ((eq major-mode 'vc-status-mode) |
| 1280 (vc-status-marked-files)) | 1280 (let ((marked (vc-status-marked-files))) |
| 1281 ((vc-backend buffer-file-name) | 1281 (if marked |
| 1282 marked | |
| 1283 (list (vc-status-current-file))))) | |
| 1284 ((vc-backend buffer-file-name) | |
| 1282 (list buffer-file-name)) | 1285 (list buffer-file-name)) |
| 1283 ((and vc-parent-buffer (or (buffer-file-name vc-parent-buffer) | 1286 ((and vc-parent-buffer (or (buffer-file-name vc-parent-buffer) |
| 1284 (with-current-buffer vc-parent-buffer | 1287 (with-current-buffer vc-parent-buffer |
| 1285 vc-dired-mode))) | 1288 vc-dired-mode))) |
| 1286 (progn | 1289 (progn |