procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gdb-current-context-command): Move the

Browse source 
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.
This commit is contained in:
Nick Roberts 2009-09-01 23:53:48 +00:00
parent ed17efec53
commit f6db4734d7
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/progmodes/gdb-mi.el
View file

@ -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