Mercurial > emacs
comparison lisp/vc-hg.el @ 87604:26665fb0f604
(vc-hg-dir-state, vc-hg-dir-status): Pass the dir
argument to vc-hg-command.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 07 Jan 2008 03:04:01 +0000 |
| parents | efe45ef69877 |
| children | 7ca7e531270c |
comparison
equal
deleted
inserted
replaced
| 87603:91ea9f8cc64f | 87604:26665fb0f604 |
|---|---|
| 182 (t 'up-to-date))))))) | 182 (t 'up-to-date))))))) |
| 183 | 183 |
| 184 (defun vc-hg-dir-state (dir) | 184 (defun vc-hg-dir-state (dir) |
| 185 (with-temp-buffer | 185 (with-temp-buffer |
| 186 (buffer-disable-undo) ;; Because these buffers can get huge | 186 (buffer-disable-undo) ;; Because these buffers can get huge |
| 187 (vc-hg-command (current-buffer) nil nil "status" "-A") | 187 (vc-hg-command (current-buffer) nil dir "status" "-A") |
| 188 (goto-char (point-min)) | 188 (goto-char (point-min)) |
| 189 (let ((status-char nil) | 189 (let ((status-char nil) |
| 190 (file nil)) | 190 (file nil)) |
| 191 (while (not (eobp)) | 191 (while (not (eobp)) |
| 192 (setq status-char (char-after)) | 192 (setq status-char (char-after)) |
| 480 | 480 |
| 481 ;; XXX Experimental function for the vc-dired replacement. | 481 ;; XXX Experimental function for the vc-dired replacement. |
| 482 (defun vc-hg-dir-status (dir) | 482 (defun vc-hg-dir-status (dir) |
| 483 "Return a list of conses (file . state) for DIR." | 483 "Return a list of conses (file . state) for DIR." |
| 484 (with-temp-buffer | 484 (with-temp-buffer |
| 485 (vc-hg-command (current-buffer) nil nil "status" "-A") | 485 (vc-hg-command (current-buffer) nil dir "status" "-A") |
| 486 (goto-char (point-min)) | 486 (goto-char (point-min)) |
| 487 (let ((status-char nil) | 487 (let ((status-char nil) |
| 488 (file nil) | 488 (file nil) |
| 489 (translation '((?= . up-to-date) | 489 (translation '((?= . up-to-date) |
| 490 (?C . up-to-date) | 490 (?C . up-to-date) |