diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2020-07-24 19:59:24 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2020-07-24 19:59:24 -0700 |
commit | 25969db825bf609cd5be9c5cee83bed15d4c62b0 (patch) | |
tree | 0fd9921796417a3bdb61ce9bb5f9cafe9ba08056 | |
parent | ccf6309c1716a221c881d610af8b3c11d363f5f3 (diff) | |
download | txr-25969db825bf609cd5be9c5cee83bed15d4c62b0.tar.gz txr-25969db825bf609cd5be9c5cee83bed15d4c62b0.tar.bz2 txr-25969db825bf609cd5be9c5cee83bed15d4c62b0.zip |
Different banner text for plain mode.
* txr.c (banner): In plain mode, indicate that the mode is
in effect. Do not suggest any Ctrl-X commands, since they
are not recognized.
-rw-r--r-- | txr.c | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -177,8 +177,12 @@ static void help(void) static void banner(void) { format(std_output, - lit("This is the TXR Lisp interactive listener of TXR ~a.\n" - "Quit with :quit or Ctrl-D on empty line. Ctrl-X ? for cheatsheet.\n"), + if3(opt_noninteractive, + lit("This is the TXR Lisp plain mode listener of TXR ~a.\n" + "Quit wth :quit or Ctrl-D on an empty line.\n"), + lit("This is the TXR Lisp interactive listener of TXR ~a.\n" + "Quit with :quit or Ctrl-D on an empty line. " + "Ctrl-X ? for cheatsheet.\n")), static_str(version), nao); } #else |