facebook/sapling
1
1
Fork 0
mirror of https://github.com/facebook/sapling.git synced 2024-10-07 23:38:50 +03:00
Code Issues Projects Releases Wiki Activity

mercurial.el: implement hg-pull, and stub in hg-update.

Browse Source
This commit is contained in:
Bryan O'Sullivan 2005-09-09 22:07:10 -07:00
parent 2c2f2bef65
commit 6745f74e0f
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
contrib/mercurial.el
View File

@ -993,9 +993,16 @@ Variable hg-log-limit controls the number of log entries displayed."
(or repo hg-outgoing-repository))
(hg-log-mode)))
(defun hg-pull ()
(interactive)
(error "not implemented"))
(defun hg-pull (&optional repo)
"Pull changes from repository REPO.
This does not update the working directory."
(interactive (list (hg-read-repo-name " to pull from")))
(hg-view-output ((format "Mercurial: Pull to %s from %s"
(hg-abbrev-file-name (hg-root))
(hg-abbrev-file-name
(or repo hg-incoming-repository))))
(call-process (hg-binary) nil t nil "pull"
(or repo hg-incoming-repository))))
(defun hg-push (&optional repo)
"Push changes to repository REPO."
@ -1079,6 +1086,10 @@ Names are displayed relative to the repository root."
(interactive)
(error "not implemented"))
(defun hg-update ()
(interactive)
(error "not implemented"))
(defun hg-version-other-window ()
(interactive)
(error "not implemented"))