diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2008-02-09 14:34:45 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2008-02-09 14:34:45 +0000 |
| commit | 5099d51223aceae0a2c50531a0b26eb23e8c9e26 (patch) | |
| tree | 84599959affb19e367c6fa14089684f5ececd2c6 | |
| parent | d0048c60f239ad126d061b5ddbf5145cf309e25d (diff) | |
| download | emacs-5099d51223aceae0a2c50531a0b26eb23e8c9e26.tar.gz | |
(compilation-find-file): Doc fix.
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 8 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 27a2e5979ff..c1cd83312bc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2008-02-09 Eli Zaretskii <eliz@gnu.org> * progmodes/compile.el (compilation-next-error): Doc fix. + (compilation-find-file): Doc fix. 2008-02-09 Glenn Morris <rgm@gnu.org> diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index bd7302a5a7e..7f87dbcd6b1 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1848,13 +1848,17 @@ and overlay is highlighted between MK and END-MK." (defun compilation-find-file (marker filename directory &rest formats) "Find a buffer for file FILENAME. +If FILENAME is not found at all, ask the user where to find it. +Pop up the buffer containing MARKER and scroll to MARKER if we ask +the user where to find the file. Search the directories in `compilation-search-path'. A nil in `compilation-search-path' means to try the \"current\" directory, which is passed in DIRECTORY. If DIRECTORY is relative, it is combined with `default-directory'. If DIRECTORY is nil, that means use `default-directory'. -If FILENAME is not found at all, ask the user where to find it. -Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." +FORMATS, if given, is a list of formats to reformat FILENAME when +looking for it: for each element FMT in FORMATS, this function +attempts to find a file whose name is produced by (format FMT FILENAME)." (or formats (setq formats '("%s"))) (let ((dirs compilation-search-path) (spec-dir (if directory |