;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:24 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/find-file.el ;;; in Emacs version 23.4.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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) #@71 List of functions to be called before the search for the file starts. (custom-declare-variable 'ff-pre-find-hook 'nil '(#$ . 702) :type 'hook :group 'ff) #@65 List of functions to be called before the other file is loaded. (custom-declare-variable 'ff-pre-load-hook 'nil '(#$ . 862) :type 'hook :group 'ff) #@64 List of functions to be called after the other file is loaded. (custom-declare-variable 'ff-post-load-hook 'nil '(#$ . 1016) :type 'hook :group 'ff) #@70 List of functions to be called if the other file could not be found. (custom-declare-variable 'ff-not-found-hook 'nil '(#$ . 1171) :type 'hook :group 'ff) #@71 List of functions to be called if the other file needs to be created. (custom-declare-variable 'ff-file-created-hook 'nil '(#$ . 1332) :type 'hook :group 'ff) #@138 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. (custom-declare-variable 'ff-case-fold-search 'nil '(#$ . 1498) :type 'boolean :group 'ff) #@131 If non-nil, find the corresponding file in another window by default. To override this, give an argument to `ff-find-other-file'. (custom-declare-variable 'ff-always-in-other-window 'nil '(#$ . 1733) :type 'boolean :group 'ff) #@38 If non-nil, ignore `#include' lines. (custom-declare-variable 'ff-ignore-include 'nil '(#$ . 1966) :type 'boolean :group 'ff) #@74 If non-nil, always attempt to create the other file if it was not found. (custom-declare-variable 'ff-always-try-to-create 't '(#$ . 2098) :type 'boolean :group 'ff) #@57 If non-nil, trace which directories are being searched. (custom-declare-variable 'ff-quiet-mode 'nil '(#$ . 2270) :type 'boolean :group 'ff) #@352 *List of special constructs for `ff-treat-as-special' to recognize. Each element, tried in order, has the form (REGEXP . EXTRACT). If REGEXP matches the current line (from the beginning of the line), `ff-treat-as-special' calls function EXTRACT with no args. If EXTRACT returns nil, keep trying. Otherwise, return the filename that EXTRACT returned. (defvar ff-special-constructs (byte-code "\300\301!\302BC\207" [purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" (lambda nil (buffer-substring (match-beginning 2) (match-end 2)))] 2) (#$ . -2418)) (defvaralias 'ff-related-file-alist 'ff-other-file-alist) #@391 Alist of extensions to find given the current file's extension. This list should contain the most used extensions before the others, since the search algorithm searches sequentially through each directory specified in `ff-search-directories'. If a file is not found, a new one is created with the first matching extension (`.cc' yields `.hh'). This alist should be set by the major mode. (custom-declare-variable 'ff-other-file-alist ''cc-other-file-alist '(#$ . 3046) :type '(choice (repeat (list regexp (choice (repeat string) function))) symbol) :group 'ff) #@783 List of directories to search for a specific file. Set by default to `cc-search-directories', expanded at run-time. This list is searched through with each extension specified in `ff-other-file-alist' that matches this file's extension. So the longer the list, the longer it'll take to realize that a file may not exist. A typical format is '("." "/usr/include" "$PROJECT/*/include") Environment variables can be inserted between slashes (`/'). They will be replaced by their definition. If a variable does not exist, it is replaced (silently) with an empty string. The stars are *not* wildcards: they are searched for together with the preceding slash. The star represents all the subdirectories except `..', and each of these subdirectories will be searched in turn. (custom-declare-variable 'ff-search-directories ''cc-search-directories '(#$ . 3616) :type '(choice (repeat directory) symbol) :group 'ff) #@62 See the description of the `ff-search-directories' variable. (custom-declare-variable 'cc-search-directories ''("." "/usr/include" "/usr/local/include/*") '(#$ . 4543) :type '(repeat directory) :group 'ff) #@347 Alist of extensions to find given the current file's extension. This list should contain the most used extensions before the others, since the search algorithm searches sequentially through each directory specified in `ff-search-directories'. If a file is not found, a new one is created with the first matching extension (`.cc' yields `.hh'). (custom-declare-variable 'cc-other-file-alist ''(("\\.cc\\'" (".hh" ".h")) ("\\.hh\\'" (".cc" ".C")) ("\\.c\\'" (".h")) ("\\.h\\'" (".c" ".cc" ".C" ".CC" ".cxx" ".cpp")) ("\\.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"))) '(#$ . 4756) :type '(repeat (list regexp (choice (repeat string) function))) :group 'ff) #@63 See the description for the `ff-search-directories' variable. (custom-declare-variable 'modula2-other-file-alist ''(("\\.mi$" (".md")) ("\\.md$" (".mi"))) '(#$ . 5660) :type '(repeat (list regexp (choice (repeat string) function))) :group 'ff) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\207" [make-variable-buffer-local ff-pre-find-hook ff-pre-load-hook ff-post-load-hook ff-not-found-hook ff-file-created-hook ff-case-fold-search ff-always-in-other-window ff-ignore-include ff-quiet-mode ff-other-file-alist ff-search-directories] 2) #@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 (#$ . 6311) "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 (#$ . 6737) "P"]) #@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 \203t\317 \202u\320\321 !&\306#@)\322)@&\"%)\203\266%\203\234%\323Y\204\266%\204\266#A\211#@)\322)@&\"%\202\213)\204\300\324\202,)A@()A@'\306':\204\365\325'!\203\365'\317 !()@(CB)\306$(@\202\"%\323U\203\326\211$\202\327)@P\330 &\"\210&\331\224\331\225O$$)A@@P\316 $(,$\2037\312\326!\210\202~\n\204~\307\332\333\"\210.\203x\306\211/\334\335\303\336\f\"0\f\306$!/\337/!\203h\340/!\fP\202l/\211\341 ,\324#\210*\202~\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 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-file-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 (#$ . 8742)]) #@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\211\211\307\310!\2109\2033\311J!\2027\311!\312 \204S\203S\313 \306#\202# 9\203_ J\202a \314 \203m\314 \202n\315\316 !\306@\317@\"\203\257\203\225\320Y\204\257\204\257A\211@\317@\"\202\204\204\271\321\202#A@A@\306:\204\356\322!\203\356\314 !@CB\306@\202\320U\203\375\323\211\202\324@P\325 \"\210\326\224\326\225OA@@P\313 #\n. \207" [no-match dirs found format default-name pathname nil message "Working..." ff-list-replace-env-vars ff-treat-as-special ff-get-file-name buffer-file-name "/none.none" file-name-nondirectory ff-string-match 0 t fboundp "" "\\(.+\\)" string-match 1 alist stub pos fname action suffixes match ff-search-directories ff-ignore-include ff-other-file-alist] 14 (#$ . 10427)]) #@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 (#$ . 11549)]) #@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\201\204\201! P\"\204A\310\311 \"\210\312\313 !!\203O\314\313 !!\315 \316\n@!\n\203x\204x\317 \320P \"\203m\314\n@!\nA\316\n@!\202W\fA\211@\202*#\211@\204I\203I \203\343\317\321\"\204\343\f\203\254\f@\202\261\307\211C\f\203=\204=! P\322 Q\"\204\320\310\323\"\210\324!\203\332\fA\211@\202\261\325\224\203\364\325\224\325\225O\202\367\307\326\224\326\225O\327\330\"\306\211$%\211&@%&\203.\331$%PC\"$&A\211&@%\202$\203<\332$! #+A\211@\202\211\203R\310\333\"\210.\n\207" [found buf blist filename suffixes this-suffix nil "" message "Finding buffer %s..." bufferp get-file-buffer buffer-file-name buffer-list buffer-name string-match "<[0-9]+>" "\\([^*]*\\)/\\*\\(/.*\\)*" "/" "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 search-dirs compl-dirs this-dir dirlist] 11 (#$ . 12193)]) #@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 (#$ . 13601)]) #@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 (#$ . 13895)]) #@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 (#$ . 14283)]) #@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 (#$ . 14649)]) #@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) "\301!\205\n\302\303\304\217\207" [here file-directory-p nil (byte-code "\305\306\"\307\211\211\203) @\310 !\203\"\311 !\f\235\204\" \nB A\211\204 \312\n!\211+\207" [here file dirlist files exclude directory-files t nil file-directory-p ff-basename reverse] 4) ((error))] 3 (#$ . 14844)]) #@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 (#$ . 15308)]) #@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 (#$ . 16219)]) #@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 (#$ . 16473)]) #@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 (#$ . 16765) "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 (#$ . 16945) "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\n U\203 T\f\n O\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 (#$ . 17154)]) #@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\224\2051\313\224\313\225O\314\n\315\230\203h\306\316 \"\203h \311\224\311\225O \310\224\310\225O\226\317P\320P \317P \320PF)\202\272\n\321\230\203\221\322\f!\203\221 \203\221\f\227 P\211\323P\324P \323P \324PF)\202\272\n\315\230\203\247 \211\317P\320PD)\202\272\n\321\230\203\272 \211\323P\324PD) -\207" [arg return-list extn file dire path ff-string-match "\\(.*\\)/\\([^/]+\\)/\\([^.]+\\).\\([^/]+\\)$" 1 2 3 4 nil "cc" "^\\([a-z]+\\)\\([A-Z].+\\)$" ".hh" ".h" "hh" ff-upcase-p ".cc" ".C" stub] 7 (#$ . 17524)]) #@33 Name of the function we are in. (defvar ff-function-name nil (#$ . 18375)) #@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 (#$ . 18457)]) #@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 (#$ . 18824)]) (provide 'find-file)