[elpa] externals/realgud 6d521e9 080/140: Customize compilation-find-file...

[Rocky Bernstein]

branch: externals/realgud
commit 6d521e9d96a500e410cb10ea38f2334d1ee6ca34
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Customize compilation-find-file...
    
    to say this is a source-code file, not a file with an error in it.
---
 realgud/common/file.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/realgud/common/file.el b/realgud/common/file.el
index 1758188..64a85ad 100644
--- a/realgud/common/file.el
+++ b/realgud/common/file.el
@@ -26,16 +26,17 @@
 (declare-function compilation-find-file 'compile)
 (declare-function realgud-cmdbuf-info-ignore-re-file-list= 
'realgud-buffer-command)
 
-;; (defcustom realgud-file-find-function 'realgud:find-file
-(defcustom realgud-file-find-function 'compilation-find-file
+(defcustom realgud-file-find-function 'realgud:find-file
+;;(defcustom realgud-file-find-function 'compilation-find-file
   "Function to call when we can't easily find file"
   :type 'function
   :group 'realgud)
 
-;; (defun realgud:find-file (marker filename directory &rest formats)
-;;   "A wrapper around compilation find-file."
-;;   (let ((compilation-error "source-code file"))
-;;     (compilation-find-file marker filename directory formats)))
+(defun realgud:find-file (marker filename directory)
+  "A wrapper around compilation find-file. We set the prompt
+   to indicate we are looking for a source-code file."
+  (let ((compilation-error "source-code file"))
+    (compilation-find-file marker filename directory "%s")))
 
 (defun realgud:file-line-count(filename)
   "Return the number of lines in file FILENAME, or nil FILENAME can't be