From 881e4184a3d83b939559ba684a227eea67e17dd2 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 5 Nov 2009 03:24:08 +0000 Subject: [PATCH] (vc-git-stash-map): Move definition before use. --- lisp/ChangeLog | 2 ++ lisp/vc-git.el | 14 +++++++------- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f9d0afea377..a36bbbbc508 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/vc-git.el b/lisp/vc-git.el index cee3abe0bb3..9f01a84cc81 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el @@ -399,6 +399,13 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." "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 @@ This command shares argument histories with \\[rgrep] and \\[grep]." (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 -- 2.39.2