[Emacs-diffs] emacs/lisp/progmodes gdb-mi.el

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  09/09/01 23:53:49

Modified files:
        lisp/progmodes : gdb-mi.el 

Log message:
        (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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-mi.el?cvsroot=emacs&r1=1.42&r2=1.43

Patches:
Index: gdb-mi.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-mi.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- gdb-mi.el   1 Sep 2009 10:18:00 -0000       1.42
+++ gdb-mi.el   1 Sep 2009 23:53:48 -0000       1.43
@@ -579,9 +579,8 @@
 
 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 @@
   ;; 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 @@
         ;; 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