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

Fix up the group helper functions to handle a case where there are no current bindings.

Browse source
This commit is contained in:
Phil Jackson 2010-09-11 00:59:09 +01:00
parent 70c3b4de3b
commit 4b34f171d9
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-key-mode.el
View file

@ -103,16 +103,18 @@
(defun magit-key-mode-add-group (name)
"Add a new group to `magit-key-mode-key-maps'."
(push (list name) magit-key-mode-groups))
(unless (assoc name magit-key-mode-groups)
(push (list name '(actions)) magit-key-mode-groups)))
(defun magit-key-mode-update-group (for-group thing &rest args)
"Abstraction for setting values in `magit-key-mode-key-maps'."
(let* ((options (magit-key-mode-options-for-group for-group))
(things (cdr (assoc thing options))))
(when things
(setcdr things (cons args (cdr things)))
(setq magit-key-mode-key-maps nil)
things)))
(things (assoc thing options)))
(if (cdr things)
(setcdr (cdr things) (cons args (cddr things)))
(setcdr things (list args)))
(setq magit-key-mode-key-maps nil)
things))
(defun magit-key-mode-insert-argument (for-group key desc arg read-func)
"Add a new binding (KEY) in FOR-GROUP which will use READ-FUNC