mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2009-11-05 03:24:08 +00:00
parent 60878f2df0
commit 881e4184a3
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -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.

14
lisp/vc-git.el
View File

@ -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