;ELC ;;; Compiled ;;; in Emacs version 25.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'magit) (defvar magit-find-file-hook nil) (add-hook 'magit-find-file-hook 'magit-blob-mode) #@116 View FILE from REV. Switch to a buffer visiting blob REV:FILE, creating one if none already exists. (fn REV FILE) (defalias 'magit-find-file #[514 "\300\301\"!\207" [switch-to-buffer magit-find-file-noselect] 6 (#$ . 512) (magit-find-file-read-args "Find file")]) #@129 View FILE from REV, in another window. Like `magit-find-file', but create a new window or reuse an existing one. (fn REV FILE) (defalias 'magit-find-file-other-window #[514 "\300\301\"!\207" [switch-to-buffer-other-window magit-find-file-noselect] 6 (#$ . 786) (magit-find-file-read-args "Find file in other window")]) (defalias 'magit-find-file-read-args #[257 "\300\301!\211\302\"D\207" [magit-read-branch-or-commit "Find file from revision" magit-read-file-from-rev] 6 "\n\n(fn PROMPT)"]) #@134 Read FILE from REV into a buffer and return the buffer. FILE must be relative to the top directory of the repository. (fn REV FILE) (defalias 'magit-find-file-noselect #[514 "\300\301#\207" [magit-find-file-noselect-1 magit-find-file-hook] 6 (#$ . 1290)]) #@190 Read FILE from REV into a buffer and return the buffer. FILE must be relative to the top directory of the repository. An empty REV stands for index. (fn REV FILE HOOKVAR &optional REVERT) (defalias 'magit-find-file-noselect-1 #[1027 "\305 \306!\203\307\"\262r\310\"q\210\203-\311=\203)\312\313\314\315 \"!\204-\203d\316\230\2037\317\202<\320\321\"\322\"\323!\324!\203Q\211\202R\262\325\304!\210\326\327\330\211\"\210\331!\210p)\207" [magit-buffer-file-name magit-buffer-revision magit-buffer-refname default-directory revert-buffer-function magit-toplevel file-name-absolute-p file-relative-name magit-get-revision-buffer-create ask-revert y-or-n-p format "%s already exists; revert it? " buffer-name "" "{index}" magit-rev-format "%H" expand-file-name file-name-directory file-exists-p make-local-variable magit-revert-rev-file-buffer revert-buffer t run-hooks] 9 (#$ . 1556)]) (defalias 'magit-get-revision-buffer-create #[514 "\300\301#\207" [magit-get-revision-buffer t] 6 "\n\n(fn REV FILE)"]) (defalias 'magit-get-revision-buffer #[770 "\211\203\300\202 \301\302\303\304\232\203\305\202\306\307\310 ##!\207" [get-buffer-create get-buffer format "%s.~%s~" "" "index" subst-char-in-string 47 95] 11 "\n\n(fn REV FILE &optional CREATE)"]) (defalias 'magit-revert-rev-file-buffer #[514 "\211\204B\306 \204-\3072*\211\205'\211@\310 \"\203 \311\307\312\"\210A\266\202\202\2620\204B\313\314\315\n\316\232\203:\317\202=\320\nP\"!\205z\312\321 \322 ! \206O\323\324 \210\325\326\327\n\330Q#\210+\210 \331\332 \" !\333\312!\210*\312\"\334\335!\210eb\207" [revert-without-query magit-buffer-file-name magit-buffer-refname inhibit-read-only default-directory coding-system-for-read buffer-modified-p found string-match throw t yes-or-no-p format "Revert buffer from git %s? " "" "{index}" "revision " magit-toplevel file-relative-name undecided erase-buffer magit-git-insert "cat-file" "-p" ":" remq global-diff-hl-mode-enable-in-buffers normal-mode set-buffer-modified-p nil last-coding-system-used buffer-file-coding-system after-change-major-mode-hook buffer-file-name buffer-read-only] 9 "\n\n(fn IGNORE-AUTO NOCONFIRM)"]) (defvar magit-find-index-hook nil) #@156 Read FILE from the index into a buffer and return the buffer. FILE must to be relative to the top directory of the repository. (fn FILE &optional REVERT) (defalias 'magit-find-file-index-noselect #[513 "\300\301\302\206 \303$\207" [magit-find-file-noselect-1 "" magit-find-index-hook ask-revert] 7 (#$ . 3795)]) #@167 Update the index with the contents of the current buffer. The current buffer has to be visiting a file in the index, which is done using `magit-find-index-noselect'. (defalias 'magit-update-index #[0 "\306 \307\232\204 \310\311\"\210\312\313\314\315 \"!\203\223\316\317!p \203%\320C\321\"\210\n\322\323\324!!\325\326\327\330\331!\332\"\333$\216r\211q\210\334!\210)r\211q\210\335\336\211\336\326%\210*\266)\337 \211\203|\211\340\341\342\343\344\345 #\326\346O\343\347\350\351\352\353 P\354 &%\210)\202\355 \210\210\356\336!\210 \203\216\357C\360\"\210\266\202\227\361\362!\210\210\363\364!\211\203\247r\211q\210\365 \210)\210\366\207" [magit-buffer-refname magit-wip-before-change-mode buffer-file-coding-system coding-system-for-write default-directory magit-wip-after-apply-mode magit-file-relative-name "" user-error "%s isn't visiting the index" y-or-n-p format "Update index with contents of %s" buffer-name make-temp-file "index" magit-wip-commit-before-change " before un-/stage" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring write-region nil magit-toplevel magit-call-git "update-index" "--cacheinfo" magit-git-string "ls-files" "-s" 6 "hash-object" "-t" "blob" "-w" "--path=" "--" magit--not-inside-repository-error set-buffer-modified-p magit-wip-commit-after-apply " after un-/stage" message "Abort" magit-mode-get-buffer magit-status-mode magit-refresh t] 16 (#$ . 4118) nil]) #@400 Edit a file located in the current repository's git directory. When ".git", located at the root of the working tree, is a regular file, then that makes it cumbersome to open a file located in the actual git directory. This command is like `find-file', except that it temporarily binds `default-directory' to the actual git directory, while reading the FILENAME. (fn FILENAME &optional WILDCARDS) (defalias 'magit-find-git-config-file #[513 "\300\"\207" [find-file] 5 (#$ . 5667) (byte-code "\301 \302\303\304 \")\207" [default-directory magit-git-dir find-file-read-args "Find file: " confirm-nonexistent-file-or-buffer] 3)]) #@432 Edit a file located in the current repository's git directory, in another window. When ".git", located at the root of the working tree, is a regular file, then that makes it cumbersome to open a file located in the actual git directory. This command is like `find-file-other-window', except that it temporarily binds `default-directory' to the actual git directory, while reading the FILENAME. (fn FILENAME &optional WILDCARDS) (defalias 'magit-find-git-config-file-other-window #[513 "\300\"\207" [find-file-other-window] 5 (#$ . 6306) (byte-code "\301 \302\303\304 \")\207" [default-directory magit-git-dir find-file-read-args "Find file in other window: " confirm-nonexistent-file-or-buffer] 3)]) #@430 Edit a file located in the current repository's git directory, in another frame. When ".git", located at the root of the working tree, is a regular file, then that makes it cumbersome to open a file located in the actual git directory. This command is like `find-file-other-frame', except that it temporarily binds `default-directory' to the actual git directory, while reading the FILENAME. (fn FILENAME &optional WILDCARDS) (defalias 'magit-find-git-config-file-other-frame #[513 "\300\"\207" [find-file-other-frame] 5 (#$ . 7019) (byte-code "\301 \302\303\304 \")\207" [default-directory magit-git-dir find-file-read-args "Find file in other frame: " confirm-nonexistent-file-or-buffer] 3)]) #@31 Keymap for `magit-file-mode'. (defvar magit-file-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key "g" magit-status "\347" magit-dispatch-popup "\347" magit-file-popup] 5) (#$ . 7726)) #@80 Popup console for Magit commands in file-visiting buffers. (fn &optional ARG) (defalias 'magit-file-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-file-popup nil] 5 (#$ . 7991) "P"]) (defvar magit-file-popup (list :variable 'magit-file-arguments :actions '((115 "Stage" magit-stage-file) (68 "Diff..." magit-diff-buffer-file-popup) (76 "Log..." magit-log-buffer-file-popup) (66 "Blame..." magit-blame-popup) nil (117 "Unstage" magit-unstage-file) (100 "Diff" magit-diff-buffer-file) (108 "Log" magit-log-buffer-file) (98 "Blame" magit-blame) (112 "Prev blob" magit-blob-previous) (99 "Commit" magit-commit-popup) nil nil (114 (lambda nil (with-current-buffer magit-pre-popup-buffer (and (not buffer-file-name) (propertize "...reverse" 'face 'default)))) magit-blame-reverse) (110 "Next blob" magit-blob-next)) :max-action-columns 5)) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-file-popup custom-declare-variable magit-file-arguments funcall function #[0 "\301\302\"\207" [magit-file-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8) (defalias 'magit-file-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-file-arguments magit-file-popup] 2]) (put 'magit-file-arguments 'definition-name 'magit-file-popup) (defvar magit-file-mode-lighter "") #@99 Non-nil if Magit-File mode is enabled. Use the command `magit-file-mode' to change this variable. (defvar magit-file-mode nil (#$ . 9429)) (make-variable-buffer-local 'magit-file-mode) #@153 Enable some Magit features in a file-visiting buffer. Currently this only adds the following key bindings. \{magit-file-mode-map} (fn &optional ARG) (defalias 'magit-file-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [magit-file-mode current-message toggle prefix-numeric-value 0 run-hooks magit-file-mode-hook magit-file-mode-on-hook magit-file-mode-off-hook called-interactively-p any " in current buffer" message "Magit-File mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 9621) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@180 Hook run after entering or leaving `magit-file-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar magit-file-mode-hook nil (#$ . 10330)) (byte-code "\301\302\303\304\211%\207" [magit-file-mode-map add-minor-mode magit-file-mode magit-file-mode-lighter nil] 6) (defalias 'magit-file-mode-turn-on #[0 "\205\3011\302 0\202\210\303\207\205\304 \207" [buffer-file-name (error) magit-inside-worktree-p nil magit-file-mode] 1]) (defvar magit-file-mode-major-mode nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\314\316\317\320\321\322\323\324&\207" [make-variable-buffer-local magit-file-mode-major-mode custom-declare-variable global-magit-file-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Magit-File mode is enabled.\nSee the `global-magit-file-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-magit-file-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group magit-essentials magit-modes :type boolean :package-version (magit . "2.2.0") :link (info-link "(magit)Minor Mode for Buffers Visiting Files")] 18) #@365 Toggle Magit-File mode in all buffers. With prefix ARG, enable Global Magit-File mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Magit-File mode is enabled in all buffers where `magit-file-mode-turn-on' would do it. See `magit-file-mode' for more information on Magit-File mode. (fn &optional ARG) (defalias 'global-magit-file-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\321 \210\202[ \203[\301\322!\210)A\266\202\202?\210\323\324\305\300!\203p\325\202q\326\"\210\327\330!\203\233\331\300!\210\302 \203\211\211\302 \232\203\233\332\333\334\305\300!\203\226\335\202\227\336#\266\210\337 \210\305\300!\207" [global-magit-file-mode magit-file-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-magit-file-mode-enable-in-buffers find-file-hook global-magit-file-mode-check-buffers change-major-mode-hook global-magit-file-mode-cmhh remove-hook buffer-list magit-file-mode-turn-on -1 run-hooks global-magit-file-mode-hook global-magit-file-mode-on-hook global-magit-file-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Magit-File mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 11668) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@187 Hook run after entering or leaving `global-magit-file-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar global-magit-file-mode-hook nil (#$ . 13198)) (byte-code "\301\302\303\304\300!\205\n\303\211%\207" [global-magit-file-mode-map add-minor-mode global-magit-file-mode nil boundp] 6) (defvar magit-file-mode-set-explicitly nil nil) (make-variable-buffer-local 'magit-file-mode-set-explicitly) (defalias 'magit-file-mode-set-explicitly #[0 "\301\211\207" [magit-file-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put magit-file-mode-set-explicitly definition-name global-magit-file-mode add-hook magit-file-mode-hook] 4) (defvar global-magit-file-mode-buffers nil) (defalias 'global-magit-file-mode-enable-in-buffers #[0 "\211\2056\211@\305!\203/r\211q\210 \204,\n =\204,\f\203)\304\306!\210\307 \210\202,\307 \210 )A\266\202\202\207" [global-magit-file-mode-buffers magit-file-mode-set-explicitly magit-file-mode-major-mode major-mode magit-file-mode buffer-live-p -1 magit-file-mode-turn-on] 4]) (put 'global-magit-file-mode-enable-in-buffers 'definition-name 'global-magit-file-mode) (defalias 'global-magit-file-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [global-magit-file-mode-buffers global-magit-file-mode-enable-in-buffers nil remove-hook post-command-hook global-magit-file-mode-check-buffers] 3]) (put 'global-magit-file-mode-check-buffers 'definition-name 'global-magit-file-mode) (defalias 'global-magit-file-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-magit-file-mode-buffers add-hook post-command-hook global-magit-file-mode-check-buffers] 3]) (put 'global-magit-file-mode-cmhh 'definition-name 'global-magit-file-mode) #@31 Keymap for `magit-blob-mode'. (defvar magit-blob-mode-map (byte-code "\300 \301\302!\203#\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\202;\303\314\305#\210\303\315\307#\210\303\316\311#\210\303\317\313#\210\303\320\321#\210\211\207" [make-sparse-keymap featurep jkl define-key "i" magit-blob-previous "k" magit-blob-next "j" magit-blame "l" magit-blame-reverse "p" "n" "b" "f" "q" magit-kill-this-buffer] 5) (#$ . 15020)) #@99 Non-nil if Magit-Blob mode is enabled. Use the command `magit-blob-mode' to change this variable. (defvar magit-blob-mode nil (#$ . 15483)) (make-variable-buffer-local 'magit-blob-mode) #@152 Enable some Magit features in blob-visiting buffers. Currently this only adds the following key bindings. \{magit-blob-mode-map} (fn &optional ARG) (defalias 'magit-blob-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [magit-blob-mode current-message toggle prefix-numeric-value 0 run-hooks magit-blob-mode-hook magit-blob-mode-on-hook magit-blob-mode-off-hook called-interactively-p any " in current buffer" message "Magit-Blob mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 15676) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@180 Hook run after entering or leaving `magit-blob-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar magit-blob-mode-hook nil (#$ . 16385)) (byte-code "\301\302\303\304\300!\205\n\303\211%\207" [magit-blob-mode-map add-minor-mode magit-blob-mode nil boundp] 6) #@54 Visit the next blob which modified the current file. (defalias 'magit-blob-next #[0 "\203\302\303 \"\206 \304 \"\207\305\306 !\203\307\310!\207\307\311!\207" [magit-buffer-file-name magit-buffer-revision magit-blob-visit magit-blob-successor line-number-at-pos buffer-file-name buffer-base-buffer user-error "You have reached the end of time" "Buffer isn't visiting a file or blob"] 4 (#$ . 16740) nil]) #@58 Visit the previous blob which modified the current file. (defalias 'magit-blob-previous #[0 "\206\302\303 !\211\203$\304 \"\211\203\305\306 \"\202\307\310!\262\202'\307\311!\207" [magit-buffer-file-name magit-buffer-revision buffer-file-name buffer-base-buffer magit-blob-ancestor magit-blob-visit line-number-at-pos user-error "You have reached the beginning of time" "Buffer isn't visiting a file or blob"] 5 (#$ . 17158) nil]) (defalias 'magit-blob-visit #[514 ";\203\f\300!\210\202,\211A\262\242@\301\"\210\302\303\304\305\306\"\307\305\310\"!$\266eb\210\211Sy\207" [find-file magit-find-file apply message "%s (%s %s ago)" magit-rev-format "%s" magit--age "%ct"] 13 "\n\n(fn BLOB-OR-FILE LINE)"]) (defalias 'magit-blob-ancestor #[514 "\301 \211\203\211\302\303\304\305\306\307\206\310\311 &)\202\312 \262\203+\211AA\202/\313\314\"\207" [default-directory magit-toplevel magit-git-lines "log" "-2" "--format=%H" "--name-only" "--follow" "HEAD" "--" magit--not-inside-repository-error butlast 2] 12 "\n\n(fn REV FILE)"]) (defalias 'magit-blob-successor #[514 "\301 \211\203\211\302\303\304\305\306\307\310&)\202\311 \262\3122A\211\205@\3138\232\2038\314\312@A@D\"\210\202\211AA\262\2020\207" [default-directory magit-toplevel magit-git-lines "log" "--format=%H" "--name-only" "--follow" "HEAD" "--" magit--not-inside-repository-error found 2 throw] 11 "\n\n(fn REV FILE)"]) #@111 Rename the FILE to NEWNAME. If FILE isn't tracked in Git, fallback to using `rename-file'. (fn FILE NEWNAME) (defalias 'magit-file-rename #[514 "\302!\203G\303!\211\203\304!\203\305\306\"\210\307!\203#\305\310\"\210\311\312#\210\211\205Fr\211q\210\313!\210)\314\315!\203C\315 \202E\316 )\207\317 #\210\320 \207" [buffer-read-only current-prefix-arg magit-file-tracked-p get-file-buffer buffer-modified-p user-error "Save %s before moving it" file-exists-p "%s already exists" magit-run-git "mv" set-visited-file-name fboundp vc-refresh-state vc-find-file-hook rename-file magit-refresh] 7 (#$ . 18606) (byte-code "\300\301!\302\303\304\"!\305\306 \"\305!D\207" [magit-read-file "Rename file" read-file-name format "Rename %s to file: " expand-file-name magit-toplevel] 5)]) #@189 Untrack the selected FILES or one file read in the minibuffer. With a prefix argument FORCE do so even when the files have staged as well as unstaged changes. (fn FILES &optional FORCE) (defalias 'magit-file-untrack #[513 "\300\301\302\205\303\304%\207" [magit-run-git "rm" "--cached" "--force" "--"] 8 (#$ . 19413) (byte-code "\301\302\303\"\211\203!\304@!\204\305\306!\210\307\310\311#\206%\305\312!\202%\313\314!C\262D\207" [current-prefix-arg magit-region-values file t magit-file-tracked-p user-error "Already untracked" magit-confirm-files untrack "Untrack" "Abort" magit-read-tracked-file "Untrack file"] 5)]) #@256 Delete the selected FILES or one file read in the minibuffer. With a prefix argument FORCE do so even when the files have uncommitted changes. When the files aren't being tracked in Git, then fallback to using `delete-file'. (fn FILES &optional FORCE) (defalias 'magit-file-delete #[513 "\300@!\203\301\302\205\303\304$\210\202/\305 \211\203-\211@\306\307\"\310\"\210A\266\202\202\266\311 \207" [magit-file-tracked-p magit-call-git "rm" "--force" "--" magit-toplevel delete-file expand-file-name t magit-refresh] 9 (#$ . 20053) (byte-code "\301\302\303\"\211\203\304\305\306#\206\307\310!\202\311\312!C\262D\207" [current-prefix-arg magit-region-values file t magit-confirm-files delete "Delete" user-error "Abort" magit-read-file "Delete file"] 5)]) #@40 Checkout FILE from REV. (fn REV FILE) (defalias 'magit-file-checkout #[514 "\301 \211\203\211\302\303\304$)\202\305 \207" [default-directory magit-toplevel magit-run-git "checkout" "--" magit--not-inside-repository-error] 8 (#$ . 20838) (byte-code "\301\302\"\211\303\304\"D\207" [magit-buffer-revision magit-read-branch-or-commit "Checkout from revision" magit-read-file-from-rev "Checkout file"] 5)]) (defvar magit-read-file-hist nil) (defalias 'magit-read-file-from-rev #[770 "\300!\301\302\303\302\304\206\305 \235@&\207" [magit-revision-files magit-completing-read nil t magit-read-file-hist magit-current-file] 13 "\n\n(fn REV PROMPT &optional DEFAULT)"]) (defalias 'magit-read-file #[513 "\301 ?\205 \302 \244\303\304\305\304\211\306 \211\2050\307\310\"\2050\211\311H>\204-\312\313\314D\"\210\211\315H\262\206:\316\304\n\"\235@&\207" [cl-struct-magit-section-tags magit-list-files magit-untracked-files magit-completing-read nil t magit-current-section magit-section-match (file submodule) 0 signal wrong-type-argument magit-section 2 magit-file-relative-name] 15 "\n\n(fn PROMPT &optional TRACKED-ONLY)"]) (defalias 'magit-read-tracked-file #[257 "\300\301\"\207" [magit-read-file t] 4 "\n\n(fn PROMPT)"]) #@319 Read file from FILES. If FILES has only one member, return that instead of prompting. If FILES has no members, give a user error. ERROR can be given to provide a more informative error. If DEFAULT is non-nil, use this as the default value instead of `magit-current-file'. (fn PROMPT FILES &optional ERROR DEFAULT) (defalias 'magit-read-file-choice #[1026 "G\211\300=\203\301\206\302!\2021\211\303=\203@\2021\304\305\306\305\307\206+\310  \235@&\207" [0 user-error "No file choices" 1 magit-completing-read nil t magit-read-file-hist magit-current-file] 14 (#$ . 22096)]) (defalias 'magit-read-changed-file #[770 "\300\301!\302P$\207" [magit-read-file-choice magit-changed-files "No file changed in "] 9 "\n\n(fn REV-OR-RANGE PROMPT &optional DEFAULT)"]) (defalias 'magit-read-files #[514 "\300\301\302\206\303\304 \305\211%\306#\207" [mapconcat identity completing-read-multiple "File,s: " magit-list-files nil ","] 10 "\n\n(fn PROMPT INITIAL-CONTENTS)"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable magit-patch-save-arguments funcall function #[0 "\300\207" [(exclude "--stat")] 1] "Arguments used by `magit-patch-save-arguments' (which see)" :package-version (magit . "2.12.0") :group magit-diff :type (choice (const :tag "use buffer arguments" buffer) (cons :tag "use buffer arguments except" (const :format "" exclude) (repeat :format "%v%i\n" (string :tag "Argument"))) (repeat :tag "use constant arguments" (string :tag "Argument")))] 10) #@62 Popup console for applying a patch file. (fn &optional ARG) (defalias 'magit-patch-apply-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-patch-apply-popup nil] 5 (#$ . 23630) "P"]) (defvar magit-patch-apply-popup (list :variable 'magit-patch-apply-arguments :man-page "git-apply" :switches '((105 "Also apply to index" "--index") (99 "Only apply to index" "--cached") (51 "Fall back on 3way merge" "--3way")) :actions '((97 "Apply patch" magit-patch-apply)) :default-action 'magit-patch-apply)) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-patch-apply-popup custom-declare-variable magit-patch-apply-arguments funcall function #[0 "\301\302\"\207" [magit-patch-apply-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8) (defalias 'magit-patch-apply-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-patch-apply-arguments magit-patch-apply-popup] 2]) (put 'magit-patch-apply-arguments 'definition-name 'magit-patch-apply-popup) #@50 Apply the patch file FILE. (fn FILE &rest ARGS) (defalias 'magit-patch-apply #[385 "\300\301\302$\207" [magit-run-git "apply" "--"] 7 (#$ . 24748) (byte-code "\301\302\303\304\211\305 \211\205\306!\262%!\307 D\207" [default-directory expand-file-name read-file-name "Apply patch: " nil magit-file-at-point file-relative-name magit-patch-apply-arguments] 9)]) #@869 Write current diff into patch FILE. What arguments are used to create the patch depends on the value of `magit-patch-save-arguments' and whether a prefix argument is used. If the value is the symbol `buffer', then use the same arguments as the buffer. With a prefix argument use no arguments. If the value is a list beginning with the symbol `exclude', then use the arguments as the buffer except for those matched by entries in the cdr of the list. The comparison is done using `string-prefix-p'. With a prefix argument use the same arguments as the buffer. If the value is a list of strings (including the empty list), then use those arguments. With a prefix argument use the same arguments as the buffer. Of course the arguments that are required to actually show the same differences as those shown in the buffer are always used. (fn FILE &optional ARG) (defalias 'magit-patch-save #[513 "\302\303!\204\n\304\305!\210@A\211@A\211@A\211@A\n\302\306!\203-\307\310\211#\262 \311=\203>\f\203\\\312\262\202\\ \242\313=\203T\f\204\\\314 A\"\262\202\\\f\204\\ \262 \315\316\317!!\320\321\322\323\324!\325\"\326$\216r\211q\210\327\330\331 \332\f&\210)r\211q\210\333\312\211\312\321%\210*\266\334 \207" [magit-refresh-args magit-patch-save-arguments derived-mode-p magit-diff-mode user-error "Only diff buffers can be saved as patches" magit-revision-mode format "%s~..%s" buffer nil exclude -difference get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 magit-git-insert "diff" "-p" "--" write-region magit-refresh] 24 (#$ . 25122) (byte-code "\302\303\" D\207" [default-directory current-prefix-arg read-file-name "Write patch file: "] 3)]) (provide 'magit-files)