[elpa] externals/realgud 96dada0 47/72: fix buffer type detection for locals.

[Stefan Monnier]

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

    fix buffer type detection for locals.
---
 realgud/common/buffer/locals.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/realgud/common/buffer/locals.el b/realgud/common/buffer/locals.el
index cc3fa9a..4f5672e 100644
--- a/realgud/common/buffer/locals.el
+++ b/realgud/common/buffer/locals.el
@@ -4,7 +4,7 @@
 (require-relative-list
  '("command") "realgud-buffer-")
 
-(make-variable-buffer-local (defvar realgud-buffer-type 'locals))
+(make-variable-buffer-local (defvar realgud-buffer-type))
 
 (cl-defstruct realgud-locals-info
   "debugger object/structure specific to a (top-level) program to be debugged."
@@ -13,8 +13,10 @@
 (make-variable-buffer-local (defvar realgud-locals-info))
 
 (defun realgud-locals? ( &optional buffer)
-  (with-current-buffer-safe
-      (or buffer (current-buffer))
+  "Return true if BUFFER is a locals buffer.
+
+If no BUFFER is given, current buffer is used."
+  (with-current-buffer-safe (or buffer (current-buffer))
     (and (boundp 'realgud-buffer-type)
         (equal realgud-buffer-type 'locals) )))
 
@@ -52,6 +54,7 @@ ARGS - arguments for command"
        (realgud-cmdbuf-info-locals-buf= locals-buffer)
        (with-current-buffer locals-buffer
          (realgud-locals-mode)
+         (setq realgud-buffer-type 'locals)
          (set (make-local-variable 'realgud-locals-info)
               (make-realgud-locals-info
                :cmdbuf cmdbuf)) )