From 66d50d8466d99517a02322d20788c5ec29daf1ee Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 6 Aug 2008 15:48:55 +0300 Subject: [PATCH] Describe things at point. --- magit.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/magit.el b/magit.el index f14b0492..c8d3b514 100644 --- a/magit.el +++ b/magit.el @@ -179,6 +179,7 @@ (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 "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-hard) (define-key magit-keymap (kbd "RET") 'magit-visit-thing-at-point) @@ -485,3 +486,7 @@ (if position (goto-line position)))))))) +(defun magit-describe-thing-at-point () + (interactive) + (let ((info (get-char-property (point) 'magit-info))) + (message "Thing: %s" info)))