HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/find-file.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\302\314\315\316\310\301&\210\312\317\302\320\315\316\310\301&\210\312\321\302\322\315\316\310\301&\210\312\323\302\324\315\316\310\301&\210\312\325\302\326\315\316\310\301&\210\312\327\302\330\315\331\310\301&\210\312\332\302\333\315\331\310\301&\210\312\334\302\335\315\331\310\301&\210\312\336\337\340\315\331\310\301&\210\312\341\302\342\315\331\310\301&\210\312\343\344\345\315\346\310\301&\210\347\350\351\"\210\312\351\352\353\315\354\310\301&\210\312\355\356\357\315\360\310\301&\210\312\361\362\363\315\364\310\301&\210\312\365\366\367\370\371\315\372\310\301&	\210\312\373\374\375\315\376\310\301&\210\377\313!\210\377\317!\210\377\321!\210\377\323!\210\377\325!\210\377\327!\210\377\332!\210\377\334!\210\377\341!\210\377\351!\210\377\355!\207" [custom-declare-group ff nil "Find a file corresponding to this one given a pattern." :prefix "ff-" :link (emacs-commentary-link "find-file") :group find-file custom-declare-variable ff-pre-find-hook "List of functions to be called before the search for the file starts." :type hook ff-pre-load-hook "List of functions to be called before the other file is loaded." ff-post-load-hook "List of functions to be called after the other file is loaded." ff-not-found-hook "List of functions to be called if the other file could not be found." ff-file-created-hook "List of functions to be called if the other file needs to be created." ff-case-fold-search "Non-nil means ignore cases in matches (see `case-fold-search').\nIf you have extensions in different cases, you will want this to be nil." boolean ff-always-in-other-window "If non-nil, find the corresponding file in another window by default.\nTo override this, give an argument to `ff-find-other-file'." ff-ignore-include "If non-nil, ignore `#include' lines." ff-always-try-to-create t "If non-nil, always attempt to create the other file if it was not found." ff-quiet-mode "If non-nil, trace which directories are being searched." ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "List of special constructs recognized by `ff-treat-as-special'.\nEach element, tried in order, has the form (REGEXP . EXTRACT).\nIf REGEXP matches the current line (from the beginning of the line),\n`ff-treat-as-special' calls function EXTRACT with no args.\nIf EXTRACT returns nil, keep trying.  Otherwise, return the\nfilename that EXTRACT returned." (repeat (cons regexp function)) defvaralias ff-related-file-alist ff-other-file-alist 'cc-other-file-alist "Alist of extensions to find given the current file's extension.\n\nThis list should contain the most used extensions before the others,\nsince the search algorithm searches sequentially through each\ndirectory specified in `ff-search-directories'.  If a file is not found,\na new one is created with the first matching extension (`.cc' yields `.hh').\nThis alist should be set by the major mode." (choice (repeat (list regexp (choice (repeat string) function))) symbol) ff-search-directories 'cc-search-directories "List of directories to search for a specific file.\n\nSet by default to `cc-search-directories', expanded at run-time.\n\nThis list is searched through with each extension specified in\n`ff-other-file-alist' that matches this file's extension.  So the\nlonger the list, the longer it'll take to realize that a file\nmay not exist.\n\nA typical format is\n\n    (\".\" \"/usr/include\" \"$PROJECT/*/include\")\n\nEnvironment variables can be inserted between slashes (`/').\nThey will be replaced by their definition.  If a variable does\nnot exist, it is replaced (silently) with an empty string.\n\nThe stars are *not* wildcards: they are searched for together with\nthe preceding slash.  The star represents all the subdirectories except\n`..', and each of these subdirectories will be searched in turn." (choice (repeat directory) symbol) cc-search-directories '("." "/usr/include" "/usr/local/include/*") "See the description of the `ff-search-directories' variable." (repeat directory) cc-other-file-alist '(("\\.cc\\'" (".hh" ".h")) ("\\.hh\\'" (".cc" ".C" ".CC" ".cxx" ".cpp" ".c++")) ("\\.c\\'" (".h")) ("\\.m\\'" (".h")) ("\\.h\\'" (".c" ".cc" ".C" ".CC" ".cxx" ".cpp" ".c++" ".m")) ("\\.C\\'" (".H" ".hh" ".h")) ("\\.H\\'" (".C" ".CC")) ("\\.CC\\'" (".HH" ".H" ".hh" ".h")) ("\\.HH\\'" (".CC")) ("\\.c\\+\\+\\'" (".h++" ".hh" ".h")) ("\\.h\\+\\+\\'" (".c++")) ("\\.cpp\\'" (".hpp" ".hh" ".h")) ("\\.hpp\\'" (".cpp")) ("\\.cxx\\'" (".hxx" ".hh" ".h")) ("\\.hxx\\'" (".cxx"))) "Alist of extensions to find given the current file's extension.\n\nThis list should contain the most used extensions before the others,\nsince the search algorithm searches sequentially through each directory\nspecified in `ff-search-directories'.  If a file is not found, a new one\nis created with the first matching extension (`.cc' yields `.hh')." :version "24.4" (repeat (list regexp (choice (repeat string) function))) modula2-other-file-alist '(("\\.mi$" (".md")) ("\\.md$" (".mi"))) "See the description for the `ff-search-directories' variable." (repeat (list regexp (choice (repeat string) function))) make-variable-buffer-local] 10)
#@187 Find the header or source file corresponding to this file.
See also the documentation for `ff-find-other-file'.

If optional IN-OTHER-WINDOW is non-nil, find the file in another window.
(defalias 'ff-get-other-file #[(&optional in-other-window) "\303\304\n!\210	\211)\207" [ff-ignore-include ignore in-other-window t ff-find-the-other-file] 2 (#$ . 5700) "P"])
(defalias 'ff-find-related-file 'ff-find-other-file)
#@1794 Find the header or source file corresponding to this file.
Being on a `#include' line pulls in that file.

