Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/mercurial.el @ 3044:fcadf7a32425

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with mpm
author Josef "Jeff" Sipek <jeffpc@josefsipek.net>
date Sun, 03 Sep 2006 06:06:02 -0400
parents 0ffca0cb9f4b
children 48baf9fb1921
comparison
equal deleted inserted replaced
3043:2a4d4aecb2b4 3044:fcadf7a32425
716 (let ((pos (point))) 716 (let ((pos (point)))
717 (insert (documentation 'hg-mode)) 717 (insert (documentation 'hg-mode))
718 (goto-char pos) 718 (goto-char pos)
719 (end-of-line 1) 719 (end-of-line 1)
720 (delete-region pos (point))) 720 (delete-region pos (point)))
721 (cd (hg-root)))) 721 (let ((hg-root-dir (hg-root)))
722 (if (not hg-root-dir)
723 (error "error: %s: directory is not part of a Mercurial repository."
724 default-directory)
725 (cd hg-root-dir)))))
722 726
723 (defun hg-add (path) 727 (defun hg-add (path)
724 "Add PATH to the Mercurial repository on the next commit. 728 "Add PATH to the Mercurial repository on the next commit.
725 With a prefix argument, prompt for the path to add." 729 With a prefix argument, prompt for the path to add."
726 (interactive (list (hg-read-file-name " to add"))) 730 (interactive (list (hg-read-file-name " to add")))