diff options
| author | Karl Heuer | 1996-01-25 00:54:10 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-25 00:54:10 +0000 |
| commit | d8fb88d5354e728cd0f4830d4b44fdf032790561 (patch) | |
| tree | e188b21cf3013914e5c4b5b8793621ff474b2499 /lisp/flow-ctrl.el | |
| parent | 90f061c7e77c3d96202eb07b42ccb9786e6324f7 (diff) | |
| download | emacs-d8fb88d5354e728cd0f4830d4b44fdf032790561.tar.gz emacs-d8fb88d5354e728cd0f4830d4b44fdf032790561.zip | |
(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." | |||
| 95 | ;; Swap C-q and C-^ | 95 | ;; Swap C-q and C-^ |
| 96 | (aset keyboard-translate-table flow-control-c-q-replacement ?\^q) | 96 | (aset keyboard-translate-table flow-control-c-q-replacement ?\^q) |
| 97 | (aset keyboard-translate-table ?\^q flow-control-c-q-replacement) | 97 | (aset keyboard-translate-table ?\^q flow-control-c-q-replacement) |
| 98 | (message (concat | 98 | (message "XON/XOFF adjustment for %s: use %s for C-s, and use %s for C-q" |
| 99 | "XON/XOFF adjustment for " | 99 | (getenv "TERM") |
| 100 | (getenv "TERM") | 100 | (single-key-description flow-control-c-s-replacement) |
| 101 | ": use " | 101 | (single-key-description flow-control-c-q-replacement)) |
| 102 | (single-key-description flow-control-c-s-replacement) | ||
| 103 | " for C-s, and use " | ||
| 104 | (single-key-description flow-control-c-q-replacement) | ||
| 105 | " for C-q")) | ||
| 106 | (sleep-for 2))) ; Give user a chance to see message. | 102 | (sleep-for 2))) ; Give user a chance to see message. |
| 107 | 103 | ||
| 108 | ;;;###autoload | 104 | ;;;###autoload |