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

Put '-' in front of switch keys.

Browse source
This commit is contained in:
Phil Jackson 2010-08-31 12:16:23 +01:00
parent 602f257e7a
commit cba1be0012
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
magit-key-mode.el
View file

@ -164,8 +164,8 @@
("h" "Reflog" magit-reflog)
("H" "Reflog on head" magit-reflog-head))
(switches
("f" "First parent" "--first-parent")
("a" "All" "--all"))))
("-f" "First parent" "--first-parent")
("-a" "All" "--all"))))
"Holds the key, help, function mapping for the log-mode. If you
modify this make sure you reset `magit-key-mode-key-maps' to
nil.")
@ -195,10 +195,10 @@ put it in magit-key-mode-key-maps for fast lookup."
(when switches
(dolist (k switches)
(define-key map (car k) `(lambda ()
(interactive)
(magit-key-mode-add-option
',for-group
,(nth 2 k))))))
(interactive)
(magit-key-mode-add-option
',for-group
,(nth 2 k))))))
(aput 'magit-key-mode-key-maps for-group map)
map)))
@ -213,7 +213,7 @@ put it in magit-key-mode-key-maps for fast lookup."
(rx line-start
(char space)
(group
(char alpha))
(char "-" alpha))
": "
(group
(* not-newline))))
@ -260,6 +260,7 @@ put it in magit-key-mode-key-maps for fast lookup."
(or (cdr (assoc for-group magit-key-mode-key-maps))
(magit-key-mode-build-keymap for-group)))
(magit-key-mode-draw for-group)
(fit-window-to-buffer)
(setq buffer-read-only t)
(setq mode-name "magit-key-mode" major-mode 'magit-key-mode)))