| 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 | #@59 Popup console for gitignore commands. | |
| 17 | ||
| 18 | (fn &optional ARG) | |
| 19 | (defalias 'magit-gitignore-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-gitignore-popup nil] 5 (#$ . 425) "P"]) | |
| 20 | (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)) | |
| 21 | (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) | |
| 22 | (defalias 'magit-gitignore-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-gitignore-arguments magit-gitignore-popup] 2]) | |
| 23 | (put 'magit-gitignore-arguments 'definition-name 'magit-gitignore-popup) | |
| 24 | #@72 Instruct Git to globally ignore FILE-OR-PATTERN. | |
| 25 | ||
| 26 | (fn FILE-OR-PATTERN) | |
| 27 | (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)]) | |
| 28 | #@71 Instruct Git to locally ignore FILE-OR-PATTERN. | |
| 29 | ||
| 30 | (fn FILE-OR-PATTERN) | |
| 31 | (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)]) | |
| 32 | #@30 | |
| 33 | ||
| 34 | (fn FILE-OR-PATTERN LOCAL) | |
| 35 | (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)]) | |
| 36 | #@14 | |
| 37 | ||
| 38 | (fn LOCAL) | |
| 39 | (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)]) | |
| 40 | (provide 'magit-gitignore) | |
