annotate etc/editclient.sh @ 5067:7d7ae8db0341

add functions `stable-union' and `stable-intersection' to do stable set operations -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * cl-seq.el: * cl-seq.el (stable-union): New. * cl-seq.el (stable-intersection): New. New functions to do stable set operations, i.e. preserve the order of the elements in the argument lists, and prefer LIST1 over LIST2 when ordering the combined result. The result looks as much like LIST1 as possible, followed (in the case of `stable-union') by any necessary elements from LIST2, in order. This is contrary to `union' and `intersection', which are not required to be order- preserving and are not -- they prefer LIST2 and output results in backwards order.
author Ben Wing <ben@xemacs.org>
date Mon, 22 Feb 2010 21:23:02 -0600
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