# HG changeset patch # User Eli Zaretskii # Date 1202567631 0 # Node ID f37fff6fc07688c85672a7770a75db2a705da1e3 # Parent 1365befe1ed872e0465a32866d7afa97f7aa27ef (compilation-find-file): Doc fix. diff -r 1365befe1ed8 -r f37fff6fc076 lisp/progmodes/compile.el --- a/lisp/progmodes/compile.el Sat Feb 09 14:22:49 2008 +0000 +++ b/lisp/progmodes/compile.el Sat Feb 09 14:33:51 2008 +0000 @@ -1848,13 +1848,17 @@ (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