From f6db4734d7e805dfff6006aa6f6aaa946451c0c3 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 1 Sep 2009 23:53:48 +0000 Subject: [PATCH] (gdb-current-context-command): Move the space ... (gdb-gud-context-call): ... to here for pre GDB 7.0 when there is no "--thread" option. (gdb-stopped): Don't print "Switched to thread" message when it is unchanged. --- lisp/progmodes/gdb-mi.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 43cb614632e..781bd98f872 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -579,9 +579,8 @@ CMD1 and CMD2. NOALL is the same as in `gdb-gud-context-command'. NOARG must be t when this macro is used outside `gud-def'" `(gud-call - (concat - (gdb-gud-context-command ,cmd1 ,noall) - ,cmd2) ,(when (not noarg) 'arg))) + (concat (gdb-gud-context-command ,cmd1 ,noall) " " ,cmd2) + ,(when (not noarg) 'arg))) ;;;###autoload (defun gdb (command-line) @@ -1609,7 +1608,7 @@ then no --frame option is added." ;; gdb-frame-number may be nil while gdb-thread-number is non-nil ;; (when current thread is running) (if gdb-thread-number - (concat command " --thread " gdb-thread-number " ") + (concat command " --thread " gdb-thread-number) command)) (defun gdb-current-context-buffer-name (name) @@ -1921,9 +1920,9 @@ current thread and update GDB buffers." ;; reasons (if (or (eq gdb-switch-reasons t) (member reason gdb-switch-reasons)) - (progn - (gdb-setq-thread-number thread-id) - (message (concat "Switched to thread " thread-id))) + (when (not (string-equal gdb-thread-number thread-id)) + (message (concat "Switched to thread " thread-id)) + (gdb-setq-thread-number thread-id)) (message (format "Thread %s stopped" thread-id))))) ;; Print "(gdb)" to GUD console -- 2.39.2