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 | d8fb88d5354e728cd0f4830d4b44fdf032790561 (patch) | |
| tree | e188b21cf3013914e5c4b5b8793621ff474b2499 /lisp/flow-ctrl.el | |
| parent | 90f061c7e77c3d96202eb07b42ccb9786e6324f7 (diff) | |
| download | emacs-d8fb88d5354e728cd0f4830d4b44fdf032790561.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 |