;ELC ;;; Compiled by daniel@waffles on Sun Jul 20 16:31:03 2014 ;;; from file /Users/daniel/.emacs.d/elpa/magit-20140720.358/magit-key-mode.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\210\311\312\313\314\306\315%\210\311\316\317\320\306\315%\210\311\321\322\323\306\315%\210\311\324\325\326\306\315%\207" [require magit custom-declare-variable magit-key-mode-show-usage t "Whether to show usage information when entering a popup." :group :type boolean custom-declare-face magit-key-mode-header-face ((t :inherit font-lock-keyword-face)) "Face for key mode header lines." magit-faces magit-key-mode-button-face ((t :inherit font-lock-builtin-face)) "Face for key mode buttons." magit-key-mode-switch-face ((t :inherit font-lock-warning-face)) "Face for key mode switches." magit-key-mode-args-face ((t :inherit widget-field)) "Face for key mode switch arguments."] 8) #@129 Holds the key, help, function mapping for the log-mode. If you modify this make sure you reset `magit-key-mode-keymaps' to nil. (defvar magit-key-mode-groups '((dispatch (actions ("b" "Branching" magit-key-mode-popup-branching) ("B" "Bisecting" magit-key-mode-popup-bisecting) ("c" "Committing" magit-key-mode-popup-committing) ("d" "Diff worktree" magit-diff-working-tree) ("D" "Diff" magit-diff) ("f" "Fetching" magit-key-mode-popup-fetching) ("F" "Pulling" magit-key-mode-popup-pulling) ("g" "Refresh Buffers" magit-refresh-all) ("l" "Logging" magit-key-mode-popup-logging) ("m" "Merging" magit-key-mode-popup-merging) ("M" "Remoting" magit-key-mode-popup-remoting) ("P" "Pushing" magit-key-mode-popup-pushing) ("o" "Submoduling" magit-key-mode-popup-submodule) ("r" "Rewriting" magit-key-mode-popup-rewriting) ("R" "Rebasing" magit-rebase-step) ("s" "Show Status" magit-status) ("S" "Stage all" magit-stage-all) ("t" "Tagging" magit-key-mode-popup-tagging) ("U" "Unstage all" magit-unstage-all) ("v" "Show Commit" magit-show-commit) ("V" "Show File" magit-show) ("w" "Wazzup" magit-wazzup) ("X" "Reset worktree" magit-reset-working-tree) ("y" "Cherry" magit-cherry) ("z" "Stashing" magit-key-mode-popup-stashing) ("!" "Running" magit-key-mode-popup-running) ("$" "Show Process" magit-display-process))) (logging (man-page "git-log") (actions ("l" "Short" magit-log) ("L" "Long" magit-log-long) ("h" "Head Reflog" magit-reflog-head) ("f" "File log" magit-file-log) ("rl" "Ranged short" magit-log-ranged) ("rL" "Ranged long" magit-log-long-ranged) ("rh" "Reflog" magit-reflog)) (switches ("-m" "Only merge commits" "--merges") ("-s" "No merge commits" "--no-merges") ("-do" "Date Order" "--date-order") ("-f" "First parent" "--first-parent") ("-i" "Case insensitive patterns" "-i") ("-pr" "Pickaxe regex" "--pickaxe-regex") ("-g" "Show Graph" "--graph") ("-n" "Name only" "--name-only") ("-am" "All match" "--all-match") ("-al" "All" "--all")) (arguments ("=r" "Relative" "--relative=" read-directory-name) ("=c" "Committer" "--committer=" read-from-minibuffer) ("=>" "Since" "--since=" read-from-minibuffer) ("=<" "Before" "--before=" read-from-minibuffer) ("=a" "Author" "--author=" read-from-minibuffer) ("=g" "Grep messages" "--grep=" read-from-minibuffer) ("=G" "Grep patches" "-G" read-from-minibuffer) ("=L" "Trace evolution of line range [long log only]" "-L" magit-read-file-trace) ("=s" "Pickaxe search" "-S" read-from-minibuffer) ("=b" "Branches" "--branches=" read-from-minibuffer) ("=R" "Remotes" "--remotes=" read-from-minibuffer))) (running (actions ("!" "Git Subcommand (from root)" magit-git-command-topdir) (":" "Git Subcommand (from pwd)" magit-git-command) ("g" "Git Gui" magit-run-git-gui) ("k" "Gitk" magit-run-gitk))) (fetching (man-page "git-fetch") (actions ("f" "Current" magit-fetch-current) ("a" "All" magit-remote-update) ("o" "Other" magit-fetch)) (switches ("-p" "Prune" "--prune"))) (pushing (man-page "git-push") (actions ("P" "Push" magit-push) ("t" "Push tags" magit-push-tags)) (switches ("-f" "Force" "--force") ("-d" "Dry run" "-n") ("-u" "Set upstream" "-u"))) (pulling (man-page "git-pull") (actions ("F" "Pull" magit-pull)) (switches ("-f" "Force" "--force") ("-r" "Rebase" "--rebase"))) (branching (man-page "git-branch") (actions ("v" "Branch manager" magit-branch-manager) ("b" "Checkout" magit-checkout) ("c" "Create" magit-create-branch) ("r" "Rename" magit-rename-branch) ("k" "Delete" magit-delete-branch)) (switches ("-t" "Set upstream configuration" "--track") ("-m" "Merged to HEAD" "--merged") ("-M" "Merged to master" "--merged=master") ("-n" "Not merged to HEAD" "--no-merged") ("-N" "Not merged to master" "--no-merged=master")) (arguments ("=c" "Contains" "--contains=" magit-read-rev-with-default) ("=m" "Merged" "--merged=" magit-read-rev-with-default) ("=n" "Not merged" "--no-merged=" magit-read-rev-with-default))) (remoting (man-page "git-remote") (actions ("v" "Remote manager" magit-branch-manager) ("a" "Add" magit-add-remote) ("r" "Rename" magit-rename-remote) ("k" "Remove" magit-remove-remote))) (tagging (man-page "git-tag") (actions ("t" "Create" magit-tag) ("k" "Delete" magit-delete-tag)) (switches ("-a" "Annotate" "--annotate") ("-f" "Force" "--force") ("-s" "Sign" "--sign"))) (stashing (man-page "git-stash") (actions ("v" "View" magit-diff-stash) ("z" "Save" magit-stash) ("s" "Snapshot" magit-stash-snapshot) ("a" "Apply" magit-stash-apply) ("p" "Pop" magit-stash-pop) ("k" "Drop" magit-stash-drop)) (switches ("-k" "Keep index" "--keep-index") ("-u" "Include untracked files" "--include-untracked") ("-a" "Include all files" "--all"))) (committing (man-page "git-commit") (actions ("c" "Commit" magit-commit) ("a" "Amend" magit-commit-amend) ("e" "Extend" magit-commit-extend) ("r" "Reword" magit-commit-reword) ("f" "Fixup" magit-commit-fixup) ("s" "Squash" magit-commit-squash)) (switches ("-a" "Stage all modified and deleted files" "--all") ("-e" "Allow empty commit" "--allow-empty") ("-v" "Show diff of changes to be committed" "--verbose") ("-n" "Bypass git hooks" "--no-verify") ("-s" "Add Signed-off-by line" "--signoff") ("-R" "Claim authorship and reset author date" "--reset-author")) (arguments ("=A" "Override the author" "--author=" read-from-minibuffer) ("=S" "Sign using gpg" "--gpg-sign=" magit-read-gpg-secret-key))) (merging (man-page "git-merge") (actions ("m" "Merge" magit-merge) ("A" "Abort" magit-merge-abort)) (switches ("-ff" "Fast-forward only" "--ff-only") ("-nf" "No fast-forward" "--no-ff") ("-sq" "Squash" "--squash")) (arguments ("-st" "Strategy" "--strategy=" read-from-minibuffer))) (rewriting (actions ("b" "Begin" magit-rewrite-start) ("s" "Stop" magit-rewrite-stop) ("a" "Abort" magit-rewrite-abort) ("f" "Finish" magit-rewrite-finish) ("d" "Diff pending" magit-rewrite-diff-pending) ("*" "Set unused" magit-rewrite-set-unused) ("." "Set used" magit-rewrite-set-used))) (apply-mailbox (man-page "git-am") (actions ("J" "Apply Mailbox" magit-apply-mailbox)) (switches ("-s" "add a Signed-off-by line to the commit message" "--signoff") ("-3" "allow fall back on 3way merging if needed" "--3way") ("-k" "pass -k flag to git-mailinfo" "--keep") ("-c" "strip everything before a scissors line" "--scissors") ("-p" "pass it through git-apply" "-p") ("-r" "override error message when patch failure occurs" "--resolvemsg") ("-d" "lie about committer date" "--committer-date-is-author-date") ("-D" "use current timestamp for author date" "--ignore-date") ("-b" "pass -b flag to git-mailinfo" "--keep-non-patch")) (arguments ("=p" "format the patch(es) are in" "--patch-format=" read-from-minibuffer))) (submodule (man-page "git-submodule") (actions ("u" "Update" magit-submodule-update) ("b" "Both update and init" magit-submodule-update-init) ("i" "Init" magit-submodule-init) ("s" "Sync" magit-submodule-sync))) (bisecting (man-page "git-bisect") (actions ("b" "Bad" magit-bisect-bad) ("g" "Good" magit-bisect-good) ("k" "Skip" magit-bisect-skip) ("r" "Reset" magit-bisect-reset) ("s" "Start" magit-bisect-start) ("u" "Run" magit-bisect-run))) (diff-options (actions ("s" "Set" magit-set-diff-options) ("d" "Set default" magit-set-default-diff-options) ("c" "Save default" magit-save-default-diff-options) ("r" "Reset to default" magit-reset-diff-options) ("h" "Toggle Hunk Refinement" magit-diff-toggle-refine-hunk)) (switches ("-m" "Show smallest possible diff" "--minimal") ("-p" "Use patience diff algorithm" "--patience") ("-h" "Use histogram diff algorithm" "--histogram") ("-b" "Ignore whitespace changes" "--ignore-space-change") ("-w" "Ignore all whitespace" "--ignore-all-space") ("-W" "Show surrounding functions" "--function-context")))) (#$ . 1279)) #@47 Delete a group from `magit-key-mode-keymaps'. (defalias 'magit-key-mode-delete-group #[(group) "\304 \"\211\203\305\306\n \"\307!\210 )\207" [group magit-key-mode-groups items magit-key-mode-keymaps assoc nil delq magit-key-mode-de-generate] 4 (#$ . 8962)]) #@175 Add a new group to `magit-key-mode-keymaps'. If there already is a group of that name then this will completely remove it and put in its place an empty one of the same name. (defalias 'magit-key-mode-add-group #[(group) "\302 \"\203 \303!\210\304C\305C\306CF B\211\207" [group magit-key-mode-groups assoc magit-key-mode-delete-group actions switches arguments] 4 (#$ . 9234)]) #@108 Return t if KEY is defined as any option within FOR-GROUP. The option may be a switch, argument or action. (defalias 'magit-key-mode-key-defined-p #[(for-group key) "\300\301\215\207" [result (byte-code "\305!\306\307\211\205& @\310\f\310\n \"\"\203\311\312\313\"\210 A\211\204\f\307+\207" [for-group options type --dolist-tail-- key magit-key-mode-options-for-group (actions switches arguments) nil assoc throw result t] 6)] 2 (#$ . 9623)]) #@61 Abstraction for setting values in `magit-key-mode-keymaps'. (defalias 'magit-key-mode-update-group #[(for-group thing &rest args) "\306!\307\n \"\f@ A\2031\310 \"\203!\311\312 #\210\2026 A\f \211\fAA)B\241\210\2026 \fC\241\210\313 +\207" [for-group options thing things args key magit-key-mode-options-for-group assoc magit-key-mode-key-defined-p error "%s is already defined in the %s group." nil x magit-key-mode-keymaps] 5 (#$ . 10081)]) #@167 Add a new binding KEY in FOR-GROUP which will use READ-FUNC to receive input to apply to argument ARG git is run. DESC should be a brief description of the binding. (defalias 'magit-key-mode-insert-argument #[(for-group key desc arg read-func) "\305\306 \n \f&\207" [for-group key desc arg read-func magit-key-mode-update-group arguments] 7 (#$ . 10542)]) #@146 Add a new binding KEY in FOR-GROUP which will add SWITCH to git's command line when it runs. DESC should be a brief description of the binding. (defalias 'magit-key-mode-insert-switch #[(for-group key desc switch) "\304\305 \n %\207" [for-group key desc switch magit-key-mode-update-group switches] 6 (#$ . 10908)]) #@116 Add a new binding KEY in FOR-GROUP which will run command FUNC. DESC should be a brief description of the binding. (defalias 'magit-key-mode-insert-action #[(for-group key desc func) "\304\305 \n %\207" [for-group key desc func magit-key-mode-update-group actions] 6 (#$ . 11233)]) #@95 Retrieve the options for the group FOR-GROUP. This includes switches, commands and arguments. (defalias 'magit-key-mode-options-for-group #[(for-group) "\302 \"A\206\f\303\304\"\207" [for-group magit-key-mode-groups assoc error "Unknown group '%s'"] 3 (#$ . 11522)]) #@76 Provide help for a key within FOR-GROUP. The user is prompted for the key. (defalias 'magit-key-mode-help #[(for-group) "\306!\307\303 \"\211A@)\310\311\312 \203\311\313 \"\202\314\"!\307\305 \"A\307\f \"\2038\315\316\307\f \"8!\202S\f\317\232\203O \203H\320 !\202S\321\322\"\202S\321\323\f\",\207" [for-group opts x man-page seq actions magit-key-mode-options-for-group assoc read-key-sequence format "Enter command prefix%s: " ", `?' for man `%s'" "" describe-function 2 "?" man error "No man page associated with `%s'" "No help associated with `%s'"] 7 (#$ . 11798)]) #@34 Run action/args/option at point. (defalias 'magit-key-mode-exec-at-point #[nil "\301`\302\"\206\n\303\304!\305\306\307 \"!)\207" [key get-text-property key-group-executor error "Nothing at point to do." call-interactively lookup-key current-local-map] 4 (#$ . 12392) nil]) #@44 Jump to the next action/args/option point. (defalias 'magit-key-mode-jump-to-next-exec #[nil "`\304\305\"dU\203e\202T\304\n\305\"\nU?\205( ?\206( =)\203<\ndU\2036e\2028\nT\202\nb\210\306\307w+\207" [oldp old p new get-text-property key-group-executor " " nil] 3 (#$ . 12674) nil]) #@116 This will be filled lazily with proper keymaps. These keymaps are created using `define-key' as they're requested. (defvar magit-key-mode-keymaps nil (#$ . 12983)) #@112 Construct a normal looking keymap for the key mode to use. Put it in `magit-key-mode-keymaps' for fast lookup. (defalias 'magit-key-mode-build-keymap #[(for-group) "\306!\307\302 \"A\307\303 \"A\307\304 \"A\310 \311 \312\"\210\313 \314\315#\210\313 \316\317#\210\313 \320\321#\210\313 \322\323#\210\313 \324\325\326\327\330\331DDF#\210\332 \n\326!\211\"\203m\"@! !\333\331\334!8DD\"\210\"A\211\"\204Q* \326!\211\"\203\225\"@! !\335\331D\334!8E\"\210\"A\211\"\204x*\f\326!\211\"\203\303\"@! !\336\331D\334!8\331\337!8DF\"\210\"A\211\"\204\240+ B#B# -\207" [for-group options actions switches arguments map magit-key-mode-options-for-group assoc make-sparse-keymap suppress-keymap nodigits define-key " " magit-key-mode-exec-at-point " " magit-key-mode-jump-to-next-exec "" (lambda nil (interactive) (magit-key-mode-command nil)) "q" (lambda nil (interactive) (magit-key-mode-command nil)) "?" lambda nil (interactive) magit-key-mode-help quote #[(k action) "\304 @\"\203\304 @\"\247\204\305\306 @\n#\210\307 \210\310\311!\210\312 @\313\314\315 F#\207" [map k for-group action lookup-key message "Warning: overriding binding for `%s' in %S" ding sit-for 2 define-key lambda nil (interactive)] 7] magit-key-mode-command 2 magit-key-mode-toggle-option magit-key-mode-add-argument 3 defkey k --dolist-tail-- magit-key-mode-keymaps] 10 (#$ . 13154)]) #@135 Prefix argument to the command that brought up the key-mode window. For internal use. Used by the command that's eventually invoked. (defvar magit-key-mode-prefix nil (#$ . 14561)) #@94 A hash-table of current argument set. These will eventually make it to the git command-line. (defvar magit-key-mode-current-args nil (#$ . 14749)) #@76 Current option set. These will eventually make it to the git command-line. (defvar magit-key-mode-current-options nil (#$ . 14902)) #@109 List of custom options to pass to Git. Do not customize this (used in the `magit-key-mode' implementation). (defvar magit-custom-options nil (#$ . 15041)) (defalias 'magit-key-mode-command #[(func) "\206 \n\306\307\f\"\210\310 !\210\311 !\210\f\205#\f \312 !*\207" [current-prefix-arg magit-key-mode-prefix magit-key-mode-current-options magit-custom-options magit-key-mode-current-args magit-pre-key-mode-window-conf maphash #[(k v) " P\nB\211\207" [k v magit-custom-options] 2] set-window-configuration kill-buffer call-interactively magit-key-mode-last-buffer func this-command] 3]) (defalias 'magit-key-mode-add-argument #[(for-group arg-name input-func) " \305P!\306 \n #\210\307\f!)\207" [input-func arg-name input magit-key-mode-current-args for-group ": " puthash magit-key-mode-redraw] 4]) #@76 Toggles the appearance of OPTION-NAME in `magit-key-mode-current-options'. (defalias 'magit-key-mode-toggle-option #[(for-group option-name) " \235\203\303 \"\202\304\301\"\210\305\n!\207" [option-name magit-key-mode-current-options for-group delete add-to-list magit-key-mode-redraw] 3 (#$ . 15861)]) #@59 Format string to create the name of the magit-key buffer. (defvar magit-key-mode-buf-name "*magit-key: %s*" (#$ . 16177)) #@39 Store the last magit-key buffer used. (defvar magit-key-mode-last-buffer nil (#$ . 16305)) #@48 Will hold the pre-menu configuration of magit. (defvar magit-pre-key-mode-window-conf nil (#$ . 16402)) #@151 Mode for magit key selection. All commands, switches and options can be toggled/actioned with the key combination highlighted before the description. (defalias 'magit-key-mode #[(for-group &optional original-opts) "\306 \307\310 \311\n!\"!\211\312 \210\313\314!\210\315 !\210\316 \210\317\305!\210\320\317\321!\210\317\322!\210\323 \317\324!\210\325\n!\210)\205G\326\327!\207" [magit-pre-key-mode-window-conf magit-key-mode-buf-name for-group buf magit-key-mode-last-buffer scroll-margin current-window-configuration get-buffer-create format symbol-name split-window-vertically other-window 1 switch-to-buffer kill-all-local-variables make-local-variable 0 magit-key-mode-current-options magit-key-mode-current-args make-hash-table magit-key-mode-prefix magit-key-mode-redraw message "Type a prefix key to toggle it. Run 'actions' with their prefixes. '?' for more help." original-opts current-prefix-arg magit-key-mode-show-usage] 6 (#$ . 16513) nil]) #@40 Get or build the keymap for FOR-GROUP. (defalias 'magit-key-mode-get-key-map #[(for-group) "\302 \"A\206 \303!\207" [for-group magit-key-mode-keymaps assoc magit-key-mode-build-keymap] 3 (#$ . 17489)]) #@32 (re)draw the magit key buffer. (defalias 'magit-key-mode-redraw #[(for-group) "\306\307`\310\"\306`\311\312 !\306\313 \210\314\315!\210\316\317!!\210\320!\321 \210\322\323\f\2039\324\f\325 \"A \203J\203Jb\210\326 \210\202[ \203X b\210\327\306w\210\202[\nb\210.\330\331 \207" [actions-p is-first old-point new-exec-pos current-exec buffer-read-only nil get-text-property key-group-executor zerop buffer-size erase-buffer make-local-variable font-lock-defaults use-local-map magit-key-mode-get-key-map magit-key-mode-draw delete-trailing-whitespace "magit-key-mode" magit-key-mode assoc magit-key-mode-build-exec-point-alist magit-key-mode-jump-to-next-exec " " t fit-window-to-buffer for-group mode-name major-mode] 6 (#$ . 17700)]) (defalias 'magit-key-mode-build-exec-point-alist #[nil "\212eb\210\302`\303\"\211\205`BCm\2044\302`\303\"=\204.\302`\303\"\211\203.`B B\304u\210\202 \237+\207" [exec exec-alist get-text-property key-group-executor nil] 5]) #@38 Draw a header with the correct face. (defalias 'magit-key-mode-draw-header #[(header) "\301\302\303#\304\261\207" [header propertize face magit-key-mode-header-face "\n"] 4 (#$ . 18701)]) #@68 When true, draw arguments in columns as with switches and options. (defvar magit-key-mode-args-in-cols nil (#$ . 18897)) #@33 Draw the args part of the menu. (defalias 'magit-key-mode-draw-args #[(args) "\302\303\304 ?$\207" [args magit-key-mode-args-in-cols magit-key-mode-draw-buttons "Args" #[(x) "\302\303\3048\305\306\3048 \307#\310\311##\207" [x magit-key-mode-current-args format "(%s) %s" 2 propertize gethash "" face magit-key-mode-args-face] 8]] 5 (#$ . 19024)]) #@37 Draw the switches part of the menu. (defalias 'magit-key-mode-draw-switches #[(switches) "\301\302\303#\207" [switches magit-key-mode-draw-buttons "Switches" #[(x) "\303\304\3058\211\n\235\203\306 \307\310#\202 )\"\207" [x s magit-key-mode-current-options format "(%s)" 2 propertize face magit-key-mode-switch-face] 7]] 4 (#$ . 19380)]) #@36 Draw the actions part of the menu. (defalias 'magit-key-mode-draw-actions #[(actions) "\301\302\303#\207" [actions magit-key-mode-draw-buttons "Actions" nil] 4 (#$ . 19730)]) (defalias 'magit-key-mode-draw-buttons #[(section xs maker &optional one-col-each) "\205\303 !\210\304\305\306\"\n\"\207" [xs section one-col-each magit-key-mode-draw-header magit-key-mode-draw-in-cols mapcar #[(x) "\306@\307\310#A@ \205 !\311\312 \n\f\203\313\202 \314\f\206%\314%\306 \315@#,\207" [x head desc maker more text propertize face magit-key-mode-button-face format " %s: %s%s%s" " " "" key-group-executor] 6]] 4]) #@146 Given a list of strings, print in columns (using `insert'). If ONE-COL-EACH is true then don't columify, but rather, draw each item on one line. (defalias 'magit-key-mode-draw-in-cols #[(strings one-col-each) "\305\306\307\310\"\"\203B@\311 \312\\\nGZ\313\"\nc\210\f\2041\314 Gi #\315 V\2037A\2037\316c\210\202: c\210*A\211\204\f)\316c\207" [strings longest-act str padding one-col-each apply max mapcar length make-string 3 32 + window-width "\n"] 6 (#$ . 20358)]) #@105 Draw actions, switches and parameters. Return the point before the actions part, if any, nil otherwise. (defalias 'magit-key-mode-draw #[(for-group) "\306!\307\302 \"A\307\303 \"A\307\304 \"A\310\311\n!\210\312 !\210\f\203'\313 \314\f!\210\315c\210 -\207" [for-group options switches arguments actions p magit-key-mode-options-for-group assoc nil magit-key-mode-draw-switches magit-key-mode-draw-args point-marker magit-key-mode-draw-actions "\n"] 3 (#$ . 20846)]) #@32 Unbind the function for GROUP. (defalias 'magit-key-mode-de-generate #[(group) "\301\302\303\304!P!!\207" [group fmakunbound intern "magit-key-mode-popup-" symbol-name] 5 (#$ . 21325)]) #@40 Generate the key-group menu for GROUP. (defalias 'magit-key-mode-generate #[(group) "\302!\303\304\305\306\307!P!\310\311\307!P\312\313\314D\315\316\"\203#\317\202+\315\320\"\205+\321E\257!)\207" [group opts magit-key-mode-options-for-group eval defun intern "magit-key-mode-popup-" symbol-name nil "Key menu for " (interactive) magit-key-mode quote eql logging (list "--graph") diff-options (when (local-variable-p 'magit-diff-options) magit-diff-options)] 11 (#$ . 21518)]) (byte-code "\301\302\"\210\303\304!\207" [magit-key-mode-groups mapc #[(g) "\301@!\207" [g magit-key-mode-generate] 2] provide magit-key-mode] 3)