[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/realgud-jdb 14918c8 2/2: Correct some realgud function
From: |
Rocky Bernstein |
Subject: |
[elpa] externals/realgud-jdb 14918c8 2/2: Correct some realgud function call prefixes |
Date: |
Thu, 23 May 2019 09:59:32 -0400 (EDT) |
branch: externals/realgud-jdb
commit 14918c896826511264296beb4a7ad93e5d07ead8
Author: rocky <address@hidden>
Commit: rocky <address@hidden>
Correct some realgud function call prefixes
---
common.mk | 2 +-
realgud-jdb/jdb.el | 16 ++++++++--------
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/common.mk b/common.mk
index 36fbedc..910bef6 100644
--- a/common.mk
+++ b/common.mk
@@ -19,6 +19,6 @@ short:
EMACSLOADPATH=$(EMACSLOADPATH) $(EMACS) --batch \
$(AM_ELCFLAGS) $(ELCFLAGS) \
$$am__subdir_includes -L $(builddir) -L $(srcdir) \
- --eval "(defun byte-compile-dest-file (f) \"address@hidden")" \
+ --eval "(defun byte-compile-dest-file-function (f)
\"address@hidden")" \
--eval "(unless (byte-compile-file \"$<\") (kill-emacs 1))"; \
else :; fi
diff --git a/realgud-jdb/jdb.el b/realgud-jdb/jdb.el
index 38b26a8..7ebcd00 100644
--- a/realgud-jdb/jdb.el
+++ b/realgud-jdb/jdb.el
@@ -15,10 +15,10 @@
(require 'realgud)
(require-relative-list '("core" "track-mode") "realgud-jdb-")
-(declare-function realgud--jdb-query-cmdline 'realgud--jdb-core)
-(declare-function realgud--jdb-parse-cmd-args 'realgud--jdb-core)
-(declare-function realgud--run-process 'realgud--core)
-(declare-function realgud--flatten 'realgud-utils)
+(declare-function realgud:jdb-query-cmdline 'realgud--jdb-core)
+(declare-function realgud:jdb-parse-cmd-args 'realgud--jdb-core)
+(declare-function realgud:run-process 'realgud--core)
+(declare-function realgud:flatten 'realgud-utils)
(defvar realgud--jdb-file-remap nil
"A buffer-local hash table to map a Java file reproted by jdb into a file
seen in the filesystem."
@@ -84,14 +84,14 @@ fringe and marginal icons."
(setq gud-jdb-classpath-string nil)
(let* (
- (cmd-str (or opt-cmd-line (realgud--jdb-query-cmdline "jdb")))
+ (cmd-str (or opt-cmd-line (realgud:jdb-query-cmdline "jdb")))
(cmd-args (split-string-and-unquote cmd-str))
- (parsed-args (realgud--jdb-parse-cmd-args cmd-args))
+ (parsed-args (realgud:jdb-parse-cmd-args cmd-args))
(script-args (caddr parsed-args))
(script-name (car script-args))
(parsed-cmd-args
- (cl-remove-if 'nil (realgud--flatten parsed-args)))
- (cmd-buf (realgud--run-process "jdb" script-name parsed-cmd-args
+ (cl-remove-if 'nil (realgud:flatten parsed-args)))
+ (cmd-buf (realgud:run-process "jdb" script-name parsed-cmd-args
'realgud--jdb-track-mode-hook no-reset))
)
(if cmd-buf