emacs-diffs
[Top][All Lists]
Advanced

[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)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]