# HG changeset patch # User Glenn Morris # Date 1257391448 0 # Node ID 78f37cce705f2ddaa6e683d6f02145dc6ff93c48 # Parent 658336850f93fd3092a6ce62a75c9b167ed445ab (vc-git-stash-map): Move definition before use. diff -r 658336850f93 -r 78f37cce705f lisp/ChangeLog --- a/lisp/ChangeLog Thu Nov 05 03:23:31 2009 +0000 +++ b/lisp/ChangeLog Thu Nov 05 03:24:08 2009 +0000 @@ -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 * custom.el (custom-declare-group): Purecopy standard-value. diff -r 658336850f93 -r 78f37cce705f lisp/vc-git.el --- a/lisp/vc-git.el Thu Nov 05 03:23:31 2009 +0000 +++ b/lisp/vc-git.el Thu Nov 05 03:24:08 2009 +0000 @@ -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 "stash@%s" (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