Show More
@@ -993,9 +993,16 b' Variable hg-log-limit controls the numbe' | |||||
993 | (or repo hg-outgoing-repository)) |
|
993 | (or repo hg-outgoing-repository)) | |
994 | (hg-log-mode))) |
|
994 | (hg-log-mode))) | |
995 |
|
995 | |||
996 | (defun hg-pull () |
|
996 | (defun hg-pull (&optional repo) | |
997 | (interactive) |
|
997 | "Pull changes from repository REPO. | |
998 | (error "not implemented")) |
|
998 | This does not update the working directory." | |
|
999 | (interactive (list (hg-read-repo-name " to pull from"))) | |||
|
1000 | (hg-view-output ((format "Mercurial: Pull to %s from %s" | |||
|
1001 | (hg-abbrev-file-name (hg-root)) | |||
|
1002 | (hg-abbrev-file-name | |||
|
1003 | (or repo hg-incoming-repository)))) | |||
|
1004 | (call-process (hg-binary) nil t nil "pull" | |||
|
1005 | (or repo hg-incoming-repository)))) | |||
999 |
|
1006 | |||
1000 | (defun hg-push (&optional repo) |
|
1007 | (defun hg-push (&optional repo) | |
1001 | "Push changes to repository REPO." |
|
1008 | "Push changes to repository REPO." | |
@@ -1079,6 +1086,10 b' Names are displayed relative to the repo' | |||||
1079 | (interactive) |
|
1086 | (interactive) | |
1080 | (error "not implemented")) |
|
1087 | (error "not implemented")) | |
1081 |
|
1088 | |||
|
1089 | (defun hg-update () | |||
|
1090 | (interactive) | |||
|
1091 | (error "not implemented")) | |||
|
1092 | ||||
1082 | (defun hg-version-other-window () |
|
1093 | (defun hg-version-other-window () | |
1083 | (interactive) |
|
1094 | (interactive) | |
1084 | (error "not implemented")) |
|
1095 | (error "not implemented")) |
General Comments 0
You need to be logged in to leave comments.
Login now