;ELC ;;; compiled by erik@naggum.no on Sun Jan 14 05:13:17 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/find-file.el ;;; emacs version 19.30.70.6. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`find-file.el' was compiled for Emacs 19.29 or later")) #@72 *List of functions to be called before the search for the file starts. (defvar ff-pre-find-hooks nil (#$ . -468)) #@66 *List of functions to be called before the other file is loaded. (defvar ff-pre-load-hooks nil (#$ . -588)) #@65 *List of functions to be called after the other file is loaded. (defvar ff-post-load-hooks nil (#$ . -702)) #@71 *List of functions to be called if the other file could not be found. (defvar ff-not-found-hooks nil (#$ . -816)) #@72 *List of functions to be called if the other file needs to be created. (defvar ff-file-created-hooks nil (#$ . -936)) #@139 *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. (defvar ff-case-fold-search nil (#$ . -1061)) #@132 *If non-nil, find the corresponding file in another window by default. To override this, give an argument to `ff-find-other-file'. (defvar ff-always-in-other-window nil (#$ . -1252)) #@39 *If non-nil, ignore `#include' lines. (defvar ff-ignore-include nil (#$ . -1441)) #@75 *If non-nil, always attempt to create the other file if it was not found. (defvar ff-always-try-to-create t (#$ . -1529)) #@58 *If non-nil, trace which directories are being searched. (defvar ff-quiet-mode nil (#$ . -1657)) #@182 *A list of regular expressions specifying how to recognise special constructs such as include files etc, and an associated method for extracting the filename from that construct. (defvar ff-special-constructs (quote (("^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" lambda nil (setq fname (buffer-substring (match-beginning 2) (match-end 2)))) ("^with[ ]+\\([a-zA-Z0-9_\\.]+\\)" lambda nil (setq fname (buffer-substring (match-beginning 1) (match-end 1))) (require (quote ada-mode)) (setq fname (concat (ada-make-filename-from-adaname fname) ada-spec-suffix))))) (#$ . -1761)) #@392 *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. (defvar ff-other-file-alist (quote cc-other-file-alist) (#$ . -2355)) #@786 *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 realise 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. (defvar ff-search-directories (quote cc-search-directories) (#$ . -2823)) #@63 *See the description of the `ff-search-directories' variable. (defvar cc-search-directories (quote ("." "/usr/include/*" "/usr/local/include/*")) (#$ . -3688)) #@348 *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'). (defvar cc-other-file-alist (quote (("\\.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")) ("\\.cxx$" (".hh" ".h")) ("\\.cpp$" (".hh" ".h")))) (#$ . -3855)) #@64 *See the description for the `ff-search-directories' variable. (defvar ada-search-directories (quote ("." "/usr/adainclude" "/usr/local/adainclude")) (#$ . -4528)) #@352 *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 `ada-search-directories'. If a file is not found, a new one is created with the first matching extension (`.adb' yields `.ads').  (defvar ada-other-file-alist (quote (("\\.ads$" (".adb")) ("\\.adb$" (".ads")))) (#$ . -4699)) #@64 *See the description for the `ff-search-directories' variable. (defvar modula2-other-file-alist (quote (("\\.mi$" (".md")) ("\\.md$" (".mi")))) (#$ . -5151)) (byte-code "ﾀﾁ!安ﾂ!安ﾃ!安ﾄ!安ﾅ!安ﾆ!安ﾇ!安ﾈ!安ﾉ!安ﾊ!安ﾋ!" [make-variable-buffer-local ff-pre-find-hooks ff-pre-load-hooks ff-post-load-hooks ff-not-found-hooks ff-file-created-hooks 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) "ﾂﾃ\f! )" [ff-ignore-include ignore t ff-find-the-other-file in-other-window] 2 (#$ . 5622) "P"]) #@1777 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 recognise 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-hooks List of functions to be called before the search for the file starts. - ff-pre-load-hooks List of functions to be called before the other file is loaded. - ff-post-load-hooks List of functions to be called after the other file is loaded. - ff-not-found-hooks List of functions to be called if the other file could not be found. - ff-file-created-hooks 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ﾃ\f! )" [ff-ignore-include ignore ignore-include ff-find-the-other-file in-other-window] 2 (#$ . 5980) "P"]) (defalias 'ff-emacs-19 #[nil "ﾀﾁ\n\"" [string-match "^19\\.[0-9]+\\.[0-9]+$" emacs-version] 3]) (defalias 'ff-xemacs #[nil "ﾀﾁ\n\" ﾀﾃ\n\"" [string-match "Lucid" emacs-version "XEmacs"] 3]) #@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) "ﾀ演演演演演演 \n \f +ﾏﾎ!威ﾑ!9=ﾓJ!Aﾓ!間y易 \n)d\nヅ\nﾗ\n\nﾀ$A9パJＳﾚ ミﾚ ﾛﾜﾝ\"ﾞ彼桧\nﾀ@ ﾟ @\n\"  ν Τ ﾔYﾋ ﾋA@ ﾟ @\n\" あ ﾕA A@\f A@ ﾀ :Ыn !ソn ﾚ !\f @\fCB ﾀ\f@7 ﾔU. @Pﾜ\f\n\"\nﾞ彼桧 A@@Pﾗ\n\f$ キﾐ!ｚ $ズﾏ!%ヴﾀ&鉅ﾄ \"* ﾀ$!&&!モ&! Pｆ&#*ｚﾐ\n\" . " [nil no-match dirs found format default-name pathname alist stub pos fname action suffixes match ff-pre-find-hooks run-hooks message "Working..." ff-search-directories ff-list-replace-env-vars 0 ff-treat-as-special ff-ignore-include ff-get-file in-other-window ff-other-file-alist buffer-file-name "/none.none" string-match ".*/\\(.+\\)$" 1 ff-string-match t fboundp "" "\\(.+\\)" ff-not-found-hooks ff-always-try-to-create name expand-file-name read-file-name "Find or create %s in: " default-directory file-directory-p file-name-as-directory ff-find-file "no file found for %s"] 14 (#$ . 8150)]) #@351 Find a file in the SEARCH-DIRS with the given FILENAME (or filename stub). If (optional) SUFFIXES is nil, search for fname, otherwise search for fname with each of the given suffixes. Gets the file or the buffer corresponding to the name of the first file found, or nil. Arguments: (search-dirs fname-stub &optional suffix-list in-other-window)  (defalias 'ff-get-file #[(search-dirs fname-stub &optional suffix-list other-window) "ﾀ \n #ﾅ4ﾆﾇ\f!!ソ"ﾈﾇ\f! \"\f4ﾊ\f!3ﾋ\f ﾅ#\f4ﾅ)" [ff-get-file-name search-dirs fname-stub suffix-list filename nil bufferp get-file-buffer ff-switch-to-buffer other-window file-exists-p ff-find-file] 5 (#$ . 9505)]) #@289 Find a file in the SEARCH-DIRS with the given FILENAME (or filename stub). If (optional) SUFFIXES is nil, search for fname, otherwise search for fname with each of the given suffixes. Returns the name of the first file found. Arguments: (search-dirs fname-stub &optional suffix-list)  (defalias 'ff-get-file-name #[(search-dirs fname-stub &optional suffix-list) "ﾀﾀﾀﾀﾀﾀﾀﾀﾀ ﾀ\n (@.ﾌﾌCヴ\n PИﾏﾐ\"尉ﾒ!!シ\nﾓ ﾔ@! ラ\nчﾕﾖP \"ホ \nAﾔ@! ＢA@.@\nФ ザ \nﾕﾘ\n\"ｾ@てﾌﾌCキ\nЛ P\nﾙQﾏﾚ \"維 ! \nA@てﾜ買\nﾜ妃桧 ﾌ\nﾝ庇桧ﾞ\nﾟ\"ﾀ !\"@!\"< !\fPC\" \"A\"@!  ガ   #\n+ A@ｚ\nチﾏ\n\"\n.\n" [nil dirs dir file rest this-suffix suffixes filename blist buf found suffix-list "" fname-stub ff-quiet-mode message "finding buffer %s..." bufferp get-buffer buffer-list buffer-name string-match "<[0-9]+>" search-dirs "\\([^*]*\\)/\\*\\(/.*\\)*" "/" "finding %s..." file-exists-p 2 1 ff-all-dirs-under ("..") compl-dirs this-dir dirlist append ff-get-file-name "%s found"] 5 (#$ . 10180)]) #@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 ﾃ\n\f #)" [ff-case-fold-search case-fold-search regexp string-match string start] 4 (#$ . 11335)]) #@71 Replace environment variables (of the form $VARIABLE) in SEARCH-LIST. (defalias 'ff-list-replace-env-vars #[(search-list) "ﾀ @ 3ﾄﾅ\n\"&\nﾆ犯桧ﾇ\nﾈ畔桧!\nﾉ繁桧Q A\n B @ﾊ !*" [nil search-list var list string-match "\\(.*\\)\\$[({]*\\([a-zA-Z0-9_]+\\)[)}]*\\(.*\\)" 1 getenv 2 3 reverse] 5 (#$ . 11620)]) #@136 Returns the file to look for if the construct was special, else nil. The construct is defined in the variable `ff-special-constructs'. (defalias 'ff-treat-as-special #[nil "ﾀ\n@@\fA 5 5ﾇ !%%  A@@\fA -" [nil fname ff-special-constructs list elem regexp match looking-at] 3 (#$ . 11945)]) #@34 Return the basename of PATHNAME. (defalias 'ff-basename #[(string) "ﾀ Pﾂﾃ \" ﾄ汎桧" ["/" string string-match ".*/\\([^/]+\\)$" 1] 3 (#$ . 12270)]) #@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) "ﾀ !\nﾂﾃﾄ順" [file-directory-p here nil (byte-code "ﾀ ﾂ\"ﾃ.@ﾇ\f!%ﾈ\f! 揆%\f BAﾊ !+" [directory-files here t nil file dirlist files file-directory-p ff-basename exclude reverse] 4) ((error))] 3 (#$ . 12428)]) #@513 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-hooks') is called before `ff-post-load-hooks'. (defalias 'ff-switch-file #[(f1 f2 file &optional in-other-window new-file) "ﾁﾀ!\n \n \f !$ !22ﾁﾈ! :ﾁﾉ!" [ff-pre-load-hooks run-hooks in-other-window ff-always-in-other-window f2 file f1 new-file ff-file-created-hooks ff-post-load-hooks] 2 (#$ . 12826)]) #@60 Like `find-file', but may show the file in another window. (defalias 'ff-find-file #[(file &optional in-other-window new-file) "ﾀﾁﾂ \f %" [ff-switch-file find-file find-file-other-window file in-other-window new-file] 6 (#$ . 13635)]) #@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) "ﾀﾁﾂ \fﾅ%" [ff-switch-file switch-to-buffer switch-to-buffer-other-window buffer-or-name in-other-window nil] 6 (#$ . 13877)]) (byte-code "ﾀ ﾁﾂM暗ﾄM闇ﾆM杏ﾈM%ﾉ %ﾃﾊM闇ﾋM偉ﾍ!" [ff-emacs-19 ff-goto-click #[(event) "ﾀ ﾂ 8:ﾂﾃ 8)@)!q ﾂ 8:&ﾂ'ﾃ 8)A@:9\fA@@<\fA@)b" [window-buffer event 2 1 position] 4] ff-mouse-find-other-file #[(event) "澗 !按ﾃ!)" [ff-goto-click event ff-find-other-file nil] 2 "Visit the file you click on." "e"] ff-mouse-find-other-file-other-window #[(event) "澗 !按ﾃ!)" [ff-goto-click event ff-find-other-file t] 2 "Visit the file you click on." "e"] locate-file #[(fname dirs &optional suffix-list ignore-perms) "ﾀ \n #" [ff-get-file dirs fname suffix-list] 4 "Defines XEmacs look-alike locate-file for GNU Emacs-19." nil] ff-xemacs #[(event) "澗 !按ﾃ!)" [mouse-set-point event ff-find-other-file nil] 2 "Visit the file you click on." "@e"] #[(event) "澗 !按ﾃ!)" [mouse-set-point event ff-find-other-file t] 2 "Visit the file you click on." "@e"] provide find-file] 2) #@100 Return t if this string is all uppercase. Given START and/or END, checks between these characters. (defalias 'ff-upcase-p #[(string &optional start end) "ﾀ Ыnﾄ G U T Oﾇﾈ \"@ﾉ @\n@ﾄU@\nA@ GU@ﾊ*" [nil str match start 0 end string ff-string-match "[A-Z]+" match-data t] 3 (#$ . 15049)]) #@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) "ﾀﾁ\n\"暗賠\nﾃ氾桧ﾄ賠\nﾄ汎桧ﾅ賠&\nﾅ版桧ﾆ賠1\nﾆ犯桧ﾇ \n \f ﾍブﾀﾎ\n\"ブ\nﾄ汎桧\nﾃ氾桧 ﾐPﾑP\nﾐP\nﾑPF)ぷ ﾒΘﾓ !Θ\nΘ \nPﾔPﾕP\nﾔP\nﾕPF)ぷ ﾍα\nﾐPﾑPD)ぷ ﾒψ\nﾔPﾕPD)-" [ff-string-match "\\(.*\\)/\\([^/]+\\)/\\([^.]+\\).\\([^/]+\\)$" arg 1 2 3 4 nil return-list extn file dire path "cc" "^\\([a-z]+\\)\\([A-Z].+\\)$" stub ".hh" ".h" "hh" ff-upcase-p ".cc" ".C"] 7 (#$ . 15372)]) #@33 Name of the function we are in. (defvar ff-function-name nil (#$ . 16002)) (byte-code "ﾀ Bﾂ Bﾀ" [ada-procedure-start-regexp current-load-list ada-package-start-regexp] 2) #@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 "ﾀ環 ﾀﾄ#ﾅ版府%ﾂﾀﾄ#%ﾅ版府)" [nil ff-function-name re-search-backward ada-procedure-start-regexp t 0 ada-package-start-regexp] 4 (#$ . 16183)]) #@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 "\feb庵ﾂﾃ#" [ff-function-name search-forward nil t] 4 (#$ . 16513)])