[elpa] externals/realgud aa76fb0 085/140: Tidy a bit

[Rocky Bernstein]

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

    Tidy a bit
---
 realgud/debugger/jdb/core.el      |  1 -
 realgud/debugger/trepan2/core.el  |  1 -
 realgud/debugger/trepanjs/core.el | 17 -----------------
 realgud/debugger/trepanjs/init.el |  3 ---
 4 files changed, 22 deletions(-)

diff --git a/realgud/debugger/jdb/core.el b/realgud/debugger/jdb/core.el
index 1deee1f..a64cb4b 100644
--- a/realgud/debugger/jdb/core.el
+++ b/realgud/debugger/jdb/core.el
@@ -9,7 +9,6 @@
 
 ;; We use gud to handle the classpath-to-filename mapping
 (require 'gud)
-(require 'compile) ;; for compilation-find-file
 
 (require 'load-relative)
 (require-relative-list '("../../common/track"
diff --git a/realgud/debugger/trepan2/core.el b/realgud/debugger/trepan2/core.el
index 7bab489..07c97b7 100644
--- a/realgud/debugger/trepan2/core.el
+++ b/realgud/debugger/trepan2/core.el
@@ -15,7 +15,6 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-(require 'compile) ;; for compilation-find-file
 (require 'load-relative)
 (require-relative-list '("../../common/track"
                         "../../common/core"
diff --git a/realgud/debugger/trepanjs/core.el 
b/realgud/debugger/trepanjs/core.el
index fd73858..5d4fa74 100644
--- a/realgud/debugger/trepanjs/core.el
+++ b/realgud/debugger/trepanjs/core.el
@@ -15,8 +15,6 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-(require 'compile) ;; for compilation-find-file
-
 (require 'load-relative)
 (require-relative-list '("../../common/track"
                          "../../common/core"
@@ -52,21 +50,6 @@
    'realgud:trepanjs-minibuffer-history
    opt-debugger))
 
-(defun realgud:trepanjs-find-file(marker filename directory)
-  "A find-file specific for trepanjs."
-  (cond ((member filename realgud:trepanjs-blacklist) nil)
-       ((y-or-n-p "Black-list this file for location tracking?")
-        (push filename realgud:trepanjs-blacklist)
-        nil)
-       (t (compilation-find-file marker filename directory))
-      ))
-
-(defun realgud:trepanjs-loc-fn-callback(text filename lineno source-str
-                                       cmd-mark directory)
-  (realgud:file-loc-from-line filename lineno
-                             cmd-mark source-str nil
-                             'realgud:trepanjs-find-file directory))
-
 (defun realgud:trepanjs-parse-cmd-args (orig-args)
   "Parse command line ARGS for the name of script to debug.
 
diff --git a/realgud/debugger/trepanjs/init.el 
b/realgud/debugger/trepanjs/init.el
index 21eda5a..881fcff 100644
--- a/realgud/debugger/trepanjs/init.el
+++ b/realgud/debugger/trepanjs/init.el
@@ -34,9 +34,6 @@ realgud-loc-pat struct")
 
 (defconst realgud:trepanjs-file-regexp   "\\([^ \t\n]+\\)\\(?: \\[.*\\]\\)?")
 
-(setf (gethash "loc-callback-fn" realgud:trepanjs-pat-hash)
-      'realgud:trepanjs-loc-fn-callback)
-
 ;; realgud-loc-pat that describes a trepanjs location generally shown
 ;; before a command prompt.
 ;; For example: