gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Describe things at point.

Browse source
This commit is contained in:
Marius Vollmer 2008-08-06 15:48:55 +03:00
parent adfb76c91d
commit 66d50d8466
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
magit.el
View file

@ -179,6 +179,7 @@
(define-key magit-keymap (kbd "a") 'magit-stage-thing-at-point) (define-key magit-keymap (kbd "a") 'magit-stage-thing-at-point)
(define-key magit-keymap (kbd "u") 'magit-unstage-thing-at-point) (define-key magit-keymap (kbd "u") 'magit-unstage-thing-at-point)
(define-key magit-keymap (kbd "i") 'magit-ignore-thing-at-point) (define-key magit-keymap (kbd "i") 'magit-ignore-thing-at-point)
(define-key magit-keymap (kbd "?") 'magit-describe-thing-at-point)
(define-key magit-keymap (kbd "x") 'magit-reset-soft) (define-key magit-keymap (kbd "x") 'magit-reset-soft)
(define-key magit-keymap (kbd "X") 'magit-reset-hard) (define-key magit-keymap (kbd "X") 'magit-reset-hard)
(define-key magit-keymap (kbd "RET") 'magit-visit-thing-at-point) (define-key magit-keymap (kbd "RET") 'magit-visit-thing-at-point)
@ -485,3 +486,7 @@
(if position (if position
(goto-line position)))))))) (goto-line position))))))))
(defun magit-describe-thing-at-point ()
(interactive)
(let ((info (get-char-property (point) 'magit-info)))
(message "Thing: %s" info)))