Mercurial > emacs
comparison lisp/find-file.el @ 47860:621b10466c9a
(ff-related-file-alist): New alias.
(ff-find-related-file): New alias.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 14 Oct 2002 01:25:16 +0000 |
| parents | 27533450eb3b |
| children | 8b3977d58df6 |
comparison
equal
deleted
inserted
replaced
| 47859:f15b9906481d | 47860:621b10466c9a |
|---|---|
| 200 "*A list of regular expressions for `ff-find-file'. | 200 "*A list of regular expressions for `ff-find-file'. |
| 201 Specifies how to recognise special constructs such as include files | 201 Specifies how to recognise special constructs such as include files |
| 202 etc. and an associated method for extracting the filename from that | 202 etc. and an associated method for extracting the filename from that |
| 203 construct.") | 203 construct.") |
| 204 | 204 |
| 205 (defvaralias 'ff-related-file-alist 'ff-other-file-alist) | |
| 205 (defcustom ff-other-file-alist 'cc-other-file-alist | 206 (defcustom ff-other-file-alist 'cc-other-file-alist |
| 206 "*Alist of extensions to find given the current file's extension. | 207 "*Alist of extensions to find given the current file's extension. |
| 207 | 208 |
| 208 This list should contain the most used extensions before the others, | 209 This list should contain the most used extensions before the others, |
| 209 since the search algorithm searches sequentially through each | 210 since the search algorithm searches sequentially through each |
| 308 (interactive "P") | 309 (interactive "P") |
| 309 (let ((ignore ff-ignore-include)) | 310 (let ((ignore ff-ignore-include)) |
| 310 (setq ff-ignore-include t) | 311 (setq ff-ignore-include t) |
| 311 (ff-find-the-other-file in-other-window) | 312 (ff-find-the-other-file in-other-window) |
| 312 (setq ff-ignore-include ignore))) | 313 (setq ff-ignore-include ignore))) |
| 314 | |
| 315 ;;;### | |
| 316 (defalias 'ff-find-related-file 'ff-find-other-file) | |
| 313 | 317 |
| 314 ;;;###autoload | 318 ;;;###autoload |
| 315 (defun ff-find-other-file (&optional in-other-window ignore-include) | 319 (defun ff-find-other-file (&optional in-other-window ignore-include) |
| 316 "Find the header or source file corresponding to this file. | 320 "Find the header or source file corresponding to this file. |
| 317 Being on a `#include' line pulls in that file. | 321 Being on a `#include' line pulls in that file. |