From: Jean-Philippe Gravel <jpgravel@gmail.com>
Date: Sun, 12 May 2013 13:38:42 +0000 (-0400)
Subject: * progmodes/gdb-mi.el (gdb-input): Include token numbers in
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~229^2~86
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d04ce803e5434854b6c4601e413bd8e79da00569;p=emacs.git

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

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)