* progmodes/gdb-mi.el (gdb-input): Include token numbers in

gdb-debug-log.

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)