| 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 | (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \210\302\316\304\305\317DD\320\310\321\312\313\314\322& \210\302\323\304\305\324DD\325\310\326\312\313\314\327& \207" [require magit custom-declare-variable magit-clone-set-remote-head funcall function #[0 "\300\207" [nil] 1] "Whether cloning creates the symbolic-ref `<remote>/HEAD'." :package-version (magit . "2.4.2") :group magit-commands :type boolean magit-clone-set-remote\.pushDefault #[0 "\300\207" [ask] 1] "Whether to set the value of `remote.pushDefault' after cloning.\n\nIf t, then set without asking. If nil, then don't set. If\n`ask', then ask." (magit . "2.4.0") (choice (const :tag "set" t) (const :tag "ask" ask) (const :tag "don't set" nil)) magit-clone-default-directory #[0 "\300\207" [nil] 1] "Default directory to use when `magit-clone' reads destination.\nIf nil (the default), then use the value of `default-directory'.\nIf a directory, then use that. If a function, then call that\nwith the remote url as only argument and use the returned value." (magit . "2.90.0") (choice (const :tag "value of default-directory") (directory :tag "constant directory") (function :tag "function's value"))] 10) | |
| 16 | #@115 Clone the REPOSITORY to DIRECTORY. | |
| 17 | Then show the status buffer for the new repository. | |
| 18 | ||
| 19 | (fn REPOSITORY DIRECTORY) | |
| 20 | (defalias 'magit-clone #[514 "\211C\211\301\302\242!!\240\210\303\304\305\242!#\210\306\307\310#\210\311\312\313\314\315\316!\317\"\320\321%\"\207" [magit-this-process file-name-as-directory expand-file-name magit-run-git-async "clone" magit-convert-filename-for-git process-put inhibit-refresh t set-process-sentinel make-byte-code 514 "\305!\306>\203 \307\310\"\210)\305!\311=\205M \312!\313U\205M \300\242 \307=\2043 \2038 \314\315!\2038 \316\317\320\"\210\f\204@ \321\317!\210)r\322\323\"q\210\324\300\242!)\207" vconcat vector [magit-process-raise-error default-directory magit-clone-set-remote\.pushDefault magit-clone-set-remote-head process-status (exit signal) t magit-process-sentinel exit process-exit-status 0 y-or-n-p "Set `remote.pushDefault' to \"origin\"? " magit-set "origin" "remote.pushDefault" magit-remote-unset-head process-get command-buf magit-status-internal] 5 "\n\n(fn PROCESS EVENT)"] 11 (#$ . 1612) (byte-code "\301\302!\211\303\304\305!\203 !\202 \306\211\307\310\"\205\" \311\312\"%D\207" [magit-clone-default-directory magit-read-string-ns "Clone repository" read-directory-name "Clone to: " functionp nil string-match "\\([^/:]+?\\)\\(/?\\.git\\)?$" match-string 1] 10)]) | |
| 21 | (provide 'magit-clone) | |
