[elpa] externals/realgud 75a6e60 56/72: Fix #275. Add srcbuf-mode to allow cleaning up shortcuts at quit.

[Stefan Monnier]

branch: externals/realgud
commit 75a6e60cd748d1687f6a6ca2b00551feff3d2edc
Author: 813 <813gan@protonmail.com>
Commit: 813 <813gan@protonmail.com>

    Fix #275. Add srcbuf-mode to allow cleaning up shortcuts at quit.
---
 realgud/common/buffer/source.el | 18 +++++++++++++-----
 realgud/common/core.el          |  1 +
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/realgud/common/buffer/source.el b/realgud/common/buffer/source.el
index 108593f..489ef1d 100644
--- a/realgud/common/buffer/source.el
+++ b/realgud/common/buffer/source.el
@@ -132,6 +132,17 @@ current buffer."
 ;; which might be active.
 (make-variable-buffer-local 'realgud-srcbuf-info)
 
+(defvar realgud:srcbuf-mode-map
+  (make-sparse-keymap) )
+
+(define-minor-mode realgud-srcbuf-mode
+  "Minor mode for source buffers for the `realgud' debugger."
+  :group 'realgud
+  :global nil
+  :init-value nil
+  :keymap realgud:srcbuf-mode-map
+)
+
 (defun realgud-srcbuf-init
   (src-buffer cmdproc-buffer)
   "Initialize SRC-BUFFER as a source-code buffer for a debugger.
@@ -153,11 +164,8 @@ debugger."
 in it with those from CMDPROC-BUFFER"
   (realgud-cmdbuf-add-srcbuf src-buffer cmdproc-buffer)
   (with-current-buffer-safe src-buffer
-    (realgud-populate-common-keys
-     ;; use-local-map returns nil so e have to call (current-local-map)
-     ;; again in this case.
-     (or (current-local-map) (use-local-map (make-sparse-keymap))
-        (current-local-map)))
+    (realgud-srcbuf-mode)
+    (realgud-populate-common-keys realgud:srcbuf-mode-map)
     (if (realgud-srcbuf-info? realgud-srcbuf-info)
        (realgud-srcbuf-info-cmdproc= cmdproc-buffer)
       (realgud-srcbuf-init src-buffer cmdproc-buffer))))
diff --git a/realgud/common/core.el b/realgud/common/core.el
index 916f8a0..af23eb7 100644
--- a/realgud/common/core.el
+++ b/realgud/common/core.el
@@ -147,6 +147,7 @@ return the first argument is always removed.
       (redisplay)
       )
     (loc-changes-clear-buffer)
+    (realgud-srcbuf-mode -1)
     ))
 
 (defun realgud:terminate (&optional buf)