procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(log-view-vc-backend): Declare for compiler.

Browse source 
(vc-hg-outgoing-mode, vc-hg-incoming-mode): Set
log-view-vc-backend so that diff can work.
This commit is contained in:
Dan Nicolaescu 2009-10-05 15:12:29 +00:00
parent c66b7ac005
commit 4a827e0af1
2 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2009-10-05 Dan Nicolaescu <dann@ics.uci.edu> 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 * log-view.el (log-view-diff): Use vc-diff-internal instead of
vc-version-diff. vc-version-diff.
(vc-diff-internal): Autoload this instead of vc-version-diff. (vc-diff-internal): Autoload this instead of vc-version-diff.

16
lisp/vc-hg.el
View file

@ -446,9 +446,15 @@ REV is the revision to check out into WORKFILE."
(defun vc-hg-extra-status-menu () vc-hg-extra-menu-map) (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 (defstruct (vc-hg-extra-fileinfo
(:copier nil) (:copier nil)
@ -569,14 +575,16 @@ REV is the revision to check out into WORKFILE."
(defun vc-hg-outgoing () (defun vc-hg-outgoing ()
(interactive) (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") (vc-hg-command bname 1 nil "outgoing" "-n")
(pop-to-buffer bname) (pop-to-buffer bname)
(vc-hg-outgoing-mode))) (vc-hg-outgoing-mode)))
(defun vc-hg-incoming () (defun vc-hg-incoming ()
(interactive) (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") (vc-hg-command bname 0 nil "incoming" "-n")
(pop-to-buffer bname) (pop-to-buffer bname)
(vc-hg-incoming-mode))) (vc-hg-incoming-mode)))