# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531250 0
# Node ID b04d97d778f6ad1207ab2490ce9969404acc754c
# Parent  8e13f59d2c19cc176a50e8a554873904f6eb086e
(enable-flow-control): Pass proper format string to message.

diff -r 8e13f59d2c19 -r b04d97d778f6 lisp/flow-ctrl.el
--- a/lisp/flow-ctrl.el	Thu Jan 25 00:54:04 1996 +0000
+++ b/lisp/flow-ctrl.el	Thu Jan 25 00:54:10 1996 +0000
@@ -95,14 +95,10 @@
     ;; 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