- (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))