From c4074c9f63a25a6266c3dd0e7692bf6f518201cb Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 20 Jul 2013 12:25:05 -0700 Subject: [PATCH] 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. --- lisp/ChangeLog | 4 ++++ lisp/progmodes/gdb-mi.el | 11 +++++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a259c044020..83c33768fe5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2013-07-20 Glenn Morris + * 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) diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 96215b9bf1a..4b51a5e7835 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -290,9 +290,8 @@ discard all handlers having a token number less than TOKEN-NUMBER." (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 @@ this trigger is subscribed to `gdb-buf-publisher' and called with 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 @@ current thread and update GDB buffers." (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 -- 2.11.4.GIT