Show More
@@ -1211,6 +1211,21 b' prompts for a path to check."' | |||
|
1211 | 1211 | root) |
|
1212 | 1212 | hg-root)) |
|
1213 | 1213 | |
|
1214 | (defun hg-cwd (&optional path) | |
|
1215 | "Return the current directory of PATH within the repository." | |
|
1216 | (do ((stack nil (cons (file-name-nondirectory | |
|
1217 | (directory-file-name dir)) | |
|
1218 | stack)) | |
|
1219 | (prev nil dir) | |
|
1220 | (dir (file-name-directory (or path buffer-file-name | |
|
1221 | (expand-file-name default-directory))) | |
|
1222 | (file-name-directory (directory-file-name dir)))) | |
|
1223 | ((equal prev dir)) | |
|
1224 | (when (file-directory-p (concat dir ".hg")) | |
|
1225 | (let ((cwd (mapconcat 'identity stack "/"))) | |
|
1226 | (unless (equal cwd "") | |
|
1227 | (return (file-name-as-directory cwd))))))) | |
|
1228 | ||
|
1214 | 1229 | (defun hg-status (path) |
|
1215 | 1230 | "Print revision control status of a file or directory. |
|
1216 | 1231 | With prefix argument, prompt for the path to give status for. |
General Comments 0
You need to be logged in to leave comments.
Login now