mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
;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)