[elpa] master c0c072f 52/56: And a couple more

[Rocky Bernstein]

branch: master
commit c0c072f2574bf1aa7e4959ebd27ea82ec6446405
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    And a couple more
---
 realgud/debugger/trepan.pl/core.el | 4 ++--
 realgud/debugger/zshdb/core.el     | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/realgud/debugger/trepan.pl/core.el 
b/realgud/debugger/trepan.pl/core.el
index 37ea9a8..1489324 100644
--- a/realgud/debugger/trepan.pl/core.el
+++ b/realgud/debugger/trepan.pl/core.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2011-2012, 2014, 2016 Free Software Foundation, Inc
+;; Copyright (C) 2011-2012, 2014, 2016-2017 Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <address@hidden>
 
@@ -150,7 +150,7 @@ Note that the script name path has been expanded via 
`expand-file-name'.
 
 (defun realgud:trepanpl-suggest-invocation (debugger-name)
   "Suggest a trepanpl command invocation via `realgud-suggest-invocaton'"
-  (realgud-suggest-invocation realgud:trepanpl-command-name
+  (realgud-suggest-invocation (or debugger realgud:trepanpl-command-name)
                              realgud:trepanpl-minibuffer-history
                              "perl" "\\.pl$" "trepan.pl"))
 
diff --git a/realgud/debugger/zshdb/core.el b/realgud/debugger/zshdb/core.el
index 2eefad1..912c0ed 100644
--- a/realgud/debugger/zshdb/core.el
+++ b/realgud/debugger/zshdb/core.el
@@ -151,7 +151,7 @@ Note that path elements have been expanded via 
`realgud:expand-file-name-if-exis
 
 (defun zshdb-suggest-invocation (debugger-name)
   "Suggest a zshdb command invocation via `realgud-suggest-invocaton'"
-  (realgud-suggest-invocation realgud:zshdb-command-name
+  (realgud-suggest-invocation (or debugger-name realgud:zshdb-command-name)
                              realgud:zshdb-minibuffer-history
                              "sh" "\\.\\(?:z\\)?sh$"))