emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/realgud-jdb ef0910c 3/3: checkdoc lint


From: Rocky Bernstein
Subject: [elpa] externals/realgud-jdb ef0910c 3/3: checkdoc lint
Date: Thu, 23 May 2019 02:56:21 -0400 (EDT)

branch: externals/realgud-jdb
commit ef0910c5093af2a75988604b74ec3530602f1f8f
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]