Mercurial > hg > mercurial-crew-with-dirclash
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 |