---
Hi,
The binding is quite arbitrary, feel free to come up with a better
one or leave it out completely.
//Hannu
magit.el | 7 +++++++
1 files changed, 7 insertions(+), 0 deletions(-)
diff --git a/magit.el b/magit.el
index 1e5f692..8cf86e9 100644
--- a/magit.el
+++ b/magit.el
@@ -736,6 +736,12 @@ Many Magit faces inherit from this one by default."
(magit-show-commit (or prev section)))
(goto-char (magit-section-beginning (or prev section))))))))
+(defun magit-goto-parent-section ()
+ (interactive)
+ (let ((parent (magit-section-parent (magit-current-section))))
+ (when parent
+ (goto-char (magit-section-beginning parent)))))
+
(defun magit-goto-section (path)
(let ((sec (magit-find-section path magit-top-section)))
(if sec
@@ -1153,6 +1159,7 @@ Many Magit faces inherit from this one by default."
(define-key map (kbd "M-H") 'magit-show-only-files-all)
(define-key map (kbd "M-s") 'magit-show-level-4)
(define-key map (kbd "M-S") 'magit-show-level-4-all)
+ (define-key map (kbd "<M-left>") 'magit-goto-parent-section)
(define-key map (kbd "g") 'magit-refresh)
(define-key map (kbd "G") 'magit-refresh-all)
(define-key map (kbd "s") 'magit-stage-item)
--
1.6.4.GIT
