[Emacs-diffs] /srv/bzr/emacs/trunk r112582: * progmodes/gdb-mi.el (gdb-input): Include token numbers in

[Jean-Philippe Gravel]

------------------------------------------------------------
revno: 112582
committer: Jean-Philippe Gravel <address@hidden>
branch nick: trunk
timestamp: Sun 2013-05-12 09:38:42 -0400
message:
  * progmodes/gdb-mi.el (gdb-input): Include token numbers in
  gdb-debug-log.
modified:
  lisp/ChangeLog
  lisp/progmodes/gdb-mi.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-14 16:01:16 +0000
+++ b/lisp/ChangeLog    2013-05-12 13:38:42 +0000
@@ -1,3 +1,8 @@
+2013-05-14  Jean-Philippe Gravel  <address@hidden>
+
+       * progmodes/gdb-mi.el (gdb-input): Include token numbers in
+       gdb-debug-log.
+
 2013-05-14  Glenn Morris  <address@hidden>
 
        * subr.el (user-emacs-directory-warning): New option.

=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el  2013-04-20 16:24:04 +0000
+++ b/lisp/progmodes/gdb-mi.el  2013-05-12 13:38:42 +0000
@@ -1731,10 +1731,11 @@
   "Send COMMAND to GDB via the MI interface.
 Run the function HANDLER-FUNCTION, with no arguments, once the command is
 complete."
+  (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))
-  (setq gdb-token-number (1+ gdb-token-number))
-  (setq command (concat (number-to-string gdb-token-number) command))
   (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)