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

Filters commands and options by group

Browse source
This commit is contained in:
oscar 2010-05-17 21:43:20 +02:00
parent fe1f6016f0
commit 9c63409cc1
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
magit.el
View file

@ -1412,7 +1412,7 @@ FUNC should leave point at the end of the modified region"
(let ((text (concat group " variants\n"))
(s "") (line ""))
(dolist (item menu-items)
(unless (stringp (nth 3 item))
(when (and (string= (car item) group) (functionp (nth 3 item)))
(setq s
(format "%-35s" (concat (string (nth 1 item)) " " (nth 2 item))))
(when (< 35 (length line))
@ -1423,14 +1423,16 @@ FUNC should leave point at the end of the modified region"
(setq line "")
(setq text (concat text "\n\nOptions\n"))
(dolist (item menu-items)
(when (stringp (nth 3 item))
(when (and (string= (car item) group) (stringp (nth 3 item)))
(setq s
(format "%-35s" (concat (string (nth 1 item)) " " (nth 2 item)
" (" (nth 3 item)
(if (nth 5 item)
(if (stringp (nth 5 item))
(nth 5 item)
" ON"))
(when (nth 5 item)
(concat
" "
(if (stringp (nth 5 item))
(nth 5 item)
"ON")))
")")))
(when (or (< 35 (length s)) (< 35 (length line)))
(setq text (concat text "\n" line))