branch: externals/realgud-jdb
commit ef0910c5093af2a75988604b74ec3530602f1f8f
Author: rocky <ro...@gnu.org>
Commit: rocky <ro...@gnu.org>
checkdoc lint
---
realgud-jdb/backtrack-mode.el | 7 +++----
realgud-jdb/core.el | 16 +++++++---------
realgud-jdb/jdb.el | 9 ++++-----
3 files changed, 14 insertions(+), 18 deletions(-)
diff --git a/realgud-jdb/backtrack-mode.el b/realgud-jdb/backtrack-mode.el
index 5879070..c93e001 100644
--- a/realgud-jdb/backtrack-mode.el
+++ b/realgud-jdb/backtrack-mode.el
@@ -29,8 +29,7 @@
(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."
+ "Display the location mentioned by a control-frame line described by PT."
(interactive "d")
(realgud-goto-line-for-pt pt "control-frame"))
@@ -53,7 +52,7 @@ described by PT."
(if jdb-backtrack-mode
(progn
(realgud-backtrack-mode 't)
- (run-mode-hooks (intern (jdb-backtrack-mode-hook))))
+ (run-mode-hooks (intern (realgud--jdb-backtrack-mode-hook))))
(progn
(realgud-backtrack-mode nil)
))
@@ -65,7 +64,7 @@ described by PT."
(use-local-map jdb-backtrack-mode-map)
(message "using jdb mode map")
)
- (message "jdb backtrack-mode-hook disable called"))
+ (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 9433d42..42dd369 100644
--- a/realgud-jdb/core.el
+++ b/realgud-jdb/core.el
@@ -25,7 +25,7 @@
;; FIXME: I think the following could be generalized and moved to
;; realgud-... probably via a macro.
(defvar realgud--jdb-minibuffer-history nil
- "minibuffer history list for the command `realgud--jdb'.")
+ "Minibuffer history list for the command `realgud--jdb'.")
(easy-mmode-defmap jdb-minibuffer-local-map
'(("\C-i" . comint-dynamic-complete-filename))
@@ -42,8 +42,8 @@
opt-debugger))
(defun realgud--jdb-dot-to-slash (str)
- "Change '.' to '/' in STR but chop off from the last . to the end. For
example
-ca.mgcill.rocky.snpEff.main => ca/mcgill/rocky/snpEff"
+ "Change '.' to '/' in STR but chop off from the last .
+to the end. For example ca.mgcill.rocky.snpEff.main => ca/mcgill/rocky/snpEff"
;;(setq str (replace-regexp-in-string "\\([^\\.]+\\.\\)[^\\.]+$" "\\1"
str))
;;(setq str (replace-regexp-in-string "\\.$" "" str))
(setq str (replace-regexp-in-string "\\." "/" str))
@@ -67,7 +67,7 @@ we will prompt for a mapping and save that the remap."
gud-jdb-filename)
((file-exists-p (setq transformed-file (concat stripped-filename
".java")))
transformed-file)
- ((realgud--file-ignore filename ignore-re-file-list)
+ ((realgud:file-ignore filename ignore-re-file-list)
(message "tracking ignored for %s" filename) nil)
(t
(if remapped-filename
@@ -119,8 +119,7 @@ For example for the following input
we might return:
(\"jdb\" nil \"TestMe\"))
-Note that the script name path has been expanded via `expand-file-name'.
-"
+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
@@ -155,14 +154,13 @@ Note that the script name path has been expanded via
`expand-file-name'.
(defvar realgud--jdb-command-name)
(defun jdb-suggest-invocation (debugger-name)
- "Suggest a jdb command invocation via `realgud-suggest-invocaton'"
+ "Suggest a jdb command invocation via `realgud-suggest-invocaton'."
(realgud-suggest-invocation (or debugger-name realgud--jdb-command-name)
realgud--jdb-minibuffer-history
"java" "\\.java$" "jdb"))
(defun jdb-reset ()
- "Jdb cleanup - remove debugger's internal buffers (frame,
-breakpoints, etc.)."
+ "Jdb cleanup - remove debugger's internal buffers (frame, breakpoints,
etc.)."
(interactive)
;; (jdb-breakpoint-remove-all-icons)
(dolist (buffer (buffer-list))
diff --git a/realgud-jdb/jdb.el b/realgud-jdb/jdb.el
index 21b9c88..38b26a8 100644
--- a/realgud-jdb/jdb.el
+++ b/realgud-jdb/jdb.el
@@ -50,18 +50,17 @@ This should be an executable on your path, or an absolute
file name."
"Invoke the Java jdb debugger and start the Emacs user interface.
String OPT-CMD-LINE is treated like a shell string; arguments are
-tokenized by `split-string-and-unquote'. The tokenized string is
+tokenized by `split-string-and-unquote'. The tokenized string is
parsed by `jdb-parse-cmd-args' and path elements found by that
are expanded using `expand-file-name'.
Normally, command buffers are reused when the same debugger is
-reinvoked inside a command buffer with a similar command. If we
+reinvoked inside a command buffer with a similar command. If we
discover that the buffer has prior command-buffer information and
NO-RESET is nil, then that information which may point into other
buffers and source buffers which may contain marks and fringe or
-marginal icons is reset. See `loc-changes-clear-buffer' to clear
-fringe and marginal icons.
-"
+marginal icons is reset. See `loc-changes-clear-buffer' to clear
+fringe and marginal icons."
(interactive)
(setq gud-jdb-classpath nil)
