From d04ce803e5434854b6c4601e413bd8e79da00569 Mon Sep 17 00:00:00 2001 From: Jean-Philippe Gravel Date: Sun, 12 May 2013 09:38:42 -0400 Subject: [PATCH] * progmodes/gdb-mi.el (gdb-input): Include token numbers in gdb-debug-log. --- lisp/ChangeLog | 5 +++++ 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 + + * progmodes/gdb-mi.el (gdb-input): Include token numbers in + gdb-debug-log. + 2013-05-14 Glenn Morris * 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) -- 2.39.2