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