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) |