From 601d26bf5aae2194d2f7f2043e8460bd25816619 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <marius.vollmer@uni-dortmund.de>
Date: Tue, 19 Aug 2008 00:42:44 +0300
Subject: [PATCH] Use named functions for the section jumpers so that the
 online help has something to show.

---
 NEWS     |  3 +++
 magit.el | 27 +++++++++++++++++++--------
 2 files changed, 22 insertions(+), 8 deletions(-)

diff --git a/NEWS b/NEWS
index a8a4d662..6853f0bd 100644
--- a/NEWS
+++ b/NEWS
@@ -5,6 +5,9 @@ Changes in magit 0.6:
 * Key bindings and command behavior for diffing, history listing, and
   resetting have changed.  Please see the manual.
 
+* Some key bindings have been added for moving around in the status
+  buffer.
+
 * All buffers created by Magit are now in magit-mode and share all key
   bindings.
 
diff --git a/magit.el b/magit.el
index ed08f673..3f1da1da 100644
--- a/magit.el
+++ b/magit.el
@@ -248,10 +248,13 @@
 	(goto-char prev-section)
       (error "No previous section."))))
 
-(defun magit-section-jumper (section)
-  (let ((section (if (symbolp section) (list section) section)))
-    `(lambda () (interactive) (magit-goto-section ',section))))
-		   
+(defmacro magit-define-section-jumper (sym title)
+  (let ((fun (intern (format "magit-jump-to-%s" sym)))
+	(doc (format "Jump to section `%s'." title)))
+    `(defun ,fun ()
+       (interactive)
+       (magit-goto-section '(,sym)))))
+
 ;;; Running asynchronous commands
 
 (defun magit-set-mode-line-process (str)
@@ -313,15 +316,23 @@
 
 ;;; Mode
 
+;; We define individual functions (instead of using lambda etc) so
+;; that the online help can show something meaningful.
+
+(magit-define-section-jumper untracked "Untracked changes")
+(magit-define-section-jumper unstaged  "Unstaged changes")
+(magit-define-section-jumper staged    "Staged changes")
+(magit-define-section-jumper unpushed  "Unpushed changes")
+
 (defvar magit-mode-map
   (let ((map (make-keymap)))
     (suppress-keymap map t)
     (define-key map (kbd "M-n") 'magit-next-section)
     (define-key map (kbd "M-p") 'magit-previous-section)
-    (define-key map (kbd "1") (magit-section-jumper 'untracked))
-    (define-key map (kbd "2") (magit-section-jumper 'unstaged))
-    (define-key map (kbd "3") (magit-section-jumper 'staged))
-    (define-key map (kbd "4") (magit-section-jumper 'unpushed))
+    (define-key map (kbd "1") 'magit-jump-to-untracked)
+    (define-key map (kbd "2") 'magit-jump-to-unstaged)
+    (define-key map (kbd "3") 'magit-jump-to-staged)
+    (define-key map (kbd "4") 'magit-jump-to-unpushed)
     (define-key map (kbd "g") 'magit-status)
     (define-key map (kbd "s") 'magit-stage-thing-at-point)
     (define-key map (kbd "S") 'magit-stage-all)