equal
deleted
inserted
replaced
991 (or repo hg-outgoing-repository)))) |
991 (or repo hg-outgoing-repository)))) |
992 (call-process (hg-binary) nil t nil "outgoing" |
992 (call-process (hg-binary) nil t nil "outgoing" |
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." |
1002 (interactive (list (hg-read-repo-name " to push to"))) |
1009 (interactive (list (hg-read-repo-name " to push to"))) |
1003 (hg-view-output ((format "Mercurial: Push from %s to %s" |
1010 (hg-view-output ((format "Mercurial: Push from %s to %s" |
1077 |
1084 |
1078 (defun hg-undo () |
1085 (defun hg-undo () |
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")) |
1085 |
1096 |
1086 |
1097 |