annotate etc/editclient.sh @ 4720:3c92890f3750

Add `file-system-ignore-case-p', use it. 2009-10-24 Aidan Kehoe <kehoea@parhasard.net> * files.el (default-file-system-ignore-case): New variable. (file-system-case-alist): New variable. (file-system-ignore-case-p): New function; return t if file names under PATH should be treated case-insensitively. * minibuf.el (read-file-name-1, read-file-name-internal-1) (read-file-name-internal-1): * package-admin.el (package-admin-check-manifest): Use file-system-ignore-case-p instead of checking system-type directly in these functions. (Even though minibuf.el is dumped before files.el, the function is only called in interactive usage, there's no dump time order dependency here.)
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 24 Oct 2009 15:33:23 +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