[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog vc-hg.el |
Date: |
Mon, 05 Oct 2009 15:12:33 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 09/10/05 15:12:32
Modified files:
lisp : ChangeLog vc-hg.el
Log message:
(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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16364&r2=1.16365
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-hg.el?cvsroot=emacs&r1=1.102&r2=1.103
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16364
retrieving revision 1.16365
diff -u -b -r1.16364 -r1.16365
--- ChangeLog 5 Oct 2009 15:09:59 -0000 1.16364
+++ ChangeLog 5 Oct 2009 15:12:29 -0000 1.16365
@@ -1,5 +1,9 @@
2009-10-05 Dan Nicolaescu <address@hidden>
+ * 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.
Index: vc-hg.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hg.el,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -b -r1.102 -r1.103
--- vc-hg.el 22 Sep 2009 23:49:13 -0000 1.102
+++ vc-hg.el 5 Oct 2009 15:12:32 -0000 1.103
@@ -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)))
- [Emacs-diffs] emacs/lisp ChangeLog vc-hg.el,
Dan Nicolaescu <=