[Emacs-diffs] trunk r113474: Tweak some message calls in gdb-mi.el

[Glenn Morris]

------------------------------------------------------------
revno: 113474
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-07-20 12:25:05 -0700
message:
  Tweak some message calls in gdb-mi.el
  
  * lisp/progmodes/gdb-mi.el (gdb-delete-handler, gdb-stopped):
  Let `message' do the formatting.
  (def-gdb-preempt-display-buffer): Add explicit format.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/gdb-mi.el       gdbmi.el-20100327132052-973a0aspo2g2bze8-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-20 19:20:33 +0000
+++ b/lisp/ChangeLog    2013-07-20 19:25:05 +0000
@@ -1,5 +1,9 @@
 2013-07-20  Glenn Morris  <address@hidden>
 
+       * progmodes/gdb-mi.el (gdb-delete-handler, gdb-stopped):
+       Let `message' do the formatting.
+       (def-gdb-preempt-display-buffer): Add explicit format.
+
        * image-dired.el (image-dired-track-original-file):
        Avoid changing point of wrong window.  (Bug#14909)
 

=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el  2013-07-20 19:20:33 +0000
+++ b/lisp/progmodes/gdb-mi.el  2013-07-20 19:25:05 +0000
@@ -290,9 +290,8 @@
              (lambda (handler)
                "Discard any HANDLER with a token number `<=' than 
TOKEN-NUMBER."
                (when (< (gdb-handler-token-number handler) token-number)
-                 (message (format
-                           "WARNING! Discarding GDB handler with token #%d\n"
-                           (gdb-handler-token-number handler))))
+                 (message "WARNING! Discarding GDB handler with token #%d\n"
+                         (gdb-handler-token-number handler)))
                (<= (gdb-handler-token-number handler) token-number))
              gdb-handler-list))
 
@@ -1490,7 +1489,7 @@
                                               split-horizontal)
   `(defun ,name (&optional thread)
      ,(when doc doc)
-     (message thread)
+     (message "%s" thread)
      (gdb-preempt-existing-or-display-buffer
       (gdb-get-buffer-create ,buffer thread)
       ,split-horizontal)))
@@ -2445,9 +2444,9 @@
         (if (or (eq gdb-switch-reasons t)
                 (member reason gdb-switch-reasons))
             (when (not (string-equal gdb-thread-number thread-id))
-              (message (concat "Switched to thread " thread-id))
+              (message "Switched to thread %s" thread-id)
               (gdb-setq-thread-number thread-id))
-          (message (format "Thread %s stopped" thread-id)))))
+          (message "Thread %s stopped" thread-id))))
 
     ;; Print "(gdb)" to GUD console
     (when gdb-first-done-or-error