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

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
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)