Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/mercurial.el @ 1246:ae96c85fb0af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mercurial.el: implement hg-pull, and stub in hg-update.
author Bryan O'Sullivan <bos@serpentine.com>
date Fri, 09 Sep 2005 22:07:10 -0700
parents 8acf62f579d8
children 2073e5a71008
comparison
equal deleted inserted replaced
1231:effff847870f 1246:ae96c85fb0af
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