annotate etc/editclient.sh @ 5259:02c282ae97cb

Read and print char table defaults, chartab.c 2010-09-05 Aidan Kehoe <kehoea@parhasard.net> * chartab.c (char_table_default_for_type, chartab_default_validate): New. (print_char_table, Freset_char_table, chartab_default_validate) (chartab_instantiate, structure_type_create_chartab): Accept keyword :default in the read syntax for char tables, and print the default when it is not what was expected for the time. Makes it a little easier to debug things.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 05 Sep 2010 20:12:53 +0100
parents 3ecd8885ac67
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 #!/bin/sh
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 if gnuclient -batch -eval t >/dev/null 2>&1; then
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 exec gnuclient ${1+"$@"}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 xemacs -unmapped -f gnuserv-start &
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 until gnuclient -batch -eval t >/dev/null 2>&1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 sleep 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 done
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 exec gnuclient ${1+"$@"}
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 fi
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12