[elpa] master d3953ae 092/215: Fix bug in picking out short-key variable name introduced by recent changes

[Rocky Bernstein]

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

    Fix bug in picking out short-key variable name introduced by recent changes
---
 realgud/common/shortkey.el |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/realgud/common/shortkey.el b/realgud/common/shortkey.el
index 74e86be..4adecc2 100644
--- a/realgud/common/shortkey.el
+++ b/realgud/common/shortkey.el
@@ -83,14 +83,15 @@ The buffer is read-only when the minor mode is active.
   (when (realgud-cmdbuf? cmdbuf)
     (with-current-buffer cmdbuf
       (let* ((info realgud-cmdbuf-info)
-            (debugger-name
-             (realgud:debugger-name-transform
-              (realgud-cmdbuf-info-debugger-name info)))
+            (debugger-name (realgud-cmdbuf-info-debugger-name info))
+            (base-variable-name
+             (or (gethash debugger-name realgud:variable-basename-hash)
+             debugger-name))
             (keymap-symbol
              (intern
               (replace-regexp-in-string
                "\\." ""
-               (concat debugger-name "-short-key-mode-map"))))
+               (concat base-variable-name "-short-key-mode-map"))))
             (keymap (eval keymap-symbol))
             )
        (cond ((keymapp keymap) keymap)