[Emacs-diffs] emacs/lisp ChangeLog vc-git.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/11/05 03:24:12

Modified files:
        lisp           : ChangeLog vc-git.el 

Log message:
        (vc-git-stash-map): Move definition before use.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16564&r2=1.16565
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-git.el?cvsroot=emacs&r1=1.96&r2=1.97

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16564
retrieving revision 1.16565
diff -u -b -r1.16564 -r1.16565
--- ChangeLog   5 Nov 2009 03:23:31 -0000       1.16564
+++ ChangeLog   5 Nov 2009 03:24:08 -0000       1.16565
@@ -7,6 +7,8 @@
 
        * calendar/diary-lib.el (top-level): Make load behave more like require.
 
+       * vc-git.el (vc-git-stash-map): Move definition before use.
+
 2009-11-04  Dan Nicolaescu  <address@hidden>
 
        * custom.el (custom-declare-group): Purecopy standard-value.

Index: vc-git.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-git.el,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -b -r1.96 -r1.97
--- vc-git.el   19 Oct 2009 05:04:28 -0000      1.96
+++ vc-git.el   5 Nov 2009 03:24:12 -0000       1.97
@@ -399,6 +399,13 @@
   "Return a list of (FILE STATE EXTRA) entries for FILES in DIR."
   (vc-git-dir-status-goto-stage 'update-index files update-function))
 
+(defvar vc-git-stash-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\C-k" 'vc-git-stash-delete-at-point)
+    (define-key map "=" 'vc-git-stash-show-at-point)
+    (define-key map "\C-m" 'vc-git-stash-show-at-point)
+    map))
+
 (defun vc-git-dir-extra-headers (dir)
   (let ((str (with-output-to-string
                (with-current-buffer standard-output
@@ -831,13 +838,6 @@
   (interactive)
   (vc-git-stash-show (format "address@hidden" (vc-git-stash-get-at-point 
(point)))))
 
-(defvar vc-git-stash-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map "\C-k" 'vc-git-stash-delete-at-point)
-    (define-key map "=" 'vc-git-stash-show-at-point)
-    (define-key map "\C-m" 'vc-git-stash-show-at-point)
-    map))
-
 
 ;;; Internal commands