Commit 881e4184 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent 60878f2d
......@@ -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 <dann@ics.uci.edu>
* custom.el (custom-declare-group): Purecopy standard-value.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment