diff options
| author | Richard M. Stallman | 2002-10-14 01:25:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-10-14 01:25:16 +0000 |
| commit | f7583fb625909cb0b23bd1267492d2df2459dd88 (patch) | |
| tree | 2c523112400b1c7179ae2c01634bad41e48e75bc | |
| parent | 517e7945c77222e5fc396b763d62105ed375c583 (diff) | |
| download | emacs-f7583fb625909cb0b23bd1267492d2df2459dd88.tar.gz emacs-f7583fb625909cb0b23bd1267492d2df2459dd88.zip | |
(ff-related-file-alist): New alias.
(ff-find-related-file): New alias.
| -rw-r--r-- | lisp/find-file.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/find-file.el b/lisp/find-file.el index 8d8a282501d..79ff1a6ab47 100644 --- a/lisp/find-file.el +++ b/lisp/find-file.el | |||
| @@ -202,6 +202,7 @@ 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 | ||
| @@ -311,6 +312,9 @@ If optional IN-OTHER-WINDOW is non-nil, find the file in another window." | |||
| 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))) |
| 313 | 314 | ||
| 315 | ;;;### | ||
| 316 | (defalias 'ff-find-related-file 'ff-find-other-file) | ||
| 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. |