[elpa] master 1ff6720 189/215: Merge pull request #127 from realgud/quit-confirm

[Rocky Bernstein]

branch: master
commit 1ff67205831c040cf3ea808f3d9249afedcfed5b
Merge: 703e087 9023ed4
Author: R. Bernstein <address@hidden>
Commit: R. Bernstein <address@hidden>

    Merge pull request #127 from realgud/quit-confirm
    
    Confirm on debugger quit.
---
 realgud/common/cmds.el |   36 +++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 17 deletions(-)

diff --git a/realgud/common/cmds.el b/realgud/common/cmds.el
index 22a10f9..0aa9faf 100644
--- a/realgud/common/cmds.el
+++ b/realgud/common/cmds.el
@@ -393,26 +393,28 @@ continuing execution."
 (defun realgud:cmd-quit (&optional arg)
   "Gently terminate execution of the debugged program."
   (interactive "p")
-  (let ((buffer (current-buffer))
-       (cmdbuf (realgud-get-cmdbuf))
-       (cmd-hash)
-       (cmd)
-       )
-    (if cmdbuf
-       (progn
-         (with-current-buffer cmdbuf
-           (realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer)))
-           (setq cmd-hash (realgud-cmdbuf-info-cmd-hash realgud-cmdbuf-info))
-           (unless (and cmd-hash (setq cmd (gethash "quit" cmd-hash)))
-             (setq cmd "quit"))
+  (if (realgud:prompt-if-safe-mode
+                "Quit debugger?")
+      (let ((buffer (current-buffer))
+           (cmdbuf (realgud-get-cmdbuf))
+           (cmd-hash)
+           (cmd)
            )
+       (if cmdbuf
+           (progn
+             (with-current-buffer cmdbuf
+               (realgud-cmdbuf-info-in-srcbuf?= (not (realgud-cmdbuf? buffer)))
+               (setq cmd-hash (realgud-cmdbuf-info-cmd-hash 
realgud-cmdbuf-info))
+               (unless (and cmd-hash (setq cmd (gethash "quit" cmd-hash)))
+                 (setq cmd "quit"))
+               )
           (realgud-command cmd arg t)
          (if cmdbuf (realgud:terminate cmdbuf))
          )
-      ;; else
-      (realgud:terminate-srcbuf buffer)
-      )
-    )
-  )
+         ;; else
+         (realgud:terminate-srcbuf buffer)
+         )
+       )
+    ))
 
 (provide-me "realgud-")