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

gdb-debug-log.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef43f00de1ca2182a6de3195edc1b03f19736b58..1007517d29a6cdb9bd54d1beaffee32c74cde2fb 100644 (file)
--- 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 8e15ec6584e58369759e8707791d240ea9fbc286..43eab07fb8d24a19dcc82c34e756cc9a4e22259b 100644 (file)
--- 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)