Mercurial > emacs
changeset 105473:07f6674a0832
(log-view-vc-backend): Declare for compiler.
(vc-hg-outgoing-mode, vc-hg-incoming-mode): Set
log-view-vc-backend so that diff can work.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 05 Oct 2009 15:12:29 +0000 |
| parents | 7810759c427c |
| children | 0a64442c10e3 |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 16 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Oct 05 15:09:59 2009 +0000 +++ b/lisp/ChangeLog Mon Oct 05 15:12:29 2009 +0000 @@ -1,5 +1,9 @@ 2009-10-05 Dan Nicolaescu <dann@ics.uci.edu> + * vc-hg.el (log-view-vc-backend): Declare for compiler. + (vc-hg-outgoing-mode, vc-hg-incoming-mode): Set + log-view-vc-backend so that diff can work. + * log-view.el (log-view-diff): Use vc-diff-internal instead of vc-version-diff. (vc-diff-internal): Autoload this instead of vc-version-diff.
--- a/lisp/vc-hg.el Mon Oct 05 15:09:59 2009 +0000 +++ b/lisp/vc-hg.el Mon Oct 05 15:12:29 2009 +0000 @@ -446,9 +446,15 @@ (defun vc-hg-extra-status-menu () vc-hg-extra-menu-map) -(define-derived-mode vc-hg-outgoing-mode vc-hg-log-view-mode "Hg-Outgoing") +(defvar log-view-vc-backend) -(define-derived-mode vc-hg-incoming-mode vc-hg-log-view-mode "Hg-Incoming") +(define-derived-mode vc-hg-outgoing-mode vc-hg-log-view-mode "Hg-Outgoing" + "Mode for browsing Hg outgoing changes." + (set (make-local-variable 'log-view-vc-backend) 'Hg)) + +(define-derived-mode vc-hg-incoming-mode vc-hg-log-view-mode "Hg-Incoming" + "Mode for browsing Hg incoming changes." + (set (make-local-variable 'log-view-vc-backend) 'Hg)) (defstruct (vc-hg-extra-fileinfo (:copier nil) @@ -569,14 +575,16 @@ (defun vc-hg-outgoing () (interactive) - (let ((bname "*Hg outgoing*") (vc-short-log nil)) + (let ((bname "*Hg outgoing*") + (vc-short-log nil)) (vc-hg-command bname 1 nil "outgoing" "-n") (pop-to-buffer bname) (vc-hg-outgoing-mode))) (defun vc-hg-incoming () (interactive) - (let ((bname "*Hg incoming*") (vc-short-log nil)) + (let ((bname "*Hg incoming*") + (vc-short-log nil)) (vc-hg-command bname 0 nil "incoming" "-n") (pop-to-buffer bname) (vc-hg-incoming-mode)))