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

Show two menu entries per line

Browse source
This commit is contained in:
oscar 2010-05-16 02:11:17 +02:00
parent 9cd7d57ed1
commit 0f03b076e7
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
magit.el
View file

@ -3528,13 +3528,18 @@ With a non numeric prefix ARG, show all entries"
(magit-submenu "Log" arg))
(defun magit-menu-for-group (group)
(let ((magit-group-menu (concat group " commands\n")))
(let ((text (concat group " variants\n"))
(s "") (line ""))
(dolist (item magit-menu)
(when (string= (car item) group)
(setq magit-group-menu
(concat magit-group-menu
(format "\n%s %s" (string (nth 1 item)) (nth 2 item))))))
magit-group-menu))
(setq s
(format "%-35s" (concat (string (nth 1 item)) " " (nth 2 item))))
(when (< 35 (length line))
(setq text (concat text "\n" line))
(setq line ""))
(setq line (concat line s))))
(setq text (concat text "\n" line))
text))
(defun magit-submenu (group &optional prefix-arg)
(let ((magit-buf (current-buffer))