[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 9023ed4 188/215: Confirm on debugger quit.
From: |
Rocky Bernstein |
Subject: |
[elpa] master 9023ed4 188/215: Confirm on debugger quit. |
Date: |
Sat, 30 Jul 2016 14:49:05 +0000 (UTC) |
branch: master
commit 9023ed4353ebe67029a71d5510bad0ccf0b400d7
Author: rocky <address@hidden>
Commit: rocky <address@hidden>
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-")
- [elpa] master 2316417 205/215: Reassign more copyrights to FSF, (continued)
- [elpa] master 2316417 205/215: Reassign more copyrights to FSF, Rocky Bernstein, 2016/07/30
- [elpa] master 703e087 185/215: Correct cmd capabilities for perldb and trepanjs, Rocky Bernstein, 2016/07/30
- [elpa] master d367cab 196/215: Correct python trepan enable/disable patterns, Rocky Bernstein, 2016/07/30
- [elpa] master 5a84817 178/215: Fix invalid references to realgud:loc-follow, Rocky Bernstein, 2016/07/30
- [elpa] master 8edfb04 215/215: Not needed for elpa, Rocky Bernstein, 2016/07/30
- [elpa] master d97bf08 179/215: Update doc links, Rocky Bernstein, 2016/07/30
- [elpa] master e4c05b2 208/215: Merge pull request #137 from realgud/gdb-mi-warning, Rocky Bernstein, 2016/07/30
- [elpa] master 78d9901 122/215: Add a "safe mode" setting (on by default), Rocky Bernstein, 2016/07/30
- [elpa] master c49e2b3 204/215: Another small doc change, Rocky Bernstein, 2016/07/30
- [elpa] master 2f8efa3 130/215: Merge pull request #95 from rocky/revert-94-84-fix-autoloads, Rocky Bernstein, 2016/07/30
- [elpa] master 9023ed4 188/215: Confirm on debugger quit.,
Rocky Bernstein <=
- [elpa] master 703e69c 127/215: Manually generate "recursive" autoloads for subdirectories, Rocky Bernstein, 2016/07/30
- [elpa] master fb3f38b 182/215: A few more link updates (+ small edits in Commentary), Rocky Bernstein, 2016/07/30
- [elpa] master 245ca79 090/215: Redo previous commit handle base-variable determination from debugger name. We now do it via a hash table where entries are set in <debugger>/init.el Cleanup of old code is still needed., Rocky Bernstein, 2016/07/30
- [elpa] master 055dfa0 102/215: Move older, lesser-used debuggers to another repo, Rocky Bernstein, 2016/07/30
- [elpa] master 434e18c 183/215: Update Travis links, Rocky Bernstein, 2016/07/30
- [elpa] master 06ecc45 086/215: Add C-c ! d in a command buffer to get from a debugger location line in, Rocky Bernstein, 2016/07/30
- [elpa] master f8d36ba 198/215: Don't bind standard keys when disabled by config (#131), Rocky Bernstein, 2016/07/30
- [elpa] master 4cdbc0e 169/215: Further refactor cmds.el, Rocky Bernstein, 2016/07/30
- [elpa] master 26e67d6 211/215: Finish FSF Copyright assignments, Rocky Bernstein, 2016/07/30
- [elpa] master 99a825e 180/215: Revert "Revert "Manually generate "recursive" autoloads for subdirectories"", Rocky Bernstein, 2016/07/30