Mercurial > emacs
changeset 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 | 658336850f93 |
| children | 02f4b7818534 |
| files | lisp/ChangeLog lisp/vc-git.el |
| diffstat | 2 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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 <dann@ics.uci.edu> * custom.el (custom-declare-group): Purecopy standard-value.
--- 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