comparison contrib/mercurial.el @ 1026:a5539638c5a3

Merge with MPM.
author Bryan O'Sullivan <bos@serpentine.com>
date Tue, 23 Aug 2005 15:42:06 -0700
parents 5b257e419816 ba08f2ef8cbe
children cb31576ed3e4
comparison
equal deleted inserted replaced
1024:5b257e419816 1026:a5539638c5a3
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))
861 (diff-mode)
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