HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/progmodes/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/progmodes/project.elc
;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 'cl-generic)
#@231 Special hook to find the project containing a given directory.
Each functions on this hook is called in turn with one
argument (the directory) and should return either nil to mean
that it is not applicable, or a project instance.
(defvar project-find-functions (list 'project-try-vc) (#$ . 431))
#@320 Return the project instance in DIR or `default-directory'.
When no project found in DIR, and MAYBE-PROMPT is non-nil, ask
the user for a different directory to look in.  If that directory
is not a part of a detectable project either, return a
`transient' project instance rooted in it.

(fn &optional MAYBE-PROMPT DIR)
(defalias 'project-current #[512 "\211\204\262\301!\211\204-\203-\302\303\304\305$\262\301!\262\211\204-\306\307\"\210\310B\262\211\207" [default-directory project--find-in-directory read-directory-name "Choose the project directory: " nil t message "Using '%s' as a transient project root" transient] 8 (#$ . 734)])
#@12 

(fn DIR)
(defalias 'project--find-in-directory #[257 "\300\301\"\207" [run-hook-with-args-until-success project-find-functions] 4 (#$ . 1392)])
(byte-code "\300\301\302\301\303\304#\305#\210\300\306\302\306\307\304#\310#\210\311\306\304\307\304\312%\210\300\313\302\313\314\304#\315#\210\311\313\304\314\304\316%\210\300\317\302\317\320\304#\321#\210\311\317\304\320\304\322%\210\311\301\304\323\304\324%\210\325\326\304\327\330\331\332\333&\210\334\335\336\337\340DD\341\342\343\344\345&\207" [defalias project-roots cl-generic-define (project) nil "Return the list of directory roots of the current project.\n\nMost often it's just one directory which contains the project\nbuild file and everything else in the project.  But in more\nadvanced configurations, a project can span multiple directories.\n\nThe directory names should be absolute.\n\n(fn PROJECT)" project-external-roots (_project) "Return the list of external roots for PROJECT.\n\nIt's the list of directories outside of the project that are\nstill related to it.  If the project deals with source code then,\ndepending on the languages used, this list should include the\nheaders search path, load path, class path, and so on.\n\nThe rule of thumb for whether to include a directory here, and\nnot in `project-roots', is whether its contents are meant to be\nedited together with the rest of the project.\n\n(fn PROJECT)" cl-generic-define-method #[257 "\300\207" [nil] 2 "\n\n(fn PROJECT)"] project-ignores (_project _dir) "Return the list of glob patterns to ignore inside DIR.\nPatterns can match both regular files and directories.\nTo root an entry, start it with `./'.  To match directories only,\nend it with `/'.  DIR must be one of `project-roots' or\n`project-external-roots'.\n\n(fn PROJECT DIR)" #[514 "\302\303!\210\304\305\"	\244\207" [vc-directory-exclusion-list grep-find-ignored-files require grep mapcar #[257 "\211\300P\207" ["/"] 3 "\n\n(fn DIR)"]] 5 "\n\n(fn PROJECT DIR)"] project-file-completion-table (project dirs) "Return a completion table for files in directories DIRS in PROJECT.\nDIRS is a list of absolute directories; it should be some\nsubset of the project roots and external roots.\n\nThe default implementation uses `find-program'.  PROJECT is used\nto find the list of ignores for each directory.\n\n(fn PROJECT DIRS)" #[514 "\300\301!\210\302\303\304\305\306\307!\310\"\311\312%\"\303\313\314\306\307!\315\"\316\317%\207" [require xref cl-mapcan make-byte-code 257 "\302\303	\304\305!!\306\307\300\"\305!\"$\310\311!\312\313#\207" vconcat vector [find-program format "%s %s %s -type f -print0" shell-quote-argument expand-file-name xref--find-ignores-arguments project-ignores split-string shell-command-to-string "" t] 9 "\n\n(fn DIR)" 771 "\211\301\267\202\302\207\303\300$\207" [#s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (metadata 6)) (metadata (category . project-file)) complete-with-action] 8 "\n\n(fn STRING PRED ACTION)"] 9 "\n\n(fn PROJECT DIRS)"] ((project (head transient))) #[257 "\211AC\207" [] 2 "\n\n(fn PROJECT)"] custom-declare-group project-vc "Project implementation using the VC package." :version "25.1" :group tools custom-declare-variable project-vc-ignores funcall function #[0 "\300\207" [nil] 1] "List of patterns to include in `project-ignores'." :type (repeat string) :safe listp] 8)
#@267 Function that returns a list of external roots.

It should return a list of directory roots that contain source
files related to the current buffer.

The directory names should be absolute.  Used in the VC project
backend implementation of `project-external-roots'.
(defvar project-vc-external-roots-function #[0 "\207" [tags-table-list] 1] (#$ . 4782))
#@12 

(fn DIR)
(defalias 'project-try-vc #[257 "\3001\301!0\202
\210\302\211\205 \3031\304\305#0\202 \210\302\211\205'\306B\207" [(error) vc-responsible-backend nil (error) vc-call-backend root vc] 6 (#$ . 5143)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\312\313%\207" [cl-generic-define-method project-roots nil ((project (head vc))) #[257 "\211AC\207" [] 2 "\n\n(fn PROJECT)"] project-external-roots ((project (head vc))) #[257 "\301\302\303\304 \"!\305!\"\207" [project-vc-external-roots-function project-subtract-directories project-combine-directories mapcar file-name-as-directory project-roots] 6 "\n\n(fn PROJECT)"] project-ignores ((project (head vc)) dir) t #[771 "A\300\301\302\"\205\303!\262\304\305\306\307#\"\310\311\" #\207" [nil append file-equal-p vc-responsible-backend mapcar #[257 "\300\301\"\203\302\303\304\211$\207\207" [string-match "\\`/" replace-match "./" t] 6 "\n\n(fn ENTRY)"] vc-call-backend ignore-completion-table project--value-in-dir project-vc-ignores] 12 "\n\n(fn CL--CNM PROJECT DIR)"]] 6)
#@226 Return a sorted and culled list of directory names.
Appends the elements of LISTS-OF-DIRS together, removes
non-existing directories, as well as directories a parent of
whose is already in the list.

(fn &rest LISTS-OF-DIRS)
(defalias 'project-combine-directories #[128 "\300\301\302\303\304\"\"\305\"\211\211A\203*\306@A@\"\203#\211AA\241\210\202\211A\262\202\307\310\"\207" [sort mapcar #[257 "\300\301!!\207" [file-name-as-directory expand-file-name] 4 "\n\n(fn DIR)"] apply append string< string-prefix-p cl-delete-if-not file-exists-p] 7 (#$ . 6250)])
#@116 Return a list of elements from FILES that are outside of DIRS.
DIRS must contain directory names.

(fn FILES DIRS)
(defalias 'project-subtract-directories #[514 "\300\301\302$\207" [cl-set-difference :test file-in-directory-p] 7 (#$ . 6827)])
#@16 

(fn VAR DIR)
(defalias 'project--value-in-dir #[514 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314 \210)J*\207" [default-directory enable-local-variables generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 :all hack-dir-local-variables-non-file-buffer] 9 (#$ . 7078)])
#@431 Find all matches for REGEXP in the current project's roots.
With \[universal-argument] prefix, you can specify the directory
to search in, and the file name pattern to search for.  The
pattern may use abbreviations defined in `grep-files-aliases',
e.g. entering `ch' is equivalent to `*.[ch]'.  As whitespace
triggers completion when entering a pattern, including it
requires quoting, e.g. `\[quoted-insert]<space>'.

(fn REGEXP)
(defalias 'project-find-regexp #[257 "\302\303!\203\304\305\306	\303$C\202\307!\310#\207" [current-prefix-arg default-directory project-current t read-directory-name "Base directory: " nil project-roots project--find-regexp-in] 7 (#$ . 7448) (byte-code "\300 C\207" [project--read-regexp] 1)])
#@170 Find all matches for REGEXP in the project roots or external roots.
With \[universal-argument] prefix, you can specify the file name
pattern to search for.

(fn REGEXP)
(defalias 'project-or-external-find-regexp #[257 "\300\301!\302\303!\304!\"\305#\207" [project-current t append project-roots project-external-roots project--find-regexp-in] 7 (#$ . 8188) (byte-code "\300 C\207" [project--read-regexp] 1)])
(defalias 'project--read-regexp #[0 "\300\301 !\302\303\205
\304!\"\207" [xref-backend-identifier-at-point xref-find-backend read-regexp "Find regexp" regexp-quote] 5])
#@28 

(fn DIRS REGEXP PROJECT)
(defalias 'project--find-regexp-in #[771 "\301\302!\210\203\303!\202\304\305\306\307\310\311\312#\313\"\314\315%\"\211\204,\316\317\"\210\320\321\"\207" [current-prefix-arg require grep grep-read-files "*" cl-mapcan make-byte-code 257 "\303\300\302\304\301\"$\207" vconcat vector [xref-collect-matches project-ignores] 8 "\n\n(fn DIR)" user-error "No matches for: %s" xref--show-xrefs nil] 13 (#$ . 8780)])
#@135 Visit a file (with completion) in the current project's roots.
The completion default is the filename at point, if one is
recognized.
(defalias 'project-find-file #[0 "\300\301!\302!\303\304\305!#\207" [project-current t project-roots project-find-file-in thing-at-point filename] 6 (#$ . 9240) nil])
#@153 Visit a file (with completion) in the current project's roots or external roots.
The completion default is the filename at point, if one is
recognized.
(defalias 'project-or-external-find-file #[0 "\300\301!\302\303!\304!\"\305\306\307!#\207" [project-current t append project-roots project-external-roots project-find-file-in thing-at-point filename] 6 (#$ . 9551) nil])
#@88 Complete FILENAME in DIRS in PROJECT and visit the result.

(fn FILENAME DIRS PROJECT)
(defalias 'project-find-file-in #[771 "\300\"\301\302\303\211%\211\304\230\203\305\306!\202\307!\207" [project-file-completion-table project--completing-read-strict "Find file" nil "" user-error "You didn't specify the file" find-file] 10 (#$ . 9933)])
#@80 

(fn PROMPT COLLECTION &optional PREDICATE HIST DEFAULT INHERIT-INPUT-METHOD)
(defalias 'project--completing-read-strict #[1538 "\203
\300\301#\202\300\302\"\303\304\305			&\211\232\203H\306#\204H\303\300\302\n\"\304\n\305\n&\202I\211\207" [format "%s (default %s): " "%s: " completing-read t nil test-completion] 17 (#$ . 10289)])
(provide 'project)