diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-25 00:54:10 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-25 00:54:10 +0000 |
| commit | f28f431f7f9117b2b1b78c74124d93a43bbec5a8 (patch) | |
| tree | e78d482ec4b24d62f4e87aeaab798de4d0624952 /lisp/flow-ctrl.el | |
| parent | 27a77427aa60db3c7bf618c4f45c1401f696409a (diff) | |
| download | emacs-f28f431f7f9117b2b1b78c74124d93a43bbec5a8.tar.gz | |
(enable-flow-control): Pass proper format string to message.
Diffstat (limited to 'lisp/flow-ctrl.el')
| -rw-r--r-- | lisp/flow-ctrl.el | 12 |
1 files changed, 4 insertions, 8 deletions
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 |