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

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

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

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

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

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

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

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

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

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

   850       (font-lock-fontify-buffer))))

   849       (font-lock-fontify-buffer))))

   851 

   850 

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

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

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

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

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

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