From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 25 Jan 1996 00:54:10 +0000 (+0000)
Subject: (enable-flow-control): Pass proper format string to message.
X-Git-Tag: emacs-19.34~1546
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8fb88d5354e728cd0f4830d4b44fdf032790561;p=emacs.git

(enable-flow-control): Pass proper format string to message.
---

diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el
index de2109b4b86..f98ecaa0fb9 100644
--- a/lisp/flow-ctrl.el
+++ b/lisp/flow-ctrl.el
@@ -95,14 +95,10 @@ With arg, enable flow control mode if arg is positive, otherwise disable."
     ;; Swap C-q and C-^
     (aset keyboard-translate-table flow-control-c-q-replacement ?\^q)
     (aset keyboard-translate-table ?\^q flow-control-c-q-replacement)
-    (message (concat 
-	      "XON/XOFF adjustment for " 
-	      (getenv "TERM") 
-	      ": use "
-	      (single-key-description flow-control-c-s-replacement)
-	      " for C-s, and use "
-	      (single-key-description flow-control-c-q-replacement)
-	      " for C-q"))
+    (message "XON/XOFF adjustment for %s: use %s for C-s, and use %s for C-q"
+	     (getenv "TERM") 
+	     (single-key-description flow-control-c-s-replacement)
+	     (single-key-description flow-control-c-q-replacement))
     (sleep-for 2)))			; Give user a chance to see message.
 
 ;;;###autoload