If optional IN-OTHER-WINDOW is non-nil, find the file in the other window.
If optional IGNORE-INCLUDE is non-nil, ignore being on `#include' lines.

Variables of interest include:

 - `ff-case-fold-search'
   Non-nil means ignore cases in matches (see `case-fold-search').
   If you have extensions in different cases, you will want this to be nil.

 - `ff-always-in-other-window'
   If non-nil, always open the other file in another window, unless an
   argument is given to `ff-find-other-file'.

 - `ff-ignore-include'
   If non-nil, ignores #include lines.

 - `ff-always-try-to-create'
   If non-nil, always attempt to create the other file if it was not found.

 - `ff-quiet-mode'
   If non-nil, traces which directories are being searched.

 - `ff-special-constructs'
   A list of regular expressions specifying how to recognize special
   constructs such as include files etc, and an associated method for
   extracting the filename from that construct.

 - `ff-other-file-alist'
   Alist of extensions to find given the current file's extension.

 - `ff-search-directories'
   List of directories searched through with each extension specified in
   `ff-other-file-alist' that matches this file's extension.

 - `ff-pre-find-hook'
   List of functions to be called before the search for the file starts.

 - `ff-pre-load-hook'
   List of functions to be called before the other file is loaded.

 - `ff-post-load-hook'
   List of functions to be called after the other file is loaded.

 - `ff-not-found-hook'
   List of functions to be called if the other file could not be found.

 - `ff-file-created-hook'
   List of functions to be called if the other file has been created.
(defalias 'ff-find-other-file #[(&optional in-other-window ignore-include) "\n\304!\210	\211)\207" [ff-ignore-include ignore ignore-include in-other-window ff-find-the-other-file] 2 (#$ . 6126) "P"])
#@106 Like `buffer-file-name' but works with indirect buffers as well.
If BUF is nil, uses the current buffer.
(defalias 'ff-buffer-file-name #[(&optional buf) "\204p\301!\206\302!\205\301\302!!\207" [buf buffer-file-name buffer-base-buffer] 3 (#$ . 8131)])
#@242 Find the header or source file corresponding to the current file.
Being on a `#include' line pulls in that file, but see the help on
the `ff-ignore-include' variable.

If optional IN-OTHER-WINDOW is non-nil, find the file in another window.
(defalias 'ff-find-the-other-file #[(&optional in-other-window) "\306\211\211\211\211\211\211\211\211\211\211\211\211#$%&'()\307\310\311\"\210\312\313!\210*9\2038\314*J!\202<\314*!\315 &+\204Z&\203Z&\316	&\306,$\202'-9\203f-J\202h-#\317 \206p\320\321
!&\306#@)\322)@&\"%)\203\261%\203\227%\323Y\204\261%\204\261#A\211#@)\322)@&\"%\202\206)\204\273\324\202')A@()A@'\306':\204\360\325'!\203\360'\317 !()@(CB)\306$(@\202%\323U\203\377\326\211$\202\327)@P\330&\"\210&\331\224\331\225O$$)A@@P\316	$(,$\2032\312\326!\210\202y\n\204y\307\332\333\"\210.\203s\306\211/\334\335\303\336\f\"0\f\306$!/\337/!\203c\340/!\fP\202g/\211\341
,\324#\210*\202y\312\342&\"\210\n.
\207" [no-match dirs found format default-name pathname nil run-hooks ff-pre-find-hook ff-pre-find-hooks message "Working..." ff-list-replace-env-vars ff-treat-as-special ff-get-file ff-buffer-file-name "/none.none" file-name-nondirectory ff-string-match 0 t fboundp "" "\\(.+\\)" string-match 1 ff-not-found-hook ff-not-found-hooks expand-file-name read-directory-name "Find or create %s in: " file-directory-p file-name-as-directory ff-find-file "No file found for %s" alist stub pos fname action suffixes match ff-search-directories ff-ignore-include in-other-window ff-other-file-alist ff-always-try-to-create name default-directory] 14 (#$ . 8401)])
#@178 Return name of the header or source file corresponding to the current file.
Being on a `#include' line pulls in that file, but see the help on
the `ff-ignore-include' variable.
(defalias 'ff-other-file-name #[nil "\306\211\211\211\211\211\211\211\211\211\211\307\310!\2109\203-\311J!\2021\311!\312 \204J\203J\313\306#\202\3719\203VJ\202X\314 \206_\315\316!\f@\317@\"\203\233\203\203\320Y\204\233\204\233\fA\211@\317@\"\202r\203\371A@A@\306:\204\320\321!\203\320\314 !@CB\306\202\362\320U\203\336\322\211\202\362\323@P\324\n\"\210\325\224\325\225O\313
#	.\207" [dirs found format pathname alist stub nil message "Working..." ff-list-replace-env-vars ff-treat-as-special ff-get-file-name ff-buffer-file-name "/none.none" file-name-nondirectory ff-string-match 0 fboundp "" "\\(.+\\)" string-match 1 pos fname action suffixes match ff-search-directories ff-ignore-include ff-other-file-alist] 12 (#$ . 10085)])
#@281 Find a file in the SEARCH-DIRS with the given FILENAME (or filename stub).
If (optional) SUFFIX-LIST is nil, search for FILENAME, otherwise search
for FILENAME with each of the given suffixes.  Get the file or the buffer
corresponding to the name of the first file found, or nil.
(defalias 'ff-get-file #[(search-dirs filename &optional suffix-list other-window) "\304	\n#\211\204\305\2022\306\307	!!\203!\310\307	!\"\210	\2022\311	!\2031\312	\305#\210	\2022\305)\207" [search-dirs filename suffix-list other-window ff-get-file-name nil bufferp get-file-buffer ff-switch-to-buffer file-exists-p ff-find-file] 5 (#$ . 11131)])
#@234 Find a file in SEARCH-DIRS with the given name (or stub) FNAME-STUB.
If (optional) SUFFIX-LIST is nil, search for FNAME-STUB, otherwise
search for FNAME-STUB with each of the given suffixes.  Return the
name of the first file found.
(defalias 'ff-get-file-name #[(search-dirs fname-stub &optional suffix-list) "\306\211\211\211\211\211\211\211\211\211 !\211\203%\f@\202*\307\211C\f\203\213\204\213\"
P#\204A\310\311\"\210\312\313!!\203O\314\313!!\315 \316\n@!\n\203\202\204\202\317P	\306\320$\321#)\266\203\203w\314\n@!\nA\316\n@!\202W\fA\211@\202*%\211 @\204S \203S!\203\355\321\322\"\204\355\f\203\266\f@\202\273\307\211C\f\203G\204G\"
P\323Q#\204\332\310\324\"\210\325!\203\344\fA\211@\202\273\326\224\203\376\326\224\326\225O\202\307\327\224\327\225O\330\331\"\306\211&'\211(@'(\2038\332&'PC\"&(A\211(@'\202&\203F\333&\"!#+ A\211 @\202\223\203\\\310\334\"\210.\n\207" [found buf blist filename suffixes this-suffix nil "" message "Finding buffer %s..." bufferp get-file-buffer ff-buffer-file-name buffer-list buffer-name "<[0-9]+>" t string-match "\\([^*]*\\)/\\*\\(/.*\\)*" "/" "Finding %s..." file-exists-p 2 1 ff-all-dirs-under ("..") append ff-get-file-name "%s found" rest file dir dirs suffix-list fname-stub ff-quiet-mode inhibit-changing-match-data search-dirs compl-dirs this-dir dirlist] 11 (#$ . 11775)])
#@111 Like `string-match', but set `case-fold-search' temporarily.
The value used comes from `ff-case-fold-search'.
(defalias 'ff-string-match #[(regexp string &optional start) "\n\205\305\n\f#)\207" [ff-case-fold-search case-fold-search regexp string start string-match] 4 (#$ . 13242)])
#@71 Replace environment variables (of the form $VARIABLE) in SEARCH-LIST.
(defalias 'ff-list-replace-env-vars #[(search-list) "\303@\2033\304\305	\"\203&	\306\224\306\225O\307	\310\224\310\225O!	\311\224\311\225OQA	\nB@\202\312\n!\211*\207" [search-list var list nil string-match "\\(.*\\)\\$[({]*\\([a-zA-Z0-9_]+\\)[)}]*\\(.*\\)" 1 getenv 2 3 reverse] 5 (#$ . 13536)])
#@107 Return the file to look for if the construct was special, else nil.
See variable `ff-special-constructs'.
(defalias 'ff-treat-as-special #[nil "\212\306\307!\210\310	\211@\211@A\n\2036\2046\311\f!\203'
\203'
 \nA\211@\211@A\202.\207" [fname ff-special-constructs list elem regexp match beginning-of-line 1 nil looking-at] 3 (#$ . 13924)])
#@41 Return the basename of pathname STRING.
(defalias 'ff-basename #[(string) "\301P\302\303\"\210\304\224\304\225O\211\207" [string "/" string-match ".*/\\([^/]+\\)$" 1] 3 (#$ . 14290)])
#@99 Get all the directory files under directory HERE.
Exclude all files in the optional EXCLUDE list.
(defalias 'ff-all-dirs-under #[(here &optional exclude) "\305!\205=\3061;\307\310\"\311\211\211\2033@\305	!\203,\312	!\f\235\204,	\nBA\211\204\313\n!\211+0\207\210\311\207" [here file dirlist files exclude file-directory-p (error) directory-files t nil ff-basename reverse] 4 (#$ . 14485)])
#@510 Call F1 or F2 on FILE, according to IN-OTHER-WINDOW.
In addition, this runs various hooks.

Either F1 or F2 receives FILE as the sole argument.
The decision of which one to call is based on IN-OTHER-WINDOW
and on the global variable `ff-always-in-other-window'.

F1 and F2 are typically `find-file' / `find-file-other-window'
or `switch-to-buffer' / `switch-to-buffer-other-window' function pairs.

If optional NEW-FILE is t, then a special hook (`ff-file-created-hook') is
called before `ff-post-load-hook'.
(defalias 'ff-switch-file #[(f1 f2 file &optional in-other-window new-file) "\306\307\310\"\210\203
	\203\204	\203\n!\210\202 \f!\210
\203)\306\311\312\"\210\306\313\314\"\207" [in-other-window ff-always-in-other-window f2 file f1 new-file run-hooks ff-pre-load-hook ff-pre-load-hooks ff-file-created-hook ff-file-created-hooks ff-post-load-hook ff-post-load-hooks] 3 (#$ . 14899)])
#@60 Like `find-file', but may show the file in another window.
(defalias 'ff-find-file #[(file &optional in-other-window new-file) "\303\304\305	\n%\207" [file in-other-window new-file ff-switch-file find-file find-file-other-window] 6 (#$ . 15810)])
#@69 Like `switch-to-buffer', but may show the buffer in another window.
(defalias 'ff-switch-to-buffer #[(buffer-or-name &optional in-other-window) "\302\303\304	\305%\207" [buffer-or-name in-other-window ff-switch-file switch-to-buffer switch-to-buffer-other-window nil] 6 (#$ . 16064)])
#@30 Visit the file you click on.
(defalias 'ff-mouse-find-other-file #[(event) "\212\301!\210\302\303!)\207" [event mouse-set-point ff-find-other-file nil] 2 (#$ . 16356) "e"])
#@48 Visit the file you click on in another window.
(defalias 'ff-mouse-find-other-file-other-window #[(event) "\212\301!\210\302\303!)\207" [event mouse-set-point ff-find-other-file t] 2 (#$ . 16536) "e"])
#@95 Return t if STRING is all uppercase.
Given START and/or END, checks between these characters.
(defalias 'ff-upcase-p #[(string &optional start end) "\305\211\n\204\n\306\204\fG\nU\203T\f\nO\307\310\"\205>\311 \211\205>	@\306U\205>	A@GU\205>\312*\207" [str match start end string nil 0 ff-string-match "[A-Z]+" match-data t] 3 (#$ . 16745)])
#@137 Discriminate file extensions.
Build up a new file list based possibly on part of the directory name
and the name of the file passed in.
(defalias 'ff-cc-hh-converter #[(arg) "\306\307\"\210\310\224\205\310\224\310\225O\311\224\205\311\224\311\225O\312\224\205&\312\224\312\225O\313\n\314\230\203Y\306\315\"\203Y\310\224\310\225O\316\224\316\225O\226
\317P
\320P\317P\320PF)\202\245\n\321\230\203\200\322\f!\203\200\203\200\f\227P\211\323P
\324P\323P\324PF)\202\245\n\314\230\203\224\211\317P
\320PD)\202\245\n\321\230\203\245\211\323P
\324PD)	,\207" [arg return-list extn file dire stub ff-string-match "\\(.*\\)/\\([^/]+\\)/\\([^.]+\\).\\([^/]+\\)$" 2 3 4 nil "cc" "^\\([a-z]+\\)\\([A-Z].+\\)$" 1 ".hh" ".h" "hh" ff-upcase-p ".cc" ".C"] 6 (#$ . 17115)])
#@33 Name of the function we are in.
(defvar ff-function-name nil (#$ . 17919))
#@122 Return the name of the function whose definition/declaration point is in.
Also remember that name in `ff-function-name'.
(defalias 'ff-which-function-are-we-in #[nil "\212\303\304\305#\204\303	\304\305#\205\306\307!)\211\207" [ada-procedure-start-regexp ada-package-start-regexp ff-function-name re-search-backward nil t match-string 0] 4 (#$ . 18001)])
#@122 Find the function specified in `ff-function-name'.
That name was previously determined by `ff-which-function-are-we-in'.
(defalias 'ff-set-point-accordingly #[nil "\205\feb\210\301\302\303#\207" [ff-function-name search-forward nil t] 4 (#$ . 18368)])
(provide 'find-file)