branch: externals/realgud
commit aa76fb049efea0bd6aa2cf183ab4e890f5bc0758
Author: rocky <[email protected]>
Commit: rocky <[email protected]>
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:
