Mercurial > emacs

changeset 14314:b04d97d778f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(enable-flow-control): Pass proper format string to message.
author Karl Heuer <kwzh@gnu.org>
date Thu, 25 Jan 1996 00:54:10 +0000
parents 8e13f59d2c19
children ab041898078d
files lisp/flow-ctrl.el
diffstat 1 files changed, 4 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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