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

Add command magit-goto-parent-section.

Browse source
This commit is contained in:
Hannu Koivisto 2009-10-24 03:28:45 +03:00
parent 6a1bb4f644
commit 94ca78a86f
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
magit.el
View file

@ -799,6 +799,12 @@ Many Magit faces inherit from this one by default."
(magit-show-commit (or prev section))) (magit-show-commit (or prev section)))
(goto-char (magit-section-beginning (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) (defun magit-goto-section (path)
(let ((sec (magit-find-section path magit-top-section))) (let ((sec (magit-find-section path magit-top-section)))
(if sec (if sec
@ -1235,6 +1241,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-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)
(define-key map (kbd "M-S") 'magit-show-level-4-all) (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)
(define-key map (kbd "G") 'magit-refresh-all) (define-key map (kbd "G") 'magit-refresh-all)
(define-key map (kbd "s") 'magit-stage-item) (define-key map (kbd "s") 'magit-stage-item)