;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\307\310\311\312\313\314\315\316\315\317& \210\320\321\322\323\324DD\325\315\310\326\327&\210\320\330\322\323\331DD\332\333\334\315\310\326\335\336\337& \210\320\340\322\323\341DD\342\333\343\315\310\326\344& \210\320\345\322\323\346DD\347\315\310\326\350&\210\320\351\322\323\352DD\353\333\354\315\310\315\355\326\356\357\360\361\362\363\"&\210\320\364\322\323\365DD\366\333\367\315\310\315\355\326\350& \210\320\370\322\323\371DD\372\333\373\315\310\326\350& \210\320\374\322\323\375DD\376\333\377\315\310\326\350& \210\320\201@\322\323\201ADD\201B\333\201C\315\310\326\201D& \210\320\201E\322\323\201FDD\201G\333\201H\315\310\326\201I& \210\201J\201K\201L\201M\315\201N%\210\201J\201O\201P\201Q\315\201N%\210\201J\201R\201S\201T\315\201N%\210\201J\201U\201V\201W\315\201N%\210\320\201X\322\323\201YDD\201Z\333\201[\315\316\315\310\326\350& \210\320\201\\\322\323\201]DD\201^\333\201_\315\310\326\201`& \210\320\201a\322\323\201bDD\201c\333\201d\315\310\315\355\326\356\357\201e\201f\360\361\362\201g\"&\210\320\201h\322\323\201iDD\201j\333\201k\315\310\326\327& \210\320\201l\322\323\201mDD\201n\333\201o\315\310\315\355\326\356\357\201e\201p\360\361\362\201q\"&\210\320\201r\322\323\201sDD\201t\333\201u\315\201v\326\201w& \210\201x\201y\201z\201{!\"\210\201x\201|\201}\201{!\"\210\201x\201~\201|\"\210\201\201~\201\200\201\201#\210\201\202\201{\201\203\201|#\201\204\201{\201\205\201\206\311$\207" [magit-log-margin--custom-type require magit-core magit-diff ansi-color crm which-func custom-declare-group magit-log nil "Inspect and manipulate Git history." :link (info-link "(magit)Logging") :group magit-commands magit-modes custom-declare-variable magit-log-mode-hook funcall function #[0 "\300\207" [nil] 1] "Hook run after entering Magit-Log mode." :type hook magit-log-remove-graph-args #[0 "\300\207" [("--follow" "--grep" "-G" "-S" "-L")] 1] "The log arguments that cause the `--graph' argument to be dropped." :package-version (magit . "2.3.0") (repeat (string :tag "Argument")) :options ("--follow" "--grep" "-G" "-S" "-L") magit-log-revision-headers-format #[0 "\300\207" [#1="%+b\nAuthor: %aN <%aE>\nCommitter: %cN <%cE>"] 1 #1#] "Additional format string used with the `++header' argument." (magit . "2.3.0") string magit-log-auto-more #[0 "\300\207" [nil] 1] "Insert more log entries automatically when moving past the last entry.\nOnly considered when moving past the last entry with\n`magit-goto-*-section' commands." boolean magit-log-margin #[0 "\300\207" [(t age magit-log-margin-width t 18)] 1] "Format of the margin in `magit-log-mode' buffers.\n\nThe value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).\n\nIf INIT is non-nil, then the margin is shown initially.\nSTYLE controls how to format the author or committer date.\n It can be one of `age' (to show the age of the commit),\n `age-abbreviated' (to abbreviate the time unit to a character),\n or a string (suitable for `format-time-string') to show the\n actual date. Option `magit-log-margin-show-committer-date'\n controls which date is being displayed.\nWIDTH controls the width of the margin. This exists for forward\n compatibility and currently the value should not be changed.\nAUTHOR controls whether the name of the author is also shown by\n default.\nAUTHOR-WIDTH has to be an integer. When the name of the author\n is shown, then this specifies how much space is used to do so." (magit . "2.9.0") magit-margin :initialize magit-custom-initialize-reset :set apply-partially magit-margin-set-variable magit-log-mode magit-log-margin-show-committer-date #[0 "\300\207" [nil] 1] "Whether to show the committer date in the margin.\n\nThis option only controls whether the committer date is displayed\ninstead of the author date. Whether some date is displayed in\nthe margin and whether the margin is displayed at all is\ncontrolled by other options." (magit . "3.0.0") magit-log-show-refname-after-summary #[0 "\300\207" [nil] 1] "Whether to show refnames after commit summaries.\nThis is useful if you use really long branch names." (magit . "2.2.0") magit-log-highlight-keywords #[0 "\300\207" [t] 1] "Whether to highlight bracketed keywords in commit summaries." (magit . "2.12.0") magit-log-header-line-function #[0 "\300\207" [magit-log-header-line-sentence] 1] "Function used to generate text shown in header line of log buffers." (magit . "2.12.0") (choice (function-item magit-log-header-line-arguments) (function-item magit-log-header-line-sentence) function) magit-log-trace-definition-function #[0 "\300\207" [magit-which-function] 1] "Function used to determine the function at point.\nThis is used by the command `magit-log-trace-definition'.\nYou should prefer `magit-which-function' over `which-function'\nbecause the latter may make use of Imenu's outdated cache." (magit . "3.0.0") (choice (function-item magit-which-function) (function-item which-function) (function-item add-log-current-defun) function) custom-declare-face magit-log-graph ((((class color) (background light)) :foreground "grey30") (((class color) (background dark)) :foreground "grey80")) "Face for the graph part of the log output." magit-faces magit-log-author ((((class color) (background light)) :foreground "firebrick" :slant normal :weight normal) (((class color) (background dark)) :foreground "tomato" :slant normal :weight normal)) "Face for the author part of the log output." magit-log-date ((((class color) (background light)) :foreground "grey30" :slant normal :weight normal) (((class color) (background dark)) :foreground "grey80" :slant normal :weight normal)) "Face for the date part of the log output." magit-header-line-log-select ((t :inherit bold)) "Face for the `header-line' in `magit-log-select-mode'." magit-log-buffer-file-locked #[0 "\300\207" [t] 1] "Whether `magit-log-buffer-file-quick' uses a dedicated buffer." (magit . "2.7.0") magit-log-select-show-usage #[0 "\300\207" [both] 1] "Whether to show usage information when selecting a commit from a log.\nThe message can be shown in the `echo-area' or the `header-line', or in\n`both' places. If the value isn't one of these symbols, then it should\nbe nil, in which case no usage information is shown." (magit . "2.1.0") (choice (const :tag "in echo-area" echo-area) (const :tag "in header-line" header-line) (const :tag "in both places" both) (const :tag "nowhere")) magit-log-select-margin #[0 "@A@\301\302\3038\257\207" [magit-log-margin magit-log-margin-width t 4] 6] "Format of the margin in `magit-log-select-mode' buffers.\n\nThe value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).\n\nIf INIT is non-nil, then the margin is shown initially.\nSTYLE controls how to format the author or committer date.\n It can be one of `age' (to show the age of the commit),\n `age-abbreviated' (to abbreviate the time unit to a character),\n or a string (suitable for `format-time-string') to show the\n actual date. Option `magit-log-margin-show-committer-date'\n controls which date is being displayed.\nWIDTH controls the width of the margin. This exists for forward\n compatibility and currently the value should not be changed.\nAUTHOR controls whether the name of the author is also shown by\n default.\nAUTHOR-WIDTH has to be an integer. When the name of the author\n is shown, then this specifies how much space is used to do so." (magit . "2.9.0") :set-after (magit-log-margin) magit-log-select-mode magit-cherry-sections-hook #[0 "\300\207" [(magit-insert-cherry-headers magit-insert-cherry-commits)] 1] "Hook run to insert sections into the cherry buffer." (magit . "2.1.0") magit-cherry-margin #[0 "@A@\301\302\3038\257\207" [magit-log-margin magit-log-margin-width t 4] 6] "Format of the margin in `magit-cherry-mode' buffers.\n\nThe value has the form (INIT STYLE WIDTH AUTHOR AUTHOR-WIDTH).\n\nIf INIT is non-nil, then the margin is shown initially.\nSTYLE controls how to format the author or committer date.\n It can be one of `age' (to show the age of the commit),\n `age-abbreviated' (to abbreviate the time unit to a character),\n or a string (suitable for `format-time-string') to show the\n actual date. Option `magit-log-margin-show-committer-date'\n controls which date is being displayed.\nWIDTH controls the width of the margin. This exists for forward\n compatibility and currently the value should not be changed.\nAUTHOR controls whether the name of the author is also shown by\n default.\nAUTHOR-WIDTH has to be an integer. When the name of the author\n is shown, then this specifies how much space is used to do so." (magit . "2.9.0") (magit-log-margin) magit-cherry-mode magit-log-section-commit-count #[0 "\300\207" [10] 1] "How many recent commits to show in certain log sections.\nHow many recent commits `magit-insert-recent-commits' and\n`magit-insert-unpulled-from-upstream-or-recent' (provided\nthe upstream isn't ahead of the current branch) show." (magit . "2.1.0") magit-status number defalias magit-log-prefix-p eieio-make-class-predicate magit-log-prefix magit-log-prefix--eieio-childp eieio-make-child-predicate magit-log-prefix-child-p make-obsolete "use (cl-typep ... \\='magit-log-prefix) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (transient-prefix) ((history-key :initform 'magit-log) (major-mode :initform 'magit-log-mode))] 20) #@73 Create a new object of class type `magit-log-prefix'. (fn &rest SLOTS) (defalias 'magit-log-prefix #[128 "\300\301\302#\207" [apply make-instance magit-log-prefix] 5 (#$ . 9586)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-log-prefix compiler-macro magit-log-prefix--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'magit-log-prefix--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 9893)]) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias magit-log-refresh-prefix-p eieio-make-class-predicate magit-log-refresh-prefix magit-log-refresh-prefix--eieio-childp eieio-make-child-predicate magit-log-refresh-prefix-child-p make-obsolete "use (cl-typep ... \\='magit-log-refresh-prefix) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (magit-log-prefix) ((history-key :initform 'magit-log) (major-mode :initform nil)) nil] 6) #@81 Create a new object of class type `magit-log-refresh-prefix'. (fn &rest SLOTS) (defalias 'magit-log-refresh-prefix #[128 "\300\301\302#\207" [apply make-instance magit-log-refresh-prefix] 5 (#$ . 10690)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-log-refresh-prefix compiler-macro magit-log-refresh-prefix--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'magit-log-refresh-prefix--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 11038)]) (byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\210\300\312\302\313\302\314%\207" [cl-generic-define-method transient-init-value nil ((obj magit-log-prefix)) #[257 "\302\303\"\211\242\243\211\242\243 \304=\204\305 \211\203\211C\262\210\306\307\203/\310BD\2020#\207" [magit-prefix-use-buffer-arguments transient-current-command magit-log--get-value magit-log-mode magit-dispatch magit-file-relative-name eieio-oset value "--"] 13 "\n\n(fn OBJ)"] ((obj magit-log-refresh-prefix)) #[257 "\302\303\203\304B D\202 #\207" [magit-buffer-log-files magit-buffer-log-args eieio-oset value "--"] 6 "\n\n(fn OBJ)"] transient-set-value ((obj magit-log-prefix)) #[257 "\300!\207" [magit-log--set-value] 3 "\n\n(fn OBJ)"] transient-save-value ((obj magit-log-prefix)) #[257 "\300\301\"\207" [magit-log--set-value save] 4 "\n\n(fn OBJ)"]] 6) #@56 Return the current log arguments. (fn &optional MODE) (defalias 'magit-log-arguments #[256 "\301>\203\302\303\304 \"\211\242\243\211\242\243\305\306\"AD\207\307\206#\310!\207" [transient-current-command (magit-log magit-log-refresh) -separate atom transient-get-value assoc "--" magit-log--get-value magit-log-mode] 12 (#$ . 12182)]) #@39 (fn MODE &optional USE-BUFFER-ARGS) (defalias 'magit-log--get-value #[513 "\211\204\262\305\211\306>\203 =\203\n\262 \262\202n\307>\203A\310\305\311=#\211\205<\312\302\"\262\312\303\"\262\313\262\204n\314\315!\316\"\203R\316N\262\202n\317\320\321\"!\f\236\211\205d\211A\262\313\262\204n\322N\262D\207" [magit-direct-use-buffer-arguments major-mode magit-buffer-log-args magit-buffer-log-files transient-values nil (always selected current) (always selected) magit-get-mode-buffer selected buffer-local-value t plist-member symbol-plist magit-log-current-arguments intern format "magit-log:%s" magit-log-default-arguments] 9 (#$ . 12534)]) #@27 (fn OBJ &optional SAVE) (defalias 'magit-log--set-value #[513 "\304\305\"\304\300\"\206\f\306\307\310\"!\311\312\313 \"\211\242\243\211\242\243\314\315\"A\316\n\317#\210 \203R \236\203C\241\266\202O\nB\211\262 B\266\320 \210\321 !\210\322\323!\204a\211\324 \207" [major-mode transient-values magit-buffer-log-args magit-buffer-log-files eieio-oref prototype intern format "magit-log:%s" -separate atom transient-get-value assoc "--" put magit-log-current-arguments transient-save-values transient--history-push derived-mode-p magit-log-select-mode magit-refresh] 17 (#$ . 13220)]) (defalias 'magit-log #[0 "\300\301!\207" [transient-setup magit-log] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\300\301\313\314#\207" [put magit-log interactive-only t function-documentation "Show a commit or reference log." transient--prefix magit-log-prefix :command :man-page "git-log" transient--layout ([1 transient-column (:description "Commit limiting") ((1 transient-suffix (:command magit-log:-n)) (1 transient-suffix (:command magit:--author)) (7 transient-option (:key "=s" :description "Limit to commits since" :argument "--since=" :command transient:magit-log:--since= :reader transient-read-date)) (7 transient-option (:key "=u" :description "Limit to commits until" :argument "--until=" :command transient:magit-log:--until= :reader transient-read-date)) (1 transient-suffix (:command magit-log:--grep)) (7 transient-switch (:key "-i" :description "Search case-insensitive" :shortarg "-i" :argument "--regexp-ignore-case" :command transient:magit-log:--regexp-ignore-case)) (7 transient-switch (:key "-I" :description "Invert search pattern" :argument "--invert-grep" :command transient:magit-log:--invert-grep)) (1 transient-suffix (:command magit-log:-G)) (1 transient-suffix (:command magit-log:-S)) (1 transient-suffix (:command magit-log:-L)) (7 transient-switch (:key "=m" :description "Omit merges" :argument "--no-merges" :command transient:magit-log:--no-merges)) (7 transient-switch (:key "=p" :description "First parent" :argument "--first-parent" :command transient:magit-log:--first-parent)))] [1 transient-column (:description "History simplification") ((1 transient-switch (:key "-D" :description "Simplify by decoration" :argument "--simplify-by-decoration" :command transient:magit-log:--simplify-by-decoration)) (1 transient-suffix (:command magit:--)) (1 transient-switch (:key "-f" :description "Follow renames when showing single-file log" :argument "--follow" :command transient:magit-log:--follow)) (6 transient-switch (:key "/s" :description "Only commits changing given paths" :argument "--sparse" :command transient:magit-log:--sparse)) (7 transient-switch (:key "/d" :description "Only selected commits plus meaningful history" :argument "--dense" :command transient:magit-log:--dense)) (7 transient-switch (:key "/a" :description "Only commits existing directly on ancestry path" :argument "--ancestry-path" :command transient:magit-log:--ancestry-path)) (6 transient-switch (:key "/f" :description "Do not prune history" :argument "--full-history" :command transient:magit-log:--full-history)) (7 transient-switch (:key "/m" :description "Prune some history" :argument "--simplify-merges" :command transient:magit-log:--simplify-merges)))] [1 transient-column (:description "Commit ordering") ((1 transient-suffix (:command magit-log:--*-order)) (1 transient-switch (:key "-r" :description "Reverse order" :argument "--reverse" :command transient:magit-log:--reverse)))] [1 transient-column (:description "Formatting") ((1 transient-switch (:key "-g" :description "Show graph" :argument "--graph" :command transient:magit-log:--graph)) (1 transient-switch (:key "-c" :description "Show graph in color" :argument "--color" :command transient:magit-log:--color)) (1 transient-switch (:key "-d" :description "Show refnames" :argument "--decorate" :command transient:magit-log:--decorate)) (1 transient-switch (:key "=S" :description "Show signatures" :argument "--show-signature" :command transient:magit-log:--show-signature)) (1 transient-switch (:key "-h" :description "Show header" :argument "++header" :command transient:magit-log:++header)) (1 transient-switch (:key "-p" :description "Show diffs" :shortarg "-p" :argument "--patch" :command transient:magit-log:--patch)) (1 transient-switch (:key "-s" :description "Show diffstats" :argument "--stat" :command transient:magit-log:--stat)))] [1 transient-columns nil ([1 transient-column (:description "Log") ((1 transient-suffix (:key "l" :description "current" :command magit-log-current)) (1 transient-suffix (:key "o" :description "other" :command magit-log-other)) (1 transient-suffix (:key "h" :description "HEAD" :command magit-log-head)))] [1 transient-column (:description "") ((1 transient-suffix (:key "L" :description "local branches" :command magit-log-branches)) (7 transient-suffix (:key "B" :description "matching branches" :command magit-log-matching-branches)) (7 transient-suffix (:key "T" :description "matching tags" :command magit-log-matching-tags)) (1 transient-suffix (:key "b" :description "all branches" :command magit-log-all-branches)) (1 transient-suffix (:key "a" :description "all references" :command magit-log-all)) (7 transient-suffix (:key "m" :description "merged" :command magit-log-merged)))] [1 transient-column (:description "Reflog") ((1 transient-suffix (:key "r" :description "current" :command magit-reflog-current)) (1 transient-suffix (:key "O" :description "other" :command magit-reflog-other)) (1 transient-suffix (:key "H" :description "HEAD" :command magit-reflog-head)))] [1 transient-column (:if (lambda nil (require 'magit-wip) (magit--any-wip-mode-enabled-p)) :description "Wiplog") ((1 transient-suffix (:key "i" :description "index" :command magit-wip-log-index)) (1 transient-suffix (:key "w" :description "worktree" :command magit-wip-log-worktree)))] [1 transient-column (:description "Other") ((5 transient-suffix (:key "s" :description "shortlog" :command magit-shortlog)))])])] 8) (defalias 'magit-log-refresh #[0 "\304=\204 \305\267\202\306\307!\210\202\306\310!\210\311\304!\207\312 \211\242\243\211\242\243\313\314!\2041\211\266\315 \207" [transient-current-command major-mode magit-buffer-log-args magit-buffer-log-files magit-log-refresh #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (magit-reflog-mode 12 magit-cherry-mode 19)) user-error "Cannot change log arguments in reflog buffers" "Cannot change log arguments in cherry buffers" transient-setup magit-log-arguments derived-mode-p magit-log-select-mode magit-refresh] 9 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312$#\210\300\301\313\314#\207" [put magit-log-refresh interactive-only t function-documentation "Change the arguments used for the log(s) in the current buffer." transient--prefix magit-log-refresh-prefix :command :man-page "git-log" transient--layout ([1 transient-subgroups (:if-mode magit-log-mode) ([1 transient-column (:description "Commit limiting") ((1 transient-suffix (:command magit-log:-n)) (1 transient-suffix (:command magit:--author)) (1 transient-suffix (:command magit-log:--grep)) (7 transient-switch (:key "-i" :description "Search case-insensitive" :shortarg "-i" :argument "--regexp-ignore-case" :command transient:magit-log-refresh:--regexp-ignore-case)) (7 transient-switch (:key "-I" :description "Invert search pattern" :argument "--invert-grep" :command transient:magit-log-refresh:--invert-grep)) (1 transient-suffix (:command magit-log:-G)) (1 transient-suffix (:command magit-log:-S)) (1 transient-suffix (:command magit-log:-L)))] [1 transient-column (:description "History simplification") ((1 transient-switch (:key "-D" :description "Simplify by decoration" :argument "--simplify-by-decoration" :command transient:magit-log-refresh:--simplify-by-decoration)) (1 transient-suffix (:command magit:--)) (1 transient-switch (:key "-f" :description "Follow renames when showing single-file log" :argument "--follow" :command transient:magit-log-refresh:--follow)) (6 transient-switch (:key "/s" :description "Only commits changing given paths" :argument "--sparse" :command transient:magit-log-refresh:--sparse)) (7 transient-switch (:key "/d" :description "Only selected commits plus meaningful history" :argument "--dense" :command transient:magit-log-refresh:--dense)) (7 transient-switch (:key "/a" :description "Only commits existing directly on ancestry path" :argument "--ancestry-path" :command transient:magit-log-refresh:--ancestry-path)) (6 transient-switch (:key "/f" :description "Do not prune history" :argument "--full-history" :command transient:magit-log-refresh:--full-history)) (7 transient-switch (:key "/m" :description "Prune some history" :argument "--simplify-merges" :command transient:magit-log-refresh:--simplify-merges)))] [1 transient-column (:description "Commit ordering") ((1 transient-suffix (:command magit-log:--*-order)) (1 transient-switch (:key "-r" :description "Reverse order" :argument "--reverse" :command transient:magit-log-refresh:--reverse)))] [1 transient-column (:description "Formatting") ((1 transient-switch (:key "-g" :description "Show graph" :argument "--graph" :command transient:magit-log-refresh:--graph)) (1 transient-switch (:key "-c" :description "Show graph in color" :argument "--color" :command transient:magit-log-refresh:--color)) (1 transient-switch (:key "-d" :description "Show refnames" :argument "--decorate" :command transient:magit-log-refresh:--decorate)) (1 transient-switch (:key "=S" :description "Show signatures" :argument "--show-signature" :command transient:magit-log-refresh:--show-signature)) (1 transient-switch (:key "-h" :description "Show header" :argument "++header" :command transient:magit-log-refresh:++header)) (1 transient-switch (:key "-p" :description "Show diffs" :shortarg "-p" :argument "--patch" :command transient:magit-log-refresh:--patch)) (1 transient-switch (:key "-s" :description "Show diffstats" :argument "--stat" :command transient:magit-log-refresh:--stat)))])] [1 transient-column (:if-not-mode magit-log-mode :description "Arguments") ((1 transient-suffix (:command magit-log:-n)) (1 transient-suffix (:command magit-log:--*-order)) (1 transient-switch (:key "-g" :description "Show graph" :argument "--graph" :command transient:magit-log-refresh:--graph)) (1 transient-switch (:key "-c" :description "Show graph in color" :argument "--color" :command transient:magit-log-refresh:--color)) (1 transient-switch (:key "-d" :description "Show refnames" :argument "--decorate" :command transient:magit-log-refresh:--decorate)))] [1 transient-columns nil ([1 transient-column (:description "Refresh") ((1 transient-suffix (:key "g" :description "buffer" :command magit-log-refresh)) (1 transient-suffix (:key "s" :description "buffer and set defaults" :command transient-set :transient nil)) (1 transient-suffix (:key "w" :description "buffer and save defaults" :command transient-save :transient nil)))] [1 transient-column (:description "Margin") ((1 transient-suffix (:key "L" :description "toggle visibility" :command magit-toggle-margin)) (1 transient-suffix (:key "l" :description "cycle style" :command magit-cycle-margin-style)) (1 transient-suffix (:key "d" :description "toggle details" :command magit-toggle-margin-details)) (1 transient-suffix (:key "x" :description "toggle shortstat" :command magit-toggle-log-margin-style)))] [1 transient-column (:if-mode magit-log-mode :description "Toggle") ((1 transient-suffix (:key "b" :description "buffer lock" :command magit-toggle-buffer-lock)))])])] 8) (defalias 'magit-log:-n #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\314\316\317&\n#\207" [put magit-log:-n interactive-only t function-documentation nil transient--suffix transient-option :command :description "Limit number of commits" :shortarg "-n" :argument :reader transient-read-number-N+] 14) (defalias 'magit:--author #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320&\n#\207" [put magit:--author interactive-only t function-documentation nil transient--suffix transient-option :command :description "Limit to author" :key "-A" :argument "--author=" :reader magit-transient-read-person] 14) (defalias 'magit-log:--*-order #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316\317\320\321\322&\f#\207" [put magit-log:--*-order interactive-only t function-documentation nil transient--suffix transient-switches :command :description "Order commits by" :key "-o" :argument-format "--%s-order" :argument-regexp "\\(--\\(topo\\|author-date\\|date\\)-order\\)" :choices ("topo" "author-date" "date")] 16) (defalias 'magit-log:--grep #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316&#\207" [put magit-log:--grep interactive-only t function-documentation nil transient--suffix transient-option :command :description "Search messages" :key "-F" :argument "--grep="] 12) (defalias 'magit-log:-G #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\207" [put magit-log:-G interactive-only t function-documentation nil transient--suffix transient-option :command :description "Search changes" :argument "-G"] 10) (defalias 'magit-log:-S #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\207" [put magit-log:-S interactive-only t function-documentation nil transient--suffix transient-option :command :description "Search occurrences" :argument "-S"] 10) (defalias 'magit-log:-L #[0 "\300 \301\302!\"\266\303 \207" [transient-suffix-object transient-infix-set transient-infix-read transient--show] 5 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314\315\316&#\207" [put magit-log:-L interactive-only t function-documentation nil transient--suffix transient-option :command :description "Trace line evolution" :argument "-L" :reader magit-read-file-trace] 12) #@22 (fn &rest IGNORED) (defalias 'magit-read-file-trace #[128 "\300\301\302\"\303\304!\211\305Q\207" [magit-read-file-from-rev "HEAD" "File" magit-read-string "Trace" ":"] 6 (#$ . 28319)]) (defvar magit-log-read-revs-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [crm-local-completion-map make-sparse-keymap set-keymap-parent define-key " " self-insert-command] 5)) #@30 (fn &optional USE-CURRENT) (defalias 'magit-log-read-revs #[256 "\211\203\303 \211\205\f\211C\262\2065\304\305\306\307\310\311\312\"\311\211\211\313\314 \206-?\205-\315 \311\312& \316\312#*\207" [magit-log-read-revs-map crm-local-completion-map crm-separator magit-get-current-branch "\\(\\.\\.\\.?\\|[, ]\\)" split-string magit-completing-read-multiple* "Log rev,s: " magit-list-refnames nil t magit-revision-history magit-branch-or-commit-at-point magit-get-previous-branch "[, ]"] 12 (#$ . 28701)]) #@74 Read a string from the user to pass as parameter to OPTION. (fn OPTION) (defalias 'magit-log-read-pattern #[257 "\300\301\302\"!\207" [magit-read-string format "Type a pattern to pass to %s"] 5 (#$ . 29223)]) #@172 Show log for the current branch. When `HEAD' is detached or with a prefix argument show log for one or more revs read from the minibuffer. (fn REVS &optional ARGS FILES) (defalias 'magit-log-current #[769 "\300#\207" [magit-log-setup-buffer] 7 (#$ . 29441) (byte-code "\300\301!\302 B\207" [magit-log-read-revs t magit-log-arguments] 2)]) #@285 Show log for one or more revs read from the minibuffer. The user can input any revision or revisions separated by a space, or even ranges, but only branches and tags, and a representation of the commit at point, are available as completion candidates. (fn REVS &optional ARGS FILES) (defalias 'magit-log-other #[769 "\300#\207" [magit-log-setup-buffer] 7 (#$ . 29791) (byte-code "\300 \301 B\207" [magit-log-read-revs magit-log-arguments] 2)]) #@49 Show log for `HEAD'. (fn &optional ARGS FILES) (defalias 'magit-log-head #[512 "\300\301C#\207" [magit-log-setup-buffer "HEAD"] 6 (#$ . 30245) (magit-log-arguments)]) #@72 Show log for all local branches and `HEAD'. (fn &optional ARGS FILES) (defalias 'magit-log-branches #[512 "\300\301 \203 \302C\202\303\302D#\207" [magit-log-setup-buffer magit-get-current-branch "--branches" "HEAD"] 6 (#$ . 30421) (magit-log-arguments)]) #@91 Show log for all branches matching PATTERN and `HEAD'. (fn PATTERN &optional ARGS FILES) (defalias 'magit-log-matching-branches #[769 "\300\301\302\303\"D#\207" [magit-log-setup-buffer "HEAD" format "--branches=%s"] 8 (#$ . 30688) (byte-code "\300\301!\302 B\207" [magit-log-read-pattern "--branches" magit-log-arguments] 2)]) #@87 Show log for all tags matching PATTERN and `HEAD'. (fn PATTERN &optional ARGS FILES) (defalias 'magit-log-matching-tags #[769 "\300\301\302\303\"D#\207" [magit-log-setup-buffer "HEAD" format "--tags=%s"] 8 (#$ . 31026) (byte-code "\300\301!\302 B\207" [magit-log-read-pattern "--tags" magit-log-arguments] 2)]) #@83 Show log for all local and remote branches and `HEAD'. (fn &optional ARGS FILES) (defalias 'magit-log-all-branches #[512 "\300\301 \203\f\302\303D\202\304\302\303E#\207" [magit-log-setup-buffer magit-get-current-branch "--branches" "--remotes" "HEAD"] 6 (#$ . 31348) (magit-log-arguments)]) #@68 Show log for all references and `HEAD'. (fn &optional ARGS FILES) (defalias 'magit-log-all #[512 "\300\301 \203 \302C\202\303\302D#\207" [magit-log-setup-buffer magit-get-current-branch "--all" "HEAD"] 6 (#$ . 31651) (magit-log-arguments)]) #@266 Show log for the blob or file visited in the current buffer. With a prefix argument or when `--follow' is an active log argument, then follow renames. When the region is active, restrict the log to the lines that the region touches. (fn &optional FOLLOW BEG END) (defalias 'magit-log-buffer-file #[768 "\302\303!\210\304 \211\203\\\305\206\306 \206\307C\310 @\203)\311\235\204)\311B\262\312\313\314 \"!\203P\203P\203P\315\316$\317\320\321\322$B\262\323\262\211\262\205YC $\207\324\325!\207" [magit-buffer-refname magit-log-buffer-file-locked require magit magit-file-relative-name magit-log-setup-buffer magit-get-current-branch "HEAD" magit-log-arguments "--follow" file-regular-p expand-file-name magit-toplevel format "-L%s,%s:%s" cl-delete "-L" :test string-prefix-p nil user-error "Buffer isn't visiting a file"] 13 (#$ . 31905) (byte-code "\301 \205%\302 \205%\214~\210\303\304 !\303\305 \211f\203\211\202 \211S\262!)DB\207" [current-prefix-arg region-active-p magit-file-relative-name line-number-at-pos region-beginning region-end] 5)]) #@57 Show log for the definition at point. (fn FILE FN REV) (defalias 'magit-log-trace-definition #[771 "\301\302!\210\303C\304\305\306\307\310\311 !\312\313%\314\315\316\"\203\317\202\320$\321\322\323 @\324\325$B\312$\207" [magit-log-buffer-file-locked require magit magit-log-setup-buffer format "-L:%s%s:%s" replace-regexp-in-string ":" "\\:" regexp-quote nil t derived-mode-p lisp-mode emacs-lisp-mode "\\( \\|$\\)" "" cl-delete "-L" magit-log-arguments :test string-prefix-p] 13 (#$ . 32997) (byte-code "\302 \206\303\304! \206\303\305! \206\306 \206\307E\207" [magit-log-trace-definition-function magit-buffer-refname magit-file-relative-name user-error "Buffer isn't visiting a file" "No function at point found" magit-get-current-branch "HEAD"] 3)]) #@49 Show log for the definition at point in a diff. (defalias 'magit-diff-trace-definition #[0 "\300 \211\242\243\211\242\243rq\210\212\214~\210\211\206\301b\210\302\303!+\207" [magit-diff-visit-file--noselect 1 call-interactively magit-log-trace-definition] 9 (#$ . 33775) nil]) #@400 Show log for the merge of COMMIT into BRANCH. More precisely, find merge commit M that brought COMMIT into BRANCH, and show the log of the range "M^1..M". If COMMIT is directly on BRANCH, then show approximately twenty surrounding commits instead. This command requires git-when-merged, which is available from https://github.com/mhagger/git-when-merged. (fn COMMIT BRANCH &optional ARGS FILES) (defalias 'magit-log-merged #[1026 "\301\302!\204 \303\304\305\"\210\306\211\307\310\311\"r\211q\210\312\313\"\216\212\314\306\311\306\315\316\317\320\321 !&\n\262)\322`\323 \"\262*\210\324U\203M\325\326\327\211#C\306\n%\207\330\331\332\"\306O!\262\211\333\232\203\232\334P\335\"@\336Z\211\324X\203u\202{\326\337#\340!\204\211\341\342\343 #\262\325\344QC\345 B\306 %\207\303\346$\207" [magit-git-executable executable-find "git-when-merged" user-error "This command requires git-when-merged (%s)" "https://github.com/mhagger/git-when-merged" nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] magit-process-file "when-merged" "-c" "--abbrev" number-to-string magit-abbrev-length buffer-substring-no-properties line-end-position 0 magit-log-setup-buffer format "%s^1..%s" string-trim-left string-match " " "Commit is directly on this branch." "~10" magit-rev-diff-count 10 "%s~%s" magit-rev-verify-commit magit-git-string "rev-list" "--max-parents=0" ".." "--first-parent" "Could not find when %s was merged into %s: %s"] 18 (#$ . 34065) (byte-code "\300\301\302!\211\303\304\"D\262\305 \"\207" [append magit-read-branch-or-commit "Commit" magit-read-other-branch "Merged into" magit-log-arguments] 6)]) #@165 Toggle the number of commits the current log buffer is limited to. If the number of commits is currently limited, then remove that limit. Otherwise set it to 256. (defalias 'magit-log-toggle-commit-limit #[0 "\300\301!\207" [magit-log-set-commit-limit #[128 "\300\207" [nil] 2 "\n\n(fn &rest _)"]] 2 (#$ . 35787) nil]) #@68 Double the number of commits the current log buffer is limited to. (defalias 'magit-log-double-commit-limit #[0 "\300\301!\207" [magit-log-set-commit-limit *] 2 (#$ . 36113) nil]) #@66 Half the number of commits the current log buffer is limited to. (defalias 'magit-log-half-commit-limit #[0 "\300\301!\207" [magit-log-set-commit-limit /] 2 (#$ . 36299) nil]) #@11 (fn FN) (defalias 'magit-log-set-commit-limit #[257 "\301\302\301\211\211\2038\211A\262\242\262\262\211\262\2038\303\304\"\203+\301\262\2038\262\262T\262\202\266\211\262\211\205G\305\306\307\"!\211\203R\310\"\202S\311\312\"\262\211\203l\211\302V\203l\313\314\"B\202m\266\315 \207" [magit-buffer-log-args nil 0 string-match "^-n\\([0-9]+\\)?$" string-to-number match-string 1 2 256 delete format "-n%i" magit-refresh] 11 (#$ . 36481)]) (defalias 'magit-log-get-commit-limit #[0 "\301\302\301\211\211\2037\211A\262\242\262\262\211\262\2037\303\304\"\203*\301\262\2037\262\262T\262\202\266\211\262\211\205F\305\306\307\"!\207" [magit-buffer-log-args nil 0 string-match "^-n\\([0-9]+\\)?$" string-to-number match-string 1] 9]) #@246 Bury the current buffer or the revision buffer in the same frame. Like `magit-mode-bury-buffer' (which see) but with a negative prefix argument instead bury the revision buffer, provided it is displayed in the current frame. (fn &optional ARG) (defalias 'magit-log-bury-buffer #[256 "\211\300W\2036\301\302!\211\205\303\304 \"\211\2032\305!r\306\307\"\216\310@\311\"\210rq\210\312\313!\314V!+\207\315\316!\207\312\314V!\207" [0 magit-get-mode-buffer magit-revision-mode get-buffer-window selected-frame internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord magit-mode-bury-buffer abs 1 user-error "No revision buffer in this frame"] 7 (#$ . 37285) "p"]) #@65 Move to the Nth parent of the current commit. (fn &optional N) (defalias 'magit-log-move-to-parent #[256 "\300\301!\205\203\302\303!\205\203\304 \305\306\307\310\"\206\311#\312\313\"\211\203{\314\315\316\"\317\314\211\211\203_\211A\262\242\262\262\211\262\203_\307\310\"\232\203R\314\262\203_\262\262T\262\202+\266\211\262\211\203n\320!\202v\321\322\323\324Q!!\262\202\321\325\"\262\266\202\207" [derived-mode-p magit-log-mode magit-section-match commit magit-current-section format "%s^%s" eieio-oref value 1 magit-rev-parse "--short" nil magit-section-siblings next 0 magit-section-goto user-error substitute-command-keys "Parent " " not found. Try typing \\[magit-log-double-commit-limit] first" "Parent %s does not exist"] 13 (#$ . 38042) "p"]) #@327 Read a revision and move to it in current log buffer. If the chosen reference or revision isn't being displayed in the current log buffer, then inform the user about that and do nothing else. If invoked outside any log buffer, then display the log buffer of the current repository first; creating it if necessary. (fn REV) (defalias 'magit-log-move-to-revision #[257 "r\300\301!\203 p\202\302\301!\211\205\303!\262\206\304\305\306 \"q\210\307\310!!?\205.\311\312\")\207" [derived-mode-p magit-log-mode magit-get-mode-buffer pop-to-buffer-same-window apply magit-log-all-branches magit-log-arguments magit-log-goto-commit-section magit-rev-abbrev user-error "%s isn't visible in the current log buffer"] 4 (#$ . 38844) (byte-code "\300\301!C\207" [magit-read-branch-or-commit "In log, jump to"] 2)]) (defalias 'magit-shortlog #[0 "\300\301!\207" [transient-setup magit-shortlog] 2 nil nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307\310\301\311\312\313\314&#\210\300\301\315\316#\207" [put magit-shortlog interactive-only t function-documentation "Show a history summary." transient--prefix transient-prefix :command :man-page "git-shortlog" :value ("--numbered" "--summary") transient--layout ([1 transient-column (:description "Arguments") ((1 transient-switch (:key "-n" :description "Sort by number of commits" :shortarg "-n" :argument "--numbered" :command transient:magit-shortlog:--numbered)) (1 transient-switch (:key "-s" :description "Show commit count summary only" :shortarg "-s" :argument "--summary" :command transient:magit-shortlog:--summary)) (1 transient-switch (:key "-e" :description "Show email addresses" :shortarg "-e" :argument "--email" :command transient:magit-shortlog:--email)) (1 transient-option (:key "-g" :description "Group commits by" :argument "--group=" :command transient:magit-shortlog:--group= :choices ("author" "committer" "trailer:"))) (7 transient-option (:key "-f" :description "Format string" :argument "--format=" :command transient:magit-shortlog:--format=)) (7 transient-option (:key "-w" :description "Linewrap" :shortarg "-w" :argument "-w" :command transient:magit-shortlog:-w)))] [1 transient-column (:description "Shortlog") ((1 transient-suffix (:key "s" :description "since" :command magit-shortlog-since)) (1 transient-suffix (:key "r" :description "range" :command magit-shortlog-range)))])] 10) #@17 (fn REV ARGS) (defalias 'magit-git-shortlog #[514 "r\300\301!q\210\302 \210\212\303\304#\210)\305p!)\207" [get-buffer-create "*magit-shortlog*" erase-buffer magit-git-insert "shortlog" switch-to-buffer-other-window] 6 (#$ . 41247)]) #@62 Show a history summary for commits since REV. (fn REV ARGS) (defalias 'magit-shortlog-since #[514 "\300\301P\"\207" [magit-git-shortlog ".."] 5 (#$ . 41490) (byte-code "\300\301\302 \"\303\304!D\207" [magit-read-branch-or-commit "Shortlog since" magit-get-current-tag transient-args magit-shortlog] 3)]) #@82 Show a history summary for commit or range REV-OR-RANGE. (fn REV-OR-RANGE ARGS) (defalias 'magit-shortlog-range #[514 "\300\"\207" [magit-git-shortlog] 5 (#$ . 41803) (byte-code "\300\301!\302\303!D\207" [magit-read-range-or-commit "Shortlog for revision or range" transient-args magit-shortlog] 3)]) #@49 Arguments which disable the graph speedup hack. (defvar magit-log-disable-graph-hack-args '("-G" "--grep" "--author") (#$ . 42113)) #@30 Keymap for `magit-log-mode'. (defvar magit-log-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\207" [magit-mode-map make-sparse-keymap set-keymap-parent define-key "" magit-go-backward "" magit-go-forward "" magit-log-move-to-parent "j" magit-log-move-to-revision "=" magit-log-toggle-commit-limit "+" magit-log-double-commit-limit "-" magit-log-half-commit-limit "q" magit-log-bury-buffer] 5) (#$ . 42251)) (defvar magit-log-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [magit-log-mode-hook variable-documentation put "Hook run after entering Magit Log mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp magit-log-mode-map definition-name magit-log-mode] 4) (defvar magit-log-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\207" [magit-log-mode-abbrev-table magit-log-mode-map variable-documentation put purecopy "Keymap for `magit-log-mode'." boundp magit-log-mode-syntax-table definition-name magit-log-mode (lambda (def-tmp-var) (defvar magit-log-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `magit-log-mode'." (lambda (def-tmp-var) (defvar magit-log-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `magit-log-mode'." derived-mode-parent magit-mode custom-mode-group magit-log] 5) #@680 Mode for looking at Git log. This mode is documented in info node `(magit)Log Buffer'. \Type \[magit-refresh] to refresh the current buffer. Type \[magit-visit-thing] or \[magit-diff-show-or-scroll-up] to visit the commit at point. Type \[magit-branch] to see available branch commands. Type \[magit-merge] to merge the branch or commit at point. Type \[magit-cherry-pick] to apply the commit at point. Type \[magit-reset] to reset `HEAD' to the commit at point. \{magit-log-mode-map} In addition to any hooks its parent mode `magit-mode' might have run, this mode runs the hook `magit-log-mode-hook', as the final or penultimate step during initialization. (defalias 'magit-log-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331 \210\332\333 )\334\335!\207" [delay-mode-hooks major-mode mode-name magit-log-mode-map magit-log-mode-syntax-table magit-log-mode-abbrev-table make-local-variable t magit-mode magit-log-mode "Magit Log" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table hack-dir-local-variables-non-file-buffer magit-imenu--log-prev-index-position-function magit-imenu--log-extract-index-name-function run-mode-hooks magit-log-mode-hook local-abbrev-table imenu-prev-index-position-function imenu-extract-index-name-function] 5 (#$ . 44059) nil]) (put 'magit-log-mode 'magit-log-default-arguments '("--graph" "-n256" "--decorate")) #@47 (fn REVS ARGS FILES &optional LOCKED FOCUS) (defalias 'magit-log-setup-buffer #[1283 "\300\301!\210r\302\303\304D\305D\306DE#q\210\211\203\"\307!\202$\310 \203*\311 \210p)\207" [require magit magit-setup-buffer-internal magit-log-mode magit-buffer-revisions magit-buffer-log-args magit-buffer-log-files magit-log-goto-commit-section magit-log-goto-same-commit magit-section-update-highlight] 12 (#$ . 45790)]) (defalias 'magit-log-refresh-buffer #[0 " \n\306 #!\210\211G\307U\203!\310@!\204'\311B\262\202'\312\313\"\262\f@\203z\314\315\314\211\211\203l\211A\262\242\262\262\211\262\203l\316\317\f!P\314\320\321#)\266\203\211\262\204l\262\262T\262\2022\266\211\262\203z\312\322\"\262\322\235\204\206\312\323\"\262\324 \211\205\217\325_\211\205\320G\307U\205\320\211\326V\205\320@\211\262\205\320\327\314\320\321#)\266\203?\205\320\330\235?\205\320\331\332\"\205\320\333\334\335\336 %\211\203\352\337!W\203\340\202\350\340\341 $\262\266\342\343!\203\366\343\202\377\343@\236A\206\377\344\345\342\343!\203\346\343@\"@\206\343\347\314\350\351 \352A&\353\354\355\356\"\211\203+\211\357=\202`B\2058\360\361!B\"\211\203C\362\354\"\202^\363C\"\211\205\\\364!\203Y\211!\262\211\357=\262\262\262#\210\211B\206vA?\205vDDBAE\3652K\366#\210\367\370!\210\371!\210\372\362\373\"\320\"\210\353\374\351 #\375\376\"\377\340\201G\362\201H\"\"!\377\340\201I\362\201H\"\"!\203\305J\206\334\201J!\203\322J\206\334\201J!\205\334\211J\212\362\373\"b\210`W\203\201K`\344\"\206\364\201L`\344\"\204\201M`\344\n$\210\203\201M`\376$\210\211b\266\202\344)\266\211D=\2031\314F\201N!)\202J\353\362\201O\"\201P\362\211\201O\"\201P\"C\244#0\210+\207" [magit-buffer-revisions magit-buffer-log-args magit-buffer-log-files magit-log-header-line-function magit-log-remove-graph-args inhibit-changing-match-data magit-set-header-line-format 1 magit-file-tracked-p "--full-history" remove "--follow" nil 0 "^" regexp-opt t string-match "--graph" "--color" magit-log-get-commit-limit 2 1024 "\\.\\." ("--all" "--branches") -none-p #[257 "\301\302\301\211\211\2034\211A\262\242\262\262\211\262\2034\303\"\211\262\2044\262\262T\262\202\266\211\262\205=\304\207" [magit-log-disable-graph-hack-args nil 0 string-prefix-p t] 10 "\n\n(fn ARG)"] magit-git-string "rev-list" "--count" "--first-parent" string-to-number format "%s~%s..%s" class-p logbuf magit-section :type rassq :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-log run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-section-cache-visibility "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children] 16]) (cl-generic-define-method 'magit-buffer-value nil '(&context (major-mode magit-log-mode)) nil #[0 "\302\211\203 \203\303 B\202 \"\207" [magit-buffer-revisions magit-buffer-log-files append "--"] 4]) #@76 Return string describing some of the used arguments. (fn REVS ARGS FILES) (defalias 'magit-log-header-line-arguments #[771 "\300\301\302\303\304\305$BB\306#\207" [mapconcat #[257 "\301\302\303\304#)\266\203\203\305!\207\207" [inhibit-changing-match-data " " nil t string-match prin1] 8 "\n\n(fn ARG)"] "git" "log" append ("--") " "] 12 (#$ . 49302)]) #@63 Return string containing all arguments. (fn REVS ARGS FILES) (defalias 'magit-log-header-line-sentence #[771 "\300\301\302\303#\304\235\205 \305\205\306\301\302\303#P\307\310\307\211\211\203S\211A\262\242\262\262\211\262\203S\311\312\"\205@\303P\211\262\204S\262\262T\262\202 \266\211\262\260\207" ["Commits in " mapconcat identity " " "--reverse" " in reverse" " touching " nil 0 string-prefix-p "-L"] 16 (#$ . 49674)]) #@91 Insert a log section. Do not add this to a hook variable. (fn REVS &optional ARGS FILES) (defalias 'magit-insert-log #[769 "\303\304\"\305\306\307\310\"\311\312\313\314\235\203\315\235\204\316\202 \317\320\235\203+\321\202,\317\322 \235\203>\303\322\n\"\262 \323\202?\317 \203G\324\202H\325\326 \235\203j\315\303\326 \"\211\262 \235\203c\327\n\327Q\202k\330\n\331Q\202k\317&\332\333\332\211\211\203\245\211A\262\242\262\262\211\262\203\245\334\335\"\203\230\332\262\203\245\262\262T\262\202t\266\211\262\211\203\275\312\336\337\340\"\"\303 \"B\262\210\320\235\203\316\341\303\320\"B\262\342\235\203\334\303\315\"\262\343!\262\344\345 \346 & )\207" [magit-git-global-arguments magit-log-margin-show-committer-date magit-log-revision-headers-format remove "--literal-pathspecs" magit-git-wash apply-partially magit-log-wash-log log "log" format "--format=%s%%h%%x0c%s%%x0c%s%%x0c%%aN%%x0c%s%%x0c%%s%s" "--left-right" "--graph" "%m " "" "--decorate" "%D" "--show-signature" "%G?" "%ct" "%at" "++header" "\n" "\n" "\n" nil 0 string-match "^\\+\\+order=\\(.+\\)$" "--%s-order" match-string 1 "--decorate=full" "--reverse" magit-diff--maybe-add-stat-arguments "--use-mailmap" "--no-prefix" "--"] 16 (#$ . 50137)]) #@31 Keymap for `commit' sections. (defvar magit-commit-section-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-show-commit "a" magit-cherry-apply] 5) (#$ . 51431)) #@38 Keymap for `module-commit' sections. (defvar magit-module-commit-section-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-show-commit] 5) (#$ . 51675)) (defconst magit-log-heading-re "^\\(?4:[-_/|\\*o<>. ]*\\)\\(?1:[0-9a-fA-F]+\\)?\f\\(?3:[^\f\n]+\\)?\f\\(?7:[BGUXYREN]\\)?\f\\(?5:[^\f\n]*\\)\f\\(?6:[^\f\n]*\\)\f\\(?2:.*\\)$") (defconst magit-log-cherry-re "^\\(?8:[-+]\\) \\(?1:[0-9a-fA-F]+\\) \\(?2:.*\\)$") (defconst magit-log-module-re "^\\(?:\\(?11:[<>]\\) \\)?\\(?1:[0-9a-fA-F]+\\) \\(?2:.*\\)$") (defconst magit-log-bisect-vis-re "^\\(?4:[-_/|\\*o<>. ]*\\)\\(?1:[0-9a-fA-F]+\\)?\\(?3:[^\n]+\\)?\\(?2:.*\\)$") (defconst magit-log-bisect-log-re "^# \\(?3:[^: \n]+:\\) \\[\\(?1:[^]\n]+\\)\\] \\(?2:.*\\)$") (defconst magit-log-reflog-re "^\\(?1:[^\n]+\\)\\(?5:[^\n]*\\)\\(?:\\(?:[^@\n]+@{\\(?6:[^}\n]+\\)}\\(?10:merge \\|autosave \\|restart \\|[^:\n]+: \\)?\\(?2:.*\\)?\\)\\|\\)$") (defconst magit-reflog-subject-re "\\(?1:[^ ]+\\) ?\\(?2:\\(?: ?-[^ ]+\\)+\\)?\\(?: ?(\\(?3:[^)]+\\))\\)?") (defconst magit-log-stash-re "^\\(?1:[^\n]+\\)\\(?5:[^\n]*\\)\\(?6:[^\n]+\\)\\(?2:.*\\)$") (defvar magit-log-count nil) (defvar magit-log-format-message-function 'magit-log-propertize-keywords) #@19 (fn STYLE ARGS) (defalias 'magit-log-wash-log #[514 "\306!\262\307\235\203\310\235\203\311\312ed\"\210)\313=\203$\314ed\"\210\315\316\317!\203/\320 \210\321\322\323\324 #!\210\325\326\327\"\203\270 \330 =\205\274\331\332!\203P\332\202X\332\n\236A\206X\333\334\331\332!\203g\335\332\n\"@\206h\332\336\337\340\341 \342 &\343\344\345\346\"\211\203\202\211\347=\202\264\f\205\215\350\351!\f\"\211\203\230\352\344\"\202\262\353 \"\211\205\260\354!\203\255\211!\262\211\347=\262\262\262#\210\211\f\206\310 ?\205\310@@A\3552\260\356\357\360\361\362\363#!\364\365\366\367\370\371&\210\372\373!\210\374!\210\375\352\376\"\367\"\210\343\377\341 #\201C\201D\"\201E\360\201F\352\201G\"\"!\201E\360\201H\352\201G\"\"!\203(J\206?\201I!\2035J\206?\201I!\205?\211J\212\352\376\"b\210`W\203\200\201J`\333\"\206W\201K`\333\"\204y\201L`\333\n$\210\203y\201L`\201D$\210\211b\266\202G)\266\211@=\203\226\337B\201M!)\202\257\343\352\201N\"\201O\352\211\201N\"\201O\"C\244#0\210+\211\262\202\274\201Pc)\207" [ansi-color-apply-face-function magit-log-count magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist -flatten "--graph" "--color" #[771 "\300\301\206 \302$\207" [put-text-property font-lock-face magit-log-graph] 8 "\n\n(fn BEG END FACE)"] ansi-color-apply-on-region cherry reverse-region 0 looking-at "^\\.\\.\\." magit-delete-line magit-wash-sequence apply-partially magit-log-wash-rev magit-abbrev-length derived-mode-p magit-log-mode magit-reflog-mode magit-log-get-commit-limit class-p longer magit-section :type rassq :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section insert-text-button substitute-command-keys format "Type \\<%s>\\[%s] to show more history" magit-log-mode-map magit-log-double-commit-limit action #[257 "\300 \207" [magit-log-double-commit-limit] 2 "\n\n(fn BUTTON)"] follow-link t mouse-face magit-section-highlight run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end magit-root-section magit-insert-section--current magit-section-cache-visibility eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children 10] 14 (#$ . 52944)]) #@21 (fn STYLE ABBREV) (defalias 'magit-log-wash-rev #[514 "\3062\200\307\310\311\"\203T\312\313\267\2023 \2024\n\2024 \2024\f\2024 \2024@\2024A\2024\314!\210\315\316\314\"\315\317\314\"\315\320\314\"\315\321\314\"\315\322\314\"\315\323\314\"\315\324\314\"\315\325\314\"\315\326\314\"\315\327\314\"\330 !\262 \203o\330!\262 \331=\206{\332B\235?\f\333=\203\207@\202\210 \334 \210 \335=\203\234\204\234\336\306\337\"\210\340\341!\203\246\341\202\257\341C\236A\206\257\342\343\340\341!\203\277\344\341C\"@\206\300\341\345\346\347 \350D&\351\352\353\354\"\211\203\334\211\355=\202E\205\351\356\357!E\"\211\203\364\360\352\"\202\361F\"\211\205 \362!\203\n\211!\262\211\355=\262\262\262#\210\211E\206'D?\205'GGEDH\3632z\211\364\267\202R\351\365\366#\210\202R\351\365\367#\210\202R\370\371\"\262\372\373\n\205_\n\374H\211\375\267\202\221\376\202\224\377\202\224\201O\202\224\201P\202\224\201Q\202\224\201R\202\224\201S\202\224\201T\202\224\201T\262#\262\203\325\307\201U!\203\267I\203\267\201VJS\201W\"c\210\372\373 \201X\230\203\312\201Y\202\315\201Z#c\210\201Wc\210\203\366\372\373\201[\230\203\353\201Y\202\356\201Z#c\210\201Wc\210\203 \201W\261\210\n\203 \nc\210\204 \201W\261\210 \203-K\204-\201\\\f!\201W\261\210\335=\203l\201]\201^S\"c\210\203l\201_\374\201` \314\337L\201a#)\266\203\203e\201b\202h\201cO!c\210\f\203zM\"c\210 \203\221K\203\221\201Wc\210\201\\\f!c\210\326c\210\201d>\203\360\201e b\210\203\336\201a\201f\n\"\203\336\201g\315\316 \"!\201g\315\317\f\"!\201h_\201h_\\\201g\315\320\f\"!\201h_\\\262 \212\201cu\210\201i  #\210)\331=\203\201j \203\212\201cu\210\201k\201i\201l\201m\201n\"\201o\"#\210)\n\203\234m\204\234\312!\204\234\312\201p!\203\343\201q \210\201r\316!\210\340\201s!\203O\201s\202Z\201sC\236A\206Z\342\343\340\201s!\203n\344\201sC\"@\206q\201s\345\314\346\347 \350D&\351\352\353\354\"\211\203\214\211\355=\202\301E\205\231\356\357!E\"\211\203\244\360\352\"\202\277\361F\"\211\205\275\362!\203\272\211!\262\211\355=\262\262\262#\210\211E\206\327D?\205\327GGEDH\3632\332\314y\210\201q \210\201t\201p!\210\201u\316!\210\314u\210\326c\210\201v\201w!\210\201x!\210\201y\360\201z\"\337\"\210\351\201{\347 #\201|\201}\"\201~\201]\201\360\365\"\"!\201~\201]\201\200\360\365\"\"!\203PJ\206g\201\201!\203]J\206g\201\201!\205g\211J\212\360\201z\"b\210`W\203\252\201\202`\342\"\206\201\201\203`\342\"\204\243\201\204`\342\n$\210\203\243\201\204`\201}$\210\211b\266\202q)\266\211G=\203\300\314N\201\205!)\202\331\351\360\201\206\"\201\207\360\211\201\206\"\201\207\"C\244#0\210+\210\201r\316!\210\312\201\210!\203&\212\201t\314\337#\205\370\374\224)\360H\201\211\"\204\201q \210\201r\312\201\212!\203\316\202\321!\210\201\213\332C\"\266\202\235\2036\201VT\201W\"\262m\204\234\312!\204\234\203P\201VT\201W\"\262m\204n\312!\204n\203c\212c\210)\201\214 \210\314y\210\202P\212\201cy\210\312\201\215!\210)\315\374!\262 \201\216 \314\337L\201a#)\266\203\204\234\n\326\261\210\210\201v\201w!\210\201x!\210\201y\360\201z\"\337\"\210\351\201{\347 #\201|\201}\"\201~\201]\201\360\365\"\"!\201~\201]\201\200\360\365\"\"!\203\360J\206\201\201!\203\375J\206\201\201!\205\211J\212\360\201z\"b\210`W\203J\201\202`\342\"\206!\201\203`\342\"\204C\201\204`\342\n$\210\203C\201\204`\201}$\210\211b\266\202)\266\211G=\203`\314N\201\205!)\202y\351\360\201\206\"\201\207\360\211\201\206\"\201\207\"C\244#0\210+\266 \3370\207" [magit-log-count magit-log-heading-re magit-log-cherry-re magit-log-module-re magit-log-reflog-re magit-log-stash-re --cl-block-magit-log-wash-rev-- derived-mode-p magit-log-mode magit-reflog-mode looking-at #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (log 21 cherry 25 module 29 reflog 33 stash 37 bisect-vis 41 bisect-log 46)) nil match-string 1 2 3 4 5 6 7 8 10 11 substring-no-properties cherry "--stat" bisect-vis magit-delete-line reflog throw t class-p commit magit-section :type rassq :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (stash 313 module 322 bisect-log 331)) type stash module-commit magit-rev-parse "--short" propertize font-lock-face 0 #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (71 357 66 361 85 365 88 371 89 377 82 383 69 389 78 395)) magit-signature-good magit-signature-bad magit-log-bisect-vis-re magit-log-bisect-log-re magit-buffer-log-args magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-refs-show-commit-count magit-refs-focus-column-width magit-log-show-refname-after-summary inhibit-changing-match-data magit-log-format-message-function magit-section-cache-visibility magit-signature-untrusted magit-signature-expired magit-signature-expired-key magit-signature-revoked magit-signature-error magit-hash magit-refs-mode make-string 32 "-" magit-cherry-equivalent magit-cherry-unmatched "<" magit-format-ref-labels format "%-2s " magit-reflog-format-subject ":" string-match -2 -1 (log reflog stash) line-beginning-position "\\`\\([^ ]\\) \\+\\(..\\)\\(..\\)" string-to-number 60 magit-log-format-margin magit-buffer-margin-p apply split-string magit-rev-format "%aN%x00%ct" "" "" magit-insert-heading delete-char commit-header re-search-forward backward-delete-char run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children "^\\(---\\|\n \\|\ndiff\\)" content "\n" magit-diff-wash-diffs magit-make-margin-overlay "[-_/|\\*o<>. ]*" "[/\\.]"] 28 (#$ . 55539)]) #@16 (fn REV MSG) (defalias 'magit-log-propertize-keywords #[514 "\301\302\303\301#\203\301\225\262\304\301\224S\305$\210\2031\302\306#\2031\301\225\262\304\301\224\307$\210\202\210\207" [magit-log-highlight-keywords 0 string-match "^\\(?:squash\\|fixup\\)! " magit--put-face magit-keyword-squash "\\[[^[]*?]" magit-keyword] 8 (#$ . 61973)]) #@398 When point is at the end of a log buffer, insert more commits. Log buffers end with a button "Type + to show more history". When the use of a section movement command puts point on that button, then automatically show more commits, without the user having to press "+". This function is called by `magit-section-movement-hook' and exists mostly for backward compatibility reasons. (fn SECTION) (defalias 'magit-log-maybe-show-more-commits #[257 "\301\302\"\303=\205\205\304 \210\305y\210\306 \207" [magit-log-auto-more eieio-oref type longer magit-log-double-commit-limit -1 magit-section-forward] 4 (#$ . 62335)]) (add-hook 'magit-section-movement-hook 'magit-log-maybe-show-more-commits) (defvar magit--update-revision-buffer nil) #@153 When moving in a log or cherry buffer, update the revision buffer. If there is no revision buffer in the same frame, then do nothing. (fn &optional _) (defalias 'magit-log-maybe-update-revision-buffer #[256 "\300\301\302\303#\205\n\304 \207" [derived-mode-p magit-log-mode magit-cherry-mode magit-reflog-mode magit--maybe-update-revision-buffer] 5 (#$ . 63084)]) (add-hook 'magit-section-movement-hook 'magit-log-maybe-update-revision-buffer) (defalias 'magit--maybe-update-revision-buffer #[0 "\303\304!\211\205\f\305\306\307\310#\211\205-\203D\211\207D\311 \307\312\313 )\314\315\"\262#\207" [magit--update-revision-buffer magit-update-other-window-delay magit-direct-use-buffer-arguments magit-section-value-if commit magit-get-mode-buffer magit-revision-mode nil t run-with-idle-timer selected magit-show-commit--arguments make-closure #[0 " \210 \242 \243\211\242\243\303\304!\203\305\306\307\300#\210)\266\303\211\207" [V0 magit--update-revision-buffer magit-display-buffer-noselect nil buffer-live-p t apply magit-show-commit] 10]] 9]) (defvar magit--update-blob-buffer nil) #@145 When moving in a log or cherry buffer, update the blob buffer. If there is no blob buffer in the same frame, then do nothing. (fn &optional _) (defalias 'magit-log-maybe-update-blob-buffer #[256 "\300\301\302\303#\205\n\304 \207" [derived-mode-p magit-log-mode magit-cherry-mode magit-reflog-mode magit--maybe-update-blob-buffer] 5 (#$ . 64200)]) (defalias 'magit--maybe-update-blob-buffer #[0 "\303\304!\211\205K\305\306\307\310 \"\311\305\211\211\203F\211A\262\242\262\262\211\262\203Frq\210)\312=\2039\305\262\203F\262\262T\262\202\266\211\262\211\205b \203YD\211\207D\313\n\305\314#\207" [revert-buffer-function magit--update-blob-buffer magit-update-other-window-delay magit-section-value-if commit nil mapcar window-buffer window-list 0 magit-revert-rev-file-buffer run-with-idle-timer #[0 "\210\242\243\211\242\243\302\303!\2058\304\305!!r\306\307\"\216\310@\311\"\210rq\210\212\312\313!\314 !D\315 \",\262\207" [magit--update-blob-buffer magit-buffer-file-name nil buffer-live-p internal--before-with-selected-window get-buffer-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord magit-blob-visit magit-rev-parse magit-file-relative-name line-number-at-pos] 11]] 9]) #@12 (fn REV) (defalias 'magit-log-goto-commit-section #[257 "\301\302\"\303\304\305\"\306\303\211\211\203A\211A\262\242\262\262\211\262\203A\304\307\"\232\2034\303\262\203A\262\262T\262\202 \266\211\262\211\205O\304\310\"b\207" [magit-root-section magit-rev-format "%h" nil eieio-oref children 0 value start] 11 (#$ . 65489)]) (defalias 'magit-log-goto-same-commit #[0 "\205\301\302\"\205\303\304\305\"!\207" [magit-previous-section magit-section-match (commit branch) magit-log-goto-commit-section eieio-oref value] 4]) (defvar magit-log-margin-show-shortstat nil nil) (make-variable-buffer-local 'magit-log-margin-show-shortstat) #@113 Toggle between the regular and the shortstat margin style. The shortstat style is experimental and rather slow. (defalias 'magit-toggle-log-margin-style #[0 "?\301\302\303\"\207" [magit-log-margin-show-shortstat magit-set-buffer-margin nil t] 3 (#$ . 66163) nil]) #@24 (fn REV AUTHOR DATE) (defalias 'magit-log-format-margin #[771 "\301 \205\203 \302!\207\303\"\207" [magit-log-margin-show-shortstat magit-margin-option magit-log-format-shortstat-margin magit-log-format-author-margin] 6 (#$ . 66435)]) #@44 (fn AUTHOR DATE &optional PREVIOUS-LINE) (defalias 'magit-log-format-author-margin #[770 "\206\301 J\211\243\211\242\243\211\242\243\211\242\243\211\242\243\302\205?\303\304\206,\305\306\307\310\311!\2039\312\202:\313%\314\"\315P\303;\203S\316\317\320!!\"\202\207\321=\322\"\211\242\243\211\242\243\323\211 \203q\324\202r\325\203T\202\200\326Z\"#\266\210\327\"P\"\207" [magit-buffer-margin magit-margin-option magit-make-margin-overlay magit--propertize-face truncate-string-to-width "" nil 32 char-displayable-p 8230 "…" ">" magit-log-author " " format-time-string seconds-to-time string-to-number age-abbreviated magit--age format "%%2i%%-%ic" "%%2i %%-%is" 0 magit-log-date] 33 (#$ . 66684)]) #@12 (fn REV) (defalias 'magit-log-format-shortstat-margin #[257 "\300\205 \301\302\303\304$\211\203S\305\306\"\203O\211\307\310\"\307\311\"\307\312\"\313\314\2034\315\313\316\"\317\"\2025\320\203D\315\313\321\"\322\"\202E\320$\266\203\262\202T\320\202T\320\262!\207" [magit-make-margin-overlay magit-git-string "show" "--format=" "--shortstat" string-match "\\([0-9]+\\) files? changed, \\(?:\\([0-9]+\\) insertions?(\\+)\\)?\\(?:\\(?:, \\)?\\([0-9]+\\) deletions?(-)\\)?\\'" match-string 1 2 3 format "%5s %5s%4s" magit--propertize-face "%s+" magit-diffstat-added "" "%s-" magit-diffstat-removed] 14 (#$ . 67444)]) #@36 (fn STYLE DETAILS DETAILS-WIDTH) (defalias 'magit-log-margin-width #[771 "\203\302\207\203\211T\202\303;\203\304!G\2020\305\306=\203'\307\202/\310\311\312\313 \"\"T\\\\\207" [magit-log-margin-show-shortstat magit--age-spec 16 0 format-time-string 3 age-abbreviated 1 apply max mapcar #[257 "\211A@G\3008G]\207" [2] 4 "\n\n(fn IT)"]] 10 (#$ . 68089)]) #@37 Keymap for `magit-log-select-mode'. (defvar magit-log-select-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\310#\210\303\312\310#\210\303\313\314#\210\303\315\314#\210\207" [magit-log-mode-map make-sparse-keymap set-keymap-parent define-key "" undefined "" "." magit-log-select-pick "e" "" "q" magit-log-select-quit " "] 5) (#$ . 68465)) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put magit-log-select-pick :advertised-binding [3 3] magit-log-select-quit [3 11]] 4) (defvar magit-log-select-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [magit-log-select-mode-hook variable-documentation put "Hook run after entering Magit Select mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp magit-log-select-mode-map definition-name magit-log-select-mode] 4) (defvar magit-log-select-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\207" [magit-log-select-mode-abbrev-table magit-log-select-mode-map variable-documentation put purecopy "Keymap for `magit-log-select-mode'." boundp magit-log-select-mode-syntax-table definition-name magit-log-select-mode (lambda (def-tmp-var) (defvar magit-log-select-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `magit-log-select-mode'." (lambda (def-tmp-var) (defvar magit-log-select-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `magit-log-select-mode'." derived-mode-parent magit-log-mode custom-mode-group magit-log] 5) #@611 Mode for selecting a commit from history. This mode is documented in info node `(magit)Select from Log'. \Type \[magit-refresh] to refresh the current buffer. Type \[magit-visit-thing] or \[magit-diff-show-or-scroll-up] to visit the commit at point. \Type \[magit-log-select-pick] to select the commit at point. Type \[magit-log-select-quit] to abort without selecting a commit. In addition to any hooks its parent mode `magit-log-mode' might have run, this mode runs the hook `magit-log-select-mode-hook', as the final or penultimate step during initialization. (defalias 'magit-log-select-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331 \210)\332\333!\207" [delay-mode-hooks major-mode mode-name magit-log-select-mode-map magit-log-select-mode-syntax-table magit-log-select-mode-abbrev-table make-local-variable t magit-log-mode magit-log-select-mode "Magit Select" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table hack-dir-local-variables-non-file-buffer run-mode-hooks magit-log-select-mode-hook local-abbrev-table] 5 (#$ . 70374) nil]) (put 'magit-log-select-mode 'magit-log-default-arguments '("--graph" "-n256" "--decorate")) #@18 (fn REVS ARGS) (defalias 'magit-log-select-setup-buffer #[514 "\300\301\302\303D\304DD#\207" [magit-setup-buffer-internal magit-log-select-mode nil magit-buffer-revisions magit-buffer-log-args] 8 (#$ . 71920)]) (defalias 'magit-log-select-refresh-buffer #[0 "\306\307!\203\n\307\202\307\236A\206\310\311\306\307!\203!\312\307\"@\206\"\307\313\314\315\316 \317 &\320\321\322\323\"\211\203<\211\324=\202n\n\205G\325\326!\n\"\211\203R\327\321\"\202l\330 \"\211\205j\331!\203g\211!\262\211\324=\262\262\262#\210\211\n\206\200 ?\205\200\f\33224\33312\"\210\334\335!\210\336!\210\337\327\340\"\341\"\210\320\342\316 #\343\344\"\345\346\347\327\350\"\"!\345\346\351\327\350\"\"!\203\305J\206\330\352!\203\320J\206\330\352!\205\330\211J\212\327\340\"b\210`W\203\353`\310\"\206\356\354`\310\"\204\355`\310\n$\210\203\355`\344$\210\211b\266\202\340)\266\211\f=\203\"\3143\356!)\2023\320\327\357\"\360\327\211\357\"\360\"C\244#0\210+\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current class-p logbuf magit-section :type rassq :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-log run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-buffer-revisions magit-buffer-log-args magit-section-cache-visibility] 12]) (cl-generic-define-method 'magit-buffer-value nil '(&context (major-mode magit-log-select-mode)) nil #[0 "\207" [magit-buffer-revisions] 1]) (defvar magit-log-select-pick-function nil nil) (make-variable-buffer-local 'magit-log-select-pick-function) (defvar magit-log-select-quit-function nil nil) (make-variable-buffer-local 'magit-log-select-quit-function) #@52 (fn PICK &optional MSG QUIT BRANCH ARGS INITIAL) (defalias 'magit-log-select #[1537 "\211\204\304 \262\305\206\306 \206\307\310\311\312\"@\"\"\210\211\203%\313!\210 \205\204\314\315\316!\317\320#\314\315\321!\317\320#\322\203U\323\324 \"\203P\325P\202V\202V\326\327B\330BD\"\262\266\331\332G\333\334 %\210 \335>\203w\336!\210 \337>\205\204\340\341\342!\"\207" [magit-direct-use-buffer-arguments magit-log-select-pick-function magit-log-select-quit-function magit-log-select-show-usage magit-commit-at-point magit-log-select-setup-buffer magit-get-current-branch "HEAD" append magit-log--get-value magit-log-select-mode magit-log-goto-commit-section propertize substitute-command-keys "\\[magit-log-select-pick]" font-lock-face magit-header-line-key "\\[magit-log-select-quit]" format-spec string-suffix-p "," " or %q to abort" "Type %p to select commit at point, or %q to abort" 112 113 magit--add-face-text-property 0 magit-header-line-log-select t (both header-line) magit-set-header-line-format (both echo-area) message "%s" substring-no-properties] 13 (#$ . 74143)]) (byte-code "\300\301\302\303#\300\207" [function-put magit-log-select lisp-indent-function defun] 4) #@119 Select the commit at point and act on it. Call `magit-log-select-pick-function' with the selected commit as argument. (defalias 'magit-log-select-pick #[0 "\301 \302\303!\210!\207" [magit-log-select-pick-function magit-commit-at-point magit-mode-bury-buffer kill] 4 (#$ . 75364) nil]) #@98 Abort selecting a commit, don't act on any commit. Call `magit-log-select-quit-function' if set. (defalias 'magit-log-select-quit #[0 "\301\302!\210\211\205 \211 \207" [magit-log-select-quit-function magit-mode-bury-buffer kill] 3 (#$ . 75658) nil]) #@33 Keymap for `magit-cherry-mode'. (defvar magit-cherry-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\207" [magit-mode-map make-sparse-keymap set-keymap-parent define-key "q" magit-log-bury-buffer "L" magit-margin-settings] 5) (#$ . 75916)) (defvar magit-cherry-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [magit-cherry-mode-hook variable-documentation put "Hook run after entering Magit Cherry mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp magit-cherry-mode-map definition-name magit-cherry-mode] 4) (defvar magit-cherry-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\210\303\311\323\324#\207" [magit-cherry-mode-abbrev-table magit-cherry-mode-map variable-documentation put purecopy "Keymap for `magit-cherry-mode'." boundp magit-cherry-mode-syntax-table definition-name magit-cherry-mode (lambda (def-tmp-var) (defvar magit-cherry-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `magit-cherry-mode'." (lambda (def-tmp-var) (defvar magit-cherry-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `magit-cherry-mode'." derived-mode-parent magit-mode custom-mode-group magit-log] 5) #@472 Mode for looking at commits not merged upstream. \Type \[magit-refresh] to refresh the current buffer. Type \[magit-visit-thing] or \[magit-diff-show-or-scroll-up] to visit the commit at point. Type \[magit-cherry-pick] to apply the commit at point. \{magit-cherry-mode-map} In addition to any hooks its parent mode `magit-mode' might have run, this mode runs the hook `magit-cherry-mode-hook', as the final or penultimate step during initialization. (defalias 'magit-cherry-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331 \210\332)\333\334!\207" [delay-mode-hooks major-mode mode-name magit-cherry-mode-map magit-cherry-mode-syntax-table magit-cherry-mode-abbrev-table make-local-variable t magit-mode magit-cherry-mode "Magit Cherry" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table hack-dir-local-variables-non-file-buffer magit-imenu--cherry-create-index-function run-mode-hooks magit-cherry-mode-hook local-abbrev-table imenu-create-index-function] 5 (#$ . 77487) nil]) #@22 (fn HEAD UPSTREAM) (defalias 'magit-cherry-setup-buffer #[514 "\300\301\302\303D\304D\305\306 QDE#\207" [magit-setup-buffer-internal magit-cherry-mode nil magit-buffer-refname magit-buffer-upstream magit-buffer-range ".."] 11 (#$ . 78850)]) (defalias 'magit-cherry-refresh-buffer #[0 "\306\307!\203\n\307\202\307\236A\206\310\311\306\307!\203!\312\307\"@\206\"\307\313\314\315\316 \317 &\320\321\322\323\"\211\203<\211\324=\202n\n\205G\325\326!\n\"\211\203R\327\321\"\202l\330 \"\211\205j\331!\203g\211!\262\211\324=\262\262\262#\210\211\n\206\200 ?\205\200\f\33221\333\334!\210\335\336!\210\337!\210\340\327\341\"\342\"\210\320\343\316 #\344\345\"\346\347\350\327\351\"\"!\346\347\352\327\351\"\"!\203\302J\206\325\353!\203\315J\206\325\353!\205\325\211J\212\327\341\"b\210`W\203\f\354`\310\"\206\353\355`\310\"\204\356`\310\n$\210\203\356`\345$\210\211b\266\202\335)\266\211\f=\203\3142\357!)\2020\320\327\360\"\361\327\211\360\"\361\"C\244#0\210+\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current class-p cherry magit-section :type rassq :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-run-section-hook magit-cherry-sections-hook run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-section-cache-visibility] 12]) (cl-generic-define-method 'magit-buffer-value nil '(&context (major-mode magit-cherry-mode)) nil #[0 "\207" [magit-buffer-range] 1]) #@90 Show commits in a branch that are not merged in the upstream branch. (fn HEAD UPSTREAM) (defalias 'magit-cherry #[514 "\300\301!\210\302\"\207" [require magit magit-cherry-setup-buffer] 5 (#$ . 80863) (byte-code "\300\301!\211\302\303\304!#D\207" [magit-read-branch "Cherry head" magit-read-other-branch "Cherry upstream" magit-get-upstream-branch] 7)]) #@61 Insert headers appropriate for `magit-cherry-mode' buffers. (defalias 'magit-insert-cherry-headers #[0 "\302\303\304#\302 \303\305 !\203\304\202\306#\307!\210\310\311#\210\312c\207" [magit-buffer-refname magit-buffer-upstream propertize font-lock-face magit-branch-local magit-local-branch-p magit-branch-remote magit-insert-head-branch-header magit-insert-upstream-branch-header "Upstream: " 10] 6 (#$ . 81228)]) #@59 Insert commit sections into a `magit-cherry-mode' buffer. (defalias 'magit-insert-cherry-commits #[0 "\306\307!\203\n\307\202\307\236A\206\310\311\306\307!\203!\312\307\"@\206\"\307\313\314\315\316 \317 &\320\321\322\323\"\211\203<\211\324=\202n\n\205G\325\326!\n\"\211\203R\327\321\"\202l\330 \"\211\205j\331!\203g\211!\262\211\324=\262\262\262#\210\211\n\206\200 ?\205\200\f\3322@\333\334!\210\335\336\337\340\"\341\342\3439:&\210\344\345!\210\346!\210\347\327\350\"\351\"\210\320\352\316 #\353\354\"\355\356\357\327\360\"\"!\355\356\361\327\360\"\"!\203\321J\206\344\362!\203\334J\206\344\362!\205\344\211J\212\327\350\"b\210`W\203\363`\310\"\206\372\364`\310\"\204\365`\310\n$\210\203\365`\354$\210\211b\266\202\354)\266\211\f=\203.\314;\366!)\202?\320\327\367\"\370\327\211\367\"\370\"C\244#0\210+\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current class-p cherries magit-section :type rassq :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "Cherry commits:" magit-git-wash apply-partially magit-log-wash-log cherry "cherry" "-v" "--abbrev" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-buffer-upstream magit-buffer-refname magit-section-cache-visibility] 12 (#$ . 81656)]) #@33 Keymap for `unpulled' sections. (defvar magit-unpulled-section-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-diff-dwim] 5) (#$ . 83513)) #@112 Jump to the section "Unpulled from @{upstream}". With a prefix argument also expand it. (fn &optional EXPAND) (defalias 'magit-jump-to-unpulled-from-upstream #[256 "\303\304\305B\306!B!\211\2031\307\310\"b\210\2054\3111&\312\313!)0\210\202-\210\314\315\316!\210\317\320!\207\321\322!\207" [magit-root-section inhibit-quit quit-flag magit-get-section unpulled "..@{upstream}" magit-section-ident eieio-oref start (quit) nil magit-section-show t eval (ignore nil) recenter 0 message "Section \"Unpulled from @{upstream}\" wasn't found"] 5 (#$ . 83719) "P"]) #@64 Insert commits that haven't been pulled from the upstream yet. (defalias 'magit-insert-unpulled-from-upstream #[0 "\306 \211\205P\307\310!\203\310\202\310\236A\206\311\312\307\310!\203'\313\310\"@\206(\310\314\315\316\317 \320 &\321\322\323\324\"\211\203B\211\325=\202x\n\205M\326\327!\n\"\211\203X\330\322\"\202v\331 \"\211\203s\332!\203m\211!\262\211\325=\202t\333\262\262\262#\210\211\n\206\212 ?\205\212\f\3342K\335\336\337\340\341\342#\"!\210\343\3159\"\210\344 \210\345\346!\210\347!\210\350\330\351\"\333\"\210\321\352\317 #\353\354\"\355\336\356\330\357\"\"!\355\336\360\330\357\"\"!\203\334J\206\357\361!\203\347J\206\357\361!\205\357\211J\212\330\351\"b\210`W\203&\362`\311\"\206\363`\311\"\204\364`\311\n$\210\203\364`\354$\210\211b\266\202\367)\266\211\f=\2039\365:\366!)\202J\321\330\367\"\370\330\211\367\"\370\"C\244#0\210+\211\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-get-upstream-branch class-p unpulled magit-section :type rassq :value "..@{upstream}" :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp t cancel-section magit-insert-heading format propertize "Unpulled from %s." font-lock-face magit-section-heading magit-insert-log magit-log-insert-child-count run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-buffer-log-args magit-section-cache-visibility] 13 (#$ . 84292)]) #@114 Jump to the section "Unpulled from ". With a prefix argument also expand it. (fn &optional EXPAND) (defalias 'magit-jump-to-unpulled-from-pushremote #[256 "\303\304\305\306 PB\307!B!\211\2034\310\311\"b\210\2057\3121)\313\314!)0\210\2020\210\315\316\317!\210\320\321!\207\322\323!\207" [magit-root-section inhibit-quit quit-flag magit-get-section unpulled ".." magit-get-push-branch magit-section-ident eieio-oref start (quit) nil magit-section-show t eval (ignore nil) recenter 0 message "Section \"Unpulled from \" wasn't found"] 5 (#$ . 86232) "P"]) #@67 Insert commits that haven't been pulled from the push-remote yet. (defalias 'magit-insert-unpulled-from-pushremote #[0 "\306 \211\205]\307 \205]\310\311!\203\311\202\311\236A\206\312\313\310\311!\203,\314\311\"@\206-\311\315\316P\317\320 \321 &\322\323\324\325\"\211\203I\211\326=\202\n\205T\327\330!\n\"\211\203_\331\323\"\202}\332 \"\211\203z\333!\203t\211!\262\211\326=\202{\334\262\262\262#\210\211\n\206\221 ?\205\221\f\3352X\336\337\340\341\342\343#\340\342\344#\"!\210\345\316P;\"\210\346 \210\347\350!\210\351!\210\352\331\353\"\334\"\210\322\354\320 #\355\356\"\357\337\360\331\361\"\"!\357\337\362\331\361\"\"!\203\351J\206\374\363!\203\364J\206\374\363!\205\374\211J\212\331\353\"b\210`W\2033\364`\312\"\206\365`\312\"\204,\366`\312\n$\210\203,\366`\356$\210\211b\266\202)\266\211\f=\203F\367<\370!)\202W\322\331\371\"\372\331\211\371\"\372\"C\244#0\210+\211\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-get-push-branch magit--insert-pushremote-log-p class-p unpulled magit-section :type rassq :value ".." :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp t cancel-section magit-insert-heading format propertize "Unpulled from %s." font-lock-face magit-section-heading magit-branch-remote magit-insert-log magit-log-insert-child-count run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-buffer-log-args magit-section-cache-visibility] 13 (#$ . 86828)]) #@33 Keymap for `unpushed' sections. (defvar magit-unpushed-section-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-diff-dwim] 5) (#$ . 88833)) #@110 Jump to the section "Unpushed to @{upstream}". With a prefix argument also expand it. (fn &optional EXPAND) (defalias 'magit-jump-to-unpushed-to-upstream #[256 "\303\304\305B\306!B!\211\2031\307\310\"b\210\2054\3111&\312\313!)0\210\202-\210\314\315\316!\210\317\320!\207\321\322!\207" [magit-root-section inhibit-quit quit-flag magit-get-section unpushed "@{upstream}.." magit-section-ident eieio-oref start (quit) nil magit-section-show t eval (ignore nil) recenter 0 message "Section \"Unpushed to @{upstream}\" wasn't found"] 5 (#$ . 89039) "P"]) #@375 Insert section showing unpushed or other recent commits. If an upstream is configured for the current branch and it is behind of the current branch, then show the commits that have not yet been pushed into the upstream branch. If no upstream is configured or if the upstream is not behind of the current branch, then show the last `magit-log-section-commit-count' commits. (defalias 'magit-insert-unpushed-to-upstream-or-recent #[0 "\300 \211\203 \301\302\"\203\303\304\305\"\207\306 \207" [magit-get-upstream-branch magit-rev-ancestor-p "HEAD" magit-insert-recent-commits unpushed "@{upstream}.." magit-insert-unpushed-to-upstream] 4 (#$ . 89607)]) #@62 Insert commits that haven't been pushed to the upstream yet. (defalias 'magit-insert-unpushed-to-upstream #[0 "\306\307\310\"\205N\311\312!\203\312\202\312\236A\206\313\314\311\312!\203(\315\312\"@\206)\312\316\317\320\321 \322 &\323\324\325\326\"\211\203C\211\327=\202u\n\205N\330\331!\n\"\211\203Y\332\324\"\202s\333 \"\211\205q\334!\203n\211!\262\211\327=\262\262\262#\210\211\n\206\207 ?\205\207\f\3352I\336\337\340\341\342\343#\344 \"!\210\345\317<\"\210\346 \210\347\350!\210\351!\210\352\332\353\"\354\"\210\323\355\321 #\356\357\"\360\337\361\332\362\"\"!\360\337\363\332\362\"\"!\203\332J\206\355\364!\203\345J\206\355\364!\205\355\211J\212\332\353\"b\210`W\203$\365`\313\"\206\366`\313\"\204\367`\313\n$\210\203\367`\357$\210\211b\266\202\365)\266\211\f=\2037\370=\371!)\202H\323\332\372\"\373\332\211\372\"\373\"C\244#0\210+\211\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-git-success "rev-parse" "@{upstream}" class-p unpushed magit-section :type rassq :value "@{upstream}.." :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading format propertize "Unmerged into %s." font-lock-face magit-section-heading magit-get-upstream-branch magit-insert-log magit-log-insert-child-count run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-buffer-log-args magit-section-cache-visibility] 12 (#$ . 90268)]) #@123 Insert section showing recent commits. Show the last `magit-log-section-commit-count' commits. (fn &optional TYPE VALUE) (defalias 'magit-insert-recent-commits #[512 "\306\307\"\310!\205 \211\311P\206\312\313!\203\211\202$\211 \236A\206$\314\315\313!\2033\316 \"@\2064\317\206;\320\321 \322\n&\323\324\325\326\"\211\203S\211\327=\202\211 \205^\330\331! \"\211\203i\332\324\"\202\207\333\f\"\211\203\204\334!\203~\211!\262\211\327=\202\205\335\262\262\262#\210\211 \206\233\n?\205\233 :\3362\204\337\340!\210\341\306\342\"\343;\344\343\211\203\325\211A\262\242\262\262T\262\345\346\"\204\263B\262\202\263\266\211\237\262B\"\210\347\350!\210\351!\210\352\332\353\"\335\"\210\323\354\321 #\355\356\"\357\306\360\332\361\"\"!\357\306\362\332\361\"\"!\203J\206(\363!\203 J\206(\363!\205(\211J\212\332\353\"b\210`W\203_\364`\314\"\206>\365`\314\"\204X\366`\314\n$\210\203X\366`\356$\210\211b\266\2020)\266\211 =\203r\343<\367!)\202\203\323\332\370\"\371\332\211\370\"\371\"C\244#0\210+\207" [magit-log-section-commit-count magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section format "HEAD~%s" magit-rev-verify "..HEAD" recent class-p magit-section :type rassq :value :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp t cancel-section magit-insert-heading "Recent commits" magit-insert-log "-n%d" nil 0 string-prefix-p "-n" run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-insert-section--current magit-buffer-log-args magit-section-cache-visibility] 17 (#$ . 92247)]) #@112 Jump to the section "Unpushed to ". With a prefix argument also expand it. (fn &optional EXPAND) (defalias 'magit-jump-to-unpushed-to-pushremote #[256 "\303\304\305 \306PB\307!B!\211\2034\310\311\"b\210\2057\3121)\313\314!)0\210\2020\210\315\316\317!\210\320\321!\207\322\323!\207" [magit-root-section inhibit-quit quit-flag magit-get-section unpushed magit-get-push-branch ".." magit-section-ident eieio-oref start (quit) nil magit-section-show t eval (ignore nil) recenter 0 message "Section \"Unpushed to \" wasn't found"] 5 (#$ . 94318) "P"]) #@65 Insert commits that haven't been pushed to the push-remote yet. (defalias 'magit-insert-unpushed-to-pushremote #[0 "\306 \211\205]\307 \205]\310\311!\203\311\202\311\236A\206\312\313\310\311!\203,\314\311\"@\206-\311\315\316P\317\320 \321 &\322\323\324\325\"\211\203I\211\326=\202\n\205T\327\330!\n\"\211\203_\331\323\"\202}\332 \"\211\203z\333!\203t\211!\262\211\326=\202{\334\262\262\262#\210\211\n\206\221 ?\205\221\f\3352X\336\337\340\341\342\343#\340\342\344#\"!\210\345\316P;\"\210\346 \210\347\350!\210\351!\210\352\331\353\"\334\"\210\322\354\320 #\355\356\"\357\337\360\331\361\"\"!\357\337\362\331\361\"\"!\203\351J\206\374\363!\203\364J\206\374\363!\205\374\211J\212\331\353\"b\210`W\2033\364`\312\"\206\365`\312\"\204,\366`\312\n$\210\203,\366`\356$\210\211b\266\202)\266\211\f=\203F\367<\370!)\202W\322\331\371\"\372\331\211\371\"\372\"C\244#0\210+\211\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-get-push-branch magit--insert-pushremote-log-p class-p unpushed magit-section :type rassq :value ".." :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp t cancel-section magit-insert-heading format propertize "Unpushed to %s." font-lock-face magit-section-heading magit-branch-remote magit-insert-log magit-log-insert-child-count run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start end eieio-oref-default keymap intern "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-buffer-log-args magit-section-cache-visibility] 13 (#$ . 94908)]) (defalias 'magit--insert-pushremote-log-p #[0 "\203B\302A\236\211\203\211@@@T\240\266\211A\207\211@@AT\241\266\303 \304 \232\2054\305 >\2064\306 >?\302B\211AB\241\266\207\303 \304 \232\205S\305 >\206S\306 >?\207" [magit--refresh-cache magit-status-sections-hook magit--insert-pushremote-log-p magit-get-push-branch magit-get-upstream-branch magit-insert-unpulled-from-upstream magit-insert-unpulled-from-upstream-or-recent] 7]) (defalias 'magit-log-insert-child-count #[0 "\2051\302 \303\"G\211\304V\205/\211\305 U\203\306\307\"\262\212\302 \310\"\311Zb\210\306\312\"c\210\313\314!)\262\207" [magit-section-show-child-count magit-insert-section--current eieio-oref children 0 magit-log-get-commit-limit format "%s+" content 2 " (%s)" delete-char 1] 4]) #@239 Insert section showing unpulled commits. Like `magit-insert-unpulled-from-upstream' but prefix each commit which has not been applied yet (i.e. a commit with a patch-id not shared with any local commit) with "+", and all others with "-". (defalias 'magit-insert-unpulled-cherries #[0 "\306\307\310\"\205L\311\312!\203\312\202\312\236A\206\313\314\311\312!\203(\315\312\"@\206)\312\316\317\320\321 \322 &\323\324\325\326\"\211\203C\211\327=\202u\n\205N\330\331!\n\"\211\203Y\332\324\"\202s\333 \"\211\205q\334!\203n\211!\262\211\327=\262\262\262#\210\211\n\206\207 ?\205\207\f\3352G\336\337!\210\340\341\342\343\"\344\345\346 \347 \310&\210\350\351!\210\352!\210\353\332\354\"\355\"\210\323\356\321 #\357\360\"\361\362\363\332\364\"\"!\361\362\365\332\364\"\"!\203\330J\206\353\366!\203\343J\206\353\366!\205\353\211J\212\332\354\"b\210`W\203\"\367`\313\"\206\370`\313\"\204\371`\313\n$\210\203\371`\360$\210\211b\266\202\363)\266\211\f=\2035\372>\373!)\202F\323\332\374\"\375\332\211\374\"\375\"C\244#0\210+\211\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-git-success "rev-parse" "@{upstream}" class-p unpulled magit-section :type rassq :value "..@{upstream}" :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "Unpulled commits:" magit-git-wash apply-partially magit-log-wash-log cherry "cherry" "-v" magit-abbrev-arg magit-get-current-branch run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-section-cache-visibility] 12 (#$ . 97690)]) #@252 Insert section showing unpushed commits. Like `magit-insert-unpushed-to-upstream' but prefix each commit which has not been applied to upstream yet (i.e. a commit with a patch-id not shared with any upstream commit) with "+", and all others with "-". (defalias 'magit-insert-unpushed-cherries #[0 "\306\307\310\"\205I\311\312!\203\312\202\312\236A\206\313\314\311\312!\203(\315\312\"@\206)\312\316\317\320\321 \322 &\323\324\325\326\"\211\203C\211\327=\202u\n\205N\330\331!\n\"\211\203Y\332\324\"\202s\333 \"\211\205q\334!\203n\211!\262\211\327=\262\262\262#\210\211\n\206\207 ?\205\207\f\3352D\336\337!\210\340\341\342\343\"\344\345\346 \310%\210\347\350!\210\351!\210\352\332\353\"\354\"\210\323\355\321 #\356\357\"\360\361\362\332\363\"\"!\360\361\364\332\363\"\"!\203\325J\206\350\365!\203\340J\206\350\365!\205\350\211J\212\332\353\"b\210`W\203\366`\313\"\206\376\367`\313\"\204\370`\313\n$\210\203\370`\357$\210\211b\266\202\360)\266\211\f=\2032\371=\372!)\202C\323\332\373\"\374\332\211\373\"\374\"C\244#0\210+\211\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-git-success "rev-parse" "@{upstream}" class-p unpushed magit-section :type rassq :value "@{upstream}.." :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "Unpushed commits:" magit-git-wash apply-partially magit-log-wash-log cherry "cherry" "-v" magit-abbrev-arg run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property nil magit-section-show parent children magit-section-cache-visibility] 12 (#$ . 99812)]) (provide 'magit-log)