Mercurial > emacs
diff lisp/vc-git.el @ 105860:78f37cce705f
(vc-git-stash-map): Move definition before use.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 05 Nov 2009 03:24:08 +0000 |
parents | 6f463ea7a91a |
children | 2bed02fa3041 |
line wrap: on
line diff
--- 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