;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.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(require 'magit)
|
#@59 Popup console for gitignore commands.
|
|
(fn &optional ARG)
|
(defalias 'magit-gitignore-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-gitignore-popup nil] 5 (#$ . 425) "P"])
|
(defvar magit-gitignore-popup (list :variable 'magit-gitignore-arguments :man-page "gitignore" :actions '((108 "ignore locally" magit-gitignore-locally) (103 "ignore globally" magit-gitignore-globally)) :max-action-columns 1))
|
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-gitignore-popup custom-declare-variable magit-gitignore-arguments funcall function #[0 "\301\302\"\207" [magit-gitignore-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
|
(defalias 'magit-gitignore-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-gitignore-arguments magit-gitignore-popup] 2])
|
(put 'magit-gitignore-arguments 'definition-name 'magit-gitignore-popup)
|
#@72 Instruct Git to globally ignore FILE-OR-PATTERN.
|
|
(fn FILE-OR-PATTERN)
|
(defalias 'magit-gitignore-globally #[257 "\300\301\"\207" [magit--gitignore nil] 4 (#$ . 1431) (byte-code "\300\301!C\207" [magit-gitignore-read-pattern nil] 2)])
|
#@71 Instruct Git to locally ignore FILE-OR-PATTERN.
|
|
(fn FILE-OR-PATTERN)
|
(defalias 'magit-gitignore-locally #[257 "\300\301\"\207" [magit--gitignore t] 4 (#$ . 1673) (byte-code "\300\301!C\207" [magit-gitignore-read-pattern t] 2)])
|
#@30
|
|
(fn FILE-OR-PATTERN LOCAL)
|
(defalias 'magit--gitignore #[514 "\211\203\f \300\301\302!!\202 \303\304\305 \"\306\307!\310\"\210\311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216\322!\2035 \323!\210db\210n\204? \324c\210\325\326\327#c\210\324c\210\330\331\211#\210*\210\203[ \332 \202_ \333\334\304\"\207" [magit-git-dir convert-standard-filename "info/exclude" expand-file-name ".gitignore" magit-toplevel make-directory file-name-directory t generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 file-exists-p insert-file-contents "\n" replace-regexp-in-string "\\(\\\\*\\)" "\\1\\1" write-region nil magit-refresh magit-run-git "add"] 10 (#$ . 1909)])
|
#@14
|
|
(fn LOCAL)
|
(defalias 'magit-gitignore-read-pattern #[257 "\300 \301\302\303\304\305\306 \"\"!\203+ \307P\262\235\204+ \310\311!P\262\235\204+ \312\262\313\314\2052 \315P\312\211\211\211&\207" [magit-current-file delete-dups apply append mapcar #[257 "\300P\301!\211\205 \300\302\303!\304R\304PD\262B\207" ["/" file-name-extension file-name-directory "foo" "*."] 7 "\n\n(fn IT)"] magit-untracked-files "/" "*." file-name-extension nil magit-completing-read "File or pattern to ignore" " locally"] 11 (#$ . 2651)])
|
(provide 'magit-gitignore)
|
