Mercurial > emacs
comparison lisp/vc-hg.el @ 93957:139a888c8649
(vc-hg-dir-status): Remove unneeded call.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 10 Apr 2008 07:34:40 +0000 |
| parents | 3afeea9a48a3 |
| children | 2ecb2ea8d5b5 |
comparison
equal
deleted
inserted
replaced
| 93956:bfc762f0b49c | 93957:139a888c8649 |
|---|---|
| 485 (?M . edited) | 485 (?M . edited) |
| 486 (?I . ignored) | 486 (?I . ignored) |
| 487 (?! . missing) | 487 (?! . missing) |
| 488 (?? . unregistered))) | 488 (?? . unregistered))) |
| 489 (translated nil) | 489 (translated nil) |
| 490 (result nil)) | 490 (result nil)) |
| 491 (goto-char (point-min)) | 491 (goto-char (point-min)) |
| 492 (while (not (eobp)) | 492 (while (not (eobp)) |
| 493 (setq status-char (char-after)) | 493 (setq status-char (char-after)) |
| 494 (setq file | 494 (setq file |
| 495 (buffer-substring-no-properties (+ (point) 2) | 495 (buffer-substring-no-properties (+ (point) 2) |
| 500 (forward-line)) | 500 (forward-line)) |
| 501 (funcall update-function result status-buffer))) | 501 (funcall update-function result status-buffer))) |
| 502 | 502 |
| 503 ;; XXX Experimental function for the vc-dired replacement. | 503 ;; XXX Experimental function for the vc-dired replacement. |
| 504 (defun vc-hg-dir-status (dir update-function status-buffer) | 504 (defun vc-hg-dir-status (dir update-function status-buffer) |
| 505 "Return a list of conses (file . state) for DIR." | |
| 506 (erase-buffer) | |
| 507 (vc-hg-command (current-buffer) 'async dir "status") | 505 (vc-hg-command (current-buffer) 'async dir "status") |
| 508 (vc-exec-after | 506 (vc-exec-after |
| 509 `(vc-hg-after-dir-status (quote ,update-function) ,status-buffer))) | 507 `(vc-hg-after-dir-status (quote ,update-function) ,status-buffer))) |
| 510 | 508 |
| 511 ;; XXX this adds another top level menu, instead figure out how to | 509 ;; XXX this adds another top level menu, instead figure out how to |