[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 3b0e42c 067/215: realgud-exec-shell: Make sure we switch t
From: |
Rocky Bernstein |
Subject: |
[elpa] master 3b0e42c 067/215: realgud-exec-shell: Make sure we switch to cmdbuf even when there is an |
Date: |
Sat, 30 Jul 2016 14:48:54 +0000 (UTC) |
branch: master
commit 3b0e42cb95c88ed7a2bf2fab6864ece35186e793
Author: rocky <address@hidden>
Commit: rocky <address@hidden>
realgud-exec-shell: Make sure we switch to cmdbuf even when there is an
error. gdb.el: insert set-annotate only if process is running.
---
realgud/common/core.el | 24 ++++++++++++------------
realgud/common/run.el | 8 +++-----
realgud/debugger/gdb/gdb.el | 11 ++++++-----
3 files changed, 21 insertions(+), 22 deletions(-)
diff --git a/realgud/common/core.el b/realgud/common/core.el
index 4f8f344..71b81b8 100644
--- a/realgud/common/core.el
+++ b/realgud/common/core.el
@@ -270,10 +270,10 @@ marginal icons is reset."
(error
(let ((text (format "%S\n" failure)))
(insert text)
- (message text)(sit-for 2)
- text)))
+ (message text)(sit-for 1)
+ text)))
- (setq process (get-buffer-process cmdproc-buffer))
+ (setq process (get-buffer-process cmdproc-buffer))
(if (and process (eq 'run (process-status process)))
(let ((src-buffer)
@@ -283,16 +283,16 @@ marginal icons is reset."
(setq src-buffer (find-file-noselect script-filename))
(point-max)
(realgud-srcbuf-init src-buffer cmdproc-buffer))
- )
+ (process-put process 'buffer cmdproc-buffer))
;; else
- (insert
- (format
- "Failed to invoke debugger %s on program %s with args %s\n"
- debugger-name program (mapconcat 'identity args " ")))
- (error cmdproc-buffer)
- )
- (process-put process 'buffer cmdproc-buffer)))
- cmdproc-buffer))
+ (let ((text
+ (format
+ "Failed to invoke debugger %s on program %s with args %s\n"
+ debugger-name program (mapconcat 'identity args " "))))
+ (with-current-buffer cmdproc-buffer (insert text))
+ (message text)
+ ))
+ cmdproc-buffer))))
;; Start of a term-output-filter for term.el
(defun realgud-term-output-filter (process string)
diff --git a/realgud/common/run.el b/realgud/common/run.el
index 5e4bc5f..1108673 100644
--- a/realgud/common/run.el
+++ b/realgud/common/run.el
@@ -118,11 +118,9 @@ the program, we will switch to the command buffer which
shows
details of the error. The command buffer or nil is returned."
(let ((cmd-buf))
- (condition-case nil
- (setq cmd-buf
- (apply 'realgud-exec-shell debugger-name script-filename
- (car cmd-args) no-reset (cdr cmd-args)))
- (error nil))
+ (setq cmd-buf
+ (apply 'realgud-exec-shell debugger-name script-filename
+ (car cmd-args) no-reset (cdr cmd-args)))
;; FIXME: Is there probably is a way to remove the
;; below test and combine in condition-case?
(let ((process (get-buffer-process cmd-buf)))
diff --git a/realgud/debugger/gdb/gdb.el b/realgud/debugger/gdb/gdb.el
index 168d2d2..c93c4db 100644
--- a/realgud/debugger/gdb/gdb.el
+++ b/realgud/debugger/gdb/gdb.el
@@ -83,12 +83,13 @@ fringe and marginal icons.
nil))
)
(if cmd-buf
- (with-current-buffer cmd-buf
- (realgud-command "set annotate 1" nil nil nil)
- )
+ (let ((process (get-buffer-process cmd-buf)))
+ (if (and process (eq 'run (process-status process)))
+ (with-current-buffer cmd-buf
+ (realgud-command "set annotate 1" nil nil nil)
+ )))
)
- )
- )
+ ))
(provide-me "realgud-")
- [elpa] master 5f664e2 055/215: Python trepan debuggers include instruction offset in location, (continued)
- [elpa] master 5f664e2 055/215: Python trepan debuggers include instruction offset in location, Rocky Bernstein, 2016/07/30
- [elpa] master a4f3509 058/215: Add realgud:pdb-remote for remote kinds of pdb execution, e.g. telnet, Rocky Bernstein, 2016/07/30
- [elpa] master 1790056 059/215: Typo: Issue #45, Rocky Bernstein, 2016/07/30
- [elpa] master a016c6f 050/215: Administrivia, Rocky Bernstein, 2016/07/30
- [elpa] master 0dd37e2 053/215: Revise trepanjs regexps and add regexp test., Rocky Bernstein, 2016/07/30
- [elpa] master dd0c60a 066/215: I said remove perl5db as an alias, Rocky Bernstein, 2016/07/30
- [elpa] master 0514c68 069/215: Add melpa (nonstable) tag, Rocky Bernstein, 2016/07/30
- [elpa] master bdf317e 060/215: Try flycheck on this file., Rocky Bernstein, 2016/07/30
- [elpa] master 26fd0de 062/215: Show failure in message and in cmdbuf when we fail to invoke a debugger, Rocky Bernstein, 2016/07/30
- [elpa] master 3071b70 065/215: Try cask, Rocky Bernstein, 2016/07/30
- [elpa] master 3b0e42c 067/215: realgud-exec-shell: Make sure we switch to cmdbuf even when there is an,
Rocky Bernstein <=
- [elpa] master 2a708cc 068/215: Error on realgud:cmdbuf-associate if you assocate a non-command buffer., Rocky Bernstein, 2016/07/30
- [elpa] master 26369c1 074/215: Typo, Rocky Bernstein, 2016/07/30
- [elpa] master 4a83877 064/215: perl5db alias messes up realgud-track-mode, so drop that name., Rocky Bernstein, 2016/07/30
- [elpa] master d3953ae 092/215: Fix bug in picking out short-key variable name introduced by recent changes, Rocky Bernstein, 2016/07/30
- [elpa] master 2facb99 075/215: init.el: break and clear command use %X rather than %l, Rocky Bernstein, 2016/07/30
- [elpa] master 7edc244 063/215: wrong args in jdb invocation; issue #51. Disable some jdb commands we, Rocky Bernstein, 2016/07/30
- [elpa] master ca52896 071/215: A workaround: reinitialize shell mode when going out of realgud-track-mode, Rocky Bernstein, 2016/07/30
- [elpa] master eee3112 089/215: track.el: Allow us to separate stem variable name to get debugger config from debugger name. This will make it easier, Rocky Bernstein, 2016/07/30
- [elpa] master 1eda9a1 076/215: Partially addresses #61. Handling multiple breakpoints on a line still, Rocky Bernstein, 2016/07/30
- [elpa] master a216bf0 084/215: Last commit set wrong variables, Rocky Bernstein, 2016/07/30