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 |