egg.elc

;ELC
;;; Compiled by oceanhug@fc07-11-175.srfc01.resnet.ubc.ca on Tue Sep 14 22:22:07 2010
;;; from file /Users/oceanhug/.emacs.d/byplayer-egg-3f715b1/egg.el
;;; in Emacs version 22.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`egg.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\305\315\307\316\313\306%\210\317\320\321\322\313\315%\210\317\323\324\325\313\315%\210\317\326\327\325\313\315%\210\317\330\331\332\313\315%\210\317\333\334\332\313\315%\210\317\335\336\332\313\315%\210\317\337\340\325\313\315%\210\317\341\342\325\313\315%\210\317\343\344\325\313\315%\210\317\345\346\325\313\315%\210\317\347\350\351\313\315%\210\317\352\353\354\313\315%\210\317\355\356\357\313\315%\210\317\360\361\362\313\315%\210\317\363\364\365\313\315%\210\317\366\367\370\313\315%\210\317\371\372\373\313\315%\210\317\374\375\376\313\315%\210\317\377\201@\201A\313\315%\210\317\201B\201C\201D\313\315%\210\317\201E\201F\201G\313\315%\210\317\201H\201I\201J\313\315%\210\317\201K\201L\201M\313\315%\210\317\201N\201O\201P\313\315%\210\317\201Q\201R\201S\313\315%\210\317\201T\201U\201V\313\315%\210\317\201W\201X\201Y\313\315%\210\317\201Z\201[\201Y\313\315%\210\317\201\\\201]\201^\313\315%\210\317\201_\201`\201a\313\315%\210\317\201b\201c\201d\313\315%\210\317\201e\201f\201g\313\315%\210\317\201h\201i\201j\313\315%\207" [require cl electric ediff ffap custom-declare-group egg nil "Controlling Git from Emacs." :prefix "egg-" :group tools egg-faces "Colourful Faces for Egg." custom-declare-face egg-header ((t :weight bold :inherit variable-pitch :height 1.1)) "Face for generic headers.\n\nMany Egg faces inherit from this one by default." egg-text-base ((((class color) (background light)) :foreground "navy" :inherit variable-pitch) (((class color) (background dark)) :foreground "SteelBlue" :inherit variable-pitch) (t)) "Face for description text." egg-text-1 ((t :inherit egg-text-base)) egg-text-help ((t :inherit egg-text-base :height 0.8)) "Face for help text." egg-help-header-1 ((t :inherit egg-text-base :weight bold)) egg-help-header-2 ((((class color) (background light)) :foreground "Black" :inherit egg-text-1 :height 0.9) (((class color) (background dark)) :foreground "LightSteelBlue" :inherit egg-text-1 :height 0.9) (t :inherit egg-text-1)) egg-text-2 ((t :inherit egg-text-base :height 1.1)) egg-text-3 ((t :inherit egg-text-base :height 1.2)) egg-text-4 ((t :inherit egg-text-base :height 1.4)) egg-electrict-choice ((((class color) (background light)) :foreground "Blue" :inherit egg-text-1 :weight bold) (((class color) (background dark)) :foreground "Cyan" :inherit egg-text-1 :weight bold) (t)) egg-section-title ((((class color) (background light)) :foreground "DarkGoldenrod" :inherit egg-header :height 1.1) (((class color) (background dark)) :foreground "PaleGreen" :inherit egg-header :height 1.1) (t :weight bold)) "Face for generic header lines.\n\nMany Egg faces inherit from this one by default." egg-branch ((((class color) (background light)) :foreground "SkyBlue" :inherit egg-header :height 1.1) (((class color) (background dark)) :foreground "Yellow" :inherit egg-header :height 1.1) (t :weight bold)) "Face for the current branch." egg-log-buffer-mark ((((class color) (background light)) :foreground "black" :inherit bold) (((class color) (background dark)) :foreground "orchid1" :inherit bold) (t :weight bold)) "Face to mark commit line in log-buffer." egg-branch-mono ((((class color) (background light)) :foreground "SkyBlue" :inherit bold) (((class color) (background dark)) :foreground "Yellow" :inherit bold) (t :weight bold)) "Face for a branch." egg-tag-mono ((((class color) (background light)) :foreground "GoldenRod" :inherit bold) (((class color) (background dark)) :foreground "SkyBlue" :inherit bold) (t :weight bold)) "Face for a tag." egg-an-tag-mono ((((class color) (background light)) :foreground "DarkGoldenRod" :inherit bold) (((class color) (background dark)) :foreground "LightGreen" :inherit bold) (t :weight bold)) "Face for an annotated branch." egg-stash-mono ((((class color) (background light)) :foreground "DarkGoldenRod" :inherit bold) (((class color) (background dark)) :foreground "LightGreen" :inherit bold) (t :weight bold)) "Face for a stash identifier." egg-remote-mono ((((class color) (background light)) :foreground "Orchid" :inherit bold) (((class color) (background dark)) :foreground "DarkSalmon" :inherit bold) (t :weight bold)) "Face for a remote." egg-term ((((class color) (background light)) :foreground "SkyBlue" :inherit bold) (((class color) (background dark)) :foreground "Yellow" :inherit bold) (t :weight bold)) "Face for an important term." egg-help-key ((t :inherit 'egg-term :height 0.9)) "Hilight Face in help text." egg-warning ((((class color) (background light)) :foreground "Red" :inherit bold) (((class color) (background dark)) :foreground "Orange" :inherit bold) (t :weight bold)) "Face for a warning." egg-diff-file-header ((((class color) (background light)) :foreground "SlateBlue" :inherit egg-header) (((class color) (background dark)) :foreground "LightSlateBlue" :inherit egg-header) (t :weight bold)) "Face for diff file headers." egg-unmerged-diff-file-header ((((class color) (background light)) :foreground "Red" :inherit egg-diff-file-header) (((class color) (background dark)) :foreground "Orange" :inherit egg-diff-file-header) (t :weight bold)) "Face for unmerged diff file headers." egg-diff-hunk-header ((((class color) (background light)) :background "grey85") (((class color) (background dark)) :background "grey45")) "Face for diff hunk headers." egg-diff-add ((((class color) (background light)) :foreground "blue1") (((class color) (background dark)) :foreground "white")) "Face for lines in a diff that have been added." egg-diff-none ((((class color) (background light)) :foreground "grey50") (((class color) (background dark)) :foreground "grey70")) "Face for lines in a diff that are unchanged." egg-diff-del ((((class color) (background light)) :foreground "red") (((class color) (background dark)) :foreground "OrangeRed")) "Face for lines in a diff that have been deleted." egg-diff-conflict ((((class color) (background light)) :foreground "Blue") (((class color) (background dark)) :foreground "Orange")) egg-graph ((((class color) (background light)) :foreground "grey90") (((class color) (background dark)) :foreground "grey30")) "Face for graph." egg-blame ((((class color) (background light)) :background: "grey85" :foreground "black") (((class color) (background dark)) :background "grey15" :foreground "white") (t :inherit region)) "Face for blame header." egg-blame-culprit ((((class color) (background light)) :inherit egg-text-2 :background "grey85" :foreground "grey35") (((class color) (background dark)) :inherit egg-text-2 :background "grey15" :foreground "grey60") (t :inherit egg-blame)) "Face for blame culprit." egg-blame-subject ((((class color) (background light)) :inherit egg-blame-culprit :foreground "black") (((class color) (background dark)) :inherit egg-blame-culprit :foreground "white") (t :inherit egg-blame)) "Face for blame tag line." egg-log-HEAD ((t (:inherit region))) "Face to highlight HEAD in the log buffer."] 8)
#@32 Initially hide all sub-blocks.
(custom-declare-variable 'egg-buffer-hide-sub-blocks-on-start 'nil '(#$ . 7655) :group 'egg :type '(set (const :tag "Status Buffer" egg-status-buffer-mode) (const :tag "Log Buffer" egg-log-buffer-mode) (const :tag "File Log Buffer" egg-file-log-buffer-mode) (const :tag "RefLog Buffer" egg-reflog-buffer-mode) (const :tag "Diff Buffer" egg-diff-buffer-mode) (const :tag "Commit Buffer" egg-commit-buffer-mode)))
#@47 Initially hide sections of the selected type.
(custom-declare-variable 'egg-buffer-hide-section-type-on-start 'nil '(#$ . 8104) :group 'egg :type '(set (cons :tag "Status Buffer" (const :tag "Hide Blocks of type" egg-status-buffer-mode) (radio (const :tag "Section" :section) (const :tag "File" :diff) (const :tag "Hunk" :hunk))) (cons :tag "Commit Log Buffer" (const :tag "Hide Blocks of type" egg-commit-buffer-mode) (radio (const :tag "Section" :section) (const :tag "File" :diff) (const :tag "Hunk" :hunk))) (cons :tag "Diff Buffer" (const :tag "Hide Blocks of type" egg-diff-buffer-mode) (radio (const :tag "File" :diff) (const :tag "Hunk" :hunk)))))
#@34 Initially hide keybindings help.
(custom-declare-variable 'egg-buffer-hide-help-on-start 'nil '(#$ . 8766) :group 'egg :type '(set (const :tag "Status Buffer" egg-status-buffer-mode) (const :tag "Log Buffer" egg-log-buffer-mode) (const :tag "File Log Buffer" egg-file-log-buffer-mode) (const :tag "RefLog Buffer" egg-reflog-buffer-mode) (const :tag "Diff Buffer" egg-diff-buffer-mode) (const :tag "Commit Buffer" egg-commit-buffer-mode)))
#@61 Maximum number of entries when showing the history of HEAD.
(custom-declare-variable 'egg-log-HEAD-max-len '1000 '(#$ . 9211) :group 'egg :type 'integer)
#@61 Maximum number of entries when showing the history of HEAD.
(custom-declare-variable 'egg-log-all-max-len '10000 '(#$ . 9371) :group 'egg :type 'integer)
#@73 Always prompt for confirmation while guessing the next logical action .
(custom-declare-variable 'egg-confirm-next-action 't '(#$ . 9531) :group 'egg :type 'boolean)
#@68 Always prompt for confirmation before removing delta from workdir.
(custom-declare-variable 'egg-confirm-undo 't '(#$ . 9703) :group 'egg :type 'boolean)
#@61 Sections to be listed in the status buffer and their order.
(custom-declare-variable 'egg-status-buffer-sections ''(repo unstaged staged untracked) '(#$ . 9863) :group 'egg :type '(repeat (choice (const :tag "Repository Info" repo) (const :tag "Unstaged Changes Section" unstaged) (const :tag "Staged Changes Section" staged) (const :tag "Untracked/Uignored Files" untracked))))
#@61 Sections to be listed in the status buffer and their order.
(custom-declare-variable 'egg-commit-buffer-sections ''(staged unstaged untracked) '(#$ . 10248) :group 'egg :type '(repeat (choice (const :tag "Unstaged Changes Section" unstaged) (const :tag "Staged Changes Section" staged) (const :tag "Untracked/Uignored Files" untracked))))
#@68 Whether to refresh the index in the background when emacs is idle.
(custom-declare-variable 'egg-refresh-index-in-backround 'nil '(#$ . 10593) :group 'egg :type 'boolean)
#@77 Whether to activate useful tooltips, showing the local keymap at the point.
(custom-declare-variable 'egg-enable-tooltip 'nil '(#$ . 10770) :group 'egg :type 'boolean)
#@95 Name of the rebase's workdir.
Different versions of git have different names for this subdir.
(custom-declare-variable 'egg-git-rebase-subdir '"rebase-merge" '(#$ . 10944) :group 'egg :type '(choice (const ".dotest-merge") (const "rebase-merge") string))
#@49 Display keybinding help in egg special buffers.
(custom-declare-variable 'egg-show-key-help-in-buffers ''(:log :status :diff :file-log :reflog) '(#$ . 11205) :group 'egg :type '(set (const :tag "Status Buffer" :status) (const :tag "Log Buffer" :log) (const :tag "File Log Buffer" :file-log) (const :tag "RefLog Buffer" :reflog) (const :tag "Diff Buffer" :diff) (const :tag "Commit Buffer" :commit)))
(define-widget 'egg-quit-window-actions-set 'lazy "Custom Type for quit-window actions." :offset 4 :format "%v" :type '(set :tag "Actions" (const :tag "Kill Buffer" kill) (const :tag "Restore Windows" restore-windows)))
#@57 Actions to perform upon quitting an egg special buffer.
(custom-declare-variable 'egg-quit-window-actions 'nil '(#$ . 11831) :group 'egg :type '(set (cons :format "%v" (const :tag "Status Buffer" egg-status-buffer-mode) egg-quit-window-actions-set) (cons :format "%v" (const :tag "Log (History) Buffer" egg-log-buffer-mode) egg-quit-window-actions-set) (cons :format "%v" (const :tag "Commit Log Buffer" egg-commit-buffer-mode) egg-quit-window-actions-set) (cons :format "%v" (const :tag "RefLog Buffer" egg-reflog-buffer-mode) egg-quit-window-actions-set) (cons :format "%v" (const :tag "Diff Buffer" egg-diff-buffer-mode) egg-quit-window-actions-set) (cons :format "%v" (const :tag "File Log (History) Buffer" egg-file-log-buffer-mode) egg-quit-window-actions-set)))
#@138 Name or full-path to the git command.
Set this to the appropriate string in the case where `git' is not the
desirable way to invoke GIT.
(custom-declare-variable 'egg-git-command '"git" '(#$ . 12607) :group 'egg :type 'string)
#@156 Name or full-path to the patch command.
Set this to the appropriate string in the case where `patch' is not the
desirable way to invoke gnu patch command.
(custom-declare-variable 'egg-patch-command '"patch" '(#$ . 12841) :group 'egg :type 'string)
#@9 Foo bar
(custom-declare-variable 'egg-dummy-option 'nil '(#$ . 13095) :group 'egg :type '(set (const :bold) (const :italic)))
#@57 Format TEXT with face FACE at compile-time or run-time.
(defalias 'egg-text '(macro . #[(text face) ";\203\302\301	9\203	\202	A@#\207\204 \302\303\304	F\207\302\305	F\207" [text face propertize "<internal-bug>" 'face 'face] 4 (#$ . 13227)]))
#@72 Propertize TEXT with properties list PROP at compile-time or run-time.
(defalias 'egg-prop '(macro . #[(text &rest prop) ";\203\302\303\304\305	\"#\207\303	BB\207" [text prop apply propertize mapcar #[(sym) ":\203	A@\207\207" [sym] 1]] 6 (#$ . 13486)]))
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias egg-string-at-point ffap-string-at-point egg-find-file-at-point find-file-at-point] 3)
#@90 Make STR appear to have prefix PREFIX.
If OTHER-PROPERTIES was non-nil, apply it to STR.
(defalias 'egg-prepend #[(str prefix &rest other-properties) "	\303\304OP\305\306	\n#\307\303\304\310	%\210	\207" [prefix str other-properties 0 1 apply propertize put-text-property display] 6 (#$ . 13902)])
(put 'egg-prepend 'byte-optimizer 'byte-compile-inline-expand)
#@46 Retrieve the raw-contents of the commit REV.
(defalias 'egg-commit-contents #[(rev) "\303\304!\305\216rq\210\306	\307\310\307\311\312\n&\210\313 +\207" [#1=#:temp-buffer egg-git-command rev generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process nil t "cat-file" "commit" buffer-string] 8 (#$ . 14272)])
(put 'egg-commit-contents 'byte-optimizer 'byte-compile-inline-expand)
#@37 Retrieve the commit message of REV.
(defalias 'egg-commit-message #[(rev) "\303\304!\305\216rq\210\306	\307\310\307\311\312\n&\210eb\210\313\314!\210\315\316\225d\"+\207" [#1=#:temp-buffer egg-git-command rev generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process nil t "cat-file" "commit" re-search-forward "^\n" buffer-substring-no-properties 0] 8 (#$ . 14723)])
(put 'egg-commit-message 'byte-optimizer 'byte-compile-inline-expand)
#@100 Execute PROGRAM and return its output as a string.
ARGS is a list of arguments to pass to PROGRAM.
(defalias 'egg-cmd-to-string-1 #[(program args) "\303\304!\305\216rq\210\306\307	\310\311\310\n&\312U\205'\313edeV\203%dS\202&d\"+\207" [#1=#:temp-buffer program args generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties] 7 (#$ . 15236)])
(put 'egg-cmd-to-string-1 'byte-optimizer 'byte-compile-inline-expand)
#@100 Execute PROGRAM and return its output as a string.
ARGS is a list of arguments to pass to PROGRAM.
(defalias 'egg-cmd-to-string #[(program &rest args) "	\303\304!\305\216r\nq\210\306\307\310\311\310	&\312U\205+\313edeV\203)dS\202*d\"-\207" [program args #1=#:temp-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties] 7 (#$ . 15772)])
(put 'egg-cmd-to-string 'byte-optimizer 'byte-compile-inline-expand)
#@53 run GIT wih ARGS and return the output as a string.
(defalias 'egg-git-to-string #[(&rest args) "	\304\305!\306\216rq\210\307\310\n\311\312\311	&\313U\205+\314edeV\203)dS\202*d\"-\207" [egg-git-command args program #1=#:temp-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties] 7 (#$ . 16313)])
(put 'egg-git-to-string 'byte-optimizer 'byte-compile-inline-expand)
#@151 run PROGRAM with ARGS and insert output into BUFFER at point.
return the t if the exit-code was 0. if BUFFER was t then
current-buffer would be used.
(defalias 'egg-cmd-ok #[(program buffer &rest args) "\303\304\305	\305\n&\306U\207" [program buffer args apply call-process nil 0] 7 (#$ . 16816)])
(put 'egg-cmd-ok 'byte-optimizer 'byte-compile-inline-expand)
#@147 run GIT with ARGS and insert output into BUFFER at point.
return the t if the exit-code was 0. if BUFFER was t then
current-buffer would be used.
(defalias 'egg-git-ok #[(buffer &rest args) "\303\304\305	\305\n&\306U\207" [egg-git-command buffer args apply call-process nil 0] 7 (#$ . 17185)])
(put 'egg-git-ok 'byte-optimizer 'byte-compile-inline-expand)
#@160 run GIT with ARGS and insert output into current buffer at point.
return the t if the exit-code was 0. The text between START and END
is used as input to GIT.
(defalias 'egg-git-region-ok #[(start end &rest args) "\304\305	\n\306\211\307&\310U\207" [start end egg-git-command args apply call-process-region t nil 0] 9 (#$ . 17550)])
(put 'egg-git-region-ok 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-wdir-clean #[nil "\303\304\305D\306\307\n\303	\303&\310U*\207" [args buffer egg-git-command nil "diff" "--quiet" apply call-process 0] 7])
(put 'egg-wdir-clean 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-file-updated #[(file) "\304\305\306\307F\310\311\304\n\304	&\312U*\207" [file args buffer egg-git-command nil "diff" "--quiet" "--" apply call-process 0] 7])
(put 'egg-file-updated 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-file-committed #[(file) "\304\305\306\307\310\257\311\312\304\n\304	&\313U*\207" [file args buffer egg-git-command nil "diff" "--quiet" "HEAD" "--" apply call-process 0] 7])
(put 'egg-file-committed 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-file-index-empty #[(file) "\304\305\306\307\310\257\311\312\304\n\304	&\313U*\207" [file args buffer egg-git-command nil "diff" "--quiet" "--cached" "--" apply call-process 0] 7])
(put 'egg-file-index-empty 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-index-empty #[nil "\303\304\305\306E\307\310\n\303	\303&\311U*\207" [args buffer egg-git-command nil "diff" "--cached" "--quiet" apply call-process 0] 7])
(put 'egg-index-empty 'byte-optimizer 'byte-compile-inline-expand)
#@66 run GIT with ARGS.
Return the output lines as a list of strings.
(defalias 'egg-git-to-lines #[(&rest args) "\305 \306\216\307	\n\310\311!\312\216r\fq\210\313\314\315\316\315\n&\317U\2051\320edeV\203/dS\2020d\"-\2066\321\322\316#*\207" [save-match-data-internal egg-git-command args program #1=#:temp-buffer match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+"] 8 (#$ . 19210)])
(put 'egg-git-to-lines 'byte-optimizer 'byte-compile-inline-expand)
#@66 run GIT with ARGS.
Return the output lines as a list of strings.
(defalias 'egg-git-lines-matching #[(re idx &rest args) "\306\307!\310\216rq\210\311\312	\313\314\313\n&\315U\2056\313\316 \317\216eb\210\320
\313\314#\2034\321!B\202\"++\207" [#1=#:temp-buffer egg-git-command args lines save-match-data-internal re generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward match-string-no-properties idx] 7 (#$ . 19909)])
#@66 run GIT with ARGS.
Return the output lines as a list of strings.
(defalias 'egg-git-lines-matching-multi #[(re indices &rest args) "\306\307!\310\216rq\210\311\312	\313\314\313\n&\315U\205a\313\211\316 \317\216eb\210\320\313\314#\203_\313\313\211\203W@\211\224\203N\321!BBA\211\204:*\fB\202$\f,+\207" [#1=#:temp-buffer egg-git-command args matches lines save-match-data-internal generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward match-string-no-properties re indices idx #2=#:--cl-dolist-temp--] 7 (#$ . 20543)])
#@40 return the repo-relative name of FILE.
(defalias 'egg-file-git-name #[(file) "\306\307\310F\311 \312\216\313	\314\315!\316\216r
q\210\317\320\f\321\322\321	&\323U\2057\324edeV\2035dS\2026d\"-\206<\325\326\322#+@\207" [file args save-match-data-internal egg-git-command program #1=#:temp-buffer "ls-files" "--full-name" "--" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+"] 8 (#$ . 21301)])
(put 'egg-file-git-name 'byte-optimizer 'byte-compile-inline-expand)
#@98 return the repo-relative name of the file visited by BUF.
if BUF was nil then use current-buffer
(defalias 'egg-buf-git-name #[(&optional buf) "\306!\307\310\311	F\312 \313\216\314\f\n\315\316!\317\216rq\210\320\321
\322\323\322\n&\324U\205=\325edeV\203;dS\202<d\"-\206B\326\327\323#+@)\207" [buf file args save-match-data-internal egg-git-command program buffer-file-name "ls-files" "--full-name" "--" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+" #1#] 8 (#$ . 22019)])
(put 'egg-buf-git-name 'byte-optimizer 'byte-compile-inline-expand)
#@73 return the repo-relative name for each file in the list of files FILES.
(defalias 'egg-files-git-name #[(files) "\301\302\303\304\305\306%\307\310#\207" [files delete-duplicates apply egg-git-to-lines "ls-files" "--full-name" "--" :test string-equal] 7 (#$ . 22835)])
(put 'egg-files-git-name 'byte-optimizer 'byte-compile-inline-expand)
#@63 return a list of repo-relative names for each unmerged files.
(defalias 'egg-unmerged-files #[nil "\305 \306\216\307\310\311\310\312\310\313\314\315\316E\305 \317\216\313\n	\320\321!\322\216r\fq\210\323\324\325\326\325	&\327U\205B\330edeV\203@dS\202Ad\"-\206G\331\332\326#+\"\"\"\333\334#*\207" [save-match-data-internal args egg-git-command program #1=#:temp-buffer match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) delete-duplicates mapcar car last split-string "ls-files" "--full-name" "-u" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+" :test string-equal] 15 (#$ . 23180)])
(put 'egg-unmerged-files 'byte-optimizer 'byte-compile-inline-expand)
#@56 Get a list of local branches. E.g. ("master", "wip1").
(defalias 'egg-local-branches #[nil "\305\306\307E\310 \311\216\312\n\313\314!\315\216r\fq\210\316\317\320\321\320&\322U\2056\323edeV\2034dS\2025d\"-\206;\324\325\321#+\207" [args save-match-data-internal egg-git-command program #1=#:temp-buffer "rev-parse" "--symbolic" "--branches" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+"] 8 (#$ . 24112)])
(put 'egg-local-branches 'byte-optimizer 'byte-compile-inline-expand)
#@52 Get a list of local refs. E.g. ("master", "wip1").
(defalias 'egg-local-refs #[nil "\305\306\307\310F\311 \312\216\313\n\314\315!\316\216r\fq\210\317\320\321\322\321&\323U\2057\324edeV\2035dS\2026d\"-\206<\325\326\322#+\207" [args save-match-data-internal egg-git-command program #1=#:temp-buffer "rev-parse" "--symbolic" "--branches" "--tags" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+"] 8 (#$ . 24847)])
(put 'egg-local-refs 'byte-optimizer 'byte-compile-inline-expand)
#@69 Get a list of remote branches. E.g. ("origin/master", "joe/fork1").
(defalias 'egg-remote-branches #[(&optional raw) "\306\307\310E\311 \312\216\313\n\314\315!\316\216r\fq\210\317\320\321\322\321&\323U\2056\324edeV\2034dS\2025d\"-\206;\325\326\322#+\203I
\202M\327\330
\")\207" [args save-match-data-internal egg-git-command program #1=#:temp-buffer lst "rev-parse" "--symbolic" "--remotes" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+" mapcar #[(full-name) "\304 \305\216\306	\307\"*\211\211A@)\n@)B\207" [save-match-data-internal full-name tmp x match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string "/"] 4] raw] 8 (#$ . 25583)])
#@78 Return the remote name in the remote-branch RBRANCH.
E.g: `foo' in `foo/bar'
(defalias 'egg-rbranch-to-remote #[(rbranch) ";\205G\301V\205\302\303!!\207" [rbranch 0 directory-file-name file-name-directory] 3 (#$ . 26541)])
(put 'egg-rbranch-to-remote 'byte-optimizer 'byte-compile-inline-expand)
#@75 Return the ref name in the remote-branch RBRANCH.
E.g: `bar' in `foo/bar'
(defalias 'egg-rbranch-name #[(rbranch) ";\205G\301V\205\302!\207" [rbranch 0 file-name-nondirectory] 2 (#$ . 26850)])
(put 'egg-rbranch-name 'byte-optimizer 'byte-compile-inline-expand)
#@95 Return the short ref name of the full ref name FULL-REF.
like `my_tag' in `refs/tags/my_tag'.
(defalias 'egg-short-ref #[(full-ref) ";\205G\301V\205\302!\207" [full-ref 0 file-name-nondirectory] 2 (#$ . 27124)])
(put 'egg-short-ref 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-file-as-string-raw #[(file-name) "\302\303!\304\216rq\210\305	!\210\306 +\207" [#1=#:temp-buffer file-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally buffer-string] 2])
(put 'egg-file-as-string-raw 'byte-optimizer 'byte-compile-inline-expand)
#@52 return the contents of file FILE-NAME as a string.
(defalias 'egg-file-as-string #[(file-name) "\302\303!\304\216rq\210\305	!\210\306edeV\203dS\202d\"+\207" [#1=#:temp-buffer file-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally buffer-substring-no-properties] 4 (#$ . 27772)])
(put 'egg-file-as-string 'byte-optimizer 'byte-compile-inline-expand)
#@240 Pick a string out of the contents of the file FILE-NAME.
This function searches for and return the 1st match of REGEXP on the
contents of the file. If indices was not nil, then return the first
successful submatch in the order in INDICES.
(defalias 'egg-pick-file-contents #[(file-name regexp &rest indices) "\304\305!\306\216rq\210\307	!\210eb\210\310\n\311\312#\205&\204#\313\314!\202&\315\316\215+\207" [#1=#:temp-buffer file-name regexp indices generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally re-search-forward nil t match-string-no-properties 0 --cl-block-nil-- (byte-code "\303\211\203\n@\211\224\203\304\305\306	!\"\210\nA\211\204*\303\207" [indices idx #2=#:--cl-dolist-temp-- nil throw --cl-block-nil-- match-string-no-properties] 5)] 4 (#$ . 28230)])
#@177 Return a list of strings from the contents of the file FILE-NAME.
START-RE is the regexp to match the beginning of a record.
END-RE is the regexp to match the end of a record.
(defalias 'egg-pick-file-records #[(file-name start-re end-re) "\306\307!\310\216rq\210\311	!\210eb\210ed\312\313 \314\216\fV\203Rm\204R\315\312\316#\203R\317\224\315\312\316#\203\317\224\211\fV\203L\320\f\317\224\"\nBb\210\202*\n.\207" [#1=#:temp-buffer file-name lst end beg save-match-data-internal generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward t 0 buffer-substring-no-properties start-re end-re] 5 (#$ . 29108)])
#@41 is the default-directory in a git repo.
(defalias 'egg-is-in-git #[nil "\301\302\211\211\303\304&\305U\207" [egg-git-command call-process nil "rev-parse" "--git-dir" 0] 7 (#$ . 29945)])
(put 'egg-is-in-git 'byte-optimizer 'byte-compile-inline-expand)
#@23 is DIR in a git repo.
(defalias 'egg-is-dir-in-git #[(dir) "\303\n\304\211\211\305\306&\307U)\207" [dir default-directory egg-git-command call-process nil "rev-parse" "--git-dir" 0] 7 (#$ . 30204)])
(put 'egg-is-dir-in-git 'byte-optimizer 'byte-compile-inline-expand)
#@31 get the symbolic name of REV.
(defalias 'egg-name-rev #[(rev) "\305\306\307F\n	\310\311!\312\216r\fq\210\313\314\315\316\315	&\317U\2051\320edeV\203/dS\2020d\".\207" [rev args egg-git-command program #1=#:temp-buffer "name-rev" "--always" "--name-only" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties] 7 (#$ . 30481)])
(put 'egg-name-rev 'byte-optimizer 'byte-compile-inline-expand)
#@36 get the long symbolic name of REV.
(defalias 'egg-describe-rev #[(rev) "\305\306\307F\n	\310\311!\312\216r\fq\210\313\314\315\316\315	&\317U\2051\320edeV\203/dS\2020d\".\207" [rev args egg-git-command program #1=#:temp-buffer "describe" "--always" "--tags" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties] 7 (#$ . 31001)])
(put 'egg-describe-rev 'byte-optimizer 'byte-compile-inline-expand)
#@22 get the SHA1 of REV.
(defalias 'egg-sha1 #[(rev) "\305\306PD\n	\307\310!\311\216r\fq\210\312\313\314\315\314	&\316U\2051\317edeV\203/dS\2020d\".\207" [rev args egg-git-command program #1=#:temp-buffer "rev-parse" "~0" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties] 7 (#$ . 31529)])
(put 'egg-sha1 'byte-optimizer 'byte-compile-inline-expand)
#@58 call GIT to read the git directory of default-directory.
(defalias 'egg-read-git-dir #[nil "\305\306D	\307\310!\311\216rq\210\312\313\n\314\315\314&\316U\205/\317edeV\203-dS\202.d\".\211;\205:\320\f!)\207" [args egg-git-command program #1=#:temp-buffer dir "rev-parse" "--git-dir" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties expand-file-name] 8 (#$ . 32010)])
#@44 call GIT to read the git directory of DIR.
(defalias 'egg-read-dir-git-dir #[(dir) "\302 )\207" [dir default-directory egg-read-git-dir] 1 (#$ . 32514)])
(byte-code "\301\302\303\304#\210\305B\306\305!\204\307\305\310\"\210\310\207" [current-load-list put egg-read-dir-git-dir byte-optimizer byte-compile-inline-expand egg-git-dir default-boundp set-default nil] 4)
#@52 return the (pre-read) git-dir of default-directory
(defalias 'egg-git-dir #[(&optional error-if-not-git) "\303\300!\203\207\304\300!\210\305 \206	\205\306\300!\210\307\310\n\"\311\312\313Q!\314L\210\207" [egg-git-dir error-if-not-git default-directory local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg"] 4 (#$ . 32892)])
(put 'egg-git-dir 'byte-optimizer 'byte-compile-inline-expand)
#@42 return the (pre-read) git-dir of BUFFER.
(defalias 'egg-buf-git-dir #[(buffer) "rq\210\304\305\302!\203\n\2020\306\302!\210\307 \206%	\205%\310\302!\210\311\312\"\313\314\n\315Q!\316L\210\n*\207" [buffer error-if-not-git egg-git-dir default-directory nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg"] 4 (#$ . 33380)])
(put 'egg-buf-git-dir 'byte-optimizer 'byte-compile-inline-expand)
#@47 return HEAD. Either a symbolic ref or a sha1.
(defalias 'egg-HEAD #[nil "\304\305\301!\203\f	\202,\306\301!\210\307 \206!\205!\310\301!\210\311\312\n\"\313\314	\315Q!\316L\210	)\211\205:\317\320P\321\322\323$)\207" [error-if-not-git egg-git-dir default-directory git-dir nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" egg-pick-file-contents "/HEAD" "^ref: refs/heads/\\(.+\\)\\|^\\([0-9a-f]+\\)" 1 2] 6 (#$ . 33874)])
#@25 Get a list of all refs.
(defalias 'egg-all-refs #[nil "\305\306\307\310\311\312\257\313 \314\216\315\n\316\317!\320\216r\fq\210\321\322\323\324\323&\325U\205:\326edeV\2038dS\2029d\"-\206?\327\330\324#+\331\323\332\333\334\"\"\"\207" [args save-match-data-internal egg-git-command program #1=#:temp-buffer append "rev-parse" "--symbolic" "--branches" "--tags" "--remotes" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+" delq mapcar #[(head) "\304\305\306\301!\203
	\202-\307\301!\210\310 \206\"\205\"\311\301!\210\312\313\n\"\314\315	\316Q!\317L\210	)\320Q!\2056\207" [error-if-not-git egg-git-dir default-directory head file-exists-p nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/"] 5] ("HEAD" "ORIG_HEAD" "MERGE_HEAD" "FETCH_HEAD")] 9 (#$ . 34404)])
#@45 Build an alist of (REF-NAME . :type) cells.
(defalias 'egg-ref-type-alist #[nil "\300\301\302\303\304\305#\"\207" [mapcar #[(ref-desc) "\301\236A\302\236\203\303\202\304\236\203\305\202\306\236\205\307B\207" [ref-desc 5 2 :head 3 :tag 4 :remote] 3] egg-git-lines-matching-multi "^.+ \\(refs/\\(?:\\(heads\\)\\|\\(tags\\)\\|\\(remotes\\)\\)/\\(\\([^/\n]+/\\)?[^/\n]+\\)\\)$" (1 2 3 4 5 6) "show-ref"] 6 (#$ . 35525)])
(defalias 'egg-tooltip-func #[nil "\205\301\207" [egg-enable-tooltip egg-buffer-help-echo] 1])
(put 'egg-tooltip-func 'byte-optimizer 'byte-compile-inline-expand)
#@283 Build an alist of (ref . :type) cells.
A ref string of a head will be decorated with head-PROPERTIES.  A
ref string of a tag will be decorated with TAG-PROPERTIES or
ATAG-PROPERTIES.  A ref string of a remote will be formatted with
REMOTE-REF-PROPERTIES and REMOTE-SITE-PROPERTIES.
(defalias 'egg-full-ref-decorated-alist #[(head-properties tag-properties atag-properties remote-ref-properties remote-site-properties) "\302\303\304\305\306$\307\310\307\311\312	\"\"\311\313	\"*\207" [annotated-tags refs-desc-list egg-git-lines-matching-multi "^.+ \\(refs/\\(?:\\(heads\\)\\|\\(tags\\)\\|\\(remotes\\)\\)/\\(\\([^/\n]+/\\)?[^/\n{}]+\\)\\)\\(\\^{}\\)?$" (1 2 3 4 5 6 7) "show-ref" "-d" nil delq mapcar #[(desc) "\302\236\204\207\303\236A	B\304\207" [desc annotated-tags 7 1 nil] 2] #[(desc) "\306\236A\307\236A\310\236A\311\236\203#\312\313\n\314\n\315B\f%B\202m\316\236\203C\312\313\n\314\n\317B
\235\203<\202>%B\202m\320\236\205m	;\203\\\312\313	\314\n\321B%\202]\322\312\313\n	G\323O\314\n\321B%PB+\207" [desc remote name full-name head-properties annotated-tags 1 5 6 2 apply propertize :ref :head 3 :tag 4 :remote "" nil atag-properties tag-properties remote-site-properties remote-ref-properties] 8]] 5 (#$ . 36129)])
#@24 Do revision completion
(defalias 'egg-complete-rev #[(string &optional ignored all) "\306 \307\216\310\311	\"\203\n\203\312\202\313	\314\"\202

\310\315	\"\203D\316\317	D\320\321
\316\f\316&\322U*\205

\n\203@	C\202

	\202

\323\324\325	\326Q\325	\327QF\306 \330\216\331
0\332\333!1\334\216r1q\210\320\3210\316\335\316&\322U\205\205\336edeV\203\203dS\202\204d\"-\206\212\337\340\335#+\31623\341\3423\"3\n\203\242\312\202\243\313	\343\3164\344\345!\203\263%\202\330\346\345!\210\347 \206\3124\205\312\350\345!\210\351\3525\"%\353\354%\355Q!\356L\210%)\316\357#3\244\"2\n\203\3532\202
2;\203\3662\202
2\204\377\316\202
	**\207" [save-match-data-internal string all args buffer egg-git-command match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\`:[0-3]*" all-completions try-completion (":0" ":1" ":2" ":3") "[\\^~][\\^~0-9]*\\'" nil "rev-parse" apply call-process 0 "for-each-ref" "--format=%(refname)" "refs/*/" "*" "*/*" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) t buffer-substring-no-properties "" "[\n]+" mapcar #[(long) "\301\302\"\210\303\304\"\207" [long string-match "\\`refs/\\(?:heads\\|tags\\|remotes\\)/\\(.+\\)\\'" match-string-no-properties 1] 3] directory-files local-variable-p egg-git-dir make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "HEAD" program #1# prefix matches error-if-not-git default-directory] 8 (#$ . 37397)])
(defalias 'egg-get-symbolic-HEAD #[(&optional file) "\2063\304\305\302!\203\n\2020\306\302!\210\307 \206%	\205%\310\302!\210\311\312\"\313\314\n\315Q!\316L\210\n)\317P\320\321\322#\207" [file error-if-not-git egg-git-dir default-directory nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/HEAD" egg-pick-file-contents "^ref: refs/heads/\\(.+\\)" 1] 4])
(put 'egg-get-symbolic-HEAD 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-get-full-symbolic-HEAD #[(&optional file) "\2063\304\305\302!\203\n\2020\306\302!\210\307 \206%	\205%\310\302!\210\311\312\"\313\314\n\315Q!\316L\210\n)\317P\320\321\322#\207" [file error-if-not-git egg-git-dir default-directory nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/HEAD" egg-pick-file-contents "^ref: \\(refs/heads/.+\\)" 1] 4])
(put 'egg-get-full-symbolic-HEAD 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-get-current-sha1 #[nil "\304\305\306\307F	\310\311!\312\216rq\210\313\314\n\315\316\315&\317U\2051\320edeV\203/dS\2020d\".\2067\321\207" [args egg-git-command program #1=#:temp-buffer "rev-parse" "--verify" "-q" "HEAD" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "0000000000000000000000000000000000000000"] 7])
(put 'egg-get-current-sha1 'byte-optimizer 'byte-compile-inline-expand)
#@128 Set the mode-line string for buffers visiting files in the current repo.
The string is built based on the current state STATE.
(defalias 'egg-set-mode-info #[(state) "\302\303\304Q!\305\306\307	\310\"\203\311\202-\307	\312\"\203\313\202-\307	\314\"\203,\307	\314\"\202-\315\"L\207" [egg-git-dir state intern "egg-" "-HEAD" format " Git:%s" plist-get :rebase-dir "(rebasing)" :merge-heads "(merging)" :branch "(detached)"] 6 (#$ . 40728)])
(put 'egg-set-mode-info 'byte-optimizer 'byte-compile-inline-expand)
#@76 Build a plist of rebase info of REBASE-DIR.
this is for rebase -m variant.
(defalias 'egg-get-rebase-merge-state #[(rebase-dir) "\306\307\310P\311\312!\313\216r\nq\210\314	!\210\315edeV\203\"dS\202#d\",\316\317\320F
\f\311\312! \321\216r q\210\322\323\324\325\324\f&\326U\205[\315edeV\203YdS\202Zd\".\327\330P\311\312!\313\216r\nq\210\314	!\210\315edeV\203}dS\202~d\",\331\317\332F
\f\311\312! \321\216r q\210\322\323\324\325\324\f&\326U\205\266\315edeV\203\264dS\202\265d\".\333\334P\311\312!\313\216r\nq\210\314	!\210\315edeV\203\330dS\202\331d\",\335\336P\311\312!\313\216r\nq\210\314	!\210\315edeV\203\373dS\202\374d\",\257\n\207" [rebase-dir file-name #1=#:temp-buffer rev args egg-git-command :rebase-dir :rebase-head "head-name" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally buffer-substring-no-properties "name-rev" "--always" "--name-only" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process nil t 0 :rebase-upstream "onto_name" "describe" "--tags" :rebase-step "msgnum" :rebase-num "end" program #2#] 13 (#$ . 41251)])
(put 'egg-get-rebase-merge-state 'byte-optimizer 'byte-compile-inline-expand)
#@76 Build a plist of rebase info of REBASE-DIR.
this is for rebase -i variant.
(defalias 'egg-get-rebase-interactive-state #[(rebase-dir) "\306\307\310P\311\312!\313\216r\nq\210\314	!\210\315edeV\203\"dS\202#d\",\316\317\320F
\f$\311\312!%\321\216r%q\210\322\323$\324\325\324\f&\326U\205[\315edeV\203YdS\202Zd\".\327\330P\311\312!\313\216r\nq\210\314	!\210\315edeV\203}dS\202~d\",\331\317\332F
\f$\311\312!%\321\216r%q\210\322\323$\324\325\324\f&\326U\205\266\315edeV\203\264dS\202\265d\".\333\334\335P\336\337#G\340\341\342P!\203\325\334\342P\336\337#G\202\326\326\343\341\342P!\205\347\334\342P\336\337#@\257\f\207" [rebase-dir file-name #1=#:temp-buffer rev args egg-git-command :rebase-dir :rebase-head "head-name" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally buffer-substring-no-properties "name-rev" "--always" "--name-only" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process nil t 0 :rebase-upstream "onto" "describe" "--tags" :rebase-num egg-pick-file-records "git-rebase-todo.backup" "^[pes]" "$" :rebase-step file-exists-p "done" :rebase-cherry program #2#] 15 (#$ . 42570)])
(put 'egg-get-rebase-interactive-state 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-git-rebase-dir #[(&optional git-dir) "\2061\305\306\302!\203\n\2020\307\302!\210\310 \206%	\205%\311\302!\210\312\313\"\314\315\n\316Q!\317L\210\n)\320\f\320R\207" [git-dir error-if-not-git egg-git-dir default-directory egg-git-rebase-subdir nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/"] 4])
(put 'egg-git-rebase-dir 'byte-optimizer 'byte-compile-inline-expand)
#@88 Retrieve an alist of commit environment variables of the current
cherry in REBASE-DIR.
(defalias 'egg-rebase-author-info #[(rebase-dir) "\301\302\301\303\304\305P\306\307#\"\"\207" [rebase-dir mapcar #[(lst) "A\211A@)\302\303O\240\210\207" [lst x 1 -1] 5] #[(line) "\302 \303\216\304	\305\306#*\207" [save-match-data-internal line match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string "=" t] 4] egg-pick-file-records "author-script" "^GIT_\\(.+\\)" "$"] 8 (#$ . 44433)])
(put 'egg-rebase-author-info 'byte-optimizer 'byte-compile-inline-expand)
#@59 Is an interactive rebase in progress in the current repo?
(defalias 'egg-interactive-rebase-in-progress #[nil "\304\305\306\301!\203
	\202-\307\301!\210\310 \206\"\205\"\311\301!\210\312\313\n\"\314\315	\316Q!\317L\210	)\320\321R!\207" [error-if-not-git egg-git-dir default-directory egg-git-rebase-subdir file-exists-p nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/" "/interactive"] 5 (#$ . 45046)])
(byte-code "\301\302\303\304#\210\305B\306\305!\204\307\305\310\"\210\310\207" [current-load-list put egg-interactive-rebase-in-progress byte-optimizer byte-compile-inline-expand egg-internal-current-state default-boundp set-default nil] 4)
#@324 Retrieve current repo's state as a plist.
The properties:
:gitdir :head :branch :sha1 :merge-heads :rebase-dir :rebase-head
:rebase-upstream :rebase-step :rebase-num :rebase-cherry

EXTRAS contains the extra properties to retrieve: :staged :unstaged

if EXTRAS contains :error-if-not-git then error-out if not a git repo.

(defalias 'egg-get-repo-state #[(&optional extras) "\306>\307\302!\203\n\202.\310\302!\210\311 \206#	\205#\312\302!\210\313\314\"\315\316\n\317Q!\320L\210\n)\211\321P\f\322P@
\211A\206o\323\307\302!\203L\n\202l\310\302!\210\311 \206a	\205a\312\302!\210\313\314\"\315\316\n\317Q!\320L\210\n)\321PA\324A\325\326#)B
\211A\206\260\323\307\302!\203\215\n\202\255\310\302!\210\311 \206\242	\205\242\312\302!\210\313\314\"\315\316\n\317Q!\320L\210\n)\321PA\324A\327\326#)C\330\331\332\333FDEDDF\334\335!G\336\216rGq\210\337\340F\323\341\323D&\342U\205\365\343edeV\203\363dS\202\364d\".\206\373\344H\345\346\347@!\205\f
\350@\351\352#\"I\353\f\354JQ!\205
\f\354J\354RK\355K\356P!LK\205rL\203DKK\357K\360K\361PM\334\335!N\362\216rNq\210\363M!\210\343edeV\203_
dS\202`
d\",O\364\365\366OFDEDDF\334\335!G\336\216rGq\210\337\340F\323\341\323D&\342U\205\237
\343edeV\203\235
dS\202\236
d\".\367K\370PM\334\335!N\362\216rNq\210\363M!\210\343edeV\203\306
dS\202\307
d\",O\371\365\372OFDEDDF\334\335!G\336\216rGq\210\337\340F\323\341\323D&\342U\205\343edeV\203dS\202d\".\373\350K\374P\375\352#G\376\355K\377P!\203(\350K\377P\375\352#G\202)\342\201V\355K\377P!\205>\350K\377P\375\352#@\257\f)\202rKK\357K\360K\361PM\334\335!N\362\216rNq\210\363M!\210\343edeV\203pdS\202qd\",O\364\365\366OFDEDDF\334\335!G\336\216rGq\210\337\340F\323\341\323D&\342U\205\260\343edeV\203\256dS\202\257d\".\367K\201WPM\334\335!N\362\216rNq\210\363M!\210\343edeV\203\331dS\202\332d\",O\371\365\372OFDEDDF\334\335!G\336\216rGq\210\337\340F\323\341\323D&\342U\205\343edeV\203dS\202d\".\376K\201XPM\334\335!N\362\216rNq\210\363M!\210\343edeV\203BdS\202Cd\",\373K\201YPM\334\335!N\362\216rNq\210\363M!\210\343edeV\203ldS\202md\",\257\n)P\201Z\f\201[C\201\\B\201]H\201^I\257\nP\244Q\323R\323S\211T\203T@\211S\201_=\203\243\201`\366DD\201a U\201b\216\201cEDDF\334\335!G\336\216rGq\210\337\340F\323\341\323D&\342U\205\364\343edeV\203\362dS\202\363d\"-\206\373\201d\201e\341#+R\201_RDQ\244QR\203\fR@;\203\f\201f\201a U\201g\216\201h\345\201i\345\201j\345\201c\201k\201l\201mED\201a U\201b\216\201cEDDF\334\335!G\336\216rGq\210\337\340F\323\341\323D&\342U\205\202\343edeV\203\200dS\202\201d\"-\206\211\201d\201e\341#+\"\"\"\201n\201o#*DQ\244Q\202\fS\201p=\203\f\201p\201`\201q\366ED\201a U\201b\216\201cEDDF\334\335!G\336\216rGq\210\337\340F\323\341\323D&\342U\205\371\343edeV\203\367dS\202\370d\"-\206\201d\201e\341#+DQ\244QTA\211T\204\240*QQ\315\316\n\317Q!\201r\201s\201tQ\357\"\2036\201u\202c\201tQ\201^\"\203H\201v\202c\201tQ\201\\\"\203`\201tQ\201\\\"\202c\201w\"L\210)Q.\f\207" [extras error-if-not-git egg-git-dir default-directory git-dir head-file :error-if-not-git local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/HEAD" "/MERGE_HEAD" nil egg-pick-file-contents "^ref: refs/heads/\\(.+\\)" 1 "^ref: \\(refs/heads/.+\\)" "rev-parse" "--verify" "-q" "HEAD" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties "0000000000000000000000000000000000000000" mapcar egg-name-rev file-readable-p egg-pick-file-records "^" "$" file-directory-p "/" file-exists-p "interactive" :rebase-dir :rebase-head "head-name" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents-literally "name-rev" "--always" "--name-only" :rebase-upstream "onto" "describe" "--tags" :rebase-num "git-rebase-todo.backup" "^[pes]" :rebase-step "done" merge-file file branch branch-full-name args egg-git-command program #1# sha1 merge-heads egg-git-rebase-subdir rebase-dir is-rebase-interactive file-name #2# rev rebase-state state files req #3=#:--cl-dolist-temp-- save-match-data-internal :rebase-cherry "onto_name" "msgnum" "end" :gitdir :head :branch :sha1 :merge-heads :unstaged "diff" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string "" "[\n]+" :unmerged ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) delete-duplicates car last "ls-files" "--full-name" "-u" :test string-equal :staged "--cached" format " Git:%s" plist-get "(rebasing)" "(merging)" "(detached)"] 18 (#$ . 45806)])
#@100 return the cached repo state or re-read it.
if ARGS contained :force then ignore the cached state.
(defalias 'egg-repo-state #[(&rest args) "\302>\204\n	\206
\303!\207" [args egg-internal-current-state :force egg-get-repo-state] 2 (#$ . 50758)])
(put 'egg-repo-state 'byte-optimizer 'byte-compile-inline-expand)
#@145 Whether the current repos is clean base on the current repo state.
use STATE as repo state if it was not nil. Otherwise re-read the repo state.
(defalias 'egg-repo-clean #[(&optional state) "\204\305\306D\307	>\204\n\206\310	!)\311\312\"?\205k\311\313\"?\205k\306>\2034\311\306\"\202F\314\315\316D\317\320\f\314\314	&\321U*?\205k\305>\203W\311\305\"\202j\314\315\322\316E\317\320\f\314\314	&\321U*?\207" [state args egg-internal-current-state buffer egg-git-command :staged :unstaged :force egg-get-repo-state plist-get :rebase-num :merge-heads nil "diff" "--quiet" apply call-process 0 "--cached"] 7 (#$ . 51081)])
(put 'egg-repo-clean 'byte-optimizer 'byte-compile-inline-expand)
#@137 The current symbolic value of HEAD. i.e. name of a branch. if STATE
was not nil then use it as repo state instead of re-read from disc.
(defalias 'egg-current-branch #[(&optional state) "\303\206\304\305	>\204\n\206\306	!)\307\"\207" [state args egg-internal-current-state plist-get nil :force egg-get-repo-state :branch] 3 (#$ . 51800)])
(put 'egg-current-branch 'byte-optimizer 'byte-compile-inline-expand)
#@107 The immutable sha1 of HEAD.  if STATE was not nil then use it
as repo state instead of re-read from disc.
(defalias 'egg-current-sha1 #[(&optional state) "\303\206\304\305	>\204\n\206\306	!)\307\"\207" [state args egg-internal-current-state plist-get nil :force egg-get-repo-state :sha1] 3 (#$ . 52224)])
(put 'egg-current-sha1 'byte-optimizer 'byte-compile-inline-expand)
#@116 a cons cell (branch . sha1) of HEAD.  if STATE was not nil then use it
as repo state instead of re-read from disc.
(defalias 'egg-head #[(&optional state) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\205z\206D\306\321\f>\204@
\206C\322\f!)\211\323\206\\\306\321\f>\204X
\206[\322\f!)\324\")\323\206v\306\321\f>\204r
\206u\322\f!)\325\"*B\207" [error-if-not-git egg-git-dir default-directory state args egg-internal-current-state nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" :force egg-get-repo-state plist-get :sha1 :branch] 5 (#$ . 52612)])
(put 'egg-head 'byte-optimizer 'byte-compile-inline-expand)
#@107 Pretty description of HEAD.  if STATE was not nil then use it
as repo state instead of re-read from disc.
(defalias 'egg-pretty-head-string #[(&optional state) "\206\306\307	>\204\n\206\310	!)\311\312\"\311\313\"\311\314\"\311\315\"$\311\316\"%\203D\f\203D\317\320\321\322\f\323#R\202\351\f\203\220\317%&\324\325\326&F'	(\327\330!)\331\216r)q\210\332\333(\306\334\306	&\335U\205\204\336edeV\203\202dS\202\203d\".\320\321\322\f\323#R\202\351
\203\242$\203\242\337\340
$#\202\351\203\252\202\351\341%&\342\325\343&F'	(\327\330!)\331\216r)q\210\332\333(\306\334\306	&\335U\205\346\336edeV\203\344dS\202\345d\".P.\207" [state args egg-internal-current-state branch merge-heads rebase-head nil :force egg-get-repo-state plist-get :branch :merge-heads :rebase-head :rebase-upstream :sha1 "Merging to " " from: " mapconcat identity "," "name-rev" "--always" "--name-only" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties format "Rebasing %s onto %s" "Detached HEAD: " "describe" "--tags" rebase-upstream sha1 rev egg-git-command program #1#] 8 (#$ . 53407)])
#@101 Pretty name for HEAD.  if STATE was not nil then use it
as repo state instead of re-read from disc.
(defalias 'egg-pretty-head-name #[(&optional state) "\206\306\307	>\204\n\206\310	!)\311\312\"\211\206Z\311\313\"\314\315\316\fF
	\317\320!\321\216rq\210\322\323\306\324\306	&\325U\205X\326edeV\203VdS\202Wd\".*\207" [state args egg-internal-current-state branch rev egg-git-command nil :force egg-get-repo-state plist-get :branch :sha1 "describe" "--always" "--tags" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties program #1#] 8 (#$ . 54660)])
(put 'egg-pretty-head-name 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-config-section-raw #[(type &optional name) "\305\306\307\301!\203
	\202-\310\301!\210\311 \206\"\205\"\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321P\322\203=\323\324\f#\202A\323\325\f\"\326\327R\330#\207" [error-if-not-git egg-git-dir default-directory name type egg-pick-file-contents nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/config" "^" format "\\[%s \"%s\"\\]" "\\[%s\\]" "\n" "\\(\\(?:	.+\n\\)+\\)" 1] 7])
(put 'egg-config-section-raw 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-config-section #[(type &optional name) "\306 \307\216\310\311\312	\n\313\314\315\304!\203\f\2029\316\304!\210\317 \206.\205.\320\304!\210\321\322
\"\323\324\f\325Q!\326L\210\f)\327P\330\n\203I\331\332	\n#\202M\331\333	\"\334\335R\336#*\206W\337\340\341#\"*\207" [save-match-data-internal type name error-if-not-git egg-git-dir default-directory match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) mapcar #[(line) "\301\302\303#\207" [line split-string "[ =]+" t] 4] split-string egg-pick-file-contents nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/config" "^" format "\\[%s \"%s\"\\]" "\\[%s\\]" "\n" "\\(\\(?:	.+\n\\)+\\)" 1 "" "[	\n]+" t] 10])
(put 'egg-config-section 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-config-get-all #[(file type) "\303 \304\216\305\306\305\307\310	\311\n\312Q\313#\"\"*\207" [save-match-data-internal file type match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) mapcar #[(rec) "@A\303\304\n\"\210\305\306\n\"\307\310	\"*B\207" [rec infos key string-match "\"\\(.+\\)\"" match-string-no-properties 1 mapcar #[(attr) "\301\302\303#\207" [attr split-string "[ =]+" t] 4]] 4] #[(str) "\301\302\303#\207" [str split-string "[	\n]+" t] 4] egg-pick-file-records "^\\[" " \"" "^\\[\\|\\'"] 9 nil "fFilename: "])
(defalias 'egg-config-get-all-branches #[nil "\303\304\305\301!\203
	\202-\306\301!\210\307 \206\"\205\"\310\301!\210\311\312\n\"\313\314	\315Q!\316L\210	)\317P\320\"\207" [error-if-not-git egg-git-dir default-directory egg-config-get-all nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/config" "branch"] 5])
(put 'egg-config-get-all-branches 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-config-get-all-remotes #[nil "\303\304\305\301!\203
	\202-\306\301!\210\307 \206\"\205\"\310\301!\210\311\312\n\"\313\314	\315Q!\316L\210	)\317P\320\"\207" [error-if-not-git egg-git-dir default-directory egg-config-get-all nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/config" "remote"] 5])
(put 'egg-config-get-all-remotes 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-config-get-all-remote-names #[nil "\303\304\305\306\307\301!\203	\202/\310\301!\210\311 \206$\205$\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321P\322\"\"\207" [error-if-not-git egg-git-dir default-directory mapcar car egg-config-get-all nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/config" "remote"] 7])
(put 'egg-config-get-all-remote-names 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-config-get #[(type attr &optional name) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\205\232\321\f
\322 #\323\216\324\325\326\f
\327\306\307\301!\203P	\202p\310\301!\210\311 \206e\205e\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\330P\331
\203\200\332\333\f
#\202\204\332\334\f\"\335\336R\337#*\206\216\340\341\342#\",\"\211$A@)\207" [error-if-not-git egg-git-dir default-directory attr type name nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" assoc match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) mapcar #[(line) "\301\302\303#\207" [line split-string "[ =]+" t] 4] split-string egg-pick-file-contents "/config" "^" format "\\[%s \"%s\"\\]" "\\[%s\\]" "\n" "\\(\\(?:	.+\n\\)+\\)" 1 "" "[	\n]+" t save-match-data-internal x] 13])
(put 'egg-config-get 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-tracking-target #[(branch &optional mode) "\306\307\310\311\305!\203
\2023\312\305!\210\313 \206(\f\205(\314\305!\210\315\316*\"\317\320
\321Q!\322L\210
)\205\242\323\n	\324 +\325\216\326\327\330	\331\310\311\305!\203W
\202x\312\305!\210\313 \206m\f\205m\314\305!\210\315\316*\"\317\320
\321Q!\322L\210
)\332P\333	\203\210\334\335	#\202\214\334\336\"\337\340R\341#*\206\226\342\343\344#\",\"\211,A@)+\306\345\310\311\305!\203\265
\202\326\312\305!\210\313 \206\313\f\205\313\314\305!\210\315\316*\"\317\320
\321Q!\322L\210
)\205E
\323\n	\324 +\325\216\326\327\330	\331\310\311\305!\203\372
\202
\312\305!\210\313 \206
\f\205
\314\305!\210\315\316*\"\317\320
\321Q!\322L\210
)\332P\333	\203+
\334\335	#\202/
\334\336\"\337\340R\341#*\2069
\342\343\344#\",\"\211,A@)+-.-;\205\207
-\211-;\205e
-G\346V\205e
\347-!)-/\204v
.\350-Q\202\207
/\351=\203\202
-\202\207
-.B*\207" [branch name attr type error-if-not-git egg-git-dir "branch" "remote" nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" assoc match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) mapcar #[(line) "\301\302\303#\207" [line split-string "[ =]+" t] 4] split-string egg-pick-file-contents "/config" "^" format "\\[%s \"%s\"\\]" "\\[%s\\]" "\n" "\\(\\(?:	.+\n\\)+\\)" 1 "" "[	\n]+" t "merge" 0 file-name-nondirectory "/" :name-only default-directory save-match-data-internal x rbranch remote mode] 15])
#@71 Query user for a revision using PROMPT. DEFAULT is the default value.
(defalias 'egg-read-rev #[(prompt &optional default) "\302\303\304\211	%\207" [prompt default completing-read egg-complete-rev nil] 6 (#$ . 61689)])
(put 'egg-read-rev 'byte-optimizer 'byte-compile-inline-expand)
#@69 Query user for a remote using PROMPT. DEFAULT is the default value.
(defalias 'egg-read-remote #[(prompt &optional default) "\305\306\307\310\311\312\302!\203\n\2021\313\302!\210\314 \206&	\205&\315\302!\210\316\317\"\320\321\n\322Q!\323L\210\n)\324P\325\"\"\311\326\f%\207" [prompt error-if-not-git egg-git-dir default-directory default completing-read mapcar car egg-config-get-all nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/config" "remote" t] 9 (#$ . 61979)])
(put 'egg-read-remote 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-async-process #[nil "\302\303!\304!\305	!\205 \306	!\307=?\205 \310	!\311U\205 	*\207" [buffer proc get-buffer-create "*egg-process*" get-buffer-process processp process-status exit process-exit-status 0] 2])
(put 'egg-async-process 'byte-optimizer 'byte-compile-inline-expand)
#@113 Run GIT asynchronously with ARGS.
if EXIT code is an exit-code from GIT other than zero but considered
success.
(defalias 'egg-async-do #[(exit-code func-args args) "\306\307\310\301!\203
	\202-\311\301!\210\312 \206\"\205\"\313\301!\210\314\315\n\"\316\317	\320Q!\321L\210	)!\322\323!\f\250\205<\324\325\f\"\307/01\3260!\327
!\203g\330
!\331=\204g\332
!\333U\203g\314\334\335
!\"\210r0q\210\3361~\210db\210\337c\210\324\3402\"c\210\341c\210\342\343\344032%\34545:\203\257\3465@!\203\257\347
\3505@#\210\347
\3515A#\210/;\203\302\347
\352/#\210\347
\353\f#\210\347
\35432B#\210\355
\356\"\210)
-\207" [error-if-not-git egg-git-dir default-directory inhibit-read-only exit-code proc file-name-directory nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" get-buffer-create "*egg-process*" format "exited abnormally with code %d" get-buffer-process processp process-status exit process-exit-status 0 "EGG: %s is already running!" process-command t "EGG-GIT-CMD:\n" "%S\n" "EGG-GIT-OUTPUT:\n" apply start-process "egg-git" " git" functionp process-put :callback-func :callback-args :accepted-msg :accepted-code :cmds set-process-sentinel egg-process-sentinel accepted-msg buf dir args egg-git-command mode-line-process func-args] 6 (#$ . 62927)])
(defalias 'egg-async-0 #[(func-args &rest args) "\302\303	#\207" [func-args args egg-async-do nil] 4])
(put 'egg-async-0 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-async-1 #[(func-args &rest args) "\302\303	#\207" [func-args args egg-async-do 1] 4])
(byte-code "\301\302\303\304#\210\305B\306\305!\204\307\305\310\"\210\311B\306\311!\204$\307\311\310\"\210\312B\306\312!\2043\307\312\310\"\210\310\207" [current-load-list put egg-async-1 byte-optimizer byte-compile-inline-expand egg-async-process default-boundp set-default nil egg-async-cmds egg-async-exit-msg] 4)
(defalias 'egg-process-sentinel #[(proc msg) "\306\307\"\306\310\"\306\311\"\306\312\"\306\313\"\314\230\203'\315\316!\210\202\\\317\230\2035\315\320!\210\202\\\f\203I\321\f\"\203I\315\322
\"\210\202\\\321\323\"\203X\315\324!\210\202\\\315\325!\210r\326!q\210\327~\210db\210\330\331\327\332#\210`d}\210\333!\205\211	 !\334\n\"+.\207" [proc cmds callback-args callback-func accepted-msg exit-code process-get :accepted-code :accepted-msg :callback-func :callback-args :cmds "finished\n" message "EGG: git finished." "killed\n" "EGG: git was killed." string-match "EGG: git exited with code: %d." "exited abnormally" "EGG: git failed." "EGG: git is weird!" process-buffer nil re-search-backward "^EGG-GIT-CMD:" t functionp apply msg mode-line-process egg-async-exit-msg egg-async-cmds egg-async-process] 7])
#@50 Keymap for an annotated section.\{egg-blame-map}
(defconst egg-blame-map (byte-code "\301\302!\303\304\305#\210\303\306\305#\210\303\307\310#\210)\207" [map make-sparse-keymap "Egg:Blame" define-key "l" egg-blame-locate-commit "
" "q" egg-file-toggle-blame-mode] 4) (#$ . 65751))
#@132 Parse blame-info in buffer BLAME-BUF and decorate TARGET-BUF buffer.
OV-ATTRIBUTES are the extra decorations for each blame chunk.
(defalias 'egg-parse-git-blame #[(target-buf blame-buf &optional ov-attributes) "\306 \307\216\310\311\312\313\314\315\316$\317\211\211\211\211\211\211\211\211\211\211\211\21156789:;<=>?r@q\210eb\210\320\321\317\322#\203\261\323\324!<\325\323\326!!:\325\323\327!!9\325\323\330!!8\331<=\"\211;\204\242\320\332!\210\323\324!5\320\333!\210\323\324!6\320\334!\210\323\324!7\335<\3365\3376\3407\257A\244;\341<;=#\210:98;F
B\202=)
\237rBq\210
\317C\211D\203T
D@C\327C8;C@:CA@9\326C88\342;\335\"<\342;\336\"5\342;\337\"6\3439!\210\344 \2128y\210\344 )\345\n\346C$\210\347\n\"\350\f\346C#\210\351\352<\353\354#\355\356#?\351\357\3605\"\355\361#?\3516\355\362#?>\260\350\f\363	#\210\350\f\364E#\210DA\211D\204\304.\317\207" [save-match-data-internal blame end beg ov info match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) #(" " 0 1 (face egg-blame)) #("\n" 0 1 (face egg-blame)) make-hash-table :test equal :size 577 nil re-search-forward "^\\([0-9a-f]\\{40\\}\\) \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\)$" t match-string-no-properties 1 string-to-number 2 3 4 gethash "^author \\(.+\\)$" "^summary \\(.+\\)$" "^filename \\(.+\\)$" :sha1 :author :subject :file puthash plist-get goto-line line-beginning-position put-text-property :blame make-overlay overlay-put propertize substring-no-properties 0 8 face egg-blame format "%-20s" egg-blame-culprit egg-blame-subject before-string local-map author subject old-file num new-line old-line commit-info commit commit-hash nl blank blame-buf ov-attributes target-buf chunk #1=#:--cl-dolist-temp-- egg-blame-map] 17 (#$ . 66043)])
(defalias 'egg-file-buffer-blame-off #[(buffer) "\212\214rq\210~\210\301\302\303ed\"\"+\207" [buffer mapc #[(ov) "\301\302\"\205\n\303!\207" [ov overlay-get :blame delete-overlay] 3] overlays-in] 5])
(put 'egg-file-buffer-blame-off 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-file-buffer-blame-on #[(buffer &rest ov-attributes) "\212\214rq\210~\210\305\306\307ed\"\"+\210)\212rq\210\214\310\311!\312\216r	q\210\313\314\315\316\317\320!!F\321\322\323\323\n&\324U*\205D\325p\f#.\207" [buffer #1=#:temp-buffer args egg-git-command ov-attributes mapc #[(ov) "\301\302\"\205\n\303!\207" [ov overlay-get :blame delete-overlay] 3] overlays-in generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) t "blame" "--porcelain" "--" file-name-nondirectory buffer-file-name apply call-process nil 0 egg-parse-git-blame] 7])
(defalias 'egg-blame-locate-commit #[(pos &optional all) "\306!\307\211\307\211\203)\f@\310\311\"\203\"\312\313\310\311\"8\314\"\fA\211\204*	\205X\307\315!\210e\211\203M\316
\317\"	\232\204M\320
\317\"\211\204;
\205W\321
!\210\322 )*\207" [pos sha1 overlays ov #1=#:--cl-dolist-temp-- commit-pos overlays-at nil overlay-get :blame plist-get 3 :sha1 egg-log get-text-property :commit next-single-property-change egg-log-buffer-goto-pos recenter all] 7 nil "d\nP"])
(defalias 'egg-mouse-do-command #[(event cmd) "\211:\203\3048:\203\304\202\3058\202\306 `\307\310F)\211@)\211\205+\311\n!\211:\203D\3048:\203>\304\202?\3058\202J\306 `\307\310F)\312	8\206c	A@:\203`	A@@\202c	A@)\313!\205m\314\213+\207" [event position window buffer 2 1 selected-window (0 . 0) 0 window-buffer 5 bufferp ((byte-code "\212\304!\210r	q\210\nb\210\305!*\207" [window buffer position cmd select-window call-interactively] 2))] 5])
(defalias 'egg-mouse-hide-show-cmd #[(event) "\301\302\"\207" [event egg-mouse-do-command egg-section-cmd-toggle-hide-show] 3 nil "e"])
#@68 Keymap for a section than can be hidden/shown.\{egg-hide-show-map}
(defconst egg-hide-show-map (byte-code "\301\302!\303\304\305#\210\303\306\307#\210\303\310\311#\210)\207" [map make-sparse-keymap "Egg:HideShow" define-key "h" egg-section-cmd-toggle-hide-show "H" egg-section-cmd-toggle-hide-show-children [mouse-2] egg-mouse-hide-show-cmd] 4) (#$ . 69883))
#@91 Keymap for a section in sequence that can be navigated back and forth.
\{egg-section-map}
(defconst egg-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210\305\310\311#\210)\207" [map egg-hide-show-map make-sparse-keymap "Egg:Section" set-keymap-parent define-key "n" egg-buffer-cmd-navigate-next "p" egg-buffer-cmd-navigate-prev] 4) (#$ . 70253))
#@74 Keymap for a diff section in sequence of deltas.
\{egg-diff-section-map}
(defconst egg-diff-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210)\207" [map egg-section-map make-sparse-keymap "Egg:Diff" set-keymap-parent define-key "
" egg-diff-section-cmd-visit-file-other-window "f" egg-diff-section-cmd-visit-file "=" egg-diff-section-cmd-ediff] 4) (#$ . 70622))
#@88 Keymap for a diff section in sequence of staged deltas.
\{egg-staged-diff-section-map}
(defconst egg-staged-diff-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\313#\210)\207" [map egg-diff-section-map make-sparse-keymap "Egg:StagedDiff" set-keymap-parent define-key "=" egg-staged-section-cmd-ediff3 "s" egg-diff-section-cmd-unstage [C-down-mouse-2] egg-status-popup-staged-diff-menu [C-mouse-2]] 4) (#$ . 71042))
#@113 Keymap for a diff section in sequence of deltas between the workdir and
the index. \{egg-wdir-diff-section-map}
(defconst egg-wdir-diff-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210)\207" [map egg-diff-section-map make-sparse-keymap "Egg:WdirDiff" set-keymap-parent define-key "u" egg-diff-section-cmd-undo] 4) (#$ . 71527))
#@92 Keymap for a diff section in sequence of unstaged deltas.
\{egg-unstaged-diff-section-map}
(defconst egg-unstaged-diff-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\313#\210)\207" [map egg-wdir-diff-section-map make-sparse-keymap "Egg:UnstagedDiff" set-keymap-parent define-key "=" egg-unstaged-section-cmd-ediff "s" egg-diff-section-cmd-stage [C-down-mouse-2] egg-status-popup-unstaged-diff-menu [C-mouse-2]] 4) (#$ . 71878))
#@92 Keymap for a diff section in sequence of unmerged deltas.
\{egg-unmerged-diff-section-map}
(defconst egg-unmerged-diff-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210)\207" [map egg-unstaged-diff-section-map make-sparse-keymap "Egg:UnmergedDiff" set-keymap-parent define-key "=" egg-unmerged-section-cmd-ediff3] 4) (#$ . 72376))
#@62 Keymap for a hunk in a diff section. \{egg-hunk-section-map}
(defconst egg-hunk-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210)\207" [map egg-section-map make-sparse-keymap "Egg:Hunk" set-keymap-parent define-key "
" egg-hunk-section-cmd-visit-file-other-window "=" egg-diff-section-cmd-ediff "f" egg-hunk-section-cmd-visit-file] 4) (#$ . 72729))
#@76 Keymap for a hunk in a staged diff section.
\{egg-staged-hunk-section-map}
(defconst egg-staged-hunk-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\313#\210)\207" [map egg-hunk-section-map make-sparse-keymap "Egg:StagedHunk" set-keymap-parent define-key "=" egg-staged-section-cmd-ediff3 "s" egg-hunk-section-cmd-unstage [C-down-mouse-2] egg-status-popup-staged-hunk-menu [C-mouse-2]] 4) (#$ . 73137))
#@101 Keymap for a hunk in a diff section between the workdir and the index.
\{egg-wdir-hunk-section-map}
(defconst egg-wdir-hunk-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210)\207" [map egg-hunk-section-map make-sparse-keymap "Egg:WdirHunk" set-keymap-parent define-key "u" egg-hunk-section-cmd-undo] 4) (#$ . 73610))
#@80 Keymap for a hunk in a unstaged diff section.
\{egg-unstaged-hunk-section-map}
(defconst egg-unstaged-hunk-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\313#\210)\207" [map egg-wdir-hunk-section-map make-sparse-keymap "Egg:UnstagedHunk" set-keymap-parent define-key "=" egg-unstaged-section-cmd-ediff "s" egg-hunk-section-cmd-stage [C-down-mouse-2] egg-status-popup-unstaged-hunk-menu [C-mouse-2]] 4) (#$ . 73949))
#@80 Keymap for a hunk in a unmerged diff section.
\{egg-unmerged-hunk-section-map}
(defconst egg-unmerged-hunk-section-map (byte-code "\302\303!\304	\"\210\305\306\307#\210)\207" [map egg-wdir-hunk-section-map make-sparse-keymap "Egg:UnmergedHunk" set-keymap-parent define-key "=" egg-unmerged-section-cmd-ediff3] 4) (#$ . 74435))
(defalias 'list-tp #[nil "\300\301\302`!\"\207" [message "tp: %S" text-properties-at] 4 nil nil])
(defalias 'list-nav #[nil "\300\301h\302`S\303\"g\302`\303\"%\207" [message "nav: %c:%s-%c:%s" get-text-property :navigation] 8 nil nil])
(defalias 'egg-navigation-at-point #[nil "\300`\301\"\207" [get-text-property :navigation] 3])
(put 'egg-navigation-at-point 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-invisible-spec-at-point #[nil "\300`\301\"\207" [get-text-property invisible] 3])
(put 'egg-invisible-spec-at-point 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-hunk-at-point #[nil "\300`\301\"\207" [get-text-property :hunk] 3])
(put 'egg-hunk-at-point 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-diff-at-point #[nil "\300`\301\"\207" [get-text-property :diff] 3])
(put 'egg-diff-at-point 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-point-in-section #[(section-id) "\301`\302\"=\207" [section-id get-text-property :section] 3])
(put 'egg-point-in-section 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-safe-search #[(re limit &optional no) "\212\304 \305\216\306	\n\307#\205\206\310\224+\207" [save-match-data-internal re limit no match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward t 0] 4])
(put 'egg-safe-search 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-safe-search-pickup #[(re &optional limit no) "\212\304 \305\216\306	\n\307#\205\310\206\311!+\207" [save-match-data-internal re limit no match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward t match-string-no-properties 0] 4])
(put 'egg-safe-search-pickup 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-decorate-diff-header #[(beg end line-beg line-end) "\304	T\305\306\307\310	\211T\"P\311\312#$\210\304	T\n\311\312$\210\304	T\n\313\205$\314$\207" [line-beg beg end egg-enable-tooltip put-text-property display propertize "\n" buffer-substring-no-properties face egg-diff-file-header help-echo egg-buffer-help-echo] 9])
(put 'egg-decorate-diff-header 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-decorate-cc-diff-header #[(beg end line-beg line-end) "\304	T\305\306\307\310	\211T\"P\311\312#$\210\304	T\n\311\312$\210\304	T\n\313\205$\314$\207" [line-beg beg end egg-enable-tooltip put-text-property display propertize "\n" buffer-substring-no-properties face egg-unmerged-diff-file-header help-echo egg-buffer-help-echo] 9])
(put 'egg-decorate-cc-diff-header 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-decorate-diff-index-line #[(beg end line-beg line-end) "\303S	\304\305$\210\303	\n\306\307$\207" [line-beg beg end put-text-property display "    -- " face egg-diff-none] 5])
(put 'egg-decorate-diff-index-line 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-decorate-hunk-header #[(beg end line-beg line-end) "\304	\305\306$\210\304	\n\305\307$\210\304	\310\205\311$\207" [beg end line-end egg-enable-tooltip put-text-property face egg-diff-hunk-header egg-diff-none help-echo egg-buffer-help-echo] 5])
(byte-code "\301\302\303\304#\210\305B\306\305!\204\307\305\310\"\210\310\207" [current-load-list put egg-decorate-hunk-header byte-optimizer byte-compile-inline-expand egg-internal-buffer-obarray default-boundp set-default nil] 4)
#@98 Make a symbolic and unique navigation id.
return a symbol PARENT-CHILD from an internal obarray.
(defalias 'egg-make-navigation #[(parent child) "\303!\204\n\304\305!\210\306\307\310	\n#\"\207" [egg-internal-buffer-obarray parent child vectorp error "Arrg! egg-internal-buffer-obarray is not an obarray!" intern format "%s-%s"] 5 (#$ . 78176)])
(put 'egg-make-navigation 'byte-optimizer 'byte-compile-inline-expand)
#@87 Come up with a symbolic and unique navigation id for
section SECTION at position POS.
(defalias 'egg-do-compute-navigation #[(section pos) "\305\306\"	:\203	@\202	\307\f!\204\310\311!\210\312\313\314\n#\f\"*\207" [pos section child parent egg-internal-buffer-obarray get-text-property :navigation vectorp error "Arrg! egg-internal-buffer-obarray is not an obarray!" intern format "%s-%s"] 5 (#$ . 78601)])
(put 'egg-do-compute-navigation 'byte-optimizer 'byte-compile-inline-expand)
#@87 Come up with a symbolic and unique navigation id for
section SECTION at position POS.
(defalias 'egg-compute-navigation #[(ignored-1 section pos ignored-2) "	\305	\306\":\203@\202\307\f!\204\310\311!\210\312\313\314\n#\f\",\207" [section pos child parent egg-internal-buffer-obarray get-text-property :navigation vectorp error "Arrg! egg-internal-buffer-obarray is not an obarray!" intern format "%s-%s"] 5 (#$ . 79100)])
#@494 Mark section for navigation and add local/context keymap.
SECT-TYPE is the type of the section (usually a :symbol).
SECTION is the name of the section (usually a string).  BEG and
END are limits of the section.  INV-BEG is the position after the
position that would remain visible when the section is hidden.
KEYMAP is the local/context keymap for the section.
NAVIGATION is the navigation id of the section. NAVIGATION can also
a function to call to compute the navigation id of the section.
(defalias 'egg-delimit-section #[(sect-type section beg end &optional inv-beg keymap navigation) "\306!\203	\n\f$\202\204\202\307\f\310	$\210\307\f	\n$\210\307\f\311
$\210\312!\203=\307\f\313$\210\314!\205[\315\316\"\317\320
\321#\210\307\fS\316$))\207" [navigation sect-type section beg end nav functionp put-text-property :sect-type :navigation keymapp keymap integer-or-marker-p get-text-property invisible add-to-list current-inv t inv-beg] 5 (#$ . 79544)])
#@209 Build a hunk info NAME from BEG to END based on DIFF.
Hunk info contains name and posistions of the hunk. Positions are offsets
from DIFF because it can the whole diff can be pushed around inside
the buffer.
(defalias 'egg-make-hunk-info #[(name beg end diff) "A@\n	Z\f	ZE)\207" [diff b name beg end] 4 (#$ . 80541)])
(put 'egg-make-hunk-info 'byte-optimizer 'byte-compile-inline-expand)
#@307 Build a diff info NAME from BEG to END. HEAD-END is the end position
of the diff header.

Diff info contains name and posistions of the diff. The beginning position
is stored as a marker and the others are offset from the beginning posistion
 because the whole diff can be pushed around inside the buffer.
(defalias 'egg-make-diff-info #[(name beg end head-end) "\305 \211	\306\223\210\307\310\"\210\n	Z\f	ZF)\207" [b beg name end head-end make-marker nil set-marker-insertion-type t] 6 (#$ . 80939)])
(put 'egg-make-diff-info 'byte-optimizer 'byte-compile-inline-expand)
#@216 Decorate a sequence of deltas. ARGS is a plist containing the
positions of the sequence as well as the decorations.

:begin :end :diff-map :hunk-map :cc-diff-map :cc-hunk-map 
:conflict-map :src-prefix :dst-prefix

(defalias 'egg-decorate-diff-sequence #[(args) "\306\307\"\306\310\"\306\311\"\306\312\"\306\313\"\306\314\"@\306\315\"A\306\316\"B\306\317\"C\320D\321E\322F\323G\324H\325I\326J\327K\330L\331M\332N\333O\334P\335\336B\337C\340\341\342\343\344B\340\345C\340\346\347\350\351\352\353\354\355\260Q\356R\357S\360\211TU\360\211VW\360\211XY\360\211Z[\360\\\361 ]\362\216\212	b\210\363Q\n\364#\203?\365\224\211TW\365\225XN\224\203\310\366WX\367\370$\210\202\242O\224\203\332\366WX\367\371$\210\202\242P\224\203\354\366WX\367\372$\210\202\242I\224\203
I\224YI\225Z\366WY\367\371$\210\366YZ\367\372$\210\202\242H\224\2036
H\224YH\225Z\366WY\367\370$\210\366YZ\367\372$\210\202\242K\224\203\223
K\224YK\225Z\366WY\367\373$\210\366YZ\367\374$\210\366ZX\367\372$\210\375\n\360^_`\212\361 ]\376\216\363`_\364#\205\202
^\206\201
\365\224.U\366WU\377A$\210\202\242M\224\203\301
M\224YM\225Z\366WY\367\373$\210\366YZ\367\374$\210\366ZX\367\372$\210\202\242L\224\203\323
\366WX\367\373$\210\202\242F\224\203wF\224YF\225ZR\n\360^_`\212\361 ]\376\216\363`_\364#\205^\206\365\224.\206\nUYZWXab\366	\n\367\201f$\210\366\na\367\372$\210\366	\n\201gc\205:\201h$\210,\201i\201j\201kF!TU[dedA@Ce	CZ\nCZE-TUX\f\201l&\210\202\242G\224\203G\224YG\225ZR\n\360^_`\212\361 ]\376\216\363`_\364#\205\251^\206\250\365\224.\206\257\nUYZWXab\366	\n\367\201f$\210\366\na\367\372$\210\366	\n\201gc\205\336\201h$\210,\201i\201j\201kG!TU\\dedA@Ce	CZ\nCZE-TUX@\201l&\210\202\242D\224\203D\224YD\225ZS\n\360^_`\212\361 ]\376\216\363`_\364#\205N^\206M\365\224.\206T\nU\201m\n\360^_`\212\361 ]\376\216\363`_\364#\205y^\206x\365\224.\206\nVYZWXab\366b	T\201n\201o\201p\201q	\211T\"P\367\201r#$\210\366	T\n\367\201r$\210\366	T\n\201gc\205\305\201h$\210,\201i\201s\201kD!TUVVe\201t \211C	\360\223\210\201uC\364\"\210eC\n	ZV	ZF-\211[TUX\201l&\210\202\242E\224\203\nE\224YE\225ZS\n\360^_`\212\361 ]\376\216\363`_\364#\205E^\206D\365\224.\206K\nU\201v\n\360^_`\212\361 ]\376\216\363`_\364#\205p^\206o\365\224.\206v\nVYZWXab\366b	T\201n\201o\201p\201q	\211T\"P\367\201w#$\210\366	T\n\367\201w$\210\366	T\n\201gc\205\274\201h$\210,\201i\201s\201kE!TUVVe\201t \211C	\360\223\210\201uC\364\"\210eC\n	ZV	ZF-\211\\TUX
\201l&\210\202\242J\224\203\242J\224YJ\225ZYZW\211ab\366bS	\201n\201x$\210\366	\n\367\372$\210,\202\242.%\360\207" [args beg end diff-map hunk-map cc-diff-map plist-get :begin :end :diff-map :hunk-map :cc-diff-map :cc-hunk-map :conflict-map :src-prefix :dst-prefix 1 2 3 4 5 6 7 8 9 10 11 12 13 "^\\(?:" "diff --git " ".+" "\\(.+\\)\\|" "diff --cc \\(.+\\)\\|" "\\(@@ .+@@\\).*\\|" "\\(@@@ .+@@@\\).*\\|" "--- " "\\+\\+\\+ " "index \\(.+\\)\\|" "\\+\\+<<<<<<< \\(.+\\):.+\\|" "\\(\\+\\+=======\\)\\|" "\\+\\+>>>>>>> \\(.+\\):.+\\|" "\\(-.*\\)\\|" "\\(\\+.*\\)\\|" "\\( .*\\)" "\\)$" "^\\(?:diff\\|@@\\)" "^diff " nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward t 0 put-text-property face egg-diff-del egg-diff-add egg-diff-none egg-diff-conflict egg-branch-mono "^++>>>>>>>.+$" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) keymap cc-hunk-map conflict-map a b diff-no cc-diff-no hunk-no cc-hunk-no src-no dst-no index-no conf-beg-no conf-div-no conf-end-no del-no add-no none-no regexp hunk-end-re diff-end-re sub-beg sub-end head-end m-b-0 m-e-0 m-b-x m-e-x last-diff last-cc save-match-data-internal no limit re line-end line-beg egg-enable-tooltip diff name egg-diff-hunk-header help-echo egg-buffer-help-echo egg-delimit-section :hunk match-string-no-properties egg-compute-navigation "^@@" display propertize "\n" buffer-substring-no-properties egg-diff-file-header :diff make-marker set-marker-insertion-type "^@@@" egg-unmerged-diff-file-header "    -- "] 24 (#$ . 81522)])
#@86 Decorate a section containing a sequence of diffs.
See `egg-decorate-diff-sequence'.
(defalias 'egg-decorate-diff-section #[(&rest args) "\306\307\"\306\310\"\306\311\"\206\312\306\313\"\206\314\306\315\"\306\316\"\n;\2034\317
\315\n$\210	;\203A\317
\316	$\210\320\311\f\313F\244!.\207" [args b-rev a-rev b a end plist-get :begin :end :src-prefix "a/" :dst-prefix "b/" :src-revision :dst-revision put-text-property egg-decorate-diff-sequence beg] 8 (#$ . 85912)])
#@18 Visit file FILE.
(defalias 'egg-diff-section-cmd-visit-file #[(file) "\301!\207" [file find-file] 2 (#$ . 86408) (list (car (get-text-property (point) :diff)))])
#@34 Visit file FILE in other window.
(defalias 'egg-diff-section-cmd-visit-file-other-window #[(file) "\301!\207" [file find-file-other-window] 2 (#$ . 86577) (list (car (get-text-property (point) :diff)))])
#@48 Run ediff3 to resolve merge conflicts in FILE.
(defalias 'egg-unmerged-section-cmd-ediff3 #[(file) "\301!\210\302 \207" [file find-file egg-resolve-merge-with-ediff] 2 (#$ . 86788) (list (car (get-text-property (point) :diff)))])
#@47 Compare FILE and its staged copy using ediff.
(defalias 'egg-unstaged-section-cmd-ediff #[(file) "\301!\210\302\303\304\"\207" [file find-file egg-file-do-ediff ":0" "INDEX"] 3 (#$ . 87025) (list (car (get-text-property (point) :diff)))])
#@70 Compare the staged copy of FILE and the version in HEAD using ediff.
(defalias 'egg-staged-section-cmd-ediff3 #[(file) "\301!\210\302\303\304\305#\207" [file find-file egg-file-do-ediff ":0" "INDEX" "HEAD"] 4 (#$ . 87271) (list (car (get-text-property (point) :diff)))])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list egg-diff-buffer-info default-boundp set-default nil] 3)
#@63 Ediff src and dest versions of FILE based on the diff at POS.
(defalias 'egg-diff-section-cmd-ediff #[(file pos) "\306\307\"	\310\211\211\211\311!\210\n\203\240\n\312P \313\314\315 F!\"!!#\316\317!$\320\216r$q\210\321\322#\310\323\310!&\324U\205Y\325edeV\203WdS\202Xd\".\n \313\314\315 F!\"!!#\316\317!$\320\216r$q\210\321\322#\310\323\310!&\324U\205\232\325edeV\203\230dS\202\231d\".\202\373\326\327\"\211\203\356
 \313\314\315 F!\"!!#\316\317!$\320\216r$q\210\321\322#\310\323\310!&\324U\205\350\325edeV\203\346dS\202\347d\".\202\373\205\364\330\211\203\373\331
\204
\332\333!\210\334
\f\310\335%.\207" [pos egg-diff-buffer-info commit dst src-name src get-text-property :commit nil find-file "^" "describe" "--always" "--tags" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties plist-get :src-revision ":0" "INDEX" error "Ooops!" egg-file-do-ediff ediff2 diff-info file rev args egg-git-command program #1#] 7 (#$ . 87686) (list (car (get-text-property (point) :diff)) (point))])
#@186 Calaculate the effective line number in the original file based
on the position of point in a hunk. HUNK-HEADER is the header and
HUNK-BEG is the starting position of the current hunk.
(defalias 'egg-hunk-compute-line-no #[(hunk-header hunk-beg) "\306 \307\310\311 \312\216\313	\314\315#*8!\316\212
b\210\317y\210\320\210`\fW\2033\321\322\f\315#\2033\nT\202%)\n\\+\207" [save-match-data-internal hunk-header adjust line limit hunk-beg line-end-position string-to-number 2 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string "[ @,+,-]+" t 0 1 nil re-search-forward "^\\(?:\\+\\| \\).*"] 7 (#$ . 88879)])
#@107 Rebuild the hunk info at POS.
Hunk info are relative offsets. This function compute the
physical offsets.
(defalias 'egg-hunk-info-at #[(pos) "\306\307\"\211A@\306\310\"\211A@\n\\\3118\n\\	@@\f
F-\207" [pos diff-info head-beg hunk-info hunk-beg hunk-end get-text-property :diff :hunk 2] 5 (#$ . 89557)])
(put 'egg-hunk-info-at 'byte-optimizer 'byte-compile-inline-expand)
#@51 Visit FILE and goto the current line of the hunk.
(defalias 'egg-hunk-section-cmd-visit-file #[(file hunk-header hunk-beg &rest ignored) "\304	\"\305!\210\306\n!)\207" [hunk-header hunk-beg line file egg-hunk-compute-line-no find-file goto-line] 3 (#$ . 89944) (byte-code "`\306\307\"\211A@\306\310\"\211A@\n\\\3118\n\\	@@\f
F.\207" [pos diff-info head-beg hunk-info hunk-beg hunk-end get-text-property :diff :hunk 2] 5)])
#@67 Visit FILE in other-window and goto the current line of the hunk.
(defalias 'egg-hunk-section-cmd-visit-file-other-window #[(file hunk-header hunk-beg &rest ignored) "\304	\"\305!\210\306\n!)\207" [hunk-header hunk-beg line file egg-hunk-compute-line-no find-file goto-line] 3 (#$ . 90387) (byte-code "`\306\307\"\211A@\306\310\"\211A@\n\\\3118\n\\	@@\f
F.\207" [pos diff-info head-beg hunk-info hunk-beg hunk-end get-text-property :diff :hunk 2] 5)])
#@72 Toggle the hidden state of the current navigation section of type NAV.
(defalias 'egg-section-cmd-toggle-hide-show #[(nav) "\302=\203\303\304	\"\203\305	\302B!\210\202\306	\302B!\210\307p!\207" [buffer-invisibility-spec nav t nil assoc remove-from-invisibility-spec add-to-invisibility-spec force-window-update] 3 (#$ . 90859) (list (get-text-property (point) :navigation))])
#@86 Toggle the hidden state of the subsections of the current navigation section at POS.
(defalias 'egg-section-cmd-toggle-hide-show-children #[(pos sect-type) "\204`\306	\307d$\307\211\211\306\310\307
$\211\203-\311\f\310\"\211\205,\312\"\306\f\310\307
$\211
W\203W\311\f\310\"\n\203N\313\314B!\210\202/\315\314B!\210\202/\316p!,\207" [pos sect-type currently-hidden child-nav child-pos end next-single-property-change nil :navigation get-text-property assoc remove-from-invisibility-spec t add-to-invisibility-spec force-window-update buffer-invisibility-spec] 6 (#$ . 91250) (list (previous-single-property-change (1+ (point)) :navigation) (get-text-property (point) :sect-type))])
#@54 Build a file patch based on the diff section at POS.
(defalias 'egg-diff-section-patch-string #[(&optional pos) "\304\206`\305\"\211A@\306	8\n\\\307\n\"+\207" [pos diff-info beg end get-text-property :diff 2 buffer-substring-no-properties] 4 (#$ . 91965)])
#@59 Build a single hunk patch based on the delta hunk at POS.
(defalias 'egg-hunk-section-patch-string #[(&optional pos) "\306\206`\307\"\211A@\310	8\n\\\306\206`\311\"\211A@\n\\\312\f8\n\\\f\313\n\"\313
\f\"P.\207" [pos diff-info head-beg head-end hunk-info hunk-beg get-text-property :diff 3 :hunk 2 buffer-substring-no-properties hunk-end] 5 (#$ . 92235)])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\304\207" [current-load-list egg-buffer-refresh-func default-boundp set-default nil egg-buffer-async-cmd-refresh-func egg-internal-update-index-timer] 3)
#@113 Run git asynchronously and refresh the current buffer on exit.
exit code ACCEPTED-CODE is considered a success.
(defalias 'egg-buffer-async-do #[(accepted-code &rest args) "\304	\206\npCB#\207" [accepted-code egg-buffer-async-cmd-refresh-func egg-buffer-refresh-func args egg-async-do] 4 (#$ . 92899)])
(put 'egg-buffer-async-do 'byte-optimizer 'byte-compile-inline-expand)
#@33 Update all egg special buffers.
(defalias 'egg-run-buffers-update-hook #[(&optional newly-read-state) "\206\302 \303\304!)\207" [newly-read-state egg-internal-current-state egg-get-repo-state run-hooks egg-buffers-refresh-hook] 2 (#$ . 93283)])
(put 'egg-run-buffers-update-hook 'byte-optimizer 'byte-compile-inline-expand)
#@41 Refresh the current egg special buffer.
(defalias 'egg-buffer-cmd-refresh #[nil "\304\305\301!\203\f	\202,\306\301!\210\307 \206!\205!\310\301!\210\311\312\n\"\313\314	\315Q!\316L\210	)\205<\317!\205<p!\210\320 \207" [error-if-not-git egg-git-dir default-directory egg-buffer-refresh-func nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" functionp recenter] 4 (#$ . 93617) nil])
#@63 Move to the next block indentified by text property NAV-PROP.
(defalias 'egg-buffer-cmd-next-block #[(nav-prop) "\301`\"\206`b\207" [nav-prop next-single-property-change] 3 (#$ . 94107)])
#@67 Move to the previous block indentified by text property NAV-PROP.
(defalias 'egg-buffer-cmd-prev-block #[(nav-prop) "\301`\302e$b\207" [nav-prop previous-single-property-change nil] 5 (#$ . 94304)])
#@27 Move to the next section.
(defalias 'egg-buffer-cmd-navigate-next #[nil "\300\301!\207" [egg-buffer-cmd-next-block :navigation] 2 (#$ . 94510) nil])
#@31 Move to the previous section.
(defalias 'egg-buffer-cmd-navigate-prev #[nil "\300\301!\207" [egg-buffer-cmd-prev-block :navigation] 2 (#$ . 94665) nil])
#@61 Common map for an egg special buffer.\{egg-buffer-mode-map}
(defconst egg-buffer-mode-map (byte-code "\301\302!\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210)\207" [map make-sparse-keymap "Egg:Buffer" define-key "q" egg-quit-buffer "g" egg-buffer-cmd-refresh "n" egg-buffer-cmd-navigate-next "p" egg-buffer-cmd-navigate-prev] 4) (#$ . 94824))
#@210 Get a special egg buffer. If buffer doesn't exist and CREATE was not nil then
creat the buffer. FMT is used to construct the buffer name. The name is built as:
(format FMT current-dir-name git-dir-full-path).
(defalias 'egg-get-buffer #[(fmt create) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\322\323\f!!\324
#\f\325!\326!\204Z\203Z\327!.\207" [error-if-not-git egg-git-dir default-directory git-dir dir dir-name nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory file-name-nondirectory directory-file-name format get-buffer bufferp get-buffer-create fmt buf-name buf create] 4 (#$ . 95202)])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list egg-orig-window-config default-boundp set-default nil] 3)
#@41 Leave (and burry) an egg special buffer
(defalias 'egg-quit-buffer #[(&optional win) "	\306\307\n\f\236A>
\"\210\205$\310!\205$\311\n\f\236A>\205$\312!*\207" [egg-orig-window-config major-mode mode orig-win-cfg egg-quit-window-actions win quit-window kill window-configuration-p restore-windows set-window-configuration] 4 (#$ . 96154) nil])
#@34 Define an egg-special-file type.
(defalias 'define-egg-buffer '(macro . #[(type name-fmt &rest body) "\306!\307\310	\311Q!\307\312	\313Q!\307\312	\314Q!\307\312	\315Q!\307\316	\317Q!'\320\321\322\323(\324\"BBB\321\n\325\326\327\330)\331BBDC\332\333\334\327\335\336\337\340DECEEE\341BBBF\342\343	\"?\205u\320\321'\322\326\327\nCDC\344BBF\345\346\340'DEEF.\207" [type type-name get-buffer-sym buffer-mode-sym buffer-mode-hook-sym buffer-mode-map-sym symbol-name intern "egg-get-" "-buffer" "egg-" "-buffer-mode" "-buffer-mode-hook" "-buffer-mode-map" "egg-update-" "-buffer-no-create" progn defun nil append ((set (make-local-variable 'egg-orig-window-config) (current-window-configuration)) (message "buffer %s win-cfg %s" (buffer-name) egg-orig-window-config) (set (make-local-variable 'egg-internal-buffer-obarray) (make-vector 67 0))) (&optional create) let buf egg-get-buffer (create) when (bufferp buf) with-current-buffer unless eq major-mode quote (buf) string-match ":" ((when (bufferp buf) (with-current-buffer buf (when (functionp egg-buffer-refresh-func) (funcall egg-buffer-refresh-func buf))))) add-hook 'egg-buffers-refresh-hook update-buffer-no-create-sym body name-fmt] 16 (#$ . 96511)]))
#@60 Keymap for the status buffer.\{egg-status-buffer-mode-map}
(defconst egg-status-buffer-mode-map (byte-code "\302\303!\304	\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210)\207" [map egg-buffer-mode-map make-sparse-keymap "Egg:StatusBuffer" set-keymap-parent define-key "c" egg-commit-log-edit "o" egg-checkout-ref "l" egg-log "w" egg-buffer-stash-wip "L" egg-reflog "S" egg-stage-all-files] 4) (#$ . 97737))
#@119 Context keymap for the repo section of the status buffer when
  rebase is in progress.\{egg-status-buffer-rebase-map}
(defconst egg-status-buffer-rebase-map (byte-code "\302\303!\304	\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210)\207" [map egg-section-map make-sparse-keymap "Egg:StatusBufferRebase" set-keymap-parent define-key "x" egg-buffer-rebase-abort "u" egg-buffer-selective-rebase-skip "
" egg-buffer-selective-rebase-continue] 4) (#$ . 98221))
#@77 Perform rebase action from an egg special buffer.
See `egg-do-rebase-head'.
(defalias 'egg-buffer-do-rebase #[(upstream-or-action &optional old-base prompt) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\306\211+;\203\306\306,\321\322D-\323->\204L.\206P\324-!),\325,\326\"?\205\267\325,\327\"?\205\267\322,>\203t\325,\322\"\202\213\306\330\331D-/\332\3330\306/\306-&\334U*?\205\267\321,>\203\236\325,\321\"\202\266\306\330\335\331E-/\332\3330\306/\306-&\334U*?)\204\327\336 \210\313\337
\"\210\202\327\340
\3411Q!\204\327\313\342\343
!\"\210\344+23#\325\345\"\211\203\355\346\f!\210\347\350\325\351\"\"\210\325\352\"+\207" [error-if-not-git egg-git-dir default-directory res modified-files git-dir nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" :staged :unstaged :force egg-get-repo-state plist-get :rebase-num :merge-heads "diff" "--quiet" apply call-process 0 "--cached" egg-status "Repo %s is not clean" file-directory-p "/" "No rebase in progress in directory %s" file-name-directory egg-do-rebase-head :files egg-revert-visited-files message "GIT-REBASE> %s" :message :success upstream-or-action state args egg-internal-current-state buffer egg-git-command egg-git-rebase-subdir old-base prompt] 8 (#$ . 98698)])
#@38 Continue the current rebase session.
(defalias 'egg-buffer-rebase-continue #[nil "\300\301!\210\302\303!?\205
\304 \207" [message "continue with current rebase" egg-buffer-do-rebase :continue egg-status] 2 (#$ . 100135) nil])
#@53 Continue the current rebase session asynchronously.
(defalias 'egg-do-async-rebase-continue #[(callback closure &optional action exit-code) "	\206\306p\307\310\311\312\"\210\f
D\313	D\314\315#*\316\n\317#\210\n,\207" [process-environment action proc buffer callback closure "--continue" nil setenv "EDITOR" "\nplease commit in egg" "rebase" egg-async-do 1 process-put :orig-buffer args func-args] 4 (#$ . 100368)])
(put 'egg-do-async-rebase-continue 'byte-optimizer 'byte-compile-inline-expand)
#@138 Perform ACTION to continue the current rebase session.
The mode, sync or async, will depend on the nature of the current
rebase session.
(defalias 'egg-buffer-selective-rebase-action #[(action) "\306\307\310\301!\203
	\202-\311\301!\210\312 \206\"\205\"\313\301!\210\314\315\n\"\316\317	\320Q!\321L\210	)\322\323R!\204@\324\f!?\205\277\325 \207\f\326\236A\327\330\307\211\310\301!\203U	\202u\311\301!\210\312 \206j\205j\313\301!\210\314\315\n\"\316\317	\320Q!\321L\210	)\322\322R)\331P\332\"\f\307$%&'\f\206\217\333p\307()'\334\335\336\"\210&%D\337\fD*+\340\341+*#*(\342(\343)#\210(.\207" [error-if-not-git egg-git-dir default-directory egg-git-rebase-subdir action git-dir file-exists-p nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/" "/interactive" egg-buffer-do-rebase egg-status ((:skip . "--skip") (:continue . "--continue") (:abort . "--abort")) egg-handle-rebase-interactive-exit egg-pick-file-contents "head" "^.+$" "--continue" setenv "EDITOR" "\nplease commit in egg" "rebase" egg-async-do 1 process-put :orig-buffer exit-code closure callback process-environment proc buffer args func-args] 7 (#$ . 100887)])
#@120 Continue the current rebase session.
The mode, sync or async, will depend on the nature of the current
rebase session.
(defalias 'egg-buffer-selective-rebase-continue #[nil "\300\301!\210\302\303!\207" [message "continue with current rebase" egg-buffer-selective-rebase-action :continue] 2 (#$ . 102154) nil])
#@148 Skip the current commit and continue the current rebase session.
The mode, sync or async, will depend on the nature of the current
rebase session.
(defalias 'egg-buffer-selective-rebase-skip #[nil "\300\301!\210\302\303!\207" [message "skip rebase's current commit" egg-buffer-selective-rebase-action :skip] 2 (#$ . 102471) nil])
(defalias 'egg-buffer-rebase-skip #[nil "\300\301!\210\302\303!?\205
\304 \207" [message "skip rebase's current commit" egg-buffer-do-rebase :skip egg-status] 2 nil nil])
(defalias 'egg-buffer-rebase-abort #[nil "\300\301!\210\302\303!\210\304 \207" [message "abort current rebase" egg-buffer-do-rebase :abort egg-status] 2 nil nil])
(defalias 'egg-rebase-in-progress #[nil "\302\303\304>\204
	\206\305!)\306\"\207" [args egg-internal-current-state plist-get nil :force egg-get-repo-state :rebase-step] 3])
#@65 Perform key bindings substitutions and highlighting in STRINGS.
(defalias 'egg-pretty-help-text #[(&rest strings) "\305 \306\307\310!\311\216r\nq\210\312!\210\313 \314\216\315\316\317\f\320#!c\210eb\210\321\322\306\323#\203G\324\325\224\325\225\326\327$\210	\203B\324	\330\224S\326\331$\210`\202$	\203S\324	\332 \326\331$\210\333 .\207" [map last-found #1=#:temp-buffer save-match-data-internal strings current-local-map nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) use-local-map match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) substitute-command-keys mapconcat identity "" re-search-forward "\\(\\<[^\n 	:]+\\|[/+.~*=-]\\):" t put-text-property 1 face egg-help-key 0 egg-text-help line-end-position buffer-string] 5 (#$ . 103321)])
(byte-code "\306\307\310\311#\210\312B\313\314\315\316\317\320\321\322\323\324\325\326\327\330\257\f\331 \332\333\334!\335\216r\fq\210\336\n!\210\337 \340\216\341\342\343	\344#!c\210eb\210\345\346\332\347#\203b\350\351\224\351\225\352\353$\210\203]\350\354\224S\352\355$\210`\202?\203n\350\356 \352\355$\210\357 .P!\210\360B\361\362\363\364\365\366F\331 \332\333\334!\335\216r\fq\210\336\n!\210\337 \340\216\341\342\343	\344#!c\210eb\210\345\346\332\347#\203\310\350\351\224\351\225\352\353$\210\203\303\350\354\224S\352\355$\210`\202\245\203\324\350\356 \352\355$\210\357 .P!\210\367B\370\371\372\373\374\375F\331 \332\333\334!\335\216r\fq\210\336\n!\210\337 \340\216\341\342\343	\344#!c\210eb\210\345\346\332\347#\203.
\350\351\224\351\225\352\353$\210\203)
\350\354\224S\352\355$\210`\202
\203:
\350\356 \352\355$\210\357 .P!\207" [current-load-list strings map last-found #1=#:temp-buffer save-match-data-internal put egg-pretty-help-text byte-optimizer byte-compile-inline-expand egg-status-buffer-common-help-text (lambda (#2=#:defconst-tmp-var) (defconst egg-status-buffer-common-help-text #2#)) #("Common Key Bindings:" 0 20 (face egg-help-header-2)) "\\<egg-status-buffer-mode-map>\n" "\\[egg-buffer-cmd-navigate-prev]:previous block  " "\\[egg-buffer-cmd-navigate-next]:next block  " "\\[egg-commit-log-edit]:commit staged modifications  " "\\[egg-log]:show repo's history\n" "\\[egg-stage-all-files]:stage all modifications  " "\\<egg-hide-show-map>" "\\[egg-section-cmd-toggle-hide-show]:hide/show block  " "\\[egg-section-cmd-toggle-hide-show-children]:hide sub-blocks  " "\\<egg-buffer-mode-map>" "\\[egg-buffer-cmd-refresh]:redisplay  " "\\[egg-quit-buffer]:quit\n" current-local-map nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) use-local-map match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) substitute-command-keys mapconcat identity "" re-search-forward "\\(\\<[^\n 	:]+\\|[/+.~*=-]\\):" t put-text-property 1 face egg-help-key 0 egg-text-help line-end-position buffer-string egg-status-buffer-rebase-help-text (lambda (#3=#:defconst-tmp-var) (defconst egg-status-buffer-rebase-help-text #3#)) #("Key Bindings for Rebase Operations:" 0 35 (face egg-help-header-2)) "\\<egg-status-buffer-rebase-map>\n" "\\[egg-buffer-selective-rebase-continue]:resume rebase  " "\\[egg-buffer-selective-rebase-skip]:skip this rebase step  " "\\[egg-buffer-rebase-abort]:abort current rebase session\n" egg-status-buffer-diff-help-text (lambda (#4=#:defconst-tmp-var) (defconst egg-status-buffer-diff-help-text #4#)) #("Extra Key Bindings for the Diff Sections:" 0 41 (face egg-help-header-2)) "\\<egg-unstaged-diff-section-map>\n" "\\[egg-diff-section-cmd-visit-file-other-window]:visit file/line  " "\\[egg-diff-section-cmd-stage]:stage/unstage file/hunk  " "\\[egg-diff-section-cmd-undo]:undo file/hunk's modificatons\n"] 14)
#@49 Insert the repo section into the status buffer.
(defalias 'egg-sb-insert-repo-section #[nil "\306\307>\204\f	\206\310!)\311\n\312\"`
$\311\n\313\"%\311\n\314\"&\306\211'(\306\211)*\203;\n\204A\315\316\n#\210\317\320\n!\321\322#\323\317\321\324#\323\317\311\n\325\"\321\326#\323\261\210`S'%\203q\327\330%&#c\210+$\331,>\203\250\323c\210`(\332\323\261\210\333(`\334-\205\216\335$\210`S).c\210+$=\203\244/c\2100c\210\336\337\340\f`'$\340&\210(\203\310\336\341\342(`)$\343&\210\333\f(\206\320`\334-\205\327\335$.\n\207" [args egg-internal-current-state state sha1 beg egg-section-map nil :force egg-get-repo-state plist-get :sha1 :rebase-step :rebase-num error "Invalid repo state: sha1 = %s, state = %S" propertize egg-pretty-head-string face egg-branch "\n" font-lock-string-face :gitdir font-lock-constant-face format "Rebase: commit %s of %s\n" :status #("Help" 0 4 (face egg-help-header-1)) put-text-property help-echo egg-buffer-help-echo egg-delimit-section :section repo :help help egg-compute-navigation map rebase-step rebase-num inv-beg help-beg help-inv-beg rebase-beg egg-status-buffer-rebase-map egg-show-key-help-in-buffers egg-enable-tooltip egg-status-buffer-common-help-text egg-status-buffer-rebase-help-text egg-status-buffer-diff-help-text] 9 (#$ . 107182)])
(defalias 'egg-ignore-pattern-from-string-at-point #[nil "\306 \307 \310\211\211\311\312\313\314\f\"\203\315\316\f\"\202\f\"\211\317\232\203)\320\321!\210;\2036\322\323!!\2027
\324\325\326	\"\n\310\211\327%\212r\330\331\211#q\210db\210	\332\261\210\333 \210\334p!\210*\335 -\207" [gitignore pattern dir file string default-directory egg-string-at-point ffap-file-at-point nil read-string "ignore pattern: " string-match "\\.[^.]+\\'" match-string-no-properties 0 "" error "Can't ignore empty string!" file-name-directory expand-file-name read-file-name format "add pattern `%s' to: " ".gitignore" find-file-noselect t "\n" save-buffer kill-buffer egg-buffer-cmd-refresh] 7 nil nil])
(defalias 'egg-status-buffer-stage-untracked-file #[nil "\302 \303	\304\211\305\306E%\205\307\310\")\207" [file egg-git-command ffap-file-at-point egg-sync-do-file nil "add" "--" message "new file %s added"] 8 nil nil])
(byte-code "\302B\303\304\305!\306	\307\310#\210\306	\311\312#\210\306	\313\314#\210\306	\315\314#\210	)!\207" [current-load-list map egg-untracked-file-map (lambda (#1=#:defconst-tmp-var) (defconst egg-untracked-file-map #1#)) make-sparse-keymap "Egg:UntrackedFile" define-key "
" egg-find-file-at-point "" egg-ignore-pattern-from-string-at-point "s" egg-status-buffer-stage-untracked-file "i"] 5)
#@60 Insert the untracked files section into the status buffer.
(defalias 'egg-sb-insert-untracked-section #[nil "`\306\211\307\310\311\312\313\205\314F
\315\316OP\317\320\f#\321\315\316\322
%\210+\323\261\210`S\324\306\325\306\326\327\330&\210`\331\332\333\n	\333&\210\321	\334 $\210\321	T\313\205d\314$+\207" [end inv-beg beg egg-enable-tooltip other-properties prefix nil "Untracked Files:" "\n\n" face egg-section-title help-echo egg-buffer-help-echo 0 1 apply propertize put-text-property display "\n" call-process t "ls-files" "--others" "--exclude-standard" egg-delimit-section :section untracked keymap str egg-git-command egg-section-map egg-untracked-file-map] 8 (#$ . 109851)])
#@61 Insert the unstaged changes section into the status buffer.
(defalias 'egg-sb-insert-unstaged-section #[(title &rest extra-diff-options) "`\306\211\307\310\311\312\f\205\313F*+*+\314\315OP*\316\317+
#+\320\314\315\321*+%\210++\322\261\210``S\316\323,\306\324\306\325\326\327\330\331\332-&\f\210\333\334\335\n`	.\335&\210\336\337\340`\341\342\343\344\345/\3460\3471\3502\3512&+\207" [diff-beg inv-beg beg title egg-enable-tooltip other-properties nil "\n\n" face egg-section-title help-echo egg-buffer-help-echo 0 1 apply propertize put-text-property display "\n" call-process t "diff" "--no-color" "-M" "-p" "--src-prefix=INDEX:/" "--dst-prefix=WORKDIR:/" egg-delimit-section :section unstaged egg-decorate-diff-section :begin :end :src-prefix "INDEX:/" :dst-prefix "WORKDIR:/" :diff-map :hunk-map :cc-diff-map :cc-hunk-map :conflict-map prefix str egg-git-command extra-diff-options egg-section-map egg-unstaged-diff-section-map egg-unstaged-hunk-section-map egg-unmerged-diff-section-map egg-unmerged-hunk-section-map] 19 (#$ . 110577)])
#@59 Insert the staged changes section into the status buffer.
(defalias 'egg-sb-insert-staged-section #[(title &rest extra-diff-options) "`\306\211\307\310\311\312\f\205\313F()()\314\315OP(\316\317)
#)\320\314\315\321()%\210)+\322\261\210`\211S\316\323*\306\324\306\325\326\327\330\331\332\333+&
\210\334\335\336\n`	,\336&\210\337\340\341`\342\343\344\345\346-\347.&\f+\207" [diff-beg inv-beg beg title egg-enable-tooltip other-properties nil "\n\n" face egg-section-title help-echo egg-buffer-help-echo 0 1 apply propertize put-text-property display "\n" call-process t "diff" "--no-color" "--cached" "-M" "-p" "--src-prefix=HEAD:/" "--dst-prefix=INDEX:/" egg-delimit-section :section staged egg-decorate-diff-section :begin :end :src-prefix "HEAD:/" :dst-prefix "INDEX:/" :diff-map :hunk-map prefix str egg-git-command extra-diff-options egg-section-map egg-staged-diff-section-map egg-staged-hunk-section-map] 15 (#$ . 111654)])
#@52 Prompt a revision to checkout. Default is DEFAULT.
(defalias 'egg-checkout-ref #[(&optional default) "\301\302\303\304 \305\211\206\f\306%!\207" [default egg-do-checkout completing-read "checkout: " egg-all-refs nil "HEAD"] 7 (#$ . 112615) (list (car (get-text-property (point) :ref)))])
(defalias 'egg-buffer-show-all #[nil "\301t\205	\302p!\207" [buffer-invisibility-spec nil force-window-update] 2 nil nil])
(put 'egg-buffer-show-all 'byte-optimizer 'byte-compile-inline-expand)
#@50 Hide all sections in current special egg buffer.
(defalias 'egg-buffer-hide-all #[nil "e\302\303	T\304\"\211\203\305	\304\"\306\307B!\210\202*t\205$\310p!\207" [nav pos nil next-single-property-change :navigation get-text-property add-to-invisibility-spec t force-window-update] 3 (#$ . 113107) nil])
(put 'egg-buffer-hide-all 'byte-optimizer 'byte-compile-inline-expand)
#@59 Hide sections of SECT-TYPE in current special egg buffer.
(defalias 'egg-buffer-hide-section-type #[(sect-type) "e\303\304	T\n\"\211\205#\305	\n\"\203\305	\306\"\307\310B!\210\202*\207" [nav pos sect-type nil next-single-property-change get-text-property :navigation add-to-invisibility-spec t] 3 (#$ . 113495)])
(put 'egg-buffer-hide-section-type 'byte-optimizer 'byte-compile-inline-expand)
#@106 If requsted, hide all sections in current special egg buffer.
See `egg-buffer-hide-sub-blocks-on-start'.
(defalias 'egg-buffer-maybe-hide-all #[nil "	\236A>\2032e\306\307
T\310\"\211\203'\311
\310\"\312\f\313B!\210\202*t\205a\314p!\202a\n\205a\n9\205a\ne\306\307
T\n\"\211\205`\311
\n\"\203A\311
\310\"\312\f\313B!\210\202A+)\207" [major-mode egg-buffer-hide-section-type-on-start sect-type egg-buffer-hide-sub-blocks-on-start nav pos nil next-single-property-change :navigation get-text-property add-to-invisibility-spec t force-window-update] 3 (#$ . 113905)])
(put 'egg-buffer-maybe-hide-all 'byte-optimizer 'byte-compile-inline-expand)
#@105 If requested, hide the help section in the current special buffer.
See `egg-buffer-hide-help-on-start'.
(defalias 'egg-buffer-maybe-hide-help #[(help-nav &optional top-nav) "	>\205,\306\n9\203\n\202)\n\307!\204\310\311!\210\312\313\314
\f#\"*\315B!\207" [major-mode egg-buffer-hide-help-on-start help-nav top-nav child parent add-to-invisibility-spec vectorp error "Arrg! egg-internal-buffer-obarray is not an obarray!" intern format "%s-%s" t egg-internal-buffer-obarray] 6 (#$ . 114576)])
(put 'egg-buffer-maybe-hide-help 'byte-optimizer 'byte-compile-inline-expand)
#@123 (Re)Display the contents of the status buffer in BUF.
If INIT was not nil, then perform 1st-time initializations as well.
(defalias 'egg-status-buffer-redisplay #[(buf &optional init) "rq\210\306`\307 \210\310\211\203L
@\211\311=\203\"\312 \210\202E\f\313=\203/\314\315!\210\202E\f\316=\203<\317\320!\210\202E\f\321=\203E\322 \210
A\211\204*\203\317 !\236A\" #>\203\220e\310$%\323%T\324\"\211%\203\205\325%\324\"$\326$\306B!\210\202h*t\205\315\327p!\202\315\"\205\315\"9\205\315\"\"e\310$%\323%T\"\"\211%\205\314\325%\"\"\203\245\325%\324\"$\326$\306B!\210\202\245+)\210\203
\330\311&' (>\203
\326'9\203\356'\202

&')*\331+!\204

\332\333!\210\334\335\336*)#+\"*\306B!\210*	b+\207" [buf orig-pos inhibit-read-only egg-status-buffer-sections sect #1=#:--cl-dolist-temp-- t erase-buffer nil repo egg-sb-insert-repo-section unstaged egg-sb-insert-unstaged-section "Unstaged Changes:" staged egg-sb-insert-staged-section "Staged Changes:" untracked egg-sb-insert-untracked-section next-single-property-change :navigation get-text-property add-to-invisibility-spec force-window-update "help" vectorp error "Arrg! egg-internal-buffer-obarray is not an obarray!" intern format "%s-%s" init major-mode egg-buffer-hide-section-type-on-start sect-type egg-buffer-hide-sub-blocks-on-start nav pos top-nav help-nav egg-buffer-hide-help-on-start child parent egg-internal-buffer-obarray] 6 (#$ . 115166)])
#@26 Background job sentinel.
(defalias 'egg-internal-background #[(proc msg) "\303!\n\304\230\203\305\306	\"\2020\n\307\230\203\305\310	\"\2020\311\312\n\"\203,\305\313	\"\2020\305\314	\")\207" [proc name msg process-name "finished\n" message "EGG BACKGROUND: %s finished." "killed\n" "EGG BACKGROUND: %s was killed." string-match "exited abnormally" "EGG BACKGROUND: %s failed." "EGG BACKGROUND: %s is weird!"] 3 (#$ . 116641)])
(defalias 'egg-internal-background-refresh-index #[(buffer-name) "\305!\306\211\205'\307\n!\205'r\nq\210\310\311\312\"\306\f\313\314\315\316&\317	\320\")*\207" [buffer-name proc buffer default-directory egg-git-command get-buffer nil buffer-live-p start-process format "refresh index in %s" "update-index" "-q" "--really-refresh" "--unmerged" set-process-sentinel egg-internal-background] 9])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list egg-internal-status-buffer-names-list default-boundp set-default nil egg-internal-background-jobs-timer] 3)
(defalias 'egg-status-buffer-background-job #[nil "\205\302\303	\"\207" [egg-refresh-index-in-backround egg-internal-status-buffer-names-list mapcar egg-internal-background-refresh-index] 3])
(defalias 'egg-internal-background-jobs-restart #[nil "\302\303!\210\304\305\303#\211\207" [egg-background-idle-period egg-internal-background-jobs-timer cancel-function-timers egg-status-buffer-background-job run-with-idle-timer t] 4])
(put 'egg-internal-background-jobs-restart 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-set-background-idle-period #[(var val) "\304	\"\210\305\306!\210\307\n\310\306#\211\207" [var val egg-background-idle-period egg-internal-background-jobs-timer custom-set-default cancel-function-timers egg-status-buffer-background-job run-with-idle-timer t] 4])
#@65 How long emacs has been idle before we trigger background jobs.
(custom-declare-variable 'egg-background-idle-period '30 '(#$ . 118514) :group 'egg :set 'egg-set-background-idle-period :type 'integer)
(byte-code "\302\303!\210\304\305\303#\211\207" [egg-background-idle-period egg-internal-background-jobs-timer cancel-function-timers egg-status-buffer-background-job run-with-idle-timer t] 4)
#@46 Major mode to display the egg status buffer.
(defalias 'egg-status-buffer-mode #[nil "\306 \210\307\310\311\312\307\313
!\210\314\315!\210\316
\317\320\321\322 \"\210\323\324!\210\314\325!\210\326 \327\330\322 #\210\314\331!\210\332\333\334\"\211\207" [buffer-read-only major-mode mode-name mode-line-process truncate-lines egg-status-buffer-mode-map kill-all-local-variables t egg-status-buffer-mode "Egg-Status" "" use-local-map make-local-variable egg-buffer-refresh-func egg-status-buffer-redisplay nil add-to-list egg-internal-status-buffer-names-list buffer-name run-mode-hooks egg-status-buffer-mode-hook egg-orig-window-config current-window-configuration message "buffer %s win-cfg %s" egg-internal-buffer-obarray make-vector 67 0 buffer-invisibility-spec] 4 (#$ . 118916)])
(defalias 'egg-get-status-buffer #[(&optional create) "\303\304\"\305	!\203r	q\210\n\306=\204\306 \210)	)\207" [create buf major-mode egg-get-buffer "*%s-status@%s*" bufferp egg-status-buffer-mode] 3])
(defalias 'egg-update-status-buffer-no-create #[nil "\302 \303!\205rq\210\304	!\205	!))\207" [buf egg-buffer-refresh-func egg-get-status-buffer bufferp functionp] 2])
(add-hook 'egg-buffers-refresh-hook 'egg-update-status-buffer-no-create)
(defalias 'egg-status-make-section-menu #[(&optional name) "\302!\303	\304\305\306\307\310\311\312\313\257#\210\303	\314\305\315\316\310\317\312\320\257#\210\303	\321\305\322\323\310\324\312\325\257#\210\303	\326\305\327\330\310\331\312\332\257#\210\303	\333\305\334\335\310\336\312\337\257#\210\303	\340\305\341\342\310\343\312\344\257#\210\303	\345\346#\210\303	\347\305\350\351\312\352\257#\210\303	\353\305\354\355\312\356\257#\210\303	\357\305\360\361\312\362\257#\210\303	\363\305\364\365\312\366\257#\210\303	\367\370#\210\303	\371\305\372\373\374\375\257#\210\303	\376\305\377\201@\310\201A\257#\210\303	\201B\305\201C\201D\310\201E\312\201F\257#\210\303	\201G\305\201H\201I\310\201J\312\201K\257#\210	)\207" [name map make-sparse-keymap define-key [f-stage] menu-item "Stage File" egg-diff-section-cmd-stage :visible (egg-diff-at-point) :enable (egg-point-in-section 'unstaged) [f-unstage] "Unstage File" egg-diff-section-cmd-unstage (egg-diff-at-point) (egg-point-in-section 'staged) [f-undo] "Undo File's Modifications" egg-diff-section-cmd-undo (egg-diff-at-point) (egg-point-in-section 'unstaged) [h-stage] "Stage Hunk" egg-hunk-section-cmd-stage (egg-hunk-at-point) (egg-point-in-section 'unstaged) [h-unstage] "Unstage Hunk" egg-hunk-section-cmd-unstage (egg-hunk-at-point) (egg-point-in-section 'staged) [h-undo] "Undo Hunk" egg-hunk-section-cmd-undo (egg-hunk-at-point) (egg-point-in-section 'unstaged) [sp9] ("--") [prev] "Goto Prev Block" egg-buffer-cmd-navigate-prev (egg-navigation-at-point) [next] "Goto Next Block" egg-buffer-cmd-navigate-next (egg-navigation-at-point) [hs] "Hide/Show Current Block" egg-section-cmd-toggle-hide-show (egg-navigation-at-point) [hs-sub] "Hide/Show SubBlocks" egg-section-cmd-toggle-hide-show-children (egg-navigation-at-point) [sp8] ("--") [goto-file] "Open File" egg-diff-section-cmd-visit-file-other-window :visble (and (egg-diff-at-point) (not (egg-hunk-at-point))) [goto-line] "Locate Line" egg-hunk-section-cmd-visit-file-other-window (egg-hunk-at-point) [ediff] "Ediff: WorkDir vs INDEX" egg-unstaged-section-cmd-ediff (egg-diff-at-point) (egg-point-in-section 'unstaged) [ediff3] "Ediff3: WorkDir vs INDEX vs HEAD" egg-staged-section-cmd-ediff3 (egg-diff-at-point) (egg-point-in-section 'staged)] 10])
(byte-code "\301B\302\303\304!!\210\305B\306\303\307!!\210\310B\311\303\312!!\210\313B\314\303\315!!\210\316B\317\303 !\207" [current-load-list egg-status-buffer-unstaged-diff-menu (lambda (#1=#:defconst-tmp-var) (defconst egg-status-buffer-unstaged-diff-menu #1#)) egg-status-make-section-menu "Unstaged Delta" egg-status-buffer-unstaged-hunk-menu (lambda (#2=#:defconst-tmp-var) (defconst egg-status-buffer-unstaged-hunk-menu #2#)) "Unstaged Hunk" egg-status-buffer-staged-diff-menu (lambda (#3=#:defconst-tmp-var) (defconst egg-status-buffer-staged-diff-menu #3#)) "Staged Delta" egg-status-buffer-staged-hunk-menu (lambda (#4=#:defconst-tmp-var) (defconst egg-status-buffer-staged-hunk-menu #4#)) "Staged Hunk" egg-status-buffer-mode-delta-menu (lambda (#5=#:defconst-tmp-var) (defconst egg-status-buffer-mode-delta-menu #5#))] 3)
(defalias 'egg-status-popup-delta-menu #[(event menu) "\304 \210\305	\"\211\205\306	\307\310\n\"\"\211\205!\311!\205!\312!*\207" [event menu keys cmd force-mode-line-update x-popup-menu lookup-key apply vector commandp call-interactively] 6])
(defalias 'egg-status-popup-unstaged-diff-menu #[(event) "\302	\"\207" [event egg-status-buffer-unstaged-diff-menu egg-status-popup-delta-menu] 3 nil "e"])
(defalias 'egg-status-popup-staged-diff-menu #[(event) "\302	\"\207" [event egg-status-buffer-staged-diff-menu egg-status-popup-delta-menu] 3 nil "e"])
(defalias 'egg-status-popup-unstaged-hunk-menu #[(event) "\302	\"\207" [event egg-status-buffer-unstaged-hunk-menu egg-status-popup-delta-menu] 3 nil "e"])
(defalias 'egg-status-popup-staged-hunk-menu #[(event) "\302	\"\207" [event egg-status-buffer-staged-hunk-menu egg-status-popup-delta-menu] 3 nil "e"])
(byte-code "\302B\305\306\307!!\210\310	\311\307\nB#\210\n\310\312\313#\210\310\314\315#\210\310\316\317#\210\310\320\321#\210\310\322\323#\210\310\324\325#\210\310\326\327#\210\310\330\331#\210\310\332\333\334\f\335\336\257#\210\310\337\340#\210\310\341\342#\210\310\343\344#\210\310\345\346#\210\310\347\350#\210\310\351\352#\210\310\353\354#\210\310\355\356#\210\310\357\360#\210\310\361\362#\210)\302\207" [current-load-list egg-status-buffer-mode-map egg-status-buffer-menu menu egg-status-buffer-mode-delta-menu (lambda (#1=#:defconst-tmp-var) (defconst egg-status-buffer-menu #1#)) make-sparse-keymap "Egg (Git)" define-key [menu-bar egg-status-buffer-mode] [quit] (menu-item "Close Status View" egg-quit-buffer) [refresh] (menu-item "Refresh Status View" egg-buffer-cmd-refresh) [log] (menu-item "Show Branch History" egg-log) [sp3] ("--") [rb-skip] (menu-item "Skip Rebase Session's Current Commit" egg-buffer-selective-rebase-skip :enable (egg-rebase-in-progress)) [rb-abort] (menu-item "Abort Rebase Session" egg-buffer-rebase-abort :enable (egg-rebase-in-progress)) [rb-cont] (menu-item "Resume Rebase Session" egg-buffer-selective-rebase-continue :enable (egg-rebase-in-progress)) [sp2] ("--") [delta] menu-item "Delta" :enable (egg-diff-at-point) [commit] (menu-item "Commit Staged Changes" egg-commit-log-edit) [stage] (menu-item "Stage All Modifications" egg-stage-all-files) [stage-untracked] (menu-item "Stage All Untracked Files" egg-stage-untracked-files) [sp1] ("--") [hide-all] (menu-item "Hide All" egg-buffer-hide-all) [show-all] (menu-item "Show All" egg-buffer-show-all) [hs] (menu-item "Hide/Show Block" egg-section-cmd-toggle-hide-show :enable (egg-navigation-at-point)) [hs-sub] (menu-item "Hide/Show SubBlocks" egg-section-cmd-toggle-hide-show-children :enable (egg-navigation-at-point)) [prev] (menu-item "Goto Previous Block" egg-buffer-cmd-navigate-prev :enable (egg-navigation-at-point)) [next] (menu-item "Goto Next Block" egg-buffer-cmd-navigate-next :enable (egg-navigation-at-point))] 8)
(defalias 'egg-status #[(&optional select caller) "t\205\305C\306>\204	\206\307!)\310\311!r\nq\210\312\n\313\"\210)\314=\2030\315\n!\202J\f\203;\315\n\316\"\202Jt\203F\317\n\316\"\202J\315\n\316\"*\207" [args egg-internal-current-state buf caller select :error-if-not-git :force egg-get-repo-state egg-get-status-buffer create egg-status-buffer-redisplay init :sentinel pop-to-buffer t display-buffer] 3 nil "P"])
(defalias 'egg-revert-visited-files #[(file-or-files) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\f:\203;\f\202=\fC\322\323
\"+\207" [error-if-not-git egg-git-dir default-directory git-dir file-or-files files nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error #1="Not in a git repository: %s" intern #2="egg-" #3="-HEAD" #4=" Egg" file-name-directory mapcar #[(file) "\306!\307	!\205Fr	q\210\310\311\303!\203\202:\312\303!\210\313 \206/\n\205/\314\303!\210\315\316\f\"\317\320\321Q!\322L\210)
\232\205E\323\324\211\211#))\207" [file buf error-if-not-git egg-git-dir default-directory git-dir get-file-buffer bufferp nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error #1# intern #2# #3# #4# revert-buffer t] 4]] 4])
(defalias 'egg-revert-all-visited-files #[nil "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\306\211\322\306\323\324\325 \"\"\211:\205U\323\326\327\330\331
#\"\211:\205U\332
!,\207" [error-if-not-git egg-git-dir default-directory git-dir bufs files nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error #1="Not in a git repository: %s" intern #2="egg-" #3="-HEAD" #4=" Egg" file-name-directory delq mapcar #[(buf) "rq\210\305!\205?\306\307\302!\203\n\2026\310\302!\210\311 \206+	\205+\312\302!\210\313\314\"\315\316\n\317Q!\320L\210\n)\f\232\205?\305!)\207" [buf error-if-not-git egg-git-dir default-directory git-dir buffer-file-name nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error #1# intern #2# #3# #4#] 4] buffer-list expand-file-name apply egg-git-to-lines "ls-files" egg-revert-visited-files] 7])
(defalias 'egg-cmd-log-buffer #[nil "\305\306\307\310\301!\203	\202.\311\301!\210\312 \206#\205#\313\301!\210\314\315\n\"\316\317	\320Q!\321L\210	)\322Q!\206}\307\310\301!\203A	\202a\311\301!\210\312 \206V\205V\313\301!\210\314\315\n\"\316\317	\320Q!\321L\210	)\n\307\211\204p\314\323\n\"\210\324\f!\211\325\306\f\322Q!+\207" [error-if-not-git egg-git-dir default-directory dir git-dir get-buffer " *egg-cmd-logs@" nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "*" "Can't find git dir in %s" file-name-nondirectory get-buffer-create] 7])
(defalias 'egg-cmd-log #[(&rest strings) "r\301 q\210db\210p`\302\303\304#\210)B\207" [strings egg-cmd-log-buffer apply insert "LOG/"] 6])
(put 'egg-cmd-log 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-sync-handle-exit-code #[(ret accepted-codes logger) "\306r	@q\210\212	Ab\210\307y\210\310`d\"*\311\312\n\"Cr\313 q\210db\210p`\314\315\316#\210)\210\210)\f<\203;\317\fB\202?\317\fD\n\f>\204[r	@q\210~\210	Ad}\210\320p\321\"\210)\306\202h\306\322 \323\324!)\210))\207" [output logger ret strings accepted-codes newly-read-state nil 1 buffer-substring-no-properties format "RET:%d\n" egg-cmd-log-buffer apply insert "LOG/" 0 display-buffer t egg-get-repo-state run-hooks egg-buffers-refresh-hook egg-internal-current-state] 6])
(defalias 'egg-sync-do #[(program stdin accepted-codes args) "\306\211\307\n\310\311\312\310#\f\203\313\202\314\257r\315 q\210db\210p`\316\317\320
#\210*B\f;\203O\321\322!\323\216rq\210\fc\210\316\324ed\n\306	@\306&+\202t\f:\203e\316\324\f@\fA\n\306	@\306&\202t\f?\205t\316\325\n\306	@\306&\326	#*\207" [ret logger program args stdin strings nil "RUN:" " " mapconcat identity " <REGION\n" "\n" egg-cmd-log-buffer apply insert "LOG/" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) call-process-region call-process egg-sync-handle-exit-code #1# accepted-codes] 9])
(defalias 'egg-sync-do-region-0 #[(program beg end args) "\304	\nB\305$\207" [program beg end args egg-sync-do nil] 5])
(put 'egg-sync-do-region-0 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-sync-0 #[(&rest args) "\302\303\211	$\207" [egg-git-command args egg-sync-do nil] 5])
(put 'egg-sync-0 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-sync-do-region #[(program beg end &rest args) "\304	\nB\305$\207" [program beg end args egg-sync-do nil] 5])
(put 'egg-sync-do-region 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-sync-git-region #[(beg end &rest args) "\304	\nB\305$\207" [egg-git-command beg end args egg-sync-do nil] 5])
(put 'egg-sync-git-region 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-sync-do-file #[(file program stdin accepted-codes args) "\306\307\310\301!\203
	\202-\311\301!\210\312 \206\"\205\"\313\301!\210\314\315\n\"\316\317	\320Q!\321L\210	)!\307\322\f!\323\324
\"\325
$\211\205L\fB*\207" [error-if-not-git egg-git-dir default-directory output file args file-name-directory nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" expand-file-name mapcar #[(word) "	\230\203	\207\207" [word file] 2] egg-sync-do program stdin accepted-codes] 5])
(defalias 'egg-hunk-section-patch-cmd #[(pos program &rest args) "\305!\306\307\"@	;\204\310\311!\210\312	\n\313\f%*\207" [pos file patch program args egg-hunk-section-patch-string get-text-property :diff error "No diff with file-name here!" egg-sync-do-file nil] 6])
(defalias 'egg-show-git-output #[(output line-no &optional prefix) ";\204\304	:\203	A	;\205_	G\305V\205_\n\247\203S\306 \307\216\310	\311\312#*\211\203S\n\313W\203A\nT\211	\2378\202S\n\313V\203Q\nS\211	8\202S\314	;\205_\315\316	#\210\312\207" [prefix output line-no save-match-data-internal "GIT" 1 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string "\n" t 0 nil message "%s> %s"] 5])
(defalias 'egg-hunk-section-cmd-stage #[(pos) "\302\303	\304\305$\306\307#\207" [pos egg-git-command egg-show-git-output egg-hunk-section-patch-cmd "apply" "--cached" -1 "GIT-APPLY"] 6 nil (list (point))])
(defalias 'egg-hunk-section-cmd-unstage #[(pos) "\302\303	\304\305\306%\307\310#\207" [pos egg-git-command egg-show-git-output egg-hunk-section-patch-cmd "apply" "--cached" "--reverse" -1 "GIT-APPLY"] 7 nil (list (point))])
(defalias 'egg-hunk-section-cmd-undo #[(pos) "\203\304\305!\204\306\307!\210\310	\n\311\312\313%\211:\203@;\205&\314!)\207" [egg-confirm-undo pos egg-patch-command file y-or-n-p "irreversibly remove the hunk under cursor? " error "Too chicken to proceed with undo operation!" egg-hunk-section-patch-cmd "-p1" "--quiet" "--reverse" egg-revert-visited-files] 7 nil (list (point))])
(defalias 'egg-diff-section-patch-cmd #[(pos accepted-codes &rest args) "\305\306\"@\211;\204\307\310!\210\311	\n\312\313\f	C\"%)\207" [pos file egg-git-command accepted-codes args get-text-property :diff error "No diff with file-name here!" egg-sync-do-file nil append] 9])
(defalias 'egg-diff-section-cmd-stage #[(pos) "\302\303\"@\304\305\306	!\203\307\202\310#)\207" [pos file get-text-property :diff egg-diff-section-patch-cmd nil file-exists-p "add" "rm"] 5 nil (list (point))])
(defalias 'egg-diff-section-cmd-unstage #[(pos) "\301\302\303\304\305\306%\303\307#\207" [pos egg-show-git-output egg-diff-section-patch-cmd 1 "reset" "HEAD" "--" "GIT-RESET"] 7 nil (list (point))])
(defalias 'egg-diff-section-cmd-undo-old-no-revsion-check #[(pos) "\302\303\304\305$\211:\203	@	;\205\306	!)\207" [pos file egg-diff-section-patch-cmd nil "checkout" "--" egg-revert-visited-files] 6 nil (list (point))])
(defalias 'egg-diff-section-cmd-undo #[(pos) "\203\306\307!\204\310\311!\210\312	\313\"\206\310\314!@\312	\315\"\316;\203.\317\320\fF\2022\317\320\fE\321\f
\316\211\n%\211\205O\f:\203G\f@\f;\205O\322\f!+\207" [egg-confirm-undo pos args src-rev file egg-git-command y-or-n-p "irreversibly remove the delta under cursor? " error "Too chicken to proceed with undo operation!" get-text-property :diff "No diff with file-name here!" :src-revision nil "checkout" "--" egg-sync-do-file egg-revert-visited-files] 6 nil (list (point))])
(defalias 'egg-file-stage-current-file #[nil "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321 \322
\306\211\323\324E%\205B\325\326\"*\207" [error-if-not-git egg-git-dir default-directory file git-dir egg-git-command nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" buffer-file-name egg-sync-do-file "add" "--" message "staged %s modifications"] 8 nil nil])
(defalias 'egg-stage-all-files #[nil "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\322\323D\324
\306\211\f$)\205C\325\326!*\207" [error-if-not-git egg-git-dir default-directory git-dir args egg-git-command nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory "add" "-u" egg-sync-do message "staged all tracked files's modifications"] 5 nil nil])
(defalias 'egg-stage-untracked-files #[nil "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\322\323D\324
\306\211\f$)\205C\325\326!*\207" [error-if-not-git egg-git-dir default-directory git-dir args egg-git-command nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory "add" "." egg-sync-do message "staged all untracked files"] 5 nil nil])
(defalias 'egg-do-stash-wip #[(msg) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\306\322\323D\324
>\204C'\206F\325
!)\326\f\327\"?\205\242\326\f\330\"?\205\242\323\f>\203e\326\f\323\"\202z\306\331\332D(\333\334)\306(\306
&\335U*?\205\242\322\f>\203\213\326\f\322\"\202\241\306\331\336\332E(\333\334)\306(\306
&\335U*?)\203\254\313\337!\202\335\340*\203\311*;\203\311\341\342*E\343)\306\211
$)\202\325\341\342D\343)\306\211
$)\344\345#\205\335\346 *\207" [error-if-not-git egg-git-dir default-directory git-dir state args nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory :staged :unstaged :force egg-get-repo-state plist-get :rebase-num :merge-heads "diff" "--quiet" apply call-process 0 "--cached" "No WIP to stash" egg-show-git-output "stash" "save" egg-sync-do 1 "GIT-STASH" egg-revert-all-visited-files egg-internal-current-state buffer egg-git-command msg] 7])
(defalias 'egg-do-checkout #[(rev) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\322\fD\323\306\211
$)\205C\324 *\207" [error-if-not-git egg-git-dir default-directory git-dir rev args nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory "checkout" egg-sync-do egg-revert-all-visited-files egg-git-command] 5])
(defalias 'egg-do-tag #[(&optional rev prompt force) "\306 \307\206\310!	\206\311\f\204 \n\235\203 \312\313\n\"\210\f\203>\314\315\316\n	F\317\320\314\314
&\321U*\202T\314\315\n	E\317\320\314\314
&\321U*+\207" [prompt rev name all-refs force args egg-all-refs read-string "new tag name: " "HEAD" error "referene %s already existed!" nil "tag" "-f" apply call-process 0 buffer egg-git-command] 7])
(defalias 'egg-do-create-branch #[(&optional rev checkout prompt force) "\306 \307\206\310!	\206\311\f\204 \n\235\203 \312\313\n\"\210
\204_\f\203D\314\315\316\n	F\317\320\314\314&\321U*\202\210\314\315\n	E\317\320\314\314&\321U*\202\210\f\203x\322\323\316\n	\257\324\314\211$)\202\210\322\323\n	F\324\314\211$)+\207" [prompt rev name all-refs force checkout egg-all-refs read-string "create new branch: " "HEAD" error "referene %s already existed!" nil "branch" "-f" apply call-process 0 "checkout" "-b" egg-sync-do args buffer egg-git-command] 7])
(defalias 'egg-do-apply-stash #[(stash) "\306\307>\204\f	\206\310!)\306\311\312\fE\313
\306\211$)\211\203*\314 \210\2024\315\316\f\"\210\317\306\320\"\210\n*\207" [args egg-internal-current-state output state stash egg-git-command nil :force egg-get-repo-state "stash" "apply" egg-sync-do egg-revert-all-visited-files message "GIT-STASH> failed to apply %s" egg-status :sentinel] 6])
(defalias 'egg-do-pop-stash #[nil "\305\306>\204\f	\206\307!)\305\310\311D\312\f\305\211$)\211\203)\313 \210\2022\314\315!\210\316\305\317\"\210\n*\207" [args egg-internal-current-state output state egg-git-command nil :force egg-get-repo-state "stash" "pop" egg-sync-do egg-revert-all-visited-files message "GIT-STASH> failed to pop WIP" egg-status :sentinel] 6])
(defalias 'egg-do-move-head #[(rev &optional update-wdir update-index) "\305\203\306\307	E\310\311\211\n$)\2022\f\203&\306	D\310\311\211\n$)\2022\306\312	E\310\311\211\n$)\313\314#\205>\205>\315 \207" [update-wdir rev args egg-git-command update-index egg-show-git-output "reset" "--hard" egg-sync-do nil "--soft" -1 "GIT-RESET" egg-revert-all-visited-files] 6])
(defalias 'egg-do-merge-to-head #[(rev &optional no-commit) "\306P	\203\307\202\f\310\311\312\313\314F\n\315\316!\317\216r
q\210\320\321\f\322\323\322\n&\324U\205=\325edeV\203;dS\202<d\".\206C\326\322\211\211\211*+,-./0\315\316!1\327\216r1q\210p\330\331/\3320\2572\320\321\3222\322\n&\324U*-eb\210\333\334.E\335 3\336\216\337\n\315\316!\317\216r
q\210\320\321\f\322\323\322\n&\324U\205\271\325edeV\203\267dS\202\270d\"-\206\276\340\341\323#+,\335 3\342\216\337\343 \341\323#\237@**\3224\344 5\345\346!)\210)\347-\350,\351*\257.\n\207" [rev no-commit args egg-git-command program #1=#:temp-buffer "merging in " "--no-commit" "--commit" "rev-parse" "--verify" "-q" "HEAD" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "0000000000000000000000000000000000000000" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) "merge" "--log" "-m" "diff" "--name-only" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string "" "[\n]+" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) buffer-string egg-get-repo-state run-hooks egg-buffers-refresh-hook :success :files :message feed-back res modified-files merge-cmd-res pre-merge commit-flag msg #2# buffer save-match-data-internal newly-read-state egg-internal-current-state] 9])
(defalias 'egg-do-rebase-head #[(upstream-or-action &optional old-base prompt) "\306\307\310\311F	\312\313!\314\216rq\210\315\316\n\317\320\317&\321U\2051\322edeV\203/dS\2020d\".\2067\323\317\211\211\211@ABr\324\325!q\210\326 \210C;\203\311D\320=\203\311p\327\330\331C\332PFE\315\316	\317E\317&\321U*\204}\333\334C\335 #\210ed\336\337DFG\315\340GF	\320\211\317&\321U+\204\240\333\341\335 \"\210\342 H\343\216eb\210\344\345\317\320#\203\272\346\347!\fB\202\251*\350I\206\302\351\f\"D\326 \210D;\203\362C;\203\362p\352\353\354CD\257E\315\316	\317E\317&\321U*\202h
C\355=\203
p\352\356DE\315\316	\317E\317&\321U*\202h
C\357=\203.
p\352\360DE\315\316	\317E\317&\321U*\202h
C\361=\203L
p\352\362DE\315\316	\317E\317&\321U*\202h
C;\205h
p\352\353CEE\315\316	\317E\317&\321U*Aeb\210\363\317\211JKL\212\342 H\364\216\344LK\320#\205\217
\346J\206\216
\321!.\365\366BE\342 H\367\216\370	\312\313!\314\216rq\210\315\316\n\317\320\317&\321U\205\312
\322edeV\203\310
dS\202\311
d\"-\206\317
\371\372\320#+@\317M\373 N\374\375!)\210)\376A\377
\201O@\257.\207" [args egg-git-command program #1=#:temp-buffer old-choices feed-back "rev-parse" "--verify" "-q" "HEAD" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "0000000000000000000000000000000000000000" get-buffer-create "*egg-debug*" erase-buffer "rev-list" "--topo-order" "--reverse" "..HEAD^" error "Failed to find rev between %s and HEAD^: %s" buffer-string "name-rev" "--stdin" call-process-region "Failed to translate revisions: %s" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "^.+(\\(.+\\))$" match-string-no-properties 1 completing-read "old base: " "rebase" "-m" "--onto" :abort "--abort" :skip "--skip" :continue "--continue" "^\\(?:CONFLICT\\|All done\\|HEAD is now at\\|Fast-forwarded\\|You must edit all merge conflicts\\).+$" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "diff" "--name-only" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string "" "[\n]+" egg-get-repo-state run-hooks egg-buffers-refresh-hook :success :message modified-files cmd-res pre-merge upstream-or-action old-base buffer end start save-match-data-internal prompt no limit re newly-read-state egg-internal-current-state :files] 9])
(defalias 'egg-rm-ref #[(&optional force name prompt default) "\306 	\206\307\n\206
\310\311\312%\313	\"A	\203!\f\204&\314\315	\"\210\316\f\317=\203=\320\321	E\322\311\211
$)\202x\f\323=\203\\\324\203M\325\202N\326	E\322\311\211
$)\202x\f\327=\205x\324\203l\330\202m\331	E\322\311\211
$)\332\"+\207" [refs-alist name prompt default type args egg-ref-type-alist completing-read "remove ref: " nil t assoc error "Cannot find reference %s!" egg-show-git-output :tag "tag" "-d" egg-sync-do :head "branch" "-vD" "-vd" :remote "-vrD" "-vrd" -1 egg-git-command force] 6])
(byte-code "\302\303!\210\302\304!\210\305B\306\305!\204\307\305\310\311!\"\210\312B\306\312!\204(\307\312\313\"\210\314B\306\314!\2047\307\314\313\"\210\315B\306\315!\204F\307\315\313\"\210\316B\306\316!\204U\307\316\313\"\210\317B\306\317!\204d\307\317\313\"\210\320\321N\204p\322\320\321\323#\210\324\325!\204|\322\325\326\327#\210\325B\306\325!\204\214\307\325\330 \"\210\324\331!\204\230\322\331\326\327#\210\331B\306\331!\204\250\307\331\332 \"\210\322\301\326\327#\210\301B\306\301!\204\302\307\301\333\301\313\"\210	\"\210\322\327\334\335#\207" [current-load-list egg-log-msg-mode-abbrev-table require derived ring egg-log-msg-ring default-boundp set-default make-ring 32 egg-log-msg-ring-idx nil egg-log-msg-action egg-log-msg-text-beg egg-log-msg-text-end egg-log-msg-diff-beg egg-log-msg-mode-hook variable-documentation put "Hook run when entering Egg-LogMsg mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp egg-log-msg-mode-map definition-name egg-log-msg-mode make-sparse-keymap egg-log-msg-mode-syntax-table make-syntax-table define-abbrev-table derived-mode-parent text-mode] 5)
#@252 Major mode for editing Git log message.


{egg-log-msg-mode-map}.

In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `egg-log-msg-mode-hook', as the final step
during initialization.

\{egg-log-msg-mode-map}
(defalias 'egg-log-msg-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\324!\210\325\f!\210+,\326\327-\330\331!\203X\202}\306\331!\210\332 \206o-\205o\333\331!\210\334\335.\"\336\337\340Q!\341L\210)!.\306\342!\210\306\343!\210\327#\306\344!\210\327$\306\345!\210\327%\306\346!\210\327&)\347\350!\203\254\350\351!\207\352\351!\207" [delay-mode-hooks major-mode mode-name egg-log-msg-mode-map egg-log-msg-mode-syntax-table parent make-local-variable t text-mode egg-log-msg-mode "Egg-LogMsg" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table file-name-directory nil local-variable-p egg-git-dir egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" egg-log-msg-action egg-log-msg-ring-idx egg-log-msg-text-beg egg-log-msg-text-end egg-log-msg-diff-beg fboundp run-mode-hooks egg-log-msg-mode-hook run-hooks egg-log-msg-mode-abbrev-table local-abbrev-table error-if-not-git default-directory] 6 (#$ . 146215) nil])
(byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\207" [egg-log-msg-mode-map define-key "" egg-log-msg-done [134217840] egg-log-msg-older-text [134217838] egg-log-msg-newer-text "\f" egg-buffer-cmd-refresh] 4)
(defalias 'egg-log-msg-commit #[nil "\306	\n\307\310\311E\312
\fB\306$+\211\205+\313\314\315#\210\306\316 \317\320!*)\207" [output egg-log-msg-text-beg egg-log-msg-text-end args end beg nil "commit" "-F" "-" egg-sync-do egg-show-git-output -1 "GIT-COMMIT" egg-get-repo-state run-hooks egg-buffers-refresh-hook egg-git-command newly-read-state egg-internal-current-state] 6])
(defalias 'egg-log-msg-amend-commit #[nil "\306	\n\307\310\311\312F\313
\fB\306$+\211\205,\314\315\316#\210\306\317 \320\321!*)\207" [output egg-log-msg-text-beg egg-log-msg-text-end args end beg nil "commit" "--amend" "-F" "-" egg-sync-do egg-show-git-output -1 "GIT-COMMIT-AMEND" egg-get-repo-state run-hooks egg-buffers-refresh-hook egg-git-command newly-read-state egg-internal-current-state] 7])
(defalias 'egg-log-msg-done #[nil "~\210b\210\212\306\307	\310#)\2034\311\n!\205:\312\313	\"\"\210\n \210\310\314p!\315 \210\316\f!\2052\317\f!*\207\320\321!\210\322 \207" [egg-log-msg-text-beg egg-log-msg-text-end egg-log-msg-action egg-log-msg-ring win inhibit-read-only re-search-forward "\\sw\\|\\-" t functionp ring-insert buffer-substring-no-properties get-buffer-window erase-buffer windowp egg-quit-buffer message "Please enter a log message!" ding] 5 nil nil])
#@36 Cycle through message log history.
(defalias 'egg-log-msg-hist-cycle #[(&optional forward) "\306!\211\307X\203\310\311!\210\312 \202S\n\204$\fV\203$\313\314!?\206S\f|\210\n\204;
\2037\315\307	\"\202J\307\202J
\203F\315\n	\"\202J\316\n	\"\fb\210\317\n\"c)\207" [egg-log-msg-ring len egg-log-msg-ring-idx egg-log-msg-text-end egg-log-msg-text-beg forward ring-length 0 message "No previous log message." ding y-or-n-p "throw away current text? " ring-minus1 ring-plus1 ring-ref] 4 (#$ . 149221)])
#@41 Cycle backward through comment history.
(defalias 'egg-log-msg-older-text #[nil "\300 \207" [egg-log-msg-hist-cycle] 1 (#$ . 149740) nil])
#@40 Cycle forward through comment history.
(defalias 'egg-log-msg-newer-text #[nil "\300\301!\207" [egg-log-msg-hist-cycle t] 2 (#$ . 149885) nil])
(defalias 'egg-commit-log-buffer-show-diffs #[(buf &optional init) "rq\210\306\307b\210`d|\210`\f\307\211\203K@\211\310=\203,\311\312\313\"\210\202B
\314=\2039\315\316!\210\202B
\317=\203B\320 \210A\211\204*\321	`\322\306$\210\321	`\323\307$\210\203\334\236A>\203\235e\307 \324 T\325\"\211 \203\222\326 \325\"\327\306B!\210\202u*t\205\332\330p!\202\332\205\3329\205\332e\307 \324 T\"\211 \205\331\326 \"\203\262\326 \325\"\327\306B!\210\202\262+)\210\330!+\207" [buf beg inhibit-read-only egg-log-msg-diff-beg egg-commit-buffer-sections sect t nil staged egg-sb-insert-staged-section "Changes to Commit:" "--stat" unstaged egg-sb-insert-unstaged-section "Deferred Changes:" untracked egg-sb-insert-untracked-section put-text-property read-only front-sticky next-single-property-change :navigation get-text-property add-to-invisibility-spec force-window-update #1=#:--cl-dolist-temp-- init major-mode egg-buffer-hide-section-type-on-start sect-type egg-buffer-hide-sub-blocks-on-start nav pos] 5])
(defalias 'egg-commit-buffer-mode #[nil "\306 \210\307\310\311\312\303!\210\313\314\315\316!\210\312\305!\210\317 \320\321\322 
#\210\312\323!\210\324\325\326\"\211\207" [major-mode mode-name mode-line-process egg-buffer-refresh-func buffer-invisibility-spec egg-orig-window-config egg-log-msg-mode egg-commit-buffer-mode "Egg-Commit" "" make-local-variable egg-commit-log-buffer-show-diffs nil run-mode-hooks egg-commit-buffer-mode-hook current-window-configuration message "buffer %s win-cfg %s" buffer-name egg-internal-buffer-obarray make-vector 67 0] 4])
(defalias 'egg-get-commit-buffer #[(&optional create) "\303\304\"\305	!\203r	q\210\n\306=\204\306 \210)	)\207" [create buf major-mode egg-get-buffer "*%s-commit@%s*" bufferp egg-commit-buffer-mode] 3])
(defalias 'egg-update-commit-buffer-no-create #[nil "\302 \303!\205rq\210\304	!\205	!))\207" [buf egg-buffer-refresh-func egg-get-commit-buffer bufferp functionp] 2])
(add-hook 'egg-buffers-refresh-hook 'egg-update-commit-buffer-no-create)
(defalias 'egg-commit-log-edit #[(title-function action-function insert-init-text-function) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\322\323!\306\324
>\204C4\206F\325
!)5\306\2115\307\301!\203X	\202x\310\301!\210\311 \206m\205m\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\205\3205\206\222\306\324
>\204\2164\206\221\325
!)\21155\3265\206\256\306\324
>\204\2524\206\255\325
!)\327\")55\3265\206\314\306\324
>\204\3104\206\313\325
!)\330\"*B)\2116A\206\336\331\3326@\"788r\fq\210\3338\334 \210\310\335!\2109\336:!\203
:5!\202
:;\203
:\202
\337\340\341\342\343\344#\340\345\261\210\346e`\347\333$\210\346e`\350\306$\210\340c\210\310\351!\210\352 )\353)\306\"\210\346)S)\354\355$\210\356c\210\310\357!\210\352 /\353/\306\"\210\360\f\361\"\210)b\210\336;!\203n
; \210\202x
;;\203x
;c\210\310\362!\210\352 2\3532\333\"\210)\363\f\333\".\207" [error-if-not-git egg-git-dir default-directory git-dir buf args nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory egg-get-commit-buffer create :force egg-get-repo-state plist-get :sha1 :branch format "Detached HEAD! (%s)" t erase-buffer egg-log-msg-action functionp "Shit happens!" "\n" "Repository: " propertize face font-lock-constant-face #("--------------- Commit Message (type C-c C-c when done) ---------------" 0 71 (face font-lock-comment-face)) put-text-property read-only rear-sticky egg-log-msg-text-beg point-marker set-marker-insertion-type :navigation commit-log-text #("\n------------------------ End of Commit Message ------------------------" 0 72 (read-only t front-sticky nil face font-lock-comment-face)) egg-log-msg-diff-beg egg-commit-log-buffer-show-diffs init egg-log-msg-text-end pop-to-buffer egg-internal-current-state state head-info head inhibit-read-only action-function title-function insert-init-text-function] 8 nil (byte-code "\203\216\306\307\310\211\311\n>\204\206\312\n!)\313	\314\"\211\206_\313	\315\"\316\317\320
F$\n%\321\322!&\323\216r&q\210\324\325%\310\326\310\n&\327U\205]\330edeV\203[dS\202\\d\".+\331\332#P\333\334\321\322!'\335\216r'q\210\325$\310\326\310\336\337
&\210eb\210\340\341!\210\330\327\225d\",E\207\342\307\310\211\311\n>\204\236\206\241\312\n!)\313	\314\"\211\206\351\313	\315\"\316\317\320
F$\n%\321\322!&\323\216r&q\210\324\325%\310\326\310\n&\327U\205\347\330edeV\203\345dS\202\346d\".+\331\332#P\343\310E\207" [current-prefix-arg state args egg-internal-current-state branch rev #("Amending  " 0 10 (face egg-text-3)) propertize nil :force egg-get-repo-state plist-get :branch :sha1 "describe" "--always" "--tags" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties face egg-branch egg-log-msg-amend-commit "HEAD" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) "cat-file" "commit" re-search-forward "^\n" #("Committing into  " 0 17 (face egg-text-3)) egg-log-msg-commit egg-git-command program #1# #2#] 11)])
(byte-code "\303B\304\305\306!\307	\n\"\210	)!\207" [current-load-list map egg-buffer-mode-map egg-diff-buffer-mode-map (lambda (#1=#:defconst-tmp-var) (defconst egg-diff-buffer-mode-map #1#)) make-sparse-keymap "Egg:DiffBuffer" set-keymap-parent] 4)
(defalias 'egg-diff-buffer-insert-diffs #[(buffer) "rq\210\306	\307\"\306	\310\"\306	\311\"\306	\312\"\306	\313\"\306	\314\"\315\316\211\211\211\211\211#$%&'()*\317 \210\320)\321\322#\323\261\210(\323\261\210`S\203g\323c\210`\324\323\261\210`Sc\210``$`#\325\326+\316\315\316\327*&\210`#V\204\204\330c\210\331\332\333e`
,\333&\210\331\314\334\f\n,\335&\210\325\336\337e\340`\341'\342&	&\n\210$b.\207" [buffer egg-diff-buffer-info help-inv-beg help-end help-beg inv-beg plist-get :args :title :prologue :src :dst :help t nil erase-buffer propertize face egg-section-title "\n" #("Help" 0 4 (face egg-help-header-1)) apply call-process "diff" #("No difference!\n" 0 15 (face egg-text-4)) egg-delimit-section :section file help egg-compute-navigation egg-decorate-diff-section :begin :end :src-prefix :dst-prefix beg pos inhibit-read-only dst-prefix src-prefix prologue title args egg-git-command egg-section-map] 13])
#@44 Major mode to display the git diff output.
(defalias 'egg-diff-buffer-mode #[nil "\306 \210\307\310\311\312\307\313
!\210\314\315!\210\316
\317\320\321!\210\314\322!\210\323 \324\325\326 #\210\314\327!\210\330\331\332\"\211\207" [buffer-read-only major-mode mode-name mode-line-process truncate-lines egg-diff-buffer-mode-map kill-all-local-variables t egg-diff-buffer-mode "Egg-Diff" "" use-local-map make-local-variable egg-buffer-refresh-func egg-diff-buffer-insert-diffs nil run-mode-hooks egg-diff-buffer-mode-hook egg-orig-window-config current-window-configuration message "buffer %s win-cfg %s" buffer-name egg-internal-buffer-obarray make-vector 67 0 buffer-invisibility-spec] 4 (#$ . 156653)])
(defalias 'egg-get-diff-buffer #[(&optional create) "\303\304\"\305	!\203r	q\210\n\306=\204\306 \210)	)\207" [create buf major-mode egg-get-buffer "*%s-diff@%s*" bufferp egg-diff-buffer-mode] 3])
(defalias 'egg-update-diff-buffer-no-create #[nil "\302 \303!\205rq\210\304	!\205	!))\207" [buf egg-buffer-refresh-func egg-get-diff-buffer bufferp functionp] 2])
(byte-code "\306\307\310\"\210\311B\312\313\314\315\316\317\320\257\321 \322\323\324!\325\216r\fq\210\326\n!\210\327 \330\216\331\332\333	\334#!c\210eb\210\335\336\322\337#\203Z\340\341\224\341\225\342\343$\210\203U\340\344\224S\342\345$\210`\2027\203f\340\346 \342\345$\210\347 .P!\210\350B\351\352!\210\353B\354\355\356\357\360F\321 \322\323\324!\325\216r\fq\210\326\n!\210\327 \330\216\331\332\333	\334#!c\210eb\210\335\336\322\337#\203\307\340\341\224\341\225\342\343$\210\203\302\340\344\224S\342\345$\210`\202\244\203\323\340\346 \342\345$\210\347 .!\210\361B\362\363\364\360E\321 \322\323\324!\325\216r\fq\210\326\n!\210\327 \330\216\331\332\333	\334#!c\210eb\210\335\336\322\337#\203*
\340\341\224\341\225\342\343$\210\203%
\340\344\224S\342\345$\210`\202
\2036
\340\346 \342\345$\210\347 .!\210\365B\366\367\360D\321 \322\323\324!\325\216r\fq\210\326\n!\210\327 \330\216\331\332\333	\334#!c\210eb\210\335\336\322\337#\203\214
\340\341\224\341\225\342\343$\210\203\207
\340\344\224S\342\345$\210`\202i
\203\230
\340\346 \342\345$\210\347 .!\210\370B\371\372\357\360E\321 \322\323\324!\325\216r\fq\210\326\n!\210\327 \330\216\331\332\333	\334#!c\210eb\210\335\336\322\337#\203\357
\340\341\224\341\225\342\343$\210\203\352
\340\344\224S\342\345$\210`\202\314
\203\373
\340\346 \342\345$\210\347 .!\207" [current-load-list strings map last-found #1=#:temp-buffer save-match-data-internal add-hook egg-buffers-refresh-hook egg-update-diff-buffer-no-create egg-diff-buffer-common-help-text (lambda (#2=#:defconst-tmp-var) (defconst egg-diff-buffer-common-help-text #2#)) #("Common Key Bindings:" 0 20 (face egg-help-header-2)) "\\<egg-buffer-mode-map>\n" "\\[egg-buffer-cmd-navigate-prev]:previous block  " "\\[egg-buffer-cmd-navigate-next]:next block  " "\\[egg-buffer-cmd-refresh]:redisplay  " "\\[egg-quit-buffer]:quit\n" current-local-map nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) use-local-map match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) substitute-command-keys mapconcat identity "" re-search-forward "\\(\\<[^\n 	:]+\\|[/+.~*=-]\\):" t put-text-property 1 face egg-help-key 0 egg-text-help line-end-position buffer-string egg-diff-buffer-diff-help-heading (lambda (#3=#:defconst-tmp-var) (defconst egg-diff-buffer-diff-help-heading #3#)) #("Extra Bindings for Diff blocks:" 0 31 (face egg-help-header-2)) egg-unstaged-diff-help-text (lambda (#4=#:defconst-tmp-var) (defconst egg-unstaged-diff-help-text #4#)) "\\<egg-unstaged-diff-section-map>\n" "\\[egg-diff-section-cmd-stage]:stage file/hunk  " "\\[egg-diff-section-cmd-undo]:undo file/hunk  " "\\[egg-diff-section-cmd-visit-file-other-window]:visit file/line\n" egg-staged-diff-help-text (lambda (#5=#:defconst-tmp-var) (defconst egg-staged-diff-help-text #5#)) "\\<egg-staged-diff-section-map>\n" "\\[egg-diff-section-cmd-stage]:unstage file/hunk  " egg-plain-diff-help-text (lambda (#6=#:defconst-tmp-var) (defconst egg-plain-diff-help-text #6#)) "\\<egg-diff-section-map>\n" egg-wdir-diff-help-text (lambda (#7=#:defconst-tmp-var) (defconst egg-wdir-diff-help-text #7#)) "\\<egg-wdir-diff-section-map>\n"] 7)
(defalias 'egg-diff-info-add-help #[(info) "\306\307\"\310\f\n
=\203\2025\n\f=\203 
\2025\n=\203,\2025\n=\2055Q\311\312	#*\207" [info help map egg-diff-buffer-common-help-text egg-diff-buffer-diff-help-heading egg-unstaged-diff-section-map plist-get :diff-map nil plist-put :help egg-unstaged-diff-help-text egg-staged-diff-section-map egg-staged-diff-help-text egg-diff-section-map egg-plain-diff-help-text egg-wdir-diff-section-map egg-wdir-diff-help-text] 4])
(defalias 'egg-do-diff #[(diff-info) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\322\323!r
q\210\310\324!\210\325
!\210)
+\207" [error-if-not-git egg-git-dir default-directory git-dir dir buf nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory egg-get-diff-buffer create egg-diff-buffer-info egg-diff-buffer-insert-diffs diff-info] 4])
(defalias 'egg-build-diff-info #[(src dst &optional file) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\306\211=>\204]?\204]\322\323\324\325\326F\327\330\331\f\"\332\333\334\335\336\337\340@\341A\257\202\352>\342\232\203\206?\343\232\203\206\322\323\344\324\325\326\257\327\345\332\346\334\347\336\335\340B\341C\257\202\352>;\203\275?;\203\275\322\323\324>\350?QE\327\330\351>?#\332\330\352>?#\353>\354?\340D\341E\257\202\352>;\205\352??\205\352\322\323\324>E\327\330\351>\f#\332\330\355>\f#\356P\353>\340F\341G\257\f\357H>\203\366\360
!\210I;\203
ICI\202
\361
\322\"=\362=B=\363
\322=#\210I:\203U
\361
\332\"=\364\365\366I\367#\370\371#\367\364=\370\372#Q=\363
\332=#\210\361
\322\"=\373=\374IB\"=\363
\322=#\210
,\207" [error-if-not-git egg-git-dir default-directory git-dir dir info nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory :args "--no-color" "-p" "--src-prefix=INDEX/" "--dst-prefix=WORKDIR/" :title format "from INDEX to %s" :prologue "hunks can be removed or added into INDEX." :src "INDEX/" :dst "WORKDIR/" :diff-map :hunk-map "HEAD" "INDEX" "--cached" "from HEAD to INDEX" "hunks can be removed from INDEX." "HEAD/" ".." "from %s to %s" "a: %s\nb: %s" :src-revision :dst-revision "a: %s\nb: %s\n" "hunks can be removed???" :diff egg-diff-info-add-help plist-get "-M" plist-put propertize mapconcat identity "\n" face egg-text-3 egg-text-1 append "--" tmp src dst egg-unstaged-diff-section-map egg-unstaged-hunk-section-map egg-staged-diff-section-map egg-staged-hunk-section-map egg-diff-section-map egg-hunk-section-map egg-wdir-diff-section-map egg-wdir-hunk-section-map egg-show-key-help-in-buffers file] 15])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list egg-log-buffer-comment-column default-boundp set-default nil egg-internal-log-buffer-closure] 3)
(defalias 'egg-run-git-log-HEAD #[(&optional refs-only) "\203!\305\306\307\310	\"\311\312\313\314\315\316\257\317\320\f\321\321\n&\322U*\207\305\306\307\310	\"\311\312\314\315\316\257\317\320\f\321\321\n&\322U*\207" [refs-only egg-log-HEAD-max-len args buffer egg-git-command t "log" format "--max-count=%d" "--graph" "--topo-order" "--simplify-by-decoration" "--pretty=oneline" "--decorate" "--no-color" apply call-process nil 0] 9])
(defalias 'egg-run-git-log-all #[(&optional refs-only) "\203\"\305\306\307\310	\"\311\312\313\314\315\316\317\257	\320\321\f\322\322\n&\323U*\207\305\306\307\310	\"\311\312\314\315\316\317\257\320\321\f\322\322\n&\323U*\207" [refs-only egg-log-all-max-len args buffer egg-git-command t "log" format "--max-count=%d" "--graph" "--topo-order" "--simplify-by-decoration" "--pretty=oneline" "--decorate" "--all" "--no-color" apply call-process nil 0] 10])
(defalias 'egg-run-git-log-pickaxe #[(string) "\304\305\306\307\310\311P\257\312\313\314\n\314	&\315U*\207" [string args buffer egg-git-command t "log" "--pretty=oneline" "--decorate" "--no-color" "-S" apply call-process nil 0] 7])
(byte-code "\303B\306\307\310!\311	\n\"\210\312	\313\314#\210\312	\315\316#\210\312	\317\320#\210\312	\321\322#\210\312	\323\324#\210\312	\325\326#\210\312	\327\330#\210\312	\331\332#\210\312	\333\334#\210\312	\335\336#\210	)!\210\304B\337\307\340!\311	\"\210\312	\341\342#\210\312	\343\344#\210\312	\345\346#\210\312	\347\350#\210\312	\351\352#\210\312	\353\354#\210\312	\355\356#\210\312	\357\356#\210	)!\210\305B\360\307\361!\311	\f\"\210\312	\362\363#\210\312	\364\365#\210\312	\366\367#\210	)!\210\370B\371\307\372!\311	
\"\210\312	\373\374#\210\312	\375\376#\210\312	\377\201B#\210\312	\201C\201B#\210	)!\210\201DB\201E\307\201F!\311	
\"\210\312	\375\201G#\210\312	\201H\201I#\210\312	\201J\201I#\210	)!\210\201KB\201L\307\361!\311	\f\"\210\312	\375\201M#\210\312	\373\201N#\210\312	\201O\201P#\210\312	\201Q\201P#\210	)!\210\201RB\201S\307\201T!\311	@\"\210\312	\201U\201V#\210\312	\201W\201X#\210\312	\353\201Y#\210	)!\210\201ZB\201[\307\201\\!\311	@\"\210\312	\201U\201]#\210\312	\201W\201^#\210\312	\353\201Y#\210	)!\210\201_B\201`\307\201a!\311	A\"\210\312	\201b\201c#\210\312	\201d\201e#\210\312	\201f\201g#\210\312	\362\201h#\210\312	\201i\201j#\210	)!\207" [current-load-list map egg-hide-show-map egg-log-commit-base-map egg-log-commit-map egg-log-ref-map (lambda (#1=#:defconst-tmp-var) (defconst egg-log-commit-base-map #1#)) make-sparse-keymap "Egg:LogCommitBase" set-keymap-parent define-key " " egg-log-buffer-insert-commit "B" egg-log-buffer-create-new-branch "b" egg-log-buffer-start-new-branch "o" egg-log-buffer-checkout-commit "t" egg-log-buffer-tag-commit "T" egg-log-buffer-atag-commit "a" egg-log-buffer-attach-head "m" egg-log-buffer-merge "r" egg-log-buffer-rebase "R" egg-log-buffer-rebase-interactive (lambda (#2=#:defconst-tmp-var) (defconst egg-log-commit-map #2#)) "Egg:LogCommit" "+" egg-log-buffer-mark-pick "." egg-log-buffer-mark-squash "~" egg-log-buffer-mark-edit "-" egg-log-buffer-unmark "*" egg-log-buffer-mark "=" egg-log-buffer-diff-revs [C-down-mouse-2] egg-log-popup-commit-line-menu [C-mouse-2] (lambda (#3=#:defconst-tmp-var) (defconst egg-log-ref-map #3#)) "Egg:LogRef" "L" egg-log-buffer-reflog-ref "x" egg-log-buffer-rm-ref "u" egg-log-buffer-push-to-local egg-log-local-ref-map (lambda (#4=#:defconst-tmp-var) (defconst egg-log-local-ref-map #4#)) "Egg:LogLocalRef" "U" egg-log-buffer-push-to-remote "d" egg-log-buffer-push-head-to-local [C-down-mouse-2] egg-section-map egg-buffer-mode-map egg-log-popup-local-ref-menu [C-mouse-2] egg-log-remote-ref-map (lambda (#5=#:defconst-tmp-var) (defconst egg-log-remote-ref-map #5#)) "Egg:LogRemoteRef" egg-log-buffer-fetch-remote-ref [C-down-mouse-2] egg-log-popup-remote-ref-menu [C-mouse-2] egg-log-remote-site-map (lambda (#6=#:defconst-tmp-var) (defconst egg-log-remote-site-map #6#)) egg-log-buffer-fetch egg-log-buffer-push [C-down-mouse-2] egg-log-popup-remote-site-menu [C-mouse-2] egg-log-diff-map (lambda (#7=#:defconst-tmp-var) (defconst egg-log-diff-map #7#)) "Egg:LogDiff" "
" egg-log-diff-cmd-visit-file-other-window "f" egg-log-diff-cmd-visit-file egg-diff-section-cmd-ediff egg-log-hunk-map (lambda (#8=#:defconst-tmp-var) (defconst egg-log-hunk-map #8#)) "Egg:LogHunk" egg-log-hunk-cmd-visit-file-other-window egg-log-hunk-cmd-visit-file egg-log-buffer-mode-map (lambda (#9=#:defconst-tmp-var) (defconst egg-log-buffer-mode-map #9#)) "Egg:LogBuffer" "n" egg-log-buffer-next-ref "s" egg-status "p" egg-log-buffer-prev-ref egg-reflog "/" egg-search-changes] 5)
(defalias 'egg-decorate-log #[(&optional line-map head-map tag-map remote-map remote-site-map) "`\306\307\310\311F	\312\313!\314\216rq\210\315\316\n\317\320\317&\321U\2052\322edeV\2030dS\2021d\".\2068\323\324ee\317\320$\325\326\327\330\f\331
\205I\332\257\326\333\330@\331
\205V\332\257\326\334\330@\331
\205c\332\257\326\327\330A\331
\205p\332\257\326\335\330B\331
\205}\332\257%\321\211\336\317\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211CDEFGHIJKLMNOPQRSTUVWXY\337\340V\"D\212\341\342\317\320#\203:\343\224I\343\225\211HTG\344 K\321\225J\317FKIU\203\364\321\202\373IKZ\343ZL\322IH\"NGf\345U\204
G\202%
GTFGb\210\346\317w\210`E`\347\\GF\205B
\350 Z\351\216\337\352\353\322H\347\\E\"\354\320#\"*P\337\355P\"O\337\356O\"\210\357N\360NFM[\203h
\330[DM\244MP\203v
\361PDM\244M\315\362\363M#RO\205\226
\362\364\365OR#\357N\360N\361P&\211Q\205\237
QGU\366KJTM#\210\367GJ\326\370$\210F\203\302
FSE\347\\|\210I\371\\H|\210\367I\211\371\\\326\372$\210\367I\211\371\\\331
\205\340
\332$\210\373LZP\203\361
UT\202\362
\321ZTST^S\367I\211T\374\315\375\315\362\376T\377\"\326\201]DM\244#RP\205 QRD$$\210NX\230\2031\201^ C\201_ b\210\202\311S\336U\203H\201`c\202\312SSS\201a\201\\!\210\336SZL\321V\203d\321\202e\343Z\201b\\\\S\321V\203\233YSb\210\201c`\374\"\211Y\203\233Yb\210\201dY\374\"S\317Oc\210\347u\210\202xC\203\310Cb\210\201eW\326\201f#\210\201eW\201g\320#\210\201hW\344 \201_ T#\210C.\207" [args egg-git-command program #1=#:temp-buffer head-map egg-enable-tooltip "rev-parse" "--verify" "-q" "HEAD" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "0000000000000000000000000000000000000000" make-overlay egg-full-ref-decorated-alist face egg-branch-mono keymap help-echo egg-buffer-help-echo egg-tag-mono egg-an-tag-mono egg-remote-mono 300 mapcar #[(pair) "\301A!@B\207" [pair substring-no-properties] 2] re-search-forward "\\([0-9a-f]\\{40\\}\\) .+$" 1 line-beginning-position 40 "^)" 2 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) #[(lref) "\301\302O\303\230\203\304\305O\207\207" [lref 0 4 "tag:" 5 nil] 3] split-string ", +" #[(full-ref-name) "\302	\"A\207" [full-ref-name ref-alist assoc] 3] #[(full-ref-name) "\301!\207" [full-ref-name print] 2] :navigation :commit :references propertize " " mapconcat #[(full-ref-name) "\207" [full-ref-name] 1] add-text-properties put-text-property egg-text-2 8 font-lock-constant-face 299 :dash-refs concat make-string 45 tag-map remote-map remote-site-map head-line ref-alist refs-end refs-start subject-beg sha-end sha-beg end beg graph-len line-props sha1 full-refs refs ref-string separator min-dashes-len dashes-len ref-string-len dec-ref-alist ov head-sha1 start save-match-data-internal line-map egg-log-buffer-comment-column egg-graph point-marker line-end-position #("nothing found!" 0 14 (face egg-warning)) make-local-variable 10 next-single-property-change get-text-property overlay-put egg-log-HEAD evaporate move-overlay] 24])
(defalias 'egg-log-buffer-insert-n-decorate-logs #[(log-insert-func) "`	 \210b\210\306\n\211\f
%)\207" [beg log-insert-func egg-log-commit-map egg-log-local-ref-map egg-log-remote-ref-map egg-log-remote-site-map egg-decorate-log] 6])
(put 'egg-log-buffer-insert-n-decorate-logs 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-log-diff-cmd-visit-file #[(file sha1) "\302\303	\304\305$!\207" [file sha1 pop-to-buffer egg-file-get-other-version nil t] 6 nil (list (car (get-text-property (point) :diff)) (get-text-property (point) :commit))])
(defalias 'egg-log-diff-cmd-visit-file-other-window #[(file sha1) "\302\303	\304\305$\305\"\207" [file sha1 pop-to-buffer egg-file-get-other-version nil t] 6 nil (list (car (get-text-property (point) :diff)) (get-text-property (point) :commit))])
(defalias 'egg-log-hunk-cmd-visit-file #[(sha1 file hunk-header hunk-beg &rest ignored) "\305	\"\306\307\f\310\311$!\210\312\n!)\207" [hunk-header hunk-beg line file sha1 egg-hunk-compute-line-no pop-to-buffer egg-file-get-other-version nil t goto-line] 6 nil (byte-code "\306`\307\"`\306\310\"\211A@\306\311\"\211A@\n\\\3128\n\\	@@\f
F.B\207" [pos diff-info head-beg hunk-info hunk-beg hunk-end get-text-property :commit :diff :hunk 2] 6)])
(defalias 'egg-log-hunk-cmd-visit-file-other-window #[(sha1 file hunk-header hunk-beg &rest ignored) "\305	\"\306\307\f\310\311$\311\"\210\312\n!)\207" [hunk-header hunk-beg line file sha1 egg-hunk-compute-line-no pop-to-buffer egg-file-get-other-version nil t goto-line] 6 nil (byte-code "\306`\307\"`\306\310\"\211A@\306\311\"\211A@\n\\\3128\n\\	@@\f
F.B\207" [pos diff-info head-beg hunk-info hunk-beg hunk-end get-text-property :commit :diff :hunk 2] 6)])
(defalias 'egg-log-buffer-get-rev-at #[(pos &rest options) "\306\307\"\306\310\"\211;\203\n\202\311\n!@\306\312\"@\313\314\315\316F
\317\320! \321\216r q\210\322\323\324\325\324
&\326U\205T\327edeV\203RdS\202Sd\".\206Z\330!\331\">\204n!	\230\203n\316\202\275\f\206\275\206\275\332\">\203\274	#\333\334\335#F
\317\320! \321\216r q\210\322\323\324\325\324
&\326U\205\267\327edeV\203\265dS\202\266d\".\202\275	-\207" [pos commit refs first-head ref-at-point args get-text-property :commit :references last :ref "rev-parse" "--verify" "-q" "HEAD" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "0000000000000000000000000000000000000000" :no-HEAD :symbolic "describe" "--always" "--tags" egg-git-command program #1# head-sha1 options rev] 8])
(defalias 'egg-log-buffer-do-remove-mark #[(mark-char) "e\303\304	T\305\"\211\205%\306	\305\"\nU\203\307	\211T\305\310\311\310F#\210\202*\207" [inhibit-read-only pos mark-char t next-single-property-change :mark get-text-property remove-text-properties nil display] 7])
(defalias 'egg-log-buffer-find-first-mark #[(mark-char) "e\302T\303\"\211\203\304\303\"	U\203)\207" [pos mark-char next-single-property-change :mark get-text-property] 3])
(defalias 'egg-log-buffer-do-mark #[(pos char &optional unmark remove-first) "\306\307\"\310	\311Z\n\203\312\202\203\313\202\314\211\205k\203,\315!\210\316
!\210\n\2038\317\2029\320``T\321\322\205M\323\324!\325\326#F#\210\fy\210\306\307\"\204hm\204ho\204h\fy\210\202S\316
!,\207" [pos egg-log-buffer-comment-column unmark remove-first step col get-text-property :commit t 10 -1 0 1 egg-log-buffer-do-remove-mark move-to-column remove-text-properties add-text-properties :mark display propertize char-to-string face egg-log-buffer-mark inhibit-read-only commit char] 11])
(defalias 'egg-log-buffer-mark #[(pos) "\301\302\303\304$\207" [pos egg-log-buffer-do-mark 42 nil t] 5 nil "d"])
(defalias 'egg-log-buffer-mark-pick #[(pos) "\301\302\"\207" [pos egg-log-buffer-do-mark 43] 3 nil "d"])
(defalias 'egg-log-buffer-mark-squash #[(pos) "\301\302\"\207" [pos egg-log-buffer-do-mark 46] 3 nil "d"])
(defalias 'egg-log-buffer-mark-edit #[(pos) "\301\302\"\207" [pos egg-log-buffer-do-mark 126] 3 nil "d"])
(defalias 'egg-log-buffer-do-unmark-all #[nil "e\302\303	T\304\"\211\205\305	\211T\304\306\307\306F#\210\202*\207" [inhibit-read-only pos t next-single-property-change :mark remove-text-properties nil display] 7 nil nil])
(defalias 'egg-log-buffer-unmark #[(pos &optional all) "\203\302 \207\303	\304\305#\207" [all pos egg-log-buffer-do-unmark-all egg-log-buffer-do-mark nil t] 4 nil "d\nP"])
(defalias 'egg-log-buffer-get-marked-alist #[nil "e\305\211\211\212\306T\307\"\211\2034b\210\310 \311\f!\210\312`\313 \"\314\315\"\314\307\"	\nFB\202	),\207" [alist subject marker pos egg-log-buffer-comment-column nil next-single-property-change :mark point-marker move-to-column buffer-substring-no-properties line-end-position get-text-property :commit] 4])
(defalias 'egg-setup-rebase-interactive #[(rebase-dir upstream onto repo-state commit-alist) "	\206\306\307D\310\n>\204\206\311\n!)p\312\313	\314\"	\211@\204=\306\307D\310\n>\2047\206:\311\n!)@\313@\315\"?\205\235\313@\316\"?\205\235\307@>\203^\313@\307\"\202s\312\317\320DA\321\322B\312A\312\n&\323U*?\205\235\306@>\203\206\313@\306\"\202\234\312\317\324\320EA\321\322B\312A\312\n&\323U*?)\204\245\325\326!\210C\204\256DC\327\330!E\331\216rEq\210\332F\333\"\210\334eeF\335P#\210\313	\336\"\337\261\210\334edF\340P#\210\341 \210\313	\314\"\337\261\210\334edF\342P#\210\341 \210D\337\261\210\334edF\343P#\210\341 \210C\337\261\210\334edF\344P#\210\341 \210\345D\346\f\347C\337\261\210G\312H\211I\203j
I@\211HA@\350=\203=
\351\202T
HA@\352=\203J
\353\202T
HA@\354=\205T
\355\356H@\356\357H8\337\261\210IA\211I\204,
*\334edF\360P#\210\334edF\361P#\210+\362\363\364\365C\"\"\210r\366\367!q\210\312\370\371\fEA\321\322B\312A\312\n&\323U\210*\312\372CDA\321\322B\312A\312\n&\323U\210*\373\f\312\211JKLMK\206\316
\374p\312NAK\362\375\376\"\210MLD\377KDO\201P\201QO\n#*N\201RN\201SA#\210N.
\207" [process-environment repo-state args egg-internal-current-state orig-head-sha1 orig-buffer :staged :unstaged :force egg-get-repo-state nil plist-get :sha1 :rebase-num :merge-heads "diff" "--quiet" apply call-process 0 "--cached" error "Repo not clean" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) make-directory t write-region "interactive" :head "\n" "head-name" erase-buffer "head" "upstream" "onto" "# Rebase " ".." " onto " 43 "pick" 46 "squash" 126 "edit" " " 2 "git-rebase-todo" "git-rebase-todo.backup" setenv "GIT_REFLOG_ACTION" format "rebase -i (%s)" get-buffer-create "*egg-debug*" "update-ref" "ORIG_HEAD" "checkout" egg-handle-rebase-interactive-exit "--continue" "EDITOR" "\nplease commit in egg" "rebase" state buffer egg-git-command onto upstream #1# rebase-dir commit-alist rev-info #2=#:--cl-dolist-temp-- exit-code action closure callback proc func-args egg-async-do 1 process-put :orig-buffer] 8])
(defalias 'egg-handle-rebase-interactive-exit #[(&optional orig-sha1) "	\306\211\211\211\211@ABeb\210\307 C\310\216\311\312\306\313#\210\314\315!\316\224\203-\317\202W\320\224\2036\321\202W\322\224\203?\323\202W\324\224\203H\325\202W\326\224\203Q\327\202W\330\224\205W\331*\332A\333\"r
q\210\306D\334 E\335\336!)\210)\337 \210\340CF\340F>\204\203E\206\207\334F!)@\341@\342\"\f\321=\203\235\343\344\"\202\325
\f\317=\203
\345\341@\346\"G\307 C\347\216\350G!@*H\351\352\341@\353\"\354\355#\356\352\357H\360Q\354\361#R*\362\306\363\364\365\366\367\nDE\370BBB\371
\372\373IEEF\n\374PJ\375\376!K\377\216rKq\210\201OJ!\210\201PedeV\203

dS\202
d\",#\202\325
\f\323=\203\204
\345\351\352\341@\353\"\354\355#\356\201QR\362\306\363\201R\365\201S\367\nDE\201TBBB\371
\372\201UIEEF\201VL\375\376!M\201W\216rMq\210\201XN\306\313\306\201Y\201ZL&\210eb\210\311\201[!\210\201P\315\225d\",#\202\325
\f\325=\203\240
\201\\\306\201]\"\210\201^ \210\343\201_!\202\325
\f\327=\203\274
\201\\\306\201]\"\210\201^ \210\343\201`!\202\325
\f\331=\205\325
\201\\\306\201]\"\210\201^ \210\343\201a!.\207" [egg-async-exit-msg egg-async-process rebase-dir msg res buffer nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "\\<\\(?:\\(please commit in egg.+$\\)\\|\\(Successfully rebased and updated.+$\\)\\|\\(You can amend the commit now\\)\\|\\(Automatic cherry-pick failed\\)\\|\\(nothing added to commit\\)\\|\\(\\(?:Cannot\\|Could not\\).+\\)\\)" t match-string-no-properties 0 1 :rebase-commit 2 :rebase-done 3 :rebase-edit 4 :rebase-conflict 5 :rebase-empty 6 :rebase-fail process-get :orig-buffer egg-get-repo-state run-hooks egg-buffers-refresh-hook egg-revert-all-visited-files :force plist-get :rebase-dir message "GIT-REBASE-INTERACTIVE: %s" egg-commit-log-edit :rebase-cherry ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string #("Rebasing " 0 9 (face egg-text-3)) propertize :rebase-head face egg-branch ": " "Commit " "ed cherry" egg-text-3 lambda let ((process-environment process-environment)) mapcar (lambda (env-lst) (setenv (car env-lst) (cadr env-lst))) egg-rebase-author-info ((egg-log-msg-commit)) with-current-buffer egg-do-async-rebase-continue #'egg-handle-rebase-interactive-exit "message" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) state proc exit-msg save-match-data-internal newly-read-state egg-internal-current-state args cherry cherry-op orig-sha1 file-name #1# rev #2=#:temp-buffer egg-git-command insert-file-contents-literally buffer-substring-no-properties #("Re-edit cherry's commit log" 0 27 (face egg-text-3)) ((process-environment process-environment)) (lambda (env-lst) (setenv (car env-lst) (cadr env-lst))) ((egg-log-msg-amend-commit)) #'egg-handle-rebase-interactive-exit "HEAD" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) call-process "cat-file" "commit" "^\n" egg-status :sentinel ding "automatic rebase stopped! please resolve conflict(s)" "automatic rebase stopped! this commit should be skipped!" "Automatic rebase failed!"] 11])
(defalias 'egg-log-buffer-merge #[(pos &optional no-commit) "\306\307\310#\311\211\211\311\312\313D%\314%>\204&\206#\315%!)\316
\317\"?\205\203\316
\320\"?\205\203\313
>\203B\316
\313\"\202Y\311\321\322D%'\323\324(\311'\311%&\325U*?\205\203\312
>\203j\316
\312\"\202\202\311\321\326\322E%'\323\324(\311'\311%&\325U*?)\204\216\327 \210\330\331!\210\332\333\334\f\"!\204\236\335\336\f\"\202\311\337\f)\"\316\340\"\211\203\261\341\n!\210\335\342\316\343\"\"\210\316\344\"\205\303)??\205\311\327 ,\207" [pos buf modified-files res rev state egg-log-buffer-get-rev-at :symbolic :no-HEAD nil :staged :unstaged :force egg-get-repo-state plist-get :rebase-num :merge-heads "diff" "--quiet" apply call-process 0 "--cached" egg-status error "Repo is not clean!" y-or-n-p format "merge %s to HEAD? " message "cancel merge from %s to HEAD!" egg-do-merge-to-head :files egg-revert-visited-files "GIT-MERGE> %s" :message :success args egg-internal-current-state buffer egg-git-command no-commit] 8 nil "d\nP"])
(defalias 'egg-log-buffer-rebase #[(pos &optional move) "\306\307\310#\311\211\211\312\313\314\f\"!\204\315\316\f\"\2022\317\f
\205#\320
\205+\313\321\f\"#?\2052\322 ,\207" [pos buf modified-files res rev move egg-log-buffer-get-rev-at :symbolic :no-HEAD nil y-or-n-p format "rebase HEAD to %s? " message "cancel rebase HEAD to %s!" egg-buffer-do-rebase t "starting point to rebase HEAD onto %s: " egg-status] 6 nil "d\nP"])
(defalias 'egg-log-buffer-rebase-interactive #[(pos &optional move) "\306\307D\310>\204	\206\311!)\312\n\313\"\314\314R\315 \316\317
\".\320/!0\321\322\3230\324PF\325 1\326\216\32723\330\331!4\332\216r4q\210\333\3343\335\336\335&\337U\205k\340edeV\203idS\202jd\"-\206p\341\342\336#+5\n\211\204\217\306\307D\310>\204\212	\206\215\311!)\312\n\343\"?\205\351\312\n\344\"?\205\351\307\n>\203\254\312\n\307\"\202\301\335\345\346D6\333\3342\3356\335&\337U*?\205\351\306\n>\203\322\312\n\306\"\202\350\335\345\347\346E6\333\3342\3356\335&\337U*?)\204\365\350\351\312\n\313\"\"\210\352\353.\"\210\354\f0\335\n
%\210\355 .\207" [args egg-internal-current-state state egg-git-rebase-subdir rebase-dir todo-alist :staged :unstaged :force egg-get-repo-state plist-get :gitdir "/" egg-log-buffer-get-marked-alist mapcar car egg-commit-at "rev-list" "--reverse" "--cherry-pick" "..HEAD" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+" :rebase-num :merge-heads "diff" "--quiet" "--cached" error "repo %s is not clean" mapc #[(commit) "	\235?\205\f\303\304\n#\207" [commit all upstream error "commit %s is not between HEAD and upstream %s"] 4] egg-setup-rebase-interactive egg-status commits pos upstream save-match-data-internal egg-git-command program #1# all buffer] 9 nil "d\nP"])
(defalias 'egg-log-buffer-checkout-commit #[(pos) "\301\302\303\304 \305\211\306\307\310#%!\207" [pos egg-do-checkout completing-read "checkout: " egg-all-refs nil egg-log-buffer-get-rev-at :symbolic :no-HEAD] 10 nil "d"])
(defalias 'egg-log-buffer-tag-commit #[(pos &optional force) "\304!\305	\306\307	\"\n#\205p!)\207" [pos rev force egg-buffer-refresh-func egg-log-buffer-get-rev-at egg-do-tag format "tag %s with name: "] 5 nil "d\nP"])
(defalias 'egg-log-buffer-atag-commit #[(pos &optional force) "\306\307\"\310\311\312\313	\314\315\316\nF\f\317\320!\321\216rq\210\322\323
\324\325\324&\326U\205>\327edeV\203<dS\202=d\".\"!	\")\207" [pos commit rev args egg-git-command program get-text-property :commit egg-create-annotated-tag read-string format "create annotated tag on %s with name: " "describe" "--always" "--tags" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties #1#] 11 nil "d\nP"])
(defalias 'egg-log-buffer-create-new-branch #[(pos &optional force) "\304!\305	\306\307\310	\"\n$\205p!)\207" [pos rev force egg-buffer-refresh-func egg-log-buffer-get-rev-at egg-do-create-branch nil format "create new branch at %s with name: "] 6 nil "d\nP"])
(defalias 'egg-log-buffer-start-new-branch #[(pos &optional force) "\303\304\305#\306	\307\310\311	\"\n$\210)\312\207" [pos rev force egg-log-buffer-get-rev-at :symbolic :no-HEAD egg-do-create-branch checkout format "start new branch from %s with name: " nil] 6 nil "d\nP"])
(defalias 'egg-log-buffer-attach-head #[(pos &optional strict-level) "\306\307\310#\311 \312\313\206 \312\314\f>\204
\206\315\f!)\316\")\317V\320V\321\322\203?\323P\202@\324\203L\n\325\326O\202M	\203V\327\202`\203_\330\202`\331$ \332 !\205z\333\203t\n\202u	#.\207" [pos rev commit state args egg-internal-current-state egg-log-buffer-get-rev-at :symbolic :no-HEAD egg-commit-at-point nil plist-get :force egg-get-repo-state :branch 3 15 format "%s to %s%s? " "move " "attach HEAD" 0 8 " (and update workdir)" " (and update index)" "" y-or-n-p egg-do-move-head branch strict-level update-index update-wdir prompt] 6 nil "d\np"])
(defalias 'egg-log-buffer-rm-ref #[(pos &optional force) "\306\307\"\306\310\"@\311\n\204\312!\313\314\311\211\n%\315\f	\"\205'
p!+\207" [pos victim ref-at-point refs force egg-buffer-refresh-func get-text-property :references :ref nil last completing-read "remove reference: " egg-rm-ref] 6 nil "d\nP"])
(defalias 'egg-log-buffer-fetch-remote-ref #[(pos) "\306\307\"\211@	A\310\211\311=\204\312\313!\210\314\n!\n\211;\2053G\315V\2053\316\317!!)\211\205a\f\205a\320\321\n
#\210\310\322
\323\324\f\n#E\325\206ZpCB#*-\207" [pos ref-at-point ref type name remote get-text-property :ref nil :remote error "Nothing to fetch from here!" file-name-nondirectory 0 directory-file-name file-name-directory message "GIT> fetching %s from %s..." "fetch" format "refs/heads/%s:refs/remotes/%s" egg-async-do rbranch args accepted-code egg-buffer-async-cmd-refresh-func egg-buffer-refresh-func] 8 nil "d"])
(defalias 'egg-log-buffer-fetch #[(pos) "\306\307\"\211@	A\310\211\310\211\311=\204\312\313!\210\n\211;\2055G\314V\2055\315\316!!)\211\205\230\317\320\321\"\310\211\322$\211\322\232\203p\323\324\"\210\310\325D\326\206fpCB#*\202\230\323\327
#\210\310\325\320\330

$E\326\206\221pCB#*.\207" [pos ref-at-point ref type site name get-text-property :ref nil :remote error "No site here to fetch from!" 0 directory-file-name file-name-directory read-string format "fetch from %s (default all): " "--all" message "GIT> fetching everything from %s..." "fetch" egg-async-do "GIT> fetching %s from %s..." "refs/heads/%s:refs/remotes/%s/%s" def remote rbranch args accepted-code egg-buffer-async-cmd-refresh-func egg-buffer-refresh-func] 9 nil "d"])
(defalias 'egg-log-buffer-push-to-local #[(pos &optional non-ff) "\306\307\"@\310	\204\311\312!\210\313\314\315	\"\316\317\320\321F\322 \323\216\324
(\325\326!)\327\216r)q\210\330\331(\310\332\310&\333U\205P\334edeV\203NdS\202Od\"-\206U\335\336\332#+\310\332$\337\340\341*\203i\342\202j\343	\344\nQF\345
\310\211$)\346\347#\205\201+p!*\207" [pos src dst args save-match-data-internal egg-git-command get-text-property :ref nil error "Nothing to push here!" completing-read format "use %s to update: " "rev-parse" "--symbolic" "--branches" "--tags" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties "" "[\n]+" egg-show-git-output "push" "." "-vf" "-v" ":" egg-sync-do -1 "GIT-PUSH" program #1# non-ff egg-buffer-refresh-func] 10 nil "d\nP"])
(defalias 'egg-log-buffer-push-head-to-local #[(pos &optional non-ff) "\306\307\"@\211\204\310\311!\210\312\313\314	\"!\2058\315\316\317\n\203\"\320\202#\321\322	PF\323\f\324\211$)\325\326#\2058
p!)\207" [pos dst non-ff args egg-git-command egg-buffer-refresh-func get-text-property :ref error "Nothing here to push to!" y-or-n-p format "update %s with HEAD? " egg-show-git-output "push" "." "-vf" "-v" "HEAD:" egg-sync-do nil -1 "GIT-PUSH"] 7 nil "d\nP"])
(defalias 'egg-log-buffer-push-to-remote #[(pos &optional non-ff) "\306\307\"\211@	A\310\211\310\21167	\204\311\312!\210\313=\2033\314\n!\315\316\n!!6\317\202
\320=\203\252\321\n\313\"\211:\203M
@
A6\202
\322\323\n\"\31089\3249\325\326\327\310:\330\331!\203j\202\217\332\331!\210\333 \206\201:\205\201\334\331!\210\311\335;\"\336\337\340Q!\341L\210)\342P\343\"\"\310\3448%*6\345\322\346\n6#\n\"\202
\347=\203
\350\31089\3249\325\326\327\310:\330\331!\203\312\202\357\332\331!\210\333 \206\341:\205\341\334\331!\210\311\335;\"\336\337\340Q!\341L\210)\342P\343\"\"\310\3448%*6\345\322\3516\"\n\"\345\322\3526\f#\f\"\nG\353V\2040
\354\322\3556\f#!\2040
\356\3576\f#\210\310\2116\3106\205q
\f\205q
\n\205q
\n\360\fQ7\356\361\n\f6$\210\310\362<\203V
\363\202W
\36467F=>\365>?\206j
@pCB=#*.\207" [pos ref-at-point lref type rref tracking get-text-property :ref nil error "Nothing to push here!" :remote file-name-nondirectory directory-file-name file-name-directory "" :head egg-tracking-target format "push branch %s to remote: " completing-read mapcar car egg-config-get-all local-variable-p egg-git-dir make-local-variable egg-read-git-dir kill-local-variable "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "/config" "remote" t read-string "push branch %s to %s as: " :tag "push to remote: " "remote tag to push at (on %s): " "local tag to push at %s/%s (empty mean delete the remote tag) : " 0 y-or-n-p "delete %s/%s? " message "cancel removal of %s/%s" ":" "GIT> pushing %s to %s on %s..." "push" "-vf" "-v" egg-async-do remote spec default prompt error-if-not-git default-directory non-ff args accepted-code egg-buffer-async-cmd-refresh-func egg-buffer-refresh-func] 10 nil "d\nP"])
(defalias 'egg-log-buffer-push #[(pos) "\306\307\"\211@	A\310\211\310\211()\311=\204\312\313!\210\n\211*;\2055*G\314V\2055\315\316*!!)\211)\205\300\317\320\321)\"\322\323\324\325F+\326 ,\327\216\330-++.\331\332!/\333\216r/q\210\334\335.\310\336\310+&\314U\205\203\337edeV\203\201dS\202\202d\"-\206\210\340\341\336#+\310\211\211\211\342&\343\344
\342\232\203\240\345\202\241
)#\210\310\346)
E+0\34701\206\2712pCB+#*.\207" [pos ref-at-point ref type site name get-text-property :ref nil :remote error "No site here to push to!" 0 directory-file-name file-name-directory completing-read format "push to %s (default all heads): " "rev-parse" "--symbolic" "--branches" "--tags" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t buffer-substring-no-properties "" "[\n]+" "--all" message "GIT> pushing %s to %s..." "everything" "push" egg-async-do def remote rbranch args save-match-data-internal egg-git-command program #1# accepted-code egg-buffer-async-cmd-refresh-func egg-buffer-refresh-func] 11 nil "d"])
(defalias 'egg-log-buffer-goto-pos #[(pos) "b\210\303 b\210\304`\305\"\211;\205(	\306\307O\310 \311\216\312\313	\314Q!\205'\315\224b*)\207" [pos sha1 save-match-data-internal line-beginning-position get-text-property :commit 0 6 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at "^.* \\(" "\\)" 1] 5])
(defalias 'egg-log-buffer-next-ref #[(pos) "\304\305\"\306\305\"\307\n\205+\304\n\305\"\211\203\310\n!\202+\306\n\305\"\211\205+\310\n!+\207" [pos n-ref n-pos current-ref get-text-property :references next-single-property-change nil egg-log-buffer-goto-pos] 5 nil "d"])
(defalias 'egg-log-buffer-prev-ref #[(pos) "\304\305\"\306\305\"\307\n\2057\nS\304\n\305\"\211\203(	\232\204(\310\n!\2027\306\n\305\"\211\2057\nS\310\n!+\207" [pos p-ref p-pos current-ref get-text-property :references previous-single-property-change nil egg-log-buffer-goto-pos] 5 nil "d"])
(defalias 'egg-log-buffer-do-insert-commit #[(pos) "\212\306\307\"\306\310\"\306\311\"\312	\313	\314\"\315\211+,-.b\210\316 Tb\210`\312\317\320\321\322\323\f\324\f\325\326\260.\257/0\327\3301\3150\315/&\331U*\204X\332\333-\"\210`\334\307.\nS\315,&\210\335\n\3362$\210\337\340\341\n\3423\3434&\210b\210\344\345\"\335
\\\346\347$\210\335
\\\316 \346\350$\210\351y\210\335`
`\\\346\347$\210\335
`\\\n\346\350$\210\352\315!.	\207" [pos egg-log-buffer-comment-column end beg indent-spaces indent-column get-text-property :commit :references :navigation t make-string 32 nil line-end-position "log" "--max-count=1" "-p" "-M" "--pretty=format:" "%ai%n" "%an%n%n" "%b%n" apply call-process 0 error "error calling git log %s!" egg-delimit-section put-text-property keymap egg-decorate-diff-section :begin :end :diff-map :hunk-map next-single-property-change :diff face egg-diff-none egg-text-2 1 set-buffer-modified-p inhibit-read-only nav ref sha1 args buffer egg-git-command egg-section-map egg-log-diff-map egg-log-hunk-map] 11])
(defalias 'egg-log-buffer-insert-commit #[(pos) "\303\304\"\211\205
\305	\306\"\305\306\"\n\232?\205\307!*\207" [pos next sha1 next-single-property-change :diff get-text-property :commit egg-log-buffer-do-insert-commit] 4 nil "d"])
(defalias 'egg-generic-display-logs #[(data &optional init) "\306 \210\203	\307\310\n\311\"\310\n\312\"\307\313\304!\203\f\202=\314\304!\210\315 \2062\2052\316\304!\210\317\320
\"\321\322\f\323Q!\324L\210\f)\310+\325\"\310+\326\"\310+\327\"\330\307\211\211,-./012345\331 \21054\203w\3324\332Q\202x\332\333\334\307\313\304!\203\206\f\202\246\314\304!\210\315 \206\233\205\233\316\304!\210\317\320
\"\321\322\f\323Q!\324L\210\f)\335\336#2\203\267\3322\332Q\202\270\332\332\261\210`\337Z.0;\203\346`,\340\332\261\210\341,`\3426\205\332\343$\210`S.0\332\261\210`-,\203\374\344\345\327,`.7\327&\210\203>
\327\30789:;>\203=
\34699\203
9\2029
89<=\347>!\204-
\317\350!\210\321\351\352=<#>\"*\330B!\210*1 \206F
-b.\n\207" [init buffer-invisibility-spec data error-if-not-git egg-git-dir default-directory buffer-disable-undo nil plist-get :title :subtitle local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" :description :closure :help t erase-buffer "\n" #("repo: " 0 6 (face egg-text-2)) propertize face font-lock-constant-face 2 #("Help" 0 4 (face egg-help-header-1)) put-text-property help-echo egg-buffer-help-echo egg-delimit-section :section add-to-invisibility-spec vectorp "Arrg! egg-internal-buffer-obarray is not an obarray!" format "%s-%s" egg-internal-log-buffer-closure help-beg beg inv-beg inhibit-read-only help closure desc git-dir subtitle title egg-enable-tooltip egg-section-map top-nav help-nav major-mode egg-buffer-hide-help-on-start child parent egg-internal-buffer-obarray] 10])
(defalias 'egg-log-buffer-redisplay #[(buffer &optional init) "rq\210\306\307	>\204\n\206\310	!)\311\312\"\313
\314\315\316!\317\320##\210\313
\321\315\f\317\322##\210\323
\"+\207" [buffer args egg-internal-current-state state sha1 egg-internal-log-buffer-closure nil :force egg-get-repo-state plist-get :sha1 plist-put :title propertize egg-pretty-head-string face egg-branch :subtitle font-lock-string-face egg-generic-display-logs init] 7])
(defalias 'egg-log-buffer-redisplay-from-command #[(buffer) "\306!\203p\307!\232\203\212\310\311\211\211\211eb\210\312\311w\210\313p!\211:\203>\f@\211\314\230\2036\315\202=\316\230\205=\317eb\210\320 \321\216\322\323\311\324#\203\\\325\326
\327\330!\327\331!$\210\324*	\204}eb\210\320 \332\216\322\333\311\324#\203|\325\334
\327\330!#\210\324*.\335!\207" [egg-async-process done pos cmd-string cmd-sexp cmd processp process-buffer "GIT>" nil "^(" read "fetch" "GIT-FETCH>" "push" "GIT-PUSH>" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "^\\(?:From\\|To\\) \\(.+\\)\n\\(.+\\)$" t message "%s %s: %s" match-string-no-properties 1 2 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "^fatal: \\(.+\\)$" "%s fatal: %s" egg-log-buffer-redisplay save-match-data-internal buffer] 7])
#@2693 Major mode to display the output of git log.\<egg-log-buffer-mode-map>
Each line with a shorten sha1 representing a commit in the repo's history.
\[egg-log-buffer-next-ref] move the cursor to the next commit with a ref
\[egg-log-buffer-prev-ref] move the cursor to the previous commit line with a ref.
\[egg-buffer-cmd-refresh] refresh the display of the log buffer
\[egg-status] shows the repo's current status.

\{egg-log-buffer-mode-map}

Each line representing a commit has extra keybindings:\<egg-log-commit-map>
\[egg-log-buffer-insert-commit] fetch and show the commit's details.
\[egg-section-cmd-toggle-hide-show] hide/show the current commit's details
\[egg-section-cmd-toggle-hide-show-children] hide all the sub-blocks of the current commit's details.
\[egg-log-buffer-create-new-branch] create a new branch starting from the current commit.
\[egg-log-buffer-start-new-branch] start in a new branch from the current commit.
\[egg-log-buffer-checkout-commit] checkout the current commit.
\[egg-log-buffer-tag-commit] create a new lightweight tag pointing at the current commit.
\[egg-log-buffer-attach-head] move HEAD (and maybe the current branch tip) to the 
current commit (the underlying git command is `reset --soft'.
C-u \[egg-log-buffer-attach-head] move HEAD (and maybe the current branch tip) as well as
the index to the current commit (the underlying git command
is `reset --mixed'.)
C-u C-u \[egg-log-buffer-attach-head] move HEAD (and maybe the current branch tip) and
the index to the current commit, the work dir will also be
updated (the underlying git command is `reset --hard').
\[egg-log-buffer-merge] will merge the current commit into HEAD.
C-u \[egg-log-buffer-merge] will merge the current commit into HEAD but will not
auto-commit if the merge was successful.

\{egg-log-commit-map}

Each ref on the commit line has extra extra keybindings:\<egg-log-ref-map>
\[egg-log-buffer-rm-ref] delete the ref under the cursor.
\[egg-log-buffer-push-to-local] update another local ref using the ref under the cursor.

Each local ref on the commit line has extra extra extra keybindings:\<egg-log-local-ref-map>
\[egg-log-buffer-push-to-remote] upload to a remote the ref under the cursor.
  for a remote-tracking local branch this would updating the tracking target.
  for other local refs this  means uploading (or deleting) the local value
   of the ref to the remote repository.
\[egg-log-buffer-push-head-to-local] update the local ref under the cursor with the current HEAD.

Each remote ref on the commit line has extra extra extra keybindings:\<egg-log-remote-ref-map>
\[egg-log-buffer-fetch-remote-ref] download the new value of the ref from the remote repo.
.
(defalias 'egg-log-buffer-mode #[nil "\306 \210\307\310\311\312\307\313
!\210\314\315!\210\316
\314\317!\210\320\314\321!\210\322\323\324\325!\210\314\326!\210\327 \330\331\332 #\210\314\333!\210\334\335\322\"\211\207" [buffer-read-only major-mode mode-name mode-line-process truncate-lines egg-log-buffer-mode-map kill-all-local-variables t egg-log-buffer-mode "Egg-Log" "" use-local-map make-local-variable egg-buffer-refresh-func egg-log-buffer-redisplay egg-buffer-async-cmd-refresh-func egg-log-buffer-redisplay-from-command egg-log-buffer-comment-column 0 nil run-mode-hooks egg-log-buffer-mode-hook egg-orig-window-config current-window-configuration message "buffer %s win-cfg %s" buffer-name egg-internal-buffer-obarray make-vector 67 buffer-invisibility-spec] 4 (#$ . 199415)])
(defalias 'egg-get-log-buffer #[(&optional create) "\303\304\"\305	!\203r	q\210\n\306=\204\306 \210)	)\207" [create buf major-mode egg-get-buffer "*%s-log@%s*" bufferp egg-log-buffer-mode] 3])
(defalias 'egg-update-log-buffer-no-create #[nil "\302 \303!\205rq\210\304	!\205	!))\207" [buf egg-buffer-refresh-func egg-get-log-buffer bufferp functionp] 2])
(add-hook 'egg-buffers-refresh-hook 'egg-update-log-buffer-no-create)
(defalias 'egg-commit-at-point #[nil "\300`\301\"\207" [get-text-property :commit] 3])
(defalias 'egg-ref-at-point #[nil "\300`\301\"\207" [get-text-property :ref] 3])
(defalias 'egg-head-at-point #[nil "\300`\301\"A\302=\207" [get-text-property :ref :head] 3])
(defalias 'egg-tag-at-point #[nil "\300`\301\"A\302=\207" [get-text-property :ref :tag] 3])
(defalias 'egg-remote-at-point #[nil "\300`\301\"A\302=\207" [get-text-property :ref :remote] 3])
(defalias 'egg-references-at-point #[nil "\300`\301\"\207" [get-text-property :references] 3])
(defalias 'egg-log-commit-line-menu-attach-head-index #[(pos) "\301\302\"\207" [pos egg-log-buffer-attach-head 4] 3 nil "d"])
(defalias 'egg-log-commit-line-menu-attach-head-index-wdir #[(pos) "\301\302\"\207" [pos egg-log-buffer-attach-head 16] 3 nil "d"])
(defalias 'egg-log-make-commit-line-menu #[(&optional heading) "\302!\303	\304\305\306\307\310\311\257#\210\303	\312\305\313\314\310\315\257#\210\303	\316\305\317\320\310\321\257#\210\303	\322\305\323\324\310\325\257#\210\303	\326\305\327\330\310\331\257#\210\303	\332\305\333\334\310\335\257#\210\303	\336\337#\210\303	\340\305\341\342\310\343\257#\210\303	\344\305\345\346\310\347\257#\210\303	\350\305\351\352\310\353\354\355\257#\210\303	\356\305\357\360\310\361\354\362\257#\210\303	\363\305\364\365\310\366\354\367\257#\210\303	\370\305\371\372\310\373\257#\210\303	\374\375#\210\303	\376\305\377\201@\310\201A\354\201B\257#\210\303	\201C\305\201D\201E\310\201F\257#\210\303	\201G\305\201H\201I\310\201J\257#\210\303	\201K\305\201L\201M\310\201N\257#\210\303	\201O\305\201P\201Q\310\201R\257#\210\303	\201S\305\201T\201U\310\201V\257#\210\303	\201W\201X#\210\303	\201Y\305\201Z\201@\310\201[\257#\210\303	\201\\\305\201]\201^\310\201_\257#\210\303	\201`\201a#\210\303	\201b\305\201c\201d\310\201e\257#\210\303	\201f\305\201g\201h\310\201i\257#\210\303	\201j\305\201k\201l\310\201m\257#\210\303	\201n\201o#\210\303	\201p\305\201q\201r\310\201s\257#\210\303	\201t\305\201u\201v\310\201w\257#\210\303	\201x\305\201y\201z\310\201{\257#\210\303	\201|\305\201}\201~\310\201\257#\210\303	\201\200\201\201#\210\303	\201\202\305\201\203\201\204\310\201\205\257#\210\303	\201\206\305\201\207\201~\310\201\210\257#\210\303	\201\211\305\201\212\201\213\310\201\214\257#\210\303	\201\215\305\201\216\201\217\310\201\220\257#\210	)\207" [heading map make-sparse-keymap define-key [load] menu-item "(Re)Load Commit Details" egg-log-buffer-insert-commit :visible (egg-commit-at-point) [diff] "Compare against HEAD (or BASE)" egg-log-buffer-diff-revs (egg-commit-at-point) [prev] "Goto Prev Ref" egg-log-buffer-prev-ref (egg-navigation-at-point) [next] "Goto Next Ref" egg-log-buffer-next-ref (egg-navigation-at-point) [hs] "Hide/Show Details" egg-section-cmd-toggle-hide-show (egg-navigation-at-point) [hs-sub] "Hide/Show Details of Subsections" egg-section-cmd-toggle-hide-show-children (egg-navigation-at-point) [sp9] ("--") [rpush] "Fetch Refs from Remote" egg-log-buffer-fetch (egg-remote-at-point) [rfetch] "Push Refs to Remote" egg-log-buffer-push (egg-remote-at-point) [rdown] "Fetch Remote Ref" egg-log-buffer-fetch-remote-ref (egg-ref-at-point) :enable (egg-remote-at-point) [ldown] "Push HEAD To Ref" egg-log-buffer-push-head-to-local (egg-ref-at-point) (not (egg-remote-at-point)) [upload] "Push Ref to Remote" egg-log-buffer-push-to-remote (egg-ref-at-point) (not (egg-remote-at-point)) [update] "Push to Another Local Branch" egg-log-buffer-push-to-local (egg-ref-at-point) [sp5] ("--") [irebase] "Rebase HEAD interratively" egg-log-buffer-rebase (egg-commit-at-point) (egg-log-buffer-get-marked-alist) [unmark] "Unmark for interractive Rebase " egg-log-buffer-unmark (egg-commit-at-point) [edit] "Mark for Editing in upcoming interractive Rebase " egg-log-buffer-mark-edit (egg-commit-at-point) [squash] "Mark to be Squashed in upcoming interractive Rebase " egg-log-buffer-mark-squash (egg-commit-at-point) [pick] "Mark to be Picked in upcoming interractive Rebase " egg-log-buffer-mark-pick (egg-commit-at-point) [base] "Mark as Base Commit " egg-log-buffer-mark (egg-commit-at-point) [sp4] ("--") [rebase] "Rebase HEAD" (egg-commit-at-point) [merge] "Merge to HEAD" egg-log-buffer-merge (egg-commit-at-point) [sp3] ("--") [rh-16] "Anchor HEAD (update INDEX and Workdir)" egg-log-commit-line-menu-attach-head-index-wdir (egg-commit-at-point) [rh-4] "Anchor HEAD (update INDEX)" egg-log-commit-line-menu-attach-head-index (egg-commit-at-point) [rh-0] "Anchor HEAD" egg-log-buffer-attach-head (egg-commit-at-point) [sp2] ("--") [reflog] "Show Ref History (Reflog)" egg-log-buffer-reflog-ref (egg-ref-at-point) [rm-ref] "Remove Ref " egg-log-buffer-rm-ref (egg-ref-at-point) [cb] "Create New Branch" egg-log-buffer-create-new-branch (egg-commit-at-point) [co-dh] "Detach HEAD and Checkout" egg-log-buffer-checkout-commit (egg-commit-at-point) [sp1] ("--") [sb] "Start New Branch" egg-log-buffer-start-new-branch (egg-commit-at-point) [co] "Checkout Branch" (egg-head-at-point) [tag] "Tag (Lightweight)" egg-log-buffer-tag-commit (egg-commit-at-point) [atag] "Tag (Annotated)" egg-log-buffer-atag-commit (egg-commit-at-point)] 10])
(byte-code "\301B\302\303 !\210\304B\305\303 !\210\306B\307\303 !\210\310B\311\303 !\210\312B\313\303 !\207" [current-load-list egg-log-buffer-commit-line-menu (lambda (#1=#:defconst-tmp-var) (defconst egg-log-buffer-commit-line-menu #1#)) egg-log-make-commit-line-menu egg-log-buffer-local-ref-menu (lambda (#2=#:defconst-tmp-var) (defconst egg-log-buffer-local-ref-menu #2#)) egg-log-buffer-remote-ref-menu (lambda (#3=#:defconst-tmp-var) (defconst egg-log-buffer-remote-ref-menu #3#)) egg-log-buffer-remote-site-menu (lambda (#4=#:defconst-tmp-var) (defconst egg-log-buffer-remote-site-menu #4#)) egg-log-buffer-mode-commit-menu (lambda (#5=#:defconst-tmp-var) (defconst egg-log-buffer-mode-commit-menu #5#))] 2)
(defalias 'egg-log-commit-line-menu-heading #[(pos &optional prefix) "\306\307\"\306\310\"\306\311\"	\206\312\211:\203A\313\314	\fA\315=\203(\316\202;\fA\317=\2033\320\202;\fA\321=\205;\322\f@$\202\234:\203P\323	\324!@Q\202\234\n;\203\233	\325\326\n\327\330\331
F$%$$&\332\333!'\334\216r'q\210\335\336&\337\340\337$&\341U\205\224\342edeV\203\222dS\202\223d\".!Q\202\234\343,\207" [pos prefix commit references ref rev get-text-property :ref :references :commit "(Git/Egg)" format "%s %s: %s" :head "Branch" :remote "Remote" :tag "Tag" "Ref: " last " Commit: " file-name-nondirectory "name-rev" "--always" "--name-only" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "No Commit Here" args egg-git-command program #1#] 11])
(defalias 'egg-log-commit-mouse-menu-heading #[(&optional prefix) "\211\211:\203\306	8:\203\306\202\307	8\202 \310 `\311\312F)\211@)\211\205-\313!	\211:\203F\306	8:\203@\306\202A\307	8\202L\310 `\311\312F)\314\n8\206e\nA@:\203b\nA@@\202e\nA@)\315
\",\207" [last-command-event event position window buffer pos 2 1 selected-window (0 . 0) 0 window-buffer 5 egg-log-commit-line-menu-heading prefix] 5])
(defalias 'egg-log-popup-commit-line-menu-1 #[(event generic-menu) "\211:\203\3068:\203\306\202\3078\202\310 `\311\312F)\211@)\211\205+\313\n!\211:\203D\3068:\203>\306\202?\3078\202J\310 `\311\312F)\314	8\206c	A@:\203`	A@@\202c	A@)\315\211\315\316!\205\267\212\317\320!\321\216rq\210\210+\fb\210\322\323\f!DA\244\324 \210\325
\"\211\205\245\326
\327\330\"\"\211\205\266\331!\205\266\332!).\207" [event position window buffer pos menu 2 1 selected-window (0 . 0) 0 window-buffer 5 nil bufferp generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) keymap egg-log-commit-line-menu-heading force-mode-line-update x-popup-menu lookup-key apply vector commandp call-interactively keys cmd #1# generic-menu] 6])
(defalias 'egg-log-popup-local-ref-menu #[(event) "\302	\"\207" [event egg-log-buffer-local-ref-menu egg-log-popup-commit-line-menu-1] 3 nil "e"])
(defalias 'egg-log-popup-remote-ref-menu #[(event) "\302	\"\207" [event egg-log-buffer-remote-ref-menu egg-log-popup-commit-line-menu-1] 3 nil "e"])
(defalias 'egg-log-popup-remote-site-menu #[(event) "\302	\"\207" [event egg-log-buffer-remote-site-menu egg-log-popup-commit-line-menu-1] 3 nil "e"])
(defalias 'egg-log-popup-commit-line-menu #[(event) "\302	\"\207" [event egg-log-buffer-commit-line-menu egg-log-popup-commit-line-menu-1] 3 nil "e"])
(byte-code "\302B\306\307\310!!\210\311	\312\310\nB#\210\n\311\313\314#\210\311\315\316#\210\311\317\320#\210\311\321\322#\210\311\323\324#\210\311\325\326\327\f\330\331\257#\210\311\332\333#\210\311\334\335#\210\311\336\337#\210\311\340\341#\210\311\342\343#\210)\344B\345\346\347\350\351\352\353\354\355\356\257\357 @\360A\361\362!B\363\216rBq\210\364@!\210\365 C\366\216\367\370\371
\372#!c\210eb\210\373\374\360\375#\203\310\376\377\224\377\225\201D\201E$\210A\203\302\376A\201F\224S\201D\201G$\210`A\202\230A\203\334\376A\201H \201D\201G$\210\201I .\201J\347\201K\201L\201M\201N\201O\201P\201Q\201R\201S\201T\201U\201V\201W\201X\347\257\357 @\360A\361\362!B\363\216rBq\210\364@!\210\365 C\366\216\367\370\371
\372#!c\210eb\210\373\374\360\375#\203n
\376\377\224\377\225\201D\201E$\210A\203h
\376A\201F\224S\201D\201G$\210`A\202>
A\203\202
\376A\201H \201D\201G$\210\201I .\201Y\347\201K\201Z\201[\201\\\201]\201^\257\357 @\360A\361\362!B\363\216rBq\210\364@!\210\365 C\366\216\367\370\371
\372#!c\210eb\210\373\374\360\375#\203\373
\376\377\224\377\225\201D\201E$\210A\203\365
\376A\201F\224S\201D\201G$\210`A\202\313
A\203\376A\201H \201D\201G$\210\201I .\201_\347\201`\201a\201b\201c\201d\257\357 @\360A\361\362!B\363\216rBq\210\364@!\210\365 C\366\216\367\370\371
\372#!c\210eb\210\373\374\360\375#\203\205\376\377\224\377\225\201D\201E$\210A\203\376A\201F\224S\201D\201G$\210`A\202UA\203\231\376A\201H \201D\201G$\210\201I .\201e\347\201f\201gD\357 @\360A\361\362!B\363\216rBq\210\364@!\210\365 C\366\216\367\370\371
\372#!c\210eb\210\373\374\360\375#\203\376\377\224\377\225\201D\201E$\210A\203\377\376A\201F\224S\201D\201G$\210`A\202\325A\203\376A\201H \201D\201G$\210\201I .\201h\347\201i\201j\201k\201j\201l\201j\201m\201n\201j\201o\201j\347\260!\207" [current-load-list egg-log-buffer-mode-map egg-log-buffer-menu menu egg-log-buffer-mode-commit-menu strings (lambda (#1=#:defconst-tmp-var) (defconst egg-log-buffer-menu #1#)) make-sparse-keymap "Egg (Git)" define-key [menu-bar egg-log-buffer-mode] [quit] (menu-item "Close History View" egg-quit-buffer) [refresh] (menu-item "Refresh History View" egg-buffer-cmd-refresh) [pickaxe] (menu-item "Search History for Changes" egg-search-changes) [goto] (menu-item "Locate Line in File" egg-log-hunk-cmd-visit-file-other-window :enable (egg-hunk-at-point)) [sp3] ("--") [commit] menu-item (egg-log-commit-mouse-menu-heading "Operations on ") :visible (egg-commit-at-point) [sp1] ("--") [hs] (menu-item "Hide/Show Details" egg-section-cmd-toggle-hide-show :enable (egg-navigation-at-point)) [hs-sub] (menu-item "Hide/Show Details of Subsections" egg-section-cmd-toggle-hide-show-children :enable (egg-navigation-at-point)) [prev] (menu-item "Goto Previous Ref" egg-log-buffer-prev-ref) [next] (menu-item "Goto Next Ref" egg-log-buffer-next-ref) egg-log-buffer-help-text (lambda (#2=#:defconst-tmp-var) (defconst egg-log-buffer-help-text #2#)) #("Common Key Bindings:" 0 20 (face egg-help-header-2)) "\n" "\\<egg-log-buffer-mode-map>" "\\[egg-log-buffer-next-ref]:next thing  " "\\[egg-log-buffer-prev-ref]:previous thing  " "\\[egg-search-changes]:search history  " "\\[egg-status]:show repo's status  " "\\[egg-buffer-cmd-refresh]:redisplay  " "\\[egg-quit-buffer]:quit\n" current-local-map nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) use-local-map match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) substitute-command-keys mapconcat identity "" re-search-forward "\\(\\<[^\n 	:]+\\|[/+.~*=-]\\):" t put-text-property 1 map last-found #3# save-match-data-internal face egg-help-key 0 egg-text-help line-end-position buffer-string #("Extra Key Bindings for a Commit line:" 0 37 (face egg-help-header-2)) "\\<egg-log-commit-map>" "\\[egg-log-buffer-insert-commit]:load details  " "\\[egg-section-cmd-toggle-hide-show]:hide/show details " "\\[egg-section-cmd-toggle-hide-show-children]:hide sub-blocks  " "\\[egg-log-buffer-checkout-commit]:checkout  " "\\[egg-log-buffer-start-new-branch]:start new branch\n" "\\[egg-log-buffer-attach-head]:anchor HEAD  " "\\[egg-log-buffer-tag-commit]:new tag  " "\\[egg-log-buffer-atag-commit]:new annotated tag  " "\\[egg-log-buffer-create-new-branch]:create branch  " "\\[egg-log-buffer-diff-revs]:diff vs HEAD (or BASE)\n" "\\[egg-log-buffer-merge]:merge to HEAD  " "\\[egg-log-buffer-rebase]:rebase HEAD  " "\\[egg-log-buffer-rebase-interactive]:rebase HEAD interactively" #("Extra Key Bindings to prepare a (interactive) rebase:" 0 53 (face egg-help-header-2)) "\\[egg-log-buffer-mark]:mark as BASE " "\\[egg-log-buffer-mark-pick]:mark as picked  " "\\[egg-log-buffer-mark-squash]:mark as squashed  " "\\[egg-log-buffer-mark-edit]:mark as edited  " "\\[egg-log-buffer-unmark]:unmark\n" #("Extra Extra Key Bindings for a Ref:" 0 35 (face egg-help-header-2)) "\\<egg-log-local-ref-map>" "\\[egg-log-buffer-rm-ref]:delete ref  " "\\[egg-log-buffer-push-to-local]:update another local ref  " "\\[egg-log-buffer-push-to-remote]:upload to remote  " "\\[egg-log-buffer-push-head-to-local]:download\n" #("Extra Key Bindings for a Diff Block:" 0 36 (face egg-help-header-2)) "\\<egg-log-diff-map>" "\\[egg-log-diff-cmd-visit-file-other-window]:visit version/line\n" #("References:" 0 11 (face egg-help-header-2)) #("local-branch" 0 12 (face egg-branch-mono)) " " #("lightweight-tag" 0 15 (face egg-tag-mono)) #("annotated-tag" 0 13 (face egg-an-tag-mono)) #("remote/" 0 7 (face egg-remote-mono)) #("branch" 0 6 (face egg-branch-mono)) #("  HEAD  " 0 8 (face egg-log-HEAD))] 30)
#@38 Compare HEAD against the rev at POS.
(defalias 'egg-log-buffer-diff-revs #[(pos) "\305\306\"\307\310!\211\203\305\n\306\"\202\311\312	\203!	;\204&\313\314\"\210	\230\2032\313\315	#\210\316\317	\"!\320\f\321\",\207" [pos rev mark base buf egg-log-buffer-get-rev-at :symbolic egg-log-buffer-find-first-mark 42 "HEAD" nil error "No commit here to compare against %s!" "It's pointless to compare %s vs %s!" egg-do-diff egg-build-diff-info pop-to-buffer t] 5 (#$ . 217886) "d"])
(defalias 'egg-log #[(&optional all) "t\205\306C\307>\204	\206\310!)t\311\303!\203\"\202B\312\303!\210\313 \2067\n\2057\314\303!\210\315\316\f\"\317\320\321Q!\322L\210)\323
!\324\325!%\326&r%q\210\327'>\203`(&\312\330!\210)\203q\331\332\333\334F\202v\331\335\333\336F&\203\205\337\340&#\210\341%\342\"\210)\343%\344\"-\207" [args egg-internal-current-state error-if-not-git egg-git-dir default-directory git-dir :error-if-not-git :force egg-get-repo-state local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory egg-get-log-buffer create nil :log egg-internal-log-buffer-closure :description #("history scope: all refs" 0 15 (face egg-text-2) 15 23 (face egg-term)) :closure #[nil "\306` \210	b\210\307\n\211\f
%*\207" [log-insert-func beg egg-log-commit-map egg-log-local-ref-map egg-log-remote-ref-map egg-log-remote-site-map egg-run-git-log-all egg-decorate-log] 6] #("history scope: HEAD" 0 15 (face egg-text-2) 15 19 (face egg-term)) #[nil "\306` \210	b\210\307\n\211\f
%*\207" [log-insert-func beg egg-log-commit-map egg-log-local-ref-map egg-log-remote-ref-map egg-log-remote-site-map egg-run-git-log-HEAD egg-decorate-log] 6] plist-put :help egg-log-buffer-redisplay init pop-to-buffer t buf help egg-show-key-help-in-buffers egg-log-buffer-help-text all] 4 nil "P"])
(defalias 'egg-file-log-buffer-mode #[nil "\306 \210\307\310\311\312\307\313
!\210\314\315!\210\316
\314\317!\210\320\321\322\323!\210\314\324!\210\325 \326\327\330 #\210\314\331!\210\332\333\320\"\211\207" [buffer-read-only major-mode mode-name mode-line-process truncate-lines egg-log-buffer-mode-map kill-all-local-variables t egg-file-log-buffer-mode "Egg-FileHistory" "" use-local-map make-local-variable egg-buffer-refresh-func egg-log-buffer-simple-redisplay egg-log-buffer-comment-column 0 nil run-mode-hooks egg-file-log-buffer-mode-hook egg-orig-window-config current-window-configuration message "buffer %s win-cfg %s" buffer-name egg-internal-buffer-obarray make-vector 67 buffer-invisibility-spec] 4])
(defalias 'egg-get-file-log-buffer #[(&optional create) "\303\304\"\305	!\203r	q\210\n\306=\204\306 \210)	)\207" [create buf major-mode egg-get-buffer "*%s-file-log@%s*" bufferp egg-file-log-buffer-mode] 3])
(defalias 'egg-update-file-log-buffer-no-create #[nil "\302 \303!\205rq\210\304	!\205	!))\207" [buf egg-buffer-refresh-func egg-get-file-log-buffer bufferp functionp] 2])
(add-hook 'egg-buffers-refresh-hook 'egg-update-file-log-buffer-no-create)
(defalias 'egg-run-git-file-log-HEAD #[(file) "\305\306\307\310\"\311\312\313\314\315	\257\316\317\f\320\320\n&\321U*\207" [egg-log-HEAD-max-len file args buffer egg-git-command t "log" format "--max-count=%d" "--graph" "--topo-order" "--pretty=oneline" "--decorate" "--" apply call-process nil 0] 9])
(put 'egg-run-git-file-log-HEAD 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-run-git-file-log-all #[(file) "\305\306\307\310\"\311\312\313\314\315\316	\257	\317\320\f\321\321\n&\322U*\207" [egg-log-all-max-len file args buffer egg-git-command t "log" format "--max-count=%d" "--graph" "--topo-order" "--pretty=oneline" "--decorate" "--all" "--" apply call-process nil 0] 10])
(byte-code "\303\304\305\306#\210\307B\310\311\312!\313	\n\"\210\314	\315\316#\210\314	\317\316#\210	)!\207" [current-load-list map egg-log-commit-base-map put egg-run-git-file-log-all byte-optimizer byte-compile-inline-expand egg-log-commit-simple-map (lambda (#1=#:defconst-tmp-var) (defconst egg-log-commit-simple-map #1#)) make-sparse-keymap "Egg:FileLogCommit" set-keymap-parent define-key "
" egg-log-locate-commit ""] 5)
(defalias 'egg-log-buffer-decorate-logs-simple #[(log-insert-func arg) "`	\n!\210dSf\304U\204db\210\304c\210b\210\305\211\211\211$)\207" [beg log-insert-func arg egg-log-commit-simple-map 10 egg-decorate-log] 5])
(put 'egg-log-buffer-decorate-logs-simple 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-log-buffer-simple-redisplay #[(buffer &optional init) "rq\210\303	\n\")\207" [buffer egg-internal-log-buffer-closure init egg-generic-display-logs] 3])
(byte-code "\306B\307\310\311\312\313\314\315\316\317\257\320 \321\322\323!\324\216r\fq\210\325\n!\210\326 \327\216\330\331\332	\333#!c\210eb\210\334\335\321\336#\203W\337\340\224\340\225\341\342$\210\203R\337\343\224S\341\344$\210`\2024\203c\337\345 \341\344$\210\346 .\347\311\350\351\352\353\354\355\356\357\360\361\362\257\320 \321\322\323!\324\216r\fq\210\325\n!\210\326 \327\216\330\331\332	\333#!c\210eb\210\334\335\321\336#\203\276\337\340\224\340\225\341\342$\210\203\271\337\343\224S\341\344$\210`\202\233\203\312\337\345 \341\344$\210\346 .\363\311\364\365D\320 \321\322\323!\324\216r\fq\210\325\n!\210\326 \327\216\330\331\332	\333#!c\210eb\210\334\335\321\336#\203
\337\340\224\340\225\341\342$\210\203
\337\343\224S\341\344$\210`\202\370\203'
\337\345 \341\344$\210\346 .\260	!\207" [current-load-list strings map last-found #1=#:temp-buffer save-match-data-internal egg-file-log-help-text (lambda (#2=#:defconst-tmp-var) (defconst egg-file-log-help-text #2#)) #("Common Key Bindings:" 0 20 (face egg-help-header-2)) "\n" "\\<egg-log-buffer-mode-map>" "\\[egg-log-buffer-next-ref]:next thing  " "\\[egg-log-buffer-prev-ref]:previous thing  " "\\[egg-status]:show repo's status  " "\\[egg-buffer-cmd-refresh]:redisplay  " "\\[egg-quit-buffer]:quit\n" current-local-map nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) use-local-map match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) substitute-command-keys mapconcat identity "" re-search-forward "\\(\\<[^\n 	:]+\\|[/+.~*=-]\\):" t put-text-property 1 face egg-help-key 0 egg-text-help line-end-position buffer-string #("Extra Key Bindings for a Commit line:" 0 37 (face egg-help-header-2)) "\\<egg-log-commit-simple-map>" "\\[egg-log-locate-commit]:locate commit in history  " "\\[egg-log-buffer-insert-commit]:load details  " "\\[egg-section-cmd-toggle-hide-show]:hide/show details  " "\\[egg-section-cmd-toggle-hide-show-children]:hide sub-blocks\n" "\\[egg-log-buffer-attach-head]:anchor HEAD  " "\\[egg-log-buffer-checkout-commit]:checkout  " "\\[egg-log-buffer-start-new-branch]:start new branch  " "\\[egg-log-buffer-create-new-branch]:create branch\n" "\\[egg-log-buffer-tag-commit]:new tag  " "\\[egg-log-buffer-atag-commit]:new annotated tag\n" #("Extra Key Bindings for a Diff Block:" 0 36 (face egg-help-header-2)) "\\<egg-log-diff-map>" "\\[egg-log-diff-cmd-visit-file-other-window]:visit version/line\n"] 17)
(defalias 'egg-file-log #[(file-name &optional all) "\203\n\306!\204\307\310\"\210\311\312!\313\314\315\316#P\317rq\210\320\305!\210\f\203:\321\n\322\323\324\325\317\326\327EE\257\202H\321\n\322\330\324\325\317\326\331EE\257\332!>\203S\"	\203]\333
\334	#\210)\335\336\"\210\337\340\"+\207" [file-name help title buffer all egg-internal-log-buffer-closure file-exists-p error "File does not exist: %s" egg-get-file-log-buffer create #("history of " 0 11 (face egg-text-2)) propertize face egg-term nil make-local-variable :title :description #("scope: all refs" 0 7 (face egg-text-2) 7 15 (face egg-branch-mono)) :closure lambda egg-log-buffer-decorate-logs-simple #'egg-run-git-file-log-all #("scope: HEAD" 0 7 (face egg-text-2) 7 11 (face egg-branch-mono)) #'egg-run-git-file-log-HEAD :file-log plist-put :help egg-log-buffer-simple-redisplay init pop-to-buffer t egg-show-key-help-in-buffers egg-file-log-help-text] 10 nil (list (buffer-file-name) current-prefix-arg)])
(byte-code "\303B\304\305\306!\307	\n\"\210\310	\311\312#\210\310	\313\314#\210\310	\315\316#\210\310	\317\320#\210\310	\321\320#\210	)!\207" [current-load-list map egg-hide-show-map egg-query:commit-commit-map (lambda (#1=#:defconst-tmp-var) (defconst egg-query:commit-commit-map #1#)) make-sparse-keymap "Egg:LogQueryCommit" set-keymap-parent define-key " " egg-log-buffer-insert-commit "o" egg-log-buffer-checkout-commit "a" egg-log-buffer-attach-head "
" egg-log-locate-commit ""] 5)
(defalias 'egg-log-locate-commit #[(pos) "\304\305\"\306\307!r	q\210\310\303!\210\311\312\313\314\315\n\316\317#R\320\321F\322	!\210e\211\203;\304\305\"\n\232\204;\323\305\"\211\204))\324	\325\"\210\326!\210\327 *\207" [pos buf sha1 egg-internal-log-buffer-closure get-text-property :commit egg-get-log-buffer create make-local-variable :description #("history scope: " 0 15 (face egg-text-2)) #("HEAD" 0 4 (face egg-term)) #(" and " 0 5 (face egg-text-2)) propertize face egg-term :closure #[nil "\306` \210	b\210\307\n\211\f
%*\207" [log-insert-func beg egg-log-commit-map egg-log-local-ref-map egg-log-remote-ref-map egg-log-remote-site-map (lambda nil (egg-git-ok t "log" "--max-count=10000" "--graph" "--topo-order" "--pretty=oneline" "--decorate" "HEAD" sha1)) egg-decorate-log] 6] egg-log-buffer-redisplay next-single-property-change pop-to-buffer t egg-log-buffer-goto-pos recenter] 9 nil "d"])
(defalias 'egg-query:commit-buffer-rerun #[(buffer &optional init) "rq\210\303	\304\305#\210\306	\n\")\207" [buffer egg-internal-log-buffer-closure init plist-put :title #("History Search" 0 14 (face egg-branch)) egg-generic-display-logs] 4 nil (list (current-buffer))])
(defalias 'egg-query:commit-buffer-mode #[nil "\306 \210\307\310\311\312\307\313
!\210\314\315!\210\316
\314\317!\210\320\314\321!\210\322\316\323\324!\210\314\325!\210\326 \327\330\331 #\210\314\332!\210\333\334\322\"\211\207" [buffer-read-only major-mode mode-name mode-line-process truncate-lines egg-buffer-mode-map kill-all-local-variables t egg-query:commit-buffer-mode "Egg-Query:Commit" "" use-local-map make-local-variable egg-internal-log-buffer-closure nil egg-buffer-refresh-func egg-query:commit-buffer-rerun egg-log-buffer-comment-column 0 run-mode-hooks egg-query:commit-buffer-mode-hook egg-orig-window-config current-window-configuration message "buffer %s win-cfg %s" buffer-name egg-internal-buffer-obarray make-vector 67 buffer-invisibility-spec] 4])
(defalias 'egg-get-query:commit-buffer #[(&optional create) "\303\304\"\305	!\203r	q\210\n\306=\204\306 \210)	)\207" [create buf major-mode egg-get-buffer "*%s-query:commit@%s*" bufferp egg-query:commit-buffer-mode] 3])
(defalias 'egg-insert-n-decorate-pickaxed-logs #[(string) "`\306\307\310\311\312	PF\313\314\f\315\315\n&\316U\210*b\210\317
\211\211\211$)\207" [beg string args buffer egg-git-command egg-query:commit-commit-map t "log" "--pretty=oneline" "--decorate" "-S" apply call-process nil 0 egg-decorate-log] 7])
(defalias 'egg-search-changes #[(string) "t\306\301!\203\f	\202,\307\301!\210\310 \206!\205!\311\301!\210\312\313\n\"\314\315	\316Q!\317L\210	)\320!\321\322!\323\324
\325\326#P!\327\330\331
DE\"r\fq\210\307\332!\210\333!\334\"F\335\f\336\"\210)\337\f\340\"-\207" [error-if-not-git egg-git-dir default-directory git-dir buf string local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory egg-get-query:commit-buffer create #("Commits containing: " 0 20 (face egg-text-2)) propertize face egg-term lambda nil egg-insert-n-decorate-pickaxed-logs egg-internal-log-buffer-closure :description :closure egg-query:commit-buffer-rerun init pop-to-buffer t desc func] 5 nil "ssearch history for changes containing: "])
(defalias 'egg-run-reflog-branch #[(branch) "\305\306\307\310\311\312\313\"	\257\314\315\f\316\316\n&\317U*\207" [egg-log-HEAD-max-len branch args buffer egg-git-command t "log" "-g" "--pretty=oneline" "--decorate" format "--max-count=%d" apply call-process nil 0] 8])
(put 'egg-run-reflog-branch 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-reflog-buffer-mode #[nil "\304 \210\305\306\307\310!\210\311\302!\210\312 \313\314\315 \n#\210\311\303!\210\316\317\320\"\211\207" [major-mode mode-name egg-orig-window-config egg-internal-buffer-obarray egg-file-log-buffer-mode egg-reflog-buffer-mode "Egg-RefLog" run-mode-hooks egg-reflog-buffer-mode-hook make-local-variable current-window-configuration message "buffer %s win-cfg %s" buffer-name make-vector 67 0] 4])
(defalias 'egg-get-reflog-buffer #[(&optional create) "\303\304\"\305	!\203r	q\210\n\306=\204\306 \210)	)\207" [create buf major-mode egg-get-buffer "*%s-reflog@%s*" bufferp egg-reflog-buffer-mode] 3])
(defalias 'egg-update-reflog-buffer-no-create #[nil "\302 \303!\205rq\210\304	!\205	!))\207" [buf egg-buffer-refresh-func egg-get-reflog-buffer bufferp functionp] 2])
(byte-code "\306\307\310\"\210\311B\312\313\314\315\316\317\320\321\322\257\323 \324\325\326!\327\216r\fq\210\330\n!\210\331 \332\216\333\334\335	\336#!c\210eb\210\337\340\324\341#\203\\\342\343\224\343\225\344\345$\210\203W\342\346\224S\344\347$\210`\2029\203h\342\350 \344\347$\210\351 .\352\314\353\354\355\356\357\360\361\362\363\257	\323 \324\325\326!\327\216r\fq\210\330\n!\210\331 \332\216\333\334\335	\336#!c\210eb\210\337\340\324\341#\203\301\342\343\224\343\225\344\345$\210\203\274\342\346\224S\344\347$\210`\202\236\203\315\342\350 \344\347$\210\351 .\364\314\365\366D\323 \324\325\326!\327\216r\fq\210\330\n!\210\331 \332\216\333\334\335	\336#!c\210eb\210\337\340\324\341#\203
\342\343\224\343\225\344\345$\210\203
\342\346\224S\344\347$\210`\202\373\203*
\342\350 \344\347$\210\351 .\314\260\n!\207" [current-load-list strings map last-found #1=#:temp-buffer save-match-data-internal add-hook egg-buffers-refresh-hook egg-update-reflog-buffer-no-create egg-reflog-help-text (lambda (#2=#:defconst-tmp-var) (defconst egg-reflog-help-text #2#)) #("Common Key Bindings:" 0 20 (face egg-help-header-2)) "\n" "\\<egg-log-buffer-mode-map>" "\\[egg-log-buffer-next-ref]:next thing  " "\\[egg-log-buffer-prev-ref]:previous thing  " "\\[egg-status]:show repo's status  " "\\[egg-buffer-cmd-refresh]:redisplay  " "\\[egg-quit-buffer]:quit\n" current-local-map nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) use-local-map match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) substitute-command-keys mapconcat identity "" re-search-forward "\\(\\<[^\n 	:]+\\|[/+.~*=-]\\):" t put-text-property 1 face egg-help-key 0 egg-text-help line-end-position buffer-string #("Extra Key Bindings for a Commit line:" 0 37 (face egg-help-header-2)) "\\<egg-log-commit-simple-map>" "\\[egg-log-locate-commit]:locate commit in history  " "\\[egg-log-buffer-insert-commit]:load details  " "\\[egg-section-cmd-toggle-hide-show]:hide/show details  " "\\[egg-section-cmd-toggle-hide-show-children]:hide sub-blocks\n" "\\[egg-log-buffer-attach-head]:anchor HEAD  " "\\[egg-log-buffer-checkout-commit]:checkout  " "\\[egg-log-buffer-tag-commit]:new tag  " "\\[egg-log-buffer-atag-commit]:new annotated tag\n" #("Extra Key Bindings for a Diff Block:" 0 36 (face egg-help-header-2)) "\\<egg-log-diff-map>" "\\[egg-log-diff-cmd-visit-file-other-window]:visit version/line\n"] 15)
(defalias 'egg-reflog #[(branch) "\204\306\307C\310	>\204\n\206\311	!)\312\313!\314\315\316\317#P\320r
q\210\321\322!\210\323\f\324\325\320\326\327EEF\330>\203E \203P\331\332#\210)\333
\334\"\210\335
\336\",\207" [branch args egg-internal-current-state help title buffer "HEAD" :error-if-not-git :force egg-get-repo-state egg-get-reflog-buffer create #("history of " 0 11 (face egg-text-2)) propertize face egg-branch nil make-local-variable egg-internal-log-buffer-closure :title :closure lambda egg-log-buffer-decorate-logs-simple #'egg-run-reflog-branch :reflog plist-put :help egg-log-buffer-simple-redisplay init pop-to-buffer t egg-show-key-help-in-buffers egg-reflog-help-text] 8 nil (list (if current-prefix-arg (egg-read-rev "show history of ref: " "HEAD") "HEAD"))])
(defalias 'egg-log-buffer-reflog-ref #[(pos) "\301\302\303\"@!\207" [pos egg-reflog get-text-property :ref] 4 nil "d"])
(defalias 'egg-list-stash #[(&optional ignored) "\303\304\305\306E\307\310\n\311	\311&\312U*\207" [args buffer egg-git-command t "stash" "list" "--pretty=oneline" apply call-process nil 0] 7])
(put 'egg-list-stash 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-stash-buffer-mode #[nil "\305 \210\306!\210\307\310\311\312!\210\313\303!\210\314 \315\316\317 #\210\313\304!\210\320\321\322\"\211\207" [egg-stash-buffer-mode-map major-mode mode-name egg-orig-window-config egg-internal-buffer-obarray egg-file-log-buffer-mode use-local-map egg-stash-buffer-mode "Egg-Stash" run-mode-hooks egg-stash-buffer-mode-hook make-local-variable current-window-configuration message "buffer %s win-cfg %s" buffer-name make-vector 67 0] 4])
(defalias 'egg-get-stash-buffer #[(&optional create) "\303\304\"\305	!\203r	q\210\n\306=\204\306 \210)	)\207" [create buf major-mode egg-get-buffer "*%s-stash@%s*" bufferp egg-stash-buffer-mode] 3])
(defalias 'egg-update-stash-buffer-no-create #[nil "\302 \303!\205rq\210\304	!\205	!))\207" [buf egg-buffer-refresh-func egg-get-stash-buffer bufferp functionp] 2])
(add-hook 'egg-buffers-refresh-hook 'egg-update-stash-buffer-no-create)
(defalias 'egg-stash-buffer-do-insert-stash #[(pos) "\212\306\307\"\306\310\"\311\312\211b\210\313 Tb\210`\311\314\315\316\317\320
\257&'\321\322(\312'\312&&\323U*\204?\324\325
\"\210`\326\307
\n	\nS\312\f&\210\327\n	\330)$\210\331\332\n\333	\334\335\336\337\340*\341+&\f\210\nb\210\342\n\343\"\344y\210\345\312!.\207" [pos end beg inhibit-read-only nav stash get-text-property :stash :navigation t nil line-end-position "stash" "show" "-p" "--src-prefix=BASE:/" "--dst-prefix=WIP:/" apply call-process 0 error "error calling git stash show %s!" egg-delimit-section put-text-property keymap egg-decorate-diff-section :begin :end :src-prefix "BASE:/" :dst-prefix "WIP:/" :diff-map :hunk-map next-single-property-change :diff 1 set-buffer-modified-p args buffer egg-git-command egg-section-map egg-log-diff-map egg-log-hunk-map] 13])
(defalias 'egg-stash-buffer-show #[(pos) "\303\304\"\211\205
\305	\306\"\305\306\"\n\232?\205\307!*\207" [pos next stash next-single-property-change :diff get-text-property :stash egg-stash-buffer-do-insert-stash] 4 nil "d"])
(defalias 'egg-stash-buffer-pop #[(&optional no-confirm) "\304\305\306D\307\310\n\304	\304&\311U*\204\312 \210\313\314!\210\204&\315\316!\2051\317 \2051\320\321!\210\312 \207" [args buffer egg-git-command no-confirm nil "diff" "--quiet" apply call-process 0 egg-status error "Cannot aplly stash on dirty work-dir" y-or-n-p "pop and apply last WIP to repo? " egg-do-pop-stash message "GIT-STASH> successfully popped and applied last WIP"] 7 nil "P"])
(defalias 'egg-stash-buffer-apply #[(pos &optional no-confirm) "\306\307\310D\311\312\n\306	\306&\313U*\204\314 \210\315\316!\210\317\320\"\211\205D\f;\205D
\2047\321\322\323\f\"!\205D\324\f!\205D\325\326\f\"\210\314 )\207" [args buffer egg-git-command pos stash no-confirm nil "diff" "--quiet" apply call-process 0 egg-status error "Cannot aplly stash on dirty work-dir" get-text-property :stash y-or-n-p format "apply WIP %s to repo? " egg-do-apply-stash message "GIT-STASH> successfully applied %s"] 8 nil "dP"])
(defalias 'egg-buffer-stash-wip #[(msg) "\301!\210\302 \207" [msg egg-do-stash-wip egg-stash] 2 nil "sshort description of this work-in-progress: "])
(byte-code "\304B\305\306\307!\310	\n\"\210\311	\312\313#\210\311	\314\315#\210\311	\316\317#\210\311	\320\321#\210\311	\322\321#\210\311	\323\324#\210	)!\210\325B\326\306\327!\310	\"\210\311	\330\331#\210\311	\320\332#\210\311	\333\332#\210\311	\334\335#\210\311	\336\335#\210\311	\337\340#\210	)!\207" [current-load-list map egg-buffer-mode-map egg-hide-show-map egg-stash-buffer-mode-map (lambda (#1=#:defconst-tmp-var) (defconst egg-stash-buffer-mode-map #1#)) make-sparse-keymap "Egg:StashBuffer" set-keymap-parent define-key "n" egg-stash-buffer-next-stash "s" egg-status "p" egg-stash-buffer-prev-stash "
" egg-stash-buffer-pop "o" "l" egg-log egg-stash-map (lambda (#2=#:defconst-tmp-var) (defconst egg-stash-map #2#)) "Egg:Stash" " " egg-stash-buffer-show egg-stash-buffer-apply "a" "" egg-stash-buffer-drop "x" "X" egg-stash-buffer-clear] 5)
#@25 Move to the next stash.
(defalias 'egg-stash-buffer-next-stash #[nil "\300\301!\207" [egg-buffer-cmd-next-block :stash] 2 (#$ . 238901) nil])
#@29 Move to the previous stash.
(defalias 'egg-stash-buffer-prev-stash #[nil "\300\301!\207" [egg-buffer-cmd-prev-block :stash] 2 (#$ . 239049) nil])
(byte-code "\306B\307\310\311\312\313\314\315\316\317\257\320 \321\322\323!\324\216r\fq\210\325\n!\210\326 \327\216\330\331\332	\333#!c\210eb\210\334\335\321\336#\203W\337\340\224\340\225\341\342$\210\203R\337\343\224S\341\344$\210`\2024\203c\337\345 \341\344$\210\346 .\347\311\350\351\352\353\354\355\257\320 \321\322\323!\324\216r\fq\210\325\n!\210\326 \327\216\330\331\332	\333#!c\210eb\210\334\335\321\336#\203\271\337\340\224\340\225\341\342$\210\203\264\337\343\224S\341\344$\210`\202\226\203\305\337\345 \341\344$\210\346 .\311\260!\207" [current-load-list strings map last-found #1=#:temp-buffer save-match-data-internal egg-stash-help-text (lambda (#2=#:defconst-tmp-var) (defconst egg-stash-help-text #2#)) #("Common Key Bindings:" 0 20 (face egg-help-header-2)) "\n" "\\<egg-stash-buffer-mode-map>" "\\[egg-stash-buffer-next-stash]:next stash  " "\\[egg-stash-buffer-prev-stash]:previous stash  " "\\[egg-status]:show repo's status  " "\\[egg-buffer-cmd-refresh]:redisplay  " "\\[egg-quit-buffer]:quit\n" current-local-map nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) use-local-map match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) substitute-command-keys mapconcat identity "" re-search-forward "\\(\\<[^\n 	:]+\\|[/+.~*=-]\\):" t put-text-property 1 face egg-help-key 0 egg-text-help line-end-position buffer-string #("Extra Key Bindings for a Stash line:" 0 36 (face egg-help-header-2)) "\\<egg-stash-map>" "\\[egg-stash-buffer-apply]:apply\n" "\\[egg-stash-buffer-show]:load details\n" "\\[egg-stash-buffer-drop]:delete stash\n" "\\[egg-stash-buffer-pop]:pop and apply stash\n" "\\[egg-stash-buffer-clear]:delete all\n"] 12)
(defalias 'egg-decorate-stash-list #[(&optional line-map) "`\306\211\211\211\211\211\211\211\212\307\310\306\311#\205W\312\224\313\225\314\224\312\225\315
\"\315\f\"\316
\fT\317	\320	\321\257#\210\322
\323\324$\210\322\f\323\325$\210\202.\n\207" [msg name msg-end msg-beg end beg nil re-search-forward "^\\(stash@{[0-9]+}\\): +\\(.+\\)$" t 0 1 2 buffer-substring-no-properties add-text-properties :navigation :stash keymap put-text-property face egg-stash-mono egg-text-2 stash-end stash-beg start line-map] 9])
(defalias 'egg-stash-buffer-decorate-stash-list #[nil "`\306\307\310\311\312E\313\314\f\306\306\n&\315U*\210)dSf\316U\204'db\210\316c\210b\210\317
!)\207" [beg ignored args buffer egg-git-command egg-stash-map nil t "stash" "list" "--pretty=oneline" apply call-process 0 10 egg-decorate-stash-list] 7])
(put 'egg-stash-buffer-decorate-stash-list 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-stash #[nil "\306C\307>\204
	\206\310!)\311\312!\313\211\314r\fq\210\315\305!\210\316\317\320F\321>\2034\n\203>\322
\323\n#\210)\324\f\325\"\210\326\f\327\",\207" [args egg-internal-current-state help title buffer egg-internal-log-buffer-closure :error-if-not-git :force egg-get-repo-state egg-get-stash-buffer create nil #("Stash(es)" 0 9 (face egg-branch)) make-local-variable :title :closure egg-stash-buffer-decorate-stash-list :stash plist-put :help egg-log-buffer-simple-redisplay init pop-to-buffer t egg-show-key-help-in-buffers egg-stash-help-text] 4 nil nil])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list egg-internal-annotated-tag-name default-boundp set-default nil egg-internal-annotated-tag-target] 3)
(defalias 'egg-tag-msg-create-tag #[nil "\306	\n\307\310\311\312\f\257\313B\306
$+\211\2053\314\315\316#\210\306\317 \320\321!*)\207" [output egg-log-msg-text-beg egg-log-msg-text-end egg-internal-annotated-tag-name egg-internal-annotated-tag-target args nil "tag" "-a" "-F" "-" egg-sync-do egg-show-git-output -1 "GIT-ANNOTATED-TAG" egg-get-repo-state run-hooks egg-buffers-refresh-hook end beg egg-git-command newly-read-state egg-internal-current-state] 9])
(defalias 'egg-tag:msg-buffer-mode #[nil "\306 \210\307\310\311\312\313!\210\314\315\316!\210\312\304!\210\317 \320\321\322 \f#\210\312\305!\210\323\324\325\"\211\207" [major-mode mode-name mode-line-process buffer-invisibility-spec egg-orig-window-config egg-internal-buffer-obarray egg-log-msg-mode egg-tag:msg-buffer-mode "Egg-Tag:Msg" "" make-local-variable egg-internal-annotated-tag-name nil run-mode-hooks egg-tag:msg-mode-hook current-window-configuration message "buffer %s win-cfg %s" buffer-name make-vector 67 0] 4])
(defalias 'egg-get-tag:msg-buffer #[(&optional create) "\303\304\"\305	!\203r	q\210\n\306=\204\306 \210)	)\207" [create buf major-mode egg-get-buffer "*%s-tag:msg@%s*" bufferp egg-tag:msg-buffer-mode] 3])
(defalias 'egg-create-annotated-tag #[(name commit-1) "\306\307\301!\203\f	\202,\310\301!\210\311 \206!\205!\312\301!\210\313\314\n\"\315\316	\317Q!\320L\210	)\321!\322\323!\324\325
E<=<<>\326\327!?\330\216r?q\210\331\332>\306\333\306<&\334U\205o\335edeV\203mdS\202nd\".\211@A\336\337\340AF<=<<>\326\327!?\330\216r?q\210\331\332>\306\333\306<&\334U\205\261\335edeV\203\257dS\202\260d\".BCC@\204\303\313\341
\"\210\342\f\333\"\210\333C\343 \210\310\344!\210\345$\310\346!\210D&\310\347!\210@'\350\351\352D\353\354#\355\356\351\352@\353\357#\360\361\351\352B\353\357#\360\362\352\353\363#\360\364\261\210\365e`\366\333$\210\365e`\367\306$\210\360c\210\310\370!\210\371 8\3728\306\"\210\310\373!\210\371 ;\372;\333\".\207" [error-if-not-git egg-git-dir default-directory git-dir buf commit-1 nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" file-name-directory egg-get-tag:msg-buffer create "rev-parse" "--verify" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties "describe" "--always" "--tags" "Bad commit: %s" pop-to-buffer erase-buffer egg-log-msg-action egg-tag-msg-create-tag egg-internal-annotated-tag-name egg-internal-annotated-tag-target #("Create Annotated Tag" 0 20 (face egg-text-2)) " " propertize face egg-branch "\n\n" #("on commit:" 0 10 (face egg-text-2)) font-lock-string-face "\n" #("aka:" 0 4 (face egg-text-2)) #("Repository: " 0 12 (face egg-text-2)) font-lock-constant-face #("----------------- Tag Message (type C-c C-c when done) ---------------" 0 70 (face font-lock-comment-face)) put-text-property read-only rear-sticky egg-log-msg-text-beg point-marker set-marker-insertion-type egg-log-msg-text-end args egg-git-command program #1# commit rev pretty inhibit-read-only name] 18])
(defalias 'egg-file-toggle-blame-mode #[(save) "\305 \204	\306\307!\210\310 \203\204\311\312\313\305 \"!\203\314 \210\315\211\316\317\320`!\"\210\n\203Lp\212\214rq\210~\210\316\321\322ed\"\"+\210)\323\315!\210	\211\202Y\324p\325\f#\210\323\315!\210\326\211*\207" [save buffer-was-readonly blame-was-on buffer buffer-read-only buffer-file-name error "Current buffer has no associated file!" buffer-modified-p y-or-n-p format "save %s first? " save-buffer nil mapc #[(ov) "\303\304\"\205\305\303\304\"\306\"\307\211\207" [ov buffer-was-readonly blame-was-on overlay-get :blame plist-get :buffer-read-only t] 4] overlays-at #[(ov) "\301\302\"\205\n\303!\207" [ov overlay-get :blame delete-overlay] 3] overlays-in set-buffer-modified-p egg-file-buffer-blame-on :buffer-read-only t] 5 nil "P"])
#@42 Diff the current file in another window.
(defalias 'egg-file-diff #[(&optional ask) "\306 \204	\307\310!\210\311\306!\312\313\314	F\315 \316\216\317\f\n\320\321!!\322\216r!q\210\323\324
\311\325\311\n&\326U\205H\327edeV\203FdS\202Gd\"-\206M\330\331\325#+@*\"\205h\332\333#$\334$\335\311\211#%*\311%&\336\337%\311&#!\340\325\"+\207" [buf file args save-match-data-internal egg-git-command program buffer-file-name error "Current buffer has no associated file!" nil "ls-files" "--full-name" "--" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties "" "[\n]+" "diff against: " "HEAD" completing-read egg-complete-rev egg-do-diff egg-build-diff-info pop-to-buffer #1# ask default prompt src-rev git-file] 8 (#$ . 246795) "P"])
#@146 Checkout HEAD's version of the current file.
if CONFIRM-P was not null, then ask for confirmation if the
current file contains unstaged changes.
(defalias 'egg-file-checkout-other-version #[(&optional no-confirm) "\306 \204	\307\310!\210\306 \306 \311\312\313\314\315\257\316\317\311\n\311	&\320U+?\311\f\203;\321\322\323\"!\204;\307\324\"\210\322\325\"\314\326\327\311\211%*\330\311\211\331
\315F%\205b\332\333\211\211#+\207" [file args buffer egg-git-command file-modified rev buffer-file-name error "Current buffer has no associated file!" nil "diff" "--quiet" "HEAD" "--" apply call-process 0 y-or-n-p format "ignored uncommitted changes in %s? " "File %s contains uncommitted changes!" "checkout %s version: " completing-read egg-complete-rev egg-sync-do-file "checkout" revert-buffer t default prompt] 9 (#$ . 247788) "P"])
#@147 Checkout INDEX's version of the current file.
if CONFIRM-P was not null, then ask for confirmation if the
current file contains unstaged changes.
(defalias 'egg-file-cancel-modifications #[(&optional no-confirm) "\306 \204	\307\310!\210\306 \306 \311\312\313\314F\315\316\311\n\311	&\317U+?\311\f\203>\204>\320\321\322\"!\204>\307\323\"\210\324\311\211\325\314E%\205P\326\327\211\211#+\207" [file args buffer egg-git-command file-modified rev buffer-file-name error "Current buffer has no associated file!" nil "diff" "--quiet" "--" apply call-process 0 y-or-n-p format "ignored unstaged changes in %s? " "File %s contains unstaged changes!" egg-sync-do-file "checkout" revert-buffer t no-confirm] 8 (#$ . 248654) "P"])
(defalias 'egg-start-new-branch #[nil "\300\301\302\303#\207" [egg-do-create-branch nil checkout "start new branch with name: "] 4 nil nil])
(defalias 'egg-file-get-other-version #[(file &optional rev prompt same-mode name) "\306	\307#\310\311\304!\203\f\2022\312\304!\210\313 \206'\205'\314\304!\210\315\316
\"\317\320\f\321Q!\322L\210\f)5\3106\3236\206R\3107\3247>\204M8\206Q\3257!)\326\")95\205i\3279!\206i:\206i\330;<\206t\331\332\"<:\206\215<;=<\333<\334\310\211=%*:\335\336\337F7\340 >\341\216\342?77@\343\344!A\345\216rAq\210\346\347@\310\350\3107&\351U\205\322\352edeV\203\320dS\202\321d\"-\206\327\353\354\350#+@)B:\355BQC\356\357D\206\360C\357Q!ErEq\210\350F\360 \210\347?\310E\310\361C&\351U\204
\315\362:#\210\363\n!\203&
G\203&
\n \210\364\310!\210\350H*E.	\207" [file auto-mode-alist mode error-if-not-git egg-git-dir default-directory assoc-default string-match nil local-variable-p make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" plist-get :force egg-get-repo-state :branch egg-tracking-target ":0" format "%s's version: " completing-read egg-complete-rev "ls-files" "--full-name" "--" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties "" "[\n]+" ":" get-buffer-create "*" erase-buffer "show" "Failed to get %s's version: %s" functionp set-buffer-modified-p git-dir state args egg-internal-current-state lbranch rev rbranch prompt default save-match-data-internal egg-git-command program #1# canon-name git-name name buf inhibit-read-only same-mode buffer-read-only] 8])
#@59 Show other version of the current file in another window.
(defalias 'egg-file-version-other-window #[(&optional ask) "\302 \204	\303\304!\210\305\302 ?\205\306\307\310\302 \"\311$\312	!\204&\303\313\302 \"\210\314	\311\")\207" [ask buf buffer-file-name error "Current buffer has no associated file!" egg-file-get-other-version ":0" format "show %s's version:" t bufferp "Oops! can't get %s older version" pop-to-buffer] 6 (#$ . 251278) "P"])
(defalias 'egg-file-ediff #[(&optional ask-for-dst) "\300 \204	\305\306!\210\n\203\307\300 \310\311\312	\"\313$\202p\307\300 \310\311\314	\"\313$\315!\2035\315\f!\2049\305\316!\210\317\f\"+\207" [buffer-file-name file ask-for-dst dst-buf src-buf error "Current buffer has no associated file!" egg-file-get-other-version nil format "(ediff) %s's newer version: " t "(ediff) %s's older version: " bufferp "Ooops!" ediff-buffers] 6 nil "P"])
(defalias 'egg-resolve-merge-with-ediff #[(&optional what) "\300 \204	\305\306!\210\307	!\310	\311\312\313\314\nP%\310	\315\312\313\316\nP%\317!\203/\317\f!\2043\305\320!\210\321\fp#,\207" [buffer-file-name file short-file ours theirs error "Current buffer has no associated file!" file-name-nondirectory egg-file-get-other-version ":2" nil t "our:" ":3" "their:" bufferp "Ooops!" ediff-buffers3] 7 nil "P"])
(defalias 'egg-file-do-ediff #[(closer-rev closer-rev-name &optional further-rev further-rev-name ediff2) "\300 \204	\306\307!\210\310	!\206\f\311\nQ\312	\f\313\314
%\2050\206-\311\nQ\205@\312	\313\314%\315!\204M\306\316!\210\203]\315!\204]\306\316!\210\315!\203|\203r\317\"\202\201\320p#\202\201\317p\".\207" [buffer-file-name file short-file closer-rev-name closer-rev closer-name error "Current buffer has no associated file!" file-name-nondirectory ":" egg-file-get-other-version nil t bufferp "Ooops!" ediff-buffers ediff-buffers3 this further-rev further-rev-name further-name that ediff2] 6])
(byte-code "\301B\302\303!\210\304B\305\306!\210\307B\310\311!\210\312B\313\314\315!!\207" [current-load-list egg-key-action-alist (lambda (#1=#:defconst-tmp-var) (defconst egg-key-action-alist #1#)) ((109 :merge-file "[m]erge current file" "Resolve merge conflict(s) in current file.") (102 :stage-file "stage current [f]ile" "Stage current file's changes") (115 :status "show repo's [s]tatus" "Browse the current status of the repo") (97 :stage-all "stage [a]ll files" "Stage all current changes inside this repo.") (114 :rebase-continue "continue [r]rebase" "Continue with the current rebase session.") (100 :diff-file "[d]iff current file" "Compare the current file against the staged snapshot.") (99 :commit "[c]ommit staged changes" "Proceed to commit current staged changes onto HEAD.") (121 :sync "s[y]nc" "Synchronize branches and repos (push/fetch).") (63 :more-options "[?] more options" nil) (98 :new-branch "start new [b]ranch" "Create and switch to a new branch starting from HEAD.") (113 :quit "[q] quit" nil)) egg-action-function-alist (lambda (#2=#:defconst-tmp-var) (defconst egg-action-function-alist #2#)) ((:merge-file . egg-resolve-merge-with-ediff) (:stage-file . egg-file-stage-current-file) (:status . egg-status) (:stage-all . egg-stage-all-files) (:rebase-continue . egg-buffer-rebase-continue) (:diff-file . egg-file-diff) (:commit . egg-commit-log-edit) (:sync . egg-log) (:new-branch . egg-start-new-branch) (:quit lambda nil (interactive) (message "do nothing now! later.") (ding) nil)) egg-action-menu-name-alist (lambda (#3=#:defconst-tmp-var) (defconst egg-action-menu-name-alist #3#)) ((:merge-file . "Resolve File's Merge Conflicts using Ediff") (:stage-file . "Stage File's Modifications") (:status . "View Project Status") (:stage-all . "Stage All Project's Modifications") (:rebase-continue . "Continue Rebase Session") (:diff-file . "Show File's Modifications (Diff)") (:commit . "Commit Staged Changes") (:sync . "Show Project History") (:new-branch . "Start a New Branch")) egg-electrict-select-action-buffer (lambda (#4=#:defconst-tmp-var) (defconst egg-electrict-select-action-buffer #4#)) get-buffer-create "*Egg:Select Action*"] 3)
(defalias 'egg-select-action-run #[nil "\302\212r	q\210\303 \210\304\305!\205\"\306`\307\"\211\203 \310\311\"\202\"\312 +\207" [action egg-electrict-select-action-buffer nil beginning-of-line boundp egg-electric-in-progress-p get-text-property :action throw egg-select-action ding] 4 nil nil])
(defalias 'egg-select-action-quit #[nil "\302\212r	q\210\303 \210\304\305!\205\306\307\302\"+\207" [action egg-electrict-select-action-buffer nil beginning-of-line boundp egg-electric-in-progress-p throw egg-select-action] 3 nil nil])
(byte-code "\302B\303\304\305!\306	\307\310#\210\306	\311\312#\210\306	\313\312#\210\306	\314\315#\210	)!\207" [current-load-list map egg-electric-select-action-map (lambda (#1=#:defconst-tmp-var) (defconst egg-electric-select-action-map #1#)) make-sparse-keymap "Egg:SelectAction" define-key "q" egg-select-action-quit "
" egg-select-action-run " " "\f" recenter] 5)
(defalias 'egg-electric-select-action #[(default banner &optional alternatives) "\306p\307\310\311\312	\"\"\310\211\211
\236\211\313
\"B\314\216\315\316\215)\f\2054\f9\2054\f.\207" [egg-electrict-select-action-buffer egg-key-action-alist beg default-entry action action-alist t delq nil mapcar #[(entry) "\211AA)A@\205)\n\203\211A@)\n>\205)\211A@)\211AA)A@B\207" [entry x alternatives] 3] remq ((bury-buffer buf)) egg-select-action (byte-code "\300\213\207" [((byte-code "rq\210\306\307 \210\310c\210\311\n\312\313#\314\261\210\315\314\261\210\316e`\317\306$\210`\320\321\f\322#\322\261\210b\210\323\324!\210\306)\325\326\327!\210)\330!\210b\210\331\325\332\"\207" [buf inhibit-read-only banner beg action-alist buffer-read-only t erase-buffer #("Select Action\n" 0 14 (face egg-section-title)) propertize face egg-text-1 "\n\n" #("select an action:" 0 17 (face egg-text-1)) put-text-property intangible mapconcat #[(entry) "\301\302AP\303@\304\305%\207" [entry propertize "- " :action face egg-electrict-choice] 6] "\n" set-buffer-modified-p nil egg-select-action "Egg-Select" use-local-map Electric-pop-up-window Electric-command-loop "select next action> " major-mode mode-name egg-electric-select-action-map egg-electrict-select-action-buffer] 5))] 1) buf old-buffer egg-electric-in-progress-p default] 9])
(defalias 'egg-guess-next-action #[(desc) "\301>\203\302\207\303>\203\304\207\305>\203\304\207\306>\203 \307\207\310>\203(\311\207\312>\2030\311\207\313>\2038\314\207\315>\203@\316\207\317\207" [desc :file-has-merged-conflict :merge-file :file-is-modified :stage-file :file-is-unmerged :wdir-has-merged-conflict :status :wdir-has-unmerged-files :stage-all :wdir-is-modified :rebase-in-progress :rebase-continue :has-staged-changes :commit :sync] 2])
(put 'egg-guess-next-action 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-limit-alternative-actions #[(desc) "\303\304\"\305\n>\204\306\307	\"\310\n>\204\306\311\306\312	\"\"\313\n>\203*\314\n>\203/\306\315	\"\316\n>\203;\313\n>\203@\306\317	\"\313\n>\204R\316\n>\204R\320\n>\204W\306\321	\"\314\n>\204c\316\n>\203h\306\322	\"\313\n>\204z\320\n>\204z\316\n>\203\306\323	\"	)\207" [egg-action-function-alist alternatives desc mapcar car :file-has-merged-conflict delq :merge-file :file-is-modified :diff-file :stage-file :wdir-is-modified :wdir-has-merged-conflict :stage-all :rebase-in-progress :rebase-continue :has-staged-changes :commit :new-branch :sync] 5])
(defalias 'egg-describe-state #[(state) "\306\307\"\310 \311	!\n\205Z\n\312\313\314\fF\315 /\316\216\3170
1\320\321!2\322\216r2q\210\323\3241\325\326\325
&\327U\205O\330edeV\203MdS\202Nd\"-\206T\331\332\326#+@)3\306\333\"4\306\334\"5\306\335\"6\325\211784\203\3367B75\203\212\3377B76\203\225\3407B7\306\341\"\203\242\3427B74\203D
\320\321!9\343\216r9q\210\326\344C:\323\3240\325:\325
&\327U\210*\345 8\315 /\346\216eb\210\347\350\325\326#\203\343\3517B7-3\203D
34\235\203D
\3527B7\320\321!;\353\216r;q\210\326\3443D:\323\3240\325:\325
&\327U\210*\345 8\315 /\354\216eb\210\347\350\325\326#\2035
\3557B7-36\235\203D
\3567B77.	\207" [state git-dir current-file default-directory file args plist-get :gitdir buffer-file-name file-name-directory "ls-files" "--full-name" "--" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process nil t 0 buffer-substring-no-properties "" "[\n]+" :unstaged :staged :unmerged :wdir-is-modified :has-staged-changes :wdir-has-unmerged-files :rebase-step :rebase-in-progress ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) "diff" buffer-string ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) search-forward "\n++<<<<<<<" :wdir-has-merged-conflict :file-is-modified ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) :file-has-merged-conflict :file-is-unmerged save-match-data-internal egg-git-command program #1# file-git-name unstaged-files staged-files unmerged-files desc dummy #2# buffer #3#] 9])
(defalias 'egg-build-key-prompt #[(prefix default alternatives) "\305\306\"\n\307	\236A@\310\311\312\305\313\314\f\"\"\315#\260)\207" [egg-key-action-alist action-desc-alist prefix default alternatives mapcar cdr " default: " ". alternatives:  " mapconcat identity #[(action) "	\236A@\207" [action action-desc-alist] 2] remq ", "] 11])
(put 'egg-build-key-prompt 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'egg-prompt-next-action #[(described-state) "\306	>\203\f\307\202S\310	>\203\311\202S\312	>\203 \311\202S\313	>\203*\314\202S\315	>\2034\316\202S\317	>\203>\316\202S\320	>\203H\321\202S\322	>\203R\323\202S\324)\325!\326\211\211\211?\211@\314\327E\204G
\330\331@\n@A\332\333B\"CA\334@C\236A@\335\336\337\332\340\341@\n\"\"\342#\260,!\343\f!\211\344>\203\250@\202\262\fB\236\211DA@)\211\327=\203=
\345\346\347 \306>\203\307\350\202\322\310>\203\321\351\202\322\352\353\326E\354\355!\203\341-\202
\356\355!\210\357 \206\370E\205\370\360\355!\210\361\362F\"-\363\364-\365Q!\366L\210-)!\313>\203
\367\202
\317>\203
\370\202
\371\320>\203'
\372\2022
\322>\2031
\373\2022
\374&\375@
?#\204h\376 \210\202h.\207" [described-state desc alternatives action key banner :file-has-merged-conflict :merge-file :file-is-modified :stage-file :file-is-unmerged :wdir-has-merged-conflict :status :wdir-has-unmerged-files :stage-all :wdir-is-modified :rebase-in-progress :rebase-continue :has-staged-changes :commit :sync egg-limit-alternative-actions nil :more-options read-key-sequence "next action?" mapcar cdr " default: " ". alternatives:  " mapconcat identity #[(action) "	\236A@\207" [action action-desc-alist] 2] remq ", " string-to-char (13 10 32) format "%s %s\n%s %s\nINDEX %s" buffer-file-name "contains conflicting merge-changes" "contains unstaged changes" "is not modified" file-name-directory local-variable-p egg-git-dir make-local-variable egg-read-git-dir kill-local-variable error "Not in a git repository: %s" intern "egg-" "-HEAD" " Egg" "has files with conflicting merge changes" "has files with unstaged changes" "is clean" "has unfinished rebase session" "contains staged changes ready to commit" "is empty" egg-electric-select-action ding limited-alternatives default prefix egg-key-action-alist action-desc-alist x error-if-not-git default-directory] 13])
(defalias 'egg-next-action #[(&optional ask) "\306\307\310\"\210\311\312\313E\314>\204	\206\315!)\316\n!\307\211 \204+!\2031\317!\202\205\320>\203=\321\202\204\322>\203G\323\202\204\324>\203Q\323\202\204\325>\203[\326\202\204\327>\203e\330\202\204\331>\203o\330\202\204\332>\203y\333\202\204\334>\203\203\335\202\204\336)\337\f\"\236A!,\207" [args egg-internal-current-state state desc action default save-some-buffers nil egg-is-in-git :unstaged :staged :error-if-not-git :force egg-get-repo-state egg-describe-state egg-prompt-next-action :file-has-merged-conflict :merge-file :file-is-modified :stage-file :file-is-unmerged :wdir-has-merged-conflict :status :wdir-has-unmerged-files :stage-all :wdir-is-modified :rebase-in-progress :rebase-continue :has-staged-changes :commit :sync call-interactively ask egg-confirm-next-action egg-action-function-alist] 4 nil "P"])
(defalias 'egg-file-next-action-menu-name #[nil "\306\307\310E\311>\204	\206\312!)\313\n!\211\314>\203$\315\202k\316>\203.\317\202k\320>\2038\317\202k\321>\203B\322\202k\323>\203L\324\202k\325>\203V\324\202k\326>\203`\327\202k\330>\203j\331\202k\332)\333\f
\236AP+\207" [args egg-internal-current-state state desc action egg-action-menu-name-alist :unstaged :staged :error-if-not-git :force egg-get-repo-state egg-describe-state :file-has-merged-conflict :merge-file :file-is-modified :stage-file :file-is-unmerged :wdir-has-merged-conflict :status :wdir-has-unmerged-files :stage-all :wdir-is-modified :rebase-in-progress :rebase-continue :has-staged-changes :commit :sync "Next Action: "] 4])
(defalias 'egg-file-next-action-menu-binding #[(&optional ignored) "\306\307\310E\311>\204	\206\312!)\313\n!\211\314>\203$\315\202k\316>\203.\317\202k\320>\2038\317\202k\321>\203B\322\202k\323>\203L\324\202k\325>\203V\324\202k\326>\203`\327\202k\330>\203j\331\202k\332)\211
\236A+\207" [args egg-internal-current-state state desc action egg-action-function-alist :unstaged :staged :error-if-not-git :force egg-get-repo-state egg-describe-state :file-has-merged-conflict :merge-file :file-is-modified :stage-file :file-is-unmerged :wdir-has-merged-conflict :status :wdir-has-unmerged-files :stage-all :wdir-is-modified :rebase-in-progress :rebase-continue :has-staged-changes :commit :sync] 4])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204 \303\305\306\307!\"\210\310B\302\310!\2041\303\310\306\311!\"\210\304\207" [current-load-list egg-minor-mode default-boundp set-default nil egg-minor-mode-map make-sparse-keymap "Egg" egg-file-cmd-map "Egg:File"] 4)
(defalias 'egg-mode-key-prefix-set #[(var val) "\304\305	!\n#\210\306	\"\207" [egg-minor-mode-map val egg-file-cmd-map var define-key read-kbd-macro custom-set-default] 4])
(defalias 'egg-file-log-pickaxe #[(string) "\301!\207" [string egg-search-changes] 2 nil (list (read-string "search history for: " (egg-string-at-point)))])
(byte-code "\306	\307\310#\210\306	\311\312#\210\306	\313\314#\210\306	\315\316#\210\306	\317\320#\210\306	\321\322#\210\306	\323\324#\210\306	\325\326#\210\306	\327\330#\210\306	\331\332#\210\306	\333\334#\210\306	\335\314#\210\306	\336\337#\210\306	\340\341#\210\306	\342\316#\210\306	\343\344#\210\306	\345\346#\210\306	\347\350#\210)\304\nB\351\352\353!!\210\306\354\353\fB#\210\f\306
\355\356#\210\306
\357\360#\210\306
\361\362#\210\306
\363\364#\210\306
\365\366#\210\306
\367\370#\210\306
\371\372#\210\306
\373\374#\210\306
\375\376#\210\306
\377\201@#\210\306
\201A\201B#\210\306
\201C\201D#\210\306
\201E\201F#\210\306
\201G\201H#\210\306
\201I\201J#\210\306
\201K\201L#\210\306
\201M\201N#\210\306
\201O\201P#\210\306
\201Q\201R#\210)\306\207" [egg-file-cmd-map map current-load-list egg-minor-mode-map egg-minor-mode-menu menu define-key "a" egg-file-toggle-blame-mode "b" egg-start-new-branch "d" egg-status "c" egg-commit-log-edit "e" egg-file-ediff "g" egg-grep "i" egg-file-stage-current-file "l" egg-log "L" egg-reflog "h" egg-file-log "o" egg-file-checkout-other-version "s" "u" egg-file-cancel-modifications "v" egg-next-action "w" "/" egg-file-log-pickaxe "=" egg-file-diff "~" egg-file-version-other-window (lambda (#1=#:defconst-tmp-var) (defconst egg-minor-mode-menu #1#)) make-sparse-keymap "Egg (Git)" [menu-bar egg-minor-mode-menu] [reflog] (menu-item "View RefLog" egg-reflog) [log] (menu-item "View Project History" egg-log) [status] (menu-item "View Project Status" egg-status) [blame] (menu-item "Toggle Blame Mode" egg-file-toggle-blame-mode) [sp3] ("--") [grep] (menu-item "Search Project's Other Versions (grep)" egg-grep) [pickaxe] (menu-item "Search File History" egg-file-log-pickaxe) [vother] (menu-item "View File Other Version" egg-file-version-other-window) [filelog] (menu-item "View File History" egg-log) [sp2] ("--") [cother] (menu-item "Checkout File's Other Version" egg-file-checkout-other-version) [ediff] (menu-item "EDiff File (vs INDEX)" egg-file-ediff :enable (not (egg-file-updated (buffer-file-name)))) [diff] (menu-item "Diff File (vs INDEX)" egg-file-diff :enable (not (egg-file-updated (buffer-file-name)))) [sp1] ("--") [undo] (menu-item "Cancel Modifications (revert to INDEX)" egg-file-cancel-modifications :enable (not (egg-file-updated (buffer-file-name)))) [commit] (menu-item "Commit Staged Changes" egg-commit-log-edit :enable (not (egg-file-index-empty (buffer-file-name)))) [stage] (menu-item "Stage File's Modifications" egg-file-stage-current-file :enable (not (egg-file-updated (buffer-file-name)))) [sp0] ("--") [next] (menu-item (egg-file-next-action-menu-name) egg-next-action :keys "\\[egg-next-action]" :filter egg-file-next-action-menu-binding)] 5)
#@48 Prefix keystrokes for egg minor-mode commands.
(custom-declare-variable 'egg-mode-key-prefix '"C-x v" '(#$ . 268926) :group 'egg :type 'string :set 'egg-mode-key-prefix-set)
(byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list egg-minor-mode-name default-boundp set-default " Git"] 3)
#@777 Turn-on egg-minor-mode which would enable key bindings for
egg in current buffer.\<egg-minor-mode-map>
\[egg-start-new-branch] start a new branch from the current HEAD.
\[egg-status] shows the repo's current status
\[egg-commit-log-edit] start editing the commit message for the current staged changes.
\[egg-file-stage-current-file] stage new changes of the current file 
\[egg-log] shows repo's history 
\[egg-file-checkout-other-version] checkout another version of the current file 
\[egg-file-cancel-modifications] delete unstaged modifications in the current file
\[egg-next-action] perform the next logical action
\[egg-file-diff] compare file with index or other commits
\[egg-file-version-other-window] show other version of the current file.

\{egg-minor-mode-map}

(defalias 'egg-minor-mode #[(&optional arg) "\204		?\202\f\306V\211\205R\307\302!\203\310\311\312!\210\313\314\310\315\304!\203+\f\202K\311\304!\210\316 \206@\205@\317\304!\210\320\321
\"\313\314\f\322Q!\323L\210\f)\322Q!\211\n\207" [arg egg-minor-mode vc-mode error-if-not-git egg-git-dir default-directory 0 boundp nil make-local-variable egg-minor-mode-name intern "egg-" local-variable-p egg-read-git-dir kill-local-variable error "Not in a git repository: %s" "-HEAD" " Egg"] 7 (#$ . 269246) "p"])
(defalias 'egg-minor-mode-find-file-hook #[nil "\301\302\211\211\303\304&\305U\205\306\307!\210\307\310!\207" [egg-git-command call-process nil "rev-parse" "--git-dir" 0 make-local-variable egg-minor-mode 1] 7])
(byte-code "\305\306\307\310P!\"\204\305\311\307\310P!\"\203L\312	\236\204 \313	B\312\n\236\206-\312C\nB\211@\241\210\314\304!\203B\304J<\203B\315\316\304J\"\317\320\321\"\210\317\320\322\"\210\305\207" [egg-git-command minor-mode-alist minor-mode-map-alist egg-minor-mode-map vc-handled-backends string-match "\\`git version 1.6." shell-command-to-string " --version" "\\`git version 1.7." egg-minor-mode (egg-minor-mode egg-minor-mode-name) boundp delq Git add-hook find-file-hook egg-git-dir egg-minor-mode-find-file-hook] 5)
(defalias 'egg-ref-at #[(pos &optional object) "\302\303	#@\207" [pos object get-text-property :ref] 4])
(defalias 'egg-ref-or-commit-at #[(pos &optional object) "\302\303	#@\206\302\304	#\207" [pos object get-text-property :ref :commit] 4])
(defalias 'egg-commit-at #[(pos &optional object) "\302\303	#\207" [pos object get-text-property :commit] 4])
(defalias 'egg-rsite-at #[(pos &optional object) "\303\304	#@\211;\205\nG\305V\205\306\307\n!!)\207" [pos object rbranch get-text-property :ref 0 directory-file-name file-name-directory] 5])
(defalias 'egg-delta-file-at #[(pos &optional object) "\302\303	#@\207" [pos object get-text-property :diff] 4])
(defalias 'egg-delta-hunk-at #[(pos &optional object) "\302\303	#@\207" [pos object get-text-property :hunk] 4])
(defalias 'egg-section-at #[(pos &optional object) "\304\305	#\211\205\304\n	#\211\204\306	\":\203#@\202$*\207" [pos object sect-prop sect get-text-property :sect-type egg-commit-at] 5])
(defalias 'egg-file-name-at #[(pos &optional buffer) "\302!\205\212rq\210	b\210\303 *\207" [buffer pos bufferp ffap-file-at-point] 2])
(byte-code "\301B\302\303!\207" [current-load-list egg-cmd-help-text-fmt-alist (lambda (#1=#:defconst-tmp-var) (defconst egg-cmd-help-text-fmt-alist #1#)) ((egg-log-buffer-push-to-local egg-ref-or-commit-at "update another branch with %s") (egg-log-buffer-push egg-rsite-at "push branches to remote %s") (egg-log-buffer-fetch egg-ref-at "(re)-fetch %s") (egg-log-buffer-rm-ref egg-ref-at "remove %s") (egg-log-buffer-reflog-ref egg-ref-at "show history (reflog) of %s") (egg-log-buffer-unmark egg-commit-at "unmark %s for upcoming rebase") (egg-log-buffer-mark-edit egg-commit-at "mark %s to be edited in upcoming rebase") (egg-log-buffer-mark-squash egg-commit-at "mark %s to be squashed in upcoming rebase") (egg-log-buffer-mark-pick egg-commit-at "mark %s to be picked in upcoming rebase") (egg-log-buffer-mark egg-commit-at "mark %s as BASE") (egg-log-buffer-rebase egg-commit-at "rebase HEAD to %s") (egg-log-buffer-attach-head egg-ref-or-commit-at "anchor HEAD at %s") (egg-log-buffer-atag-commit egg-commit-at "create new annotated-tag at %s") (egg-log-buffer-tag-commit egg-commit-at "create new tag at %s") (egg-log-buffer-checkout-commit egg-ref-or-commit-at "checkout %s") (egg-log-buffer-start-new-branch egg-commit-at "start a new branch at %s") (egg-log-buffer-create-new-branch egg-commit-at "create a new branch at %s") (egg-log-buffer-insert-commit egg-commit-at "load %s's details") (egg-section-cmd-toggle-hide-show-children egg-section-at "hide/show %s's children's details") (egg-section-cmd-toggle-hide-show egg-section-at "hide/show %s's details") (egg-log-buffer-merge egg-ref-or-commit-at "merge %s to HEAD") (egg-buffer-cmd-navigate-next nil "next block") (egg-buffer-cmd-navigate-prev nil "prev block") (egg-diff-section-cmd-visit-file-other-window egg-section-at "open %s in other window") (egg-diff-section-cmd-visit-file egg-section-at "open %s") (egg-diff-section-cmd-ediff nil "view this delta in ediff") (egg-staged-section-cmd-ediff3 egg-section-at "view %s changes in ediff3") (egg-diff-section-cmd-unstage egg-section-at "unstage %s") (egg-diff-section-cmd-undo egg-section-at "delete theses changes from %s") (egg-unstaged-section-cmd-ediff egg-section-at "view this delta in ediff") (egg-diff-section-cmd-stage egg-section-at "stage %s") (egg-unmerged-section-cmd-ediff3 nil "view this conflict in ediff3") (egg-find-file-at-point egg-file-name-at "open %s") (egg-ignore-pattern-from-string-at-point egg-file-name-at "add a pattern matching %s to .gitignore file") (egg-status-buffer-stage-untracked-file egg-file-name-at "add %s to this repo") (egg-mouse-hide-show-cmd egg-section-at "hide/show %s's details") (egg-status-popup-staged-diff-menu egg-section-at "popup menu for %s") (egg-status-popup-unstaged-diff-menu egg-section-at "popup menu for %s") (egg-buffer-rebase-abort nil "abort rebase session") (egg-buffer-selective-rebase-skip nil "skip rebase session's current commit") (egg-buffer-selective-rebase-continue nil "continue rebase session") (egg-log-buffer-diff-revs egg-ref-or-commit-at "diff %s vs HEAD"))] 2)
(defalias 'egg-buffer-help-echo #[(window buffer pos) "\305!\205\"\306	!\205\"\307	\304#\310\211\311\f!\205!\312\313\f\314#+\207" [buffer pos func-name-alist seen-list keymap bufferp number-or-marker-p get-text-property nil keymapp mapconcat #[(mapping) ":\203y@A\211\236\211A@\306\f8\307\310	!!
\236A\206A\311
!\205A
\211\"BB\211\211@A)	>?\205v;\205v;\203fG\312U\203f\313\314O\315\316	\"\210\317\320\317\"#.\207\321\207" [mapping key cmd egg-cmd-help-text-fmt-alist howto func 2 format-kbd-macro vector functionp 40 0 8 add-to-list seen-list format "%s - %s\n" "" fmt key-str func-name-alist pos buffer x name] 7] ""] 4])
(byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list egg-auto-update default-boundp set-default t] 3)
#@67 Pull up the status buffer for the current buffer if there is one.
(defalias 'egg-maybe-update-status #[nil "\306\307!\310\311\312	F\313 \314\216\315\f\n\316\317!\320\216rq\210\321\322
\306\323\306\n&\324U\205?\325edeV\203=dS\202>d\"-\206D\326\327\323#+@*\205^\205^\330\323!\210\331!)\207" [buf file args save-match-data-internal egg-git-command program nil buffer-file-name "ls-files" "--full-name" "--" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process t 0 buffer-substring-no-properties "" "[\n]+" egg-status egg-goto-block-filename #1# bufname egg-auto-update] 8 (#$ . 276309)])
(add-hook 'after-save-hook 'egg-maybe-update-status)
(defalias 'egg-goto-block-filename #[(filename) "\300\301!\207" [egg-goto-block-regexp "\\(?:\\(?:\\(?:un\\)?staged\\)-/Users/oceanhug/\\.emacs\\.d/byplayer-egg-3f715b1/egg\\.el\\)"] 2 nil "sFilename: "])
#@54 Takes `nav-regexp' as regexp and moves cursor there.
(defalias 'egg-goto-block-regexp #[(nav-regexp) "\304eb\210\304	\247\203	`\232\202	`=\2043`\305 \210\306\307`\310\"!\311\n\"\203/``)\202))\207" [nav-point prev-point prop-name nav-regexp nil egg-buffer-cmd-navigate-next symbol-name get-text-property :navigation string-match] 4 (#$ . 277383)])
(byte-code "\300\301!\210\302\303!\207" [run-hooks egg-load-hook provide egg] 2)