Mercurial Mercurial > mercurial / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
contrib/mercurial.el
changeset 2877 0ffca0cb9f4b
parent 2737 a5c43944e1ee
child 2997 48baf9fb1921
equal deleted inserted replaced
2876:cf86bbb8ed68 2877:0ffca0cb9f4b 
   720       (delete-region pos (point)))
 
   720       (delete-region pos (point)))
 
   721     (let ((hg-root-dir (hg-root)))
 
   721     (let ((hg-root-dir (hg-root)))
 
   722       (if (not hg-root-dir)
 
   722       (if (not hg-root-dir)
 
   723 	  (error "error: %s: directory is not part of a Mercurial repository."
 
   723 	  (error "error: %s: directory is not part of a Mercurial repository."
 
   724 		 default-directory)
 
   724 		 default-directory)
 
   725 	(cd (hg-root))))))
 
   725 	(cd hg-root-dir)))))
 
   726 
   726 
   727 (defun hg-add (path)
 
   727 (defun hg-add (path)
 
   728   "Add PATH to the Mercurial repository on the next commit.
 
   728   "Add PATH to the Mercurial repository on the next commit.
 
   729 With a prefix argument, prompt for the path to add."
 
   729 With a prefix argument, prompt for the path to add."
 
   730   (interactive (list (hg-read-file-name " to add")))
 
   730   (interactive (list (hg-read-file-name " to add")))
mercurial