branch: externals/realgud-jdb
commit 99b7f08e0fcec9e33dde8dbbe60e42cfec08bc17
Author: rocky <ro...@gnu.org>
Commit: rocky <ro...@gnu.org>
Bump min version needed, and small changes...
I don't think we can use backtrack-mode.el anymore. At least it's not in
other packages. core.el: remove cut-and-paste hangover references to Ruby.
---
realgud-jdb.el | 6 ++--
realgud-jdb/backtrack-mode.el | 70 -------------------------------------------
realgud-jdb/core.el | 2 +-
3 files changed, 5 insertions(+), 73 deletions(-)
diff --git a/realgud-jdb.el b/realgud-jdb.el
index 4e07033..4de6e79 100644
--- a/realgud-jdb.el
+++ b/realgud-jdb.el
@@ -3,12 +3,14 @@
;; Author: Rocky Bernstein <ro...@gnu.org>
;; Version: 1.0.0
;; Package-Type: multi
-;; Package-Requires: ((realgud "1.4.5") (load-relative "1.2") (cl-lib "0.5")
(emacs "25"))
+;; Package-Requires: ((realgud "1.5.0") (load-relative "1.3.1") (emacs "25"))
;; URL: http://github.com/realgud/realgud-jdb
;; Compatibility: GNU Emacs 25.x
;; Copyright (C) 2019 Free Software Foundation, Inc
+;; Author: Rocky Bernstein <ro...@gnu.org>
+
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
@@ -32,7 +34,7 @@
;; Press C-x C-e at the end of the next line configure the program in
;; for building via "make" to get set up.
-;; (compile (format "EMACSLOADPATH=:%s:%s:%s:%s ./autogen.sh"
(file-name-directory (locate-library "test-simple.elc")) (file-name-directory
(locate-library "realgud.elc")) (file-name-directory (locate-library
"load-relative.elc")) (file-name-directory (locate-library "loc-changes.elc"))))
+;; (compile (format "EMACSLOADPATH=:%s:%s:%s:%s ./autogen.sh"
(file-name-directory (locate-library "loc-changes.elc")) (file-name-directory
(locate-library "test-simple.elc")) (file-name-directory (locate-library
"load-relative.elc")) (file-name-directory (locate-library "realgud.elc"))))
(require 'load-relative)
diff --git a/realgud-jdb/backtrack-mode.el b/realgud-jdb/backtrack-mode.el
deleted file mode 100644
index c93e001..0000000
--- a/realgud-jdb/backtrack-mode.el
+++ /dev/null
@@ -1,70 +0,0 @@
-;; Copyright (C) 2015-2019 Free Software Foundation, Inc
-
-;; Author: Rocky Bernstein <ro...@gnu.org>
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;; Mode for parsing various kinds of backtraces found in Java
-
-(require 'load-relative)
-(require 'realgud)
-(require-relative-list '("core" "init") "realgud-jdb-")
-
-(realgud-backtrack-mode-vars "jdb")
-(set-keymap-parent jdb-backtrack-mode-map realgud-backtrack-mode-map)
-
-(declare-function realgud-backtrack-mode
'realgud-common-backtrack-mode)
-(declare-function realgud-backtrack-set-debugger
'realgud-common-backtrack-mode)
-(declare-function realgud-goto-line-for-pt
'realgud-common-backtrack-mode)
-(declare-function realgud--ruby-populate-command-keys 'realgud-lang-ruby)
-
-(defun realgud--jdb-goto-control-frame-line (pt)
- "Display the location mentioned by a control-frame line described by PT."
- (interactive "d")
- (realgud-goto-line-for-pt pt "control-frame"))
-
-(realgud--ruby-populate-command-keys jdb-backtrack-mode-map)
-(define-key jdb-backtrack-mode-map
- (kbd "C-c !c") 'realgud--jdb-goto-control-frame-line)
-
-(define-minor-mode realgud--jdb-backtrack-mode
- "Minor mode for tracking ruby debugging inside a file which may not have
process shell.
-
-\\{jdb-backtrack-mode-map}"
- :init-value nil
- ;; :lighter " jdb" ;; mode-line indicator from realgud-track is sufficient.
- ;; The minor mode bindings.
- :global nil
- :group 'realgud--jdb
- :keymap jdb-backtrack-mode-map
-
- (realgud-backtrack-set-debugger "jdb")
- (if jdb-backtrack-mode
- (progn
- (realgud-backtrack-mode 't)
- (run-mode-hooks (intern (realgud--jdb-backtrack-mode-hook))))
- (progn
- (realgud-backtrack-mode nil)
- ))
-)
-
-(defun realgud--jdb-backtrack-mode-hook()
- (if jdb-backtrack-mode
- (progn
- (use-local-map jdb-backtrack-mode-map)
- (message "using jdb mode map")
- )
- (message "jdb realgud--jdb-backtrack-mode-hook disable called"))
-)
-
-(provide-me "realgud-jdb-")
diff --git a/realgud-jdb/core.el b/realgud-jdb/core.el
index f1e2f67..2161cb7 100644
--- a/realgud-jdb/core.el
+++ b/realgud-jdb/core.el
@@ -129,7 +129,7 @@ we might return:
Note that the script name path has been expanded via `expand-file-name'."
;; Parse the following kind of pattern:
- ;; [ruby ruby-options] jdb jdb-options script-name script-options
+ ;; jdb jdb-options script-name script-options
(let (
(args orig-args)
(interp-regexp
