diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ef43f00de1c..1007517d29a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-05-14 Jean-Philippe Gravel <jpgravel@gmail.com> + + * progmodes/gdb-mi.el (gdb-input): Include token numbers in + gdb-debug-log. + 2013-05-14 Glenn Morris <rgm@gnu.org> * subr.el (user-emacs-directory-warning): New option. diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 8e15ec6584e..43eab07fb8d 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -1731,10 +1731,11 @@ All embedded quotes, newlines, and backslashes are preceded with a backslash." "Send COMMAND to GDB via the MI interface. Run the function HANDLER-FUNCTION, with no arguments, once the command is complete." - (if gdb-enable-debug (push (list 'send-item command handler-function) - gdb-debug-log)) (setq gdb-token-number (1+ gdb-token-number)) (setq command (concat (number-to-string gdb-token-number) command)) + + (if gdb-enable-debug (push (list 'send-item command handler-function) + gdb-debug-log)) (push (cons gdb-token-number handler-function) gdb-handler-alist) (if gdbmi-debug-mode (message "gdb-input: %s" command)) (process-send-string (get-buffer-process gud-comint-buffer) |