856 		       (format "Mercurial: Rev %s to %s of %s"

   856 		       (format "Mercurial: Rev %s to %s of %s"

   857 			       rev1 (or rev2 "Current") a-path)))

   857 			       rev1 (or rev2 "Current") a-path)))

   858       (if (> (length path) (length (hg-root path)))

   858       (if (> (length path) (length (hg-root path)))

   859 	  (call-process (hg-binary) nil t nil "log" "-r" rev1 "-r" rev2 path)

   859 	  (call-process (hg-binary) nil t nil "log" "-r" rev1 "-r" rev2 path)

   860 	(call-process (hg-binary) nil t nil "log" "-r" rev1 "-r" rev2))

   860 	(call-process (hg-binary) nil t nil "log" "-r" rev1 "-r" rev2))

   862       (font-lock-fontify-buffer))))

   861       (font-lock-fontify-buffer))))

   863 

   862 

   864 (defun hg-log-repo (path &optional rev1 rev2)

   863 (defun hg-log-repo (path &optional rev1 rev2)

   865   "Display the revision history of the repository containing PATH.

   864   "Display the revision history of the repository containing PATH.

   866 History is displayed between REV1, which defaults to the tip, and

   865 History is displayed between REV1, which defaults to the tip, and