| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'magit) | |
| 16 | (defvar magit-find-file-hook nil) | |
| 17 | (add-hook 'magit-find-file-hook 'magit-blob-mode) | |
| 18 | #@116 View FILE from REV. | |
| 19 | Switch to a buffer visiting blob REV:FILE, | |
| 20 | creating one if none already exists. | |
| 21 | ||
| 22 | (fn REV FILE) | |
| 23 | (defalias 'magit-find-file #[514 "\300\301\"!\207" [switch-to-buffer magit-find-file-noselect] 6 (#$ . 510) (magit-find-file-read-args "Find file")]) | |
| 24 | #@129 View FILE from REV, in another window. | |
| 25 | Like `magit-find-file', but create a new window or reuse an | |
| 26 | existing one. | |
| 27 | ||
| 28 | (fn REV FILE) | |
| 29 | (defalias 'magit-find-file-other-window #[514 "\300\301\"!\207" [switch-to-buffer-other-window magit-find-file-noselect] 6 (#$ . 784) (magit-find-file-read-args "Find file in other window")]) | |
| 30 | #@15 | |
| 31 | ||
| 32 | (fn PROMPT) | |
| 33 | (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 (#$ . 1112)]) | |
| 34 | #@134 Read FILE from REV into a buffer and return the buffer. | |
| 35 | FILE must be relative to the top directory of the repository. | |
| 36 | ||
| 37 | (fn REV FILE) | |
| 38 | (defalias 'magit-find-file-noselect #[514 "\300\301#\207" [magit-find-file-noselect-1 magit-find-file-hook] 6 (#$ . 1302)]) | |
| 39 | #@190 Read FILE from REV into a buffer and return the buffer. | |
| 40 | FILE must be relative to the top directory of the repository. | |
| 41 | An empty REV stands for index. | |
| 42 | ||
| 43 | (fn REV FILE HOOKVAR &optional REVERT) | |
| 44 | (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 (#$ . 1568)]) | |
| 45 | #@17 | |
| 46 | ||
| 47 | (fn REV FILE) | |
| 48 | (defalias 'magit-get-revision-buffer-create #[514 "\300\301#\207" [magit-get-revision-buffer t] 6 (#$ . 2489)]) | |
| 49 | #@34 | |
| 50 | ||
| 51 | (fn REV FILE &optional CREATE) | |
| 52 | (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 (#$ . 2625)]) | |
| 53 | #@30 | |
| 54 | ||
| 55 | (fn IGNORE-AUTO NOCONFIRM) | |
| 56 | (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 (#$ . 2893)]) | |
| 57 | (defvar magit-find-index-hook nil) | |
| 58 | #@156 Read FILE from the index into a buffer and return the buffer. | |
| 59 | FILE must to be relative to the top directory of the repository. | |
| 60 | ||
| 61 | (fn FILE &optional REVERT) | |
| 62 | (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 (#$ . 3849)]) | |
| 63 | #@167 Update the index with the contents of the current buffer. | |
| 64 | The current buffer has to be visiting a file in the index, which | |
| 65 | is done using `magit-find-index-noselect'. | |
| 66 | (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\247 r\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 (#$ . 4172) nil]) | |
| 67 | #@400 Edit a file located in the current repository's git directory. | |
| 68 | ||
| 69 | When ".git", located at the root of the working tree, is a | |
| 70 | regular file, then that makes it cumbersome to open a file | |
| 71 | located in the actual git directory. | |
| 72 | ||
| 73 | This command is like `find-file', except that it temporarily | |
| 74 | binds `default-directory' to the actual git directory, while | |
| 75 | reading the FILENAME. | |
| 76 | ||
| 77 | (fn FILENAME &optional WILDCARDS) | |
| 78 | (defalias 'magit-find-git-config-file #[513 "\300\"\207" [find-file] 5 (#$ . 5721) (byte-code "\301 \302\303\304 \")\207" [default-directory magit-git-dir find-file-read-args "Find file: " confirm-nonexistent-file-or-buffer] 3)]) | |
| 79 | #@432 Edit a file located in the current repository's git directory, in another window. | |
| 80 | ||
| 81 | When ".git", located at the root of the working tree, is a | |
| 82 | regular file, then that makes it cumbersome to open a file | |
| 83 | located in the actual git directory. | |
| 84 | ||
| 85 | This command is like `find-file-other-window', except that it | |
| 86 | temporarily binds `default-directory' to the actual git | |
| 87 | directory, while reading the FILENAME. | |
| 88 | ||
| 89 | (fn FILENAME &optional WILDCARDS) | |
| 90 | (defalias 'magit-find-git-config-file-other-window #[513 "\300\"\207" [find-file-other-window] 5 (#$ . 6360) (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)]) | |
| 91 | #@430 Edit a file located in the current repository's git directory, in another frame. | |
| 92 | ||
| 93 | When ".git", located at the root of the working tree, is a | |
| 94 | regular file, then that makes it cumbersome to open a file | |
| 95 | located in the actual git directory. | |
| 96 | ||
| 97 | This command is like `find-file-other-frame', except that it | |
| 98 | temporarily binds `default-directory' to the actual git | |
| 99 | directory, while reading the FILENAME. | |
| 100 | ||
| 101 | (fn FILENAME &optional WILDCARDS) | |
| 102 | (defalias 'magit-find-git-config-file-other-frame #[513 "\300\"\207" [find-file-other-frame] 5 (#$ . 7073) (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)]) | |
| 103 | #@31 Keymap for `magit-file-mode'. | |
| 104 | (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) (#$ . 7780)) | |
| 105 | #@80 Popup console for Magit commands in file-visiting buffers. | |
| 106 | ||
| 107 | (fn &optional ARG) | |
| 108 | (defalias 'magit-file-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-file-popup nil] 5 (#$ . 8045) "P"]) | |
| 109 | (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-addition) (112 "Prev blob" magit-blob-previous) (99 "Commit" magit-commit-popup) nil (116 "Trace" magit-log-trace-definition) (114 (lambda nil (with-current-buffer magit-pre-popup-buffer (and (not buffer-file-name) (propertize "...removal" 'face 'default)))) magit-blame-removal) (110 "Next blob" magit-blob-next) (101 "Edit line" magit-edit-line-commit) nil nil (102 (lambda nil (with-current-buffer magit-pre-popup-buffer (and (not buffer-file-name) (propertize "...reverse" 'face 'default)))) magit-blame-reverse) nil) :max-action-columns 5)) | |
| 110 | (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) | |
| 111 | (defalias 'magit-file-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-file-arguments magit-file-popup] 2]) | |
| 112 | (put 'magit-file-arguments 'definition-name 'magit-file-popup) | |
| 113 | (defvar magit-file-mode-lighter "") | |
| 114 | #@99 Non-nil if Magit-File mode is enabled. | |
| 115 | Use the command `magit-file-mode' to change this variable. | |
| 116 | (defvar magit-file-mode nil (#$ . 9736)) | |
| 117 | (make-variable-buffer-local 'magit-file-mode) | |
| 118 | #@153 Enable some Magit features in a file-visiting buffer. | |
| 119 | ||
| 120 | Currently this only adds the following key bindings. | |
| 121 | ||
| 122 | \{magit-file-mode-map} | |
| 123 | ||
| 124 | (fn &optional ARG) | |
| 125 | (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 (#$ . 9928) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 126 | (defvar magit-file-mode-hook nil) | |
| 127 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [magit-file-mode-map magit-file-mode-hook variable-documentation put "Hook run after entering or leaving `magit-file-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode magit-file-mode magit-file-mode-lighter nil] 6) | |
| 128 | (defalias 'magit-file-mode-turn-on #[0 "\205\f \301\302!\205\f \303 \207" [buffer-file-name magit-inside-worktree-p t magit-file-mode] 2]) | |
| 129 | (defvar magit-file-mode-major-mode nil) | |
| 130 | (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" [t] 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.13.0") :link (info-link "(magit)Minor Mode for Buffers Visiting Files")] 18) | |
| 131 | #@365 Toggle Magit-File mode in all buffers. | |
| 132 | With prefix ARG, enable Global Magit-File mode if ARG is positive; | |
| 133 | otherwise, disable it. If called from Lisp, enable the mode if | |
| 134 | ARG is omitted or nil. | |
| 135 | ||
| 136 | Magit-File mode is enabled in all buffers where | |
| 137 | `magit-file-mode-turn-on' would do it. | |
| 138 | See `magit-file-mode' for more information on Magit-File mode. | |
| 139 | ||
| 140 | (fn &optional ARG) | |
| 141 | (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 (#$ . 12013) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 142 | (defvar global-magit-file-mode-hook nil) | |
| 143 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [global-magit-file-mode-map global-magit-file-mode-hook variable-documentation put "Hook run after entering or leaving `global-magit-file-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-magit-file-mode nil boundp] 6) | |
| 144 | (defvar magit-file-mode-set-explicitly nil nil) | |
| 145 | (make-variable-buffer-local 'magit-file-mode-set-explicitly) | |
| 146 | (defalias 'magit-file-mode-set-explicitly #[0 "\301\211\207" [magit-file-mode-set-explicitly t] 2]) | |
| 147 | (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) | |
| 148 | (defvar global-magit-file-mode-buffers nil) | |
| 149 | (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]) | |
| 150 | (put 'global-magit-file-mode-enable-in-buffers 'definition-name 'global-magit-file-mode) | |
| 151 | (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]) | |
| 152 | (put 'global-magit-file-mode-check-buffers 'definition-name 'global-magit-file-mode) | |
| 153 | (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]) | |
| 154 | (byte-code "\301\302\303\300#\210\203 \300\304!\210\301\207" [global-magit-file-mode put global-magit-file-mode-cmhh definition-name 1] 4) | |
| 155 | #@31 Keymap for `magit-blob-mode'. | |
| 156 | (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\303\314\315#\210\202G \303\316\305#\210\303\317\307#\210\303\320\311#\210\303\321\313#\210\303\314\315#\210\303\322\323#\210\211\207" [make-sparse-keymap featurep jkl define-key "i" magit-blob-previous "k" magit-blob-next "j" magit-blame-addition "l" magit-blame-removal "f" magit-blame-reverse "p" "n" "b" "r" "q" magit-kill-this-buffer] 5) (#$ . 15505)) | |
| 157 | #@99 Non-nil if Magit-Blob mode is enabled. | |
| 158 | Use the command `magit-blob-mode' to change this variable. | |
| 159 | (defvar magit-blob-mode nil (#$ . 16037)) | |
| 160 | (make-variable-buffer-local 'magit-blob-mode) | |
| 161 | #@152 Enable some Magit features in blob-visiting buffers. | |
| 162 | ||
| 163 | Currently this only adds the following key bindings. | |
| 164 | ||
| 165 | \{magit-blob-mode-map} | |
| 166 | ||
| 167 | (fn &optional ARG) | |
| 168 | (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 (#$ . 16230) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 169 | (defvar magit-blob-mode-hook nil) | |
| 170 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [magit-blob-mode-map magit-blob-mode-hook variable-documentation put "Hook run after entering or leaving `magit-blob-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode magit-blob-mode nil boundp] 6) | |
| 171 | #@54 Visit the next blob which modified the current file. | |
| 172 | (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 (#$ . 17362) nil]) | |
| 173 | #@58 Visit the previous blob which modified the current file. | |
| 174 | (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 (#$ . 17780) nil]) | |
| 175 | #@26 | |
| 176 | ||
| 177 | (fn BLOB-OR-FILE LINE) | |
| 178 | (defalias 'magit-blob-visit #[514 ";\203\f \300!\210\202, @A\211@A\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"] 16 (#$ . 18228)]) | |
| 179 | #@17 | |
| 180 | ||
| 181 | (fn REV FILE) | |
| 182 | (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 (#$ . 18524)]) | |
| 183 | #@17 | |
| 184 | ||
| 185 | (fn REV FILE) | |
| 186 | (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\202 0\207" [default-directory magit-toplevel magit-git-lines "log" "--format=%H" "--name-only" "--follow" "HEAD" "--" magit--not-inside-repository-error found 2 throw] 11 (#$ . 18877)]) | |
| 187 | #@111 Rename the FILE to NEWNAME. | |
| 188 | If FILE isn't tracked in Git, fallback to using `rename-file'. | |
| 189 | ||
| 190 | (fn FILE NEWNAME) | |
| 191 | (defalias 'magit-file-rename #[514 "\302\303!!\203M \304!\211\203 \305!\203 \306\307\"\210\310!\203% \306\311\"\210\312\313\303!\303!#\210\211\205L r\211q\210\314!\210)\315\316!\203I \316 \202K \317 )\207\320 #\210\321 \207" [buffer-read-only current-prefix-arg magit-file-tracked-p magit-convert-filename-for-git 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] 8 (#$ . 19267) (byte-code "\300\301!\302!\303\304\305\"\205 \306!\"\306\307 \"\306!D\207" [magit-read-file "Rename file" file-name-directory read-file-name format "Rename %s to file: " expand-file-name magit-toplevel] 6)]) | |
| 192 | #@189 Untrack the selected FILES or one file read in the minibuffer. | |
| 193 | ||
| 194 | With a prefix argument FORCE do so even when the files have | |
| 195 | staged as well as unstaged changes. | |
| 196 | ||
| 197 | (fn FILES &optional FORCE) | |
| 198 | (defalias 'magit-file-untrack #[513 "\300\301\302\205 \303\304%\207" [magit-run-git "rm" "--cached" "--force" "--"] 8 (#$ . 20160) (byte-code "\301\302\303\"\211\203 \304@!\204 \305\306!\210\307\310\311#\202 \312\313!C\262D\207" [current-prefix-arg magit-region-values file t magit-file-tracked-p user-error "Already untracked" magit-confirm-files untrack "Untrack" magit-read-tracked-file "Untrack file"] 5)]) | |
| 199 | #@256 Delete the selected FILES or one file read in the minibuffer. | |
| 200 | ||
| 201 | With a prefix argument FORCE do so even when the files have | |
| 202 | uncommitted changes. When the files aren't being tracked in | |
| 203 | Git, then fallback to using `delete-file'. | |
| 204 | ||
| 205 | (fn FILES &optional FORCE) | |
| 206 | (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 (#$ . 20777) (byte-code "\301\302\303\"\211\203 \304\305\306#\202 \307\310!C\262D\207" [current-prefix-arg magit-region-values file t magit-confirm-files delete "Delete" magit-read-file "Delete file"] 5)]) | |
| 207 | #@40 Checkout FILE from REV. | |
| 208 | ||
| 209 | (fn REV FILE) | |
| 210 | (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 (#$ . 21528) (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)]) | |
| 211 | (defvar magit-read-file-hist nil) | |
| 212 | #@37 | |
| 213 | ||
| 214 | (fn REV PROMPT &optional DEFAULT) | |
| 215 | (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 (#$ . 21981)]) | |
| 216 | #@38 | |
| 217 | ||
| 218 | (fn PROMPT &optional TRACKED-ONLY) | |
| 219 | (defalias 'magit-read-file #[513 "\300 ?\205 \301 \244\302\303\304\303\211\305\306!\206 \307\303\n\"\235@&\207" [magit-list-files magit-untracked-files magit-completing-read nil t magit-section-value-if (file submodule) magit-file-relative-name] 13 (#$ . 22231)]) | |
| 220 | #@15 | |
| 221 | ||
| 222 | (fn PROMPT) | |
| 223 | (defalias 'magit-read-tracked-file #[257 "\300\301\"\207" [magit-read-file t] 4 (#$ . 22547)]) | |
| 224 | #@319 Read file from FILES. | |
| 225 | ||
| 226 | If FILES has only one member, return that instead of prompting. | |
| 227 | If FILES has no members, give a user error. ERROR can be given | |
| 228 | to provide a more informative error. | |
| 229 | ||
| 230 | If DEFAULT is non-nil, use this as the default value instead of | |
| 231 | `magit-current-file'. | |
| 232 | ||
| 233 | (fn PROMPT FILES &optional ERROR DEFAULT) | |
| 234 | (defalias 'magit-read-file-choice #[1026 "G\211\300\267\202 \301\206 \302!\202+ @\202+ \303\304\305\304\306\206% \307 \235@&\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 8 1 18)) user-error "No file choices" magit-completing-read nil t magit-read-file-hist magit-current-file] 14 (#$ . 22664)]) | |
| 235 | #@46 | |
| 236 | ||
| 237 | (fn REV-OR-RANGE PROMPT &optional DEFAULT) | |
| 238 | (defalias 'magit-read-changed-file #[770 "\300\301!\302P$\207" [magit-read-file-choice magit-changed-files "No file changed in "] 9 (#$ . 23344)]) | |
| 239 | #@32 | |
| 240 | ||
| 241 | (fn PROMPT INITIAL-CONTENTS) | |
| 242 | (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 (#$ . 23547)]) | |
| 243 | (provide 'magit-files) | |
