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