;ELC
|
;;; Compiled
|
;;; in Emacs version 26.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.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(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)
|
#@115 Clone the REPOSITORY to DIRECTORY.
|
Then show the status buffer for the new repository.
|
|
(fn REPOSITORY DIRECTORY)
|
(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)])
|
(provide 'magit-clone)
|
