comparison contrib/mercurial.el @ 1025:ba08f2ef8cbe

Merge with MPM.
author Bryan O'Sullivan <bos@serpentine.com>
date Tue, 23 Aug 2005 15:30:06 -0700
parents d06420c90d8b
children a5539638c5a3
comparison
equal deleted inserted replaced
1012:d74bcc61be6f 1025:ba08f2ef8cbe
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))
849 (diff-mode)
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