Mercurial > hg > xemacs-beta
changeset 159:3bb7ccffb0c0 r20-3b6
Import from CVS: tag r20-3b6
line wrap: on
line diff
--- a/CHANGES-beta Mon Aug 13 09:40:48 2007 +0200 +++ b/CHANGES-beta Mon Aug 13 09:41:43 2007 +0200 @@ -1,4 +1,10 @@ -*- indented-text -*- +to 20.3 beta6. +-- Configure updates courtesy of Martin Buchholz +-- Mule updates courtesy of MORIOKA Tomohiko +-- Lots of Ebola cleanup, but much remains. +-- Miscellaneous bug fixes. + to 20.3 beta5. -- Configure patches continued from Martin Buchholz -- Miscellaneous Bug Fixes from various people (see ChangeLogs)
--- a/ChangeLog Mon Aug 13 09:40:48 2007 +0200 +++ b/ChangeLog Mon Aug 13 09:41:43 2007 +0200 @@ -1,3 +1,94 @@ +1997-06-11 Steven L Baur <steve@altair.xemacs.org> + + * XEmacs 20.3-b6 is released. + + * configure.in (GNU_MALLOC): Check for (-l)PW instead of (-l)-lPW. + Suggested by Martin Buchholz <mrb@eng.sun.com> + +1997-06-11 Martin Buchholz <mrb@eng.sun.com> + + * src/Makefile.in: + * lwlib/Makefile.in: + * lib-src/Makefile.in: + * Makefile.in: More Makefile cleanup + - add .PHONY targets where necessary + - remove most builtin rules using .SUFFIXES + - -lXau only gets used for linking gnuserv binaries + - No VPATH for root Makefile + - remove gcc v1 support + * configure.in: + - A new test to autodetect need to define NARROWPROTO, + needed by XFree86 + - Consistently use idiom foo=`echo '' $foo | sed -s 's:^ ::' -e ...` + - Immediately exit if SIZEOF_* tests fail. + - Check for libPW + - Use more sophisticated Xpm test that confirms xpm.h and libXpm + are in sync. + * src/s/linux.h: + * src/m/intel386.h: Yet another attempt to clean up linux defines. + +1997-06-10 Steven L Baur <steve@altair.xemacs.org> + + * lib-src/pop.c: Correct incantation for pop.h. + From Martin Buchholz <mrb@Eng.Sun.COM> + +Tue Jun 10 15:11:16 1997 Steven L Baur <steve@altair.xemacs.org> + + * configure.in (beta): Correct test looking for Beta number. + +1997-06-11 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * src/Makefile.in.in, mule/language/misc-lang.el, + mule/mule-load.el, mule/ipa-hooks.el: Use + lisp/mule/language/misc-lang.el instead of lisp/mule/ipa-hooks.el; + mule/ipa-hooks.el was deleted. + +1997-06-10 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * Use lisp/mule/language/thai-util.el instead of + lisp/mule/thai.el. + + * lisp/custom/wid-edit.el: Add widget `coding-system' for mule. + + * lisp/mule/thai-hooks.el, lisp/mule/mule-load.el: Use + lisp/mule/language/thai.el instead of lisp/mule/thai-hooks.el. + + * lisp/mule/language/thai.el: modified for XEmacs. + +1997-06-09 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * lisp/mule/mule-load.el, src/Makefile.in.in: Use + lisp/mule/language/chinese.el, lisp/mule/language/cyrillic.el, + lisp/mule/language/european.el, lisp/mule/language/greek.el, + lisp/mule/language/japanese.el and lisp/mule/language/korean.el + instead of lisp/mule/chinese-hooks.el, + lisp/mule/cyrillic-hooks.el, lisp/mule/european-hooks.el, + lisp/mule/greek-hooks.el, lisp/mule/japanese-hooks.el and + lisp/mule/korean-hooks.el. + + * lisp/mule/language/*.el was imported from + Emacs/mule-19.34.94-zeta. + + * Use lisp/mule/language/china-util.el instead of + lisp/mule/chinese.el. + +1997-06-08 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * lisp/apel/emu-x20.el (mime-charset-coding-system-alist): + iso-8859-1, hz-gb-2312, cn-gb-2312, gb2312, cn-big5 and koi8-r + were defined as coding-system. + +1997-06-08 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * etc/smilies/Face_smile.xbm, etc/smilies/Face_weep.xbm, + etc/smilies/Face_ase2.xbm, etc/smilies/Face_ase3.xbm, + etc/smilies/Face_ase.xbm: Add Japanese smiley faces. + +1997-06-07 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * lisp/gnus/smiley.el (smiley-deformed-regexp-alist): Add Japanese + smiley faces. + 1997-06-09 Steven L Baur <steve@altair.xemacs.org> * XEmacs 20.3-b5 is released.
--- a/Makefile.in Mon Aug 13 09:40:48 2007 +0200 +++ b/Makefile.in Mon Aug 13 09:41:43 2007 +0200 @@ -123,9 +123,6 @@ # set by the configure script's `--srcdir' option. srcdir=@srcdir@ -# Tell make where to find source files; this is needed for the makefiles. -VPATH=@srcdir@ - # ==================== XEmacs-specific directories ==================== # These variables hold the values XEmacs will actually use. They are @@ -216,21 +213,26 @@ # instead, we have written out explicit code in the `install' targets. COPYDIR = ${srcdir}/etc ${srcdir}/lisp COPYDESTS = ${etcdir} ${lispdir} +GENERATED_HEADERS = src/paths.h src/Emacs.ad.h src/config.h src/puresize_adjust.h -.NO_PARALLEL: src/paths.h src/Emacs.ad.h ${MAKE_SUBDIR} dump-elcs +all: ${GENERATED_HEADERS} ${MAKE_SUBDIR} -all: src/paths.h src/Emacs.ad.h ${MAKE_SUBDIR} +# For performance and consistency, no built-in rules +.SUFFIXES: + +.NO_PARALLEL: ${GENERATED_HEADERS} ${MAKE_SUBDIR} dump-elcs +.PHONY: ${SUBDIR} all beta all-elc all-elcs dump-elc dump-elcs autoloads # Convenience target for XEmacs beta testers beta: clean all-elc # Build XEmacs and recompile out-of-date and missing .elc files along # the way. -all-elc all-elcs: src/paths.h src/Emacs.ad.h lib-src lwlib dump-elcs src +all-elc all-elcs: lib-src lwlib dump-elcs src MAKE='$(MAKE)' sh ${srcdir}/lib-src/update-elc.sh # Sub-target for all-elc. -dump-elc dump-elcs: FRC.dump-elcs +dump-elc dump-elcs: ${GENERATED_HEADERS} FRC.dump-elcs cd src && $(MAKE) dump-elcs $(MFLAGS) \ CC='${CC}' CFLAGS='${CFLAGS}' MAKE='${MAKE}' @@ -245,36 +247,31 @@ # 386bsd. src/paths.h: Makefile ${srcdir}/src/paths.h.in FRC.src.paths.h @echo "Producing \`src/paths.h' from \`src/paths.h.in'." - -rm -f src/paths.h.tmp + @-rm -f src/paths.h.tmp @cp ${srcdir}/src/paths.h.in src/paths.h.tmp - -chmod 0644 src/paths.h.tmp - @echo '#define PATH_PREFIX "${prefix}"' >> src/paths.h.tmp - @if [ x"${lispdir_user_defined}" = x"yes" ]; then \ - echo '#define PATH_LOADSEARCH "${lispdir}"' >> src/paths.h.tmp;\ - else \ - echo '/* #define PATH_LOADSEARCH "${lispdir}" */' >>src/paths.h.tmp;\ - fi - @if [ x"${archlibdir_user_defined}" = x"yes" ]; then \ - echo '#define PATH_EXEC "${archlibdir}"' >> src/paths.h.tmp ;\ - else \ - echo '/* #define PATH_EXEC "${archlibdir}" */' >> src/paths.h.tmp ;\ - fi - @if [ x"${etcdir_user_defined}" = x"yes" ]; then \ - echo '#define PATH_DATA "${etcdir}"' >> src/paths.h.tmp ;\ - else \ - echo '/* #define PATH_DATA "${etcdir}" */' >> src/paths.h.tmp ;\ - fi - @if [ x"${lockdir_user_defined}" = x"yes" ]; then \ - echo '#define PATH_LOCK "${lockdir}"' >> src/paths.h.tmp ;\ - else \ - echo '/* #define PATH_LOCK "${lockdir}" */' >> src/paths.h.tmp ;\ - fi - @if [ x"${infodir_user_defined}" = x"yes" ]; then \ - echo '#define PATH_INFO "${infodir}"' >> src/paths.h.tmp ;\ - else \ - echo '/* #define PATH_INFO "${infodir}" */' >> src/paths.h.tmp ;\ - fi - @sh ${srcdir}/move-if-change src/paths.h.tmp src/paths.h + @-chmod 0644 src/paths.h.tmp + @(echo '#define PATH_PREFIX "${prefix}"'; \ + if test "${lispdir_user_defined}" = "yes"; \ + then echo '#define PATH_LOADSEARCH "${lispdir}"'; \ + else echo '/* #define PATH_LOADSEARCH "${lispdir}" */'; \ + fi; \ + if test "${archlibdir_user_defined}" = "yes"; \ + then echo '#define PATH_EXEC "${archlibdir}"'; \ + else echo '/* #define PATH_EXEC "${archlibdir}" */'; \ + fi; \ + if test "${etcdir_user_defined}" = "yes"; \ + then echo '#define PATH_DATA "${etcdir}"'; \ + else echo '/* #define PATH_DATA "${etcdir}" */'; \ + fi; \ + if test "${lockdir_user_defined}" = "yes"; \ + then echo '#define PATH_LOCK "${lockdir}"'; \ + else echo '/* #define PATH_LOCK "${lockdir}" */'; \ + fi; \ + if test "${infodir_user_defined}" = "yes"; \ + then echo '#define PATH_INFO "${infodir}"'; \ + else echo '/* #define PATH_INFO "${infodir}" */'; \ + fi; ) >> src/paths.h.tmp; \ + sh ${srcdir}/move-if-change src/paths.h.tmp src/paths.h # We have to force the building of Emacs.ad.h as well in order to get it # updated correctly when VPATH is being used. Since we use move-if-change, @@ -288,13 +285,19 @@ /bin/sh ${srcdir}/lib-src/ad2c ${srcdir}/etc/Emacs.ad ) > \ src/Emacs.ad.h +src/puresize_adjust.h: ${srcdir}/src/puresize.h + @echo "Resetting \`src/puresize_adjust.h'."; \ + (echo "/* Do not edit this file!" ; \ + echo " Automatically generated by XEmacs */" ; \ + echo "#define PURESIZE_ADJUSTMENT 0") > $@ + src: @SRC_SUBDIR_DEPS@ FRC.src lib-src: FRC.lib-src lwlib: FRC.lwlib .RECURSIVE: ${SUBDIR} -${SUBDIR}: ${SUBDIR_MAKEFILES} src/config.h src/puresize_adjust.h FRC +${SUBDIR}: ${SUBDIR_MAKEFILES} ${GENERATED_HEADERS} FRC cd $@ && $(MAKE) all $(MFLAGS) \ CC='${CC}' CFLAGS='${CFLAGS}' MAKE='${MAKE}' @@ -313,12 +316,6 @@ src/config.h: ${srcdir}/src/config.h.in ./config.status -src/puresize_adjust.h: ${srcdir}/src/puresize.h - @echo "Resetting \`src/puresize_adjust.h'." - @echo '/* This file is generated by XEmacs, DO NOT MODIFY!!! */' > src/puresize_adjust.h - @echo '#define PURESIZE_ADJUSTMENT 0' >> src/puresize_adjust.h - - # ==================== Installation ==================== ## If we let lib-src do its own installation, that means we @@ -328,7 +325,7 @@ ## On AIX, use tar xBf. ## On Xenix, use tar xpf. -.PHONY: install install-arch-dep install-arch-indep mkdir +.PHONY: install-only install install-arch-dep install-arch-indep gzip.el mkdir ## We delete each directory in ${COPYDESTS} before we copy into it; ## that way, we can reinstall over directories that have been put in @@ -542,7 +539,7 @@ SOURCES = ChangeLog GETTING.GNU.SOFTWARE INSTALL Makefile.in PROBLEMS \ README build-install.in configure make-dist move-if-change -.PHONY: unlock relock +.PHONY: unlock relock TAGS tags check dist info dvi mcs unlock: chmod u+w $(SOURCES) cpp/* @@ -566,9 +563,7 @@ (cd lwlib && chmod u+w *.[ch] Makefile.in.in) (cd src && $(MAKE) $(MFLAGS) relock) -.PHONY: TAGS tags check dist - -TAGS tags: +TAGS tags: FRC.tags @echo "If you don't have a copy of etags around, then do 'make lib-src' first." @PATH=`pwd`/lib-src:$$PATH HOME=/-=-; export PATH HOME; \ echo "Using etags from `which etags`." @@ -585,9 +580,7 @@ dist: cd ${srcdir} && make-dist -.PHONY: info dvi -force-info: -info: force-info +info: FRC.info cd ${srcdir}/man && $(MAKE) $(MFLAGS) $@ dvi: cd ${srcdir}/man && $(MAKE) $(MFLAGS) $@
--- a/configure Mon Aug 13 09:40:48 2007 +0200 +++ b/configure Mon Aug 13 09:41:43 2007 +0200 @@ -469,7 +469,7 @@ -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; *) - quoted_i="`echo $i | sed $quoted_sed_magic`" + quoted_i="`echo '' $i | sed -e 's:^ ::' -e $quoted_sed_magic`" quoted_arguments="$quoted_arguments '$quoted_i'" ;; esac done @@ -594,7 +594,7 @@ with_database_berkdb=no with_database_dbm=no with_database_gnudbm=no - for x in `echo "$val" | sed 's/,/ /'` ; do + for x in `echo "$val" | sed -e 's/,/ /'` ; do case "$x" in no ) ;; b | be | ber | berk | berkd | berkdb ) with_database_berkdb=yes ;; @@ -660,7 +660,7 @@ "error_checking" ) - for x in `echo "$val" | sed 's/,/ /'` ; do + for x in `echo "$val" | sed -e 's/,/ /'` ; do case "$x" in n | no | non | none ) new_default=no ;; a | al | all ) new_default=yes ;; @@ -770,9 +770,9 @@ test "$extra_verbose" = "yes" && verbose=yes -case "site_includes" in *:* ) site_includes="`echo $site_includes | sed 's/:/ /g'`";; esac -case "site_libraries" in *:* ) site_libraries="`echo $site_libraries | sed 's/:/ /g'`";; esac -case "site_runtime_libraries" in *:* ) site_runtime_libraries="`echo $site_runtime_libraries | sed 's/:/ /g'`";; esac +case "site_includes" in *:* ) site_includes="`echo '' $site_includes | sed -e 's:^ ::' -e 's/:/ /g'`";; esac +case "site_libraries" in *:* ) site_libraries="`echo '' $site_libraries | sed -e 's:^ ::' -e 's/:/ /g'`";; esac +case "site_runtime_libraries" in *:* ) site_runtime_libraries="`echo '' $site_runtime_libraries | sed -e 's:^ ::' -e 's/:/ /g'`";; esac test -n "$with_x" && with_x11="$with_x" @@ -2154,8 +2154,8 @@ if test "$add_runtime_path" = "yes" -a -n "$dash_r"; then - ld_switch_site="`echo $ld_switch_site | sed \"s/${dash_r}[^ ]*//\"`" - ld_switch_x_site="`echo $ld_switch_x_site | sed \"s/${dash_r}[^ ]*//\"`" + ld_switch_site=`echo '' $ld_switch_site | sed -e 's:^ ::' -e "s/${dash_r}[^ ]*//"` + ld_switch_x_site=`echo '' $ld_switch_x_site | sed -e 's:^ ::' -e "s/${dash_r}[^ ]*//"` runpath="" if test -n "$LD_RUN_PATH"; then @@ -2165,7 +2165,7 @@ xe_runpath_link='${CC-cc} -o conftest -v $CFLAGS '"$xe_ldflags"' conftest.$ac_ext 2>&1 1>/dev/null' for arg in `eval "$xe_runpath_link" | grep ' -L'`; do case "$arg" in P,* | -L* | -R* ) - for dir in `echo "$arg" | sed -e 's/^..//' -e 'y/:/ /'`; do + for dir in `echo '' "$arg" | sed -e 's:^ ::' -e 's/^..//' -e 'y/:/ /'`; do xe_runpath_dir="$dir" if test "$xe_runpath_dir" != "/lib" -a \ @@ -2182,7 +2182,7 @@ else for arg in $ld_switch_site $ld_switch_x_site; do case "$arg" in -L*) -xe_runpath_dir=`echo "$arg" | sed 's/^-L//'` +xe_runpath_dir=`echo '' "$arg" | sed -e 's:^ ::' -e 's/^-L//'` if test "$xe_runpath_dir" != "/lib" -a \ "$xe_runpath_dir" != "/usr/lib" -a \ -n "`ls ${xe_runpath_dir}/*.s[ol] 2>/dev/null`"; then @@ -3217,9 +3217,15 @@ } +if test "$ac_cv_sizeof_long" = 0; then + echo "" + echo "*** PANIC *** Configure tests are not working - compiler is broken." + echo "*** PANIC *** Please examine config.log for compilation errors." + exit 1 +fi echo $ac_n "checking for long file names""... $ac_c" 1>&6 -echo "configure:3223: checking for long file names" >&5 +echo "configure:3229: checking for long file names" >&5 ac_cv_sys_long_file_names=yes # Test for long file names in all the places we know might matter: @@ -3265,14 +3271,13 @@ - echo $ac_n "checking for sqrt in -lm""... $ac_c" 1>&6 -echo "configure:3271: checking for sqrt in -lm" >&5 +echo "configure:3276: checking for sqrt in -lm" >&5 ac_lib_var=`echo m'_'sqrt | sed 'y%./+-%__p_%'` xe_check_libs=" -lm " cat > conftest.$ac_ext <<EOF -#line 3276 "configure" +#line 3281 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -3283,7 +3288,7 @@ sqrt() ; return 0; } EOF -if { (eval echo configure:3287: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:3292: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -3315,6 +3320,52 @@ + +echo $ac_n "checking for main in -lPW""... $ac_c" 1>&6 +echo "configure:3326: checking for main in -lPW" >&5 +ac_lib_var=`echo PW'_'main | sed 'y%./+-%__p_%'` + +xe_check_libs=" -lPW " +cat > conftest.$ac_ext <<EOF +#line 3331 "configure" +#include "confdefs.h" + +int main() { +main() +; return 0; } +EOF +if { (eval echo configure:3338: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=no" +fi +rm -f conftest* +xe_check_libs="" + +if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes" ; then + echo "$ac_t""yes" 1>&6 + ac_tr_lib=HAVE_LIB`echo PW | sed -e 's/[^a-zA-Z0-9_]/_/g' \ + -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'` + { test "$extra_verbose" = "yes" && cat << EOF + Defining $ac_tr_lib +EOF +cat >> confdefs.h <<EOF +#define $ac_tr_lib 1 +EOF +} + + LIBS="-lPW $LIBS" && if test "$extra_verbose" = "yes"; then echo " Prepending \"-lPW\" to \$LIBS"; fi + +else + echo "$ac_t""no" 1>&6 +fi + + + { test "$extra_verbose" = "yes" && cat << \EOF Defining LISP_FLOAT_TYPE EOF @@ -3325,7 +3376,7 @@ echo "checking type of mail spool file locking" 1>&6 -echo "configure:3329: checking type of mail spool file locking" >&5 +echo "configure:3380: checking type of mail spool file locking" >&5 test -z "$mail_locking" -a "$mail_use_flock" = "yes" && mail_locking=flock test -z "$mail_locking" -a "$mail_use_lockf" = "yes" && mail_locking=lockf if test "$mail_locking" = "lockf"; then { test "$extra_verbose" = "yes" && cat << \EOF @@ -3349,12 +3400,12 @@ echo $ac_n "checking for kstat_open in -lkstat""... $ac_c" 1>&6 -echo "configure:3353: checking for kstat_open in -lkstat" >&5 +echo "configure:3404: checking for kstat_open in -lkstat" >&5 ac_lib_var=`echo kstat'_'kstat_open | sed 'y%./+-%__p_%'` xe_check_libs=" -lkstat " cat > conftest.$ac_ext <<EOF -#line 3358 "configure" +#line 3409 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -3365,7 +3416,7 @@ kstat_open() ; return 0; } EOF -if { (eval echo configure:3369: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:3420: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -3399,12 +3450,12 @@ echo $ac_n "checking for kvm_read in -lkvm""... $ac_c" 1>&6 -echo "configure:3403: checking for kvm_read in -lkvm" >&5 +echo "configure:3454: checking for kvm_read in -lkvm" >&5 ac_lib_var=`echo kvm'_'kvm_read | sed 'y%./+-%__p_%'` xe_check_libs=" -lkvm " cat > conftest.$ac_ext <<EOF -#line 3408 "configure" +#line 3459 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -3415,7 +3466,7 @@ kvm_read() ; return 0; } EOF -if { (eval echo configure:3419: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:3470: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -3449,12 +3500,12 @@ echo $ac_n "checking for cma_open in -lpthreads""... $ac_c" 1>&6 -echo "configure:3453: checking for cma_open in -lpthreads" >&5 +echo "configure:3504: checking for cma_open in -lpthreads" >&5 ac_lib_var=`echo pthreads'_'cma_open | sed 'y%./+-%__p_%'` xe_check_libs=" -lpthreads " cat > conftest.$ac_ext <<EOF -#line 3458 "configure" +#line 3509 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -3465,7 +3516,7 @@ cma_open() ; return 0; } EOF -if { (eval echo configure:3469: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:3520: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -3501,7 +3552,7 @@ fi echo $ac_n "checking whether the -xildoff compiler flag is required""... $ac_c" 1>&6 -echo "configure:3505: checking whether the -xildoff compiler flag is required" >&5 +echo "configure:3556: checking whether the -xildoff compiler flag is required" >&5 if ${CC-cc} '-###' -xildon no_such_file.c 2>&1 | grep '^[^ ]*/ild ' > /dev/null ; then if ${CC-cc} '-###' -xildoff no_such_file.c 2>&1 | grep '^[^ ]*/ild ' > /dev/null ; then echo "$ac_t""no" 1>&6; @@ -3511,7 +3562,7 @@ fi echo $ac_n "checking for dynodump""... $ac_c" 1>&6 -echo "configure:3515: checking for dynodump" >&5 +echo "configure:3566: checking for dynodump" >&5 case "$opsys" in sol2* ) echo "$ac_t""yes" 1>&6 { test "$extra_verbose" = "yes" && cat << \EOF @@ -3534,7 +3585,7 @@ case "$opsys" in sol2-[6-9]* ) echo $ac_n "checking for \"-z ignore\" linker flag""... $ac_c" 1>&6 -echo "configure:3538: checking for \"-z ignore\" linker flag" >&5 +echo "configure:3589: checking for \"-z ignore\" linker flag" >&5 case "`ld -h 2>&1`" in *-z\ ignore\|record* ) echo "$ac_t""yes" 1>&6 ld_switch_site="-z ignore $ld_switch_site" && if test "$extra_verbose" = "yes"; then echo " Prepending \"-z ignore\" to \$ld_switch_site"; fi ;; @@ -3544,7 +3595,7 @@ echo "checking "for specified window system"" 1>&6 -echo "configure:3548: checking "for specified window system"" >&5 +echo "configure:3599: checking "for specified window system"" >&5 if test "$x_includes $x_libraries" = "NONE NONE"; then if test -n "$OPENWINHOME" \ @@ -3565,7 +3616,7 @@ # Uses ac_ vars as temps to allow command line to override cache and checks. # --without-x overrides everything else, but does not touch the cache. echo $ac_n "checking for X""... $ac_c" 1>&6 -echo "configure:3569: checking for X" >&5 +echo "configure:3620: checking for X" >&5 # Check whether --with-x or --without-x was given. if test "${with_x+set}" = set; then @@ -3625,12 +3676,12 @@ # First, try using that file with no special directory specified. cat > conftest.$ac_ext <<EOF -#line 3629 "configure" +#line 3680 "configure" #include "confdefs.h" #include <$x_direct_test_include> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:3634: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:3685: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -3699,14 +3750,14 @@ ac_save_LIBS="$LIBS" LIBS="-l$x_direct_test_library $LIBS" cat > conftest.$ac_ext <<EOF -#line 3703 "configure" +#line 3754 "configure" #include "confdefs.h" int main() { ${x_direct_test_function}() ; return 0; } EOF -if { (eval echo configure:3710: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:3761: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* LIBS="$ac_save_LIBS" # We can link X programs with no special library path. @@ -3815,17 +3866,17 @@ case "`(uname -sr) 2>/dev/null`" in "SunOS 5"*) echo $ac_n "checking whether -R must be followed by a space""... $ac_c" 1>&6 -echo "configure:3819: checking whether -R must be followed by a space" >&5 +echo "configure:3870: checking whether -R must be followed by a space" >&5 ac_xsave_LIBS="$LIBS"; LIBS="$LIBS -R$x_libraries" cat > conftest.$ac_ext <<EOF -#line 3822 "configure" +#line 3873 "configure" #include "confdefs.h" int main() { ; return 0; } EOF -if { (eval echo configure:3829: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:3880: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_R_nospace=yes else @@ -3841,14 +3892,14 @@ else LIBS="$ac_xsave_LIBS -R $x_libraries" cat > conftest.$ac_ext <<EOF -#line 3845 "configure" +#line 3896 "configure" #include "confdefs.h" int main() { ; return 0; } EOF -if { (eval echo configure:3852: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:3903: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_R_space=yes else @@ -3884,12 +3935,12 @@ else echo $ac_n "checking for dnet_ntoa in -ldnet""... $ac_c" 1>&6 -echo "configure:3888: checking for dnet_ntoa in -ldnet" >&5 +echo "configure:3939: checking for dnet_ntoa in -ldnet" >&5 ac_lib_var=`echo dnet'_'dnet_ntoa | sed 'y%./+-%__p_%'` xe_check_libs=" -ldnet " cat > conftest.$ac_ext <<EOF -#line 3893 "configure" +#line 3944 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -3900,7 +3951,7 @@ dnet_ntoa() ; return 0; } EOF -if { (eval echo configure:3904: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:3955: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -3924,12 +3975,12 @@ if test $ac_cv_lib_dnet_dnet_ntoa = no; then echo $ac_n "checking for dnet_ntoa in -ldnet_stub""... $ac_c" 1>&6 -echo "configure:3928: checking for dnet_ntoa in -ldnet_stub" >&5 +echo "configure:3979: checking for dnet_ntoa in -ldnet_stub" >&5 ac_lib_var=`echo dnet_stub'_'dnet_ntoa | sed 'y%./+-%__p_%'` xe_check_libs=" -ldnet_stub " cat > conftest.$ac_ext <<EOF -#line 3933 "configure" +#line 3984 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -3940,7 +3991,7 @@ dnet_ntoa() ; return 0; } EOF -if { (eval echo configure:3944: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:3995: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -3969,10 +4020,10 @@ # The nsl library prevents programs from opening the X display # on Irix 5.2, according to dickey@clark.net. echo $ac_n "checking for gethostbyname""... $ac_c" 1>&6 -echo "configure:3973: checking for gethostbyname" >&5 - -cat > conftest.$ac_ext <<EOF -#line 3976 "configure" +echo "configure:4024: checking for gethostbyname" >&5 + +cat > conftest.$ac_ext <<EOF +#line 4027 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char gethostbyname(); below. */ @@ -3995,7 +4046,7 @@ ; return 0; } EOF -if { (eval echo configure:3999: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4050: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_gethostbyname=yes" else @@ -4016,12 +4067,12 @@ if test $ac_cv_func_gethostbyname = no; then echo $ac_n "checking for gethostbyname in -lnsl""... $ac_c" 1>&6 -echo "configure:4020: checking for gethostbyname in -lnsl" >&5 +echo "configure:4071: checking for gethostbyname in -lnsl" >&5 ac_lib_var=`echo nsl'_'gethostbyname | sed 'y%./+-%__p_%'` xe_check_libs=" -lnsl " cat > conftest.$ac_ext <<EOF -#line 4025 "configure" +#line 4076 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4032,7 +4083,7 @@ gethostbyname() ; return 0; } EOF -if { (eval echo configure:4036: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4087: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4062,10 +4113,10 @@ # -lsocket must be given before -lnsl if both are needed. # We assume that if connect needs -lnsl, so does gethostbyname. echo $ac_n "checking for connect""... $ac_c" 1>&6 -echo "configure:4066: checking for connect" >&5 - -cat > conftest.$ac_ext <<EOF -#line 4069 "configure" +echo "configure:4117: checking for connect" >&5 + +cat > conftest.$ac_ext <<EOF +#line 4120 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char connect(); below. */ @@ -4088,7 +4139,7 @@ ; return 0; } EOF -if { (eval echo configure:4092: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4143: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_connect=yes" else @@ -4111,12 +4162,12 @@ xe_msg_checking="for connect in -lsocket" test -n "$X_EXTRA_LIBS" && xe_msg_checking="$xe_msg_checking using extra libs $X_EXTRA_LIBS" echo $ac_n "checking "$xe_msg_checking"""... $ac_c" 1>&6 -echo "configure:4115: checking "$xe_msg_checking"" >&5 +echo "configure:4166: checking "$xe_msg_checking"" >&5 ac_lib_var=`echo socket'_'connect | sed 'y%./+-%__p_%'` xe_check_libs=" -lsocket $X_EXTRA_LIBS" cat > conftest.$ac_ext <<EOF -#line 4120 "configure" +#line 4171 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4127,7 +4178,7 @@ connect() ; return 0; } EOF -if { (eval echo configure:4131: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4182: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4151,10 +4202,10 @@ # gomez@mi.uni-erlangen.de says -lposix is necessary on A/UX. echo $ac_n "checking for remove""... $ac_c" 1>&6 -echo "configure:4155: checking for remove" >&5 - -cat > conftest.$ac_ext <<EOF -#line 4158 "configure" +echo "configure:4206: checking for remove" >&5 + +cat > conftest.$ac_ext <<EOF +#line 4209 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char remove(); below. */ @@ -4177,7 +4228,7 @@ ; return 0; } EOF -if { (eval echo configure:4181: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4232: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_remove=yes" else @@ -4198,12 +4249,12 @@ if test $ac_cv_func_remove = no; then echo $ac_n "checking for remove in -lposix""... $ac_c" 1>&6 -echo "configure:4202: checking for remove in -lposix" >&5 +echo "configure:4253: checking for remove in -lposix" >&5 ac_lib_var=`echo posix'_'remove | sed 'y%./+-%__p_%'` xe_check_libs=" -lposix " cat > conftest.$ac_ext <<EOF -#line 4207 "configure" +#line 4258 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4214,7 +4265,7 @@ remove() ; return 0; } EOF -if { (eval echo configure:4218: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4269: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4238,10 +4289,10 @@ # BSDI BSD/OS 2.1 needs -lipc for XOpenDisplay. echo $ac_n "checking for shmat""... $ac_c" 1>&6 -echo "configure:4242: checking for shmat" >&5 - -cat > conftest.$ac_ext <<EOF -#line 4245 "configure" +echo "configure:4293: checking for shmat" >&5 + +cat > conftest.$ac_ext <<EOF +#line 4296 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char shmat(); below. */ @@ -4264,7 +4315,7 @@ ; return 0; } EOF -if { (eval echo configure:4268: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4319: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_shmat=yes" else @@ -4285,12 +4336,12 @@ if test $ac_cv_func_shmat = no; then echo $ac_n "checking for shmat in -lipc""... $ac_c" 1>&6 -echo "configure:4289: checking for shmat in -lipc" >&5 +echo "configure:4340: checking for shmat in -lipc" >&5 ac_lib_var=`echo ipc'_'shmat | sed 'y%./+-%__p_%'` xe_check_libs=" -lipc " cat > conftest.$ac_ext <<EOF -#line 4294 "configure" +#line 4345 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4301,7 +4352,7 @@ shmat() ; return 0; } EOF -if { (eval echo configure:4305: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4356: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4335,12 +4386,12 @@ # --interran@uluru.Stanford.EDU, kb@cs.umb.edu. echo $ac_n "checking for IceConnectionNumber in -lICE""... $ac_c" 1>&6 -echo "configure:4339: checking for IceConnectionNumber in -lICE" >&5 +echo "configure:4390: checking for IceConnectionNumber in -lICE" >&5 ac_lib_var=`echo ICE'_'IceConnectionNumber | sed 'y%./+-%__p_%'` xe_check_libs=" -lICE " cat > conftest.$ac_ext <<EOF -#line 4344 "configure" +#line 4395 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4351,7 +4402,7 @@ IceConnectionNumber() ; return 0; } EOF -if { (eval echo configure:4355: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4406: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4398,7 +4449,7 @@ MAKE_SUBDIR="$MAKE_SUBDIR lwlib" && if test "$extra_verbose" = "yes"; then echo " Appending \"lwlib\" to \$MAKE_SUBDIR"; fi for lib_dir in "/usr/dt/lib" "/usr/lib/Motif1.2" "/usr/lib/Motif1.1"; do - inc_dir="`echo $lib_dir | sed 's/lib/include/'`" + inc_dir=`echo $lib_dir | sed -e 's/lib/include/'` if test -d "$lib_dir" -a -d "$inc_dir"; then case "$x_libraries" in *"$lib_dir"* ) ;; *) x_libraries="$lib_dir $x_libraries" @@ -4429,8 +4480,8 @@ if test "$add_runtime_path" = "yes" -a -n "$dash_r"; then - ld_switch_site="`echo $ld_switch_site | sed \"s/${dash_r}[^ ]*//\"`" - ld_switch_x_site="`echo $ld_switch_x_site | sed \"s/${dash_r}[^ ]*//\"`" + ld_switch_site=`echo '' $ld_switch_site | sed -e 's:^ ::' -e "s/${dash_r}[^ ]*//"` + ld_switch_x_site=`echo '' $ld_switch_x_site | sed -e 's:^ ::' -e "s/${dash_r}[^ ]*//"` runpath="" if test -n "$LD_RUN_PATH"; then @@ -4440,7 +4491,7 @@ xe_runpath_link='${CC-cc} -o conftest -v $CFLAGS '"$xe_ldflags"' conftest.$ac_ext 2>&1 1>/dev/null' for arg in `eval "$xe_runpath_link" | grep ' -L'`; do case "$arg" in P,* | -L* | -R* ) - for dir in `echo "$arg" | sed -e 's/^..//' -e 'y/:/ /'`; do + for dir in `echo '' "$arg" | sed -e 's:^ ::' -e 's/^..//' -e 'y/:/ /'`; do xe_runpath_dir="$dir" if test "$xe_runpath_dir" != "/lib" -a \ @@ -4457,7 +4508,7 @@ else for arg in $ld_switch_site $ld_switch_x_site; do case "$arg" in -L*) -xe_runpath_dir=`echo "$arg" | sed 's/^-L//'` +xe_runpath_dir=`echo '' "$arg" | sed -e 's:^ ::' -e 's/^-L//'` if test "$xe_runpath_dir" != "/lib" -a \ "$xe_runpath_dir" != "/usr/lib" -a \ -n "`ls ${xe_runpath_dir}/*.s[ol] 2>/dev/null`"; then @@ -4490,15 +4541,15 @@ ac_safe=`echo "X11/Intrinsic.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for X11/Intrinsic.h""... $ac_c" 1>&6 -echo "configure:4494: checking for X11/Intrinsic.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 4497 "configure" +echo "configure:4545: checking for X11/Intrinsic.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 4548 "configure" #include "confdefs.h" #include <X11/Intrinsic.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:4502: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:4553: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -4522,12 +4573,12 @@ echo $ac_n "checking for XOpenDisplay in -lX11""... $ac_c" 1>&6 -echo "configure:4526: checking for XOpenDisplay in -lX11" >&5 +echo "configure:4577: checking for XOpenDisplay in -lX11" >&5 ac_lib_var=`echo X11'_'XOpenDisplay | sed 'y%./+-%__p_%'` xe_check_libs=" -lX11 " cat > conftest.$ac_ext <<EOF -#line 4531 "configure" +#line 4582 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4538,7 +4589,7 @@ XOpenDisplay() ; return 0; } EOF -if { (eval echo configure:4542: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4593: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4563,12 +4614,12 @@ xe_msg_checking="for XGetFontProperty in -lX11" test -n "-b i486-linuxaout" && xe_msg_checking="$xe_msg_checking using extra libs -b i486-linuxaout" echo $ac_n "checking "$xe_msg_checking"""... $ac_c" 1>&6 -echo "configure:4567: checking "$xe_msg_checking"" >&5 +echo "configure:4618: checking "$xe_msg_checking"" >&5 ac_lib_var=`echo X11'_'XGetFontProperty | sed 'y%./+-%__p_%'` xe_check_libs=" -lX11 -b i486-linuxaout" cat > conftest.$ac_ext <<EOF -#line 4572 "configure" +#line 4623 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4579,7 +4630,7 @@ XGetFontProperty() ; return 0; } EOF -if { (eval echo configure:4583: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4634: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4606,12 +4657,12 @@ echo $ac_n "checking for XShapeSelectInput in -lXext""... $ac_c" 1>&6 -echo "configure:4610: checking for XShapeSelectInput in -lXext" >&5 +echo "configure:4661: checking for XShapeSelectInput in -lXext" >&5 ac_lib_var=`echo Xext'_'XShapeSelectInput | sed 'y%./+-%__p_%'` xe_check_libs=" -lXext " cat > conftest.$ac_ext <<EOF -#line 4615 "configure" +#line 4666 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4622,7 +4673,7 @@ XShapeSelectInput() ; return 0; } EOF -if { (eval echo configure:4626: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4677: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4646,12 +4697,12 @@ case "$opsys" in sunos4* ) libs_x="-u _XtToolkitInitialize -lXt $libs_x" && if test "$extra_verbose" = "yes"; then echo " Prepending \"-u _XtToolkitInitialize -lXt\" to \$libs_x"; fi ;; * ) echo $ac_n "checking for XtOpenDisplay in -lXt""... $ac_c" 1>&6 -echo "configure:4650: checking for XtOpenDisplay in -lXt" >&5 +echo "configure:4701: checking for XtOpenDisplay in -lXt" >&5 ac_lib_var=`echo Xt'_'XtOpenDisplay | sed 'y%./+-%__p_%'` xe_check_libs=" -lXt " cat > conftest.$ac_ext <<EOF -#line 4655 "configure" +#line 4706 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4662,7 +4713,7 @@ XtOpenDisplay() ; return 0; } EOF -if { (eval echo configure:4666: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4717: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4686,14 +4737,14 @@ esac echo $ac_n "checking the version of X11 being used""... $ac_c" 1>&6 -echo "configure:4690: checking the version of X11 being used" >&5 +echo "configure:4741: checking the version of X11 being used" >&5 cat > conftest.$ac_ext <<EOF -#line 4692 "configure" +#line 4743 "configure" #include "confdefs.h" #include <X11/Intrinsic.h> main(int c, char* v[]) { return c>1 ? XlibSpecificationRelease : 0; } EOF -if { (eval echo configure:4697: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 +if { (eval echo configure:4748: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 then ./conftest foobar; x11_release=$? else @@ -4717,15 +4768,15 @@ do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 -echo "configure:4721: checking for $ac_hdr" >&5 - -cat > conftest.$ac_ext <<EOF -#line 4724 "configure" +echo "configure:4772: checking for $ac_hdr" >&5 + +cat > conftest.$ac_ext <<EOF +#line 4775 "configure" #include "confdefs.h" #include <$ac_hdr> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:4729: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:4780: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -4756,7 +4807,7 @@ echo $ac_n "checking for XFree86""... $ac_c" 1>&6 -echo "configure:4760: checking for XFree86" >&5 +echo "configure:4811: checking for XFree86" >&5 if test -d "/usr/X386/include" -o \ -f "/etc/XF86Config" -o \ -f "/etc/X11/XF86Config" -o \ @@ -4778,12 +4829,12 @@ * ) if test -z "$with_xmu"; then echo $ac_n "checking for XmuConvertStandardSelection in -lXmu""... $ac_c" 1>&6 -echo "configure:4782: checking for XmuConvertStandardSelection in -lXmu" >&5 +echo "configure:4833: checking for XmuConvertStandardSelection in -lXmu" >&5 ac_lib_var=`echo Xmu'_'XmuConvertStandardSelection | sed 'y%./+-%__p_%'` xe_check_libs=" -lXmu " cat > conftest.$ac_ext <<EOF -#line 4787 "configure" +#line 4838 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4794,7 +4845,7 @@ XmuConvertStandardSelection() ; return 0; } EOF -if { (eval echo configure:4798: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4849: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4827,19 +4878,19 @@ echo $ac_n "checking for main in -lXbsd""... $ac_c" 1>&6 -echo "configure:4831: checking for main in -lXbsd" >&5 +echo "configure:4882: checking for main in -lXbsd" >&5 ac_lib_var=`echo Xbsd'_'main | sed 'y%./+-%__p_%'` xe_check_libs=" -lXbsd " cat > conftest.$ac_ext <<EOF -#line 4836 "configure" +#line 4887 "configure" #include "confdefs.h" int main() { main() ; return 0; } EOF -if { (eval echo configure:4843: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4894: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4862,12 +4913,12 @@ echo $ac_n "checking for XawScrollbarSetThumb in -lXaw""... $ac_c" 1>&6 -echo "configure:4866: checking for XawScrollbarSetThumb in -lXaw" >&5 +echo "configure:4917: checking for XawScrollbarSetThumb in -lXaw" >&5 ac_lib_var=`echo Xaw'_'XawScrollbarSetThumb | sed 'y%./+-%__p_%'` xe_check_libs=" -lXaw " cat > conftest.$ac_ext <<EOF -#line 4871 "configure" +#line 4922 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4878,7 +4929,7 @@ XawScrollbarSetThumb() ; return 0; } EOF -if { (eval echo configure:4882: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:4933: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -4900,6 +4951,34 @@ + echo $ac_n "checking for NARROWPROTO""... $ac_c" 1>&6 +echo "configure:4956: checking for NARROWPROTO" >&5 + rm -fr conftestdir + if mkdir conftestdir; then + cd conftestdir + cat > Imakefile <<'EOF' +xetest: + @echo 'proto_defines="${PROTO_DEFINES}"' +EOF + if (xmkmf) >/dev/null 2>/dev/null && test -f Makefile; then + # GNU make sometimes prints "make[1]: Entering...", which would confuse us. + eval `${MAKE-make} xetest 2>/dev/null | grep -v make` + case "$proto_defines" in *NARROWPROTO* ) narrowproto=yes ;; esac + fi + cd .. + rm -fr conftestdir + fi + test -z "$narrowproto" && narrowproto=no + echo "$ac_t""$narrowproto" 1>&6 + test "$narrowproto" = "yes" && { test "$extra_verbose" = "yes" && cat << \EOF + Defining NARROWPROTO +EOF +cat >> confdefs.h <<\EOF +#define NARROWPROTO 1 +EOF +} + + fi test -z "$window_system" && window_system="none" @@ -4935,15 +5014,15 @@ test -z "$with_xauth" && test "$window_system" = "none" && with_xauth=no test -z "$with_xauth" && { ac_safe=`echo "X11/Xauth.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for X11/Xauth.h""... $ac_c" 1>&6 -echo "configure:4939: checking for X11/Xauth.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 4942 "configure" +echo "configure:5018: checking for X11/Xauth.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5021 "configure" #include "confdefs.h" #include <X11/Xauth.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:4947: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:5026: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -4966,12 +5045,12 @@ } test -z "$with_xauth" && { echo $ac_n "checking for XauGetAuthByAddr in -lXau""... $ac_c" 1>&6 -echo "configure:4970: checking for XauGetAuthByAddr in -lXau" >&5 +echo "configure:5049: checking for XauGetAuthByAddr in -lXau" >&5 ac_lib_var=`echo Xau'_'XauGetAuthByAddr | sed 'y%./+-%__p_%'` xe_check_libs=" -lXau " cat > conftest.$ac_ext <<EOF -#line 4975 "configure" +#line 5054 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -4982,7 +5061,7 @@ XauGetAuthByAddr() ; return 0; } EOF -if { (eval echo configure:4986: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5065: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -5013,20 +5092,25 @@ EOF } - libs_x="-lXau $libs_x" && if test "$extra_verbose" = "yes"; then echo " Prepending \"-lXau\" to \$libs_x"; fi -fi + +T="" +for W in $X_EXTRA_LIBS -lXau $libs_x $X_PRE_LIBS; do if test -z "$T"; then T="$W"; else T="$T $W"; fi; done +libs_xauth="$T" + +fi + test -z "$with_offix" && { ac_safe=`echo "OffiX/DragAndDrop.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for OffiX/DragAndDrop.h""... $ac_c" 1>&6 -echo "configure:5022: checking for OffiX/DragAndDrop.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5025 "configure" +echo "configure:5106: checking for OffiX/DragAndDrop.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5109 "configure" #include "confdefs.h" #include <OffiX/DragAndDrop.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:5030: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:5114: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -5049,12 +5133,12 @@ } test -z "$with_offix" && { echo $ac_n "checking for DndInitialize in -lDnd""... $ac_c" 1>&6 -echo "configure:5053: checking for DndInitialize in -lDnd" >&5 +echo "configure:5137: checking for DndInitialize in -lDnd" >&5 ac_lib_var=`echo Dnd'_'DndInitialize | sed 'y%./+-%__p_%'` xe_check_libs=" -lDnd " cat > conftest.$ac_ext <<EOF -#line 5058 "configure" +#line 5142 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -5065,7 +5149,7 @@ DndInitialize() ; return 0; } EOF -if { (eval echo configure:5069: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5153: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -5104,15 +5188,15 @@ for dir in "" "Tt/" "desktop/" ; do ac_safe=`echo "${dir}tt_c.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for ${dir}tt_c.h""... $ac_c" 1>&6 -echo "configure:5108: checking for ${dir}tt_c.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5111 "configure" +echo "configure:5192: checking for ${dir}tt_c.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5195 "configure" #include "confdefs.h" #include <${dir}tt_c.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:5116: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:5200: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -5141,12 +5225,12 @@ xe_msg_checking="for tt_message_create in -ltt" test -n "$extra_libs" && xe_msg_checking="$xe_msg_checking using extra libs $extra_libs" echo $ac_n "checking "$xe_msg_checking"""... $ac_c" 1>&6 -echo "configure:5145: checking "$xe_msg_checking"" >&5 +echo "configure:5229: checking "$xe_msg_checking"" >&5 ac_lib_var=`echo tt'_'tt_message_create | sed 'y%./+-%__p_%'` xe_check_libs=" -ltt $extra_libs" cat > conftest.$ac_ext <<EOF -#line 5150 "configure" +#line 5234 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -5157,7 +5241,7 @@ tt_message_create() ; return 0; } EOF -if { (eval echo configure:5161: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5245: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -5206,15 +5290,15 @@ test -z "$with_cde" && { ac_safe=`echo "Dt/Dt.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for Dt/Dt.h""... $ac_c" 1>&6 -echo "configure:5210: checking for Dt/Dt.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5213 "configure" +echo "configure:5294: checking for Dt/Dt.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5297 "configure" #include "confdefs.h" #include <Dt/Dt.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:5218: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:5302: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -5237,12 +5321,12 @@ } test -z "$with_cde" && { echo $ac_n "checking for DtDndDragStart in -lDtSvc""... $ac_c" 1>&6 -echo "configure:5241: checking for DtDndDragStart in -lDtSvc" >&5 +echo "configure:5325: checking for DtDndDragStart in -lDtSvc" >&5 ac_lib_var=`echo DtSvc'_'DtDndDragStart | sed 'y%./+-%__p_%'` xe_check_libs=" -lDtSvc " cat > conftest.$ac_ext <<EOF -#line 5246 "configure" +#line 5330 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -5253,7 +5337,7 @@ DtDndDragStart() ; return 0; } EOF -if { (eval echo configure:5257: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5341: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -5300,19 +5384,19 @@ echo $ac_n "checking for main in -lenergize""... $ac_c" 1>&6 -echo "configure:5304: checking for main in -lenergize" >&5 +echo "configure:5388: checking for main in -lenergize" >&5 ac_lib_var=`echo energize'_'main | sed 'y%./+-%__p_%'` xe_check_libs=" -lenergize " cat > conftest.$ac_ext <<EOF -#line 5309 "configure" +#line 5393 "configure" #include "confdefs.h" int main() { main() ; return 0; } EOF -if { (eval echo configure:5316: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5400: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -5344,19 +5428,19 @@ if test -z "$energize_version"; then echo $ac_n "checking for main in -lconn""... $ac_c" 1>&6 -echo "configure:5348: checking for main in -lconn" >&5 +echo "configure:5432: checking for main in -lconn" >&5 ac_lib_var=`echo conn'_'main | sed 'y%./+-%__p_%'` xe_check_libs=" -lconn " cat > conftest.$ac_ext <<EOF -#line 5353 "configure" +#line 5437 "configure" #include "confdefs.h" int main() { main() ; return 0; } EOF -if { (eval echo configure:5360: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5444: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -5389,15 +5473,15 @@ fi ac_safe=`echo "editorconn.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for editorconn.h""... $ac_c" 1>&6 -echo "configure:5393: checking for editorconn.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5396 "configure" +echo "configure:5477: checking for editorconn.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5480 "configure" #include "confdefs.h" #include <editorconn.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:5401: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:5485: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -5439,7 +5523,7 @@ echo "checking for graphics libraries" 1>&6 -echo "configure:5443: checking for graphics libraries" >&5 +echo "configure:5527: checking for graphics libraries" >&5 test -z "$with_gif" && with_gif=yes; if test "$with_gif" = "yes"; then { test "$extra_verbose" = "yes" && cat << \EOF @@ -5455,77 +5539,31 @@ fi fi -test -z "$with_xpm" && { ac_safe=`echo "X11/xpm.h" | sed 'y%./+-%__p_%'` -echo $ac_n "checking for X11/xpm.h""... $ac_c" 1>&6 -echo "configure:5461: checking for X11/xpm.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5464 "configure" +echo $ac_n "checking for Xpm""... $ac_c" 1>&6 +echo "configure:5544: checking for Xpm" >&5 +xe_check_libs=-lXpm +test -z "$with_xpm" && { cat > conftest.$ac_ext <<EOF +#line 5547 "configure" #include "confdefs.h" #include <X11/xpm.h> -EOF -ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:5469: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } -ac_err=`grep -v '^ *+' conftest.out` -if test -z "$ac_err"; then - rm -rf conftest* - eval "ac_cv_header_$ac_safe=yes" -else - echo "$ac_err" >&5 - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_header_$ac_safe=no" -fi -rm -f conftest* -if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -with_xpm=no -fi - } -test -z "$with_xpm" && { -echo $ac_n "checking for XpmFree in -lXpm""... $ac_c" 1>&6 -echo "configure:5492: checking for XpmFree in -lXpm" >&5 -ac_lib_var=`echo Xpm'_'XpmFree | sed 'y%./+-%__p_%'` - -xe_check_libs=" -lXpm " -cat > conftest.$ac_ext <<EOF -#line 5497 "configure" -#include "confdefs.h" -/* Override any gcc2 internal prototype to avoid an error. */ -/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -char XpmFree(); - -int main() { -XpmFree() -; return 0; } -EOF -if { (eval echo configure:5508: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then - rm -rf conftest* - eval "ac_cv_lib_$ac_lib_var=yes" -else - echo "configure: failed program was:" >&5 - cat conftest.$ac_ext >&5 - rm -rf conftest* - eval "ac_cv_lib_$ac_lib_var=no" -fi -rm -f conftest* -xe_check_libs="" - -if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes" ; then - echo "$ac_t""yes" 1>&6 - : -else - echo "$ac_t""no" 1>&6 -with_xpm=no -fi - - } -test -z "$with_xpm" && with_xpm=yes +int main(int argc, char *argv[]) { +return (XpmIncludeVersion != XpmLibraryVersion()) || + XpmIncludeVersion < 30406; +} +EOF +if { (eval echo configure:5555: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 +then + with_xpm=yes +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -fr conftest* + with_xpm=no +fi +rm -fr conftest* +} +xe_check_libs= +echo "$ac_t""$with_xpm" 1>&6 if test "$with_xpm" = "yes"; then { test "$extra_verbose" = "yes" && cat << \EOF Defining HAVE_XPM @@ -5540,15 +5578,15 @@ test -z "$with_xface" && { ac_safe=`echo "compface.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for compface.h""... $ac_c" 1>&6 -echo "configure:5544: checking for compface.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5547 "configure" +echo "configure:5582: checking for compface.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5585 "configure" #include "confdefs.h" #include <compface.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:5552: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:5590: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -5571,12 +5609,12 @@ } test -z "$with_xface" && { echo $ac_n "checking for UnGenFace in -lcompface""... $ac_c" 1>&6 -echo "configure:5575: checking for UnGenFace in -lcompface" >&5 +echo "configure:5613: checking for UnGenFace in -lcompface" >&5 ac_lib_var=`echo compface'_'UnGenFace | sed 'y%./+-%__p_%'` xe_check_libs=" -lcompface " cat > conftest.$ac_ext <<EOF -#line 5580 "configure" +#line 5618 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -5587,7 +5625,7 @@ UnGenFace() ; return 0; } EOF -if { (eval echo configure:5591: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5629: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -5623,15 +5661,15 @@ test -z "$with_jpeg" && { ac_safe=`echo "jpeglib.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for jpeglib.h""... $ac_c" 1>&6 -echo "configure:5627: checking for jpeglib.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5630 "configure" +echo "configure:5665: checking for jpeglib.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5668 "configure" #include "confdefs.h" #include <jpeglib.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:5635: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:5673: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -5654,12 +5692,12 @@ } test -z "$with_jpeg" && { echo $ac_n "checking for jpeg_destroy_decompress in -ljpeg""... $ac_c" 1>&6 -echo "configure:5658: checking for jpeg_destroy_decompress in -ljpeg" >&5 +echo "configure:5696: checking for jpeg_destroy_decompress in -ljpeg" >&5 ac_lib_var=`echo jpeg'_'jpeg_destroy_decompress | sed 'y%./+-%__p_%'` xe_check_libs=" -ljpeg " cat > conftest.$ac_ext <<EOF -#line 5663 "configure" +#line 5701 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -5670,7 +5708,7 @@ jpeg_destroy_decompress() ; return 0; } EOF -if { (eval echo configure:5674: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5712: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -5706,15 +5744,15 @@ test -z "$with_png" && { ac_safe=`echo "png.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for png.h""... $ac_c" 1>&6 -echo "configure:5710: checking for png.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5713 "configure" +echo "configure:5748: checking for png.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5751 "configure" #include "confdefs.h" #include <png.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:5718: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:5756: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -5736,10 +5774,10 @@ fi } test -z "$with_png" && { echo $ac_n "checking for pow""... $ac_c" 1>&6 -echo "configure:5740: checking for pow" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5743 "configure" +echo "configure:5778: checking for pow" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5781 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char pow(); below. */ @@ -5762,7 +5800,7 @@ ; return 0; } EOF -if { (eval echo configure:5766: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5804: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_pow=yes" else @@ -5787,12 +5825,12 @@ xe_msg_checking="for png_read_image in -lpng" test -n "$extra_libs" && xe_msg_checking="$xe_msg_checking using extra libs $extra_libs" echo $ac_n "checking "$xe_msg_checking"""... $ac_c" 1>&6 -echo "configure:5791: checking "$xe_msg_checking"" >&5 +echo "configure:5829: checking "$xe_msg_checking"" >&5 ac_lib_var=`echo png'_'png_read_image | sed 'y%./+-%__p_%'` xe_check_libs=" -lpng $extra_libs" cat > conftest.$ac_ext <<EOF -#line 5796 "configure" +#line 5834 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -5803,7 +5841,7 @@ png_read_image() ; return 0; } EOF -if { (eval echo configure:5807: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5845: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -5853,15 +5891,15 @@ ac_safe=`echo "Xm/Xm.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for Xm/Xm.h""... $ac_c" 1>&6 -echo "configure:5857: checking for Xm/Xm.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 5860 "configure" +echo "configure:5895: checking for Xm/Xm.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 5898 "configure" #include "confdefs.h" #include <Xm/Xm.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:5865: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:5903: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -5878,12 +5916,12 @@ echo "$ac_t""yes" 1>&6 echo $ac_n "checking for XmStringFree in -lXm""... $ac_c" 1>&6 -echo "configure:5882: checking for XmStringFree in -lXm" >&5 +echo "configure:5920: checking for XmStringFree in -lXm" >&5 ac_lib_var=`echo Xm'_'XmStringFree | sed 'y%./+-%__p_%'` xe_check_libs=" -lXm " cat > conftest.$ac_ext <<EOF -#line 5887 "configure" +#line 5925 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -5894,7 +5932,7 @@ XmStringFree() ; return 0; } EOF -if { (eval echo configure:5898: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:5936: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -6142,7 +6180,7 @@ if test "$with_mule" = "yes" ; then echo "checking for Mule-related features" 1>&6 -echo "configure:6146: checking for Mule-related features" >&5 +echo "configure:6184: checking for Mule-related features" >&5 { test "$extra_verbose" = "yes" && cat << \EOF Defining MULE EOF @@ -6159,15 +6197,15 @@ do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 -echo "configure:6163: checking for $ac_hdr" >&5 - -cat > conftest.$ac_ext <<EOF -#line 6166 "configure" +echo "configure:6201: checking for $ac_hdr" >&5 + +cat > conftest.$ac_ext <<EOF +#line 6204 "configure" #include "confdefs.h" #include <$ac_hdr> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:6171: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:6209: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -6198,12 +6236,12 @@ echo $ac_n "checking for strerror in -lintl""... $ac_c" 1>&6 -echo "configure:6202: checking for strerror in -lintl" >&5 +echo "configure:6240: checking for strerror in -lintl" >&5 ac_lib_var=`echo intl'_'strerror | sed 'y%./+-%__p_%'` xe_check_libs=" -lintl " cat > conftest.$ac_ext <<EOF -#line 6207 "configure" +#line 6245 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -6214,7 +6252,7 @@ strerror() ; return 0; } EOF -if { (eval echo configure:6218: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6256: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -6247,19 +6285,19 @@ echo "checking for Mule input methods" 1>&6 -echo "configure:6251: checking for Mule input methods" >&5 +echo "configure:6289: checking for Mule input methods" >&5 test -z "$with_xim" && case "$opsys" in sol2* ) ;; *) with_xim=no ;; esac case "$with_xim" in "" | "yes" ) echo "checking for XIM" 1>&6 -echo "configure:6255: checking for XIM" >&5 +echo "configure:6293: checking for XIM" >&5 echo $ac_n "checking for XmImMbLookupString in -lXm""... $ac_c" 1>&6 -echo "configure:6258: checking for XmImMbLookupString in -lXm" >&5 +echo "configure:6296: checking for XmImMbLookupString in -lXm" >&5 ac_lib_var=`echo Xm'_'XmImMbLookupString | sed 'y%./+-%__p_%'` xe_check_libs=" -lXm " cat > conftest.$ac_ext <<EOF -#line 6263 "configure" +#line 6301 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -6270,7 +6308,7 @@ XmImMbLookupString() ; return 0; } EOF -if { (eval echo configure:6274: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6312: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -6332,15 +6370,15 @@ test "$with_wnn6" = "yes" && with_wnn=yes # wnn6 implies wnn support test -z "$with_wnn" && { ac_safe=`echo "wnn/jllib.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for wnn/jllib.h""... $ac_c" 1>&6 -echo "configure:6336: checking for wnn/jllib.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 6339 "configure" +echo "configure:6374: checking for wnn/jllib.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 6377 "configure" #include "confdefs.h" #include <wnn/jllib.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:6344: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:6382: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -6362,15 +6400,13 @@ fi } test -z "$with_wnn" && { -xe_msg_checking="for jl_dic_list_e in -lwnn" -test -n "with_wnn=no" && xe_msg_checking="$xe_msg_checking using extra libs with_wnn=no" -echo $ac_n "checking "$xe_msg_checking"""... $ac_c" 1>&6 -echo "configure:6369: checking "$xe_msg_checking"" >&5 +echo $ac_n "checking for jl_dic_list_e in -lwnn""... $ac_c" 1>&6 +echo "configure:6405: checking for jl_dic_list_e in -lwnn" >&5 ac_lib_var=`echo wnn'_'jl_dic_list_e | sed 'y%./+-%__p_%'` -xe_check_libs=" -lwnn with_wnn=no" -cat > conftest.$ac_ext <<EOF -#line 6374 "configure" +xe_check_libs=" -lwnn " +cat > conftest.$ac_ext <<EOF +#line 6410 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -6381,7 +6417,7 @@ jl_dic_list_e() ; return 0; } EOF -if { (eval echo configure:6385: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6421: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -6395,21 +6431,10 @@ if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes" ; then echo "$ac_t""yes" 1>&6 - ac_tr_lib=HAVE_LIB`echo wnn | sed -e 's/[^a-zA-Z0-9_]/_/g' \ - -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'` - { test "$extra_verbose" = "yes" && cat << EOF - Defining $ac_tr_lib -EOF -cat >> confdefs.h <<EOF -#define $ac_tr_lib 1 -EOF -} - - LIBS="-lwnn $LIBS" && if test "$extra_verbose" = "yes"; then echo " Prepending \"-lwnn\" to \$LIBS"; fi - -else - echo "$ac_t""no" 1>&6 -: + : +else + echo "$ac_t""no" 1>&6 +with_wnn=no fi } @@ -6429,12 +6454,12 @@ fi echo $ac_n "checking for jl_fi_dic_list in -lwnn""... $ac_c" 1>&6 -echo "configure:6433: checking for jl_fi_dic_list in -lwnn" >&5 +echo "configure:6458: checking for jl_fi_dic_list in -lwnn" >&5 ac_lib_var=`echo wnn'_'jl_fi_dic_list | sed 'y%./+-%__p_%'` xe_check_libs=" -lwnn " cat > conftest.$ac_ext <<EOF -#line 6438 "configure" +#line 6463 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -6445,7 +6470,7 @@ jl_fi_dic_list() ; return 0; } EOF -if { (eval echo configure:6449: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6474: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -6477,15 +6502,15 @@ test -z "$with_canna" && { ac_safe=`echo "canna/RK.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for canna/RK.h""... $ac_c" 1>&6 -echo "configure:6481: checking for canna/RK.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 6484 "configure" +echo "configure:6506: checking for canna/RK.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 6509 "configure" #include "confdefs.h" #include <canna/RK.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:6489: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:6514: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -6508,12 +6533,12 @@ } test -z "$with_canna" && { echo $ac_n "checking for RkBgnBun in -lRKC""... $ac_c" 1>&6 -echo "configure:6512: checking for RkBgnBun in -lRKC" >&5 +echo "configure:6537: checking for RkBgnBun in -lRKC" >&5 ac_lib_var=`echo RKC'_'RkBgnBun | sed 'y%./+-%__p_%'` xe_check_libs=" -lRKC " cat > conftest.$ac_ext <<EOF -#line 6517 "configure" +#line 6542 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -6524,7 +6549,7 @@ RkBgnBun() ; return 0; } EOF -if { (eval echo configure:6528: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6553: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -6547,12 +6572,12 @@ } test -z "$with_canna" && { echo $ac_n "checking for jrKanjiControl in -lcanna""... $ac_c" 1>&6 -echo "configure:6551: checking for jrKanjiControl in -lcanna" >&5 +echo "configure:6576: checking for jrKanjiControl in -lcanna" >&5 ac_lib_var=`echo canna'_'jrKanjiControl | sed 'y%./+-%__p_%'` xe_check_libs=" -lcanna " cat > conftest.$ac_ext <<EOF -#line 6556 "configure" +#line 6581 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -6563,7 +6588,7 @@ jrKanjiControl() ; return 0; } EOF -if { (eval echo configure:6567: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6592: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -6612,8 +6637,8 @@ libs_x="-lXm $libs_x" && if test "$extra_verbose" = "yes"; then echo " Prepending \"-lXm\" to \$libs_x"; fi if test "$add_runtime_path" = "yes" -a -n "$dash_r"; then - ld_switch_site="`echo $ld_switch_site | sed \"s/${dash_r}[^ ]*//\"`" - ld_switch_x_site="`echo $ld_switch_x_site | sed \"s/${dash_r}[^ ]*//\"`" + ld_switch_site=`echo '' $ld_switch_site | sed -e 's:^ ::' -e "s/${dash_r}[^ ]*//"` + ld_switch_x_site=`echo '' $ld_switch_x_site | sed -e 's:^ ::' -e "s/${dash_r}[^ ]*//"` runpath="" if test -n "$LD_RUN_PATH"; then @@ -6623,7 +6648,7 @@ xe_runpath_link='${CC-cc} -o conftest -v $CFLAGS '"$xe_ldflags"' conftest.$ac_ext 2>&1 1>/dev/null' for arg in `eval "$xe_runpath_link" | grep ' -L'`; do case "$arg" in P,* | -L* | -R* ) - for dir in `echo "$arg" | sed -e 's/^..//' -e 'y/:/ /'`; do + for dir in `echo '' "$arg" | sed -e 's:^ ::' -e 's/^..//' -e 'y/:/ /'`; do xe_runpath_dir="$dir" if test "$xe_runpath_dir" != "/lib" -a \ @@ -6640,7 +6665,7 @@ else for arg in $ld_switch_site $ld_switch_x_site; do case "$arg" in -L*) -xe_runpath_dir=`echo "$arg" | sed 's/^-L//'` +xe_runpath_dir=`echo '' "$arg" | sed -e 's:^ ::' -e 's/^-L//'` if test "$xe_runpath_dir" != "/lib" -a \ "$xe_runpath_dir" != "/usr/lib" -a \ -n "`ls ${xe_runpath_dir}/*.s[ol] 2>/dev/null`"; then @@ -6664,10 +6689,10 @@ for ac_func in acosh asinh atanh cbrt closedir dup2 eaccess fmod fpathconf frexp ftime gethostname getpagesize gettimeofday getcwd getwd logb lrand48 matherr mkdir mktime perror poll random rename res_init rint rmdir select setitimer setpgid setlocale setsid sigblock sighold sigprocmask strcasecmp strerror tzset utimes waitpid do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:6668: checking for $ac_func" >&5 - -cat > conftest.$ac_ext <<EOF -#line 6671 "configure" +echo "configure:6693: checking for $ac_func" >&5 + +cat > conftest.$ac_ext <<EOF +#line 6696 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func(); below. */ @@ -6690,7 +6715,7 @@ ; return 0; } EOF -if { (eval echo configure:6694: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6719: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else @@ -6727,10 +6752,10 @@ for ac_func in realpath do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:6731: checking for $ac_func" >&5 - -cat > conftest.$ac_ext <<EOF -#line 6734 "configure" +echo "configure:6756: checking for $ac_func" >&5 + +cat > conftest.$ac_ext <<EOF +#line 6759 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func(); below. */ @@ -6753,7 +6778,7 @@ ; return 0; } EOF -if { (eval echo configure:6757: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6782: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else @@ -6786,16 +6811,16 @@ esac echo $ac_n "checking whether netdb declares h_errno""... $ac_c" 1>&6 -echo "configure:6790: checking whether netdb declares h_errno" >&5 -cat > conftest.$ac_ext <<EOF -#line 6792 "configure" +echo "configure:6815: checking whether netdb declares h_errno" >&5 +cat > conftest.$ac_ext <<EOF +#line 6817 "configure" #include "confdefs.h" #include <netdb.h> int main() { return h_errno; ; return 0; } EOF -if { (eval echo configure:6799: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6824: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* echo "$ac_t""yes" 1>&6 { test "$extra_verbose" = "yes" && cat << \EOF @@ -6815,16 +6840,16 @@ rm -f conftest* echo $ac_n "checking for sigsetjmp""... $ac_c" 1>&6 -echo "configure:6819: checking for sigsetjmp" >&5 -cat > conftest.$ac_ext <<EOF -#line 6821 "configure" +echo "configure:6844: checking for sigsetjmp" >&5 +cat > conftest.$ac_ext <<EOF +#line 6846 "configure" #include "confdefs.h" #include <setjmp.h> int main() { sigjmp_buf bar; sigsetjmp (bar, 0); ; return 0; } EOF -if { (eval echo configure:6828: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:6853: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* echo "$ac_t""yes" 1>&6 { test "$extra_verbose" = "yes" && cat << \EOF @@ -6844,11 +6869,11 @@ rm -f conftest* echo $ac_n "checking whether localtime caches TZ""... $ac_c" 1>&6 -echo "configure:6848: checking whether localtime caches TZ" >&5 +echo "configure:6873: checking whether localtime caches TZ" >&5 if test "$ac_cv_func_tzset" = "yes"; then cat > conftest.$ac_ext <<EOF -#line 6852 "configure" +#line 6877 "configure" #include "confdefs.h" #include <time.h> #if STDC_HEADERS @@ -6883,7 +6908,7 @@ exit (0); } EOF -if { (eval echo configure:6887: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 +if { (eval echo configure:6912: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 then emacs_cv_localtime_cache=no else @@ -6912,9 +6937,9 @@ if test "$HAVE_TIMEVAL" = "yes"; then echo $ac_n "checking whether gettimeofday cannot accept two arguments""... $ac_c" 1>&6 -echo "configure:6916: checking whether gettimeofday cannot accept two arguments" >&5 -cat > conftest.$ac_ext <<EOF -#line 6918 "configure" +echo "configure:6941: checking whether gettimeofday cannot accept two arguments" >&5 +cat > conftest.$ac_ext <<EOF +#line 6943 "configure" #include "confdefs.h" #ifdef TIME_WITH_SYS_TIME @@ -6936,7 +6961,7 @@ ; return 0; } EOF -if { (eval echo configure:6940: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:6965: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* echo "$ac_t""no" 1>&6 else @@ -6958,19 +6983,19 @@ echo $ac_n "checking for inline""... $ac_c" 1>&6 -echo "configure:6962: checking for inline" >&5 +echo "configure:6987: checking for inline" >&5 ac_cv_c_inline=no for ac_kw in inline __inline__ __inline; do cat > conftest.$ac_ext <<EOF -#line 6967 "configure" +#line 6992 "configure" #include "confdefs.h" int main() { } $ac_kw foo() { ; return 0; } EOF -if { (eval echo configure:6974: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:6999: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_c_inline=$ac_kw; break else @@ -7020,17 +7045,17 @@ # The Ultrix 4.2 mips builtin alloca declared by alloca.h only works # for constant arguments. Useless! echo $ac_n "checking for working alloca.h""... $ac_c" 1>&6 -echo "configure:7024: checking for working alloca.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7027 "configure" +echo "configure:7049: checking for working alloca.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7052 "configure" #include "confdefs.h" #include <alloca.h> int main() { char *p = alloca(2 * sizeof(int)); ; return 0; } EOF -if { (eval echo configure:7034: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:7059: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_cv_header_alloca_h=yes else @@ -7054,10 +7079,10 @@ fi echo $ac_n "checking for alloca""... $ac_c" 1>&6 -echo "configure:7058: checking for alloca" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7061 "configure" +echo "configure:7083: checking for alloca" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7086 "configure" #include "confdefs.h" #ifdef __GNUC__ @@ -7080,7 +7105,7 @@ char *p = (char *) alloca(1); ; return 0; } EOF -if { (eval echo configure:7084: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:7109: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* ac_cv_func_alloca_works=yes else @@ -7119,10 +7144,10 @@ echo $ac_n "checking whether alloca needs Cray hooks""... $ac_c" 1>&6 -echo "configure:7123: checking whether alloca needs Cray hooks" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7126 "configure" +echo "configure:7148: checking whether alloca needs Cray hooks" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7151 "configure" #include "confdefs.h" #if defined(CRAY) && ! defined(CRAY2) webecray @@ -7146,10 +7171,10 @@ if test $ac_cv_os_cray = yes; then for ac_func in _getb67 GETB67 getb67; do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 -echo "configure:7150: checking for $ac_func" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7153 "configure" +echo "configure:7175: checking for $ac_func" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7178 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $ac_func(); below. */ @@ -7172,7 +7197,7 @@ ; return 0; } EOF -if { (eval echo configure:7176: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:7201: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else @@ -7202,10 +7227,10 @@ fi echo $ac_n "checking stack direction for C alloca""... $ac_c" 1>&6 -echo "configure:7206: checking stack direction for C alloca" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7209 "configure" +echo "configure:7231: checking stack direction for C alloca" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7234 "configure" #include "confdefs.h" find_stack_direction () { @@ -7224,7 +7249,7 @@ exit (find_stack_direction() < 0); } EOF -if { (eval echo configure:7228: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 +if { (eval echo configure:7253: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 then ac_cv_c_stack_direction=1 else @@ -7251,10 +7276,10 @@ fi echo $ac_n "checking for pid_t""... $ac_c" 1>&6 -echo "configure:7255: checking for pid_t" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7258 "configure" +echo "configure:7280: checking for pid_t" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7283 "configure" #include "confdefs.h" #include <sys/types.h> #if STDC_HEADERS @@ -7286,15 +7311,15 @@ ac_safe=`echo "vfork.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for vfork.h""... $ac_c" 1>&6 -echo "configure:7290: checking for vfork.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7293 "configure" +echo "configure:7315: checking for vfork.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7318 "configure" #include "confdefs.h" #include <vfork.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:7298: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:7323: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -7322,10 +7347,10 @@ fi echo $ac_n "checking for working vfork""... $ac_c" 1>&6 -echo "configure:7326: checking for working vfork" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7329 "configure" +echo "configure:7351: checking for working vfork" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7354 "configure" #include "confdefs.h" /* Thanks to Paul Eggert for this test. */ #include <stdio.h> @@ -7420,7 +7445,7 @@ } } EOF -if { (eval echo configure:7424: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 +if { (eval echo configure:7449: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 then ac_cv_func_vfork_works=yes else @@ -7445,10 +7470,10 @@ echo $ac_n "checking for working strcoll""... $ac_c" 1>&6 -echo "configure:7449: checking for working strcoll" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7452 "configure" +echo "configure:7474: checking for working strcoll" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7477 "configure" #include "confdefs.h" #include <string.h> main () @@ -7458,7 +7483,7 @@ strcoll ("123", "456") >= 0); } EOF -if { (eval echo configure:7462: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 +if { (eval echo configure:7487: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 then ac_cv_func_strcoll_works=yes else @@ -7483,10 +7508,10 @@ echo $ac_n "checking for working mmap""... $ac_c" 1>&6 -echo "configure:7487: checking for working mmap" >&5 +echo "configure:7512: checking for working mmap" >&5 case "$opsys" in ultrix* ) have_mmap=no ;; *) cat > conftest.$ac_ext <<EOF -#line 7490 "configure" +#line 7515 "configure" #include "confdefs.h" #include <stdio.h> #include <unistd.h> @@ -7519,7 +7544,7 @@ return 1; } EOF -if { (eval echo configure:7523: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 +if { (eval echo configure:7548: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>&5 then have_mmap=yes else @@ -7552,10 +7577,10 @@ echo $ac_n "checking for socket""... $ac_c" 1>&6 -echo "configure:7556: checking for socket" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7559 "configure" +echo "configure:7581: checking for socket" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7584 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char socket(); below. */ @@ -7578,7 +7603,7 @@ ; return 0; } EOF -if { (eval echo configure:7582: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:7607: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_socket=yes" else @@ -7593,15 +7618,15 @@ echo "$ac_t""yes" 1>&6 ac_safe=`echo "netinet/in.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for netinet/in.h""... $ac_c" 1>&6 -echo "configure:7597: checking for netinet/in.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7600 "configure" +echo "configure:7622: checking for netinet/in.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7625 "configure" #include "confdefs.h" #include <netinet/in.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:7605: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:7630: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -7618,15 +7643,15 @@ echo "$ac_t""yes" 1>&6 ac_safe=`echo "arpa/inet.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for arpa/inet.h""... $ac_c" 1>&6 -echo "configure:7622: checking for arpa/inet.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7625 "configure" +echo "configure:7647: checking for arpa/inet.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7650 "configure" #include "confdefs.h" #include <arpa/inet.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:7630: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:7655: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -7651,9 +7676,9 @@ } echo $ac_n "checking "for sun_len member in struct sockaddr_un"""... $ac_c" 1>&6 -echo "configure:7655: checking "for sun_len member in struct sockaddr_un"" >&5 +echo "configure:7680: checking "for sun_len member in struct sockaddr_un"" >&5 cat > conftest.$ac_ext <<EOF -#line 7657 "configure" +#line 7682 "configure" #include "confdefs.h" #include <sys/types.h> @@ -7664,7 +7689,7 @@ static struct sockaddr_un x; x.sun_len = 1; ; return 0; } EOF -if { (eval echo configure:7668: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:7693: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* echo "$ac_t""yes" 1>&6; { test "$extra_verbose" = "yes" && cat << \EOF Defining HAVE_SOCKADDR_SUN_LEN @@ -7695,10 +7720,10 @@ echo $ac_n "checking for msgget""... $ac_c" 1>&6 -echo "configure:7699: checking for msgget" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7702 "configure" +echo "configure:7724: checking for msgget" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7727 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char msgget(); below. */ @@ -7721,7 +7746,7 @@ ; return 0; } EOF -if { (eval echo configure:7725: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:7750: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_msgget=yes" else @@ -7736,15 +7761,15 @@ echo "$ac_t""yes" 1>&6 ac_safe=`echo "sys/ipc.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for sys/ipc.h""... $ac_c" 1>&6 -echo "configure:7740: checking for sys/ipc.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7743 "configure" +echo "configure:7765: checking for sys/ipc.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7768 "configure" #include "confdefs.h" #include <sys/ipc.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:7748: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:7773: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -7761,15 +7786,15 @@ echo "$ac_t""yes" 1>&6 ac_safe=`echo "sys/msg.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for sys/msg.h""... $ac_c" 1>&6 -echo "configure:7765: checking for sys/msg.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7768 "configure" +echo "configure:7790: checking for sys/msg.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7793 "configure" #include "confdefs.h" #include <sys/msg.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:7773: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:7798: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -7807,15 +7832,15 @@ ac_safe=`echo "dirent.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for dirent.h""... $ac_c" 1>&6 -echo "configure:7811: checking for dirent.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7814 "configure" +echo "configure:7836: checking for dirent.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7839 "configure" #include "confdefs.h" #include <dirent.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:7819: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:7844: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -7842,15 +7867,15 @@ echo "$ac_t""no" 1>&6 ac_safe=`echo "sys/dir.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for sys/dir.h""... $ac_c" 1>&6 -echo "configure:7846: checking for sys/dir.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7849 "configure" +echo "configure:7871: checking for sys/dir.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7874 "configure" #include "confdefs.h" #include <sys/dir.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:7854: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:7879: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -7883,15 +7908,15 @@ ac_safe=`echo "nlist.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for nlist.h""... $ac_c" 1>&6 -echo "configure:7887: checking for nlist.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7890 "configure" +echo "configure:7912: checking for nlist.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 7915 "configure" #include "confdefs.h" #include <nlist.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:7895: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:7920: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -7936,7 +7961,7 @@ echo "$progname: can't find current emacs version in \"$file\"." >&2 exit 1 fi -beta=`sed -ne 's/^.*XEmacs Lucid (beta\([0-9][0-9]*\)).*$/\1/p' "$file"` +beta=`sed -ne 's/^.*beta.*(beta\([0-9][0-9]*\)).*$/\1/p' "$file"` test -n "$beta" && version="${version}-b${beta}" { test "$extra_verbose" = "yes" && cat << EOF Defining EMACS_VERSION = "$version" @@ -7946,7 +7971,7 @@ EOF } -main_1_id="`echo main_1_xemacs_${version}_${canonical} | sed 'y/.-/__/'`" +main_1_id=`echo main_1_xemacs_${version}_${canonical} | sed 'y/.-/__/'` { test "$extra_verbose" = "yes" && cat << EOF Defining main_1 = $main_1_id EOF @@ -7959,7 +7984,7 @@ echo "checking "for sound support"" 1>&6 -echo "configure:7963: checking "for sound support"" >&5 +echo "configure:7988: checking "for sound support"" >&5 case "$with_sound" in native | both ) with_native_sound=yes;; nas | no ) with_native_sound=no;; @@ -7970,15 +7995,15 @@ if test -n "$native_sound_lib"; then ac_safe=`echo "multimedia/audio_device.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for multimedia/audio_device.h""... $ac_c" 1>&6 -echo "configure:7974: checking for multimedia/audio_device.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 7977 "configure" +echo "configure:7999: checking for multimedia/audio_device.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8002 "configure" #include "confdefs.h" #include <multimedia/audio_device.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:7982: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:8007: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -8026,12 +8051,12 @@ if test -z "$native_sound_lib"; then echo $ac_n "checking for ALopenport in -laudio""... $ac_c" 1>&6 -echo "configure:8030: checking for ALopenport in -laudio" >&5 +echo "configure:8055: checking for ALopenport in -laudio" >&5 ac_lib_var=`echo audio'_'ALopenport | sed 'y%./+-%__p_%'` xe_check_libs=" -laudio " cat > conftest.$ac_ext <<EOF -#line 8035 "configure" +#line 8060 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8042,7 +8067,7 @@ ALopenport() ; return 0; } EOF -if { (eval echo configure:8046: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8071: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -8073,12 +8098,12 @@ if test -z "$native_sound_lib"; then echo $ac_n "checking for AOpenAudio in -lAlib""... $ac_c" 1>&6 -echo "configure:8077: checking for AOpenAudio in -lAlib" >&5 +echo "configure:8102: checking for AOpenAudio in -lAlib" >&5 ac_lib_var=`echo Alib'_'AOpenAudio | sed 'y%./+-%__p_%'` xe_check_libs=" -lAlib " cat > conftest.$ac_ext <<EOF -#line 8082 "configure" +#line 8107 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8089,7 +8114,7 @@ AOpenAudio() ; return 0; } EOF -if { (eval echo configure:8093: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8118: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -8127,15 +8152,15 @@ for dir in "machine" "sys" "linux"; do ac_safe=`echo "${dir}/soundcard.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for ${dir}/soundcard.h""... $ac_c" 1>&6 -echo "configure:8131: checking for ${dir}/soundcard.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8134 "configure" +echo "configure:8156: checking for ${dir}/soundcard.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8159 "configure" #include "confdefs.h" #include <${dir}/soundcard.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:8139: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:8164: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -8205,7 +8230,7 @@ fi LIBS="-laudio $LIBS" && if test "$extra_verbose" = "yes"; then echo " Prepending \"-laudio\" to \$LIBS"; fi cat > conftest.$ac_ext <<EOF -#line 8209 "configure" +#line 8234 "configure" #include "confdefs.h" #include <audio/Xtutil.h> EOF @@ -8232,7 +8257,7 @@ if test "$with_tty" = "yes" ; then echo "checking for TTY-related features" 1>&6 -echo "configure:8236: checking for TTY-related features" >&5 +echo "configure:8261: checking for TTY-related features" >&5 { test "$extra_verbose" = "yes" && cat << \EOF Defining HAVE_TTY EOF @@ -8247,15 +8272,15 @@ ac_safe=`echo "termios.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for termios.h""... $ac_c" 1>&6 -echo "configure:8251: checking for termios.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8254 "configure" +echo "configure:8276: checking for termios.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8279 "configure" #include "confdefs.h" #include <termios.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:8259: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:8284: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -8282,15 +8307,15 @@ echo "$ac_t""no" 1>&6 ac_safe=`echo "termio.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for termio.h""... $ac_c" 1>&6 -echo "configure:8286: checking for termio.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8289 "configure" +echo "configure:8311: checking for termio.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8314 "configure" #include "confdefs.h" #include <termio.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:8294: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:8319: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -8323,12 +8348,12 @@ if test -z "$with_ncurses"; then echo $ac_n "checking for tgetent in -lncurses""... $ac_c" 1>&6 -echo "configure:8327: checking for tgetent in -lncurses" >&5 +echo "configure:8352: checking for tgetent in -lncurses" >&5 ac_lib_var=`echo ncurses'_'tgetent | sed 'y%./+-%__p_%'` xe_check_libs=" -lncurses " cat > conftest.$ac_ext <<EOF -#line 8332 "configure" +#line 8357 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8339,7 +8364,7 @@ tgetent() ; return 0; } EOF -if { (eval echo configure:8343: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8368: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -8372,15 +8397,15 @@ ac_safe=`echo "ncurses/curses.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for ncurses/curses.h""... $ac_c" 1>&6 -echo "configure:8376: checking for ncurses/curses.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8379 "configure" +echo "configure:8401: checking for ncurses/curses.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8404 "configure" #include "confdefs.h" #include <ncurses/curses.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:8384: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:8409: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -8402,15 +8427,15 @@ ac_safe=`echo "ncurses/term.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for ncurses/term.h""... $ac_c" 1>&6 -echo "configure:8406: checking for ncurses/term.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8409 "configure" +echo "configure:8431: checking for ncurses/term.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8434 "configure" #include "confdefs.h" #include <ncurses/term.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:8414: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:8439: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -8440,15 +8465,15 @@ c_switch_site="$c_switch_site -I/usr/include/ncurses" ac_safe=`echo "ncurses/curses.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for ncurses/curses.h""... $ac_c" 1>&6 -echo "configure:8444: checking for ncurses/curses.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8447 "configure" +echo "configure:8469: checking for ncurses/curses.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8472 "configure" #include "confdefs.h" #include <ncurses/curses.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:8452: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:8477: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -8483,12 +8508,12 @@ for lib in curses termlib termcap; do echo $ac_n "checking for tgetent in -l$lib""... $ac_c" 1>&6 -echo "configure:8487: checking for tgetent in -l$lib" >&5 +echo "configure:8512: checking for tgetent in -l$lib" >&5 ac_lib_var=`echo $lib'_'tgetent | sed 'y%./+-%__p_%'` xe_check_libs=" -l$lib " cat > conftest.$ac_ext <<EOF -#line 8492 "configure" +#line 8517 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8499,7 +8524,7 @@ tgetent() ; return 0; } EOF -if { (eval echo configure:8503: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8528: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -8530,12 +8555,12 @@ else echo $ac_n "checking for tgetent in -lcurses""... $ac_c" 1>&6 -echo "configure:8534: checking for tgetent in -lcurses" >&5 +echo "configure:8559: checking for tgetent in -lcurses" >&5 ac_lib_var=`echo curses'_'tgetent | sed 'y%./+-%__p_%'` xe_check_libs=" -lcurses " cat > conftest.$ac_ext <<EOF -#line 8539 "configure" +#line 8564 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8546,7 +8571,7 @@ tgetent() ; return 0; } EOF -if { (eval echo configure:8550: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8575: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -8564,12 +8589,12 @@ else echo "$ac_t""no" 1>&6 echo $ac_n "checking for tgetent in -ltermcap""... $ac_c" 1>&6 -echo "configure:8568: checking for tgetent in -ltermcap" >&5 +echo "configure:8593: checking for tgetent in -ltermcap" >&5 ac_lib_var=`echo termcap'_'tgetent | sed 'y%./+-%__p_%'` xe_check_libs=" -ltermcap " cat > conftest.$ac_ext <<EOF -#line 8573 "configure" +#line 8598 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8580,7 +8605,7 @@ tgetent() ; return 0; } EOF -if { (eval echo configure:8584: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8609: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -8628,15 +8653,15 @@ test -z "$with_gpm" && { ac_safe=`echo "gpm.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for gpm.h""... $ac_c" 1>&6 -echo "configure:8632: checking for gpm.h" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8635 "configure" +echo "configure:8657: checking for gpm.h" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8660 "configure" #include "confdefs.h" #include <gpm.h> EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:8640: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:8665: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out` if test -z "$ac_err"; then rm -rf conftest* @@ -8659,12 +8684,12 @@ } test -z "$with_gpm" && { echo $ac_n "checking for Gpm_Open in -lgpm""... $ac_c" 1>&6 -echo "configure:8663: checking for Gpm_Open in -lgpm" >&5 +echo "configure:8688: checking for Gpm_Open in -lgpm" >&5 ac_lib_var=`echo gpm'_'Gpm_Open | sed 'y%./+-%__p_%'` xe_check_libs=" -lgpm " cat > conftest.$ac_ext <<EOF -#line 8668 "configure" +#line 8693 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8675,7 +8700,7 @@ Gpm_Open() ; return 0; } EOF -if { (eval echo configure:8679: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8704: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -8720,17 +8745,17 @@ fi echo "checking for database support" 1>&6 -echo "configure:8724: checking for database support" >&5 +echo "configure:8749: checking for database support" >&5 if test "$with_database_gnudbm" != "no"; then echo $ac_n "checking for dbm_open in -lgdbm""... $ac_c" 1>&6 -echo "configure:8729: checking for dbm_open in -lgdbm" >&5 +echo "configure:8754: checking for dbm_open in -lgdbm" >&5 ac_lib_var=`echo gdbm'_'dbm_open | sed 'y%./+-%__p_%'` xe_check_libs=" -lgdbm " cat > conftest.$ac_ext <<EOF -#line 8734 "configure" +#line 8759 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8741,7 +8766,7 @@ dbm_open() ; return 0; } EOF -if { (eval echo configure:8745: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8770: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -8763,10 +8788,10 @@ if test "$with_database_gnudbm" != "yes"; then echo $ac_n "checking for dbm_open""... $ac_c" 1>&6 -echo "configure:8767: checking for dbm_open" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8770 "configure" +echo "configure:8792: checking for dbm_open" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8795 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char dbm_open(); below. */ @@ -8789,7 +8814,7 @@ ; return 0; } EOF -if { (eval echo configure:8793: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8818: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_dbm_open=yes" else @@ -8825,10 +8850,10 @@ if test "$with_database_dbm" != "no"; then echo $ac_n "checking for dbm_open""... $ac_c" 1>&6 -echo "configure:8829: checking for dbm_open" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8832 "configure" +echo "configure:8854: checking for dbm_open" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8857 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char dbm_open(); below. */ @@ -8851,7 +8876,7 @@ ; return 0; } EOF -if { (eval echo configure:8855: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8880: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_dbm_open=yes" else @@ -8872,12 +8897,12 @@ if test "$need_libdbm" != "no"; then echo $ac_n "checking for dbm_open in -ldbm""... $ac_c" 1>&6 -echo "configure:8876: checking for dbm_open in -ldbm" >&5 +echo "configure:8901: checking for dbm_open in -ldbm" >&5 ac_lib_var=`echo dbm'_'dbm_open | sed 'y%./+-%__p_%'` xe_check_libs=" -ldbm " cat > conftest.$ac_ext <<EOF -#line 8881 "configure" +#line 8906 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8888,7 +8913,7 @@ dbm_open() ; return 0; } EOF -if { (eval echo configure:8892: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8917: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -8925,10 +8950,10 @@ if test "$with_database_berkdb" != "no"; then echo $ac_n "checking for dbopen""... $ac_c" 1>&6 -echo "configure:8929: checking for dbopen" >&5 - -cat > conftest.$ac_ext <<EOF -#line 8932 "configure" +echo "configure:8954: checking for dbopen" >&5 + +cat > conftest.$ac_ext <<EOF +#line 8957 "configure" #include "confdefs.h" /* System header to define __stub macros and hopefully few prototypes, which can conflict with char dbopen(); below. */ @@ -8951,7 +8976,7 @@ ; return 0; } EOF -if { (eval echo configure:8955: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:8980: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_func_dbopen=yes" else @@ -8972,12 +8997,12 @@ if test "$need_libdb" != "no"; then echo $ac_n "checking for dbopen in -ldb""... $ac_c" 1>&6 -echo "configure:8976: checking for dbopen in -ldb" >&5 +echo "configure:9001: checking for dbopen in -ldb" >&5 ac_lib_var=`echo db'_'dbopen | sed 'y%./+-%__p_%'` xe_check_libs=" -ldb " cat > conftest.$ac_ext <<EOF -#line 8981 "configure" +#line 9006 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -8988,7 +9013,7 @@ dbopen() ; return 0; } EOF -if { (eval echo configure:8992: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:9017: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -9012,7 +9037,7 @@ if test "$with_database_berkdb" = "yes"; then for path in "db/db.h" "db.h"; do cat > conftest.$ac_ext <<EOF -#line 9016 "configure" +#line 9041 "configure" #include "confdefs.h" #ifdef HAVE_INTTYPES_H #define __BIT_TYPES_DEFINED__ @@ -9030,7 +9055,7 @@ ; return 0; } EOF -if { (eval echo configure:9034: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:9059: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* db_h_path="$path"; break else @@ -9082,12 +9107,12 @@ if test "$with_socks" = "yes"; then echo $ac_n "checking for SOCKSinit in -lsocks""... $ac_c" 1>&6 -echo "configure:9086: checking for SOCKSinit in -lsocks" >&5 +echo "configure:9111: checking for SOCKSinit in -lsocks" >&5 ac_lib_var=`echo socks'_'SOCKSinit | sed 'y%./+-%__p_%'` xe_check_libs=" -lsocks " cat > conftest.$ac_ext <<EOF -#line 9091 "configure" +#line 9116 "configure" #include "confdefs.h" /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 @@ -9098,7 +9123,7 @@ SOCKSinit() ; return 0; } EOF -if { (eval echo configure:9102: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then +if { (eval echo configure:9127: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else @@ -9711,9 +9736,9 @@ # Remove any trailing slashes in these variables. test -n "$prefix" && - prefix=`echo "$prefix" | sed 's,\([^/]\)/*$,\1,'` + prefix=`echo '' "$prefix" | sed -e 's:^ ::' -e 's,\([^/]\)/*$,\1,'` test -n "$exec_prefix" && - exec_prefix=`echo "$exec_prefix" | sed 's,\([^/]\)/*$,\1,'` + exec_prefix=`echo '' "$exec_prefix" | sed -e 's:^ ::' -e 's,\([^/]\)/*$,\1,'` trap '' 1 2 15 @@ -9813,6 +9838,7 @@ s%@X_PRE_LIBS@%$X_PRE_LIBS%g s%@X_LIBS@%$X_LIBS%g s%@X_EXTRA_LIBS@%$X_EXTRA_LIBS%g +s%@libs_xauth@%$libs_xauth%g s%@lwlib_objs@%$lwlib_objs%g s%@ALLOCA@%$ALLOCA%g s%@SRC_SUBDIR_DEPS@%$SRC_SUBDIR_DEPS%g
--- a/configure.in Mon Aug 13 09:40:48 2007 +0200 +++ b/configure.in Mon Aug 13 09:41:43 2007 +0200 @@ -603,7 +603,7 @@ -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; *) - quoted_i="`echo $i | sed $quoted_sed_magic`" + quoted_i="`echo '' $i | sed -e 's:^ ::' -e $quoted_sed_magic`" quoted_arguments="$quoted_arguments '$quoted_i'" ;; esac done @@ -749,7 +749,7 @@ with_database_berkdb=no with_database_dbm=no with_database_gnudbm=no - for x in `echo "$val" | sed 's/,/ /'` ; do + for x in `echo "$val" | sed -e 's/,/ /'` ; do case "$x" in no ) ;; b | be | ber | berk | berkd | berkdb ) with_database_berkdb=yes ;; @@ -814,7 +814,7 @@ dnl Example: --error-checking=all,noextents,nobufpos dnl Example: --error-checking=none,malloc,gc - for x in `echo "$val" | sed 's/,/ /'` ; do + for x in `echo "$val" | sed -e 's/,/ /'` ; do case "$x" in dnl all and none are only permitted as the first in the list. n | no | non | none ) new_default=no ;; @@ -942,7 +942,7 @@ dnl Allow use of either ":" or spaces for lists of directories define(COLON_TO_SPACE, - [case "[$1]" in *:* [)] [$1]="`echo $[$1] | sed 's/:/ /g'`";; esac])dnl + [case "[$1]" in *:* [)] [$1]="`echo '' $[$1] | sed -e 's:^ ::' -e 's/:/ /g'`";; esac])dnl COLON_TO_SPACE(site_includes) COLON_TO_SPACE(site_libraries) COLON_TO_SPACE(site_runtime_libraries) @@ -1830,8 +1830,8 @@ define([XE_COMPUTE_RUNPATH],[ if test "$add_runtime_path" = "yes" -a -n "$dash_r"; then dnl Remove runtime paths from current ld switches - ld_switch_site="`echo $ld_switch_site | sed \"s/${dash_r}[[^ ]]*//\"`" - ld_switch_x_site="`echo $ld_switch_x_site | sed \"s/${dash_r}[[^ ]]*//\"`" + ld_switch_site=`echo '' $ld_switch_site | sed -e 's:^ ::' -e "s/${dash_r}[[^ ]]*//"` + ld_switch_x_site=`echo '' $ld_switch_x_site | sed -e 's:^ ::' -e "s/${dash_r}[[^ ]]*//"` dnl PRINT_VAR(ld_switch_site, ld_switch_x_site) dnl Fix up Runtime path @@ -1846,7 +1846,7 @@ xe_runpath_link='${CC-cc} -o conftest -v $CFLAGS '"$xe_ldflags"' conftest.$ac_ext 2>&1 1>/dev/null' for arg in `eval "$xe_runpath_link" | grep ' -L'`; do case "$arg" in P,* | -L* | -R* ) - for dir in `echo "$arg" | sed -e 's/^..//' -e 'y/:/ /'`; do + for dir in `echo '' "$arg" | sed -e 's:^ ::' -e 's/^..//' -e 'y/:/ /'`; do XE_ADD_RUNPATH_DIR("$dir") done ;; esac @@ -1855,7 +1855,7 @@ else dnl Add all directories with .so files to runpath for arg in $ld_switch_site $ld_switch_x_site; do - case "$arg" in -L*) XE_ADD_RUNPATH_DIR(`echo "$arg" | sed 's/^-L//'`);; esac + case "$arg" in -L*) XE_ADD_RUNPATH_DIR(`echo '' "$arg" | sed -e 's:^ ::' -e 's/^-L//'`);; esac done dnl Sometimes /opt/SUNWdt/lib is the only installed Motif available case "$canonical" in *-solaris2.[[1-4]]* ) @@ -1961,15 +1961,22 @@ AC_CHECK_SIZEOF(short) AC_CHECK_SIZEOF(int) AC_CHECK_SIZEOF(long) +if test "$ac_cv_sizeof_long" = 0; then + echo "" + echo "*** PANIC *** Configure tests are not working - compiler is broken." + echo "*** PANIC *** Please examine config.log for compilation errors." + exit 1 +fi dnl check for long file names AC_SYS_LONG_FILE_NAMES -dnl other checks for UNIX variants - -dnl -lm might be required for some X libraries to link with later +dnl -lm is required by LISP_FLOAT_TYPE, among other things AC_CHECK_LIB(m, sqrt) +dnl -lPW might be needed on some systems +AC_CHECK_LIB(PW, main) + dnl Floating operation support is now unconditional AC_DEFINE(LISP_FLOAT_TYPE) @@ -2070,7 +2077,7 @@ dnl Try to find Motif/CDE/Tooltalk dirs dnl These take precedence over other X libs/includes, so PRE-pend for lib_dir in "/usr/dt/lib" "/usr/lib/Motif1.2" "/usr/lib/Motif1.1"; do - inc_dir="`echo $lib_dir | sed 's/lib/include/'`" + inc_dir=`echo $lib_dir | sed -e 's/lib/include/'` if test -d "$lib_dir" -a -d "$inc_dir"; then case "$x_libraries" in *"$lib_dir"* ) ;; *) x_libraries="$lib_dir $x_libraries" @@ -2177,6 +2184,27 @@ dnl Autodetect -lXaw AC_CHECK_LIB(Xaw, XawScrollbarSetThumb, have_xaw=yes, have_xaw=no) + dnl Autodetect -DNARROWPROTO + AC_MSG_CHECKING(for NARROWPROTO) + rm -fr conftestdir + if mkdir conftestdir; then + cd conftestdir + cat > Imakefile <<'EOF' +xetest: + @echo 'proto_defines="${PROTO_DEFINES}"' +EOF + if (xmkmf) >/dev/null 2>/dev/null && test -f Makefile; then + # GNU make sometimes prints "make[1]: Entering...", which would confuse us. + eval `${MAKE-make} xetest 2>/dev/null | grep -v make` + case "$proto_defines" in *NARROWPROTO* ) narrowproto=yes ;; esac + fi + cd .. + rm -fr conftestdir + fi + test -z "$narrowproto" && narrowproto=no + AC_MSG_RESULT($narrowproto) + test "$narrowproto" = "yes" && AC_DEFINE(NARROWPROTO) + fi dnl $with_x11 = yes test -z "$window_system" && window_system="none" @@ -2212,14 +2240,16 @@ esac dnl Autodetect Xauth +dnl -lXau is only used by gnuclient, so use a special variable for Xauth X libs test -z "$with_xauth" && test "$window_system" = "none" && with_xauth=no test -z "$with_xauth" && { AC_CHECK_HEADER(X11/Xauth.h, ,with_xauth=no) } test -z "$with_xauth" && { AC_CHECK_LIB(Xau, XauGetAuthByAddr,[:],with_xauth=no) } test -z "$with_xauth" && with_xauth=yes if test "$with_xauth" = "yes"; then AC_DEFINE(HAVE_XAUTH) - XE_PREPEND(-lXau, libs_x) + XE_SPACE(libs_xauth, $X_EXTRA_LIBS -lXau $libs_x $X_PRE_LIBS) fi +AC_SUBST(libs_xauth) dnl Autodetect OffiX test -z "$with_offix" && { AC_CHECK_HEADER(OffiX/DragAndDrop.h, , with_offix=no) } @@ -2299,9 +2329,16 @@ fi dnl Autodetect Xpm -test -z "$with_xpm" && { AC_CHECK_HEADER(X11/xpm.h, ,with_xpm=no) } -test -z "$with_xpm" && { AC_CHECK_LIB(Xpm, XpmFree,[:],with_xpm=no) } -test -z "$with_xpm" && with_xpm=yes +AC_MSG_CHECKING(for Xpm) +xe_check_libs=-lXpm +test -z "$with_xpm" && { AC_TRY_RUN([#include <X11/xpm.h> +int main(int argc, char *argv[]) { +return (XpmIncludeVersion != XpmLibraryVersion()) || + XpmIncludeVersion < 30406; +}], with_xpm=yes, with_xpm=no) +} +xe_check_libs= +AC_MSG_RESULT($with_xpm) if test "$with_xpm" = "yes"; then AC_DEFINE(HAVE_XPM) XE_PREPEND(-lXpm, libs_x) @@ -2462,8 +2499,8 @@ dnl Autodetect WNN test "$with_wnn6" = "yes" && with_wnn=yes # wnn6 implies wnn support - test -z "$with_wnn" && { AC_CHECK_HEADER(wnn/jllib.h, ,with_wnn=no) } - test -z "$with_wnn" && { AC_CHECK_LIB(wnn,jl_dic_list_e, ,[:],with_wnn=no) } + test -z "$with_wnn" && { AC_CHECK_HEADER(wnn/jllib.h, ,with_wnn=no) } + test -z "$with_wnn" && { AC_CHECK_LIB(wnn,jl_dic_list_e,[:],with_wnn=no) } test -z "$with_wnn" && with_wnn=yes if test "$with_wnn" = "yes"; then AC_DEFINE(HAVE_WNN) @@ -2704,10 +2741,10 @@ echo "$progname: can't find current emacs version in \"$file\"." >&2 exit 1 fi -beta=`sed -ne 's/^.*XEmacs Lucid (beta\([[0-9]][[0-9]]*\)).*$/\1/p' "$file"` +beta=`sed -ne 's/^.*beta.*(beta\([[0-9]][[0-9]]*\)).*$/\1/p' "$file"` test -n "$beta" && version="${version}-b${beta}" AC_DEFINE_UNQUOTED(EMACS_VERSION, "$version") -main_1_id="`echo main_1_xemacs_${version}_${canonical} | sed 'y/.-/__/'`" +main_1_id=`echo main_1_xemacs_${version}_${canonical} | sed 'y/.-/__/'` AC_DEFINE_UNQUOTED(main_1, $main_1_id) @@ -3295,9 +3332,9 @@ AC_SUBST(internal_makefile_list) # Remove any trailing slashes in these variables. test -n "$prefix" && - prefix=`echo "$prefix" | sed 's,\([[^/]]\)/*$,\1,'` + prefix=`echo '' "$prefix" | sed -e 's:^ ::' -e 's,\([[^/]]\)/*$,\1,'` test -n "$exec_prefix" && - exec_prefix=`echo "$exec_prefix" | sed 's,\([[^/]]\)/*$,\1,'` + exec_prefix=`echo '' "$exec_prefix" | sed -e 's:^ ::' -e 's,\([[^/]]\)/*$,\1,'` dnl Build Makefile.in's from Makefile.in.in's dnl except ./Makefile from $srcdir/Makefile.in
--- a/etc/NEWS Mon Aug 13 09:40:48 2007 +0200 +++ b/etc/NEWS Mon Aug 13 09:41:43 2007 +0200 @@ -124,11 +124,11 @@ creating a new frame with `C-x 5 2' also raises and selects that frame. The behavior of window system frames is unchanged. -** C-x n d now runs the new command narrow-to-defun, +** `C-x n d' now runs the new command `narrow-to-defun', which narrows the accessible parts of the buffer to just the current defun. -** The new command C-x 4 0 (kill-buffer-and-window) kills the +** The new command `C-x 4 0' (kill-buffer-and-window) kills the current buffer and deletes the selected window. It asks for confirmation first. @@ -192,8 +192,15 @@ ** Autoconf 2 is supported, making XEmacs more conforming to conventions used by other free software. -** tty-erase-char is a new variable that reports which character -was set up as the terminal's erase character at the tim Emacs was started. +** `tty-erase-char' is a new variable that reports which character +was set up as the terminal's erase character at the tim Emacs was +started. + +** The TIME argument to `format-time-string' is now optional and +defaults to the current time. + +** The PATTERN argument to `split-string' is now optional and defaults +to whitespace ("[ \f\t\n\r\v]+").
--- a/etc/TUTORIAL Mon Aug 13 09:40:48 2007 +0200 +++ b/etc/TUTORIAL Mon Aug 13 09:41:43 2007 +0200 @@ -1,40 +1,35 @@ -Copyright (c) 1985, 1996 Free Software Foundation, Inc. See end for conditions. - +Copyright (c) 1985 Free Software Foundation, Inc; See end for conditions. You are looking at the Emacs tutorial. -Emacs commands generally involve the CONTROL key (sometimes labelled -CTRL or CTL) or the META key. On some keyboards, the META key is -labelled ALT or EDIT or something else (for example, on Sun keyboards, -the diamond key to the left of the spacebar is META). If you have no -META key, you can use ESC instead. Rather than write out META or -CONTROL each time we want you to prefix a character, we'll use the -following abbreviations: +Emacs commands generally involve the CONTROL key (sometimes labeled +CTRL or CTL) or the META key (sometimes labeled EDIT or ALT). Rather than +write that in full each time, we'll use the following abbreviations: C-<chr> means hold the CONTROL key while typing the character <chr> Thus, C-f would be: hold the CONTROL key and type f. - M-<chr> means hold the META key down while typing <chr>. If there - is no META key, type <ESC>, release it, then type the - character <chr>. + M-<chr> means hold the META or EDIT or ALT key down while typing <chr>. + If there is no META, EDIT or ALT key, instead press and release the + ESC key and then type <chr>. We write <ESC> for the ESC key. Important note: to end the Emacs session, type C-x C-c. (Two characters.) The characters ">>" at the left margin indicate directions for you to try using a command. For instance: <<Blank lines inserted here by startup of help-with-tutorial>> >> Now type C-v (View next screen) to move to the next screen. - (go ahead, do it by depressing the control key and v together). - From now on, you'll be expected to do this whenever you finish + (go ahead, do it by holding down the control key while typing v). + From now on, you should do this again whenever you finish reading the screen. -Note that there is an overlap when going from screen to screen; this -provides some continuity when moving through the file. +Note that there is an overlap of two lines when you move from screen +to screen; this provides some continuity so you can continue reading +the text. -The first thing that you need to know is how to move around from -place to place in the file. You already know how to move forward a -screen, with C-v. To move backwards a screen, type M-v (depress the -META key and type v, or type <ESC>v if you don't have a META or EDIT -key). +The first thing that you need to know is how to move around from place +to place in the text. You already know how to move forward one screen, +with C-v. To move backwards one screen, type M-v (hold down the META key +and type v, or type <ESC>v if you do not have a META, EDIT, or ALT key). ->> Try typing M-v and then C-v to move back and forth a few times. +>> Try typing M-v and then C-v, a few times. * SUMMARY @@ -44,28 +39,28 @@ C-v Move forward one screenful M-v Move backward one screenful - C-l Clear screen and redisplay everything - putting the text near the cursor at the center. - (That's control-L, not control-1. control-1 - has a completely different meaning, as - described below.) + C-l Clear screen and redisplay all the text, + moving the text around the cursor + to the center of the screen. + (That's control-L, not control-1.) ->> Find the cursor and remember what text is near it. - Then type a C-l. - Find the cursor again and see what text is near it now. +>> Find the cursor, and note what text is near it. + Then type C-l. + Find the cursor again and notice that the same text + is near the cursor now. * BASIC CURSOR CONTROL ---------------------- -Getting from screenful to screenful is useful, but how do you -reposition yourself within a given screen to a specific place? -There are several ways you can do this. One way (not the best, but -the most basic) is to use the commands previous, backward, forward -and next. As you can imagine these commands (which are given to -Emacs as C-p, C-b, C-f, and C-n respectively) move the cursor from -where it currently is to a new place in the given direction. Here, -in a more graphical form are the commands: +Moving from screenful to screenful is useful, but how do you +move to a specific place within the text on the screen? + +There are several ways you can do this. The most basic way is to use +the commands C-p, C-b, C-f, and C-n. Each of these commands moves the +cursor one row or column in a particular direction on the screen. +Here is a table showing these four commands and shows the directions +they move: Previous line, C-p : @@ -73,69 +68,81 @@ Backward, C-b .... Current cursor position .... Forward, C-f : : - Next line, C-n + Next line, C-n >> Move the cursor to the line in the middle of that diagram - and type C-l to see the whole diagram centered in the screen. + using C-n or C-p. Then type C-l to see the whole diagram + centered in the screen. -You'll probably find it easy to think of these by letter. P for -previous, N for next, B for backward and F for forward. These are -the basic cursor positioning commands and you'll be using them ALL -the time so it would be of great benefit if you learn them now. +You'll probably find it easy to think of these by letter: P for +previous, N for next, B for backward and F for forward. These are the +basic cursor positioning commands, and you'll be using them ALL the +time, so it would be of great benefit if you learn them now. >> Do a few C-n's to bring the cursor down to this line. >> Move into the line with C-f's and then up with C-p's. See what C-p does when the cursor is in the middle of the line. -Lines are separated by Newline characters. For most applications -there should normally be a Newline character at the end of the text, -as well, but it is up to you to make sure of this. A file can -validly exist without a Newline at the end. +Each of text line ends with a Newline character, which serves to +separate it from the following line. The last line in your file ought +to have a Newline at the end (but Emacs does not require it to have +one). + +>> Try to C-b at the beginning of a line. It should move to + the end of the previous line. This is because it moves back + across the Newline character. + +C-f can move across a Newline just like C-b. ->> Try to C-b at the beginning of a line. Do a few more C-b's. - Then do C-f's back to the end of the line and beyond. +>> Do a few more C-b's, so you get a feel for where the cursor is. + Then do C-f's to return to the end of the line. + Then do one more C-f to move to the following line. -When you go off the top or bottom of the screen, the text beyond -the edge is shifted onto the screen so that your instructions can -be carried out while keeping the cursor on the screen. +When you move past the top or bottom of the screen, the text beyond +the edge shifts onto the screen. This is called "scrolling". It +enables Emacs to move the cursor to the specified place in the text +without moving it off the screen. ->> Try to move the cursor off the bottom of the screen with C-n and +>> Try to move the cursor off the bottom of the screen with C-n, and see what happens. If moving by characters is too slow, you can move by words. M-f (Meta-f) moves forward a word and M-b moves back a word. ->> Type a few M-f's and M-b's. Intersperse them with C-f's and C-b's. +>> Type a few M-f's and M-b's. + +When you are in the middle of a word, M-f moves to the end of the word. +When you are in whitespace between words, M-f moves to the end of the +following word. M-b works likewise in the opposite direction. + +>> Type M-f and M-b a few times, interspersed with C-f's and C-b's + so that you can observe the action of M-f and M-b from various + places inside and between words. Notice the parallel between C-f and C-b on the one hand, and M-f and M-b on the other hand. Very often Meta characters are used for -operations related to English text whereas Control characters operate -on the basic textual units that are independent of what you are -editing (characters, lines, etc). There is a similar parallel between -lines and sentences: C-a and C-e move to the beginning or end of a -line, and M-a and M-e move to the beginning or end of a sentence. +operations related to the units defined by language (words, sentences, +paragraphs), while Control characters operate on basic units that are +independent of what you are editing (characters, lines, etc). + +This parallel applies between lines and sentences: C-a and C-e move to +the beginning or end of a line, and M-a and M-e move to the beginning +or end of a sentence. >> Try a couple of C-a's, and then a couple of C-e's. Try a couple of M-a's, and then a couple of M-e's. -See how repeated C-a's do nothing, but repeated M-a's keep moving -farther. Do you think that this is right? - -Two other simple cursor motion commands are M-< (Meta Less-than), -which moves to the beginning of the file, and M-> (Meta Greater-than), -which moves to the end of the file. You probably don't need to try -them, since finding this spot again will be boring. On most terminals -the "<" is above the comma and you must use the shift key to type it. -On these terminals you must use the shift key to type M-< also; -without the shift key, you would be typing M-comma. +See how repeated C-a's do nothing, but repeated M-a's keep moving one +more sentence. Although these are not quite analogous, each one seems +natural. The location of the cursor in the text is also called "point". To paraphrase, the cursor shows on the screen where point is located in the text. -Here is a summary of simple moving operations including the word and -sentence moving commands: +Here is a summary of simple cursor-moving operations, including the +word and sentence moving commands: C-f Move forward a character C-b Move backward a character @@ -152,126 +159,120 @@ M-a Move back to beginning of sentence M-e Move forward to end of sentence - M-< Go to beginning of file - M-> Go to end of file +>> Try all of these commands now a few times for practice. + These are the most often used commands. + +Two other important cursor motion commands are M-< (Meta Less-than), +which moves to the beginning of the whole text, and M-> (Meta +Greater-than), which moves to the end of the whole text. ->> Try all of these commands now a few times for practice. - Since the last two will take you away from this screen, - you can come back here with M-v's and C-v's. These are - the most often used commands. +On most terminals, the "<" is above the comma, so you must use the +shift key to type it. On these terminals you must use the shift key +to type M-< also; without the shift key, you would be typing M-comma. + +>> Try M-< now, to move to the beginning of the tutorial. + Then use C-v repeatedly to move back here. + +>> Try M-> now, to move to the end of the tutorial. + Then use M-v repeatedly to move back here. -Like all other commands in Emacs, these commands can be given -arguments which cause them to be executed repeatedly. The way you -give a command a repeat count is by typing C-u and then the digits -before you type the command. If you have a META or EDIT key, you can -omit the C-u if you hold down the META or EDIT key while you type the -digits. This is easier, but we recommend the C-u method because it -works on any terminal. +You can also move the cursor with the arrow keys, if your terminal has +arrow keys. We recommend learning C-b, C-f, C-n and C-p for three +reasons. First, they work on all kinds of terminals. Second, once +you gain practice at using Emacs, you will find that typing these CTRL +characters is faster than typing the arrow keys (because you do not +have to move your hands away from touch-typing position). Third, once +you form the habit of using these CTRL character commands, you can +easily learn to use other advanced cursor motion commands as well. + +Most Emacs commands accept a numeric argument; for most commands, this +serves as a repeat-count. The way you give a command a repeat count +is by typing C-u and then the digits before you type the command. If +you have a META (or EDIT or ALT) key, there is another alternative way +to enter a numeric argument: type the digits while holding down the +META key. We recommend learning the C-u method because it works on +any terminal. For instance, C-u 8 C-f moves forward eight characters. ->> Try giving a suitable argument to C-n or C-p to come as close - as you can to this line in one jump. +>> Try using C-n or C-p with a numeric argument, to move the cursor + to a line near this one with just one command. -The only apparent exception to this is the screen moving commands, -C-v and M-v. When given an argument, they scroll the screen up or -down by that many lines, rather than screenfuls. This proves to be -much more useful. +Most commands use the numeric argument as a repeat count. Certain +exceptional commands use it differently. C-v and M-v are among the +exceptions. When given an argument, they scroll the screen up or down +by that many lines, rather than by a screenfuls. For example, C-u 4 +C-v scrolls the screen by 4 lines. >> Try typing C-u 8 C-v now. -Did it scroll the screen up by 8 lines? If you would like to -scroll it down you can give an argument to M-v. +This should have scrolled the screen up by 8 lines. If you would like +to scroll it down again, you can give an argument to M-v. -If you are using X Windows, there is probably a rectangular area -called a scroll bar at the right hand side of the Emacs window. You -can scroll the text by manipulating the scroll bar with the mouse. +If you are using X Windows, there should be a tall rectangular area +called a scroll bar at the left hand side of the Emacs window. You +can scroll the text by clicking the mouse in the scroll bar. >> Try pressing the middle button at the top of the highlighted area -within the scroll bar, then moving the mouse while holding that button -down. - ->> Move the mouse to a point in the scroll bar about three lines from -the top, and click the left button a couple of times. - - -* CURSOR CONTROL WITH AN X TERMINAL ------------------------------------ + within the scroll bar. This should scroll the text to a position + determined by how high or low you click. -If you have an X terminal, you will probably find it easier to use -the keys on the keypad to control the cursor. The left, right, up, -and down arrow keys move in the expected direction; they function -exactly like C-b, C-f, C-p, and C-n, but are easier to type and to -remember. You can also use C-left and C-right to move by words, and -C-up and C-down to move by blocks (e.g. paragraphs, if you're -editing text). If you have keys labelled HOME (or BEGIN) and END, -they will take you to the beginning and end of a line, respectively, -and C-home and C-end will move to the beginning and end of the file. -If your keyboard has PgUp and PgDn keys, you can use them to move up -and down a screenful at a time, like M-v and C-v. - -All of these commands can take numeric arguments, as described above. -You can use a shortcut to enter these arguments: just hold down the -CONTROL or META key and type the number. For example, to move 12 -words to the right, type C-1 C-2 C-right. Note that it is very easy -to type this because you do not have to release the CONTROL key -between keystrokes. +>> Try moving the mouse up and down, while holding the middle button + pressed down. You'll see that the text scrolls up and down as + you move the mouse. * WHEN EMACS IS HUNG -------------------- -If Emacs gets into an infinite (or simply very long) computation which -you don't want to finish, you can stop it safely by typing C-g. +If Emacs stops responding to your commands, you can stop it safely by +typing C-g. You can use C-g to stop a command which is taking too +long to execute. + You can also use C-g to discard a numeric argument or the beginning of -a command that you don't want to finish. +a command that you do not want to finish. >> Type C-u 100 to make a numeric arg of 100, then type C-g. - Now type C-f. How many characters does it move? - If you have typed an <ESC> by mistake, you can get rid of it - with a C-g. + Now type C-f. It should move just one character, + because you canceled the argument with C-g. + +If you have typed an <ESC> by mistake, you can get rid of it +with a C-g. + + +* DISABLED COMMANDS +------------------- -If you type <ESC> : then you get a new window appearing on the screen, -telling you that M-: is a "disabled command" and asking whether you -really want to execute it. The command M-: is marked as disabled -because we expect it would confuse beginners and you probably don't -want to use it until you know more about Emacs. If you really want to -try the M-: command, you could type a Space in answer to the question, -and M-: would go ahead. Normally, if you do not want to execute M-:, -you would type "n" to answer the question. +Some Emacs commands are "disabled" so that beginning users cannot use +them by accident. + +If you type one of the disabled commands, Emacs displays a message +saying what the command was, and asking you whether you want to go +ahead and execute the command. ->> Type <ESC> :, then type n. +If you really want to try the command, type Space in answer to the +question. Normally, if you do not want to execute the disabled +command, answer the question with "n". + +>> Type <ESC> : (which is a disabled command), + then type n to answer the question. * WINDOWS --------- -Emacs can have several windows, each displaying its own text. -Note that "window" as used by Emacs does not refer to separate -overlapping windows in the window system, but to separate panes -within a single X window. (Emacs can also have multiple X -windows, or "frames" in Emacs terminology. This is described -later.) - -At this stage it is better not to go into the techniques of -using multiple windows. But you do need to know how to get -rid of extra windows that may appear to display help or -output from certain commands. It is simple: +Emacs can have several windows, each displaying its own text. We will +explain later on how to use multiple windows. Right now we want to +explain how to get rid of extra windows and go back to basic +one-window editing. It is simple: C-x 1 One window (i.e., kill all other windows). -That is Control-x followed by the digit 1. -C-x 1 makes the window which the cursor is in become -the full screen, by getting rid of any other windows. +That is Control-x followed by the digit 1. C-x 1 expands the window +which contains the cursor, to occupy the full screen. It deletes all +other windows. >> Move the cursor to this line and type C-u 0 C-l. - -(Remember that C-l redraws the screen. If you give a -numeric argument to this command, it means "redraw the -screen and put the current line that many lines from the -top of the screen." So C-u 0 C-l means "redraw the -screen, putting the current line at the top.") - >> Type Control-h k Control-f. See how this window shrinks, while a new one appears to display documentation on the Control-f command. @@ -282,8 +283,8 @@ * INSERTING AND DELETING ------------------------ -If you want to insert text, just type it. Characters which you can -see, such as A, 7, *, etc. are taken by Emacs as text and inserted +If you want to insert text, just type the text. Characters which you +can see, such as A, 7, *, etc. are taken by Emacs as text and inserted immediately. Type <Return> (the carriage-return key) to insert a Newline character. @@ -294,29 +295,36 @@ More generally, <Delete> deletes the character immediately before the current cursor position. ->> Do this now, type a few characters and then delete them +>> Do this now--type a few characters, then delete them by typing <Delete> a few times. Don't worry about this file - being changed; you won't affect the master tutorial. This is just - a copy of it. + being changed; you will not alter the master tutorial. This is + your personal copy of it. ->> Now start typing text until you reach the right margin, and keep - typing. When a line of text gets too big for one line on the - screen, the line of text is "continued" onto a second screen line. - The backslash at the right margin indicates a line which has - been continued. +When a line of text gets too big for one line on the screen, the line +of text is "continued" onto a second screen line. A backslash ("\") +at the right margin indicates a line which has been continued. + +>> Insert text until you reach the right margin, and keep on inserting. + You'll see a continuation line appear. + >> Use <Delete>s to delete the text until the line fits on one screen line again. The continuation line goes away. +You can delete a Newline character just like any other character. +Deleting the Newline character between two lines merges them into +one line. If the resulting combined line is too long to fit in the +screen width, it will be displayed with a continuation line. + >> Move the cursor to the beginning of a line and type <Delete>. This - deletes the newline before the line and merges the line onto - the previous line. The resulting line may be too long to fit, in - which case it has a continuation line. + merges that line with the previous line. + >> Type <Return> to reinsert the Newline you deleted. Remember that most Emacs commands can be given a repeat count; -this includes characters which insert themselves. +this includes text characters. Repeating a text character inserts +it several times. ->> Try that now -- type C-u 8 * and see what happens. +>> Try that now -- type C-u 8 * to insert ********. You've now learned the most basic way of typing something in Emacs and correcting errors. You can delete by words or lines @@ -332,41 +340,43 @@ M-k kill to the end of the current sentence Notice that <Delete> and C-d vs M-<Delete> and M-d extend the parallel -started by C-f and M-f (well, <Delete> isn't really a control +started by C-f and M-f (well, <Delete> is not really a control character, but let's not worry about that). C-k and M-k are like C-e and M-e, sort of, in that lines are opposite sentences. -Now suppose you kill something, and then you decide that you want to -get it back? Well, whenever you kill something bigger than a -character, Emacs saves it for you. To yank it back, use C-y. You -can kill text in one place, move elsewhere, and then do C-y; this is -a good way to move text around. Note that the difference -between "Killing" and "Deleting" something is that "Killed" things -can be yanked back, and "Deleted" things cannot. Generally, the -commands that can destroy a lot of text save it, while the ones that -attack only one character, or nothing but blank lines and spaces, do -not save. +When you delete more than one character at a time, Emacs saves the +deleted text so that you can bring it back. Bringing back killed text +is called "yanking". You can yank the killed text either at the same +place where it was killed, or at some other place in the text. You +can yank the text several times in order to make multiple copies of +it. The command to yank is C-y. -For instance, type C-n a couple times to position the cursor -at some line on this screen. +Note that the difference between "Killing" and "Deleting" something is +that "Killed" things can be yanked back, and "Deleted" things cannot. +Generally, the commands that can remove a lot of text save the text, +while the commands that delete just one character, or just blank lines +and spaces, do not save the deleted text. ->> Do this now, move the cursor and kill that line with C-k. +>> Move the cursor to the beginning of a line which is not empty. + Then type C-k to kill the text on that line. +>> Type C-k a second time. You'll see that it kills the Newline + which follows that line. Note that a single C-k kills the contents of the line, and a second -C-k kills the line itself, and make all the other lines move up. If -you give C-k a repeat count, it kills that many lines AND their -contents. +C-k kills the line itself, and make all the other lines move up. C-k +treats a numeric argument specially: it kills that many lines AND +their contents. This is not mere repetition. C-u 2 C-k kills two +lines and their newlines; typing C-k twice would not do that. -The text that has just disappeared is saved so that you can -retrieve it. To retrieve the last killed text and put it where -the cursor currently is, type C-y. +To retrieve the last killed text and put it where the cursor currently +is, type C-y. >> Try it; type C-y to yank the text back. -Think of C-y as if you were yanking something back that someone -took away from you. Notice that if you do several C-k's in a row -the text that is killed is all saved together so that one C-y will -yank all of the lines. +Think of C-y as if you were yanking something back that someone took +away from you. Notice that if you do several C-k's in a row, all of +the killed text is saved together, so that one C-y will yank all of +the lines. >> Do this now, type C-k several times. @@ -379,11 +389,14 @@ you kill something else? C-y would yank the more recent kill. But the previous text is not lost. You can get back to it using the M-y command. After you have done C-y to get the most recent kill, typing -M-Y replaces that yanked text with the previous kill. Typing M-y -again and again brings in earlier and earlier kills. When you -have reached the text you are looking for, you can just go away and -leave it there. If you M-y enough times, you come back to the -starting point (the most recent kill). +M-y replaces that yanked text with the previous kill. Typing M-y +again and again brings in earlier and earlier kills. When you have +reached the text you are looking for, you do not have to do anything to +keep it. Just go on with your editing, leaving the yanked text where +it is. + +If you M-y enough times, you come back to the starting point (the most +recent kill). >> Kill a line, move around, kill another line. Then do C-y to get back the second killed line. @@ -397,26 +410,28 @@ * UNDO ------ -Any time you make a change to the text and wish you had not done so, -you can undo the change (return the text to its previous state) -with the undo command, C-x u. Normally, C-x u undoes one command's -worth of changes; if you repeat the C-x u several times in a row, -each time undoes one more command. There are two exceptions: -commands that made no change (just moved the cursor) do not count, -and self-inserting characters are often lumped together in groups -of up to 20. This is to reduce the number of C-x u's you have to type. +If you make a change to the text, and then decide that it was a +mistake, you can undo the change with the undo command, C-x u. + +Normally, C-x u undoes the changes made by one command; if you repeat +the C-x u several times in a row, each repetition undoes one +additional command. + +But there are two exceptions: commands that do not change the text do +not count (this includes cursor motion commands and scrolling +command), and self-inserting characters are usually handled in groups +of up to 20. (This is to reduce the number of C-x u's you have to +type to undo insertion of text.) >> Kill this line with C-k, then type C-x u and it should reappear. -C-_ is another command for undoing; it is just the same as C-x u -but easier to type several times in a row. The problem with C-_ is -that on some keyboards it is not obvious how to type it. That is -why C-x u is provided as well. On some DEC terminals, you can type -C-_ by typing / while holding down CTRL. Illogical, but what can -you expect from DEC? +C-_ is an alternative undo command; it works just the same as C-x u, +but it is easier to type several times in a row. The disadvantage of +C-_ is that on some keyboards it is not obvious how to type it. That +is why we provide C-x u as well. On some terminals, you can type C-_ +by typing / while holding down CTRL. -Giving a numeric argument to C-_ or C-x u is equivalent to repeating -it as many times as the argument says. +A numeric argument to C-_ or C-x u acts as a repeat count. * FILES @@ -424,27 +439,31 @@ In order to make the text you edit permanent, you must put it in a file. Otherwise, it will go away when your invocation of Emacs goes -away. You put your editing in a file by "finding" the file. What -finding means is that you see the contents of the file in your Emacs; -and, loosely speaking, what you are editing is the file itself. -However, the changes still don't become permanent until you "save" the -file. This is so you can have control to avoid leaving a half-changed -file around when you don't want to. Even then, Emacs leaves the -original file under a changed name in case your changes turn out -to be a mistake. +away. You put your editing in a file by "finding" the file. (This is +also called "visiting" the file.) + +Finding a file means that you see the contents of the file within +Emacs. In many ways, it is as if you were editing the file itself. +However, the changes you make using Emacs do not become permanent +until you "save" the file. This is so you can avoid leaving a +half-changed file on the system when you do not want to. Even when +you save, Emacs leaves the original file under a changed name in case +you later decide that your changes were a mistake. If you look near the bottom of the screen you will see a line that -begins and ends with dashes, and contains the string "Emacs: TUTORIAL". -Your copy of the Emacs tutorial is called "TUTORIAL". Whatever -file you find, that file's name will appear in that precise +begins and ends with dashes, and contains the string "Emacs: +TUTORIAL". This part of the screen always shows the name of the file +that you are visiting. Right now, you are visiting a file called +"TUTORIAL" which is your personal scratch copy of the Emacs tutorial. +Whatever file you find, that file's name will appear in that precise spot. The commands for finding and saving files are unlike the other commands you have learned in that they consist of two characters. They both start with the character Control-x. There is a whole series of commands that start with Control-x; many of them have to do with -files, buffers, and related things, and all of them consist of -Control-x followed by some other character. +files, buffers, and related things. These commands are two, three or +four characters long. Another thing about the command for finding a file is that you have to say what file name you want. We say the command "reads an argument @@ -453,33 +472,40 @@ C-x C-f Find a file -Emacs asks you to type the file name. It echoes on the bottom -line of the screen. You are using the minibuffer now! this is -what the minibuffer is for. When you type <Return> to end the -file name, the minibuffer is no longer needed, so it disappears. +Emacs asks you to type the file name. The file name you type appears +on the bottom line of the screen. The bottom line is called the +minibuffer when it is used for this sort of input. You can use +ordinary Emacs editing commands to edit the file name. + +While you are entering the file name (or any minibuffer input), +you can cancel the command with C-g. >> Type C-x C-f, then type C-g. This cancels the minibuffer, and also cancels the C-x C-f command that was using the minibuffer. So you do not find any file. -In a little while the file contents appear on the screen. You can -edit the contents. When you wish to make the changes permanent, -issue the command +When you have finished entering the file name, type <Return> to +terminate it. Then C-x C-f command goes to work, and finds the file +you chose. The minibuffer disappears when the C-x C-f command is +finished. + +In a little while the file contents appear on the screen, and you can +edit the contents. When you wish to make your changes permanent, +type the command C-x C-s Save the file -The contents of Emacs are written into the file. The first time you -do this, the original file is renamed to a new name so that it -is not lost. The new name is made by appending "~" to the end -of the original file's name. +This copies the text within Emacs into the file. The first time you +do this, Emacs renames the original file to a new name so that it is +not lost. The new name is made by adding "~" to the end of the +original file's name. When saving is finished, Emacs prints the name of the file written. You should save fairly often, so that you will not lose very much work if the system should crash. >> Type C-x C-s, saving your copy of the tutorial. - This should print "Wrote .../TUTORIAL" at the bottom of the screen. - On VMS it will print "Wrote ...[...]TUTORIAL." + This should print "Wrote ...TUTORIAL" at the bottom of the screen. NOTE: On some systems, typing C-x C-s will freeze the screen and you will see no further output from Emacs. This indicates that an @@ -488,11 +514,13 @@ type C-q. Then see the section "Spontaneous Entry to Incremental Search" in the Emacs manual for advice on dealing with this "feature". -To make a new file, just find it "as if" it already existed. Then -start typing in the text. When you ask to "save" the file, Emacs -will really create the file with the text that you have inserted. -From then on, you can consider yourself to be editing an already -existing file. +You can find an existing file, to view it or edit it. You can also +find a file which does not already exist. This is the way to create a +file with Emacs: find the file, which will start out empty, and then +begin inserting the text for the file. When you ask to "save" the +file, Emacs will really create the file with the text that you have +inserted. From then on, you can consider yourself to be editing an +already existing file. * BUFFERS @@ -502,9 +530,14 @@ inside Emacs. You can switch back to it by finding it again with C-x C-f. This way you can get quite a number of files inside Emacs. -The object inside Emacs which holds the text read from one file -is called a "buffer." Finding a file makes a new buffer inside Emacs. -To see a list of the buffers that exist in Emacs, type +>> Create a file named "foo" by typing C-x C-f foo <Return>. + Then insert some text, edit it, and save "foo" by typing C-x C-s. + Finally, type C-x C-f TUTORIAL <Return> + to come back to the tutorial. + +Emacs stores each file's text inside an object called a "buffer." +Finding a file makes a new buffer inside Emacs. To see a list of the +buffers that current exist in your Emacs job, type C-x C-b List buffers @@ -515,7 +548,7 @@ to files. For example, the buffer named "*Buffer List*" does not have any file. It is the buffer which contains the buffer list that was made by C-x C-b. ANY text you see in an Emacs window -has to be in some buffer. +is always part of some buffer. >> Type C-x 1 to get rid of the buffer list. @@ -529,71 +562,13 @@ C-x s Save some buffers -C-x s goes through the list of all the buffers you have -and finds the ones that contain files you have changed. -For each such buffer, C-x s asks you whether to save it. - - -* USING THE MENU ----------------- - -If you are on an X terminal, you will notice a menubar at the -top of the Emacs screen. You can use this menubar to access all -the most common Emacs commands, such as "find file". You will -find this easier at first, because you don't need to remember -the keystrokes necessary to access any particular command. Once -you are comfortable with Emacs, it will be easy to begin using -the keyboard commands because each menu item with a -corresponding keyboard command has the command listed next to -it. - -Note that there are many items in the menubar that have no exact -keyboard equivalents. For example, the Buffers menu lists all -of the available buffers in most-recently used order. You can -switch to any buffer by simply findings its name in the Buffers -menu and selecting it. - - -* USING THE MOUSE ------------------ +C-x s asks you about each buffer which contains changes that you have +not saved. It asks you, for each such buffer, whether to save the +buffer. -When running under X, Emacs is fully integrated with the mouse. -You can position the text cursor by clicking the left button at -the desired location, and you can select text by dragging the -left mouse button across the text you want to select. (Or -alternatively, click the left mouse button at one end of the -text, then move to the other end and use Shift-click to select -the text.) - -To kill some selected text, you can use C-w or choose the Cut -item from the Edit menu. Note that these are *not* equivalent: -C-w only saves the text internally within Emacs (similar to C-k -as described above), whereas Cut does this and also puts the -text into the X clipboard, where it can be accessed by other -applications. - -To retrieve text from the X clipboard, use the Paste item from -the Edit menu. - -The middle mouse button is commonly used to choose items that -are visible on the screen. For example, if you enter Info (the -on-line Emacs documentation) using C-h i or the Help menu, you -can follow a highlighted link by clicking the middle mouse -button on it. Similarly, if you are typing a file name in -(e.g. when prompted by "Find File") and you hit TAB to show the -possible completions, you can click the middle mouse button on -one of the completions to select it. - -The right mouse button brings up a popup menu. The contents of -this menu vary depending on what mode you're in, and usually -contain a few commonly used commands, so they're easier to -access. - ->> Press the right mouse button now. - -You will have to hold the button down in order to keep the -menu up. - +>> Insert a line of text, then type C-x s. + It should ask you whether to save the buffer named TUTORIAL. + Answer yes to the question by typing "y". * EXTENDING THE COMMAND SET --------------------------- @@ -606,33 +581,33 @@ M-x Named command eXtend. Followed by a long name. These are commands that are generally useful but used less than the -commands you have already learned about. You have already seen two -of them: the file commands C-x C-f to Find and C-x C-s to Save. -Another example is the command to tell Emacs that you'd like to stop -editing and get rid of Emacs. The command to do this is C-x C-c. -(Don't worry; it offers to save each changed file before it kills the -Emacs.) +commands you have already learned about. You have already seen two of +them: the file commands C-x C-f to Find and C-x C-s to Save. Another +example is the command to end the Emacs session--this is the command +C-x C-c. (Do not worry about losing changes you have made; C-x C-c +offers to save each changed file before it kills the Emacs.) C-z is the command to exit Emacs *temporarily*--so that you can go back to the same Emacs session afterward. -On systems which allow it, C-z exits from Emacs to the shell but does -not destroy the Emacs; if you use the C shell, you can resume Emacs -with the `fg' command (or, more generally, with `%emacs', which works -even if your most recent job was some other). On systems which don't -implement suspending, C-z creates a subshell running under Emacs to -give you the chance to run other programs and return to Emacs -afterward; it does not truly "exit" from Emacs. In this case, the -shell command `exit' is the usual way to get back to Emacs from the -subshell. +On systems which allow it, C-z "suspends" Emacs; that is, it returns +to the shell but does not destroy the Emacs. In the most common +shells, you can resume Emacs with the `fg' command or with `%emacs'. + +On systems which do not implement suspending, C-z creates a subshell +running under Emacs to give you the chance to run other programs and +return to Emacs afterward; it does not truly "exit" from Emacs. In +this case, the shell command `exit' is the usual way to get back to +Emacs from the subshell. The time to use C-x C-c is when you are about to log out. It's also the right thing to use to exit an Emacs invoked under mail handling -programs and other random utilities, since they may not know how to -cope with suspension of Emacs. On other occasions, use C-z, and -resume the Emacs when you have more editing to do. +programs and other miscellaneous utilities, since they may not know +how to cope with suspension of Emacs. In ordinary circumstances, +though, if you are not about to log out, it is better to suspend Emacs +with C-z instead of exiting Emacs. -There are many C-x commands. The ones you know are: +There are many C-x commands. Here is a list of the ones you have learned: C-x C-f Find file. C-x C-s Save file. @@ -641,22 +616,23 @@ C-x u Undo. Named eXtended commands are commands which are used even less -frequently, or commands which are used only in certain modes. These -commands are usually called "functions". An example is the function -replace-string, which globally replaces one string with another. When -you type M-x, Emacs prompts you at the bottom of the screen with -M-x and you should type the name of the function you wish to call; in -this case, "replace-string". Just type "repl s<TAB>" and Emacs will -complete the name. End the command name with <Return>. -Then type the two "arguments"--the string to be replaced, and the string -to replace it with--each one ended with a Return. +frequently, or commands which are used only in certain modes. An +example is the command replace-string, which globally replaces one +string with another. When you type M-x, Emacs prompts you at the +bottom of the screen with M-x and you should type the name of the +command; in this case, "replace-string". Just type "repl s<TAB>" and +Emacs will complete the name. End the command name with <Return>. + +The replace-string command requires two arguments--the string to be +replaced, and the string to replace it with. You must end each +argument with <Return>. >> Move the cursor to the blank line two lines below this one. Then type M-x repl s<Return>changed<Return>altered<Return>. Notice how this line has changed: you've replaced - the word c-h-a-n-g-e-d with "altered" wherever it occurred - after the cursor. + the word c-h-a-n-g-e-d with "altered" wherever it occurred, + after the initial position of the cursor. * AUTO SAVE @@ -664,11 +640,11 @@ When you have made changes in a file, but you have not saved them yet, they could be lost if your computer crashes. To protect you from -this, Emacs writes "auto save" files periodically. The auto save file -name has a # at the beginning and the end; for example, if your file -is named "hello.c", its auto save file's name is "#hello.c#". When -you save the file in the normal way, its auto save file is no longer -necessary so Emacs deletes it. +this, Emacs periodically writes an "auto save" file for each file that +you are editing. The auto save file name has a # at the beginning and +the end; for example, if your file is named "hello.c", its auto save +file's name is "#hello.c#". When you save the file in the normal way, +Emacs deletes its auto save file. If the computer crashes, you can recover your auto-saved editing by finding the file normally (the file you were editing, not the auto @@ -677,72 +653,91 @@ data. -* MODE LINE +* ECHO AREA ----------- If Emacs sees that you are typing commands slowly it shows them to you at the bottom of the screen in an area called the "echo area." The echo -area contains the bottom line of the screen. The line immediately above -it is called the MODE LINE. The mode line says something like +area contains the bottom line of the screen. + + +* MODE LINE +----------- ---**--Emacs: TUTORIAL (Fundamental)----58%------------- +The line immediately above the echo area it is called the "mode line". +The mode line says something like this: -This is a very useful "information" line. +--**-Emacs: TUTORIAL (Fundamental)--L670--58%---------------- + +This line gives useful information about the status of Emacs and +the text you are editing. You already know what the filename means--it is the file you have -found. What the --NN%-- means is that NN percent of the file is -above the top of the screen. If the top of the file is on the screen, -it will say --TOP-- instead of --00%--. If the bottom of the file is -on the screen, it will say --BOT--. If you are looking at a file so -small it all fits on the screen, it says --ALL--. +found. -NN%-- indicates your current position in the text; it means +that NN percent of the text is above the top of the screen. If the +top of the file is on the screen, it will say --Top-- instead of +--00%--. If the bottom of the text is on the screen, it will say +--Bot--. If you are looking at text so small that all of it fits on +the screen, the mode line says --All--. The stars near the front mean that you have made changes to the text. -Right after you visit or save a file, there are no stars, just dashes. +Right after you visit or save a file, that part of the mode line shows +no stars, just dashes. The part of the mode line inside the parentheses is to tell you what -modes you are in. The default mode is Fundamental which is what you -are in now. It is an example of a "major mode". There are several -major modes in Emacs for editing different languages and text, such as -Lisp mode, Text mode, etc. At any time one and only one major mode is -active, and its name can always be found in the mode line just where -"Fundamental" is now. Each major mode makes a few commands behave -differently. For example, there are commands for creating comments in -a program, and since each programming language has a different idea of -what a comment should look like, each major mode has to insert -comments differently. Each major mode is the name of an extended -command, which is how you get into the mode. For example, -M-x fundamental-mode is how to get into Fundamental mode. +editing modes you are in. The default mode is Fundamental which is +what you are using now. It is an example of a "major mode". + +Emacs has many different major modes. Some of them are meant for +editing different languages and/or kinds of text, such as Lisp mode, +Text mode, etc. At any time one and only one major mode is active, +and its name can always be found in the mode line just where +"Fundamental" is now. + +Each major mode makes a few commands behave differently. For example, +there are commands for creating comments in a program, and since each +programming language has a different idea of what a comment should +look like, each major mode has to insert comments differently. Each +major mode is the name of an extended command, which is how you can +switch to that mode. For example, M-x fundamental-mode is a command to +switch to Fundamental mode. If you are going to be editing English text, such as this file, you should probably use Text Mode. >> Type M-x text-mode<Return>. Don't worry, none of the commands you have learned changes Emacs in -any great way. But you can observe that apostrophes are now part of -words when you do M-f or M-b. Major modes are usually like that: -commands don't change into completely unrelated things, but they work -a little bit differently. +any great way. But you can observe that M-f and M-b now treat +apostrophes as part of words. Previously, in Fundamental mode, +M-f and M-b treated apostrophes as word-separators. -To get documentation on your current major mode, type C-h m. +Major modes usually make subtle changes like that one: most commands +do "the same job" in each major mode, but they work a little bit +differently. + +To view documentation on your current major mode, type C-h m. >> Use C-u C-v once or more to bring this line near the top of screen. >> Type C-h m, to see how Text mode differs from Fundamental mode. >> Type C-x 1 to remove the documentation from the screen. Major modes are called major because there are also minor modes. -They are called minor because they aren't alternatives to the major -modes, just minor modifications of them. Each minor mode can be -turned on or off by itself, regardless of what major mode you are in, -and regardless of the other minor modes. So you can use no minor -modes, or one minor mode, or any combination of several minor modes. +Minor modes are alternatives not to the major modes, just minor +modifications of them. Each minor mode can be turned on or off by +itself, independent of all other minor modes, and independent of your +major mode. So you can use no minor modes, or one minor mode, or any +combination of several minor modes. One minor mode which is very useful, especially for editing English text, is Auto Fill mode. When this mode is on, Emacs breaks the line -in between words automatically whenever the line gets too long. You -can turn this mode on by doing M-x auto-fill-mode<Return>. When the -mode is on, you can turn it off by doing M-x auto-fill-mode<Return>. -If the mode is off, this function turns it on, and if the mode is on, -this function turns it off. This is called "toggling". +in between words automatically whenever you insert text and make a +line that is too wide. + +You can turn Auto Fill mode on by doing M-x auto-fill-mode<Return>. +When the mode is on, you can turn it off by doing M-x +auto-fill-mode<Return>. If the mode is off, this command turns it on, +and if the mode is on, this command turns it off. We say that the +command "toggles the mode". >> Type M-x auto-fill-mode<Return> now. Then insert a line of "asdf " over again until you see it divide into two lines. You must put in @@ -764,36 +759,39 @@ >> Move the cursor into the previous paragraph and type M-q. - * SEARCHING ----------- Emacs can do searches for strings (these are groups of contiguous -characters or words) either forward through the file or backward -through it. To search for the string means that you are trying to -locate it somewhere in the file and have Emacs show you where the -occurrences of the string exist. This type of search is somewhat -different from what you may be familiar with. It is a search that is -performed as you type in the thing to search for. The command to -initiate a search is C-s for forward search, and C-r for reverse -search. BUT WAIT! Don't do them now. When you type C-s you'll -notice that the string "I-search" appears as a prompt in the echo -area. This tells you that Emacs is in what is called an incremental -search waiting for you to type the thing that you want to search for. -<RET> terminates a search. +characters or words) either forward through the text or backward +through it. Searching for a string is a cursor motion command; +it moves the cursor to the next place where that string appears. + +The Emacs search command is different from the search commands +of most editors, in that it is "incremental". This means that the +search happens while you type in the string to search for. + +The command to initiate a search is C-s for forward search, and C-r +for reverse search. BUT WAIT! Don't try them now. + +When you type C-s you'll notice that the string "I-search" appears as +a prompt in the echo area. This tells you that Emacs is in what is +called an incremental search waiting for you to type the thing that +you want to search for. <RET> terminates a search. >> Now type C-s to start a search. SLOWLY, one letter at a time, type the word 'cursor', pausing after you type each character to notice what happens to the cursor. ->> Type C-s to find the next occurrence of "cursor". + Now you have searched for "cursor", once. +>> Type C-s again, to search for the next occurrence of "cursor". >> Now type <Delete> four times and see how the cursor moves. >> Type <RET> to terminate the search. Did you see what happened? Emacs, in an incremental search, tries to -go to the occurrence of the string that you've typed out so far. To go -to the next occurrence of 'cursor' just type C-s again. If no such -occurrence exists Emacs beeps and tells you that it is a failing -search. C-g would also terminate the search. +go to the occurrence of the string that you've typed out so far. To +go to the next occurrence of 'cursor' just type C-s again. If no such +occurrence exists Emacs beeps and tells you the search is currently +"failing", C-g would also terminate the search. NOTE: On some systems, typing C-s will freeze the screen and you will see no further output from Emacs. This indicates that an operating @@ -805,22 +803,21 @@ If you are in the middle of an incremental search and type <Delete>, you'll notice that the last character in the search string is erased and the search backs up to the last place of the search. For -instance, suppose you currently have typed 'cu' and you see that your -cursor is at the first occurrence of 'cu'. If you now type <Delete>, -the 'u' on the search line is erased and you'll be repositioned in the -text to the occurrence of 'c' where the search took you before you -typed the 'u'. This provides a useful means for backing up while you -are searching. +instance, suppose you have typed "c", to search for the first +occurrence of "c". Now if you type "u", the cursor will move +to the first occurrence of "cu". Now type <Delete>. This erases +the "u" from the search string, and the cursor moves back to +the first occurrence of "c". If you are in the middle of a search and type a control or meta character (with a few exceptions--characters that are special in a search, such as C-s and C-r), the search is terminated. The C-s starts a search that looks for any occurrence of the search -string AFTER the current cursor position. But what if you want to -search for something earlier in the text? To do this, type C-r for -Reverse search. Everything that applies to C-s applies to C-r except -that the direction of the search is reversed. +string AFTER the current cursor position. If you want to search for +something earlier in the text, type C-r instead. Everything that we +have said about C-s also applies to C-r, except that the direction of +the search is reversed. * MULTIPLE WINDOWS @@ -835,34 +832,34 @@ Both windows display this tutorial. The cursor stays in the top window. >> Type C-M-v to scroll the bottom window. - (If you don't have a real Meta key, type ESC C-v.) + (If you do not have a real Meta key, type ESC C-v.) >> Type C-x o ("o" for "other") to move the cursor to the bottom window. >> Use C-v and M-v in the bottom window to scroll it. Keep reading these directions in the top window. >> Type C-x o again to move the cursor back to the top window. - The cursor is still just where it was in the top window before. + The cursor in the top window is just where it was before. You can keep using C-x o to switch between the windows. Each window has its own cursor position, but only one window actually shows the cursor. All the ordinary editing commands apply to the -window that the cursor is in. +window that the cursor is in. We call this the "selected window". The command C-M-v is very useful when you are editing text in one window and using the other window just for reference. You can keep -the cursor always in the window where you are editing, and edit -there as you advance through the other window. +the cursor always in the window where you are editing, and advance +through the other window sequentially with C-M-v. C-M-v is an example of a CONTROL-META character. If you have a real META key, you can type C-M-v by holding down both CTRL and META while -typing v. +typing v. It does not matter whether CTRL or META "comes first," +because both of these keys act by modifying the characters you type. -It doesn't matter whether CTRL or META "comes first," because both of -these keys act by modifying the characters you type. But if you don't -have a real META key, and you use ESC instead, the order does matter: -you must type ESC followed by CTRL-v; CTRL-ESC v will not work. This -is because ESC is a character in its own right, not a modifier key. +If you do not have a real META key, and you use ESC instead, the order +does matter: you must type ESC followed by CTRL-v; CTRL-ESC v will not +work. This is because ESC is a character in its own right, not a +modifier key. >> Type C-x 1 (in the top window) to get rid of the bottom window. @@ -870,16 +867,15 @@ of the top one. Think of this command as "Keep just one window--the window I am already in.") -You don't have to display the same buffer in both windows. If -you use C-x C-f to find a file in one window, the other window -doesn't change. You can pick a file in each window -independently. +You do not have to display the same buffer in both windows. If you +use C-x C-f to find a file in one window, the other window does not +change. You can find a file in each window independently. Here is another way to use two windows to display two different things: >> Type C-x 4 C-f followed by the name of one of your files. - End with <RETURN>. See the specified file appear in the bottom + End with <Return>. See the specified file appear in the bottom window. The cursor goes there, too. >> Type C-x o to go back to the top window, and C-x 1 to delete @@ -900,9 +896,9 @@ >> Type M-x to get into a minibuffer; then type ESC ESC ESC to get out. -You can't use C-g to get out of a recursive editing level because C-g -is used for canceling commands and arguments WITHIN the recursive -editing level. +You cannot use C-g to get out of a recursive editing level. This is +because C-g is used for canceling commands and arguments WITHIN the +recursive editing level. * GETTING MORE HELP @@ -911,18 +907,22 @@ In this tutorial we have tried to supply just enough information to get you started using Emacs. There is so much available in Emacs that it would be impossible to explain it all here. However, you may want -to learn more about Emacs since it has numerous desirable features -that you don't know about yet. Emacs has a great deal of internal -documentation. All of these commands can be accessed through -the character Control-h, which we call "the Help character" -because of the function it serves. +to learn more about Emacs since it has many other useful features. +Emacs provides commands for reading documentation about Emacs +commands. These "help" commands all start with the character +Control-h, which is called "the Help character". -To use the HELP features, type the C-h character, and then a +To use the Help features, type the C-h character, and then a character saying what kind of help you want. If you are REALLY lost, type C-h ? and Emacs will tell you what kinds of help it can give. -If you have typed C-h and decide you don't want any help, just +If you have typed C-h and decide you do not want any help, just type C-g to cancel it. +(Some sites rebind the character C-h. They really should not do this +as a blanket measure, so complain to the system administrator. +Meanwhile, if C-h does not display a message about help at the bottom +of the screen, try typing M-x help RET instead.) + The most basic HELP feature is C-h c. Type C-h, a c, and a command character or sequence, and Emacs displays a very brief description of the command. @@ -932,15 +932,16 @@ C-p runs the command previous-line -This tells you the "name of the function". That is important in -writing Lisp code to extend Emacs; it also is enough to remind -you of what the command does if you have seen it before but did -not remember. +This tells you the "name of the function". Function names are used +mainly for customizing and extending Emacs. But since function names +are chosen to indicate what the command does, they can serve also as +very brief documentation--sufficient to remind you of commands you +have already learned. Multi-character commands such as C-x C-s and (if you have no META or -EDIT key) <ESC>v are also allowed after C-h c. +EDIT or ALT key) <ESC>v are also allowed after C-h c. -To get more information on the command, use C-h k instead of C-h c. +To get more information about a command, use C-h k instead of C-h c. >> Type C-h k Control-p. @@ -948,7 +949,7 @@ name, in an Emacs window. When you are finished reading the output, type C-x 1 to get rid of the help text. You do not have to do this right away. You can do some editing while referring -to the help text and then type C-x 1. +to the help text, and then type C-x 1. Here are some other useful C-h options: @@ -963,14 +964,13 @@ all the commands whose names contain that keyword. These commands can all be invoked with Meta-x. For some commands, Command Apropos will also list a one - or two character sequence which has the same effect. + or two character sequence which runs the same command. >> Type C-h a file<Return>. -This displays in another window a list of all M-x commands with -"file" in their names. You will also see commands like C-x C-f -and C-x C-w, listed beside the command names find-file and -write-file. +This displays in another window a list of all M-x commands with "file" +in their names. You will see character-commands like C-x C-f listed +beside the corresponding command names such as find-file. >> Type C-M-v to scroll the help window. Do this a few times. @@ -981,9 +981,7 @@ ------------ Remember, to exit Emacs permanently use C-x C-c. To exit to a shell -temporarily, so that you can come back in, use C-z. (This does not -work under X windows, because there is no real concept of exiting -temporarily to the shell. Instead, C-z iconifies the Emacs screen.) +temporarily, so that you can come back to Emacs afterward, use C-z. This tutorial is meant to be understandable to all new users, so if you found something unclear, don't sit and blame yourself - complain! @@ -994,7 +992,6 @@ This tutorial descends from a long line of Emacs tutorials starting with the one written by Stuart Cracraft for the original Emacs. -Ben Wing updated the tutorial for X Windows. This version of the tutorial, like GNU Emacs, is copyrighted, and comes with permission to distribute copies on certain conditions: @@ -1012,8 +1009,7 @@ under the above conditions, provided also that they carry prominent notices stating who last altered them. -The conditions for copying Emacs itself are slightly different -but in the same spirit. Please read the file COPYING and then -do give copies of GNU Emacs to your friends. -Help stamp out software obstructionism ("ownership") by using, -writing, and sharing free software! +The conditions for copying Emacs itself are more complex, but in the +same spirit. Please read the file COPYING and then do give copies of +GNU Emacs to your friends. Help stamp out software obstructionism +("ownership") by using, writing, and sharing free software!
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/etc/smilies/Face_ase.xbm Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,19 @@ +#define Face_ase_width 24 +#define Face_ase_height 16 +static char Face_ase_bits[] = { + 0x00,0x00,0x00, + 0xf8,0xc1,0x0f, + 0x04,0x22,0x10, + 0x00,0x00,0x00, + 0xf0,0xc0,0x03, + 0x68,0xa1,0x05, + 0x68,0xa1,0x05, + 0x68,0xa1,0x05, + 0xf0,0xc0,0x23, + 0x00,0x00,0x20, + 0x00,0x00,0x50, + 0x50,0x40,0x52, + 0x00,0x00,0x50, + 0x20,0x91,0x20, + 0x00,0x0e,0x00, + 0x00,0x00,0x00};
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/etc/smilies/Face_ase2.xbm Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,19 @@ +#define Face_ase2_width 32 +#define Face_ase2_height 16 +static char Face_ase2_bits[] = { + 0x00,0x00,0x00,0x00, + 0xf0,0x83,0x1f,0x00, + 0x08,0x44,0x20,0x00, + 0x00,0x00,0x00,0x00, + 0xe0,0x81,0x07,0x00, + 0xd0,0x42,0x0b,0x00, + 0xd0,0x42,0x0b,0x00, + 0xd0,0x42,0x0b,0x00, + 0xe0,0x81,0x87,0x10, + 0x00,0x00,0x80,0x10, + 0x00,0x00,0x40,0x29, + 0xa0,0x80,0x44,0x29, + 0x00,0x00,0x40,0x29, + 0x40,0x22,0x81,0x10, + 0x00,0x1c,0x00,0x00, + 0x00,0x00,0x00,0x00};
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/etc/smilies/Face_ase3.xbm Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,20 @@ +#define Face_ase3_width 24 +#define Face_ase3_height 16 +static char Face_ase3_bits[] = { + 0x00,0x00,0x00, + 0xf8,0xc1,0x0f, + 0x04,0x22,0x10, + 0x00,0x00,0x00, + 0x18,0x00,0x07, + 0xe0,0xe0,0x00, + 0xfc,0xf3,0x0f, + 0xc0,0xe1,0x00, + 0x38,0x00,0x27, + 0x00,0x00,0x20, + 0x00,0x00,0x50, + 0x50,0x40,0x52, + 0x00,0x00,0x50, + 0x20,0x91,0x20, + 0x00,0x0e,0x00, + 0x00,0x00,0x00 +};
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/etc/smilies/Face_smile.xbm Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,19 @@ +#define Face_smile_width 24 +#define Face_smile_height 16 +static char Face_smile_bits[] = { + 0x00,0x00,0x00, + 0xf8,0xc1,0x0f, + 0x04,0x22,0x10, + 0x00,0x00,0x00, + 0xf0,0xc0,0x07, + 0x68,0xa1,0x09, + 0x68,0xa1,0x09, + 0x68,0xa1,0x09, + 0xf0,0xc0,0x07, + 0x00,0x00,0x00, + 0x00,0x00,0x00, + 0x50,0x80,0x04, + 0x00,0x00,0x00, + 0x20,0x22,0x01, + 0x00,0x1c,0x00, + 0x00,0x00,0x00};
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/etc/smilies/Face_weep.xbm Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,20 @@ +#define Face_weep_width 24 +#define Face_weep_height 16 +static char Face_weep_bits[] = { + 0x1c,0x00,0x3c, + 0xe2,0x80,0x43, + 0x00,0x63,0x00, + 0x18,0x00,0x18, + 0x60,0x00,0x07, + 0x80,0xe3,0x00, + 0xfc,0xf7,0x3f, + 0x80,0xe3,0x00, + 0x60,0x00,0x07, + 0x58,0x00,0x1a, + 0x40,0x00,0x02, + 0xa0,0x00,0x05, + 0xa0,0x00,0x05, + 0xa0,0x1c,0x05, + 0x40,0x22,0x02, + 0x00,0x00,0x00 +};
--- a/lib-src/Makefile.in.in Mon Aug 13 09:40:48 2007 +0200 +++ b/lib-src/Makefile.in.in Mon Aug 13 09:41:43 2007 +0200 @@ -415,19 +415,13 @@ /* Why oh why does HP not include half of the standard X distribution? */ -#ifdef HAVE_XAUTH -cflags_gnuserv = $(CFLAGS) $(lib_src_cppflags) $(c_switch_all) -ldflags_gnuserv = $(LDFLAGS) $(ld_switch_all) $(ld_libs_all) -#else -cflags_gnuserv = ${cflags} -ldflags_gnuserv = ${ldflags} -#endif +ldflags_gnuserv = $(LDFLAGS) $(ld_switch_all) @libs_xauth@ $(ld_libs_general) gnuslib.o: ${srcdir}/gnuslib.c ${srcdir}/gnuserv.h ../src/config.h - $(CC) -c ${cflags_gnuserv} ${srcdir}/gnuslib.c + $(CC) -c ${cflags} ${srcdir}/gnuslib.c gnuclient: ${srcdir}/gnuclient.c gnuslib.o ${srcdir}/gnuserv.h - $(CC) ${cflags_gnuserv} -o gnuclient ${srcdir}/gnuclient.c gnuslib.o $(ldflags_gnuserv) + $(CC) ${cflags} -o $@ ${srcdir}/$@.c gnuslib.o ${ldflags_gnuserv} gnuserv: ${srcdir}/gnuserv.c gnuslib.o ${srcdir}/gnuserv.h - $(CC) ${cflags_gnuserv} -o gnuserv ${srcdir}/gnuserv.c gnuslib.o $(ldflags_gnuserv) + $(CC) ${cflags} -o $@ ${srcdir}/$@.c gnuslib.o ${ldflags_gnuserv} /* mmencode binary is used by tm - but is really part of the metamail package */ /* mmencode.c was merged copy of mmencode.c and codes.c of metamail */
--- a/lib-src/pop.c Mon Aug 13 09:40:48 2007 +0200 +++ b/lib-src/pop.c Mon Aug 13 09:41:43 2007 +0200 @@ -51,7 +51,7 @@ #define SEND(s,buf,len,flags) write(s,buf,len) #define CLOSESOCKET(s) close(s) #endif -#include <pop.h> +#include "pop.h" #ifdef sun #include <malloc.h>
--- a/lisp/ChangeLog Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/ChangeLog Mon Aug 13 09:41:43 2007 +0200 @@ -1,3 +1,160 @@ +1997-06-11 Steven L Baur <steve@altair.xemacs.org> + + * prim/help.el (function-called-at-point): Use char-(after|before) + instead of (following|preceding)-char. + (variable-at-point): Ditto. + + * prim/simple.el (delete-indentation): Use char-(after|before) + instead of (following|preceding)-char. + (just-one-space): Ditto. + (backward-delete-char-untabify): Ditto. + (do-auto-fill): Ditto. + + * prim/paragraphs.el (end-of-paragraph-text): Use char-before + instead of preceding-char. + + * prim/misc.el (copy-from-above-command): Use char-(after|before) + instead of (following|preceding)-char. + + * prim/obsolete.el (preceding-char): Correct a typo. + + * prim/minibuf.el (minibuffer-electric-slash): Use char-(after|before) + instead of (following|preceding)-char. + (minibuffer-electric-tilde): Ditto. + + * prim/lisp.el (insert-parentheses): Use char-(after|before) + instead of (following|preceding)-char. + + * prim/indent.el (tab-to-tab-stop): Use char-(after|before) + instead of (following|preceding)-char. + (move-to-tab-stop): Ditto. + + * prim/fill.el (fill-end-of-sentence-p): Use + char-after/char-before instead of following-char/preceding-char. + (canonically-space-region): Ditto. + (fill-region-as-paragraph): Ditto. + (fill-region): Change (= char char) to (eq char char). + + * prim/debug.el (debugger-frame-number): Use char-after not + following-char. + (debugger-frame): Ditto. + (debugger-frame-clear): Ditto. + + * prim/case-table.el (invert-case): Use char-after not + following-char. + Clean up comments. + + * prim/syntax.el (symbol-near-point): Use char-before not + preceding-char. + + * prim/window.el (window-list): Update DOCstring. + From Noah Friedman <friedman@splode.com> + + * utils/uniquify.el (toplevel): Make version test match XEmacs v20. + + * tm/tm-ew-e.el: Clean up Ebola infection. + + * x11/x-compose.el: Various corrections + From Heiko Muenkel <muenkel@tnt.uni-hannover.de> + +1997-06-10 Gary D. Foster <Gary.Foster@corp.sun.com> + + * lisp/modes/view-less.el: Changed \177 bindings to 'delete + * lisp/modes/help.el: Changed \177 bindings to 'delete + +1997-06-10 Gary D. Foster <Gary.Foster@corp.sun.com> + + * lisp/prim/keydefs.el: Changed all 'delete key bindings to point to + the `backward-or-forward-foo' functions. + * lisp/prim/simple.el: + - Renamed `delete-erases-forward' to `delete-key-deletes-forward'. + - Removed `backspace-or-delete-hook' + - Renamed `backspace-or-delete' to `backward-or-forward-delete-char' + - Added functions: `backward-or-forward-kill-word' + `backward-or-forward-kill-sentence' + `backward-or-forward-kill-sexp' + - Removed the zmacs hacks from all the `b-or-f-foo' functions and + began playing nicely with pending-del. + * lisp/modes/cc-mode.el: + * lisp/modes/cperl-mode.el: Fixed references to delete functions + to use the new names. + +1997-06-11 Karl M Hegbloom <karlheg@inetarena.com> + + * ilisp/ilisp-def.el (toplevel): Changed `ilisp-prefix' from + "C-z" to "C-c" because of conflict with global key binding for + `iconify-frame'. + +1997-06-11 Steven L Baur <steve@altair.xemacs.org> + + * prim/window.el (window-list): New function. + Suggested by Noah Friedman <friedman@splode.com> + Modified by Hrvoje Niksic <hniksic@srce.hr> + + * utils/mail-extr.el (mail-extract-address-components): Replace + preceding-char with char-before. + + * utils/passwd.el (read-passwd-map): Clean up Ebola BS. + +1997-06-10 Steven L Baur <steve@altair.xemacs.org> + + * packages/supercite.el (sc-attribs-extract-namestring): Clean up + Ebola -- replace literal 32 with `?\ '. + + * utils/mail-extr.el (mail-extr-voodoo): Clean up Ebola -- replace + `following-char' with `char-after'. + +1997-06-10 Hrvoje Niksic <hniksic@srce.hr> + + * prim/subr.el (split-string): Make PATTERN optional. + +1997-06-11 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * mule/language/misc-lang.el, mule/mule-load.el, + mule/ipa-hooks.el: Use lisp/mule/language/misc-lang.el instead of + lisp/mule/ipa-hooks.el; mule/ipa-hooks.el was deleted. + +1997-06-10 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * mule/language/thai-util.el, mule/thai.el: Use + lisp/mule/language/thai-util.el instead of lisp/mule/thai.el; + lisp/mule/thai.el was deleted. + + * custom/wid-edit.el: Add widget `coding-system' for mule. + + * mule/thai-hooks.el, mule/mule-load.el: Use + lisp/mule/language/thai.el instead of lisp/mule/thai-hooks.el; + lisp/mule/thai-hooks.el was deleted. + + * mule/language/thai.el: modified for XEmacs. + +1997-06-09 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * mule/language/misc-lang.el, mule/language/thai-util.el, + mule/language/thai.el, mule/language/tibetan.el, + mule/language/vietnamese.el, mule/language/japan-util.el, + mule/language/japanese.el, mule/language/korean.el, + mule/language/lao-util.el, mule/language/lao.el, + mule/language/english.el, mule/language/ethiopic.el, + mule/language/european.el, mule/language/greek.el, + mule/language/hebrew.el, mule/language/indian.el, + mule/language/chinese.el, mule/language/cyrillic.el, + mule/language/devanagari.el, mule/language/china-util.el: imported + from Emacs/mule-19.34.94-zeta. + + * mule/mule-load.el, mule/chinese-hooks.el, mule/chinese.el, + mule/cyrillic-hooks.el, mule/european-hooks.el, + mule/greek-hooks.el, mule/japanese-hooks.el, mule/korean-hooks.el: + chinese-hooks.el, chinese.el, cyrillic-hooks.el, + european-hooks.el, greek-hooks.el, japanese-hooks.el and + korean-hooks.el were deleted. + +1997-06-08 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * apel/emu-x20.el (mime-charset-coding-system-alist): iso-8859-1, + hz-gb-2312, cn-gb-2312, gb2312, cn-big5 and koi8-r were defined as + coding-system. + 1997-06-09 Steven L Baur <steve@altair.xemacs.org> * prim/keydefs.el, modes/cc-mode.el, modes/cperl-mode.el, @@ -28,6 +185,13 @@ coding-system for compression. Suggested by Katsumi Yamaoka <yamaoka@ga.sony.co.jp> +1997-06-04 Gary D. Foster <Gary.Foster@corp.sun.com> + + * lisp/modes/cc-mode.el: Modified `c-electric-delete' to honor the + desired delete direction in both normal and "hungry" modes. + * lisp/modes/cperl-mode.el: Modified `cperl-electric-backspace' to + honor the desired delete direction. + 1997-06-03 MORIOKA Tomohiko <morioka@jaist.ac.jp> * x11/x-menubar.el (default-menubar): Add menu for Mule. @@ -39,6 +203,18 @@ * leim/quail.el: to avoid compiling warnings about overlay.el. +1997-05-16 Gary D. Foster <Gary.Foster@corp.sun.com> + + * lisp/prim/simple.el: Created `backspace-or-delete' function and + `backspace-or-delete-hook' + * lisp/prim/keydefs.el: Changed \177 bindings to point to new + delete function. + * lisp/modes/*.el: Removed conflicting \177 bindings. + * lisp/modes/cc-mode.el: Modified `c-electric-delete' to use new + delete bindings. + * lisp/modes/cperl-mode.el: Modified `cperl-electric-backspace' to + use new delete bindings. + 1997-06-03 MORIOKA Tomohiko <morioka@jaist.ac.jp> * leim/quail.el: to sync with quail.el of Emacs-19.34.94-epsilon.
--- a/lisp/apel/emu-x20.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/apel/emu-x20.el Mon Aug 13 09:41:43 2007 +0200 @@ -3,33 +3,32 @@ ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Version: $Id: emu-x20.el,v 1.1 1997/06/03 04:18:35 steve Exp $ +;; Version: $Id: emu-x20.el,v 1.2 1997/06/11 19:25:42 steve Exp $ ;; Keywords: emulation, compatibility, Mule, XEmacs ;; This file is part of XEmacs. -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. -;; This program is distributed in the hope that it will be useful, but +;; XEmacs is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. ;;; Commentary: -;; This module requires XEmacs 20.1 b12 or later with mule. +;; This module requires XEmacs 20.3-b5 or later with mule. ;;; Code: -(require 'cyrillic) (require 'emu-xemacs) @@ -111,13 +110,7 @@ (defvar default-mime-charset 'x-ctext) (defvar mime-charset-coding-system-alist - '((iso-8859-1 . ctext) - (x-ctext . ctext) - (hz-gb-2312 . hz) - (cn-gb-2312 . euc-china) - (gb2312 . euc-china) - (cn-big5 . big5) - (koi8-r . koi8) + '((x-ctext . ctext) (iso-2022-jp-2 . iso-2022-ss2-7) ))
--- a/lisp/custom/ChangeLog Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/custom/ChangeLog Mon Aug 13 09:41:43 2007 +0200 @@ -1,3 +1,7 @@ +1997-06-06 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * wid-edit.el: Add widget `coding-system' for mule. + Wed Jun 04 13:24:36 1997 Per Abrahamsen <abraham@dina.kvl.dk> * Version 1.9908 released.
--- a/lisp/custom/wid-edit.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/custom/wid-edit.el Mon Aug 13 09:41:43 2007 +0200 @@ -2666,6 +2666,41 @@ :prompt-history 'widget-variable-prompt-value-history :tag "Variable") +(when (featurep 'mule) + (defvar widget-coding-system-prompt-value-history nil + "History of input to `widget-coding-system-prompt-value'.") + + (define-widget 'coding-system 'symbol + "A MULE coding-system." + :format "%{%t%}: %v" + :tag "Coding system" + :prompt-history 'widget-coding-system-prompt-value-history + :prompt-value 'widget-coding-system-prompt-value + :action 'widget-coding-system-action) + + (defun widget-coding-system-prompt-value (widget prompt value unbound) + ;; Read coding-system from minibuffer. + (intern + (completing-read (format "%s (default %s) " prompt value) + (mapcar (function + (lambda (sym) + (list (symbol-name sym)) + )) + (coding-system-list))))) + + (defun widget-coding-system-action (widget &optional event) + ;; Read a file name from the minibuffer. + (let ((answer + (widget-coding-system-prompt-value + widget + (widget-apply widget :menu-tag-get) + (widget-value widget) + t))) + (widget-value-set widget answer) + (widget-apply widget :notify widget event) + (widget-setup))) + ) + (define-widget 'sexp 'editable-field "An arbitrary lisp expression." :tag "Lisp expression"
--- a/lisp/gnus/ChangeLog Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/gnus/ChangeLog Mon Aug 13 09:41:43 2007 +0200 @@ -1,3 +1,12 @@ +1997-06-10 Steven L Baur <steve@altair.xemacs.org> + + * nntp.el (nntp-wait-for): Replace following-char with char-after. + +1997-06-07 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * smiley.el (smiley-deformed-regexp-alist): Add Japanese smiley + faces. + 1997-06-09 Steven L Baur <steve@altair.xemacs.org> * gnus-msg.el (gnus-extended-version): Put XEmacs codename in
--- a/lisp/gnus/nntp.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/gnus/nntp.el Mon Aug 13 09:41:43 2007 +0200 @@ -189,7 +189,7 @@ (save-excursion (set-buffer (process-buffer process)) (goto-char (point-min)) - (while (or (not (memq (following-char) '(?2 ?3 ?4 ?5))) + (while (or (not (memq (char-after) '(?2 ?3 ?4 ?5))) (looking-at "480")) (when (looking-at "480") (erase-buffer)
--- a/lisp/gnus/smiley.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/gnus/smiley.el Mon Aug 13 09:41:43 2007 +0200 @@ -53,7 +53,13 @@ ;; two alists below. (defcustom smiley-deformed-regexp-alist - '(("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm") + '(("\\(\\^_?\\^;;;\\)\\W" 1 "Face_ase3.xbm") + ("\\(\\^_?\\^;;\\)\\W" 1 "Face_ase2.xbm") + ("\\(\\^_?\\^;\\)\\W" 1 "Face_ase.xbm") + ("\\(\\^_?\\^\\)\\W" 1 "Face_smile.xbm") + ("\\(\\;_;\\)\\W" 1 "Face_weep.xbm") + ("\\(\\T_T\\)\\W" 1 "Face_weep.xbm") + ("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm") ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm") ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm") ("\\(:-*[)>}»]+\\)\\W" 1 "FaceHappy.xpm")
--- a/lisp/ilisp/ilisp-def.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/ilisp/ilisp-def.el Mon Aug 13 09:41:43 2007 +0200 @@ -60,7 +60,7 @@ (defvar (, variable) (, default) (, documentation))))) ;;;%%Simple customization -(defvar ilisp-prefix "\C-z" "Prefix sequence for ilisp commands.") +(defvar ilisp-prefix "\C-c" "Prefix sequence for ilisp commands.") (deflocal ilisp-program nil "*Program and arguments for invoking an inferior LISP. The program
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/china-util.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,155 @@ +;;; china-util.el --- utilities for Chinese + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. + +;; Keywords: mule, multilingual, Chinese + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + +;; Hz/ZW encoding stuffs + +;; HZ is an encoding method for Chinese character set GB2312 used +;; widely in Internet. It is very similar to 7-bit environment of +;; ISO-2022. The difference is that HZ uses the sequence "~{" and +;; "~}" for designating GB2312 and ASCII respectively, hence, it +;; doesn't uses ESC (0x1B) code. + +;; ZW is another encoding method for Chinese character set GB2312. It +;; encodes Chinese characters line by line by starting each line with +;; the sequence "zW". It also uses only 7-bit as HZ. + +;; ISO-2022 escape sequence to designate GB2312. +(defvar iso2022-gb-designation "\e$A") +;; HZ escape sequence to designate GB2312. +(defvar hz-gb-designnation "~{") +;; ISO-2022 escape sequence to designate ASCII. +(defvar iso2022-ascii-designation "\e(B") +;; HZ escape sequence to designate ASCII. +(defvar hz-ascii-designnation "~}") +;; Regexp of ZW sequence to start GB2312. +(defvar zw-start-gb "^zW") +;; Regexp for start of GB2312 in an encoding mixture of HZ and ZW. +(defvar hz/zw-start-gb (concat hz-gb-designnation "\\|" zw-start-gb)) + +(defvar decode-hz-line-continuation nil + "Flag to tell if we should care line continuation convention of Hz.") + +;;;###autoload +(defun decode-hz-region (beg end) + "Decode HZ/ZW encoded text in the current region. +Return the length of resulting text." + (interactive "r") + (save-excursion + (save-restriction + (narrow-to-region beg end) + + ;; We, at first, convert HZ/ZW to `iso-2022-7', + ;; then decode it. + + ;; "~\n" -> "\n" + (goto-char (point-min)) + (while (search-forward "~" nil t) + (if (= (following-char) ?\n) (delete-char -1)) + (if (not (eobp)) (forward-char 1))) + + ;; "^zW...\n" -> Chinese GB2312 + ;; "~{...~}" -> Chinese GB2312 + (goto-char (point-min)) + (let ((chinese-found nil)) + (while (re-search-forward hz/zw-start-gb nil t) + (if (= (char-after (match-beginning 0)) ?z) + ;; ZW -> iso-20227-7 + (progn + (delete-char -2) + (insert iso2022-gb-designation) + (end-of-line) + (insert iso2022-ascii-designation)) + ;; HZ -> iso-20227-7 + (delete-char -2) + (insert iso2022-gb-designation) + (let ((pos (save-excursion (end-of-line) (point)))) + (if (search-forward hz-ascii-designnation pos t) + (replace-match iso2022-ascii-designation) + (if (not decode-hz-line-continuation) + (insert iso2022-ascii-designation))))) + (setq chinese-found t)) + (if (or chinese-found + (let ((enable-multibyte-characters nil)) + ;; Here we check if the text contains EUC (China) codes. + ;; If any, we had better decode them also. + (goto-char (point-min)) + (re-search-forward "[\240-\377]" nil t))) + (decode-coding-region (point-min) (point-max) 'cn-gb-2312))) + + ;; "~~" -> "~" + (goto-char (point-min)) + (while (search-forward "~~" nil t) (delete-char -1)) + (- (point-max) (point-min))))) + +;;;###autoload +(defun decode-hz-buffer () + "Decode HZ/ZW encoded text in the current buffer." + (interactive) + (decode-hz-region (point-min) (point-max))) + +;;;###autoload +(defun encode-hz-region (beg end) + "Encode the text in the current region to HZ. +Return the length of resulting text." + (interactive "r") + (save-excursion + (save-restriction + (narrow-to-region beg end) + + ;; "~" -> "~~" + (goto-char (point-min)) + (while (search-forward "~" nil t) (insert ?~)) + + ;; Chinese GB2312 -> "~{...~}" + (goto-char (point-min)) + (if (re-search-forward "\\cc" nil t) + (let ((enable-multibyte-characters nil) + pos) + (goto-char (setq pos (match-beginning 0))) + (encode-coding-region pos (point-max) 'iso-2022-7) + (goto-char pos) + (while (search-forward iso2022-gb-designation nil t) + (delete-char -3) + (insert hz-gb-designnation)) + (goto-char pos) + (while (search-forward iso2022-ascii-designation nil t) + (delete-char -3) + (insert hz-ascii-designnation)))) + (- (point-max) (point-min))))) + +;;;###autoload +(defun encode-hz-buffer () + "Encode the text in the current buffer to HZ." + (interactive) + (encode-hz-region (point-min) (point-max))) + +;; +(provide 'language/china-util) + +;;; Local Variables: +;;; generated-autoload-file: "../loaddefs.el" +;;; End: +;;; china-util.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/chinese.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,426 @@ +;;; chinese.el --- Support for Chinese + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 MORIOKA Tomohiko + +;; Keywords: multilingual, Chinese + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Commentary: + +;; For Chinese, three character sets GB2312, BIG5, and CNS11643 are +;; supported. + +;;; Code: + +;; Syntax of Chinese characters. +(modify-syntax-entry 'chinese-gb2312 "w") +(loop for row in '(33 34 41) + do (modify-syntax-entry `[chinese-gb2312 ,row] ".")) +;;(loop for row from 35 to 40 +;; do (modify-syntax-entry `[chinese-gb2312 ,row] "w")) +;;(loop for row from 42 to 126 +;; do (modify-syntax-entry `[chinese-gb2312 ,row] "w")) + +(modify-syntax-entry 'chinese-cns11643-1 "w") +(modify-syntax-entry 'chinese-cns11643-2 "w") +(modify-syntax-entry 'chinese-big5-1 "w") +(modify-syntax-entry 'chinese-big5-2 "w") + +;; CNS11643 Plane3 thru Plane7 +;; These represent more and more obscure Chinese characters. +;; By the time you get to Plane 7, we're talking about characters +;; that appear once in some ancient manuscript and whose meaning +;; is unknown. + +(flet + ((make-chinese-cns11643-charset + (name plane final) + (make-charset + name (concat "Chinese CNS Plane " plane) + `(registry + ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$") + dimension 2 + chars 94 + final ,final + graphic 0)) + (modify-syntax-entry name "w") + (modify-category-entry name ?t) + )) + (make-chinese-cns11643-charset 'chinese-cns11643-3 "3" ?I) + (make-chinese-cns11643-charset 'chinese-cns11643-4 "4" ?J) + (make-chinese-cns11643-charset 'chinese-cns11643-5 "5" ?K) + (make-chinese-cns11643-charset 'chinese-cns11643-6 "6" ?L) + (make-chinese-cns11643-charset 'chinese-cns11643-7 "7" ?M) + ) + +;; PinYin-ZhuYin +(make-charset 'sisheng "PinYin-ZhuYin" + '(registry "sisheng_cwnn\\|OMRON_UDC_ZH" + dimension 1 + chars 94 + final ?0 + graphic 0 + )) + +;; If you prefer QUAIL to EGG, please modify below as you wish. +;;(when (and (featurep 'egg) (featurep 'wnn)) +;; (setq wnn-server-type 'cserver) +;; (load "its/pinyin") +;; (setq its:*standard-modes* +;; (cons (its:get-mode-map "PinYin") its:*standard-modes*))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Chinese (general) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;; (make-coding-system +;; 'iso-2022-cn 2 ?C +;; "Coding system ISO-2022-CN for Chinese (GB and CNS character sets)." +;; '(ascii +;; (nil chinese-gb2312 chinese-cns11643-1) +;; (nil chinese-cns11643-2) +;; (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5 +;; chinese-cns11643-6 chinese-cns11643-7) +;; nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil +;; init-bol)) + +;; (define-coding-system-alias 'iso-2022-cn 'iso-2022-cn-ext) + +(defun describe-chinese-support () + "Describe how Emacs supports Chinese." + (interactive) + (with-output-to-temp-buffer "*Help*" + (princ (get-language-info "Chinese" 'documentation)) + (princ "\n"))) + +(set-language-info-alist + "Chinese" '((describe-function . describe-chinese-support) + (documentation . "\ +Emacs provides the following three kinds of Chinese support: + Chinese-GB: for users of the charset GB2312 + Chinese-BIG5: for users of the charset Big5 + Chinese-CNS: for users of the charset CNS11643 family +Please specify one of them to get more information.") + )) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Chinese GB2312 (simplified) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;; (make-coding-system +;; 'cn-gb-2312 2 ?C +;; "Coding-system of Chinese EUC (so called GB Encoding)." +;; '((ascii t) chinese-gb2312 chinese-sisheng nil +;; nil ascii-eol ascii-cntl nil nil single-shift nil)) + +(make-coding-system + 'cn-gb-2312 'iso2022 + "Coding-system of Chinese EUC (Extended Unix Code)." + '(charset-g0 ascii + charset-g1 chinese-gb2312 + charset-g2 sisheng + charset-g3 t + mnemonic "Zh-GB/EUC" + )) + +;;(define-coding-system-alias 'cn-gb-2312 'euc-china) + +(copy-coding-system 'cn-gb-2312 'gb2312) +(copy-coding-system 'cn-gb-2312 'chinese-euc) + +;; (make-coding-system +;; 'hz-gb-2312 0 ?z +;; "Codins-system of Hz/ZW used for Chinese (GB)." +;; nil) +;; (put 'hz-gb-2312 'post-read-conversion 'post-read-decode-hz) +;; (put 'hz-gb-2312 'pre-write-conversion 'pre-write-encode-hz) + +(make-coding-system + 'hz-gb-2312 'no-conversion + "Coding-system of Hz/ZW used for Chinese." + '(mnemonic "Zh-GB/Hz" + eol-type lf + post-read-conversion post-read-decode-hz + pre-write-conversion pre-write-encode-hz)) + +;; (define-coding-system-alias 'hz-gb-2312 'hz) + +(copy-coding-system 'hz-gb-2312 'hz) +(copy-coding-system 'hz-gb-2312 'chinese-hz) + +(defun post-read-decode-hz (len) + (let ((pos (point))) + (decode-hz-region pos (+ pos len)))) + +(defun pre-write-encode-hz (from to) + (let ((buf (current-buffer)) + (work (get-buffer-create " *pre-write-encoding-work*"))) + (set-buffer work) + (erase-buffer) + (if (stringp from) + (insert from) + (insert-buffer-substring buf from to)) + (encode-hz-region 1 (point-max)) + nil)) + +(register-input-method + "Chinese-GB" '("quail-ccdospy" quail-use-package "quail/ccdospy")) +(register-input-method + "Chinese-GB" '("quail-ctlau" quail-use-package "quail/ctlau")) +(register-input-method + "Chinese-GB" '("quail-punct" quail-use-package "quail/punct")) +(register-input-method + "Chinese-GB" '("quail-qj" quail-use-package "quail/qj")) +(register-input-method + "Chinese-GB" '("quail-sw" quail-use-package "quail/sw")) +(register-input-method + "Chinese-GB" '("quail-ziranma" quail-use-package "quail/ziranma")) +(register-input-method + "Chinese-GB" '("quail-tonepy" quail-use-package "quail/tonepy")) +(register-input-method + "Chinese-GB" '("quail-py" quail-use-package "quail/py")) + +(defun setup-chinese-gb-environment () + "Setup multilingual environment (MULE) for Chinese GB2312 users." + (interactive) + (setq primary-language "Chinese-GB") + + (setq coding-category-iso-8-2 'cn-gb-2312) + (setq coding-category-iso-else 'iso-2022-cn) + (setq coding-category-big5 'cn-big5) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-else + coding-category-iso-8-2 + coding-category-big5 + coding-category-iso-8-1 + coding-category-internal + )) + + (setq-default buffer-file-coding-system 'cn-gb-2312) + (set-terminal-coding-system 'cn-gb-2312) + (set-keyboard-coding-system 'cn-gb-2312) + + (setq default-input-method '("Chinese-GB" . "quail-py")) + ) + +(defun describe-chinese-gb-support () + "Describe how Emacs supports Chinese for GB2312 users." + (interactive) + (describe-language-support-internal "Chinese-GB")) + +(set-language-info-alist + "Chinese-GB" '((setup-function . setup-chinese-gb-environment) + (describe-function . describe-chinese-gb-support) + (charset . (chinese-gb2312 chinese-sisheng)) + (coding-system . (cn-gb-2312 hz-gb-2312 iso-2022-cn)) + (sample-text . "Chinese ($AVPND(B,$AFUM(;0(B,$A::So(B) $ADc:C(B") + (documentation . nil))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Chinese BIG5 (traditional) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;; (make-coding-system +;; 'big5 3 ?B +;; "Coding-system of BIG5.") + +;;(define-coding-system-alias 'big5 'cn-big5) + +(make-coding-system + 'big5 'big5 + "Coding-system of BIG5." + '(mnemonic "Zh/Big5")) + +(copy-coding-system 'big5 'cn-big5) +(copy-coding-system 'big5 'chinese-big5) + +;; Big5 font requires special encoding. +;; (define-ccl-program ccl-encode-big5-font +;; `(0 +;; ;; In: R0:chinese-big5-1 or chinese-big5-2 +;; ;; R1:position code 1 +;; ;; R2:position code 2 +;; ;; Out: R1:font code point 1 +;; ;; R2:font code point 2 +;; ((r2 = ((((r1 - ?\x21) * 94) + r2) - ?\x21)) +;; (if (r0 == ,(charset-id 'chinese-big5-2)) (r2 += 6280)) +;; (r1 = ((r2 / 157) + ?\xA1)) +;; (r2 %= 157) +;; (if (r2 < ?\x3F) (r2 += ?\x40) (r2 += ?\x62)))) +;; "CCL program to encode a Big5 code to code point of Big5 font.") + +;; (setq font-ccl-encoder-alist +;; (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist)) + +(define-ccl-program ccl-encode-big5-1-font + '(((r1 = ((((r0 - #x21) * 94) + r1) - #x21)) + (r0 = ((r1 / 157) + #xA1)) + (r1 %= 157) + (if (r1 < #x3F) (r1 += #x40) (r1 += #x62)))) + "CCL program to encode a Big5 code (level1) to code point of Big5 font.") + +;; 6280 is the number of characters that got shoved into `chinese-big5-1'. +(define-ccl-program ccl-encode-big5-2-font + '(((r1 = (((((r0 - #x21) * 94) + r1) - #x21) + 6280)) + (r0 = ((r1 / 157) + #xA1)) + (r1 %= 157) + (if (r1 < #x3F) (r1 += #x40) (r1 += #x62)))) + "CCL program to encode a Big5 code (level2) to code point of Big5 font.") + +(set-charset-ccl-program 'chinese-big5-1 ccl-encode-big5-1-font) +(set-charset-ccl-program 'chinese-big5-2 ccl-encode-big5-2-font) + +(register-input-method + "Chinese-BIG5" '("quail-qj-b5" quail-use-package "quail/qj-b5")) +(register-input-method + "Chinese-BIG5" '("quail-zozy" quail-use-package "quail/zozy")) +(register-input-method + "Chinese-BIG5" '("quail-tsangchi-b5" quail-use-package "quail/tsangchi-b5")) +(register-input-method + "Chinese-BIG5" '("quail-py-b5" quail-use-package "quail/py-b5")) +(register-input-method + "Chinese-BIG5" '("quail-quick-b5" quail-use-package "quail/quick-bt")) +(register-input-method + "Chinese-BIG5" '("quail-etzy" quail-use-package "quail/etzy")) +(register-input-method + "Chinese-BIG5" '("quail-ecdict" quail-use-package "quail/ecdict")) +(register-input-method + "Chinese-BIG5" '("quail-ctlaub" quail-use-package "quail/ctlaub")) +(register-input-method + "Chinese-BIG5" '("quail-array30" quail-use-package "quail/array30")) +(register-input-method + "Chinese-BIG5" '("quail-4corner" quail-use-package "quail/4corner")) + +(defun setup-chinese-big5-environment () + "Setup multilingual environment (MULE) for Chinese Big5 users." + (interactive) + (setq primary-language "Chinese-BIG5") + + (setq coding-category-big5 'cn-big5) + (setq coding-category-iso-else 'iso-2022-cn) + (setq coding-category-iso-8-2 'cn-gb-2312) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-else + coding-category-big5 + coding-category-iso-8-2)) + + (setq-default buffer-file-coding-system 'cn-big5) + (set-terminal-coding-system 'cn-big5) + (set-keyboard-coding-system 'cn-big5) + + (setq default-input-method '("Chinese-BIG5" . "quail-py-b5")) + ) + +(defun describe-chinese-big5-support () + "Describe how Emacs supports Chinese for Big5 users." + (interactive) + (describe-language-support-internal "Chinese-BIG5")) + +(set-language-info-alist + "Chinese-BIG5" '((setup-function . setup-chinese-big5-environment) + (describe-function . describe-chinese-big5-support) + (charset . (chinese-big5-1 chinese-big5-2)) + (coding-system . (cn-big5 iso-2022-cn)) + (sample-text . "Cantonese ($(0GnM$(B,$(0N]0*Hd(B) $(0*/=((B, $(0+$)p(B") + (documentation . nil))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Chinese CNS11643 (traditional) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(register-input-method + "Chinese-CNS" '("quail-quick-cns" quail-use-package "quail/quick-cns")) +(register-input-method + "Chinese-CNS" '("quail-tsangchi-cns" quail-use-package "quail/tsangchi-cns")) + +(defun setup-chinese-cns-environment () + "Setup multilingual environment (MULE) for Chinese CNS11643 family users." + (interactive) + (setq primary-language "Chinese-CNS") + + (setq coding-category-iso-else 'iso-2022-cn) + (setq coding-category-big5 'cn-big5) + (setq coding-category-iso-8-2 'cn-gb-2312) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-else + coding-category-iso-8-2 + coding-category-big5)) + + (setq-default buffer-file-coding-system 'iso-2022-cn) + (set-terminal-coding-system 'iso-2022-cn) + (set-keyboard-coding-system 'iso-2022-cn) + + (setq default-input-method '("Chinese-CNS" . "quail-py-cns")) + ) + +(defun describe-chinese-cns-support () + "Describe how Emacs supports Chinese for CNS11643 family users." + (interactive) + (describe-language-support-internal "Chinese-CNS")) + +(set-language-info-alist + "Chinese-CNS" '((setup-function . setup-chinese-cns-environment) + (describe-function . describe-chinese-cns-support) + (charset . (chinese-cns11643-1 chinese-cns11643-2 + chinese-cns11643-3 chinese-cns11643-4 + chinese-cns11643-5 chinese-cns11643-6 + chinese-cns11643-7)) + (coding-system . (iso-2022-cn)) + (documentation . nil))) + + +;;; for XEmacs (will be obsoleted) + +(define-language-environment 'chinese + "Chinese (includes GB, Big5, and CNS)" + (lambda () + (require 'chinese) + (set-coding-category-system 'iso-8-2 'cn-gb-2312) + (set-coding-priority-list '(iso-8-2 big5 iso-8-designate)) + (set-pathname-coding-system 'cn-gb-2312) + (set-default-buffer-file-coding-system 'cn-gb-2312) ; GB encoding + (setq terminal-coding-system 'cn-gb-2312) + (setq keyboard-coding-system 'cn-gb-2312) + (add-hook 'comint-exec-hook + (lambda () + (let ((proc (get-buffer-process (current-buffer)))) + (set-process-input-coding-system proc 'cn-gb-2312) + (set-process-output-coding-system proc 'cn-gb-2312)))) + (set-buffer-file-coding-system-for-read 'automatic-conversion) + (set-default-buffer-file-coding-system 'cn-gb-2312) + (setq keyboard-coding-system 'cn-gb-2312) + (setq terminal-coding-system 'cn-gb-2312) + (when (eq 'x (device-type (selected-device))) + (x-use-halfwidth-roman-font 'chinese-gb2312 "gb1988")))) +;; (when (featurep 'egg) +;; (setq-default its:*current-map* (its:get-mode-map "PinYin"))) +;; (setq-default quail-current-package (assoc "py" quail-package-alist)))) +;; )) + +(set-coding-category-system 'big5 'big5) + +;;; chinese.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/cyrillic.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,261 @@ +;;; cyrillic.el --- Support for languages which use Cyrillic characters + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 MORIOKA Tomohiko + +;; Keywords: multilingual, Cyrillic + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Commentary: + +;; The character set ISO8859-5 is supported. KOI-8 and ALTERNATIVNYJ +;; are converted to ISO8859-5 internally. + +;;; Code: + +;; For syntax of Cyrillic +(modify-syntax-entry 'cyrillic-iso8859-5 "w") +(modify-syntax-entry ?,L-(B ".") +(modify-syntax-entry ?,Lp(B ".") +(modify-syntax-entry ?,L}(B ".") + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; CYRILLIC +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(define-language-environment 'cyrillic + "Cyrillic" + (lambda () + (set-coding-category-system 'iso-8-designate 'iso-8859-5) + (set-coding-priority-list '(iso-8-designate iso-8-1)) + (set-default-buffer-file-coding-system 'iso-8859-5) + (setq terminal-coding-system 'iso-8859-5) + (setq keyboard-coding-system 'iso-8859-5) + ;; (setq-default quail-current-package + ;; (assoc "yawerty" quail-package-alist)) + )) + +;; ISO-8859-5 staff + +;; (make-coding-system +;; 'iso-8859-5 2 ?5 "MIME ISO-8859-5" +;; '((ascii t) (cyrillic-iso8859-5 t) nil nil +;; nil ascii-eol ascii-cntl nil nil nil nil)) + +(make-coding-system + 'iso-8859-5 'iso2022 + "MIME ISO-8859-5" + '(charset-g0 ascii + charset-g1 cyrillic-iso8859-5 + charset-g2 t + charset-g3 t + mnemonic "ISO8/Cyr" + )) + +;; KOI-8 staff + +(define-ccl-program ccl-decode-koi8 + '(((read r0) + (loop + (write-read-repeat + r0 + [0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 + 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 + 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 + 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 + 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 + 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 + 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 + 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 + 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 + 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 + 32 32 32 ?,Lq(B 32 32 32 32 32 32 32 32 32 32 32 32 + 32 32 32 ?,L!(B 32 32 32 32 32 32 32 32 32 32 32 32 + ?,Ln(B ?,LP(B ?,LQ(B ?,Lf(B ?,LT(B ?,LU(B ?,Ld(B ?,LS(B ?,Le(B ?,LX(B ?,LY(B ?,LZ(B ?,L[(B ?,L\(B ?,L](B ?,L^(B + ?,L_(B ?,Lo(B ?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,LV(B ?,LR(B ?,Ll(B ?,Lk(B ?,LW(B ?,Lh(B ?,Lm(B ?,Li(B ?,Lg(B ?,Lj(B + ?,LN(B ?,L0(B ?,L1(B ?,LF(B ?,L4(B ?,L5(B ?,LD(B ?,L3(B ?,LE(B ?,L8(B ?,L9(B ?,L:(B ?,L;(B ?,L<(B ?,L=(B ?,L>(B + ?,L?(B ?,LO(B ?,L@(B ?,LA(B ?,LB(B ?,LC(B ?,L6(B ?,L2(B ?,LL(B ?,LK(B ?,L7(B ?,LH(B ?,LM(B ?,LI(B ?,LG(B ?,LJ(B ])))) + "CCL program to decode KOI8.") + +(define-ccl-program ccl-encode-koi8 + '(((read r0) + (loop + (if (r0 != 140) ; lc-crl == 140 + (write-read-repeat r0) + ((read r0) + (r0 -= 160) + (write-read-repeat + r0 + [ 32 179 32 32 32 32 32 32 32 32 32 32 32 32 32 32 + 225 226 247 231 228 229 246 250 233 234 235 236 237 238 239 240 + 242 243 244 245 230 232 227 254 251 253 255 249 248 252 224 241 + 193 194 215 199 196 197 214 218 201 202 203 204 205 206 207 208 + 210 211 212 213 198 200 195 222 219 221 223 217 216 220 192 209 + 32 163 32 32 32 32 32 32 32 32 32 32 32 32 32 32]) + ))))) + "CCL program to encode KOI8.") + +;; (make-coding-system +;; 'koi8-r 4 +;; ?K "Coding-system used for KOI8." +;; (cons ccl-decode-koi8 ccl-encode-koi8)) + +(make-coding-system + 'koi8-r 'ccl + "Coding-system used for KOI8." + `(decode ,ccl-decode-koi8 + encode ,ccl-encode-koi8 + mnemonic "KOI8")) + +;;(define-coding-system-alias 'koi8-r 'koi8) + +(define-ccl-program ccl-encode-koi8-font + '(((r1 -= 160) + (r1 = r1 + [ 32 179 32 32 32 32 32 32 32 32 32 32 32 32 32 32 + 225 226 247 231 228 229 246 250 233 234 235 236 237 238 239 240 + 242 243 244 245 230 232 227 254 251 253 255 249 248 252 224 241 + 193 194 215 199 196 197 214 218 201 202 203 204 205 206 207 208 + 210 211 212 213 198 200 195 222 219 221 223 217 216 220 192 209 + 32 163 32 32 32 32 32 32 32 32 32 32 32 32 32 32]) + )) + "CCL program to encode Cyrillic chars to KOI font.") + +;; (setq font-ccl-encoder-alist +;; (cons (cons "koi8" ccl-encode-koi8-font) font-ccl-encoder-alist)) + +;;; ALTERNATIVNYJ staff + +(define-ccl-program ccl-decode-alternativnyj + '(((read r0) + (loop + (write-read-repeat + r0 + [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 + 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 + 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 + 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 + 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 + 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 + 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 + 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 + ?,L0(B ?,L1(B ?,L2(B ?,L3(B ?,L4(B ?,L5(B ?,L6(B ?,L7(B ?,L8(B ?,L9(B ?,L:(B ?,L;(B ?,L<(B ?,L=(B ?,L>(B ?,L?(B + ?,L@(B ?,LA(B ?,LB(B ?,LC(B ?,LD(B ?,LE(B ?,LF(B ?,LG(B ?,LH(B ?,LI(B ?,LJ(B ?,LK(B ?,LL(B ?,LM(B ?,LN(B ?,LO(B + ?,LP(B ?,LQ(B ?,LR(B ?,LS(B ?,LT(B ?,LU(B ?,LV(B ?,LW(B ?,LX(B ?,LY(B ?,LZ(B ?,L[(B ?,L\(B ?,L](B ?,L^(B ?,L_(B + 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 + 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 + 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 + ?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,Ld(B ?,Le(B ?,Lf(B ?,Lg(B ?,Lh(B ?,Li(B ?,Lj(B ?,Lk(B ?,Ll(B ?,Lm(B ?,Ln(B ?,Lo(B + ?,L!(B ?,Lq(B 32 32 32 32 32 32 32 32 32 32 32 32 32 ?,Lp(B])))) + "CCL program to decode Alternativnyj.") + +(define-ccl-program ccl-encode-alternativnyj + '(((read r0) + (loop + (if (r0 != 140) ; lc-crl == 140 + (write-read-repeat r0) + ((read r0) + (r0 -= 160) + (write-read-repeat + r0 + [ 32 240 32 32 32 32 32 32 32 32 32 32 32 32 32 32 + 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 + 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 + 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 + 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 + 255 241 32 32 32 32 32 32 32 32 32 32 32 32 32 32]) + ))))) + "CCL program to encode Alternativnyj.") + +;; (make-coding-system +;; 'alternativnyj 4 +;; ?A "Coding-system used for Alternativnyj" +;; (cons ccl-decode-alternativnyj ccl-encode-alternativnyj)) + +(make-coding-system + 'alternativnyj 'ccl + "Coding-system used for Alternativnyj" + `(decode ,ccl-decode-alternativnyj + encode ,ccl-encode-alternativnyj + mnemonic "Cy.Alt")) + +(define-ccl-program ccl-encode-alternativnyj-font + '(((r1 -= 160) + (r1 = r1 + [ 32 240 32 32 32 32 32 32 32 32 32 32 32 32 32 32 + 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 + 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 + 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 + 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 + 255 241 32 32 32 32 32 32 32 32 32 32 32 32 32 32]) + )) + "CCL program to encode Cyrillic chars to Alternativnyj font.") + +;; (setq font-ccl-encoder-alist +;; (cons (cons "alternativnyj" ccl-encode-alternativnyj-font) +;; font-ccl-encoder-alist)) + +;;; GENERAL + +(register-input-method + "Cyrillic" '("quail-jcuken" quail-use-package "quail/cyrillic")) +(register-input-method + "Cyrillic" '("quail-macedonian" quail-use-package "quail/cyrillic")) +(register-input-method + "Cyrillic" '("quail-serbian" quail-use-package "quail/cyrillic")) +(register-input-method + "Cyrillic" '("quail-beylorussian" quail-use-package "quail/cyrillic")) +(register-input-method + "Cyrillic" '("quail-ukrainian" quail-use-package "quail/cyrillic")) +(register-input-method + "Cyrillic" '("quail-yawerty" quail-use-package "quail/cyrillic")) + +(defun setup-cyrillic-environment () + "Setup multilingual environment for Cyrillic users." + (interactive) + (setq primary-language "Cyrillic") + + (setq coding-category-iso-8-1 'iso-8859-5) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-1)) + + (setq-default buffer-file-coding-system 'iso-8859-5) + (set-terminal-coding-system 'iso-8859-5) + (set-keyboard-coding-system 'iso-8859-5) + + (setq default-input-method '("Cyrillic" . "quail-yawerty")) + ) + +(defun describe-cyrillic-support () + "Describe how Emacs support Cyrillic." + (interactive) + (describe-language-support-internal "Cyrillic")) + +(set-language-info-alist + "Cyrillic" '((setup-function . setup-cyrillic-environment) + (describe-function . describe-cyrillic-support) + (charset . (cyrillic-iso8859-5)) + (coding-system . (iso-8859-5 koi8 alternativnyj)) + (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") + (documentation . nil))) + +;;; cyrillic.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/devanagari.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,533 @@ +;;; devanagari.el --- Support for Devanagari Languages + +;; Copyright (C) 1996 Free Software Foundation, Inc. + +;; Author: KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp> + +;; Keywords: multilingual, Indian, Devanagari + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;; History: +;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp> +;; 1997.1.20 fixed some bugs. +;;; Code: + +(make-coding-system + 'in-is13194-devanagari 2 ?D + "Coding-system used for ASCII(MSB=0) & IS13194-Devanagari(MSB=1)." + '((ascii t) (indian-is13194 t) nil nil + nil ascii-eol)) +devanagari-compose-from-is13194-region +(put 'in-is13194-devanagari + 'post-read-conversion 'in-is13194-devanagari-post-read-conversion) +(put 'in-is13194-devanagari + 'pre-write-conversion 'in-is13194-devanagari-pre-write-conversion) + +(register-input-method + "Devanagari" '("quail-devanagari-transliteration" quail-use-package + "quail/devanagari")) + +(register-input-method + "Devanagari" '("quail-devanagari-keyboard-a" quail-use-package + "quail/devanagari")) + +(register-input-method + "Devanagari" '("quail-devanagari-itrans" quail-use-package + "quail/devanagari")) + +(register-input-method + "Devanagari" '("quail-devanagari-hindi-transliteration" quail-use-package + "quail/devanagari")) + +(defun setup-devanagari-environment () + "Setup multilingual environment (MULE) for languages using Devanagari." + (interactive) + (setq coding-category-iso-8-1 'in-is13194-devanagari) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-1)) + + (setq-default buffer-file-coding-system 'in-is13194-devanagari) + + (setq default-input-method '("Devanagari" . "quail-devanagari-itrans")) + ) + +(defun describe-devanagari-support () + "Describe how Emacs support languages using Devanagari script." + (interactive) + (describe-language-support-internal "Devanagari")) + +(set-language-info-alist + "Devanagari" '((setup-function . setup-devanagari-environment) + (describe-function . describe-devanagari-support) + (charset . (indian-is13194 indian-2-column indian-1-column)) + (coding-system . (in-is13194-devanagari)) + (documentation . nil))) + +;; +;; Devanagari Glyph List +;; +;; 0 1 2 3 4 5 6 7 8 9 a b c d e f +;;2120 $(5!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B +;;2130 $(5!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B +;;2140 $(5!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B +;;2150 $(5!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B +;;2160 $(5!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B +;;2170 $(5!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B +;; +;; 0 1 2 3 4 5 6 7 8 9 a b c d e f +;;2220 $(5"!"""#"$"%"&"'"(")"*"+","-"."/(B +;;2230 $(5"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B +;;2240 $(5"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B +;;2250 $(5"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B +;;2260 $(5"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B +;;2270 $(5"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B +;; +;; 0 1 2 3 4 5 6 7 8 9 a b c d e f +;;2320 $(5#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B +;;2330 $(5#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B +;;2340 $(5#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B +;;2350 $(5#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B +;;2360 $(5#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B +;;2370 $(5#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B +;; +;; 0 1 2 3 4 5 6 7 8 9 a b c d e f +;;2420 $(5$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B +;;2430 $(5$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B +;;2440 $(5$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B +;;2450 $(5$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B +;;2460 $(5$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B +;;2470 $(5$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B +;; +;; 0123456789abcdef +;;2120 $(6!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B +;;2130 $(6!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B +;;2140 $(6!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B +;;2150 $(6!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B +;;2160 $(6!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B +;;2170 $(6!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B +;; +;; 0123456789abcdef +;;2220 $(6"!"""#"$"%"&"'"(")"*"+","-"."/(B +;;2230 $(6"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B +;;2240 $(6"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B +;;2250 $(6"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B +;;2260 $(6"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B +;;2270 $(6"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B +;;2320 $(6#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B +;;2330 $(6#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B +;;2340 $(6#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B +;;2350 $(6#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B +;;2360 $(6#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B +;;2370 $(6#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B +;; +;; 0123456789abcdef +;;2320 $(6$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B +;;2430 $(6$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B +;;2440 $(6$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B +;;2450 $(6$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B +;;2460 $(6$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B +;;2470 $(6$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B +;; +;; +;; Modify the following table if you change the set of 1-column font. +;; +(defconst devanagari-1-column-char + '((?$(5!!(B . ?$(6!!(B) + (?$(5!"(B . ?$(6!"(B) + (?$(5!#(B . ?$(6!#(B) + (?$(5!$(B . nil) + (?$(5!%(B . nil) + (?$(5!&(B . ?$(6!&(B) + (?$(5!'(B . ?$(6!'(B) + (?$(5!((B . ?$(6!((B) + (?$(5!)(B . nil) + (?$(5!*(B . nil) + (?$(5!+(B . nil) + (?$(5!,(B . nil) + (?$(5!-(B . nil) + (?$(5!.(B . nil) + (?$(5!/(B . nil) + (?$(5!0(B . nil) + (?$(5!1(B . nil) + (?$(5!2(B . nil) + (?$(5!3(B . nil) + (?$(5!4(B . nil) + (?$(5!5(B . ?$(6!5(B) + (?$(5!6(B . nil) + (?$(5!7(B . nil) + (?$(5!8(B . nil) + (?$(5!9(B . nil) + (?$(5!:(B . nil) + (?$(5!;(B . nil) + (?$(5!<(B . nil) + (?$(5!=(B . ?$(6!=(B) + (?$(5!>(B . ?$(6!>(B) + (?$(5!?(B . ?$(6!?(B) + (?$(5!@(B . ?$(6!@(B) + (?$(5!A(B . nil) + (?$(5!B(B . ?$(6!B(B) + (?$(5!C(B . ?$(6!C(B) + (?$(5!D(B . ?$(6!D(B) + (?$(5!E(B . ?$(6!E(B) + (?$(5!F(B . ?$(6!F(B) + (?$(5!G(B . ?$(6!G(B) + (?$(5!H(B . ?$(6!H(B) + (?$(5!I(B . nil) + (?$(5!J(B . ?$(6!J(B) + (?$(5!K(B . ?$(6!K(B) + (?$(5!L(B . ?$(6!L(B) + (?$(5!M(B . ?$(6!M(B) + (?$(5!N(B . ?$(6!N(B) + (?$(5!O(B . ?$(6!O(B) + (?$(5!P(B . ?$(6!P(B) + (?$(5!Q(B . nil) + (?$(5!R(B . nil) + (?$(5!S(B . nil) + (?$(5!T(B . ?$(6!T(B) + (?$(5!U(B . nil) + (?$(5!V(B . ?$(6!V(B) + (?$(5!W(B . ?$(6!W(B) + (?$(5!X(B . ?$(6!X(B) + (?$(5!Y(B . nil) + (?$(5!Z(B . ?$(6!Z(B) + (?$(5![(B . ?$(6![(B) + (?$(5!\(B . ?$(6!\(B) + (?$(5!](B . ?$(6!](B) + (?$(5!^(B . ?$(6!^(B) + (?$(5!_(B . ?$(6!_(B) + (?$(5!`(B . ?$(6!`(B) + (?$(5!a(B . ?$(6!a(B) + (?$(5!b(B . ?$(6!b(B) + (?$(5!c(B . ?$(6!c(B) + (?$(5!d(B . ?$(6!d(B) + (?$(5!e(B . ?$(6!e(B) + (?$(5!f(B . ?$(6!f(B) + (?$(5!g(B . ?$(6!g(B) + (?$(5!h(B . ?$(6!h(B) + (?$(5!i(B . ?$(6!i(B) + (?$(5!j(B . ?$(6!j(B) + (nil . nil) + (nil . nil) + (nil . nil) + (nil . nil) + (nil . nil) + (nil . nil) + (?$(5!q(B . ?$(6!q(B) + (?$(5!r(B . ?$(6!r(B) + (?$(5!s(B . ?$(6!s(B) + (?$(5!t(B . ?$(6!t(B) + (?$(5!u(B . ?$(6!u(B) + (?$(5!v(B . ?$(6!v(B) + (?$(5!w(B . ?$(6!w(B) + (?$(5!x(B . ?$(6!x(B) + (?$(5!y(B . ?$(6!y(B) + (?$(5!z(B . ?$(6!z(B) + (nil . nil) + (nil . nil) + (nil . nil) + (nil . nil) + (?$(5"!(B . nil) + (?$(5""(B . nil) + (?$(5"#(B . nil) + (?$(5"$(B . ?$(6"$(B) + (?$(5"%(B . ?$(6"%(B) + (?$(5"&(B . ?$(6"&(B) + (?$(5"'(B . nil) + (?$(5"((B . nil) + (?$(5")(B . nil) + (?$(5"*(B . nil) + (?$(5"+(B . nil) + (?$(5",(B . ?$(6",(B) + (?$(5"-(B . nil) + (?$(5".(B . ?$(6".(B) + (?$(5"/(B . nil) + (?$(5"0(B . nil) + (?$(5"1(B . nil) + (?$(5"2(B . nil) + (?$(5"3(B . ?$(6"3(B) + (?$(5"4(B . ?$(6"4(B) + (?$(5"5(B . ?$(6"5(B) + (?$(5"6(B . ?$(6"6(B) + (?$(5"7(B . nil) + (?$(5"8(B . ?$(6"8(B) + (?$(5"9(B . nil) + (?$(5":(B . ?$(6":(B) + (?$(5";(B . ?$(6";(B) + (?$(5"<(B . ?$(6"<(B) + (?$(5"=(B . nil) + (?$(5">(B . nil) + (?$(5"?(B . nil) + (?$(5"@(B . nil) + (?$(5"A(B . ?$(6"A(B) + (?$(5"B(B . ?$(6"B(B) + (?$(5"C(B . ?$(6"C(B) + (?$(5"D(B . nil) + (?$(5"E(B . ?$(6"E(B) + (?$(5"F(B . ?$(6"F(B) + (?$(5"G(B . ?$(6"G(B) + (?$(5"H(B . ?$(6"H(B) + (?$(5"I(B . ?$(6"I(B) + (?$(5"J(B . ?$(6"J(B) + (?$(5"K(B . ?$(6"K(B) + (?$(5"L(B . ?$(6"L(B) + (?$(5"M(B . ?$(6"M(B) + (?$(5"N(B . ?$(6"N(B) + (?$(5"O(B . nil) + (?$(5"P(B . nil) + (?$(5"Q(B . ?$(6"Q(B) + (?$(5"R(B . nil) + (?$(5"S(B . nil) + (?$(5"T(B . ?$(6"T(B) + (?$(5"U(B . ?$(6"U(B) + (?$(5"V(B . ?$(6"V(B) + (?$(5"W(B . ?$(6"W(B) + (?$(5"X(B . nil) + (?$(5"Y(B . nil) + (?$(5"Z(B . nil) + (?$(5"[(B . nil) + (?$(5"\(B . nil) + (?$(5"](B . ?$(6"](B) + (?$(5"^(B . nil) + (?$(5"_(B . nil) + (?$(5"`(B . ?$(6"`(B) + (?$(5"a(B . ?$(6"a(B) + (?$(5"b(B . ?$(6"b(B) + (?$(5"c(B . ?$(6"c(B) + (?$(5"d(B . ?$(6"d(B) + (?$(5"e(B . ?$(6"e(B) + (?$(5"f(B . ?$(6"f(B) + (?$(5"g(B . ?$(6"g(B) + (?$(5"h(B . ?$(6"h(B) + (?$(5"i(B . ?$(6"i(B) + (?$(5"j(B . ?$(6"j(B) + (?$(5"k(B . ?$(6"k(B) + (?$(5"l(B . ?$(6"l(B) + (?$(5"m(B . ?$(6"m(B) + (?$(5"n(B . nil) + (?$(5"o(B . nil) + (?$(5"p(B . ?$(6"p(B) + (?$(5"q(B . ?$(6"q(B) + (?$(5"r(B . ?$(6"r(B) + (?$(5"s(B . ?$(6"s(B) + (?$(5"t(B . ?$(6"t(B) + (?$(5"u(B . ?$(6"u(B) + (?$(5"v(B . nil) + (?$(5"w(B . nil) + (?$(5"x(B . nil) + (?$(5"y(B . ?$(6"y(B) + (?$(5"z(B . ?$(6"z(B) + (?$(5"{(B . nil) + (?$(5"|(B . nil) + (?$(5"}(B . nil) + (?$(5"~(B . nil) + (?$(5#!(B . nil) + (?$(5#"(B . nil) + (?$(5##(B . nil) + (?$(5#$(B . nil) + (?$(5#%(B . nil) + (?$(5#&(B . nil) + (?$(5#'(B . nil) + (?$(5#((B . nil) + (?$(5#)(B . nil) + (?$(5#*(B . nil) + (?$(5#+(B . nil) + (?$(5#,(B . nil) + (?$(5#-(B . nil) + (?$(5#.(B . nil) + (?$(5#/(B . nil) + (?$(5#0(B . nil) + (?$(5#1(B . nil) + (?$(5#2(B . nil) + (?$(5#3(B . nil) + (?$(5#4(B . nil) + (?$(5#5(B . ?$(6#5(B) + (?$(5#6(B . nil) + (?$(5#7(B . nil) + (?$(5#8(B . nil) + (?$(5#9(B . nil) + (?$(5#:(B . nil) + (?$(5#;(B . nil) + (?$(5#<(B . nil) + (?$(5#=(B . nil) + (?$(5#>(B . nil) + (?$(5#?(B . ?$(6#?(B) + (?$(5#@(B . ?$(6#@(B) + (?$(5#A(B . nil) + (?$(5#B(B . nil) + (?$(5#C(B . nil) + (?$(5#D(B . nil) + (?$(5#E(B . nil) + (?$(5#F(B . nil) + (?$(5#G(B . nil) + (?$(5#H(B . nil) + (?$(5#I(B . nil) + (?$(5#J(B . ?$(6#J(B) + (?$(5#K(B . ?$(6#K(B) + (?$(5#L(B . ?$(6#L(B) + (?$(5#M(B . ?$(6#M(B) + (?$(5#N(B . nil) + (?$(5#O(B . nil) + (?$(5#P(B . nil) + (?$(5#Q(B . nil) + (?$(5#R(B . ?$(6#R(B) + (?$(5#S(B . nil) + (?$(5#T(B . nil) + (?$(5#U(B . nil) + (?$(5#V(B . nil) + (?$(5#W(B . nil) + (?$(5#X(B . nil) + (?$(5#Y(B . nil) + (?$(5#Z(B . nil) + (?$(5#[(B . nil) + (?$(5#\(B . nil) + (?$(5#](B . nil) + (?$(5#^(B . nil) + (?$(5#_(B . nil) + (?$(5#`(B . nil) + (?$(5#a(B . ?$(6#a(B) + (?$(5#b(B . ?$(6#b(B) + (?$(5#c(B . nil) + (?$(5#d(B . nil) + (?$(5#e(B . nil) + (?$(5#f(B . nil) + (?$(5#g(B . nil) + (?$(5#h(B . nil) + (?$(5#i(B . nil) + (?$(5#j(B . ?$(6#j(B) + (?$(5#k(B . ?$(6#k(B) + (?$(5#l(B . ?$(6#l(B) + (?$(5#m(B . nil) + (?$(5#n(B . nil) + (?$(5#o(B . nil) + (?$(5#p(B . nil) + (?$(5#q(B . nil) + (?$(5#r(B . nil) + (?$(5#s(B . nil) + (?$(5#t(B . nil) + (?$(5#u(B . nil) + (?$(5#v(B . nil) + (?$(5#w(B . nil) + (?$(5#x(B . nil) + (?$(5#y(B . nil) + (?$(5#z(B . nil) + (?$(5#{(B . nil) + (?$(5#|(B . nil) + (?$(5#}(B . nil) + (?$(5#~(B . nil) + (?$(5$!(B . nil) + (?$(5$"(B . nil) + (?$(5$#(B . nil) + (?$(5$$(B . nil) + (?$(5$%(B . nil) + (?$(5$&(B . nil) + (?$(5$'(B . nil) + (?$(5$((B . nil) + (?$(5$)(B . nil) + (?$(5$*(B . nil) + (?$(5$+(B . nil) + (?$(5$,(B . nil) + (?$(5$-(B . nil) + (?$(5$.(B . nil) + (?$(5$/(B . nil) + (?$(5$0(B . nil) + (?$(5$1(B . nil) + (?$(5$2(B . nil) + (?$(5$3(B . nil) + (?$(5$4(B . nil) + (?$(5$5(B . nil) + (?$(5$6(B . nil) + (?$(5$7(B . nil) + (?$(5$8(B . nil) + (?$(5$9(B . nil) + (?$(5$:(B . nil) + (?$(5$;(B . nil) + (?$(5$<(B . nil) + (?$(5$=(B . nil) + (?$(5$>(B . nil) + (?$(5$?(B . nil) + (?$(5$@(B . nil) + (?$(5$A(B . ?$(6$A(B) + (?$(5$B(B . nil) + (?$(5$C(B . nil) + (?$(5$D(B . nil) + (?$(5$E(B . ?$(6$E(B) + (?$(5$F(B . nil) + (?$(5$G(B . nil) + (?$(5$H(B . ?$(6$H(B) + (?$(5$I(B . ?$(6$I(B) + (?$(5$J(B . ?$(6$J(B) + (?$(5$K(B . nil) + (?$(5$L(B . nil) + (?$(5$M(B . nil) + (?$(5$N(B . ?$(6$N(B) + (?$(5$O(B . nil) + (?$(5$P(B . ?$(6$P(B) + (?$(5$Q(B . ?$(6$Q(B) + (?$(5$R(B . ?$(6$R(B) + (?$(5$S(B . nil) + (?$(5$T(B . nil) + (?$(5$U(B . nil) + (?$(5$V(B . nil) + (?$(5$W(B . nil) + (?$(5$X(B . nil) + (?$(5$Y(B . nil) + (?$(5$Z(B . nil) + (?$(5$[(B . nil) + (?$(5$\(B . nil) + (?$(5$](B . nil) + (?$(5$^(B . nil) + (?$(5$_(B . nil) + (?$(5$`(B . nil) + (?$(5$a(B . nil) + (?$(5$b(B . nil) + (?$(5$c(B . nil) + (?$(5$d(B . nil) + (?$(5$e(B . nil) + (?$(5$f(B . nil) + (?$(5$g(B . nil) + (?$(5$h(B . ?$(6$h(B) + (?$(5$i(B . ?$(6$i(B) + (?$(5$j(B . ?$(6$j(B) + (?$(5$k(B . nil) + (?$(5$l(B . ?$(6$l(B) + (?$(5$m(B . ?$(6$m(B) + (?$(5$n(B . ?$(6$n(B) + (?$(5$o(B . nil) + (?$(5$p(B . ?$(6$p(B) + (?$(5$q(B . ?$(6$q(B) + (?$(5$r(B . ?$(6$r(B) + (?$(5$s(B . nil) + (?$(5$t(B . nil) + (?$(5$u(B . ?$(6$u(B) + (?$(5$v(B . ?$(6$v(B) + (?$(5$w(B . nil) + (?$(5$x(B . ?$(6$x(B) + (?$(5$y(B . ?$(6$y(B) + (?$(5$z(B . nil) + (?$(5${(B . nil) + (?$(5$|(B . nil) + (?$(5$}(B . nil) + (?$(5$~(B . nil) + )) + +;;; devanagari.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/english.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,107 @@ +;;; english.el --- English support + +;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. + +;; Keywords: multibyte character, character set, syntax, category + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;; We need nothing special to support English on Emacs. Selecting +;; English as a language environment is one of the ways to reset +;; various multilingual environment to the original settting. + +;;; Code + +(defun setup-english-environment () + "Reset multilingual environment of Emacs to the default status. +The default status is as follows. + + The default value of enable-multibyte-characters is t. + + The default value of buffer-file-coding-system is iso-8859-1. + The coding system for terminal output is nil. + The coding system for keyboard input is nil. + + The order of priorities of coding categories and the coding system + bound to each category are as follows + coding category coding system + -------------------------------------------------- + coding-category-iso-7 iso-2022-7 + coding-category-iso-8-2 iso-8859-1 + coding-category-iso-8-1 iso-8859-1 + coding-category-iso-else iso-8859-1 + coding-category-internal internal + coding-category-binary no-conversion + coding-category-sjis sjis + coding-category-big5 big5 +" + (interactive) + (setq-default enable-multibyte-characters t) + (if (local-variable-p 'enable-multibyte-characters) + (setq enable-multibyte-characters t)) + + (setq coding-category-internal 'internal + coding-category-iso-7 'iso-2022-7 + coding-category-iso-8-1 'iso-8859-1 + coding-category-iso-8-2 'iso-8859-1 + coding-category-iso-else 'iso-8859-1 + coding-category-sjis 'sjis + coding-category-big5 'big5 + coding-category-binary 'no-conversion) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-2 + coding-category-iso-8-1 + coding-category-iso-else + coding-category-internal + coding-category-binary + coding-category-sjis + coding-category-big5)) + + (setq-default buffer-file-coding-system 'iso-8859-1) + (set-terminal-coding-system nil) + (set-keyboard-coding-system nil) + + (setq sendmail-coding-system nil + rmail-file-coding-system nil) + ) + +(defun describe-english-support () + "Describe how Emacs support English." + (interactive) + (describe-language-support-internal "English")) + +(set-language-info-alist + "English" '((setup-function . setup-english-environment) + (describe-function . describe-english-support) + (tutorial . "TUTORIAL") + (charset . (ascii)) + (sample-text . "Hello!, Hi!, How are you?") + (documentation . "\ +There's nothing special you should care to handle English in Emacs. +You can use English both with enable-multibyte-characters t and nil.") + )) + +(register-input-method "English" + '("quail-dvorak" quail-use-package "quail/latin")) + +;;; english.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/ethiopic.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,100 @@ +;;; ethiopic.el --- Support for Ethiopic + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. + +;; Keywords: multilingual, Ethiopic + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp> + +;;; Code: + +(define-ccl-program ccl-encode-ethio-font + '(0 + ;; In: R0:ethiopic (not checked) + ;; R1:position code 1 + ;; R2:position code 2 + ;; Out: R1:font code point 1 + ;; R2:font code point 2 + ((r1 -= 33) + (r2 -= 33) + (r1 *= 94) + (r2 += r1) + (if (r2 < 256) + (r1 = ?\x12) + (if (r2 < 448) + ((r1 = ?\x13) (r2 -= 256)) + ((r1 = ?\xfd) (r2 -= 208)) + )))) + "CCL program to encode an Ehitopic code to code point of Ehitopic font.") + +(setq font-ccl-encoder-alist + (cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist)) + +(register-input-method + "Ethiopic" '("quail-ethio" quail-use-package "quail/ethiopic")) + +(defun setup-ethiopic-environment () + "Setup multilingual environment for Ethiopic." + (interactive) + (setq primary-language "Ethiopic") + + (setq default-input-method '("Ethiopic" . "quail-ethio")) + + ;; + ;; key bindings + ;; + (define-key global-map [f4] 'sera-to-fidel-buffer) + (define-key global-map [S-f4] 'sera-to-fidel-region) + (define-key global-map [C-f4] 'sera-to-fidel-marker) + (define-key global-map [f5] 'fidel-to-sera-buffer) + (define-key global-map [S-f5] 'fidel-to-sera-region) + (define-key global-map [C-f5] 'fidel-to-sera-marker) + (define-key global-map [f6] 'ethio-modify-vowel) + (define-key global-map [f7] 'ethio-replace-space) + (define-key global-map [f8] 'ethio-input-special-character) + (define-key global-map [S-f2] 'ethio-replace-space) ; as requested + + (add-hook + 'rmail-mode-hook + '(lambda () + (define-key rmail-mode-map [C-f4] 'sera-to-fidel-mail) + (define-key rmail-mode-map [C-f5] 'fidel-to-sera-mail))) + + (add-hook + 'mail-mode-hook + '(lambda () + (define-key mail-mode-map [C-f4] 'sera-to-fidel-mail) + (define-key mail-mode-map [C-f5] 'fidel-to-sera-mail))) + ) + +(defun describe-ethiopic-support () + "Describe how Emacs supports Ethiopic." + (interactive) + (describe-language-support-internal "Ethiopic")) + +(set-language-info-alist + "Ethiopic" '((setup-function . setup-ethiopic-environment) + (describe-function . describe-ethiopic-support) + (charset . (ethiopic)) + (sample-text . "$(3$O#U!.(B") + (documentation . nil))) + +;;; ethiopic.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/european.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,182 @@ +;;; european.el --- Support for European languages + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 MORIOKA Tomohiko + +;; Keywords: multilingual, European + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Commentary: + +;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported. + +;;; Code: + +;; For syntax of Latin-1 characters. +(loop for c from 64 to 127 ; from '.AN@' to 'N' + do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w")) + +(modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space +(modify-syntax-entry ?NW "_") +(modify-syntax-entry ?Nw "_") + +;; For syntax of Latin-2 +(loop for c in '(?.BN! ?N# ?N% ?N& ?N) ?N* ?N+ ?N, ?N. ?N/ ?N1 ?N3 ?N5 ?N6 ?N9 ?N: ?N; ?N<) + do (modify-syntax-entry c "w")) + +(loop for c from 62 to 126 + do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w")) + +(modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space +(modify-syntax-entry ?NW ".") +(modify-syntax-entry ?Nw ".") + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; EUROPEANS +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(define-language-environment 'european + "European (for Latin-1 through Latin-5)" + (lambda () + (set-coding-category-system 'iso-8-designate 'iso-8859-1) + (set-coding-priority-list '(iso-8-designate iso-8-1)) + ;;(setq locale-coding-system 'no-conversion) ; iso-8859-1 + (set-default-buffer-file-coding-system 'no-conversion) ; iso-8859-1 + ;;(set-buffer-file-coding-system-for-read 'no-conversion) ; iso-8859-1 + ;;(setq display-coding-system 'iso-8859-1) + ;;(setq keyboard-coding-system 'iso-8859-1) + ;; (setq-default quail-current-package + ;; (assoc "latin-1" quail-package-alist)) + )) + +;; (make-coding-system +;; 'iso-8859-1 2 ?X +;; "Coding-system used in X as Compound Text Encoding." +;; '((ascii t) (latin-iso8859-1 t) nil nil +;; nil ascii-eol ascii-cntl)) + +;; CTEXT is an alias for ISO-8859-1 +;; (define-coding-system-alias 'iso-8859-1 'ctext) + +;; (make-coding-system +;; 'iso-8859-2 2 ?2 "MIME ISO-8859-2" +;; '((ascii t) (latin-iso8859-2 t) nil nil +;; nil ascii-eol ascii-cntl nil nil nil nil)) + +(make-coding-system + 'iso-8859-2 'iso2022 "MIME ISO-8859-2" + '(charset-g0 ascii + charset-g1 latin-iso8859-2 + charset-g2 t + charset-g3 t + mnemonic "MIME/Ltn-2" + )) + +;; (make-coding-system +;; 'iso-8859-3 2 ?3 "MIME ISO-8859-3" +;; '((ascii t) (latin-iso8859-3 t) nil nil +;; nil ascii-eol ascii-cntl nil nil nil nil)) + +(make-coding-system + 'iso-8859-3 'iso2022 "MIME ISO-8859-3" + '(charset-g0 ascii + charset-g1 latin-iso8859-3 + charset-g2 t + charset-g3 t + mnemonic "MIME/Ltn-3" + )) + +;; (make-coding-system +;; 'iso-8859-4 2 ?4 "MIME ISO-8859-4" +;; '((ascii t) (latin-iso8859-4 t) nil nil +;; nil ascii-eol ascii-cntl nil nil nil nil)) + +(make-coding-system + 'iso-8859-4 'iso2022 "MIME ISO-8859-4" + '(charset-g0 ascii + charset-g1 latin-iso8859-4 + charset-g2 t + charset-g3 t + mnemonic "MIME/Ltn-4" + )) + +;; (make-coding-system +;; 'iso-8859-9 2 ?9 "MIME ISO-8859-9" +;; '((ascii t) (latin-iso8859-9 t) nil nil +;; nil ascii-eol ascii-cntl nil nil nil nil)) + +(make-coding-system + 'iso-8859-9 'iso2022 "MIME ISO-8859-9" + '(charset-g0 ascii + charset-g1 latin-iso8859-9 + charset-g2 t + charset-g3 t + mnemonic "MIME/Ltn-5" + )) + +(register-input-method "European" + '("quail-latin-1" quail-use-package "quail/latin")) +(register-input-method "European" + '("quail-latin-2" quail-use-package "quail/latin")) +(register-input-method "European" + '("quail-latin-3" quail-use-package "quail/latin")) +(register-input-method "European" + '("quail-latin-4" quail-use-package "quail/latin")) +(register-input-method "European" + '("quail-latin-5" quail-use-package "quail/latin")) + +(defun setup-european-environment () + "Setup multilingual environment (MULE) for European languages users. +It actually reset MULE to the default status, and +set quail-latin-1 as the default input method to be selected. +See also the documentation of setup-english-environment." + (setup-english-environment) + (setq default-input-method '("European" . "quail-latin-1"))) + +(defun describe-european-support () + "Describe how Emacs support European languages." + (interactive) + (describe-language-support-internal "European")) + +(set-language-info-alist + "European" '((setup-function . setup-european-environment) + (describe-function . describe-european-support) + (charset . (ascii latin-iso8859-1 latin-iso8859-2 + latin-iso8859-3 latin-iso8859-4 latin-iso8859-9)) + (coding-system . (iso-8859-1 iso-8859-2 iso-8859-3 + iso-8859-4 iso-8859-9)) + (sample-text + . "Hello, Hej, Tere, Hei, Bonjour, Gr.AN|N_ Gott, Ciao, N!Hola!") + (documentation . "\ +Almost all of European languages are supported by the character sets and +coding systems listed below. +To input them, LEIM (Libraries for Emacs Input Methods) should have been +installed.") + )) + +(let ((languages '("French" "German" "Spanish" "Italian" + ;; We have to list much more European langauges here. + )) + (val '("quail-latin-1" quail-use-package "quail/latin"))) + (while languages + (register-input-method (car languages) val) + (setq languages (cdr languages)))) + +;;; european.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/greek.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,103 @@ +;;; greek.el --- Support for Greek + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 MORIOKA Tomohiko + +;; Keywords: multilingual, Greek + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Commentary: + +;; For Greek, the character set ISO8859-7 is supported. + +;;; Code: + +;; For syntax of Greek +(loop for c from 54 to 126 + do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")) +(modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space +(modify-syntax-entry ?,F7(B ".") +(modify-syntax-entry ?,F;(B ".") +(modify-syntax-entry ?,F=(B ".") + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; GREEK +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(define-language-environment 'greek + "Greek" + (lambda () + (set-coding-category-system 'iso-8-designate 'iso-8859-7) + (set-coding-priority-list '(iso-8-designate iso-8-1)) + (set-default-buffer-file-coding-system 'iso-8859-7) + (setq terminal-coding-system 'iso-8859-7) + (setq keyboard-coding-system 'iso-8859-7) + ;; (setq-default quail-current-package + ;; (assoc "greek" quail-package-alist)) + )) + +;; (make-coding-system +;; 'iso-8859-7 2 ?7 "MIME ISO-8859-7" +;; '((ascii t) (greek-iso8859-7 t) nil nil +;; nil ascii-eol ascii-cntl nil nil nil nil)) + +(make-coding-system + 'iso-8859-7 'iso2022 "MIME ISO-8859-7" + '(charset-g0 ascii + charset-g1 greek-iso8859-7 + charset-g2 t + charset-g3 t + mnemonic "Grk" + )) + +(register-input-method + "Greek" '("quail-greek" quail-use-package "quail/greek")) + +(defun setup-greek-environment () + "Setup multilingual environment (MULE) for Greek." + (interactive) + (setq coding-category-iso-8-1 'iso-8859-7) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-1)) + + (setq-default buffer-file-coding-system 'iso-8859-7) + (set-terminal-coding-system 'iso-8859-7) + (set-keyboard-coding-system 'iso-8859-7) + + (setq default-input-method '("Greek" . "quail-greek")) + ) + +(defun describe-greek-support () + "Describe how Emacs supports Greek." + (interactive) + (describe-language-support-internal "Greek")) + +(set-language-info-alist + "Greek" '((setup-function . setup-greek-environment) + (describe-function. describe-greek-support) + (charset . (greek-iso8859-7)) + (coding-system . (iso-8859-7)) + (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") + (documentation . nil))) + +;;; greek.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/hebrew.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,70 @@ +;;; hebrew.el --- Support for Hebrew + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. + +;; Keywords: multilingual, Hebrew + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;; For Hebrew, the character sets ISO8859-8 is supported. + +;;; Code: + +(make-coding-system + 'iso-8859-8 2 ?8 "MIME ISO-8859-8" + '((ascii t) (hebrew-iso8859-8 t) nil nil + nil ascii-eol ascii-cntl nil nil nil nil nil t)) + +(register-input-method + "Hebrew" '("quail-hebrew" quail-use-package "quail/hebrew")) + +(defun setup-hebrew-environment () + "Setup multilingual environment (MULE) for Hebrew. +But, please note that right-to-left writing is not yet supported." + (interactive) + (setq coding-category-iso-8-1 'iso-8859-8) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-1 + coding-category-iso-8-2)) + + (setq-default buffer-file-coding-system 'iso-8859-8) + (set-terminal-coding-system 'iso-8859-8) + (set-keyboard-coding-system 'iso-8859-8) + + (setq default-input-method '("Hebrew" . "quail-hebrew")) + ) + +(defun describe-hebrew-support () + "Describe how Emacs supports Hebrew." + (interactive) + (describe-language-support-internal "Hebrew")) + +(set-language-info-alist + "Hebrew" '((setup-function . setup-hebrew-environment) + (describe-function . describe-hebrew-support) + (charset . (hebrew-iso8859-8)) + (coding-system . (iso-8859-8)) + (sample-text . "Hebrew ,Hylem(B") + (documentation . "Right-to-left writing is not yet supported."))) + +;;; hebew.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/indian.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,357 @@ +;;; indian.el --- Support for Indian Languages + +;; Copyright (C) 1995 Free Software Foundation, Inc. + +;; Author: KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp> + +;; Keywords: multilingual, Indian + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;; History: +;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp> + +;; For Indian, the character set IS 13194 is supported. +;; +;; IS 13194 does not specifically assign glyphs for each characters. +;; Following code is not specific to each Indian language. +;; +;; Eventually, this code will support generic information about +;; following scripts. +;; +;; Devanagari +;; Bengali +;; Gurmukhi +;; Gujarati +;; Oriya +;; Tamil +;; Telgu +;; Kannada +;; Malayalam +;; +;; In this file, charsets other than charset-ascii and charset-indian-is13194 +;; should not be used except in the comment. + +;;; Code: + +(defun describe-indian-support () + "Describe how Emacs support Indian languages." + (interactive) + (describe-language-support-internal "Indian")) + +(set-language-info-alist + "Indian" '((describe-function . describe-indian-support) + (charset . (indian-is13194)) + (documentation . "\ +Among Indian languages, such languages using Devanagari scripts as +Hindi and Marathi are supproted. For them, please specify Devanagari +for more detail.") + )) + +;; Followings are what you see when you refer to the Emacs +;; representations of IS 13194 charcters. However, this is merely +;; tentative apperance, and you must convert them by +;; indian-to-xxxxxx(specific script) function to use them. +;; Devanagari is not an exception of this rule. + +;; 0xa0 //(5!"#$%&'()*+,-./(B +;; 0xb0 (50123456789:;<=>?(B +;; 0xc0 (5@ABCDEFGHIJKLMNO(B +;; 0xd0 (5PQRSTUVWXYZ[\]^_(B +;; 0xe0 (5`abcdefghijklmno(B +;; 0xf0 (5pqrstuvwxyz{|}~(B// + +;; Note - In IS 13194, several symbols are obtained by special +;; combination of several characters and Nukta sign. +;; +;; Sanskrit Vowel R -> (5*(B + (5i(B +;; Sanskrit Vowel L -> (5&(B + (5i(B +;; Sanskrit Vowel LL -> (5'(B + (5i(B +;; Sanskrit Avagrah -> (5j(B + (5i(B +;; OM -> (5!(B + (5i(B +;; +;; Note - IS 13194 defines ATR(0xEF) and EXT(0xF0), but they are +;; not used in Emacs. +;; +;; Note - the above characters DO NOT represent any script. For +;; example, if you want to obtain Devanagari character, you must do +;; something like the following. +;; +;; (char-to-string (indian-to-devanagari ?(5$(B)) +;; "$(5!$(B" + +(let ((deflist + '(;; chars syntax category + ("(5!"#(B" "w" ?7) ; vowel-modifying diacritical mark + ; chandrabindu, anuswar, visarga + ("(5$(B-(52(B" "w" ?5) ; independent vowel + ("(53(B-(5X(B" "w" ?0) ; consonant + ("(5Z(B-(5g(B" "w" ?8) ; matra + ("(5q(B-(5z(B" "w" ?6) ; digit + )) + elm chars len syntax category to ch i) + (while deflist + (setq elm (car deflist)) + (setq chars (car elm) + len (length chars) + syntax (nth 1 elm) + category (nth 2 elm) + i 0) + (while (< i len) + (if (= (aref chars i) ?-) + (setq i (1+ i) + to (sref chars i)) + (setq ch (sref chars i) + to ch)) + (while (<= ch to) + (modify-syntax-entry ch syntax) + (modify-category-entry ch category) + (setq ch (1+ ch))) + (setq i (+ i (char-bytes to)))) + (setq deflist (cdr deflist)))) + + +;;; ITRANS +;; +;; ITRANS is one of the most popular method to exchange indian scripts +;; electronically. Here is the table to convert between ITRANS code and +;; IS 13194 code. + +(defvar indian-itrans-consonant-alist + '( + ("k" . "(53(B") + ("kh" . "(54(B") + ("g" . "(55(B") + ("gh" . "(56(B") + ("N^" . "(57(B") + ("ch" . "(58(B") + ("chh" . "(59(B") + ("j" . "(5:(B") + ("jh" . "(5;(B") + ("JN" . "(5<(B") + ("T" . "(5=(B") + ("Th" . "(5>(B") + ("D" . "(5?(B") + ("Dh" . "(5@(B") + ("N" . "(5A(B") + ("t" . "(5B(B") + ("th" . "(5C(B") + ("d" . "(5D(B") + ("dh" . "(5E(B") + ("n" . "(5F(B") + ("nh" . "(5G(B") ; For transcription of non-Devanagari Languages. + ("p" . "(5H(B") + ("ph" . "(5I(B") + ("b" . "(5J(B") + ("bh" . "(5K(B") + ("m" . "(5L(B") + ("y" . "(5M(B") + ("yh" . "(5N(B") ; For transcription of non-Devanagari Languages. + ("r" . "(5O(B") + ("rh" . "(5P(B") ; For transcription of non-Devanagari Languages. + ("l" . "(5Q(B") + ("v" . "(5T(B") + ("sh" . "(5U(B") + ("shh" . "(5V(B") + ("s" . "(5W(B") + ("h" . "(5X(B") + ("ld" . "(5R(B") + ("L" . "(5R(B") + ("ksh" . "$(5!3!h!V(B") + ("GY" . "***GY***") ; Must check out later. + ;; special consonants + ("q" . "(53i(B") + ("K" . "(54i(B") + ("G" . "(55i(B") + ("z" . "(5:i(B") + ("f" . "(5Ii(B") + (".D" . "(5?i(B") + (".Dh" . "(5@i(B") + )) + +(defvar indian-itrans-vowel-sign-alist + '( + ;; Special treatment unique to IS 13194 Transliteration + ("" . "(5h(B") + ("a" . "") + ;; Matra (Vowel Sign) + ("aa" . "(5Z(B") + ("A" . "(5Z(B") + ("i" . "(5[(B") + ("ii" . "(5\(B") + ("I" . "(5\(B") + ("u" . "(5](B") + ("uu" . "(5^(B") + ("U" . "(5^(B") + ("R^i" . "(5_(B") ; These must be checked out later. + ("R^I" . "(5_i(B") + ("L^i" . "(5[i(B") + ("L^I" . "(5\i(B") + ("E" . "(5`(B") ; For transcription of non-Devanangri Languages. + ("e" . "(5a(B") + ("ai" . "(5b(B") + ;; ("e.c" . "(5c(B") ; Tentatively suppressed. + ("O" . "(5d(B") ; For transcription of non-Devanagari Languages. + ("o" . "(5e(B") + ("au" . "(5f(B") + ;; ("o.c" . "(5g(B") ; Tentatively suppressed. + )) + +;; +;; Independent vowels and other signs. +;; + +(defvar indian-itrans-other-letters-alist + '( + ("a" . "(5$(B") + ("aa" . "(5%(B") + ("A" . "(5%(B") + ("i" . "(5&(B") + ("ii" . "(5'(B") + ("I" . "(5'(B") + ("u" . "(5((B") + ("uu" . "(5)(B") + ("U" . "(5)(B") + ("R^i" . "(5*(B") + ("R^I" . "(5*i(B") + ("L^i" . "(5&i(B") + ("L^I" . "(5'i(B") + ("E" . "(5+(B") ; For transcription of non-Devanagari Languages. + ("e" . "(5,(B") + ("ai" . "(5-(B") + ;; ("e.c" . "(5.(B") ; Candra E + ("O" . "(5/(B") ; For transcription of non-Devanagari Languages. + ("o" . "(50(B") + ("au" . "(51(B") + ;; ("o.c" . "(52(B") ; Candra O + ("M" . "(5$(B") + ("H" . "(5#(B") + ("AUM" . "(5!i(B") + ("OM" . "(5!i(B") + (".r" . "(5Oh(B") + (".n" . "(5"(B") + (".N" . "(5!(B") + (".h" . "(5h(B") ; Halant + (".." . "(5j(B") + (".a" . "(5ji(B") ; Avagrah + ("0" . "(5q(B") + ("1" . "(5r(B") + ("2" . "(5s(B") + ("3" . "(5t(B") + ("4" . "(5u(B") + ("5" . "(5v(B") + ("6" . "(5w(B") + ("7" . "(5x(B") + ("8" . "(5y(B") + ("9" . "(5z(B") + )) + +;; Regular expression matching single Indian character represented +;; by ITRANS. + +(defvar indian-itrans-regexp + (let ((consonant "\\([cs]hh?\\)\\|[kgjTDnpbyr]h?\\|\\(N\\^?\\)\\|\\(jN\\)\\|[mvqKGzfs]\\|\\(ld?\\)\\|\\(ksh\\)\\|\\(GY\\)\\|\\(\\.Dh?\\)") + (vowel "\\(a[aiu]\\)\\|\\(ii\\)\\|\\(uu\\)\\|\\([RL]\\^[iI]\\)\\|[AIEOeoaiu]") + (misc "[MH0-9]\\|\\(AUM\\)\\|\\(OM\\)\\|\\(\\.[rnNh\\.a]\\)") + (lpre "\\(") (rpre "\\)") (orre "\\|")) + (concat lpre misc rpre orre + lpre lpre consonant rpre "?" lpre vowel rpre rpre orre + lpre consonant rpre ))) + +;; +;; Regular expression matching single ITRANS unit for IS 13194 characters. +;; + +(defvar itrans-indian-regexp + (let ((vowel "[(5$(B-(52(B]") + (consonant "[(53(B-(5X(B]") + (matra "[(5Z(B-(5g(B]") + (misc "[(5q(B-(5z(B]") + (lpre "\\(") (rpre "\\)") (orre "\\|")) + (concat misc orre + lpre consonant matra "?" rpre orre + vowel))) + +;; +;; IS13194 - ITRANS conversion table for string matching above regexp. +;; + +(defvar indian-itrans-alist + (let ((cl indian-itrans-consonant-alist) + (ml indian-itrans-other-letters-alist) rules) + (while cl + (let ((vl indian-itrans-vowel-sign-alist)) + (while vl + (setq rules + (cons (cons (concat (car (car cl)) (car (car vl))) + (concat (cdr (car cl)) (cdr (car vl)))) + rules)) + (setq vl (cdr vl)))) + (setq cl (cdr cl))) + (while ml + (setq rules (cons (cons (car (car ml)) + (cdr (car ml))) + rules)) + (setq ml (cdr ml))) + rules)) + +;; +;; Utility program to convert from ITRANS to IS 13194 in specified region. +;; + +(defun indian-decode-itrans-region (from to) + "Convert `ITRANS' mnemonics of the current region to Indian characters. +When called from a program, expects two arguments, +positions (integers or markers) specifying the stretch of the region." + (interactive "r") + (save-restriction + (narrow-to-region from to) + (goto-char (point-min)) + (while (re-search-forward indian-itrans-regexp nil t) + (let* ((itrans (buffer-substring (match-beginning 0) (match-end 0))) + (ch (cdr (assoc itrans indian-itrans-alist)))) + (if ch + (progn + (delete-region (match-beginning 0) (match-end 0)) + (insert ch))))) + (goto-char (point-min)) + (while (re-search-forward "\\((5h(B\\)[^\\c0]" nil t) + (delete-region (match-beginning 1) (match-end 1))))) + +;; +;; Utility program to convert from IS 13194 to ITRANS in specified region. +;; + +(defun indian-encode-itrans-region (from to) + "Convert indian region to ITRANS mnemonics." + (interactive "r") + (save-restriction + (narrow-to-region from to) + (goto-char (point-min)) + (while (re-search-forward itrans-indian-regexp nil t) + (let* ((indian (buffer-substring (match-beginning 0) (match-end 0))) + (ch (car (rassoc indian indian-itrans-alist)))) + (if ch + (progn + (delete-region (match-beginning 0) (match-end 0)) + (insert ch))))) + (goto-char (point-min)))) + +;;; indian.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/japan-util.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,273 @@ +;;; japan-util.el --- utilities for Japanese + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. + +;; Keywords: mule, multilingual, Japanese + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + +(defconst japanese-kana-table + '((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B) + (?$B$+(B ?$B%+(B ?(I6(B) (?$B$-(B ?$B%-(B ?(I7(B) (?$B$/(B ?$B%/(B ?(I8(B) (?$B$1(B ?$B%1(B ?(I9(B) (?$B$3(B ?$B%3(B ?(I:(B) + (?$B$5(B ?$B%5(B ?(I;(B) (?$B$7(B ?$B%7(B ?(I<(B) (?$B$9(B ?$B%9(B ?(I=(B) (?$B$;(B ?$B%;(B ?(I>(B) (?$B$=(B ?$B%=(B ?(I?(B) + (?$B$?(B ?$B%?(B ?(I@(B) (?$B$A(B ?$B%A(B ?(IA(B) (?$B$D(B ?$B%D(B ?(IB(B) (?$B$F(B ?$B%F(B ?(IC(B) (?$B$H(B ?$B%H(B ?(ID(B) + (?$B$J(B ?$B%J(B ?(IE(B) (?$B$K(B ?$B%K(B ?(IF(B) (?$B$L(B ?$B%L(B ?(IG(B) (?$B$M(B ?$B%M(B ?(IH(B) (?$B$N(B ?$B%N(B ?(II(B) + (?$B$O(B ?$B%O(B ?(IJ(B) (?$B$R(B ?$B%R(B ?(IK(B) (?$B$U(B ?$B%U(B ?(IL(B) (?$B$X(B ?$B%X(B ?(IM(B) (?$B$[(B ?$B%[(B ?(IN(B) + (?$B$^(B ?$B%^(B ?(IO(B) (?$B$_(B ?$B%_(B ?(IP(B) (?$B$`(B ?$B%`(B ?(IQ(B) (?$B$a(B ?$B%a(B ?(IR(B) (?$B$b(B ?$B%b(B ?(IS(B) + (?$B$d(B ?$B%d(B ?(IT(B) (?$B$f(B ?$B%f(B ?(IU(B) (?$B$h(B ?$B%h(B ?(IV(B) + (?$B$i(B ?$B%i(B ?(IW(B) (?$B$j(B ?$B%j(B ?(IX(B) (?$B$k(B ?$B%k(B ?(IY(B) (?$B$l(B ?$B%l(B ?(IZ(B) (?$B$m(B ?$B%m(B ?(I[(B) + (?$B$o(B ?$B%o(B ?(I\(B) (?$B$p(B ?$B%p(B nil) (?$B$q(B ?$B%q(B nil) (?$B$r(B ?$B%r(B ?(I&(B) + (?$B$s(B ?$B%s(B ?(I](B) + (?$B$,(B ?$B%,(B "(I6^(B") (?$B$.(B ?$B%.(B "(I7^(B") (?$B$0(B ?$B%0(B "(I8^(B") (?$B$2(B ?$B%2(B "(I9^(B") (?$B$4(B ?$B%4(B "(I:^(B") + (?$B$6(B ?$B%6(B "(I;^(B") (?$B$8(B ?$B%8(B "(I<^(B") (?$B$:(B ?$B%:(B "(I=^(B") (?$B$<(B ?$B%<(B "(I>^(B") (?$B$>(B ?$B%>(B "(I?^(B") + (?$B$@(B ?$B%@(B "(I@^(B") (?$B$B(B ?$B%B(B "(IA^(B") (?$B$E(B ?$B%E(B "(IB^(B") (?$B$G(B ?$B%G(B "(IC^(B") (?$B$I(B ?$B%I(B "(ID^(B") + (?$B$P(B ?$B%P(B "(IJ^(B") (?$B$S(B ?$B%S(B "(IK^(B") (?$B$V(B ?$B%V(B "(IL^(B") (?$B$Y(B ?$B%Y(B "(IM^(B") (?$B$\(B ?$B%\(B "(IN^(B") + (?$B$Q(B ?$B%Q(B "(IJ_(B") (?$B$T(B ?$B%T(B "(IK_(B") (?$B$W(B ?$B%W(B "(IL_(B") (?$B$Z(B ?$B%Z(B "(IM_(B") (?$B$](B ?$B%](B "(IN_(B") + (?$B$!(B ?$B%!(B ?(I'(B) (?$B$#(B ?$B%#(B ?(I((B) (?$B$%(B ?$B%%(B ?(I)(B) (?$B$'(B ?$B%'(B ?(I*(B) (?$B$)(B ?$B%)(B ?(I+(B) + (?$B$C(B ?$B%C(B ?(I/(B) + (?$B$c(B ?$B%c(B ?(I,(B) (?$B$e(B ?$B%e(B ?(I-(B) (?$B$g(B ?$B%g(B ?(I.(B) + (?$B$n(B ?$B%n(B nil) + (nil ?$B%t(B "(I3^(B") (nil ?$B%u(B nil) (nil ?$B%v(B nil)) + "Japanese JISX0208 Kana character table. +Each element is of the form (HIRAGANA KATAKANA HANKAKU-KATAKANA), where +HIRAGANA and KATAKANA belong to `japanese-jisx0208', +HANKAKU-KATAKANA belongs to `japanese-jisx0201-kana'.") + +;; Put properties 'katakana, 'hiragana, and 'jix0201 to each Japanese +;; kana characters for conversion among them. +(let ((l japanese-kana-table) + slot hiragana katakana jisx0201) + (while l + (setq slot (car l) + hiragana (car slot) katakana (nth 1 slot) jisx0201 (nth 2 slot) + l (cdr l)) + (if hiragana + (progn + (put-char-code-property hiragana 'katakana katakana) + (put-char-code-property katakana 'hiragana hiragana) + (if jisx0201 + (progn + (put-char-code-property hiragana 'jisx0201 jisx0201) + (if (integerp jisx0201) + (put-char-code-property jisx0201 'hiragana hiragana)))))) + (if jisx0201 + (progn + (put-char-code-property katakana 'jisx0201 jisx0201) + (if (integerp jisx0201) + (put-char-code-property jisx0201 'katakana katakana)))))) + +(defconst japanese-symbol-table + '((?\$B!!(B ?\ ) (?$B!"(B ?, ?(I$(B) (?$B!#(B ?. ?(I!(B) (?$B!$(B ?, ?(I$(B) (?$B!%(B ?. ?(I!(B) (?$B!&(B nil ?(I%(B) + (?$B!'(B ?:) (?$B!((B ?\;) (?$B!)(B ??) (?$B!*(B ?!) (?$B!+(B nil ?(I^(B) (?$B!,(B nil ?(I_(B) + (?$B!-(B ?') (?$B!.(B ?`) (?$B!0(B ?^) (?$B!2(B ?_) (?$B!<(B ?-) (?$B!=(B ?-) (?$B!>(B ?-) + (?$B!?(B ?/) (?$B!@(B ?\\) (?$B!A(B ?~) (?$B!C(B ?|) (?$B!F(B ?`) (?$B!G(B ?') (?$B!H(B ?\") (?$B!I(B ?\") + (?\$B!J(B ?\() (?\$B!K(B ?\)) (?\$B!N(B ?[) (?\$B!O(B ?]) (?\$B!P(B ?{) (?\$B!Q(B ?}) + (?$B!R(B ?<) (?$B!S(B ?>) (?$B!\(B ?+) (?$B!](B ?-) (?$B!a(B ?=) (?$B!c(B ?<) (?$B!d(B ?>) + (?$B!l(B ?') (?$B!m(B ?\") (?$B!o(B ?\\) (?$B!p(B ?$) (?$B!s(B ?%) (?$B!t(B ?#) (?$B!u(B ?&) (?$B!v(B ?*) + (?$B!w(B ?@)) + "Japanese JISX0208 symbol character table. + Each element is of the form (SYMBOL ASCII HANKAKU), where SYMBOL +belongs to `japanese-jisx0208', ASCII belongs to `ascii', and HANKAKU +belongs to `japanese-jisx0201-kana'.") + +;; Put properties 'jisx0208, 'jisx0201, and 'ascii to each Japanese +;; symbol and ASCII characters for conversion among them. +(let ((l japanese-symbol-table) + slot jisx0208 ascii jisx0201) + (while l + (setq slot (car l) + jisx0208 (car slot) ascii (nth 1 slot) jisx0201 (nth 2 slot) + l (cdr l)) + (if ascii + (progn + (put-char-code-property jisx0208 'ascii ascii) + (put-char-code-property ascii 'jisx0208 jisx0208))) + (if jisx0201 + (progn + (put-char-code-property jisx0208 'jisx0201 jisx0201) + (put-char-code-property jisx0201 'jisx0208 jisx0208))))) + +(defconst japanese-alpha-numeric-table + '((?$B#0(B . ?0) (?$B#1(B . ?1) (?$B#2(B . ?2) (?$B#3(B . ?3) (?$B#4(B . ?4) + (?$B#5(B . ?5) (?$B#6(B . ?6) (?$B#7(B . ?7) (?$B#8(B . ?8) (?$B#9(B . ?9) + (?$B#A(B . ?A) (?$B#B(B . ?B) (?$B#C(B . ?C) (?$B#D(B . ?D) (?$B#E(B . ?E) + (?$B#F(B . ?F) (?$B#G(B . ?G) (?$B#H(B . ?H) (?$B#I(B . ?I) (?$B#J(B . ?J) + (?$B#K(B . ?K) (?$B#L(B . ?L) (?$B#M(B . ?M) (?$B#N(B . ?N) (?$B#O(B . ?O) + (?$B#P(B . ?P) (?$B#Q(B . ?Q) (?$B#R(B . ?R) (?$B#S(B . ?S) (?$B#T(B . ?T) + (?$B#U(B . ?U) (?$B#V(B . ?V) (?$B#W(B . ?W) (?$B#X(B . ?X) (?$B#Y(B . ?Y) (?$B#Z(B . ?Z) + (?$B#a(B . ?a) (?$B#b(B . ?b) (?$B#c(B . ?c) (?$B#d(B . ?d) (?$B#e(B . ?e) + (?$B#f(B . ?f) (?$B#g(B . ?g) (?$B#h(B . ?h) (?$B#i(B . ?i) (?$B#j(B . ?j) + (?$B#k(B . ?k) (?$B#l(B . ?l) (?$B#m(B . ?m) (?$B#n(B . ?n) (?$B#o(B . ?o) + (?$B#p(B . ?p) (?$B#q(B . ?q) (?$B#r(B . ?r) (?$B#s(B . ?s) (?$B#t(B . ?t) + (?$B#u(B . ?u) (?$B#v(B . ?v) (?$B#w(B . ?w) (?$B#x(B . ?x) (?$B#y(B . ?y) (?$B#z(B . ?z)) + "Japanese JISX0208 alpha numeric character table. +Each element is of the form (ALPHA-NUMERIC ASCII), where ALPHA-NUMERIC +belongs to `japanese-jisx0208', ASCII belongs to `ascii'.") + +;; Put properties 'jisx0208 and 'ascii to each Japanese alpha numeric +;; and ASCII characters for conversion between them. +(let ((l japanese-alpha-numeric-table) + slot jisx0208 ascii) + (while l + (setq slot (car l) + jisx0208 (car slot) ascii (cdr slot) + l (cdr l)) + (put-char-code-property jisx0208 'ascii ascii) + (put-char-code-property ascii 'jisx0208 jisx0208))) + +;; Convert string STR by FUNC and return a resulting string. +(defun japanese-string-conversion (str func &rest args) + (let ((buf (get-buffer-create " *Japanese work*"))) + (save-excursion + (set-buffer buf) + (erase-buffer) + (insert str) + (apply func 1 (point) args) + (buffer-string)))) + +;;;###autoload +(defun japanese-katakana (obj &optional hankaku) + "Convert argument to Katakana and return that. +The argument may be a character or string. The result has the same type. +The argument object is not altered--the value is a copy. +Optional argument HANKAKU t means to convert to `hankaku' Katakana + \(`japanese-jisx0201-kana'), in which case return value + may be a string even if OBJ is a character if two Katakanas are + necessary to represent OBJ." + (if (stringp obj) + (japanese-string-conversion obj 'japanese-katakana-region hankaku) + (or (get-char-code-property obj (if hankaku 'jisx0201 'katakana)) + obj))) + +;;;###autoload +(defun japanese-hiragana (obj) + "Convert argument to Hiragana and return that. +The argument may be a character or string. The result has the same type. +The argument object is not altered--the value is a copy." + (if (stringp obj) + (japanese-string-conversion obj 'japanese-hiragana-region) + (or (get-char-code-property obj 'hiragana) + obj))) + +;;;###autoload +(defun japanese-hankaku (obj &optional ascii-only) + "Convert argument to `hankaku' and return that. +The argument may be a character or string. The result has the same type. +The argument object is not altered--the value is a copy. +Optional argument ASCII-ONLY non-nil means to return only ASCII character." + (if (stringp obj) + (japanese-string-conversion obj 'japanese-hankaku-region ascii-only) + (or (get-char-code-property obj 'ascii) + (and (not ascii-only) + (get-char-code-property obj 'jisx0201)) + obj))) + +;;;###autoload +(defun japanese-zenkaku (obj) + "Convert argument to `zenkaku' and return that. +The argument may be a character or string. The result has the same type. +The argument object is not altered--the value is a copy." + (if (stringp obj) + (japanese-string-conversion obj 'japanese-zenkaku-region) + (or (get-char-code-property obj 'jisx0208) + obj))) + +;;;###autoload +(defun japanese-katakana-region (from to &optional hankaku) + "Convert Japanese `hiragana' chars in the region to `katakana' chars. +Optional argument HANKAKU t means to convert to `hankaku katakana' character +of which charset is `japanese-jisx0201-kana'." + (interactive "r\nP") + (save-restriction + (narrow-to-region from to) + (goto-char (point-min)) + (while (re-search-forward "\\cH\\|\\cK" nil t) + (let* ((hira (preceding-char)) + (kata (japanese-katakana hira hankaku))) + (if kata + (progn + (delete-region (match-beginning 0) (match-end 0)) + (insert kata))))))) + +;;;###autoload +(defun japanese-hiragana-region (from to) + "Convert Japanese `katakana' chars in the region to `hiragana' chars." + (interactive "r") + (save-restriction + (narrow-to-region from to) + (goto-char (point-min)) + (while (re-search-forward "\\cK\\|\\ck" nil t) + (let* ((kata (preceding-char)) + (hira (japanese-hiragana kata))) + (if hira + (progn + (delete-region (match-beginning 0) (match-end 0)) + (insert hira))))))) + +;;;###autoload +(defun japanese-hankaku-region (from to &optional ascii-only) + "Convert Japanese `zenkaku' chars in the region to `hankaku' chars. +`Zenkaku' chars belong to `japanese-jisx0208' +`Hankaku' chars belong to `ascii' or `japanese-jisx0201-kana'. +Optional argument ASCII-ONLY non-nil means to convert only to ASCII char." + (interactive "r\nP") + (save-restriction + (narrow-to-region from to) + (goto-char (point-min)) + (while (re-search-forward "\\cj" nil t) + (let* ((zenkaku (preceding-char)) + (hankaku (japanese-hankaku zenkaku ascii-only))) + (if hankaku + (progn + (delete-region (match-beginning 0) (match-end 0)) + (insert hankaku))))))) + +;;;###autoload +(defun japanese-zenkaku-region (from to) + "Convert hankaku' chars in the region to Japanese `zenkaku' chars. +`Zenkaku' chars belong to `japanese-jisx0208' +`Hankaku' chars belong to `ascii' or `japanese-jisx0201-kana'." + (interactive "r") + (save-restriction + (narrow-to-region from to) + (goto-char (point-min)) + (while (re-search-forward "\\ca\\|\\ck" nil t) + (let* ((hankaku (preceding-char)) + (zenkaku (japanese-zenkaku hankaku))) + (if zenkaku + (progn + (delete-region (match-beginning 0) (match-end 0)) + (insert zenkaku))))))) + +;;;###autoload +(defun read-hiragana-string (prompt &optional initial-input) + "Read a Hiragana string from the minibuffer, prompting with string PROMPT. +If non-nil, second arg INITIAL-INPUT is a string to insert before reading." + (read-multilingual-string prompt initial-input + "Japanese" "quail-ja-hiragana")) + +;; +(provide 'language/japan-util) + +;;; Local Variables: +;;; generated-autoload-file: "../loaddefs.el" +;;; End: +;;; japan-util.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/japanese.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,302 @@ +;;; japanese.el --- Japanese support + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 MORIOKA Tomohiko + +;; Keywords: multilingual, Japanese + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Commentary: + +;; For Japanese, character sets JISX0201, JISX0208, JISX0212 are +;; supported. + +;;; Code: + +;;; Syntax of Japanese characters. +(modify-syntax-entry 'katakana-jisx0201 "w") +(modify-syntax-entry 'japanese-jisx0212 "w") + +(modify-syntax-entry 'japanese-jisx0208 "w") +(loop for row in '(33 34 40) + do (modify-syntax-entry `[japanese-jisx0208 ,row] "_")) +(loop for char in '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B) + do (modify-syntax-entry char "w")) +(modify-syntax-entry ?\$B!J(B "($B!K(B") +(modify-syntax-entry ?\$B!N(B "($B!O(B") +(modify-syntax-entry ?\$B!P(B "($B!Q(B") +(modify-syntax-entry ?\$B!V(B "($B!W(B") +(modify-syntax-entry ?\$B!X(B "($B!Y(B") +(modify-syntax-entry ?\$B!K(B ")$B!J(B") +(modify-syntax-entry ?\$B!O(B ")$B!N(B") +(modify-syntax-entry ?\$B!Q(B ")$B!P(B") +(modify-syntax-entry ?\$B!W(B ")$B!V(B") +(modify-syntax-entry ?\$B!Y(B ")$B!X(B") + +;;; Character categories S, A, H, K, G, Y, and C +(define-category ?S "Japanese 2-byte symbol character.") +(modify-category-entry [japanese-jisx0208 33] ?S) +(modify-category-entry [japanese-jisx0208 34] ?S) +(modify-category-entry [japanese-jisx0208 40] ?S) +(define-category ?A "Japanese 2-byte Alphanumeric character.") +(modify-category-entry [japanese-jisx0208 35] ?A) +(define-category ?H "Japanese 2-byte Hiragana character.") +(modify-category-entry [japanese-jisx0208 36] ?H) +(define-category ?K "Japanese 2-byte Katakana character.") +(modify-category-entry [japanese-jisx0208 37] ?K) +(define-category ?G "Japanese 2-byte Greek character.") +(modify-category-entry [japanese-jisx0208 38] ?G) +(define-category ?Y "Japanese 2-byte Cyrillic character.") +(modify-category-entry [japanese-jisx0208 39] ?Y) +(define-category ?C "Japanese 2-byte Kanji characters.") +(loop for row from 48 to 126 + do (modify-category-entry `[japanese-jisx0208 ,row] ?C)) +(loop for char in '(?$B!<(B ?$B!+(B ?$B!,(B) + do (modify-category-entry char ?K) + (modify-category-entry char ?H)) +(loop for char in '(?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B) + do (modify-category-entry char ?C)) +(modify-category-entry 'japanese-jisx0212 ?C) + +(defvar japanese-word-regexp + "\\cA+\\cH*\\|\\cK+\\cH*\\|\\cC+\\cH*\\|\\cH+\\|\\ck+\\|\\sw+" + "Regular expression used to match a Japanese word.") + +(set-word-regexp japanese-word-regexp) +(setq forward-word-regexp "\\w\\>") +(setq backward-word-regexp "\\<\\w") + +;;; Paragraph setting +(setq sentence-end + (concat + "\\(" + "\\(" + "[.?!][]\"')}]*" + "\\|" + "[$B!%!)!*(B][$B!O!I!G!K!Q!M!S!U!W!Y(B]*" + "\\)" + "\\($\\|\t\\| \\)" + "\\|" + "$B!#(B" + "\\)" + "[ \t\n]*")) +(setq paragraph-start "^[ $B!!(B\t\n\f]") +(setq paragraph-separate "^[ $B!!(B\t\f]*$") + +;; EGG specific setup +(define-egg-environment 'japanese + "Japanese settings for egg." + (lambda () + (when (not (featurep 'egg-jpn)) + (load "its/its-hira") + (load "its/its-kata") + (load "its/its-hankaku") + (load "its/its-zenkaku") + (setq its:*standard-modes* + (append + (list (its:get-mode-map "roma-kana") + (its:get-mode-map "roma-kata") + (its:get-mode-map "downcase") + (its:get-mode-map "upcase") + (its:get-mode-map "zenkaku-downcase") + (its:get-mode-map "zenkaku-upcase")) + its:*standard-modes*)) + (provide 'egg-jpn)) + (setq wnn-server-type 'jserver) + (setq egg-default-startup-file "eggrc-wnn") + (setq-default its:*current-map* (its:get-mode-map "roma-kana")))) + +;; stuff for providing gramatic processing of Japanese text +;; something like this should probably be created for all environments... + +(defvar aletter (concat "\\(" ascii-char "\\|" kanji-char "\\)")) +(defvar kanji-space-insertable (concat + "$B!"(B" aletter "\\|" + "$B!#(B" aletter "\\|" + aletter "$B!J(B" "\\|" + "$B!K(B" aletter "\\|" + ascii-alphanumeric kanji-kanji-char "\\|" + kanji-kanji-char ascii-alphanumeric )) + +(defvar space-insertable (concat " " aletter "\\|" kanji-space-insertable) + "Regexp for finding points that can have spaces inserted into them for justification") + +;; (define-coding-system-alias 'iso-2022-7 'iso-2022-jp) +;; (define-coding-system-alias 'iso-2022-7 'junet) + +(make-coding-system + 'iso-2022-jp 'iso2022 + "Coding-system used for communication with mail and news in Japan." + '(charset-g0 ascii + short t + seven t + input-charset-conversion ((latin-jisx0201 ascii) + (japanese-jisx0208-1978 japanese-jisx0208)) + mnemonic "MULE/7bit" + )) + +(copy-coding-system 'iso-2022-jp 'junet) + +;; (make-coding-system +;; 'shift_jis 1 ?S +;; "Coding-system of Shift-JIS used in Japan." t) + +(make-coding-system + 'shift_jis 'shift-jis + "Coding-system of Shift-JIS used in Japan." + '(mnemonic "Ja/SJIS")) + +;;(define-coding-system-alias 'shift_jis 'sjis) + +(copy-coding-system 'shift_jis 'sjis) + +;; (make-coding-system +;; 'iso-2022-jp-1978-irv 2 ?J +;; "Coding-system used for old jis terminal." +;; '((ascii t) nil nil nil +;; short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis)) + +(make-coding-system + 'iso-2022-jp-1978-irv 'iso2022 + "Coding-system used for old JIS terminal." + '(charset-g0 ascii + short t + seven t + output-charset-conversion ((ascii latin-jisx0201) + (japanese-jisx0208 japanese-jisx0208-1978)) + mnemonic "Ja-78/7bit" + )) + +;;(define-coding-system-alias 'iso-2022-jp-1978-irv 'old-jis) + +(copy-coding-system 'iso-2022-jp-1978-irv 'old-jis) + +;; (make-coding-system +;; 'euc-japan-1990 2 ?E +;; "Coding-system of Japanese EUC (Extended Unix Code)." +;; '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212 +;; short ascii-eol ascii-cntl nil nil single-shift)) + +(make-coding-system + 'euc-jp 'iso2022 + "Coding-system of Japanese EUC (Extended Unix Code)." + '(charset-g0 ascii + charset-g1 japanese-jisx0208 + charset-g2 katakana-jisx0201 + charset-g3 japanese-jisx0212 + short t + mnemonic "Ja/EUC" + )) + +;;(define-coding-system-alias 'euc-japan-1990 'euc-japan) + +(copy-coding-system 'euc-jp 'euc-japan) ; only for w3 +(copy-coding-system 'euc-jp 'japanese-euc) + +(register-input-method + "Japanese" '("quail-ja-hiragana" quail-use-package "quail/japanese")) +(register-input-method + "Japanese" '("quail-ja" quail-use-package "quail/japanese")) + +(defun setup-japanese-environment () + "Setup multilingual environment (MULE) for Japanese." + (interactive) + (setq coding-category-iso-8-2 'euc-jp) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-2 + coding-category-sjis + coding-category-iso-8-1 + coding-category-iso-else + coding-category-internal)) + + (if (eq system-type 'ms-dos) + (progn + (setq-default buffer-file-coding-system 'shift_jis) + (set-terminal-coding-system 'shift_jis) + (set-keyboard-coding-system 'shift_jis) + (setq default-process-coding-system '(shift_jis-dos . shift_jis-dos))) + (setq-default buffer-file-coding-system 'iso-2022-jp) + (set-terminal-coding-system 'iso-2022-jp) + (set-keyboard-coding-system 'iso-2022-jp)) + + (set-default-input-method "Japanese" "quail-ja") + + (setq sendmail-coding-system 'iso-2022-jp + rmail-file-coding-system 'iso-2022-jp) + ) + +(defun describe-japanese-support () + "Describe how Emacs supports Japanese." + (interactive) + (describe-language-support-internal "Japanese")) + +(set-language-info-alist + "Japanese" '((setup-function . setup-japanese-environment) + (describe-function . describe-japanese-support) + (tutorial . "TUTORIAL.jp") + (charset . (japanese-jisx0208 japanese-jisx0208-1978 + japanese-jisx0212 latin-jisx0201 + katakana-jisx0201)) + (coding-system . (euc-jp shift_jis + iso-2022-jp iso-2022-jp-1978-irv)) + (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") + (documentation . nil))) + +;; for XEmacs (will be obsoleted) + +(define-language-environment 'japanese + "Japanese (includes JIS and EUC)" + (lambda () + (set-coding-category-system 'iso-7 'iso-2022-jp) + (set-coding-category-system 'iso-8-2 'euc-jp) + (set-coding-priority-list '(iso-7 iso-8-2 shift-jis no-conversion)) + ;;'(iso-8-2 iso-8-designate iso-8-1 shift-jis big5) + + ;; Added by mrb, who doesn't speak japanese - so be sceptical... + ;; (when (string-match "solaris\\|sunos" system-configuration) + ;;(set-native-coding-system 'euc-japan) ; someday + (set-pathname-coding-system 'euc-jp) + (add-hook 'comint-exec-hook + (lambda () + (let ((proc (get-buffer-process (current-buffer)))) + (set-process-input-coding-system proc 'euc-jp) + (set-process-output-coding-system proc 'euc-jp)))) + ;;(set-buffer-file-coding-system-for-read 'automatic-conversion) + (set-default-buffer-file-coding-system 'euc-jp) + (setq keyboard-coding-system 'euc-jp) + (setq terminal-coding-system 'euc-jp) + (when (eq 'x (device-type (selected-device))) + (x-use-halfwidth-roman-font 'japanese-jisx0208 "jisx0201")) + + (when (eq system-type 'ms-dos) + ;; Shift-JIS is the standard coding system under Japanese MS-DOS + ;; This isn't really code - just a hint to future implementors + (setq keyboard-coding-system 'shift_jis-dos) + (setq terminal-coding-system 'shift_jis-dos) + (set-default-buffer-file-coding-system 'shift_jis-dos) + ;;(set-default-process-coding-system 'shift_jis-dos 'shift_jis-dos) + ) + )) + +(set-coding-category-system 'shift-jis 'shift_jis) + +;;; japanese.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/korean.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,178 @@ +;;; korean.el --- Support for Korean + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 MORIOKA Tomohiko + +;; Keywords: multilingual, Korean + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Commentary: + +;; For Korean, the character set KSC5601 is supported. + +;;; Code: + +;; Syntax of Korean characters. +(loop for row from 33 to 34 do + (modify-syntax-entry `[korean-ksc5601 ,row] ".")) +(loop for row from 35 to 37 do + (modify-syntax-entry `[korean-ksc5601 ,row] "w")) +(loop for row from 38 to 41 do + (modify-syntax-entry `[korean-ksc5601 ,row] ".")) +(loop for row from 42 to 126 do + (modify-syntax-entry `[korean-ksc5601 ,row] "w")) + +;; Setting for coding-system and quail were moved to +;; language/korean.el. + +(make-coding-system + 'iso-2022-int-1 'iso2022 + "ISO-2022-INT-1" + '(charset-g0 ascii + charset-g1 korean-ksc5601 + short t + seven t + lock-shift t + mnemonic "INT-1")) + +;; EGG specific setup +(define-egg-environment 'korean + "Korean settings for egg" + (lambda () + (when (not (featurep 'egg-kor)) + (load "its-hangul") + (setq its:*standard-modes* + (cons (its:get-mode-map "hangul") its:*standard-modes*)) + (provide 'egg-kor)) + (setq wnn-server-type 'kserver) + (setq egg-default-startup-file "eggrc-wnn") + (setq-default its:*current-map* (its:get-mode-map "hangul")))) + +;; (make-coding-system +;; 'euc-kr 2 ?K +;; "Coding-system of Korean EUC (Extended Unix Code)." +;; '((ascii t) korean-ksc5601 nil nil +;; nil ascii-eol ascii-cntl)) + +(make-coding-system + 'euc-kr 'iso2022 + "Coding-system of Korean EUC (Extended Unix Code)." + '(charset-g0 ascii + charset-g1 korean-ksc5601 + mnemonic "ko/EUC" + eol-type lf)) + +;;(define-coding-system-alias 'euc-kr 'euc-korea) + +(copy-coding-system 'euc-kr 'korean-euc) + +;; (make-coding-system +;; 'iso-2022-kr 2 ?k +;; "MIME ISO-2022-KR" +;; '(ascii (nil korean-ksc5601) nil nil +;; nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil +;; designation-bol)) + +(make-coding-system + 'iso-2022-kr 'iso2022 + "Coding-System used for communication with mail in Korea." + '(charset-g0 ascii + charset-g1 korean-ksc5601 + force-g1-on-output t + seven t + lock-shift t + mnemonic "Ko/7bit" + eol-type lf)) + +(register-input-method + "Korean" '("quail-hangul" quail-use-package "quail/hangul")) +(register-input-method + "Korean" '("quail-hangul3" quail-use-package "quail/hangul3")) +(register-input-method + "Korean" '("quail-hanja" quail-use-package "quail/hanja")) +(register-input-method + "Korean" '("quail-symbol-ksc" quail-use-package "quail/symbol-ksc")) +(register-input-method + "Korean" '("quail-hanja-jis" quail-use-package "quail/hanja-jis")) + +(defun setup-korean-environment () + "Setup multilingual environment (MULE) for Korean." + (interactive) + (setup-english-environment) + (setq coding-category-iso-8-2 'euc-kr) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-2 + coding-category-iso-8-1)) + + (setq-default buffer-file-coding-system 'euc-kr) + + (setq default-input-method '("Korean" . "quail-hangul")) + ) + +(defun describe-korean-support () + "Describe How Emacs supports Korean." + (interactive) + (describe-language-support-internal "Korean")) + +(set-language-info-alist + "Korean" '((setup-function . setup-korean-environment) + (describe-function . describe-korean-support) + (tutorial . "TUTORIAL.kr") + (charset . (korean-ksc5601)) + (coding-system . (euc-kr iso-2022-kr)) + (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") + (documentation . nil))) + +;;; for XEmacs (will be obsoleted) + +(define-language-environment 'korean + "Korean" + (lambda () + (set-coding-category-system 'iso-8-2 'euc-kr) + (set-coding-priority-list '(iso-8-2 iso-7 iso-8-designate)) + (set-pathname-coding-system 'euc-kr) + (add-hook 'comint-exec-hook + (lambda () + (let ((proc (get-buffer-process (current-buffer)))) + (set-process-input-coding-system proc 'euc-kr) + (set-process-output-coding-system proc 'euc-kr)))) + (set-buffer-file-coding-system-for-read 'automatic-conversion) + (set-default-buffer-file-coding-system 'euc-kr) + (setq keyboard-coding-system 'euc-kr) + (setq terminal-coding-system 'euc-kr) + (when (eq 'x (device-type (selected-device))) + (x-use-halfwidth-roman-font 'korean-ksc5601 "ksc5636")) + + ;; EGG specific setup 97.02.05 jhod + (when (featurep 'egg) + (when (not (featurep 'egg-kor)) + (provide 'egg-kor) + (load "its/its-hangul") + (setq its:*standard-modes* + (cons (its:get-mode-map "hangul") its:*standard-modes*))) + (setq-default its:*current-map* (its:get-mode-map "hangul"))) + +;; ;; (setq-default quail-current-package +;; ;; (assoc "hangul" quail-package-alist)) + )) + +;;; korean.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/lao-util.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,133 @@ +;;; lao-util.el --- utilities for Lao + +;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. + +;; Keywords: multilingual, Lao + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + +(let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN") + (?(1"(B consonant "LETTER KHOR KHAI'" "EGG") + (?(1#(B invalid nil) + (?(1$(B consonant "LETTER QHOR QHWARGN" "BUFFALO") + (?(1%(B invalid nil) + (? invalid nil) + (?(1'(B consonant "LETTER NGOR NGUU" "SNAKE") + (?(1((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE") + (?(1)(B invalid nil) + (?(1*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT") + (?(1+(B invalid nil) + (?(1,(B invalid nil) + (?(1-(B consonant "LETTER YOR YUNG" "MOSQUITO") + (?(1.(B invalid nil) + (?(1.(B invalid nil) + (?(1.(B invalid nil) + (?(1.(B invalid nil) + (?(1.(B invalid nil) + (?(1.(B invalid nil) + (?(14(B consonant "LETTER DOR DANG" "NOSE") + (?(15(B consonant "LETTER TOR TAR" "EYE") + (?(16(B consonant "LETTER DHOR DHARM" "TO ASK,QUESTION") + (?(17(B consonant "LETTER THOR THUNG" "FLAG") + (?(18(B invalid nil) + (?(19(B consonant "LETTER NOR NOK" "BIRD") + (?(1:(B consonant "LETTER BOR BED" "FISHHOOK") + (?(1;(B consonant "LETTER POR PAR" "FISH") + (?(1<(B consonant "LETTER HPOR HPER\"" "BEE") + (?(1=(B consonant "LETTER FHOR FHAR" "WALL") + (?(1>(B consonant "LETTER PHOR PHUU" "MOUNTAIN") + (?(1?(B consonant "LETTER FOR FAI" "FIRE") + (?(1@(B invalid nil) + (?(1A(B consonant "LETTER MOR MAR\"" "HORSE") + (?(1B(B consonant "LETTER GNOR GNAR" "MEDICINE") + (?(1C(B consonant "LETTER ROR ROD" "CAR") + (?(1D(B invalid nil) + (?(1E(B consonant "LETTER LOR LIING" "MONKEY") + (?(1F(B invalid nil) + (?(1G(B consonant "LETTER WOR WII" "HAND FAN") + (?(1H(B invalid nil) + (?(1I(B invalid nil) + (?(1J(B consonant "LETTER SOR SEA" "TIGER") + (?(1K(B consonant "LETTER HHOR HHAI" "JAR") + (?(1L(B invalid nil) + (?(1M(B consonant "LETTER OR OOW" "TAKE") + (?(1N(B consonant "LETTER HOR HEA" "BOAT") + (?(1O(B special "ELLIPSIS") + (?(1P(B vowel-base "VOWEL SIGN SARA A") + (?(1Q(B vowel-upper "VOWEL SIGN MAI KAN") + (?(1R(B vowel-base "VOWEL SIGN SARA AR") + (?(1S(B vowel-base "VOWEL SIGN SARA AM") + (?(1T(B vowel-upper "VOWEL SIGN SARA I") + (?(1U(B vowel-upper "VOWEL SIGN SARA II") + (?(1V(B vowel-upper "VOWEL SIGN SARA EU") + (?(1W(B vowel-upper "VOWEL SIGN SARA UR") + (?(1X(B vowel-lower "VOWEL SIGN SARA U") + (?(1Y(B vowel-lower "VOWEL SIGN SARA UU") + (?(1Z(B invalid nil) + (?(1[(B vowel-upper "VOWEL SIGN MAI KONG") + (?(1\(B semivowel-lower "SEMIVOWEL SIGN LO") + (?(1](B vowel-base "SEMIVOWEL SIGN SARA IA") + (?(1^(B invalid nil) + (?(1_(B invalid nil) + (?(1`(B vowel-base "VOWEL SIGN SARA EE") + (?(1a(B vowel-base "VOWEL SIGN SARA AA") + (?(1b(B vowel-base "VOWEL SIGN SARA OO") + (?(1c(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"") + (?(1d(B vowel-base "VOWEL SIGN SARA AI MAI MAY") + (?(1e(B invalid nil) + (?(1f(B special "KO LA (REPETITION)") + (?(1g(B invalid nil) + (?(1h(B tone "TONE MAI EK") + (?(1i(B tone "TONE MAI THO") + (?(1j(B tone "TONE MAI TI") + (?(1k(B tone "TONE MAI JADTAWAR") + (?(1l(B tone "CANCELLATION MARK") + (?(1m(B vowel-upper "VOWEL SIGN SARA OR") + (?(1n(B invalid nil) + (?(1o(B invalid nil) + (?(1p(B special "DIGIT ZERO") + (?(1q(B special "DIGIT ONE") + (?(1r(B special "DIGIT TWO") + (?(1s(B special "DIGIT THREE") + (?(1t(B special "DIGIT FOUR") + (?(1u(B special "DIGIT FIVE") + (?(1v(B special "DIGIT SIX") + (?(1w(B special "DIGIT SEVEN") + (?(1x(B special "DIGIT EIGHT") + (?(1y(B special "DIGIT NINE") + (?(1z(B invalid nil) + (?(1{(B invalid nil) + (?(1|(B consonant "LETTER NHOR NHUU" "MOUSE") + (?(1}(B consonant "LETTER MHOR MHAR" "DOG") + (?(1~(B invalid nil) + )) + elm) + (while l + (setq elm (car l)) + (put-char-code-property (car elm) 'phonetic-type (car (cdr elm))) + (put-char-code-property (car elm) 'name (nth 2 elm)) + (put-char-code-property (car elm) 'meaning (nth 3 elm)) + (setq l (cdr l)))) + +;; +(provide 'language/lao-util) + +;;; lao-util.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/lao.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,71 @@ +;;; lao.el --- Support for Lao + +;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. + +;; Keywords: multilingual, Lao + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + +(make-coding-system + 'lao 2 ?T + "Coding-system used for ASCII(MSB=0) & LAO(MSB=1)." + '((ascii t) (lao t) nil nil + nil ascii-eol)) + +(register-input-method + "Lao" '("quail-lao" quail-use-package "quail/lao")) + +(register-input-method + "Lao" '("quail-lrt" quail-use-package "quail/lrt")) + +(defun setup-lao-environment () + "Setup multilingual environment (MULE) for Lao." + (interactive) + (setup-english-environment) + (setq coding-category-iso-8-1 'lao) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-1)) + + (set-default buffer-file-coding-system 'iso-2022-7) + + (setq default-input-method '("Lao" . "quail-lao"))) + +(defun describe-lao-support () + "Describe how Emacs supports Lao." + (interactive) + (describe-language-support-internal "Lao")) + +(set-language-info-alist + "Lao" '((setup-function . setup-lao-environment) + (describe-function . describe-lao-support) + (charset . (lao)) + (coding-system . (lao)) + (sample-text . "Lao((1>RJRERG(B) (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B") + (documentation . nil))) + +(aset use-default-ascent ?(1;(B t) +(aset use-default-ascent ?(1=(B t) +(aset use-default-ascent ?(1?(B t) +(aset use-default-ascent ?(1B(B t) + +;;; lao.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/misc-lang.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,43 @@ +;;; misc-lang.el --- support for miscellaneous languages (characters) + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 MORIOKA Tomohiko + +;; Keywords: multilingual, character set, coding system + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Code: + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; IPA (International Phonetic Alphabet) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(make-charset 'ipa "International Phonetic Alphabet" + '(registry "MuleIPA" + dimension 1 + chars 96 + final ?0 + graphic 1 + )) ; for XEmacs + +(register-input-method + "IPA" '("quail-ipa" quail-use-package "quail/ipa")) + +;;; misc-lang.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/thai-util.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,324 @@ +;;; thai-util.el --- utilities for Thai + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 MORIOKA Tomohiko + +;; Keywords: mule, multilingual, thai + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Code: + +;; Setting information of Thai characters. + +;; (let ((l '((?,T!(B consonant "LETTER KO KAI") ; 0xA1 +;; (?,T"(B consonant "LETTER KHO KHAI") ; 0xA2 +;; (?,T#(B consonant "LETTER KHO KHUAT") ; 0xA3 +;; (?,T$(B consonant "LETTER KHO KHWAI") ; 0xA4 +;; (?,T%(B consonant "LETTER KHO KHON") ; 0xA5 +;; (?,T&(B consonant "LETTER KHO RAKHANG") ; 0xA6 +;; (?,T'(B consonant "LETTER NGO NGU") ; 0xA7 +;; (?,T((B consonant "LETTER CHO CHAN") ; 0xA8 +;; (?,T)(B consonant "LETTER CHO CHING") ; 0xA9 +;; (?,T*(B consonant "LETTER CHO CHANG") ; 0xAA +;; (?,T+(B consonant "LETTER SO SO") ; 0xAB +;; (?,T,(B consonant "LETTER CHO CHOE") ; 0xAC +;; (?,T-(B consonant "LETTER YO YING") ; 0xAD +;; (?,T.(B consonant "LETTER DO CHADA") ; 0xAE +;; (?,T/(B consonant "LETTER TO PATAK") ; 0xAF +;; (?,T0(B consonant "LETTER THO THAN") ; 0xB0 +;; (?,T1(B consonant "LETTER THO NANGMONTHO") ; 0xB1 +;; (?,T2(B consonant "LETTER THO PHUTHAO") ; 0xB2 +;; (?,T3(B consonant "LETTER NO NEN") ; 0xB3 +;; (?,T4(B consonant "LETTER DO DEK") ; 0xB4 +;; (?,T5(B consonant "LETTER TO TAO") ; 0xB5 +;; (?,T6(B consonant "LETTER THO THUNG") ; 0xB6 +;; (?,T7(B consonant "LETTER THO THAHAN") ; 0xB7 +;; (?,T8(B consonant "LETTER THO THONG") ; 0xB8 +;; (?,T9(B consonant "LETTER NO NU") ; 0xB9 +;; (?,T:(B consonant "LETTER BO BAIMAI") ; 0xBA +;; (?,T;(B consonant "LETTER PO PLA") ; 0xBB +;; (?,T<(B consonant "LETTER PHO PHUNG") ; 0xBC +;; (?,T=(B consonant "LETTER FO FA") ; 0xBD +;; (?,T>(B consonant "LETTER PHO PHAN") ; 0xBE +;; (?,T?(B consonant "LETTER FO FAN") ; 0xBF +;; (?,T@(B consonant "LETTER PHO SAMPHAO") ; 0xC0 +;; (?,TA(B consonant "LETTER MO MA") ; 0xC1 +;; (?,TB(B consonant "LETTER YO YAK") ; 0xC2 +;; (?,TC(B consonant "LETTER RO RUA") ; 0xC3 +;; (?,TD(B vowel-base "LETTER RU (Pali vowel letter)") ; 0xC4 +;; (?,TE(B consonant "LETTER LO LING") ; 0xC5 +;; (?,TF(B vowel-base "LETTER LU (Pali vowel letter)") ; 0xC6 +;; (?,TG(B consonant "LETTER WO WAEN") ; 0xC7 +;; (?,TH(B consonant "LETTER SO SALA") ; 0xC8 +;; (?,TI(B consonant "LETTER SO RUSI") ; 0xC9 +;; (?,TJ(B consonant "LETTER SO SUA") ; 0xCA +;; (?,TK(B consonant "LETTER HO HIP") ; 0xCB +;; (?,TL(B consonant "LETTER LO CHULA") ; 0xCC +;; (?,TM(B consonant "LETTER O ANG") ; 0xCD +;; (?,TN(B consonant "LETTER HO NOK HUK") ; 0xCE +;; (?,TO(B special "PAI YAN NOI (abbreviation)") ; 0xCF +;; (?,TP(B vowel-base "VOWEL SIGN SARA A") ; 0xD0 +;; (?,TQ(B vowel-upper "VOWEL SIGN MAI HAN-AKAT N/S-T") ; 0xD1 +;; (?,TR(B vowel-base "VOWEL SIGN SARA AA") ; 0xD2 +;; (?,TS(B vowel-base "VOWEL SIGN SARA AM") ; 0xD3 +;; (?,TT(B vowel-upper "VOWEL SIGN SARA I N/S-T") ; 0xD4 +;; (?,TU(B vowel-upper "VOWEL SIGN SARA II N/S-T") ; 0xD5 +;; (?,TV(B vowel-upper "VOWEL SIGN SARA UE N/S-T") ; 0xD6 +;; (?,TW(B vowel-upper "VOWEL SIGN SARA UEE N/S-T") ; 0xD7 +;; (?,TX(B vowel-lower "VOWEL SIGN SARA U N/S-B") ; 0xD8 +;; (?,TY(B vowel-lower "VOWEL SIGN SARA UU N/S-B") ; 0xD9 +;; (?,TZ(B vowel-lower "VOWEL SIGN PHINTHU N/S-B (Pali virama)") ; 0xDA +;; (?,T[(B invalid nil) ; 0xDA +;; (?,T\(B invalid nil) ; 0xDC +;; (?,T](B invalid nil) ; 0xDC +;; (?,T^(B invalid nil) ; 0xDC +;; (?,T_(B special "BAHT SIGN (currency symbol)") ; 0xDF +;; (?,T`(B vowel-base "VOWEL SIGN SARA E") ; 0xE0 +;; (?,Ta(B vowel-base "VOWEL SIGN SARA AE") ; 0xE1 +;; (?,Tb(B vowel-base "VOWEL SIGN SARA O") ; 0xE2 +;; (?,Tc(B vowel-base "VOWEL SIGN SARA MAI MUAN") ; 0xE3 +;; (?,Td(B vowel-base "VOWEL SIGN SARA MAI MALAI") ; 0xE4 +;; (?,Te(B vowel-base "LAK KHANG YAO") ; 0xE5 +;; (?,Tf(B special "MAI YAMOK (repetion)") ; 0xE6 +;; (?,Tg(B vowel-upper "VOWEL SIGN MAI TAI KHU N/S-T") ; 0xE7 +;; (?,Th(B tone "TONE MAI EK N/S-T") ; 0xE8 +;; (?,Ti(B tone "TONE MAI THO N/S-T") ; 0xE9 +;; (?,Tj(B tone "TONE MAI TRI N/S-T") ; 0xEA +;; (?,Tk(B tone "TONE MAI CHATTAWA N/S-T") ; 0xEB +;; (?,Tl(B tone "THANTHAKHAT N/S-T (cancellation mark)") ; 0xEC +;; (?,Tm(B tone "NIKKHAHIT N/S-T (final nasal)") ; 0xED +;; (?,Tn(B vowel-upper "YAMAKKAN N/S-T") ; 0xEE +;; (?,To(B special "FONRMAN") ; 0xEF +;; (?,Tp(B special "DIGIT ZERO") ; 0xF0 +;; (?,Tq(B special "DIGIT ONE") ; 0xF1 +;; (?,Tr(B special "DIGIT TWO") ; 0xF2 +;; (?,Ts(B special "DIGIT THREE") ; 0xF3 +;; (?,Tt(B special "DIGIT FOUR") ; 0xF4 +;; (?,Tu(B special "DIGIT FIVE") ; 0xF5 +;; (?,Tv(B special "DIGIT SIX") ; 0xF6 +;; (?,Tw(B special "DIGIT SEVEN") ; 0xF7 +;; (?,Tx(B special "DIGIT EIGHT") ; 0xF8 +;; (?,Ty(B special "DIGIT NINE") ; 0xF9 +;; (?,Tz(B special "ANGKHANKHU (ellipsis)") ; 0xFA +;; (?,T{(B special "KHOMUT (beginning of religious texts)") ; 0xFB +;; (?,T|(B invalid nil) ; 0xFC +;; (?,T}(B invalid nil) ; 0xFD +;; (?,T~(B invalid nil) ; 0xFE +;; )) +;; elm) +;; (while l +;; (setq elm (car l)) +;; (put-char-code-property (car elm) 'phonetic-type (car (cdr elm))) +;; (put-char-code-property (car elm) 'name (nth 2 elm)) +;; (setq l (cdr l)))) + +(defconst thai-character-alist + '((?,T!(B . consonant) ; 0xA1: LETTER KO KAI + (?,T"(B . consonant) ; 0xA2: LETTER KHO KHAI + (?,T#(B . consonant) ; 0xA3: LETTER KHO KHUAT (obsolete) + (?,T$(B . consonant) ; 0xA4: LETTER KHO KHWAI + (?,T%(B . consonant) ; 0xA5: LETTER KHO KHON (obsolete) + (?,T&(B . consonant) ; 0xA6: LETTER KHO RAKHANG + (?,T'(B . consonant) ; 0xA7: LETTER NGO NGU + (?,T((B . consonant) ; 0xA8: LETTER CHO CHAN + (?,T)(B . consonant) ; 0xA9: LETTER CHO CHING + (?,T*(B . consonant) ; 0xAA: LETTER CHO CHANG + (?,T+(B . consonant) ; 0xAB: LETTER SO SO + (?,T,(B . consonant) ; 0xAC: LETTER CHO CHOE + (?,T-(B . consonant) ; 0xAD: LETTER YO YING + (?,T.(B . consonant) ; 0xAE: LETTER DO CHADA + (?,T/(B . consonant) ; 0xAF: LETTER TO PATAK + (?,T0(B . consonant) ; 0xB0: LETTER THO THAN + (?,T1(B . consonant) ; 0xB1: LETTER THO NANGMONTHO + (?,T2(B . consonant) ; 0xB2: LETTER THO PHUTHAO + (?,T3(B . consonant) ; 0xB3: LETTER NO NEN + (?,T4(B . consonant) ; 0xB4: LETTER DO DEK + (?,T5(B . consonant) ; 0xB5: LETTER TO TAO + (?,T6(B . consonant) ; 0xB6: LETTER THO THUNG + (?,T7(B . consonant) ; 0xB7: LETTER THO THAHAN + (?,T8(B . consonant) ; 0xB8: LETTER THO THONG + (?,T9(B . consonant) ; 0xB9: LETTER NO NU + (?,T:(B . consonant) ; 0xBA: LETTER BO BAIMAI + (?,T;(B . consonant) ; 0xBB: LETTER PO PLA + (?,T<(B . consonant) ; 0xBC: LETTER PHO PHUNG + (?,T=(B . consonant) ; 0xBD: LETTER FO FA + (?,T>(B . consonant) ; 0xBE: LETTER PHO PHAN + (?,T?(B . consonant) ; 0xBF: LETTER FO FAN + (?,T@(B . consonant) ; 0xC0: LETTER PHO SAMPHAO + (?,TA(B . consonant) ; 0xC1: LETTER MO MA + (?,TB(B . consonant) ; 0xC2: LETTER YO YAK + (?,TC(B . consonant) ; 0xC3: LETTER RO RUA + (?,TD(B . vowel-base) ; 0xC4: LETTER RU (vowel letter used to write Pali) + (?,TE(B . consonant) ; 0xC5: LETTER LO LING + (?,TF(B . vowel-base) ; 0xC6: LETTER LU (vowel letter used to write Pali) + (?,TG(B . consonant) ; 0xC7: LETTER WO WAEN + (?,TH(B . consonant) ; 0xC8: LETTER SO SALA + (?,TI(B . consonant) ; 0xC9: LETTER SO RUSI + (?,TJ(B . consonant) ; 0xCA: LETTER SO SUA + (?,TK(B . consonant) ; 0xCB: LETTER HO HIP + (?,TL(B . consonant) ; 0xCC: LETTER LO CHULA + (?,TM(B . consonant) ; 0xCD: LETTER O ANG + (?,TN(B . consonant) ; 0xCE: LETTER HO NOK HUK + (?,TO(B . special) ; 0xCF: PAI YAN NOI (abbreviation) + (?,TP(B . vowel-base) ; 0xD0: VOWEL SIGN SARA A + (?,TQ(B . vowel-upper) ; 0xD1: VOWEL SIGN MAI HAN-AKAT N/S-T + (?,TR(B . vowel-base) ; 0xD2: VOWEL SIGN SARA AA + (?,TS(B . vowel-base) ; 0xD3: VOWEL SIGN SARA AM + (?,TT(B . vowel-upper) ; 0xD4: VOWEL SIGN SARA I N/S-T + (?,TU(B . vowel-upper) ; 0xD5: VOWEL SIGN SARA II N/S-T + (?,TV(B . vowel-upper) ; 0xD6: VOWEL SIGN SARA UE N/S-T + (?,TW(B . vowel-upper) ; 0xD7: VOWEL SIGN SARA UEE N/S-T + (?,TX(B . vowel-lower) ; 0xD8: VOWEL SIGN SARA U N/S-B + (?,TY(B . vowel-lower) ; 0xD9: VOWEL SIGN SARA UU N/S-B + (?,TZ(B . vowel-lower) ; 0xDA: VOWEL SIGN PHINTHU N/S-B (Pali virama) + (?,T[(B . not-used) ; 0xDA: + (?,T\(B . not-used) ; 0xDC: + (?,T](B . not-used) ; 0xDC: + (?,T^(B . not-used) ; 0xDC: + (?,T_(B . special) ; 0xDF: BAHT SIGN (currency symbol) + (?,T`(B . vowel-base) ; 0xE0: VOWEL SIGN SARA E + (?,Ta(B . vowel-base) ; 0xE1: VOWEL SIGN SARA AE + (?,Tb(B . vowel-base) ; 0xE2: VOWEL SIGN SARA O + (?,Tc(B . vowel-base) ; 0xE3: VOWEL SIGN SARA MAI MUAN + (?,Td(B . vowel-base) ; 0xE4: VOWEL SIGN SARA MAI MALAI + (?,Te(B . vowel-base) ; 0xE5: LAK KHANG YAO + (?,Tf(B . special) ; 0xE6: MAI YAMOK (repetion) + (?,Tg(B . vowel-upper) ; 0xE7: VOWEL SIGN MAI TAI KHU N/S-T + (?,Th(B . tone) ; 0xE8: TONE MAI EK N/S-T + (?,Ti(B . tone) ; 0xE9: TONE MAI THO N/S-T + (?,Tj(B . tone) ; 0xEA: TONE MAI TRI N/S-T + (?,Tk(B . tone) ; 0xEB: TONE MAI CHATTAWA N/S-T + (?,Tl(B . tone) ; 0xEC: THANTHAKHAT N/S-T (cancellation mark) + (?,Tm(B . tone) ; 0xED: NIKKHAHIT N/S-T (final nasal) + (?,Tn(B . vowel-upper) ; 0xEE: YAMAKKAN N/S-T + (?,To(B . special) ; 0xEF: FONRMAN + (?,Tp(B . special) ; 0xF0: DIGIT ZERO + (?,Tq(B . special) ; 0xF1: DIGIT ONE + (?,Tr(B . special) ; 0xF2: DIGIT TWO + (?,Ts(B . special) ; 0xF3: DIGIT THREE + (?,Tt(B . special) ; 0xF4: DIGIT FOUR + (?,Tu(B . special) ; 0xF5: DIGIT FIVE + (?,Tv(B . special) ; 0xF6: DIGIT SIX + (?,Tw(B . special) ; 0xF7: DIGIT SEVEN + (?,Tx(B . special) ; 0xF8: DIGIT EIGHT + (?,Ty(B . special) ; 0xF9: DIGIT NINE + (?,Tz(B . special) ; 0xFA: ANGKHANKHU (ellipsis) + (?,T{(B . special) ; 0xFB: KHOMUT (beginning of religious texts) + (?,T|(B . not-used) ; 0xFC: + (?,T}(B . not-used) ; 0xFD: + (?,T~(B . not-used) ; 0xFE: + ) + "Association list of thai-character and property.") +(setq thai-character-alist + (cons (cons (string-to-char "0,TQi1(B") 'vowel-upper-tone) + thai-character-alist)) + +(defconst thai-category-table + (copy-category-table (standard-category-table)) + "Category table for Thai.") +(define-category-mnemonic ?0 "Thai consonants" + thai-category-table) +(define-category-mnemonic ?1 "Thai upper/lower vowel or tone mark." + thai-category-table) +(define-category-mnemonic ?2 "Thai base vowel or special characters." + thai-category-table) + +(let ((chars thai-character-alist) + ch prop) + (while chars + (setq ch (car (car chars)) + prop (cdr (car chars))) + (cond ((eq prop 'consonant) + (modify-category-entry ch ?0 thai-category-table)) + ((or (eq prop 'vowel-upper) + (eq prop 'vowel-lower) + (eq prop 'tone)) + (modify-category-entry ch ?1 thai-category-table)) + ((null (eq prop 'vowel-upper-tone)) + (modify-category-entry ch ?2 thai-category-table))) + (setq chars (cdr chars)))) + +;; ;;;###autoload +;; (defun thai-compose-region (beg end) +;; "Compose Thai characters in the region. +;; When called from a program, expects two arguments, +;; positions (integers or markers) specifying the region." +;; (interactive "r") +;; (save-restriction +;; (narrow-to-region beg end) +;; (decompose-region (point-min) (point-max)) +;; (goto-char (point-min)) +;; (while (re-search-forward "\\c0\\(\\c2\\|\\c3\\|\\c4\\)+" nil t) +;; (if (aref (char-category-set (char-after (match-beginning 0))) ?t) +;; (compose-region (match-beginning 0) (match-end 0)))))) + +;;;###autoload +(defun thai-compose-region (beg end) + "Compose Thai characters in the region." + (interactive "r") + (save-restriction + (narrow-to-region beg end) + (decompose-region (point-min) (point-max)) + (goto-char (point-min)) + (let ((ctbl (category-table)) + str) + (unwind-protect + (progn + (set-category-table thai-category-table) + (while (re-search-forward "\\c0\\c1+" nil t) + (compose-region (match-beginning 0) (match-end 0)))) + (set-category-table ctbl))))) + +;;;###autoload +(defun thai-compose-buffer () + "Compose Thai characters in the current buffer." + (interactive) + (thai-compose-region (point-min) (point-max))) + +;; ;;;###autoload +;; (defun thai-post-read-conversion (len) +;; (save-excursion +;; (save-restriction +;; (let ((buffer-modified-p (buffer-modified-p))) +;; (narrow-to-region (point) (+ (point) len)) +;; (thai-compose-region (point-min) (point-max)) +;; (set-buffer-modified-p buffer-modified-p) +;; (- (point-max) (point-min)))))) + +;; ;;;###autoload +;; (defun thai-pre-write-conversion (from to) +;; (let ((old-buf (current-buffer)) +;; (work-buf (get-buffer-create " *thai-work*"))) +;; (set-buffer work-buf) +;; (erase-buffer) +;; (if (stringp from) +;; (insert from) +;; (insert-buffer-substring old-buf from to)) +;; (decompose-region (point-min) (point-max)) +;; ;; Should return nil as annotations. +;; nil)) + +;; +(provide 'language/thai-util) + +;;; Local Variables: +;;; generated-autoload-file: "../loaddefs.el" +;;; End: +;;; thai-util.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/thai.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,94 @@ +;;; thai.el --- Support for Thai + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997 MORIOKA Tomohiko + +;; Keywords: multilingual, Thai + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Commentary: + +;; For Thai, the character set TIS620 is supported. + +;;; Code: + +(define-language-environment 'thai + "Thai" + (lambda () + (set-coding-category-system 'iso-8-designate 'tis620) + (set-coding-priority-list '(iso-8-designate iso-8-1)) + (set-default-buffer-file-coding-system 'tis620) + ;; (setq-default quail-current-package (assoc "thai" quail-package-alist)) + )) + +;; (make-coding-system +;; 'th-tis620 2 ?T +;; "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)." +;; '((ascii t) (thai-tis620 t) nil nil +;; nil ascii-eol)) +;; (put 'th-tis620 'post-read-conversion 'thai-post-read-conversion) +;; (put 'th-tis620 'pre-write-conversion 'thai-pre-write-conversion) + +(make-coding-system + 'tis620 'iso2022 + "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)." + '(charset-g0 ascii + charset-g1 thai-tis620 + no-ascii-cntl t + mnemonic "TIS620" + post-read-conversion thai-compose-region + pre-write-conversion decompose-region + )) + +;;(define-coding-system-alias 'th-tis620 'tis620) + +(register-input-method + "Thai" '("quail-thai" quail-use-package "quail/thai")) + +(defun setup-thai-environment () + "Setup multilingual environment (MULE) for Thai." + (interactive) + (setup-english-environment) + (setq coding-category-iso-8-1 'th-tis620) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-1)) + + (setq-default buffer-file-coding-system 'th-tis620) + + (setq default-input-method '("Thai" . "quail-thai")) + ) + +(defun describe-thai-support () + "Describe how Emacs supports Thai." + (interactive) + (describe-language-support-internal "Thai")) + +(set-language-info-alist + "Thai" '((tutorial . "TUTORIAL.th") + (setup-function . setup-thai-environment) + (describe-function . describe-thai-support) + (charset . (thai-tis620)) + (coding-system . (th-tis620)) + (sample-text . "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B") + (documentation . nil))) + +;;; thai.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/tibetan.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,571 @@ +;;; tibetan.el --- Support for Tibetan language + +;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. + +;; Keywords: multilingual, Tibetan + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;; Author: Toru TOMABECHI, <Toru.Tomabechi@orient.unil.ch> + +;; Created: Feb. 17. 1997 + +;; History: +;; 1997.03.13 Modification for special signs and punctuations. + +;;; Code: + +;;; Tibetan Character set. +;;; \x2130 -- \x234a is a subset of Unicode v.2 \x0f00 - \x0fb9 +;;; with a slight modification. And there are some subjoined +;;; consonants which are not specified in Unicode. +;;; I hope I can add missing characters later. +;;; +;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F +;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; +;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuations, +;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and +;;;2150 $(7!P(B $(7!Q(B $(7!R(B $(7!S(B $(7!T(B $(7!U(B $(7!V(B $(7!W(B $(7!X(B $(7!Y(B $(7!Z(B $(7![(B $(7!\(B $(7!](B $(7!^(B $(7!_(B ; Special signs. +;;;2160 $(7!`(B $(7!a(B $(7!b(B $(7!c(B $(7!d(B $(7!e(B $(7!f(B $(7!g(B $(7!h(B $(7!i(B $(7!j(B $(7!k(B $(7!l(B $(7!m(B $(7!n(B $(7!o(B ; +;;;2170 $(7!p(B $(7!q(B $(7!r(B $(7!s(B $(7!t(B $(7!u(B $(7!v(B $(7!w(B $(7!x(B $(7!y(B $(7!z(B $(7!{(B $(7!|(B $(7!}(B $(7!~(B // ; +;;; +;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F +;;;2220 // $(7"!(B $(7""(B $(7"#(B $(7"$(B $(7"%(B $(7"&(B $(7"'(B $(7"((B $(7")(B $(7"*(B $(7"+(B $(7",(B $(7"-(B $(7".(B $(7"/(B ; Base consonants +;;;2230 $(7"0(B $(7"1(B $(7"2(B $(7"3(B $(7"4(B $(7"5(B $(7"6(B $(7"7(B $(7"8(B $(7"9(B $(7":(B $(7";(B $(7"<(B $(7"=(B $(7">(B $(7"?(B ; and +;;;2240 $(7"@(B $(7"A(B $(7"B(B $(7"C(B $(7"D(B $(7"E(B $(7"F(B $(7"G(B $(7"H(B $(7"I(B $(7"J(B $(7"K(B $(7"L(B $(7"M(B $(7"N(B $(7"O(B ; Vowel signs. +;;;2250 $(7"P(B $(7"Q(B $(7"R(B $(7"S(B $(7"T(B $(7"U(B $(7"V(B $(7"W(B $(7"X(B $(7"Y(B $(7"Z(B $(7"[(B $(7"\(B $(7"](B $(7"^(B $(7"_(B ; (\x2251 = vowel a) +;;;2260 $(7"`(B $(7"a(B $(7"b(B $(7"c(B $(7"d(B $(7"e(B $(7"f(B $(7"g(B $(7"h(B $(7"i(B $(7"j(B $(7"k(B $(7"l(B $(7"m(B $(7"n(B $(7"o(B ; Long vowels and +;;;2270 $(7"p(B $(7"q(B $(7"r(B $(7"s(B $(7"t(B $(7"u(B $(7"v(B $(7"w(B $(7"x(B $(7"y(B $(7"z(B $(7"{(B $(7"|(B $(7"}(B $(7"~(B // ; vocalic r, l are +;;; ; not atomically +;;; ; encoded. +;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F +;;;2320 // $(7#!(B $(7#"(B $(7##(B $(7#$(B $(7#%(B $(7#&(B $(7#'(B $(7#((B $(7#)(B $(7#*(B $(7#+(B $(7#,(B $(7#-(B $(7#.(B $(7#/(B ; Subjoined consonants +;;;2330 $(7#0(B $(7#1(B $(7#2(B $(7#3(B $(7#4(B $(7#5(B $(7#6(B $(7#7(B $(7#8(B $(7#9(B $(7#:(B $(7#;(B $(7#<(B $(7#=(B $(7#>(B $(7#?(B ; +;;;2340 $(7#@(B $(7#A(B $(7#B(B $(7#C(B $(7#D(B $(7#E(B $(7#F(B $(7#G(B $(7#H(B $(7#I(B $(7#J(B $(7#K(B $(7#L(B $(7#M(B $(7#N(B $(7#O(B ; 'a chung (\x2341)is +;;; ; here, +;;; ; while in Unicode +;;; ; it is classified +;;; ; as a vowel sign +;;; ; (\x0f71). +;;; +;;;2350 $(7#P(B $(7#Q(B $(7#R(B $(7#S(B $(7#T(B $(7#U(B $(7#V(B $(7#W(B $(7#X(B $(7#Y(B $(7#Z(B $(7#[(B $(7#\(B $(7#](B $(7#^(B $(7#_(B ; Hereafter, the chars +;;;2360 $(7#`(B $(7#a(B $(7#b(B $(7#c(B $(7#d(B $(7#e(B $(7#f(B $(7#g(B $(7#h(B $(7#i(B $(7#j(B $(7#k(B $(7#l(B $(7#m(B $(7#n(B $(7#o(B ; are not specified +;;;2370 $(7#p(B $(7#q(B $(7#r(B $(7#s(B $(7#t(B $(7#u(B $(7#v(B $(7#w(B $(7#x(B $(7#y(B $(7#z(B $(7#{(B $(7#|(B $(7#}(B $(7#~(B // ; in Unicode. +;;; ; The character \x2351 +;;; ; is not used in our +;;; ; implementation. +;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F +;;;2420 // $(7$!(B $(7$"(B $(7$#(B $(7$$(B $(7$%(B $(7$&(B $(7$'(B $(7$((B $(7$)(B $(7$*(B $(7$+(B $(7$,(B $(7$-(B $(7$.(B $(7$/(B ; Precomposed +;;;2430 $(7$0(B $(7$1(B $(7$2(B $(7$3(B $(7$4(B $(7$5(B $(7$6(B $(7$7(B $(7$8(B $(7$9(B $(7$:(B $(7$;(B $(7$<(B $(7$=(B $(7$>(B $(7$?(B ; consonants for +;;;2440 $(7$@(B $(7$A(B $(7$B(B $(7$C(B $(7$D(B $(7$E(B $(7$F(B $(7$G(B $(7$H(B $(7$I(B $(7$J(B $(7$K(B $(7$L(B $(7$M(B $(7$N(B $(7$O(B ; ordinary Tibetan. +;;;2450 $(7$P(B $(7$Q(B $(7$R(B $(7$S(B $(7$T(B $(7$U(B $(7$V(B $(7$W(B $(7$X(B $(7$Y(B $(7$Z(B $(7$[(B $(7$\(B $(7$](B $(7$^(B $(7$_(B ; They are decomposed +;;;2460 $(7$`(B $(7$a(B $(7$b(B $(7$c(B $(7$d(B $(7$e(B $(7$f(B $(7$g(B $(7$h(B $(7$i(B $(7$j(B $(7$k(B $(7$l(B $(7$m(B $(7$n(B $(7$o(B ; into base and +;;;2470 $(7$p(B $(7$q(B $(7$r(B $(7$s(B $(7$t(B $(7$u(B $(7$v(B $(7$w(B $(7$x(B $(7$y(B $(7$z(B $(7${(B $(7$|(B $(7$}(B $(7$~(B // ; subjoined consonants +;;; ; when written on a +;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ; file in Tibetan +;;;2520 // $(7%!(B $(7%"(B $(7%#(B $(7%$(B $(7%%(B $(7%&(B $(7%'(B $(7%((B $(7%)(B $(7%*(B $(7%+(B $(7%,(B $(7%-(B $(7%.(B $(7%/(B ; coding system. +;;;2530 $(7%0(B $(7%1(B $(7%2(B $(7%3(B $(7%4(B $(7%5(B $(7%6(B $(7%7(B $(7%8(B $(7%9(B $(7%:(B $(7%;(B $(7%<(B $(7%=(B $(7%>(B $(7%?(B ; +;;;2540 $(7%@(B $(7%A(B $(7%B(B $(7%C(B $(7%D(B $(7%E(B $(7%F(B $(7%G(B $(7%H(B $(7%I(B $(7%J(B $(7%K(B $(7%L(B $(7%M(B $(7%N(B $(7%O(B ; +;;;2550 $(7%P(B $(7%Q(B $(7%R(B $(7%S(B $(7%T(B $(7%U(B $(7%V(B $(7%W(B $(7%X(B $(7%Y(B $(7%Z(B $(7%[(B $(7%\(B $(7%](B $(7%^(B $(7%_(B ; +;;;2560 $(7%`(B $(7%a(B $(7%b(B $(7%c(B $(7%d(B $(7%e(B $(7%f(B $(7%g(B $(7%h(B $(7%i(B $(7%j(B $(7%k(B $(7%l(B $(7%m(B $(7%n(B $(7%o(B ; +;;;2570 $(7%p(B $(7%q(B $(7%r(B $(7%s(B $(7%t(B $(7%u(B $(7%v(B $(7%w(B $(7%x(B $(7%y(B $(7%z(B $(7%{(B $(7%|(B $(7%}(B $(7%~(B // ; +;;; + + +(make-coding-system + 'tibetan 2 ?Q + "Coding-system used for ASCII(MSB=0) & TIBETAN(MSB=1)." + '((ascii t) (tibetan t) nil nil + nil ascii-eol)) + +(put 'tibetan 'post-read-conversion 'tibetan-post-read-conversion) +(put 'tibetan 'pre-write-conversion 'tibetan-pre-write-conversion) + +(register-input-method + "Tibetan" '("quail-tibetan-wylie" quail-use-package "quail/tibetan")) +(register-input-method + "Tibetan" '("quail-tibetan-tibkey" quail-use-package "quail/tibetan")) + +(defun setup-tibetan-environment () + (setq coding-category-iso-7 'tibetan) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-iso-8-1)) + + (setq-default buffer-file-coding-system 'iso-2022-7) + + (setq default-input-method '("Tibetan" . "quail-tibetan-wylie"))) + +(set-language-info-alist + "Tibetan" '((setup-function . setup-tibetan-environment) + (charset . (tibetan tibetan-1-column)) + (coding-system . (tibetan)) + (documentation . t) + (sample-text . +"Tibetan (2$(7"70"]1"2$(8!;2$(7%P`"Q1"2$(8!;(B) 2$(7#RP#SP#S1!>"72$P`"Q1$(8!;2$(7"E0"S1"G$(8!;$(7"72"20"[1$(8!;2$(7"D0"[1"#"G!>2"I0"]0"_1$(8!;2$(7"9`"Q1$(8!;2$(7"/0"S1$(8!;2$(7"5`"Q12#2`#90"[1$(8!;2$(7"H`#A`"U0"c1!>(B"))) + + +;;; +;;; Definitions of conversion data. +;;; + + +;;; alists for tibetan char <-> transcription conversion +;;; longer transcription should come first +(defconst tibetan-consonant-transcription-alist + '(("tsh" . "$(7";(B") + ("dzh" . "$(7"=(B") + ("kSH" . "$(7"J(B") + ("kh" . "$(7""(B") + ("gh" . "$(7"$(B") + ("ng" . "$(7"%(B") + ("ch" . "$(7"'(B") + ("ny" . "$(7"*(B") + ("TH" . "$(7",(B") + ("DH" . "$(7".(B") + ("th" . "$(7"1(B") + ("dh" . "$(7"3(B") + ("ph" . "$(7"6(B") + ("bh" . "$(7"8(B") + ("ts" . "$(7":(B") + ("dz" . "$(7"<(B") + ("zh" . "$(7"?(B") + ("sh" . "$(7"E(B") + ("SH" . "$(7"F(B") + ("k" . "$(7"!(B") + ("g" . "$(7"#(B") + ("c" . "$(7"&(B") + ("j" . "$(7"((B") + ("T" . "$(7"+(B") + ("D" . "$(7"-(B") + ("N" . "$(7"/(B") + ("t" . "$(7"0(B") + ("d" . "$(7"2(B") + ("n" . "$(7"4(B") + ("p" . "$(7"5(B") + ("b" . "$(7"7(B") + ("m" . "$(7"9(B") + ("w" . "$(7">(B") + ("z" . "$(7"@(B") + ("'" . "$(7"A(B") + ("y" . "$(7"B(B") + ("r" . "$(7"C(B") + ("l" . "$(7"D(B") + ("s" . "$(7"G(B") + ("h" . "$(7"H(B") + ("H" . "$(7"H(B") + ("A" . "$(7"I(B"))) + + +(defconst tibetan-vowel-transcription-alist + '(("ai" . "$(7"\(B") + ("au" . "$(7"^(B") + ("ee" . "$(7"\(B") + ("oo" . "$(7"^(B") + ("a" . "$(7"Q(B") ; invisible vowel sign (\x2251) + ("i" . "$(7"S(B") + ("u" . "$(7"U(B") + ("e" . "$(7"[(B") + ("o" . "$(7"](B") + ("E" . "$(7"\(B") + ("O" . "$(7"^(B") + ("I" . "$(7"a(B") + ("M" . "$(7"_(B") + ("~" . "$(7"c(B") ; not specified in Ext.wylie + ("`" . "$(7"d(B") ; idem. + ("," . "$(7"e(B") ; idem. + ("v" . "$(7"g(B") ; idem. + ("V" . "$(7"h(B") ; idem. + ("x" . "$(7"i(B") ; idem. + ("X" . "$(7"j(B") ; idem. + ("q" . "$(7"k(B") ; idem. + ("Q" . "$(7"l(B") ; idem. + ("_o" . "$(7!g(B") ; idem. + ("_O" . "$(7!e(B") ; idem. + ("_/" . "$(7!I(B") ; idem. + )) + +(defconst tibetan-precomposed-transcription-alist + '(("phyw" . "$(7$G(B") + ("tshw" . "$(7$)(B") + ("rtsw" . "$(7%.(B") + ("khw" . "$(7$"(B") + ("nyw" . "$(7$%(B") + ("tsw" . "$(7$((B") + ("zhw" . "$(7$*(B") + ("shw" . "$(7$.(B") + ("khy" . "$(7$A(B") + ("phy" . "$(7$D(B") + ("khr" . "$(7$Q(B") + ("thr" . "$(7$T(B") + ("phr" . "$(7$W(B") + ("shr" . "$(7$Z(B") + ("dzr" . "$(7$^(B") + ("grw" . "$(7$_(B") + ("rng" . "$(7%#(B") + ("rny" . "$(7%%(B") + ("rts" . "$(7%+(B") + ("rdz" . "$(7%,(B") + ("rgw" . "$(7%-(B") + ("rky" . "$(7%0(B") + ("rgy" . "$(7%1(B") + ("rmy" . "$(7%2(B") + ("lng" . "$(7%B(B") + ("sng" . "$(7%R(B") + ("sny" . "$(7%S(B") + ("sts" . "$(7%Z(B") + ("sky" . "$(7%`(B") + ("sgy" . "$(7%a(B") + ("spy" . "$(7%b(B") + ("sby" . "$(7%c(B") + ("smy" . "$(7%d(B") + ("skr" . "$(7%p(B") + ("sgr" . "$(7%q(B") + ("snr" . "$(7%r(B") + ("spr" . "$(7%s(B") + ("sbr" . "$(7%t(B") + ("smr" . "$(7%u(B") + ("kw" . "$(7$!(B") + ("gw" . "$(7$#(B") + ("cw" . "$(7$$(B") + ("tw" . "$(7$&(B") + ("dw" . "$(7$'(B") + ("zw" . "$(7$+(B") + ("rw" . "$(7$,(B") + ("lw" . "$(7$-(B") + ("sw" . "$(7$/(B") + ("hw" . "$(7$0(B") + ("ky" . "$(7$@(B") + ("gy" . "$(7$B(B") + ("py" . "$(7$C(B") + ("by" . "$(7$E(B") + ("my" . "$(7$F(B") + ("kr" . "$(7$P(B") + ("gr" . "$(7$R(B") + ("tr" . "$(7$S(B") + ("dr" . "$(7$U(B") + ("pr" . "$(7$V(B") + ("brk" . "$(7"7%!(B") + ("brg" . "$(7"7%"(B") + ("brng" . "$(7"7%#(B") + ("brj" . "$(7"7%$(B") + ("brny" . "$(7"7%%(B") + ("brt" . "$(7"7%&(B") + ("brd" . "$(7"7%'(B") + ("brn" . "$(7"7%((B") + ("brts" . "$(7"7%+(B") + ("brdz" . "$(7"7%,(B") + ("brl" . "$(7"7$d(B") + ("br" . "$(7$X(B") + ("mr" . "$(7$Y(B") + ("sr" . "$(7$[(B") + ("hr" . "$(7$\(B") + ("jr" . "$(7$](B") + ("kl" . "$(7$`(B") + ("gl" . "$(7$a(B") + ("blt" . "$(7"7%E(B") + ("bld" . "$(7"7%F(B") + ("bl" . "$(7$b(B") + ("zl" . "$(7$c(B") + ("rl" . "$(7$d(B") + ("sl" . "$(7$e(B") + ("rk" . "$(7%!(B") + ("rg" . "$(7%"(B") + ("rj" . "$(7%$(B") + ("rt" . "$(7%&(B") + ("rd" . "$(7%'(B") + ("rn" . "$(7%((B") + ("rb" . "$(7%)(B") + ("rm" . "$(7%*(B") + ("lk" . "$(7%@(B") + ("lg" . "$(7%A(B") + ("lc" . "$(7%C(B") + ("lj" . "$(7%D(B") + ("lt" . "$(7%E(B") + ("ld" . "$(7%F(B") + ("ln" . "$(7!!(B") ; dummy \x2121 + ("lp" . "$(7%G(B") + ("lb" . "$(7%H(B") + ("lh" . "$(7%I(B") + ("sk" . "$(7%P(B") + ("sg" . "$(7%Q(B") + ("st" . "$(7%T(B") + ("sd" . "$(7%U(B") + ("sn" . "$(7%V(B") + ("sp" . "$(7%W(B") + ("sb" . "$(7%X(B") + ("sm" . "$(7%Y(B"))) + +(defconst tibetan-subjoined-transcription-alist + '(("+k" . "$(7#!(B") + ("+kh" . "$(7#"(B") + ("+g" . "$(7##(B") + ("+gh" . "$(7#$(B") + ("+ng" . "$(7#%(B") + ("+c" . "$(7#&(B") + ("+ch" . "$(7#'(B") + ("+j" . "$(7#((B") + ("+ny" . "$(7#*(B") + ("+T" . "$(7#+(B") + ("+TH" . "$(7#,(B") + ("+D" . "$(7#-(B") + ("+DH" . "$(7#.(B") + ("+N" . "$(7#/(B") + ("+t" . "$(7#0(B") + ("+th" . "$(7#1(B") + ("+d" . "$(7#2(B") + ("+dh" . "$(7#3(B") + ("+n" . "$(7#4(B") + ("+p" . "$(7#5(B") + ("+ph" . "$(7#6(B") + ("+b" . "$(7#7(B") + ("+bh" . "$(7#8(B") + ("+m" . "$(7#9(B") + ("+ts" . "$(7#:(B") + ("+tsh" . "$(7#;(B") + ("+dz" . "$(7#<(B") + ("+dzh" . "$(7#=(B") + ("+w" . "$(7#>(B") + ("+zh" . "$(7#?(B") + ("+z" . "$(7#@(B") + ("+'" . "$(7#A(B") + ("+y" . "$(7#B(B") + ("+r" . "$(7#C(B") + ("+l" . "$(7#D(B") + ("+sh" . "$(7#E(B") + ("+SH" . "$(7#F(B") + ("+s" . "$(7#G(B") + ("+h" . "$(7#H(B") + ("+A" . "$(7#I(B") + ("+kSH" . "$(7#J(B") + ("R" . "$(7#P(B"))) + +;;; +;;; alist for Tibetan base consonant <-> subjoined consonant conversion. +;;; +(defconst tibetan-base-to-subjoined-alist + '(("$(7"!(B" . "$(7#!(B") + ("$(7""(B" . "$(7#"(B") + ("$(7"#(B" . "$(7##(B") + ("$(7"$(B" . "$(7#$(B") + ("$(7"%(B" . "$(7#%(B") + ("$(7"&(B" . "$(7#&(B") + ("$(7"'(B" . "$(7#'(B") + ("$(7"((B" . "$(7#((B") + ("$(7"*(B" . "$(7#*(B") + ("$(7"+(B" . "$(7#+(B") + ("$(7",(B" . "$(7#,(B") + ("$(7"-(B" . "$(7#-(B") + ("$(7".(B" . "$(7#.(B") + ("$(7"/(B" . "$(7#/(B") + ("$(7"0(B" . "$(7#0(B") + ("$(7"1(B" . "$(7#1(B") + ("$(7"2(B" . "$(7#2(B") + ("$(7"3(B" . "$(7#3(B") + ("$(7"4(B" . "$(7#4(B") + ("$(7"5(B" . "$(7#5(B") + ("$(7"6(B" . "$(7#6(B") + ("$(7"7(B" . "$(7#7(B") + ("$(7"8(B" . "$(7#8(B") + ("$(7"9(B" . "$(7#9(B") + ("$(7":(B" . "$(7#:(B") + ("$(7";(B" . "$(7#;(B") + ("$(7"<(B" . "$(7#<(B") + ("$(7"=(B" . "$(7#=(B") + ("$(7">(B" . "$(7#>(B") + ("$(7"?(B" . "$(7#?(B") + ("$(7"@(B" . "$(7#@(B") + ("$(7"A(B" . "$(7#A(B") + ("$(7"B(B" . "$(7#B(B") + ("$(7"C(B" . "$(7#C(B") + ("$(7"D(B" . "$(7#D(B") + ("$(7"E(B" . "$(7#E(B") + ("$(7"F(B" . "$(7#F(B") + ("$(7"G(B" . "$(7#G(B") + ("$(7"H(B" . "$(7#H(B") + ("$(7"I(B" . "$(7#I(B") + ("$(7"J(B" . "$(7#J(B"))) + +;;; +;;; alist for Tibetan consonantic components <-> precomposed glyph conversion. +;;; (includes some punctuation conversion rules) +;;; +(defconst tibetan-precomposition-rule-alist + '(("$(7"6#B#>(B" . "$(7$G(B") + ("$(7"##C#>(B" . "$(7$_(B") + ("$(7";#>(B" . "$(7$)(B") + ("$(7"C#:#>(B" . "$(7%.(B") + ("$(7"C###>(B" . "$(7%-(B") + ("$(7"C#!#B(B" . "$(7%0(B") + ("$(7"C###B(B" . "$(7%1(B") + ("$(7"C#9#B(B" . "$(7%2(B") + ("$(7"G#!#B(B" . "$(7%`(B") + ("$(7"G###B(B" . "$(7%a(B") + ("$(7"G#5#B(B" . "$(7%b(B") + ("$(7"G#7#B(B" . "$(7%c(B") + ("$(7"G#9#B(B" . "$(7%d(B") + ("$(7"G#!#C(B" . "$(7%p(B") + ("$(7"G###C(B" . "$(7%q(B") + ("$(7"G#4#C(B" . "$(7%r(B") + ("$(7"G#5#C(B" . "$(7%s(B") + ("$(7"G#7#C(B" . "$(7%t(B") + ("$(7"G#9#C(B" . "$(7%u(B") + ("$(7""#>(B" . "$(7$"(B") + ("$(7"*#>(B" . "$(7$%(B") + ("$(7":#>(B" . "$(7$((B") + ("$(7"?#>(B" . "$(7$*(B") + ("$(7"E#>(B" . "$(7$.(B") + ("$(7""#B(B" . "$(7$A(B") + ("$(7"6#B(B" . "$(7$D(B") + ("$(7""#C(B" . "$(7$Q(B") + ("$(7"1#C(B" . "$(7$T(B") + ("$(7"6#C(B" . "$(7$W(B") + ("$(7"E#C(B" . "$(7$Z(B") + ("$(7"<#C(B" . "$(7$^(B") + ("$(7"C#%(B" . "$(7%#(B") + ("$(7"C#*(B" . "$(7%%(B") + ("$(7"C#:(B" . "$(7%+(B") + ("$(7"C#<(B" . "$(7%,(B") + ("$(7"D#%(B" . "$(7%B(B") + ("$(7"G#%(B" . "$(7%R(B") + ("$(7"G#*(B" . "$(7%S(B") + ("$(7"G#:(B" . "$(7%Z(B") + ("$(7"!#>(B" . "$(7$!(B") + ("$(7"##>(B" . "$(7$#(B") + ("$(7"&#>(B" . "$(7$$(B") + ("$(7"0#>(B" . "$(7$&(B") + ("$(7"2#>(B" . "$(7$'(B") + ("$(7"@#>(B" . "$(7$+(B") + ("$(7"C#>(B" . "$(7$,(B") + ("$(7"D#>(B" . "$(7$-(B") + ("$(7"G#>(B" . "$(7$/(B") + ("$(7"H#>(B" . "$(7$0(B") + ("$(7"!#B(B" . "$(7$@(B") + ("$(7"##B(B" . "$(7$B(B") + ("$(7"5#B(B" . "$(7$C(B") + ("$(7"7#B(B" . "$(7$E(B") + ("$(7"9#B(B" . "$(7$F(B") + ("$(7"!#C(B" . "$(7$P(B") + ("$(7"##C(B" . "$(7$R(B") + ("$(7"0#C(B" . "$(7$S(B") + ("$(7"2#C(B" . "$(7$U(B") + ("$(7"5#C(B" . "$(7$V(B") + ("$(7"7#C(B" . "$(7$X(B") + ("$(7"9#C(B" . "$(7$Y(B") + ("$(7"G#C(B" . "$(7$[(B") + ("$(7"H#C(B" . "$(7$\(B") + ("$(7"(#C(B" . "$(7$](B") + ("$(7"!#D(B" . "$(7$`(B") + ("$(7"##D(B" . "$(7$a(B") + ("$(7"7#D(B" . "$(7$b(B") + ("$(7"@#D(B" . "$(7$c(B") + ("$(7"C#D(B" . "$(7$d(B") + ("$(7"G#D(B" . "$(7$e(B") + ("$(7"C#!(B" . "$(7%!(B") + ("$(7"C##(B" . "$(7%"(B") + ("$(7"C#((B" . "$(7%$(B") + ("$(7"C#0(B" . "$(7%&(B") + ("$(7"C#2(B" . "$(7%'(B") + ("$(7"C#4(B" . "$(7%((B") + ("$(7"C#7(B" . "$(7%)(B") + ("$(7"C#9(B" . "$(7%*(B") + ("$(7"D#!(B" . "$(7%@(B") + ("$(7"D##(B" . "$(7%A(B") + ("$(7"D#&(B" . "$(7%C(B") + ("$(7"D#((B" . "$(7%D(B") + ("$(7"D#0(B" . "$(7%E(B") + ("$(7"D#2(B" . "$(7%F(B") + ("$(7"D#5(B" . "$(7%G(B") + ("$(7"D#7(B" . "$(7%H(B") + ("$(7"D#H(B" . "$(7%I(B") + ("$(7"G#!(B" . "$(7%P(B") + ("$(7"G##(B" . "$(7%Q(B") + ("$(7"G#0(B" . "$(7%T(B") + ("$(7"G#2(B" . "$(7%U(B") + ("$(7"G#4(B" . "$(7%V(B") + ("$(7"G#5(B" . "$(7%W(B") + ("$(7"G#7(B" . "$(7%X(B") + ("$(7"G#9(B" . "$(7%Y(B") + ("$(7!=(B" . "$(8!=(B") ; 2 col <-> 1 col + ("$(7!?(B" . "$(8!?(B") + ("$(7!@(B" . "$(8!@(B") + ("$(7!A(B" . "$(8!A(B") + ("$(7"`(B" . "$(8"`(B") + ("$(7!;(B" . "$(8!;(B") + ("$(7!D(B" . "$(8!D(B") + ("$(7!>(B $(7!>(B" . "2$(7!>P(B P$(7!>1(B") ; Yes this is dirty. But ... + ("$(7!4!5!5(B" . "2$(7#RP#SP#SP#S1(B") + ("$(7!4!5(B" . "2$(7#RP#SP#S1(B") + ("$(7!6(B" . "2$(7#RP#S_!I1(B") + ("$(7!4(B" . "2$(7#RP#S1(B"))) + +(defvar tibetan-regexp + (let ((l (append tibetan-consonant-transcription-alist + tibetan-vowel-transcription-alist + tibetan-subjoined-transcription-alist)) + temp) + (setq temp "\\(") + (setq temp (concat temp (car (car l)))) + (setq l (cdr l)) + (while l + (setq temp (concat temp "\\|" (car (car l)))) + (setq l (cdr l))) + (concat temp "\\)$")) + "Regexp string to match a romanized Tibetan character component, i.e., +base and subjoined consonant, vowel and vowel modifier. The result of matching +is to be used for indexing alists at conversion from a roman transcription to +the corresponding Tibetan character.") + +(defvar tibetan-precomposed-regexp + (let ((l tibetan-precomposed-transcription-alist) + temp) + (setq temp "^\\(") + (setq temp + (concat temp (car (car l)))) + (setq l (cdr l)) + (while l + (setq temp + (concat temp "\\|" (car (car l)))) + (setq l (cdr l))) + (concat temp "\\)")) + "Regexp string to match a romanized Tibetan complex consonant. +The result of matching is to be used for indexing alists when the input key +from an input method is converted to the corresponding precomposed glyph.") + +(defvar tibetan-precomposition-rule-regexp + (let ((l tibetan-precomposition-rule-alist) + temp) + (setq temp "\\(") + (setq temp (concat temp (car (car l)))) + (setq l (cdr l)) + (while l + (setq temp (concat temp "\\|" (car (car l)))) + (setq l (cdr l))) + (concat temp "\\)")) + "Regexp string to match a sequence of Tibetan consonantic components, i.e., +one base consonant and one or more subjoined consonants. +The result of matching is to be used for indexing alist when the component +sequence is converted to the corresponding precomposed glyph. +This also matches some punctuation characters which need conversion.") + +(defvar tibetan-decomposed nil) +(defvar tibetan-decomposed-temp nil) + +;;; language/tibetan.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/vietnamese.el Mon Aug 13 09:41:43 2007 +0200 @@ -0,0 +1,261 @@ +;;; vietnamese.el --- Support for Vietnamese + +;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. + +;; Keywords: multilingual, Vietnamese + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;; For Vietnames, the character sets VISCII and VSCII are supported. + +;;; Code: + +(eval-when-compile + +(defvar viet-viscii-decode-table + [;; VISCII is a full 8-bit code. + 0 1 ?,2F(B 3 4 ?,2G(B ?,2g(B 7 8 9 10 11 12 13 14 15 + 16 17 18 19 ?,2V(B 21 22 23 24 ?,2[(B 26 27 28 29 ?,2\(B 31 + 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 + 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 + 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 + 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 + 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 + 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 + ?,2U(B ?,2!(B ?,2"(B ?,2#(B ?,2$(B ?,2%(B ?,2&(B ?,2'(B ?,2((B ?,2)(B ?,2*(B ?,2+(B ?,2,(B ?,2-(B ?,2.(B ?,2/(B + ?,20(B ?,21(B ?,22(B ?,25(B ?,2~(B ?,2>(B ?,26(B ?,27(B ?,28(B ?,2v(B ?,2w(B ?,2o(B ?,2|(B ?,2{(B ?,2x(B ?,2O(B + ?,2u(B ?,1!(B ?,1"(B ?,1#(B ?,1$(B ?,1%(B ?,1&(B ?,1'(B ?,1((B ?,1)(B ?,1*(B ?,1+(B ?,1,(B ?,1-(B ?,1.(B ?,1/(B + ?,10(B ?,11(B ?,12(B ?,2^(B ?,2=(B ?,15(B ?,16(B ?,17(B ?,18(B ?,2q(B ?,2Q(B ?,2W(B ?,2X(B ?,1=(B ?,1>(B ?,2_(B + ?,2`(B ?,2a(B ?,2b(B ?,2c(B ?,2d(B ?,2e(B ?,1F(B ?,1G(B ?,2h(B ?,2i(B ?,2j(B ?,2k(B ?,2l(B ?,2m(B ?,2n(B ?,1O(B + ?,2p(B ?,1Q(B ?,2r(B ?,2s(B ?,2t(B ?,1U(B ?,1V(B ?,1W(B ?,1X(B ?,2y(B ?,2z(B ?,1[(B ?,1\(B ?,2}(B ?,1^(B ?,1_(B + ?,1`(B ?,1a(B ?,1b(B ?,1c(B ?,1d(B ?,1e(B ?,1f(B ?,1g(B ?,1h(B ?,1i(B ?,1j(B ?,1k(B ?,1l(B ?,1m(B ?,1n(B ?,1o(B + ?,1p(B ?,1q(B ?,1r(B ?,1s(B ?,1t(B ?,1u(B ?,1v(B ?,1w(B ?,1x(B ?,1y(B ?,1z(B ?,1{(B ?,1|(B ?,1}(B ?,1~(B ?,2f(B ] + "Vietnamese VISCII encoding table.") + +(defvar viet-viscii-encode-table + (let ((table-lower (make-vector 128 0)) + (table-upper (make-vector 128 0)) + (i 0) + char-component) + (while (< i 256) + (setq char-component (split-char (aref viet-viscii-decode-table i))) + (cond ((eq (car char-component) 'vietnamese-viscii-lower) + (aset table-lower (nth 1 char-component) i)) + ((eq (car char-component) 'vietnamese-viscii-upper) + (aset table-upper (nth 1 char-component) i))) + (setq i (1+ i))) + (cons table-lower table-upper)) + "Vietnamese VISCII decoding table. +Cons of tables for decoding lower-case chars and upper-case characterss. +Both tables are indexed by the position code of Vietnamese characters.") + +(defvar viet-vscii-decode-table + [;; VSCII is a full 8-bit code. + 0 ?,2z(B ?,2x(B 3 ?,2W(B ?,2X(B ?,2f(B 7 8 9 10 11 12 13 14 15 + 16 ?,2Q(B ?,2_(B ?,2O(B ?,2V(B ?,2[(B ?,2}(B ?,2\(B 24 25 26 27 28 29 30 31 + 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 + 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 + 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 + 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 + 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 + 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 + ?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B + ?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B + 160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1>(B ?,1y(B ?,1p(B ?,2"(B + 192 193 194 195 196 ?,1`(B ?,1d(B ?,1c(B ?,1a(B ?,1U(B ?,2F(B ?,1"(B ?,1F(B ?,1G(B ?,1!(B ?,2G(B + ?,2!(B ?,2%(B ?,2&(B ?,2g(B ?,2%(B ?,2+(B ?,1#(B ?,1%(B ?,1&(B ?,1g(B ?,1$(B ?,1'(B ?,1h(B ?,2,(B ?,1k(B ?,1((B + ?,1i(B ?,1)(B ?,1+(B ?,1,(B ?,1-(B ?,1*(B ?,1.(B ?,1l(B ?,1o(B ?,2-(B ?,2*(B ?,20(B ?,1n(B ?,1m(B ?,18(B ?,1r(B + ?,21(B ?,1v(B ?,1u(B ?,1s(B ?,1w(B ?,10(B ?,11(B ?,12(B ?,1/(B ?,15(B ?,16(B ?,17(B ?,1^(B ?,1>(B ?,1~(B ?,1y(B + ?,22(B ?,1|(B ?,1{(B ?,1z(B ?,1x(B ?,1W(B ?,1X(B ?,1f(B ?,1Q(B ?,1q(B ?,1O(B ?,1V(B ?,1[(B ?,1}(B ?,1\(B ?,2/(B] + "Vietnamese VSCII code table.") + +(defvar viet-vscii-encode-table + (let ((table-lower (make-vector 128 0)) + (table-upper (make-vector 128 0)) + (i 0) + char-component) + (while (< i 256) + (setq char-component (split-char (aref viet-vscii-decode-table i))) + (cond ((eq (car char-component) 'vietnamese-viscii-lower) + (aset table-lower (nth 1 char-component) i)) + ((eq (car char-component) 'vietnamese-viscii-upper) + (aset table-upper (nth 1 char-component) i))) + (setq i (1+ i))) + (cons table-lower table-upper)) + "Vietnamese VSCII decoding table. +Cons of tables for decoding lower-case chars and upper-case characterss. +Both tables are indexed by the position code of Vietnamese characters.") + +) + +(define-ccl-program ccl-decode-viscii + `(3 + ((read r0) + (loop + (write-read-repeat r0 ,viet-viscii-decode-table)) + )) + "CCL program to decode VISCII 1.1") + +;; Multibyte form of a Vietnamese character is as follows (3-byte): +;; LEADING-CODE-PRIVATE-11 LEADING-CODE-EXTENDED-11 POSITION-CODE +;; where LEADING-CODE-EXTENDED-11 for Vietnamese is +;; `vietnamese-viscii-lower' or `vietnamese-viscii-upper'. + +(define-ccl-program ccl-encode-viscii + `(1 + ((read r0) + (loop + (if (r0 < 128) + ;; ASCII + (write-read-repeat r0) + ;; not ASCII + (if (r0 != ,leading-code-private-11) + ;; not Vietnamese + (write-read-repeat r0) + ((read-if (r0 == ,(charset-id 'vietnamese-viscii-lower)) + (;; Vietnamese lower + (read r0) + (r0 -= 128) + (write-read-repeat r0 ,(car viet-viscii-encode-table))) + (if (r0 == ,(charset-id 'vietnamese-viscii-upper)) + (;; Vietnamese upper + (read r0) + (r0 -= 128) + (write-read-repeat r0 ,(cdr viet-viscii-encode-table))) + ;; not Vietnamese + (write-read-repeat r0))))))))) + "CCL program to encode VISCII 1.1") + +(define-ccl-program ccl-encode-viscii-font + `(0 + ;; In: R0:vietnamese-viscii-lower/vietnamese-viscii-upper + ;; R1:position code + ;; Out: R1:font code point + (if (r0 == ,(charset-id 'vietnamese-viscii-lower)) + (r1 = r1 ,(car viet-viscii-encode-table)) + (r1 = r1 ,(cdr viet-viscii-encode-table))) + ) + "CCL program to encode Vietnamese chars to VISCII 1.1 font") + +(define-ccl-program ccl-decode-vscii + `(3 + ((read r0) + (loop + (write-read-repeat r0 ,viet-vscii-decode-table)) + )) + "CCL program to decode VSCII-1.") + +(define-ccl-program ccl-encode-vscii + `(1 + ((read r0) + (loop + (if (r0 < 128) + ;; ASCII + (write-read-repeat r0) + ;; not ASCII + (if (r0 != ,leading-code-private-11) + ;; not Vietnamese + (write-read-repeat r0) + (read-if (r0 == ,(charset-id 'vietnamese-viscii-lower)) + (;; Vietnamese lower + (read r0) + (r0 -= 128) + (write-read-repeat r0 ,(car viet-vscii-encode-table))) + (if (r0 == ,(charset-id 'vietnamese-viscii-upper)) + (;; Vietnamese upper + (read r0) + (r0 -= 128) + (write-read-repeat r0 ,(cdr viet-viscii-encode-table))) + ;; not Vietnamese + (write-read-repeat r0)))))))) + "CCL program to encode VSCII-1.") + +(define-ccl-program ccl-encode-vscii-font + `(0 + ;; In: R0:vietnamese-viscii-lower/vietnamese-viscii-upper + ;; R1:position code + ;; Out: R1:font code point + (if (r0 == ,(charset-id 'vietnamese-viscii-lower)) + (r1 = r1 ,(car viet-vscii-encode-table)) + (r1 = r1 ,(cdr viet-vscii-encode-table))) + ) + "CCL program to encode Vietnamese chars to VSCII-1 font.") + + +(make-coding-system + 'viscii 4 ?V + "Coding-system used for VISCII 1.1." + (cons ccl-decode-viscii ccl-encode-viscii)) + +(make-coding-system + 'vscii 4 ?V + "Coding-system used for VSCII-1." + (cons ccl-decode-vscii ccl-encode-vscii)) + +(make-coding-system + 'viqr 0 ?v + "Codins-system used for VIQR." + nil) +(put 'viqr 'post-read-conversion 'viqr-post-read-conversion) +(put 'viqr 'pre-write-conversion 'viqr-pre-write-conversion) + +(setq font-ccl-encoder-alist + (cons (cons "viscii" ccl-encode-viscii-font) font-ccl-encoder-alist)) + +(setq font-ccl-encoder-alist + (cons (cons "vscii" ccl-encode-vscii-font) font-ccl-encoder-alist)) + +(register-input-method + "Vietnamese" '("quail-viqr" quail-use-package "quail/viqr")) + +(defun setup-vietamese-environment () + "Setup multilingual environment (MULE) for Vietnamese." + (interactive) + ;; for VISCII users + (setq coding-category-binary 'viscii) + + ;; for VSCII users + ;; (setq coding-category-binary 'vscii) + + (set-coding-priority + '(coding-category-iso-7 + coding-category-binary)) + + (setq-default buffer-file-coding-system 'viscii) + + (setq default-input-method '("Vietnamese" . "quail-viqr")) + ) + +(defun describe-vietnamese-support () + "Describe how Emacs supports Vietnamese." + (interactive) + (describe-langauge-support-internal "Vietnamese")) + +(set-language-info-alist + "Vietnamese" '((setup-function . setup-vietnamese-environment) + (describe-function . describe-vietnamese-support) + (charset . (vietnamese-viscii-lower + vietnamese-viscii-upper)) + (coding-system . (viscii vscii viqr)) + (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn") + (documentation . nil))) + +;;; vietnamese.el ends here
--- a/lisp/leim/quail/ccdospy.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/leim/quail/ccdospy.el Mon Aug 13 09:41:43 2007 +0200 @@ -8,13 +8,13 @@ ;;; Start of the header of original TIT dictionary. -;; # $Id: ccdospy.el,v 1.2 1997/06/06 00:57:08 steve Exp $ +;; # $Id: ccdospy.el,v 1.3 1997/06/11 19:25:53 steve Exp $ ;; # HANZI input table for cxterm ;; # To be used by cxterm, convert me to .cit format first ;; # .cit version 1 ;; ENCODE: GB ;; MULTICHOICE: YES -;; PROMPT: $A::WVJdHk!KKuP4F4Rt!K(B# +;; PROMPT: $A::WVJdHk!KKuP4F4Rt!K# (B ;; # ;; COMMENT $AKuP4F4Rt7=08(B ($AT4SZ(B CCDOS) ;; COMMENT @@ -52,7 +52,7 @@ (quail-define-package "quail-ccdospy" "Chinese-GB" "$AKuP4F4Rt(B" nil -"$A::WVJdHk!KKuP4F4Rt!K(B# +"$A::WVJdHk!KKuP4F4Rt!K# (B $AKuP4F4Rt7=08(B ($AT4SZ(B CCDOS) $AP!P4S"NDWVD84z1m!8F4Rt!97{:E#,5+HgOB!8F4Rt!9TrSCR;<|1mJ>(B:
--- a/lisp/leim/quail/punct.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/leim/quail/punct.el Mon Aug 13 09:41:43 2007 +0200 @@ -8,13 +8,13 @@ ;;; Start of the header of original TIT dictionary. -;; # $Id: punct.el,v 1.2 1997/06/06 00:57:09 steve Exp $ +;; # $Id: punct.el,v 1.3 1997/06/11 19:25:53 steve Exp $ ;; # HANZI input table for cxterm ;; # To be used by cxterm, convert me to .cit format first ;; # .cit version 1 ;; ENCODE: GB ;; MULTICHOICE: YES -;; PROMPT: $A::WVJdHk!K1j5c7{:E!K(B# +;; PROMPT: $A::WVJdHk!K1j5c7{:E!K# (B ;; # ;; COMMENT Copyright 1991 by Yongguang Zhang. ;; COMMENT Permission to use/modify/copy for any purpose is hereby granted. @@ -51,7 +51,7 @@ (quail-define-package "quail-punct" "Chinese-GB" "$A1j5c7{:E(B" nil -"$A::WVJdHk!K1j5c7{:E!K(B# +"$A::WVJdHk!K1j5c7{:E!K# (B Copyright 1991 by Yongguang Zhang. Permission to use/modify/copy for any purpose is hereby granted. Absolutely no fee and no warranties.
--- a/lisp/leim/quail/py.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/leim/quail/py.el Mon Aug 13 09:41:43 2007 +0200 @@ -8,13 +8,13 @@ ;;; Start of the header of original TIT dictionary. -;; # $Id: py.el,v 1.2 1997/06/06 00:57:09 steve Exp $ +;; # $Id: py.el,v 1.3 1997/06/11 19:25:55 steve Exp $ ;; # HANZI input table for cxterm ;; # To be used by cxterm, convert me to .cit format first ;; # .cit version 1 ;; ENCODE: GB ;; MULTICHOICE: YES -;; PROMPT: $A::WVJdHk!KF4Rt!K(B# +;; PROMPT: $A::WVJdHk!KF4Rt!K# (B ;; # ;; COMMENT $AF4Rt7=08(B ;; COMMENT @@ -47,7 +47,7 @@ (quail-define-package "quail-py" "Chinese-GB" "$AF4Rt(B" t -"$A::WVJdHk!KF4Rt!K(B# +"$A::WVJdHk!KF4Rt!K# (B $AF4Rt7=08(B $AP!P4S"NDWVD84z1m!8F4Rt!97{:E#,(B \"u(yu) $ATrSC(B u: $A1mJ>!C(B
--- a/lisp/leim/quail/qj.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/leim/quail/qj.el Mon Aug 13 09:41:43 2007 +0200 @@ -8,13 +8,13 @@ ;;; Start of the header of original TIT dictionary. -;; # $Id: qj.el,v 1.2 1997/06/06 00:57:09 steve Exp $ +;; # $Id: qj.el,v 1.3 1997/06/11 19:25:55 steve Exp $ ;; # HANZI input table for cxterm ;; # To be used by cxterm, convert me to .cit format first ;; # .cit version 1 ;; ENCODE: GB ;; MULTICHOICE: NO -;; PROMPT: $A::WVJdHk!KH+=G!K(B# +;; PROMPT: $A::WVJdHk!KH+=G!K# (B ;; # ;; COMMENT Copyright 1991 by Yongguang Zhang. (ygz@cs.purdue.edu) ;; COMMENT Permission to use/modify/copy for any purpose is hereby granted. @@ -33,7 +33,7 @@ (quail-define-package "quail-qj" "Chinese-GB" "$AH+=G(B" nil -"$A::WVJdHk!KH+=G!K(B# +"$A::WVJdHk!KH+=G!K# (B Copyright 1991 by Yongguang Zhang. (ygz@cs.purdue.edu) Permission to use/modify/copy for any purpose is hereby granted. Absolutely no warranties.
--- a/lisp/leim/quail/sw.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/leim/quail/sw.el Mon Aug 13 09:41:43 2007 +0200 @@ -8,13 +8,13 @@ ;;; Start of the header of original TIT dictionary. -;; # $Id: sw.el,v 1.2 1997/06/06 00:57:10 steve Exp $ +;; # $Id: sw.el,v 1.3 1997/06/11 19:25:55 steve Exp $ ;; # HANZI input table for cxterm ;; # To be used by cxterm, convert me to .cit format first ;; # .cit version 1 ;; ENCODE: GB ;; MULTICHOICE: YES -;; PROMPT: $A::WVJdHk!KJWN2!K(B# +;; PROMPT: $A::WVJdHk!KJWN2!K# (B ;; # ;; COMMENT ($AT4SZ(B CCDOS) ;; COMMENT $AJiP48C::WVJ15D!8JW1J!9<0!8N21J!9!#@}Hg#,!>B@!?JWN21J=TN*!8?Z!9#,9JTZ(B @@ -98,7 +98,7 @@ (99 . "$AJ,MA(B") (98 . "$AZ"I=(B") (97 . "$APDSV(B")) -"$A::WVJdHk!KJWN2!K(B# +"$A::WVJdHk!KJWN2!K# (B ($AT4SZ(B CCDOS) $AJiP48C::WVJ15D!8JW1J!9<0!8N21J!9!#@}Hg#,!>B@!?JWN21J=TN*!8?Z!9#,9JTZ(B $A!8JWN2!9D#J=VPSC(B ff0 $AH}<|JdHk!##((B f $A<|TZ!8JWN2!9D#J=VP1mJ>!8?Z!9#)(B
--- a/lisp/leim/quail/tonepy.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/leim/quail/tonepy.el Mon Aug 13 09:41:43 2007 +0200 @@ -8,13 +8,13 @@ ;;; Start of the header of original TIT dictionary. -;; # $Id: tonepy.el,v 1.2 1997/06/06 00:57:10 steve Exp $ +;; # $Id: tonepy.el,v 1.3 1997/06/11 19:25:56 steve Exp $ ;; # HANZI input table for cxterm ;; # To be used by cxterm, convert me to .cit format first ;; # .cit version 1 ;; ENCODE: GB ;; MULTICHOICE: YES -;; PROMPT: $A::WVJdHk!K4x5wF4Rt!K(B# +;; PROMPT: $A::WVJdHk!K4x5wF4Rt!K# (B ;; # ;; COMMENT $A4x5wF4Rt7=08(B ;; COMMENT @@ -48,7 +48,7 @@ (quail-define-package "quail-tonepy" "Chinese-GB" "$A4x5wF4Rt(B" t -"$A::WVJdHk!K4x5wF4Rt!K(B# +"$A::WVJdHk!K4x5wF4Rt!K# (B $A4x5wF4Rt7=08(B $AP!P4S"NDWVD84z1m!8F4Rt!97{:E#,(B \"u(yu) $ATrSC(B u: $A1mJ>!C(B
--- a/lisp/mh-e/mh-e.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mh-e/mh-e.el Mon Aug 13 09:41:43 2007 +0200 @@ -63,7 +63,7 @@ ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu ;;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu -(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.2 1997/04/19 23:21:00 steve Exp $") +(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.3 1997/06/11 19:25:57 steve Exp $") ;;; Code: @@ -151,6 +151,12 @@ :type 'string :group 'mh) +(defcustom mh-folder-coding-system 'ctext + "*Coding-system to decode folder." + :type 'coding-system + :group 'mh) +(make-variable-buffer-local 'mh-folder-coding-system) + (defcustom mh-print-background nil "*Print messages in the background if non-nil. WARNING: do not delete the messages until printing is finished; @@ -884,10 +890,11 @@ (goto-char (point-max)) (erase-buffer)) (setq scan-start (point)) - (mh-exec-cmd-output mh-scan-prog nil - "-noclear" "-noheader" - "-width" (window-width) - folder range) + (let ((coding-system-for-read mh-folder-coding-system)) + (mh-exec-cmd-output mh-scan-prog nil + "-noclear" "-noheader" + "-width" (window-width) + folder range)) (goto-char scan-start) (cond ((looking-at "scan: no messages in") (keep-lines mh-valid-scan-line)) ; Flush random scan lines
--- a/lisp/modes/cc-mode.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/modes/cc-mode.el Mon Aug 13 09:41:43 2007 +0200 @@ -481,8 +481,8 @@ This hook gets called after a line is indented by the mode." :type 'hook :group 'cc-indent) -(defcustom c-delete-function (if (fboundp 'backspace-or-delete) - 'backspace-or-delete +(defcustom c-delete-function (if (fboundp 'backward-or-forward-delete-char) + 'backward-or-forward-delete-char 'backward-delete-char-untabify) "*Function called by `c-electric-delete' when deleting characters." :type 'function @@ -1952,8 +1952,8 @@ (c-in-literal)) (funcall c-delete-function (prefix-numeric-value arg)) (let ((here (point))) - (if (and (boundp 'delete-erases-forward) - delete-erases-forward) + (if (and (boundp 'delete-key-deletes-forward) + delete-key-deletes-forward) (skip-chars-forward " \t\n") (skip-chars-backward " \t\n")) (if (/= (point) here)
--- a/lisp/modes/cperl-mode.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/modes/cperl-mode.el Mon Aug 13 09:41:43 2007 +0200 @@ -32,7 +32,7 @@ ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu ;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de -;; $Id: cperl-mode.el,v 1.9 1997/06/10 03:19:09 steve Exp $ +;; $Id: cperl-mode.el,v 1.10 1997/06/11 19:25:59 steve Exp $ ;;; To use this mode put the following into your .emacs file: @@ -1560,8 +1560,8 @@ (setq p (point)) (skip-chars-backward " \t\n") (delete-region (point) p)) - (if (fboundp 'backspace-or-delete) - (backspace-or-delete (prefix-numeric-value arg)) + (if (fboundp 'backward-or-forward-delete-char) + (backward-or-forward-delete-char (prefix-numeric-value arg)) (backward-delete-char-untabify (prefix-numeric-value arg))))) (defun cperl-inside-parens-p ()
--- a/lisp/modes/view-less.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/modes/view-less.el Mon Aug 13 09:41:43 2007 +0200 @@ -59,10 +59,9 @@ (define-key map "-" 'negative-argument) (define-key map " " 'scroll-up) (define-key map "f" 'scroll-up) -;; GDF - Don't rebind the DEL key -;; (define-key map "\177" 'scroll-down) (define-key map "b" 'scroll-down) (define-key map 'backspace 'scroll-down) + (define-key map 'delete 'scroll-down) (define-key map "\r" 'view-scroll-lines-up) (define-key map "\n" 'view-scroll-lines-up) (define-key map "e" 'view-scroll-lines-up)
--- a/lisp/mule/chinese-hooks.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/chinese-hooks.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,196 +0,0 @@ -;;; chinese-hooks.el --- pre-loaded support for Chinese. - -;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. -;; Copyright (C) 1995 Amdahl Corporation. -;; Copyright (C) 1996 Sun Microsystems. - -;; This file is part of XEmacs. - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Synched up with: Mule 2.3. - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; CHINESE -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;; Syntax of Chinese characters. -(modify-syntax-entry 'chinese-gb2312 "w") -(loop for row in '(33 34 41) - do (modify-syntax-entry `[chinese-gb2312 ,row] ".")) -;;(loop for row from 35 to 40 -;; do (modify-syntax-entry `[chinese-gb2312 ,row] "w")) -;;(loop for row from 42 to 126 -;; do (modify-syntax-entry `[chinese-gb2312 ,row] "w")) - -(modify-syntax-entry 'chinese-cns11643-1 "w") -(modify-syntax-entry 'chinese-cns11643-2 "w") -(modify-syntax-entry 'chinese-big5-1 "w") -(modify-syntax-entry 'chinese-big5-2 "w") - -;; CNS11643 Plane3 thru Plane7 -;; These represent more and more obscure Chinese characters. -;; By the time you get to Plane 7, we're talking about characters -;; that appear once in some ancient manuscript and whose meaning -;; is unknown. - -(flet - ((make-chinese-cns11643-charset - (name plane final) - (make-charset - name (concat "Chinese CNS Plane " plane) - `(registry - ,(concat "CNS11643[.-]\\(.*[.-]\\)?" plane "$") - dimension 2 - chars 94 - final ,final - graphic 0)) - (modify-syntax-entry name "w") - (modify-category-entry name ?t) - )) - (make-chinese-cns11643-charset 'chinese-cns11643-3 "3" ?I) - (make-chinese-cns11643-charset 'chinese-cns11643-4 "4" ?J) - (make-chinese-cns11643-charset 'chinese-cns11643-5 "5" ?K) - (make-chinese-cns11643-charset 'chinese-cns11643-6 "6" ?L) - (make-chinese-cns11643-charset 'chinese-cns11643-7 "7" ?M) - ) - -;; PinYin-ZhuYin -(make-charset 'sisheng "PinYin-ZhuYin" - '(registry "sisheng_cwnn\\|OMRON_UDC_ZH" - dimension 1 - chars 94 - final ?0 - graphic 0 - )) - -(make-coding-system - 'euc-china 'iso2022 - "Coding-system of Chinese EUC (Extended Unix Code)." - '(charset-g0 ascii - charset-g1 chinese-gb2312 - charset-g2 sisheng - charset-g3 t - mnemonic "EUC/Zh" - )) - -(make-coding-system - 'hz 'no-conversion - "Coding-system of Hz/ZW used for Chinese." - '(mnemonic "Hz/ZW" - eol-type lf - post-read-conversion hz2gb-region - pre-write-conversion gb2hz-region)) - -(make-coding-system - 'big5 'big5 - "Coding-system of BIG5." - '(mnemonic "Big5")) - -(copy-coding-system 'big5 'big5-eten) - -;; If you prefer QUAIL to EGG, please modify below as you wish. -;;(when (and (featurep 'egg) (featurep 'wnn)) -;; (setq wnn-server-type 'cserver) -;; (load "its/pinyin") -;; (setq its:*standard-modes* -;; (cons (its:get-mode-map "PinYin") its:*standard-modes*))) - -;; For QUAIL -;; Please add your own quail package if any. - -;; For GB character input -(add-hook 'quail-package-alist '("py" "quail-py")) -(add-hook 'quail-package-alist '("qj" "quail-qj")) -(add-hook 'quail-package-alist '("punct" "quail-punct")) -(add-hook 'quail-package-alist '("sw" "quail-sw")) -(add-hook 'quail-package-alist '("tonepy" "quail-tonepy")) -(add-hook 'quail-package-alist '("ccdospy" "quail-ccdospy")) -(add-hook 'quail-package-alist '("ctlau" "quail-ctlau")) - -;; For BIG5 character input -;;(add-hook 'quail-package-alist '("py-b5" "quail-py-b5")) -;;(add-hook 'quail-package-alist '("qj-b5" "quail-qj-b5")) -;;(add-hook 'quail-package-alist '("punct-b5" "quail-punct-b5")) -;;(add-hook 'quail-package-alist '("ctlaub" "quail-ctlaub")) -;;(add-hook 'quail-package-alist '("zozy" "quail-zozy")) -;;(add-hook 'quail-package-alist '("etzy" "quail-etzy")) - -;; For Big5 handling - -(define-ccl-program ccl-internal-to-big5-1 - '(((r1 = ((((r0 - #x21) * 94) + r1) - #x21)) - (r0 = ((r1 / 157) + #xA1)) - (r1 %= 157) - (if (r1 < #x3F) (r1 += #x40) (r1 += #x62)))) - "CCL program to convert internal Big5 code (level1) to code point of Big5 font.") - -;; 6280 is the number of characters that got shoved into `chinese-big5-1'. -(define-ccl-program ccl-internal-to-big5-2 - '(((r1 = (((((r0 - #x21) * 94) + r1) - #x21) + 6280)) - (r0 = ((r1 / 157) + #xA1)) - (r1 %= 157) - (if (r1 < #x3F) (r1 += #x40) (r1 += #x62)))) - "CCL program to convert internal Big5 code (level2) to code point of Big5 font.") - -(set-charset-ccl-program 'chinese-big5-1 ccl-internal-to-big5-1) -(set-charset-ccl-program 'chinese-big5-2 ccl-internal-to-big5-2) - -;; This isn't used and doesn't work yet because CCL doesn't know -;; how to handle things like 'chinese-big5-1 currently. The -;; original of this program had 152 (the leading byte) in place of -;; chinese-big5-1, etc., but that will never do. No exposing of -;; leading bytes to the Lisp level! -;(define-ccl-program ccl-big5-to-internal -; '(0 -; ((if (r0 < #xC9) -; ((r2 = (((r0 - #xA1) * 157) + r1)) -; (r0 = chinese-big5-1)) -; ((r2 = (((r0 - #xC9) * 157) + r1)) -; (r0 = chinese-big5-2))) -; (if (r1 < #x7F) (r2 -= #x40) (r2 -= #x62)) -; (r1 = ((r2 / 94) + #x21)) -; (r2 = ((r2 % 94) + #x21)) -; )) -; "CCL program to convert Big5 code to internal code.") - -(define-language-environment 'chinese - "Chinese (includes GB, Big5, and CNS)" - (lambda () - (require 'chinese) - (set-coding-category-system 'iso-8-2 'euc-china) - (set-coding-priority-list '(iso-8-2 big5 iso-8-designate)) - (set-pathname-coding-system 'euc-china) - (set-default-buffer-file-coding-system 'euc-china) ; GB encoding - (setq terminal-coding-system 'euc-china) - (setq keyboard-coding-system 'euc-china) - (add-hook 'comint-exec-hook - (lambda () - (let ((proc (get-buffer-process (current-buffer)))) - (set-process-input-coding-system proc 'euc-china) - (set-process-output-coding-system proc 'euc-china)))) - (set-buffer-file-coding-system-for-read 'automatic-conversion) - (set-default-buffer-file-coding-system 'euc-china) - (setq keyboard-coding-system 'euc-china) - (setq terminal-coding-system 'euc-china) - (when (eq 'x (device-type (selected-device))) - (x-use-halfwidth-roman-font 'chinese-gb2312 "gb1988")))) -;; (when (featurep 'egg) -;; (setq-default its:*current-map* (its:get-mode-map "PinYin"))) -;; (setq-default quail-current-package (assoc "py" quail-package-alist)))) -;; )) - -(set-coding-category-system 'big5 'big5)
--- a/lisp/mule/chinese.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/chinese.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,119 +0,0 @@ -;;; chinese.el --- Chinese specific setup for XEmacs/Mule (not pre-loaded). - -;; Copyright (C) 1992 Free Software Foundation, Inc. - -;; This file is part of XEmacs. - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Synched up with: Mule 2.3. - -;;; 92.3.5 Created for Mule Ver.0.9.0 by K.Handa <handa@etl.go.jp> - -;; #### This does not work yet in XEmacs. - -;; Hz/ZW encoding stuffs -(defvar hz2gb-gb-designation "\e$A") -(defvar hz2gb-ascii-designation "\e(B") -(defvar hz2gb-line-continuation nil) - -;;;###autoload -(defun hz2gb-buffer () - "Decode the text in the current buffer, assumed to be HZ/ZW-encoded." - (interactive) - (hz2gb-region (point-min) (point-max))) - -;;;###autoload -(defun hz2gb-region (beg end) - "Decode HZ/ZW-encoded text between point and mark. -When called from a program, expects two arguments, -positions (integers or markers) specifying the stretch to be decoded." - (interactive "r") - (save-excursion - (save-restriction - (narrow-to-region beg end) - ;; "~\n" -> "\n" - (goto-char (point-min)) - (while (search-forward "~" nil t) - (if (= (following-char) ?\n) (delete-char -1)) - (if (not (eobp)) (forward-char 1))) - ;; "^zW...\n" -> Chinese text - ;; "~{...~}" -> Chinese Text - (goto-char (point-min)) - (let (chinese-found) - (while (re-search-forward "~{\\|^zW" nil t) - (if (= (char-after (match-beginning 0)) ?z) - ;; ZW -> junet - (progn - (delete-char -2) - (insert hz2gb-gb-designation) - (end-of-line) - (insert hz2gb-ascii-designation)) - ;; Hz -> junet - (delete-char -2) - (insert hz2gb-gb-designation) - (if (re-search-forward "\\(~}\\)\\|\\(\n\\)" nil t) - (if (match-beginning 1) - (replace-match hz2gb-ascii-designation) - (if (not hz2gb-line-continuation) - (progn - (goto-char (match-beginning 2)) - (insert hz2gb-ascii-designation)))))) - (setq chinese-found t)) - (if chinese-found - (decode-coding-region (point-min) (point-max) 'junet))) - ;; "~~" -> "~" - (goto-char (point-min)) - (while (search-forward "~~" nil t) (delete-char -1))))) - -;;;###autoload -(defun gb2hz-buffer () - "Convert whole text in the current buffer -from mule internal encoding to HZ encoding." - (interactive) (gb2hz-region (point-min) (point-max))) - -;;;###autoload -(defun gb2hz-region (beg end) - "Encode text between point and mark in HZ/ZW encoding. -When called from a program, expects two arguments, -positions (integers or markers) specifying the stretch to be encoded." - (interactive "r") - (save-excursion - (save-restriction - (narrow-to-region beg end) - ;; "~" -> "~~" - (goto-char (point-min)) - (while (search-forward "~" nil t) (insert ?~)) - ;; Chinese text -> "~{...~}" - (goto-char (point-min)) - (if (re-search-forward "\\cc" nil t) - (let (p) - (goto-char (match-beginning 0)) - (setq p (point)) - (encode-coding-region p (point-max) 'junet) - (goto-char p) - (while (search-forward hz2gb-gb-designation nil t) - (delete-char -3) - (insert "~{")) - (goto-char p) - (while (search-forward hz2gb-ascii-designation nil t) - (delete-char -3) - (insert "~}")) - (goto-char p))) - ))) - -;;; -(provide 'chinese)
--- a/lisp/mule/cyrillic-hooks.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/cyrillic-hooks.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,65 +0,0 @@ -;;; cyrillic-hooks.el --- pre-loaded support for Cyrillic. - -;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. -;; Copyright (C) 1995 Amdahl Corporation. -;; Copyright (C) 1995 Sun Microsystems. - -;; This file is part of XEmacs. - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Synched up with: Mule 2.3. - -;; For syntax of Cyrillic -(modify-syntax-entry 'cyrillic-iso8859-5 "w") -(modify-syntax-entry ?-L ".")-A -(modify-syntax-entry ?-Lð ".")-A -(modify-syntax-entry ?-Lý ".")-A - - - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; CYRILLIC -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(make-coding-system - 'iso-8859-5 'iso2022 - "MIME ISO-8859-5" - '(charset-g0 ascii - charset-g1 cyrillic-iso8859-5 - charset-g2 t - charset-g3 t - mnemonic "ISO8/Cyr" - )) - -;;(add-hook 'quail-package-alist '("jcuken" "quail-cyrillic")) -;;(add-hook 'quail-package-alist '("macedonian" "quail-cyrillic")) -;;(add-hook 'quail-package-alist '("serbian" "quail-cyrillic")) -;;(add-hook 'quail-package-alist '("beylorussian" "quail-cyrillic")) -;;(add-hook 'quail-package-alist '("ukrainian" "quail-cyrillic")) -(add-hook 'quail-package-alist '("yawerty" "quail-cyrillic")) - -(define-language-environment 'cyrillic - "Cyrillic" - (lambda () - (set-coding-category-system 'iso-8-designate 'iso-8859-5) - (set-coding-priority-list '(iso-8-designate iso-8-1)) - (set-default-buffer-file-coding-system 'iso-8859-5) - (setq terminal-coding-system 'iso-8859-5) - (setq keyboard-coding-system 'iso-8859-5) - (setq-default quail-current-package - (assoc "yawerty" quail-package-alist)) - ))
--- a/lisp/mule/cyrillic.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/cyrillic.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,178 +0,0 @@ -;; Cyrillic specific utilityes for Mule -;; Copyright (C) 1995 Free Software Foundation, Inc. -;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs). -;; This file contains Cyrillic characters (ISO8859-5). - -;; Mule is free software distributed in the form of patches to GNU Emacs. -;; You can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 1, or (at your option) -;; any later version. - -;; Mule is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; 95.6.21 modified for Mule Ver.2.2.2 by TAKAHASHI N. <ntakahas@etl.go.jp> -;;; Added Alternativnyj utilities. - -;;; KOI8 staff - -(define-ccl-program ccl-read-koi8 - '(((read r0) - (loop - (write-read-repeat - r0 - [0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 - 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 - 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 - 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 - 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 - 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 - 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 - 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 - 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 - 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 - 32 32 32 ?,Lq(B 32 32 32 32 32 32 32 32 32 32 32 32 - 32 32 32 ?,L!(B 32 32 32 32 32 32 32 32 32 32 32 32 - ?,Ln(B ?,LP(B ?,LQ(B ?,Lf(B ?,LT(B ?,LU(B ?,Ld(B ?,LS(B ?,Le(B ?,LX(B ?,LY(B ?,LZ(B ?,L[(B ?,L\(B ?,L](B ?,L^(B - ?,L_(B ?,Lo(B ?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,LV(B ?,LR(B ?,Ll(B ?,Lk(B ?,LW(B ?,Lh(B ?,Lm(B ?,Li(B ?,Lg(B ?,Lj(B - ?,LN(B ?,L0(B ?,L1(B ?,LF(B ?,L4(B ?,L5(B ?,LD(B ?,L3(B ?,LE(B ?,L8(B ?,L9(B ?,L:(B ?,L;(B ?,L<(B ?,L=(B ?,L>(B - ?,L?(B ?,LO(B ?,L@(B ?,LA(B ?,LB(B ?,LC(B ?,L6(B ?,L2(B ?,LL(B ?,LK(B ?,L7(B ?,LH(B ?,LM(B ?,LI(B ?,LG(B ?,LJ(B ])))) - "CCL program to read KOI8.") - -(define-ccl-program ccl-write-koi8 - '(((read r0) - (loop - (if (r0 != 140) ; lc-crl == 140 - (write-read-repeat r0) - ((read r0) - (r0 -= 160) - (write-read-repeat - r0 - [ 32 179 32 32 32 32 32 32 32 32 32 32 32 32 32 32 - 225 226 247 231 228 229 246 250 233 234 235 236 237 238 239 240 - 242 243 244 245 230 232 227 254 251 253 255 249 248 252 224 241 - 193 194 215 199 196 197 214 218 201 202 203 204 205 206 207 208 - 210 211 212 213 198 200 195 222 219 221 223 217 216 220 192 209 - 32 163 32 32 32 32 32 32 32 32 32 32 32 32 32 32]) - ))))) - "CCL program to write KOI8.") - -(make-coding-system - 'koi8 'ccl - "Coding-system used for KOI8." - `(decode ,ccl-read-koi8 - encode ,ccl-write-koi8 - mnemonic "KOI8")) - -(define-ccl-program ccl-cyrillic-to-koi8 - '(((r1 -= 160) - (r1 = r1 - [ 32 179 32 32 32 32 32 32 32 32 32 32 32 32 32 32 - 225 226 247 231 228 229 246 250 233 234 235 236 237 238 239 240 - 242 243 244 245 230 232 227 254 251 253 255 249 248 252 224 241 - 193 194 215 199 196 197 214 218 201 202 203 204 205 206 207 208 - 210 211 212 213 198 200 195 222 219 221 223 217 216 220 192 209 - 32 163 32 32 32 32 32 32 32 32 32 32 32 32 32 32]) - )) - "CCL program to convert chars of 'cyrillic to KOI font.") - -(defun set-cyrillic-environment-koi8 () - "Make KOI8 the default character set for cyrillic." - (set-coding-category-system 'iso-8-designate 'koi8) - - (set-coding-priority-list '(iso-8-designate iso-8-1)) - - (set-default-file-coding-system 'koi8) - (set-terminal-coding-system 'koi8) - - (setq-default quail-current-package (assoc "yawerty" quail-package-alist)) - - (set-charset-ccl-program 'cyrillic ccl-cyrillic-to-koi8) - ) - - -;;; Alternativnyj staff - -(define-ccl-program ccl-read-alternativnyj - '(((read r0) - (loop - (write-read-repeat - r0 - [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 - 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 - 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 - 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 - 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 - 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 - 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 - 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 - ?,L0(B ?,L1(B ?,L2(B ?,L3(B ?,L4(B ?,L5(B ?,L6(B ?,L7(B ?,L8(B ?,L9(B ?,L:(B ?,L;(B ?,L<(B ?,L=(B ?,L>(B ?,L?(B - ?,L@(B ?,LA(B ?,LB(B ?,LC(B ?,LD(B ?,LE(B ?,LF(B ?,LG(B ?,LH(B ?,LI(B ?,LJ(B ?,LK(B ?,LL(B ?,LM(B ?,LN(B ?,LO(B - ?,LP(B ?,LQ(B ?,LR(B ?,LS(B ?,LT(B ?,LU(B ?,LV(B ?,LW(B ?,LX(B ?,LY(B ?,LZ(B ?,L[(B ?,L\(B ?,L](B ?,L^(B ?,L_(B - 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 - 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 - 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 - ?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,Ld(B ?,Le(B ?,Lf(B ?,Lg(B ?,Lh(B ?,Li(B ?,Lj(B ?,Lk(B ?,Ll(B ?,Lm(B ?,Ln(B ?,Lo(B - ?,L!(B ?,Lq(B 32 32 32 32 32 32 32 32 32 32 32 32 32 ?,Lp(B])))) - "CCL program to read Alternativnyj.") - -(define-ccl-program ccl-write-alternativnyj - '(((read r0) - (loop - (if (r0 != 140) ; lc-crl == 140 - (write-read-repeat r0) - ((read r0) - (r0 -= 160) - (write-read-repeat - r0 - [ 32 240 32 32 32 32 32 32 32 32 32 32 32 32 32 32 - 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 - 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 - 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 - 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 - 255 241 32 32 32 32 32 32 32 32 32 32 32 32 32 32]) - ))))) - "CCL program to write Alternativnyj.") - -(make-coding-system - 'alternativnyj 'ccl - "Coding-system used for Alternativnyj." - `(decode ,ccl-read-alternativnyj - encode ,ccl-write-alternativnyj - mnemonic "Alt.ivnyj")) - -(define-ccl-program ccl-cyrillic-to-alternativnyj - '(((r1 -= 160) - (r1 = r1 - [ 32 240 32 32 32 32 32 32 32 32 32 32 32 32 32 32 - 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 - 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 - 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 - 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 - 255 241 32 32 32 32 32 32 32 32 32 32 32 32 32 32]) - )) - "CCL program to convert chars of 'cyrillic to Alternativnyj font.") - -(defun set-cyrillic-environment-alternativnyj () - "Make Alternativnyj the default character set for cyrillic." - (set-coding-category-system 'iso-8-designate 'alternativnyj-dos) - - (set-coding-priority-list '(iso-8-designate iso-8-1)) - - (set-default-file-coding-system 'alternativnyj-dos) - (set-terminal-coding-system 'alternativnyj-dos) - - (setq-default quail-current-package (assoc "yawerty" quail-package-alist)) - - (set-charset-ccl-program 'cyrillic ccl-cyrillic-to-alternativnyj) - ) - -(provide 'cyrillic)
--- a/lisp/mule/european-hooks.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/european-hooks.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,124 +0,0 @@ -;;; european-hooks.el --- pre-loaded support for European languages. - -;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. -;; Copyright (C) 1995 Amdahl Corporation. -;; Copyright (C) 1995 Sun Microsystems. -;; Copyright (C) 1997 MORIOKA Tomohiko - -;; This file is part of XEmacs. - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Commentary: - -;; Synched up with: Mule 2.3. - -;; Modification to sync with Emacs 20.1 is not finished yet. - -;;; Code: - -;; For syntax of Latin-1 characters. -(loop for c from 64 to 127 ; from 'À' to 'ÿ' - do (modify-syntax-entry (make-char 'latin-iso8859-1 c) "w")) - -(modify-syntax-entry (make-char 'latin-iso8859-1 32) "w") ; no-break space -(modify-syntax-entry ?× "_") -(modify-syntax-entry ?÷ "_") - -;; For syntax of Latin-2 -(loop for c in '(?-B¡-A ?-B£-A ?-B¥-A ?-B¦-A ?-B©-A ?-Bª-A ?-B«-A ?-B¬-A ?-B®-A ?-B¯-A ?-B±-A ?-B³-A ?-Bµ-A ?-B¶-A ?-B¹-A ?-Bº-A ?-B»-A ?-B¼)-A - do (modify-syntax-entry c "w")) - -(loop for c from 62 to 126 - do (modify-syntax-entry (make-char 'latin-iso8859-2 c) "w")) - -(modify-syntax-entry (make-char 'latin-iso8859-2 32) "w") ; no-break space -(modify-syntax-entry ?-B×-A ".") -(modify-syntax-entry ?-B÷-A ".") - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; EUROPEANS -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(make-coding-system - 'iso-8859-2 'iso2022 "MIME ISO-8859-2" - '(charset-g0 ascii - charset-g1 latin-iso8859-2 - charset-g2 t - charset-g3 t - mnemonic "MIME/Ltn-2" - )) - -(make-coding-system - 'iso-8859-3 'iso2022 "MIME ISO-8859-3" - '(charset-g0 ascii - charset-g1 latin-iso8859-3 - charset-g2 t - charset-g3 t - mnemonic "MIME/Ltn-3" - )) - -(make-coding-system - 'iso-8859-4 'iso2022 "MIME ISO-8859-4" - '(charset-g0 ascii - charset-g1 latin-iso8859-4 - charset-g2 t - charset-g3 t - mnemonic "MIME/Ltn-4" - )) - -(make-coding-system - 'iso-8859-9 'iso2022 "MIME ISO-8859-9" - '(charset-g0 ascii - charset-g1 latin-iso8859-9 - charset-g2 t - charset-g3 t - mnemonic "MIME/Ltn-5" - )) - -(register-input-method "European" - '("quail-latin-1" quail-use-package "quail/latin")) -(register-input-method "European" - '("quail-latin-2" quail-use-package "quail/latin")) -(register-input-method "European" - '("quail-latin-3" quail-use-package "quail/latin")) -(register-input-method "European" - '("quail-latin-4" quail-use-package "quail/latin")) -(register-input-method "European" - '("quail-latin-5" quail-use-package "quail/latin")) - -(define-language-environment 'european - "European (for Latin-1 through Latin-5)" - (lambda () - ;;(set-coding-category-system 'iso-8-designate 'iso-8859-1) - ;;(set-coding-priority-list '(iso-8-designate iso-8-1)) - ;;(setq locale-coding-system 'no-conversion) ; iso-8859-1 - (set-default-buffer-file-coding-system 'no-conversion) ; iso-8859-1 - (set-buffer-file-coding-system-for-read 'no-conversion) ; iso-8859-1 - ;;(setq display-coding-system 'iso-8859-1) - ;;(setq keyboard-coding-system 'iso-8859-1) - (setq-default quail-current-package - (assoc "latin-1" quail-package-alist)) - )) - -(set-language-info "English" 'tutorial "TUTORIAL") - -(register-input-method "French" - '("quail-latin-1" quail-use-package "quail/latin")) -(register-input-method "French" - '("quail-latin-1" quail-use-package "quail/latin")) - -;;; european-hooks.el ends here
--- a/lisp/mule/greek-hooks.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/greek-hooks.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,60 +0,0 @@ -;;; greek-hooks.el --- pre-loaded support for Greek. - -;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. -;; Copyright (C) 1995 Amdahl Corporation. -;; Copyright (C) 1995 Sun Microsystems. - -;; This file is part of XEmacs. - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Synched up with: Mule 2.3. - -;; For syntax of Greek -(loop for c from 54 to 126 - do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")) -(modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space -(modify-syntax-entry ?-F· ".")-A -(modify-syntax-entry ?-F» ".")-A -(modify-syntax-entry ?-F½ ".")-A - - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; GREEK -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(make-coding-system - 'iso-8859-7 'iso2022 "MIME ISO-8859-7" - '(charset-g0 ascii - charset-g1 greek-iso8859-7 - charset-g2 t - charset-g3 t - mnemonic "MIME/Grk" - )) - -(add-hook 'quail-package-alist '("greek" "quail-greek")) - -(define-language-environment 'greek - "Greek" - (lambda () - (set-coding-category-system 'iso-8-designate 'iso-8859-7) - (set-coding-priority-list '(iso-8-designate iso-8-1)) - (set-default-buffer-file-coding-system 'iso-8859-7) - (setq terminal-coding-system 'iso-8859-7) - (setq keyboard-coding-system 'iso-8859-7) - (setq-default quail-current-package - (assoc "greek" quail-package-alist)) - ))
--- a/lisp/mule/ipa-hooks.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/ipa-hooks.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,41 +0,0 @@ -;;; other-lang-hooks.el --- pre-loaded support for other languages. - -;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. -;; Copyright (C) 1995 Amdahl Corporation. -;; Copyright (C) 1995 Sun Microsystems. - -;; This file is part of XEmacs. - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Synched up with: Mule 2.3. - -;; for Mule IPA -(make-charset 'ipa "International Phonetic Alphabet" - '(registry "MuleIPA" - dimension 1 - chars 96 - final ?0 - graphic 1 - )) - - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; OTHERS -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(add-hook 'quail-package-alist '("ipa" "quail-ipa")) -
--- a/lisp/mule/japanese-hooks.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/japanese-hooks.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,214 +0,0 @@ -;;; japanese-hooks.el --- pre-loaded support for Japanese. - -;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. -;; Copyright (C) 1995 Amdahl Corporation. -;; Copyright (C) 1995 Sun Microsystems. - -;; This file is part of XEmacs. - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Synched up with: Mule 2.3. - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; JAPANESE -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;;; Syntax of Japanese characters. -(modify-syntax-entry 'katakana-jisx0201 "w") -(modify-syntax-entry 'japanese-jisx0212 "w") - -(modify-syntax-entry 'japanese-jisx0208 "w") -(loop for row in '(33 34 40) - do (modify-syntax-entry `[japanese-jisx0208 ,row] "_")) -(loop for char in '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B) - do (modify-syntax-entry char "w")) -(modify-syntax-entry ?\$B!J(B "($B!K(B") -(modify-syntax-entry ?\$B!N(B "($B!O(B") -(modify-syntax-entry ?\$B!P(B "($B!Q(B") -(modify-syntax-entry ?\$B!V(B "($B!W(B") -(modify-syntax-entry ?\$B!X(B "($B!Y(B") -(modify-syntax-entry ?\$B!K(B ")$B!J(B") -(modify-syntax-entry ?\$B!O(B ")$B!N(B") -(modify-syntax-entry ?\$B!Q(B ")$B!P(B") -(modify-syntax-entry ?\$B!W(B ")$B!V(B") -(modify-syntax-entry ?\$B!Y(B ")$B!X(B") - - -;;; Character categories S, A, H, K, G, Y, and C -(define-category ?S "Japanese 2-byte symbol character.") -(modify-category-entry [japanese-jisx0208 33] ?S) -(modify-category-entry [japanese-jisx0208 34] ?S) -(modify-category-entry [japanese-jisx0208 40] ?S) -(define-category ?A "Japanese 2-byte Alphanumeric character.") -(modify-category-entry [japanese-jisx0208 35] ?A) -(define-category ?H "Japanese 2-byte Hiragana character.") -(modify-category-entry [japanese-jisx0208 36] ?H) -(define-category ?K "Japanese 2-byte Katakana character.") -(modify-category-entry [japanese-jisx0208 37] ?K) -(define-category ?G "Japanese 2-byte Greek character.") -(modify-category-entry [japanese-jisx0208 38] ?G) -(define-category ?Y "Japanese 2-byte Cyrillic character.") -(modify-category-entry [japanese-jisx0208 39] ?Y) -(define-category ?C "Japanese 2-byte Kanji characters.") -(loop for row from 48 to 126 do (modify-category-entry `[japanese-jisx0208 ,row] ?C)) -(loop for char in '(?$B!<(B ?$B!+(B ?$B!,(B) - do (modify-category-entry char ?K) - (modify-category-entry char ?H)) -(loop for char in '(?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B) - do (modify-category-entry char ?C)) -(modify-category-entry 'japanese-jisx0212 ?C) - -(defvar japanese-word-regexp - "\\cA+\\cH*\\|\\cK+\\cH*\\|\\cC+\\cH*\\|\\cH+\\|\\ck+\\|\\sw+" - "Regular expression used to match a Japanese word.") - -(set-word-regexp japanese-word-regexp) -(setq forward-word-regexp "\\w\\>") -(setq backward-word-regexp "\\<\\w") - -;;; Paragraph setting -(setq sentence-end - (concat - "\\(" - "\\(" - "[.?!][]\"')}]*" - "\\|" - "[$B!%!)!*(B][$B!O!I!G!K!Q!M!S!U!W!Y(B]*" - "\\)" - "\\($\\|\t\\| \\)" - "\\|" - "$B!#(B" - "\\)" - "[ \t\n]*")) -(setq paragraph-start "^[ $B!!(B\t\n\f]") -(setq paragraph-separate "^[ $B!!(B\t\f]*$") - -(make-coding-system - 'shift-jis 'shift-jis - "Coding-system of Shift-JIS used in Japan." - '(mnemonic "SJIS")) - -(copy-coding-system 'shift-jis 'sjis) - -(make-coding-system - 'iso-2022-jp 'iso2022 - "Coding-system used for communication with mail and news in Japan." - '(charset-g0 ascii - short t - seven t - input-charset-conversion ((latin-jisx0201 ascii) - (japanese-jisx0208-1978 japanese-jisx0208)) - mnemonic "Mail/Ja" - )) - -(copy-coding-system 'iso-2022-jp 'junet) - -(make-coding-system - 'oldjis 'iso2022 - "Coding-system used for old JIS terminal." - '(charset-g0 ascii - short t - seven t - output-charset-conversion ((ascii latin-jisx0201) - (japanese-jisx0208 japanese-jisx0208-1978)) - mnemonic "Mail/Ja-old" - )) - -(make-coding-system - 'euc-japan 'iso2022 - "Coding-system of Japanese EUC (Extended Unix Code)." - '(charset-g0 ascii - charset-g1 japanese-jisx0208 - charset-g2 katakana-jisx0201 - charset-g3 japanese-jisx0212 - short t - mnemonic "EUC/Ja" - )) - -;; EGG specific setup -(define-egg-environment 'japanese - "Japanese settings for egg." - (lambda () - (when (not (featurep 'egg-jpn)) - (load "its/its-hira") - (load "its/its-kata") - (load "its/its-hankaku") - (load "its/its-zenkaku") - (setq its:*standard-modes* - (append - (list (its:get-mode-map "roma-kana") - (its:get-mode-map "roma-kata") - (its:get-mode-map "downcase") - (its:get-mode-map "upcase") - (its:get-mode-map "zenkaku-downcase") - (its:get-mode-map "zenkaku-upcase")) - its:*standard-modes*)) - (provide 'egg-jpn)) - (setq wnn-server-type 'jserver) - (setq egg-default-startup-file "eggrc-wnn") - (setq-default its:*current-map* (its:get-mode-map "roma-kana")))) - -(define-language-environment 'japanese - "Japanese (includes JIS and EUC)" - (lambda () - (set-coding-category-system 'iso-7 'iso-2022-jp) - (set-coding-category-system 'iso-8-2 'euc-japan) - (set-coding-priority-list '(iso-7 iso-8-2 shift-jis no-conversion)) - ;;'(iso-8-2 iso-8-designate iso-8-1 shift-jis big5) - - ;; Added by mrb, who doesn't speak japanese - so be sceptical... - ;; (when (string-match "solaris\\|sunos" system-configuration) - ;;(set-native-coding-system 'euc-japan) ; someday - (set-pathname-coding-system 'euc-japan) - (add-hook 'comint-exec-hook - (lambda () - (let ((proc (get-buffer-process (current-buffer)))) - (set-process-input-coding-system proc 'euc-japan) - (set-process-output-coding-system proc 'euc-japan)))) - (set-buffer-file-coding-system-for-read 'automatic-conversion) - (set-default-buffer-file-coding-system 'euc-japan) - (setq keyboard-coding-system 'euc-japan) - (setq terminal-coding-system 'euc-japan) - (when (eq 'x (device-type (selected-device))) - (x-use-halfwidth-roman-font 'japanese-jisx0208 "jisx0201")) - - (when (eq system-type 'ms-dos) - ;; Shift-JIS is the standard coding system under Japanese MS-DOS - ;; This isn't really code - just a hint to future implementors - (setq keyboard-coding-system 'shift-jis-dos) - (setq terminal-coding-system 'shift-jis-dos) - (set-default-buffer-file-coding-system 'shift-jis-dos) - ;;(set-default-process-coding-system 'shift-jis-dos 'shift-jis-dos) - ) - )) - -(set-coding-category-system 'shift-jis 'shift-jis) - -;; stuff for providing gramatic processing of Japanese text -;; something like this should probably be created for all environments... - -(defvar aletter (concat "\\(" ascii-char "\\|" kanji-char "\\)")) -(defvar kanji-space-insertable (concat - "$B!"(B" aletter "\\|" - "$B!#(B" aletter "\\|" - aletter "$B!J(B" "\\|" - "$B!K(B" aletter "\\|" - ascii-alphanumeric kanji-kanji-char "\\|" - kanji-kanji-char ascii-alphanumeric )) - -(defvar space-insertable (concat " " aletter "\\|" kanji-space-insertable) - "Regexp for finding points that can have spaces inserted into them for justification")
--- a/lisp/mule/korean-hooks.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/korean-hooks.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,120 +0,0 @@ -;;; korean-hooks.el --- pre-loaded support for Korean. - -;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. -;; Copyright (C) 1995 Amdahl Corporation. -;; Copyright (C) 1995 Sun Microsystems. - -;; This file is part of XEmacs. - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Synched up with: Mule 2.3. - - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; KOREAN -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;; Syntax of Korean characters. -(loop for row from 33 to 34 do (modify-syntax-entry `[korean-ksc5601 ,row] ".")) -(loop for row from 35 to 37 do (modify-syntax-entry `[korean-ksc5601 ,row] "w")) -(loop for row from 38 to 41 do (modify-syntax-entry `[korean-ksc5601 ,row] ".")) -(loop for row from 42 to 126 do (modify-syntax-entry `[korean-ksc5601 ,row] "w")) - -(add-hook 'quail-package-alist '("hangul" "quail-hangul")) -(add-hook 'quail-package-alist '("hangul3" "quail-hangul3")) -(add-hook 'quail-package-alist '("hanja-jis" "quail-hanja-jis")) -(add-hook 'quail-package-alist '("hanja-ksc" "quail-hanja-ksc")) - -(make-coding-system - 'euc-korea 'iso2022 - "Coding-system of Korean EUC (Extended Unix Code)." - '(charset-g0 ascii - charset-g1 korean-ksc5601 - mnemonic "EUC/Ko" - eol-type lf - )) - -(copy-coding-system 'euc-korea 'euc-kr) - -(make-coding-system - 'iso-2022-kr 'iso2022 - "Coding-System used for communication with mail in Korea." - '(charset-g0 ascii - charset-g1 korean-ksc5601 - force-g1-on-output t - seven t - lock-shift t - mnemonic "Mail/Ko" - eol-type lf - )) - -(copy-coding-system 'iso-2022-kr 'korean-mail) - -(make-coding-system - 'iso-2022-int-1 'iso2022 -"ISO-2022-INT-1" - '(charset-g0 ascii - charset-g1 korean-ksc5601 - short t - seven t - lock-shift t - mnemonic "ISO7/Ko" - )) - -;; EGG specific setup -(define-egg-environment 'korean - "Korean settings for egg" - (lambda () - (when (not (featurep 'egg-kor)) - (load "its-hangul") - (setq its:*standard-modes* - (cons (its:get-mode-map "hangul") its:*standard-modes*)) - (provide 'egg-kor)) - (setq wnn-server-type 'kserver) - (setq egg-default-startup-file "eggrc-wnn") - (setq-default its:*current-map* (its:get-mode-map "hangul")))) - -(define-language-environment 'korean - "Korean" - (lambda () - (set-coding-category-system 'iso-8-2 'euc-korea) - (set-coding-priority-list '(iso-8-2 iso-7 iso-8-designate)) - (set-pathname-coding-system 'euc-korea) - (add-hook 'comint-exec-hook - (lambda () - (let ((proc (get-buffer-process (current-buffer)))) - (set-process-input-coding-system proc 'euc-korea) - (set-process-output-coding-system proc 'euc-korea)))) - (set-buffer-file-coding-system-for-read 'automatic-conversion) - (set-default-buffer-file-coding-system 'euc-korea) - (setq keyboard-coding-system 'euc-korea) - (setq terminal-coding-system 'euc-korea) - (when (eq 'x (device-type (selected-device))) - (x-use-halfwidth-roman-font 'korean-ksc5601 "ksc5636")) - - ;; EGG specific setup 97.02.05 jhod - (when (featurep 'egg) - (when (not (featurep 'egg-kor)) - (provide 'egg-kor) - (load "its/its-hangul") - (setq its:*standard-modes* - (cons (its:get-mode-map "hangul") its:*standard-modes*))) - (setq-default its:*current-map* (its:get-mode-map "hangul"))) - - (setq-default quail-current-package - (assoc "hangul" quail-package-alist)) - ))
--- a/lisp/mule/mule-init.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/mule-init.el Mon Aug 13 09:41:43 2007 +0200 @@ -45,11 +45,7 @@ (setq language-environment-list (sort (language-environment-list) 'string-lessp)) -;; (defvar mule-keymap (make-sparse-keymap) -;; "Keymap for Mule specific commands.") -;; (fset 'mule-prefix mule-keymap) - -;; (define-key ctl-x-map "\C-n" 'mule-prefix) +;; MULE keymap codes were moved to mule-cmds.el. ;; Alternative key definitions ;; Original mapping will be altered by set-keyboard-coding-system. @@ -68,15 +64,7 @@ (cons 'modeline-multibyte-status (cdr modeline-format)))) -;; (define-key mule-keymap "f" 'set-buffer-file-coding-system) -;; (define-key mule-keymap "i" 'set-keyboard-coding-system) -;; (define-key mule-keymap "d" 'set-terminal-coding-system) -;; (define-key mule-keymap "p" 'set-current-process-coding-system) -;; (define-key mule-keymap "F" 'set-default-buffer-file-coding-system) -;; (define-key mule-keymap "P" 'set-default-process-coding-system) -;; (define-key mule-keymap "c" 'list-coding-system-briefly) -;; (define-key mule-keymap "C" 'list-coding-system) -;; (define-key mule-keymap "r" 'toggle-display-direction) +;; MULE keymap codes were moved to mule-cmds.el. (define-key help-map "T" 'help-with-tutorial-for-mule)
--- a/lisp/mule/mule-load.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/mule-load.el Mon Aug 13 09:41:43 2007 +0200 @@ -51,16 +51,17 @@ ;; that Mule knows about. (load-gc "arabic-hooks") -(load-gc "chinese-hooks") -(load-gc "cyrillic-hooks") +(load-gc "language/chinese") +(load-gc "language/cyrillic") +(load-gc "language/english") (load-gc "ethiopic-hooks") -(load-gc "european-hooks") -(load-gc "greek-hooks") +(load-gc "language/european") +(load-gc "language/greek") (load-gc "hebrew-hooks") -(load-gc "ipa-hooks") -(load-gc "japanese-hooks") -(load-gc "korean-hooks") -(load-gc "thai-hooks") +(load-gc "language/japanese") +(load-gc "language/korean") +(load-gc "language/misc-lang") +(load-gc "language/thai") (load-gc "vietnamese-hooks-1") (load-gc "vietnamese-hooks-2")
--- a/lisp/mule/thai-hooks.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/thai-hooks.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,61 +0,0 @@ -;;; thai-hooks.el --- pre-loaded support for Thai. - -;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. -;; Copyright (C) 1995 Amdahl Corporation. -;; Copyright (C) 1995 Sun Microsystems. - -;; This file is part of XEmacs. - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Synched up with: Mule 2.3. - -;; Thai TSCII -;; We are now supporting TIS620 (Thai) as an official character set. -;(make-charset 'thai "Thai TSCII" -; '(registry "TIS620" -; dimension 1 -; chars 94 -; final ?1 -; graphic 0 -; )) - - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; THAI -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(make-coding-system - 'tis620 'iso2022 - "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)." - '(charset-g0 ascii - charset-g1 thai-tis620 - no-ascii-cntl t - mnemonic "TIS620" - post-read-conversion thai-compose-region - pre-write-conversion decompose-region - )) - -(add-hook 'quail-package-alist '("thai" "quail-thai")) - -(define-language-environment 'thai - "Thai" - (lambda () - (set-coding-category-system 'iso-8-designate 'tis620) - (set-coding-priority-list '(iso-8-designate iso-8-1)) - (set-default-buffer-file-coding-system 'tis620) - (setq-default quail-current-package (assoc "thai" quail-package-alist)) - ))
--- a/lisp/mule/thai.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/mule/thai.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,173 +0,0 @@ -;; Thai language specific setup for Mule -;; Copyright (C) 1992 Free Software Foundation, Inc. - -;; This file is part of XEmacs. -;; This file contains European characters - -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; 93.1.21 created for Mule Ver.0.9.7.1 by K.Handa <handa@etl.go.jp> - -(defconst thai-character-alist - '((?,T!(B . consonant) ; 0xA1: LETTER KO KAI - (?,T"(B . consonant) ; 0xA2: LETTER KHO KHAI - (?,T#(B . consonant) ; 0xA3: LETTER KHO KHUAT (obsolete) - (?,T$(B . consonant) ; 0xA4: LETTER KHO KHWAI - (?,T%(B . consonant) ; 0xA5: LETTER KHO KHON (obsolete) - (?,T&(B . consonant) ; 0xA6: LETTER KHO RAKHANG - (?,T'(B . consonant) ; 0xA7: LETTER NGO NGU - (?,T((B . consonant) ; 0xA8: LETTER CHO CHAN - (?,T)(B . consonant) ; 0xA9: LETTER CHO CHING - (?,T*(B . consonant) ; 0xAA: LETTER CHO CHANG - (?,T+(B . consonant) ; 0xAB: LETTER SO SO - (?,T,(B . consonant) ; 0xAC: LETTER CHO CHOE - (?,T-(B . consonant) ; 0xAD: LETTER YO YING - (?,T.(B . consonant) ; 0xAE: LETTER DO CHADA - (?,T/(B . consonant) ; 0xAF: LETTER TO PATAK - (?,T0(B . consonant) ; 0xB0: LETTER THO THAN - (?,T1(B . consonant) ; 0xB1: LETTER THO NANGMONTHO - (?,T2(B . consonant) ; 0xB2: LETTER THO PHUTHAO - (?,T3(B . consonant) ; 0xB3: LETTER NO NEN - (?,T4(B . consonant) ; 0xB4: LETTER DO DEK - (?,T5(B . consonant) ; 0xB5: LETTER TO TAO - (?,T6(B . consonant) ; 0xB6: LETTER THO THUNG - (?,T7(B . consonant) ; 0xB7: LETTER THO THAHAN - (?,T8(B . consonant) ; 0xB8: LETTER THO THONG - (?,T9(B . consonant) ; 0xB9: LETTER NO NU - (?,T:(B . consonant) ; 0xBA: LETTER BO BAIMAI - (?,T;(B . consonant) ; 0xBB: LETTER PO PLA - (?,T<(B . consonant) ; 0xBC: LETTER PHO PHUNG - (?,T=(B . consonant) ; 0xBD: LETTER FO FA - (?,T>(B . consonant) ; 0xBE: LETTER PHO PHAN - (?,T?(B . consonant) ; 0xBF: LETTER FO FAN - (?,T@(B . consonant) ; 0xC0: LETTER PHO SAMPHAO - (?,TA(B . consonant) ; 0xC1: LETTER MO MA - (?,TB(B . consonant) ; 0xC2: LETTER YO YAK - (?,TC(B . consonant) ; 0xC3: LETTER RO RUA - (?,TD(B . vowel-base) ; 0xC4: LETTER RU (vowel letter used to write Pali) - (?,TE(B . consonant) ; 0xC5: LETTER LO LING - (?,TF(B . vowel-base) ; 0xC6: LETTER LU (vowel letter used to write Pali) - (?,TG(B . consonant) ; 0xC7: LETTER WO WAEN - (?,TH(B . consonant) ; 0xC8: LETTER SO SALA - (?,TI(B . consonant) ; 0xC9: LETTER SO RUSI - (?,TJ(B . consonant) ; 0xCA: LETTER SO SUA - (?,TK(B . consonant) ; 0xCB: LETTER HO HIP - (?,TL(B . consonant) ; 0xCC: LETTER LO CHULA - (?,TM(B . consonant) ; 0xCD: LETTER O ANG - (?,TN(B . consonant) ; 0xCE: LETTER HO NOK HUK - (?,TO(B . special) ; 0xCF: PAI YAN NOI (abbreviation) - (?,TP(B . vowel-base) ; 0xD0: VOWEL SIGN SARA A - (?,TQ(B . vowel-upper) ; 0xD1: VOWEL SIGN MAI HAN-AKAT N/S-T - (?,TR(B . vowel-base) ; 0xD2: VOWEL SIGN SARA AA - (?,TS(B . vowel-base) ; 0xD3: VOWEL SIGN SARA AM - (?,TT(B . vowel-upper) ; 0xD4: VOWEL SIGN SARA I N/S-T - (?,TU(B . vowel-upper) ; 0xD5: VOWEL SIGN SARA II N/S-T - (?,TV(B . vowel-upper) ; 0xD6: VOWEL SIGN SARA UE N/S-T - (?,TW(B . vowel-upper) ; 0xD7: VOWEL SIGN SARA UEE N/S-T - (?,TX(B . vowel-lower) ; 0xD8: VOWEL SIGN SARA U N/S-B - (?,TY(B . vowel-lower) ; 0xD9: VOWEL SIGN SARA UU N/S-B - (?,TZ(B . vowel-lower) ; 0xDA: VOWEL SIGN PHINTHU N/S-B (Pali virama) - (?,T[(B . not-used) ; 0xDA: - (?,T\(B . not-used) ; 0xDC: - (?,T](B . not-used) ; 0xDC: - (?,T^(B . not-used) ; 0xDC: - (?,T_(B . special) ; 0xDF: BAHT SIGN (currency symbol) - (?,T`(B . vowel-base) ; 0xE0: VOWEL SIGN SARA E - (?,Ta(B . vowel-base) ; 0xE1: VOWEL SIGN SARA AE - (?,Tb(B . vowel-base) ; 0xE2: VOWEL SIGN SARA O - (?,Tc(B . vowel-base) ; 0xE3: VOWEL SIGN SARA MAI MUAN - (?,Td(B . vowel-base) ; 0xE4: VOWEL SIGN SARA MAI MALAI - (?,Te(B . vowel-base) ; 0xE5: LAK KHANG YAO - (?,Tf(B . special) ; 0xE6: MAI YAMOK (repetion) - (?,Tg(B . vowel-upper) ; 0xE7: VOWEL SIGN MAI TAI KHU N/S-T - (?,Th(B . tone) ; 0xE8: TONE MAI EK N/S-T - (?,Ti(B . tone) ; 0xE9: TONE MAI THO N/S-T - (?,Tj(B . tone) ; 0xEA: TONE MAI TRI N/S-T - (?,Tk(B . tone) ; 0xEB: TONE MAI CHATTAWA N/S-T - (?,Tl(B . tone) ; 0xEC: THANTHAKHAT N/S-T (cancellation mark) - (?,Tm(B . tone) ; 0xED: NIKKHAHIT N/S-T (final nasal) - (?,Tn(B . vowel-upper) ; 0xEE: YAMAKKAN N/S-T - (?,To(B . special) ; 0xEF: FONRMAN - (?,Tp(B . special) ; 0xF0: DIGIT ZERO - (?,Tq(B . special) ; 0xF1: DIGIT ONE - (?,Tr(B . special) ; 0xF2: DIGIT TWO - (?,Ts(B . special) ; 0xF3: DIGIT THREE - (?,Tt(B . special) ; 0xF4: DIGIT FOUR - (?,Tu(B . special) ; 0xF5: DIGIT FIVE - (?,Tv(B . special) ; 0xF6: DIGIT SIX - (?,Tw(B . special) ; 0xF7: DIGIT SEVEN - (?,Tx(B . special) ; 0xF8: DIGIT EIGHT - (?,Ty(B . special) ; 0xF9: DIGIT NINE - (?,Tz(B . special) ; 0xFA: ANGKHANKHU (ellipsis) - (?,T{(B . special) ; 0xFB: KHOMUT (beginning of religious texts) - (?,T|(B . not-used) ; 0xFC: - (?,T}(B . not-used) ; 0xFD: - (?,T~(B . not-used) ; 0xFE: - ) - "Association list of thai-character and property.") -(setq thai-character-alist - (cons (cons (string-to-char "0,TQi1(B") 'vowel-upper-tone) thai-character-alist)) - -(defconst thai-category-table - (copy-category-table (standard-category-table)) - "Category table for Thai.") -(define-category-mnemonic ?0 "Thai consonants" - thai-category-table) -(define-category-mnemonic ?1 "Thai upper/lower vowel or tone mark." - thai-category-table) -(define-category-mnemonic ?2 "Thai base vowel or special characters." - thai-category-table) - -(let ((chars thai-character-alist) - ch prop) - (while chars - (setq ch (car (car chars)) - prop (cdr (car chars))) - (cond ((eq prop 'consonant) - (modify-category-entry ch ?0 thai-category-table)) - ((or (eq prop 'vowel-upper) - (eq prop 'vowel-lower) - (eq prop 'tone)) - (modify-category-entry ch ?1 thai-category-table)) - ((null (eq prop 'vowel-upper-tone)) - (modify-category-entry ch ?2 thai-category-table))) - (setq chars (cdr chars)))) - -;;;###autoload -(defun thai-compose-buffer () - "Compose Thai characters in the current buffer." - (interactive) - (thai-compose-region (point-min) (point-max))) - -;;;###autoload -(defun thai-compose-region (beg end) - "Compose Thai characters in the region." - (interactive "r") - (save-restriction - (narrow-to-region beg end) - (decompose-region (point-min) (point-max)) - (goto-char (point-min)) - (let ((ctbl (category-table)) - str) - (unwind-protect - (progn - (set-category-table thai-category-table) - (while (re-search-forward "\\c0\\c1+" nil t) - (compose-region (match-beginning 0) (match-end 0)))) - (set-category-table ctbl))))) - -;;; -(provide 'thai)
--- a/lisp/packages/pending-del.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/packages/pending-del.el Mon Aug 13 09:41:43 2007 +0200 @@ -72,6 +72,10 @@ (put 'delete-char 'pending-delete 'supersede) (put 'c-electric-delete 'pending-delete 'supersede) +;; Support the XEmacs 20.3 'delete functions + +(put 'backward-or-forward-delete-char 'pending-delete 'supersede) + ;; Don't delete for these. They're more problematic than helpful. ;; ;; (put 'newline-and-indent 'pending-delete t)
--- a/lisp/packages/supercite.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/packages/supercite.el Mon Aug 13 09:41:43 2007 +0200 @@ -1052,10 +1052,10 @@ (let ((bos 0) (eos (1- (length namestring)))) (while (and (<= bos eos) - (memq (aref namestring bos) '(32 ?\t))) + (memq (aref namestring bos) '(?\ ?\t))) (setq bos (1+ bos))) (while (and (> eos bos) - (memq (aref namestring eos) '(32 ?\t))) + (memq (aref namestring eos) '(?\ ?\t))) (setq eos (1- eos))) (substring namestring bos (1+ eos))))))
--- a/lisp/prim/auto-autoloads.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/auto-autoloads.el Mon Aug 13 09:41:43 2007 +0200 @@ -2839,6 +2839,86 @@ ;;;*** +;;;### (autoloads (encode-hz-buffer encode-hz-region decode-hz-buffer decode-hz-region) "china-util" "language/china-util.el") + +(autoload 'decode-hz-region "china-util" "\ +Decode HZ/ZW encoded text in the current region. +Return the length of resulting text." t nil) + +(autoload 'decode-hz-buffer "china-util" "\ +Decode HZ/ZW encoded text in the current buffer." t nil) + +(autoload 'encode-hz-region "china-util" "\ +Encode the text in the current region to HZ. +Return the length of resulting text." t nil) + +(autoload 'encode-hz-buffer "china-util" "\ +Encode the text in the current buffer to HZ." t nil) + +;;;*** + +;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region japanese-hiragana-region japanese-katakana-region japanese-zenkaku japanese-hankaku japanese-hiragana japanese-katakana) "japan-util" "language/japan-util.el") + +(autoload 'japanese-katakana "japan-util" "\ +Convert argument to Katakana and return that. +The argument may be a character or string. The result has the same type. +The argument object is not altered--the value is a copy. +Optional argument HANKAKU t means to convert to `hankaku' Katakana + (`japanese-jisx0201-kana'), in which case return value + may be a string even if OBJ is a character if two Katakanas are + necessary to represent OBJ." nil nil) + +(autoload 'japanese-hiragana "japan-util" "\ +Convert argument to Hiragana and return that. +The argument may be a character or string. The result has the same type. +The argument object is not altered--the value is a copy." nil nil) + +(autoload 'japanese-hankaku "japan-util" "\ +Convert argument to `hankaku' and return that. +The argument may be a character or string. The result has the same type. +The argument object is not altered--the value is a copy. +Optional argument ASCII-ONLY non-nil means to return only ASCII character." nil nil) + +(autoload 'japanese-zenkaku "japan-util" "\ +Convert argument to `zenkaku' and return that. +The argument may be a character or string. The result has the same type. +The argument object is not altered--the value is a copy." nil nil) + +(autoload 'japanese-katakana-region "japan-util" "\ +Convert Japanese `hiragana' chars in the region to `katakana' chars. +Optional argument HANKAKU t means to convert to `hankaku katakana' character +of which charset is `japanese-jisx0201-kana'." t nil) + +(autoload 'japanese-hiragana-region "japan-util" "\ +Convert Japanese `katakana' chars in the region to `hiragana' chars." t nil) + +(autoload 'japanese-hankaku-region "japan-util" "\ +Convert Japanese `zenkaku' chars in the region to `hankaku' chars. +`Zenkaku' chars belong to `japanese-jisx0208' +`Hankaku' chars belong to `ascii' or `japanese-jisx0201-kana'. +Optional argument ASCII-ONLY non-nil means to convert only to ASCII char." t nil) + +(autoload 'japanese-zenkaku-region "japan-util" "\ +Convert hankaku' chars in the region to Japanese `zenkaku' chars. +`Zenkaku' chars belong to `japanese-jisx0208' +`Hankaku' chars belong to `ascii' or `japanese-jisx0201-kana'." t nil) + +(autoload 'read-hiragana-string "japan-util" "\ +Read a Hiragana string from the minibuffer, prompting with string PROMPT. +If non-nil, second arg INITIAL-INPUT is a string to insert before reading." nil nil) + +;;;*** + +;;;### (autoloads (thai-compose-buffer thai-compose-region) "thai-util" "language/thai-util.el") + +(autoload 'thai-compose-region "thai-util" "\ +Compose Thai characters in the region." t nil) + +(autoload 'thai-compose-buffer "thai-util" "\ +Compose Thai characters in the current buffer." t nil) + +;;;*** + ;;;### (autoloads (quail-use-package) "quail" "leim/quail.el") (autoload 'quail-use-package "quail" "\ @@ -3838,7 +3918,7 @@ ;;;### (autoloads (ksh-mode) "ksh-mode" "modes/ksh-mode.el") (autoload 'ksh-mode "ksh-mode" "\ -ksh-mode $Revision: 1.31 $ - Major mode for editing (Bourne, Korn or Bourne again) +ksh-mode $Revision: 1.32 $ - Major mode for editing (Bourne, Korn or Bourne again) shell scripts. Special key bindings and commands: \\{ksh-mode-map} @@ -5180,7 +5260,7 @@ (autoload 'vhdl-mode "vhdl-mode" "\ Major mode for editing VHDL code. -vhdl-mode $Revision: 1.31 $ +vhdl-mode $Revision: 1.32 $ To submit a problem report, enter `\\[vhdl-submit-bug-report]' from a vhdl-mode buffer. This automatically sets up a mail buffer with version information already added. You just need to add a description of the @@ -5200,7 +5280,7 @@ ;;;### (autoloads (auto-view-mode view-major-mode view-mode view-minor-mode view-buffer-other-window view-file-other-window view-buffer view-file) "view-less" "modes/view-less.el") -(defvar view-minor-mode-map (let ((map (make-keymap))) (set-keymap-name map 'view-minor-mode-map) (suppress-keymap map) (define-key map "-" 'negative-argument) (define-key map " " 'scroll-up) (define-key map "f" 'scroll-up) (define-key map "b" 'scroll-down) (define-key map 'backspace 'scroll-down) (define-key map " " 'view-scroll-lines-up) (define-key map "\n" 'view-scroll-lines-up) (define-key map "e" 'view-scroll-lines-up) (define-key map "j" 'view-scroll-lines-up) (define-key map "y" 'view-scroll-lines-down) (define-key map "k" 'view-scroll-lines-down) (define-key map "d" 'view-scroll-some-lines-up) (define-key map "u" 'view-scroll-some-lines-down) (define-key map "r" 'recenter) (define-key map "t" 'toggle-truncate-lines) (define-key map "N" 'view-buffer) (define-key map "E" 'view-file) (define-key map "P" 'view-buffer) (define-key map "!" 'shell-command) (define-key map "|" 'shell-command-on-region) (define-key map "=" 'what-line) (define-key map "?" 'view-search-backward) (define-key map "h" 'view-mode-describe) (define-key map "s" 'view-repeat-search) (define-key map "n" 'view-repeat-search) (define-key map "/" 'view-search-forward) (define-key map "\\" 'view-search-backward) (define-key map "g" 'view-goto-line) (define-key map "G" 'view-last-windowful) (define-key map "%" 'view-goto-percent) (define-key map "p" 'view-goto-percent) (define-key map "m" 'point-to-register) (define-key map "'" 'register-to-point) (define-key map "C" 'view-cleanup-backspaces) (define-key map "" 'view-quit) (define-key map "" 'view-quit-toggle-ro) (define-key map "q" 'view-quit) map)) +(defvar view-minor-mode-map (let ((map (make-keymap))) (set-keymap-name map 'view-minor-mode-map) (suppress-keymap map) (define-key map "-" 'negative-argument) (define-key map " " 'scroll-up) (define-key map "f" 'scroll-up) (define-key map "b" 'scroll-down) (define-key map 'backspace 'scroll-down) (define-key map 'delete 'scroll-down) (define-key map " " 'view-scroll-lines-up) (define-key map "\n" 'view-scroll-lines-up) (define-key map "e" 'view-scroll-lines-up) (define-key map "j" 'view-scroll-lines-up) (define-key map "y" 'view-scroll-lines-down) (define-key map "k" 'view-scroll-lines-down) (define-key map "d" 'view-scroll-some-lines-up) (define-key map "u" 'view-scroll-some-lines-down) (define-key map "r" 'recenter) (define-key map "t" 'toggle-truncate-lines) (define-key map "N" 'view-buffer) (define-key map "E" 'view-file) (define-key map "P" 'view-buffer) (define-key map "!" 'shell-command) (define-key map "|" 'shell-command-on-region) (define-key map "=" 'what-line) (define-key map "?" 'view-search-backward) (define-key map "h" 'view-mode-describe) (define-key map "s" 'view-repeat-search) (define-key map "n" 'view-repeat-search) (define-key map "/" 'view-search-forward) (define-key map "\\" 'view-search-backward) (define-key map "g" 'view-goto-line) (define-key map "G" 'view-last-windowful) (define-key map "%" 'view-goto-percent) (define-key map "p" 'view-goto-percent) (define-key map "m" 'point-to-register) (define-key map "'" 'register-to-point) (define-key map "C" 'view-cleanup-backspaces) (define-key map "" 'view-quit) (define-key map "" 'view-quit-toggle-ro) (define-key map "q" 'view-quit) map)) (defvar view-mode-map (let ((map (copy-keymap view-minor-mode-map))) (set-keymap-name map 'view-mode-map) map))
--- a/lisp/prim/case-table.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/case-table.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,8 +1,11 @@ ;;; case-table.el --- code to extend the character set and support case tables. + +;; Copyright (C) 1988, 1993, 1997 Free Software Foundation, Inc. + +;; Author: Howard Gayle +;; Maintainer: XEmacs Development Team ;; Keywords: i18n -;; Copyright (C) 1988, 1993 Free Software Foundation, Inc. - ;; This file is part of XEmacs. ;; XEmacs is free software; you can redistribute it and/or modify it @@ -22,6 +25,8 @@ ;;; Synched up with: Not synched with FSF. +;;; Commentary: + ;; Written by: ;; TN/ETX/TX/UMG Howard Gayle UUCP : seismo!enea!erix!howard ;; Telefonaktiebolaget L M Ericsson Phone: +46 8 719 55 65 @@ -29,6 +34,8 @@ ;; S-126 25 Stockholm FAX : +46 8 719 64 82 ;; Sweden +;;; Code: + ;;;###autoload (defun describe-buffer-case-table () "Describe the case table of the current buffer." @@ -66,7 +73,7 @@ (progn (setq count (min (1- (point)) (- count))) (forward-char (- count)))) (while (> count 0) - (let ((ch (following-char))) + (let ((ch (char-after))) (cond ((/= (upcase ch) ch) (insert (upcase ch)) (delete-char 1)) @@ -115,3 +122,5 @@ (modify-syntax-entry c syntax text-mode-syntax-table)) (provide 'case-table) + +;;; case-table.el ends here
--- a/lisp/prim/debug.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/debug.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,6 +1,6 @@ ;;; debug.el --- debuggers and related commands for XEmacs -;; Copyright (C) 1985, 1986, 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985-6, 1993-4, 1997 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keyword: lisp, tools @@ -26,7 +26,10 @@ ;;; Commentary: -;; NB: There are lots of formatting changes in the XEmacs version. -sb +;; NB: There are lots of formatting changes in the XEmacs version. -slb + +;; 06/11/1997 - Converted to use char-after instead of broken +;; following-char. -slb ;; This is a major mode documented in the Emacs manual. @@ -313,7 +316,7 @@ (forward-line 1) (while (progn (forward-char 2) - (if (= (following-char) ?\() + (if (eq (char-after (point)) ?\() (forward-sexp 1) (forward-sexp 2)) (forward-line 1) @@ -328,7 +331,7 @@ (beginning-of-line) (let ((level (debugger-frame-number))) (backtrace-debug (+ level debugger-frame-offset) t)) - (if (= (following-char) ? ) + (if (eq (char-after (point)) ? ) (let ((buffer-read-only nil)) (delete-char 1) (insert ?*))) @@ -341,7 +344,7 @@ (beginning-of-line) (let ((level (debugger-frame-number))) (backtrace-debug (+ level debugger-frame-offset) nil)) - (if (= (following-char) ?*) + (if (eq (char-after (point)) ?*) (let ((buffer-read-only nil)) (delete-char 1) (insert ? )))
--- a/lisp/prim/fill.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/fill.el Mon Aug 13 09:41:43 2007 +0200 @@ -30,6 +30,8 @@ ;; 97/3/14 Jareth Hein (jhod@po.iijnet.or.jp) added functions for kinsoku (asian text ;; line break processing) +;; 97/06/11 Steve Baur (steve@altair.xemacs.org) converted broken +;; following-char/preceding-char calls to char-after/char-before. ;;; Code: @@ -110,7 +112,7 @@ (defun fill-end-of-sentence-p () (save-excursion (skip-chars-backward " ]})\"'") - (memq (preceding-char) '(?. ?? ?!)))) + (memq (char-before (point)) '(?. ?? ?!)))) (defun current-fill-column () "Return the fill-column to use for this line. @@ -164,10 +166,10 @@ (save-excursion (skip-chars-backward " ]})\"'") (cond ((and sentence-end-double-space - (memq (preceding-char) '(?. ?? ?!))) 2) + (memq (char-before (point)) '(?. ?? ?!))) 2) ((and colon-double-space - (= (preceding-char) ?:)) 2) - ((char-equal (preceding-char) ?\n) 0) + (eq (char-before (point)) ?:)) 2) + ((char-equal (char-before (point)) ?\n) 0) (t 1)))) (match-end 0))) ;; Make sure sentences ending at end of line get an extra space. @@ -383,7 +385,7 @@ (forward-char -1)) (prog2 ; check previous char. (forward-char -1) - (or (eq (following-char) ?\ ) + (or (eq (char-after (point)) ?\ ) (looking-at word-across-newline)) (forward-char))) nil @@ -425,8 +427,8 @@ ;; avoid putting it at the end of the line. (if sentence-end-double-space (while (and (> (point) (+ linebeg 2)) - (eq (preceding-char) ?\ ) - (not (eq (following-char) ?\ )) + (eq (char-before (point)) ?\ ) + (not (eq (char-after (point)) ?\ )) (eq (char-after (- (point) 2)) ?\.)) (forward-char -2) ;; 97/3/14 jhod: Kinsoku @@ -463,7 +465,7 @@ ;; end patch (setq first nil))) ;; Normally, move back over the single space between the words. - (if (eq (preceding-char) ?\ ) + (if (eq (char-before (point)) ?\ ) (forward-char -1))) ;; If the left margin and fill prefix by themselves ;; pass the fill-column, keep at least one word. @@ -510,7 +512,7 @@ ;; (4) '.' | SPC + SPC --> '.' + NL ;; (5) | SPC* --> NL (let ((start (point)) ; 92.6.30 by K.Handa - (ch (following-char))) + (ch (char-after (point)))) (if (and (= ch ? ) (progn ; not case (0) -- 92.6.30 by K.Handa (skip-chars-forward " \t") @@ -530,7 +532,7 @@ (progn ; case (3) (goto-char (1+ start)) (and (not (eobp)) - (/= (following-char) ? ) + (not (eq (char-after (point)) ? )) (fill-end-of-sentence-p))))) ;; We should keep one SPACE before NEWLINE. (1),(2),(3) (goto-char (1+ start)) @@ -620,7 +622,7 @@ (progn (while (and (setq end (text-property-any (point) (point-max) 'hard t)) - (not (= ?\n (char-after end))) + (not (eq ?\n (char-after end))) (not (= end (point-max)))) (goto-char (1+ end))) (setq end (if end (min (point-max) (1+ end)) (point-max)))
--- a/lisp/prim/help.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/help.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,4 +1,5 @@ ;;; help.el --- help commands for XEmacs. + ;; Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc. ;; Maintainer: FSF @@ -28,6 +29,9 @@ ;; This code implements XEmacs's on-line help system, the one invoked by ;;`M-x help-for-help'. +;; 06/11/1997 -- Converted to use char-after instead of broken +;; following-char. -slb + ;;; Code: ;#### FSFmacs @@ -181,6 +185,7 @@ ) (define-key help-mode-map "q" 'help-mode-quit) +(define-key help-mode-map 'delete 'scroll-down) (defun help-mode-quit () "Exits from help mode, possibly restoring the previous window configuration." @@ -755,8 +760,8 @@ (save-excursion (set-syntax-table emacs-lisp-mode-syntax-table) (or (not (zerop (skip-syntax-backward "_w"))) - (eq (char-syntax (following-char)) ?w) - (eq (char-syntax (following-char)) ?_) + (eq (char-syntax (char-after (point))) ?w) + (eq (char-syntax (char-after (point))) ?_) (forward-sexp -1)) (skip-chars-forward "`'") (let ((obj (read (current-buffer)))) @@ -991,8 +996,8 @@ (save-excursion (set-syntax-table emacs-lisp-mode-syntax-table) (or (not (zerop (skip-syntax-backward "_w"))) - (eq (char-syntax (following-char)) ?w) - (eq (char-syntax (following-char)) ?_) + (eq (char-syntax (char-after (point))) ?w) + (eq (char-syntax (char-after (point))) ?_) (forward-sexp -1)) (skip-chars-forward "'") (let ((obj (read (current-buffer))))
--- a/lisp/prim/indent.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/indent.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,6 +1,6 @@ ;;; indent.el --- indentation commands for XEmacs -;; Copyright (C) 1985, 1992, 1993, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1992, 1993, 1995, 1997 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: lisp languages tools @@ -29,6 +29,8 @@ ;; Commands for making and changing indentation in text. These are ;; described in the XEmacs Reference Manual. +;; 06/11/1997 - Convert (preceding|following)-char to char-(before|after) -slb + ;;; Code: (defvar standard-indent 4 "\ @@ -433,7 +435,7 @@ The variable `tab-stop-list' is a list of columns at which there are tab stops. Use \\[edit-tab-stops] to edit them interactively." (interactive) - (and abbrev-mode (= (char-syntax (preceding-char)) ?w) + (and abbrev-mode (eq (char-syntax (char-before (point))) ?w) (expand-abbrev)) (let ((tabs tab-stop-list)) (while (and tabs (>= (current-column) (car tabs))) @@ -460,11 +462,11 @@ (goto-char before) ;; If we just added a tab, or moved over one, ;; delete any superfluous spaces before the old point. - (if (and (eq (preceding-char) ?\ ) - (eq (following-char) ?\t)) + (if (and (eq (char-before (point)) ?\ ) + (eq (char-after (point)) ?\t)) (let ((tabend (* (/ (current-column) tab-width) tab-width))) (while (and (> (current-column) tabend) - (eq (preceding-char) ?\ )) + (eq (char-before (point)) ?\ )) (forward-char -1)) (delete-region (point) before))))))))
--- a/lisp/prim/keydefs.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/keydefs.el Mon Aug 13 09:41:43 2007 +0200 @@ -95,7 +95,9 @@ (define-key global-map "\C-e" 'end-of-line) (define-key global-map "\C-f" 'forward-char) (define-key global-map "\C-d" 'delete-char) -(define-key global-map 'delete 'backspace-or-delete) +(define-key global-map 'delete 'backward-or-forward-delete-char) +(define-key global-map '(meta delete) 'backward-or-forward-kill-word) +(define-key global-map [(control x) (delete)] 'backward-or-forward-kill-sentence) ;; FSFmacs files.el @@ -271,7 +273,6 @@ (define-key global-map "\M-f" 'forward-word) (define-key global-map "\M-b" 'backward-word) (define-key global-map "\M-d" 'kill-word) -;;(define-key global-map "\M-\177" 'backward-kill-word) (define-key global-map "\M-<" 'beginning-of-buffer) (define-key global-map "\M->" 'end-of-buffer) @@ -293,7 +294,8 @@ (define-key global-map "\M-\)" 'move-past-close-and-reindent) (define-key global-map "\M-\t" 'lisp-complete-symbol) -(define-key global-map '(control meta delete) 'backward-kill-sexp) +(define-key global-map '(control meta backspace) 'backward-kill-sexp) +(define-key global-map '(control meta delete) 'backward-or-forward-kill-sexp) (define-key global-map "\C-x/" 'point-to-register)
--- a/lisp/prim/lisp.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/lisp.el Mon Aug 13 09:41:43 2007 +0200 @@ -28,6 +28,9 @@ ;; Lisp editing commands to go with Lisp major mode. +;; 06/11/1997 - Use char-(after|before) instead of +;; (following|preceding)-char. -slb + ;;; Code: ;; Note that this variable is used by non-lisp modes too. @@ -257,7 +260,7 @@ ((< arg 0) (forward-sexp arg) (setq arg (- arg)))) (and parens-require-spaces (not (bobp)) - (memq (char-syntax (preceding-char)) '(?w ?_ ?\) )) + (memq (char-syntax (char-before (point))) '(?w ?_ ?\) )) (insert " ")) (insert ?\() (save-excursion @@ -265,7 +268,7 @@ (insert ?\)) (and parens-require-spaces (not (eobp)) - (memq (char-syntax (following-char)) '(?w ?_ ?\( )) + (memq (char-syntax (char-after (point))) '(?w ?_ ?\( )) (insert " ")))) (defun move-past-close-and-reindent () @@ -298,7 +301,7 @@ (if emacs-lisp-mode-syntax-table (set-syntax-table emacs-lisp-mode-syntax-table)) (backward-sexp 1) - (while (= (char-syntax (following-char)) ?\') + (while (eq (char-syntax (char-after (point))) ?\') (forward-char 1)) (point)) (set-syntax-table buffer-syntax)))
--- a/lisp/prim/minibuf.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/minibuf.el Mon Aug 13 09:41:43 2007 +0200 @@ -33,6 +33,9 @@ ;; Written by Richard Mlynarik 2-Oct-92 +;; 06/11/1997 - Use char-(after|before) instead of +;; (following|preceding)-char. -slb + ;;; Code: (defgroup minibuffer nil @@ -194,7 +197,7 @@ ;; by Stig@hackvan.com (interactive) (and minibuffer-electric-file-name-behavior - (eq ?/ (preceding-char)) + (eq ?/ (char-before (point))) (not (eq (point) (1+ (point-min)))) ; permit `//hostname/path/to/file' (not (eq ?: (char-after (- (point) 2)))) ; permit `http://url/goes/here' (delete-region (point-min) (point))) @@ -203,7 +206,7 @@ (defun minibuffer-electric-tilde () (interactive) (and minibuffer-electric-file-name-behavior - (eq ?/ (preceding-char)) + (eq ?/ (char-before (point))) ;; permit URL's with //, for e.g. http://hostname/~user (not (save-excursion (search-backward "//" nil t))) (delete-region (point-min) (point)))
--- a/lisp/prim/misc.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/misc.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,6 +1,6 @@ ;;; misc.el --- miscellaneous functions for XEmacs -;; Copyright (C) 1989 Free Software Foundation, Inc. +;; Copyright (C) 1989, 1997 Free Software Foundation, Inc. ;; Maintainer: FSF @@ -23,6 +23,9 @@ ;;; Synched up with: FSF 19.34. +;; 06/11/1997 - Use char-(after|before) instead of +;; (following|preceding)-char. -slb + ;;; Code: (defun copy-from-above-command (&optional arg) @@ -44,7 +47,7 @@ ;; If current column winds up in middle of a tab, ;; copy appropriate number of "virtual" space chars. (if (< cc (current-column)) - (if (= (preceding-char) ?\t) + (if (eq (char-before (point)) ?\t) (progn (setq string (make-string (min n (- (current-column) cc)) ?\ )) (setq n (- n (min n (- (current-column) cc)))))
--- a/lisp/prim/obsolete.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/obsolete.el Mon Aug 13 09:41:43 2007 +0200 @@ -615,6 +615,6 @@ ;; Two loser functions which shouldn't be used. (make-obsolete 'following-char 'char-after) -(make-obsolete 'preceding-char 'char-after) +(make-obsolete 'preceding-char 'char-before) ;;; obsolete.el ends here
--- a/lisp/prim/paragraphs.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/paragraphs.el Mon Aug 13 09:41:43 2007 +0200 @@ -1,6 +1,6 @@ ;;; paragraphs.el --- paragraph and sentence parsing. -;; Copyright (C) 1985, 86, 87, 91, 94, 95 Free Software Foundation, Inc. +;; Copyright (C) 1985, 86, 87, 91, 94, 95, 97 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp @@ -29,6 +29,9 @@ ;; This package provides the paragraph-oriented commands documented in the ;; XEmacs Reference Manual. +;; 06/11/1997 - Use char-(after|before) instead of +;; (following|preceding)-char. -slb + ;;; Code: (defvar use-hard-newlines nil @@ -283,7 +286,7 @@ (defun end-of-paragraph-text () (let ((opoint (point))) (forward-paragraph 1) - (if (eq (preceding-char) ?\n) (forward-char -1)) + (if (eq (char-before (point)) ?\n) (forward-char -1)) (if (<= (point) opoint) (progn (forward-char 1)
--- a/lisp/prim/simple.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/simple.el Mon Aug 13 09:41:43 2007 +0200 @@ -57,6 +57,9 @@ ;; Mule-2.3, and could probably use some feature additions (like additional wrap ;; styles, etc) +;; 97/06/11 Steve Baur (steve@altair.xemacs.org) Convert use of +;; (preceding|following)-char to char-(after|before). + ;;; Code: (defgroup editing-basics nil @@ -204,7 +207,7 @@ (interactive "*P") (beginning-of-line) (if arg (forward-line 1)) - (if (eq (preceding-char) ?\n) + (if (eq (char-before (point)) ?\n) (progn (delete-region (point) (1- (point))) ;; If the second line started with the fill prefix, @@ -241,7 +244,7 @@ (if abbrev-mode ; XEmacs (expand-abbrev)) (skip-chars-backward " \t") - (if (= (following-char) ? ) + (if (eq (char-after (point)) ? ) ; XEmacs (forward-char 1) (insert ? )) (delete-region (point) (progn (skip-chars-forward " \t") (point)))) @@ -339,7 +342,7 @@ (let ((count arg)) (save-excursion (while (and (> count 0) (not (bobp))) - (if (= (preceding-char) ?\t) + (if (eq (char-before (point)) ?\t) ; XEmacs (let ((col (current-column))) (forward-char -1) (setq col (- col (current-column))) @@ -353,34 +356,63 @@ (and overwrite-mode (not (eolp)) (save-excursion (insert-char ?\ arg)))) -(defcustom delete-erases-forward nil +(defcustom delete-key-deletes-forward nil "If non-nil, the DEL key will erase one character forwards. If nil, the DEL key will erase one character backwards." :type 'boolean :group 'editing-basics) -(defcustom backspace-or-delete-hook nil - "Hook that is run prior to executing the backspace-or-delete function. -Return a non-nil value to indicate that the editing chore has been -handled and the backspace-or-delete function will exit without doing -anything else." - :type 'hook) - -(defun backspace-or-delete (arg) +(defun backward-or-forward-delete-char (arg) "Delete either one character backwards or one character forwards. -Controlled by the state of `delete-erases-forward' and whether the +Controlled by the state of `delete-key-deletes-forward' and whether the +BackSpace keysym even exists on your keyboard. If you don't have a +BackSpace keysym, the delete key should always delete one character +backwards." + (interactive "*p") + (if (and delete-key-deletes-forward + (or (eq 'tty (device-type)) + (x-keysym-on-keyboard-p "BackSpace"))) + (delete-char arg) + (delete-backward-char arg))) + +(defun backward-or-forward-kill-word (arg) + "Delete either one word backwards or one word forwards. +Controlled by the state of `delete-key-deletes-forward' and whether the +BackSpace keysym even exists on your keyboard. If you don't have a +BackSpace keysym, the delete key should always delete one character +backwards." + (interactive "*p") + (if (and delete-key-deletes-forward + (or (eq 'tty (device-type)) + (x-keysym-on-keyboard-p "BackSpace"))) + (kill-word arg) + (backward-kill-word arg))) + +(defun backward-or-forward-kill-sentence (arg) + "Delete either one sentence backwards or one sentence forwards. +Controlled by the state of `delete-key-deletes-forward' and whether the BackSpace keysym even exists on your keyboard. If you don't have a BackSpace keysym, the delete key should always delete one character backwards." (interactive "*P") - (unless (run-hook-with-args 'backspace-or-delete-hook arg) - (if zmacs-region-active-p - (kill-region (point) (mark)) - (if (and delete-erases-forward - (or (eq 'tty (device-type)) - (x-keysym-on-keyboard-p "BackSpace"))) - (delete-char (prefix-numeric-value arg)) - (delete-backward-char (prefix-numeric-value arg)))))) + (if (and delete-key-deletes-forward + (or (eq 'tty (device-type)) + (x-keysym-on-keyboard-p "BackSpace"))) + (kill-sentence arg) + (backward-kill-sentence (prefix-numeric-value arg)))) + +(defun backward-or-forward-kill-sexp (arg) + "Delete either one sexpr backwards or one sexpr forwards. +Controlled by the state of `delete-key-deletes-forward' and whether the +BackSpace keysym even exists on your keyboard. If you don't have a +BackSpace keysym, the delete key should always delete one character +backwards." + (interactive "*p") + (if (and delete-key-deletes-forward + (or (eq 'tty (device-type)) + (x-keysym-on-keyboard-p "BackSpace"))) + (kill-sexp arg) + (backward-kill-sexp arg))) (defun zap-to-char (arg char) "Kill up to and including ARG'th occurrence of CHAR. @@ -586,7 +618,7 @@ "Print info on cursor position (on screen and within buffer)." ;; XEmacs change (interactive "_") - (let* ((char (following-char)) + (let* ((char (char-after (point))) ; XEmacs (beg (point-min)) (end (point-max)) (pos (point)) @@ -2354,7 +2386,7 @@ (= (point) fill-point)) ;; 97/3/14 jhod: Kinsoku processing ;(indent-new-comment-line) - (let ((spacep (memq (preceding-char) '(?\ ?\t)))) + (let ((spacep (memq (char-before (point)) '(?\ ?\t)))) (indent-new-comment-line) ;; if user type space explicitly, leave SPC ;; even if there is no WAN. @@ -2363,7 +2395,7 @@ (goto-char fill-point) ;; put SPC except that there is SPC ;; already or there is sentence end. - (or (memq (following-char) '(?\ ?\t)) + (or (memq (char-after (point)) '(?\ ?\t)) (fill-end-of-sentence-p) (insert ?\ ))))) (save-excursion
--- a/lisp/prim/subr.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/subr.el Mon Aug 13 09:41:43 2007 +0200 @@ -307,8 +307,10 @@ newtext "")))))) (concat rtn-str (substring str start)))) -(defun split-string (string pattern) +(defun split-string (string &optional pattern) "Return a list of substrings of STRING which are separated by PATTERN." + (or pattern + (setq pattern "[ \f\t\n\r\v]+")) (let (parts (start 0)) (while (string-match pattern string start) (setq parts (cons (substring string start (match-beginning 0)) parts)
--- a/lisp/prim/syntax.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/syntax.el Mon Aug 13 09:41:43 2007 +0200 @@ -392,7 +392,7 @@ (interactive) ;alg stolen from etag.el (save-excursion - (if (not (memq (char-syntax (preceding-char)) '(?w ?_))) + (if (not (memq (char-syntax (char-before)) '(?w ?_))) (while (not (looking-at "\\sw\\|\\s_\\|\\'")) (forward-char 1))) (while (looking-at "\\sw\\|\\s_")
--- a/lisp/prim/window.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/prim/window.el Mon Aug 13 09:41:43 2007 +0200 @@ -342,4 +342,31 @@ (kill-buffer buffer)) (error "Aborted"))) +;;; New with XEmacs 20.3 +;;; Suggested by Noah Friedman, and tuned by Hrvoje Niksic. +(defun window-list (&optional minibuf all-frames device) + "Return a list of existing windows. +If the optional argument MINIBUF is non-nil, then include minibuffer +windows in the result. + +By default, only the windows in the selected frame are returned. +The optional argument ALL-FRAMES changes this behavior: +ALL-FRAMES = `visible' means include windows on all visible frames. +ALL-FRAMES = 0 means include windows on all visible and iconified frames. +ALL-FRAMES = t means include windows on all frames including invisible frames. +Anything else means restrict to the selected frame. +The optional fourth argument DEVICE further clarifies which frames to +search as specified by ALL-FRAMES. This value is only meaningful if +ALL-FRAMES is non-nil. +If nil or omitted, search only the selected device. +If a device, search frames only on that device. +If a device type, search frames only on devices of that type. +Any other non-nil value means search frames on all devices." + (let ((wins nil)) + (walk-windows (lambda (win) + (push win wins)) + minibuf all-frames device) + wins)) + + ;;; window.el ends here
--- a/lisp/tm/tm-ew-e.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/tm/tm-ew-e.el Mon Aug 13 09:41:43 2007 +0200 @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Version: $Revision: 1.2 $ +;; Version: $Revision: 1.3 $ ;; Keywords: encoded-word, MIME, multilingual, header, mail, news ;; This file is part of tm (Tools for MIME). @@ -35,7 +35,7 @@ ;;; (defconst tm-ew-e/RCS-ID - "$Id: tm-ew-e.el,v 1.2 1997/02/15 22:21:29 steve Exp $") + "$Id: tm-ew-e.el,v 1.3 1997/06/11 19:26:16 steve Exp $") (defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID)) @@ -120,7 +120,7 @@ ;;; (defun tm-eword::char-type (chr) - (if (or (= chr 32)(= chr ?\t)) + (if (or (= chr ? )(= chr ?\t)) nil (char-charset chr) )) @@ -367,7 +367,7 @@ (setq ret (tm-eword::encode-string-1 2 rwl)) (setq str (car ret)) )) - (cond ((eq special 32) + (cond ((eq special ? ) (if (string= str "(") (setq ps t) (setq dest (concat dest " ")) @@ -383,7 +383,7 @@ ) ))) (cond ((string= str " ") - (setq special 32) + (setq special ? ) ) ((string= str "(") (setq special ?\()
--- a/lisp/utils/mail-extr.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/utils/mail-extr.el Mon Aug 13 09:41:43 2007 +0200 @@ -1148,11 +1148,11 @@ (or (save-excursion (mail-extr-safe-move-sexp -1) (mail-extr-skip-whitespace-backward) - (eq ?. (preceding-char))) + (eq ?. (char-before))) (insert-before-markers (if (save-excursion (mail-extr-skip-whitespace-backward) - (eq ?. (preceding-char))) + (eq ?. (char-before))) "" ".") "uucp")) @@ -1188,7 +1188,7 @@ (mail-extr-safe-move-sexp -1) (setq domain-pos (point)) (mail-extr-skip-whitespace-backward) - (setq \.-pos (eq ?. (preceding-char)))) + (setq \.-pos (eq ?. (char-before)))) (cond ((and \.-pos ;; #### string consing (let ((s (intern-soft @@ -1530,16 +1530,16 @@ (looking-at mail-extr-full-name-suffix-pattern)) (mail-extr-skip-whitespace-backward) (setq suffix-flag (point)) - (if (eq ?, (following-char)) + (if (eq ?, (char-after)) (forward-char 1) (insert ?,)) ;; Enforce at least one space after comma - (or (eq ?\ (following-char)) + (or (eq ?\ (char-after)) (insert ?\ )) (mail-extr-skip-whitespace-forward) - (cond ((memq (following-char) '(?j ?J ?s ?S)) + (cond ((memq (char-after) '(?j ?J ?s ?S)) (capitalize-word 1) - (if (eq (following-char) ?.) + (if (eq (char-after) ?.) (forward-char 1) (insert ?.))) (t @@ -1554,26 +1554,26 @@ (setq begin-again-flag t)) ;; Check for initial last name followed by comma - ((and (eq ?, (following-char)) + ((and (eq ?, (char-after)) (eq word-count 1)) (forward-char 1) (setq last-name-comma-flag t) - (or (eq ?\ (following-char)) + (or (eq ?\ (char-after)) (insert ?\ ))) - + ;; Stop before trailing comma-separated comment ;; THIS CASE MUST BE AFTER THE PRECEDING CASES. ;; *** This case is redundant??? - ;;((eq ?, (following-char)) + ;;((eq ?, (char-after)) ;; (setq name-done-flag t)) ;; Delete parenthesized/quoted comment/nickname - ((memq (following-char) '(?\( ?\{ ?\[ ?\" ?\' ?\`)) + ((memq (char-after) '(?\( ?\{ ?\[ ?\" ?\' ?\`)) (setq cbeg (point)) (set-syntax-table mail-extr-address-text-comment-syntax-table) - (cond ((memq (following-char) '(?\' ?\`)) + (cond ((memq (char-after) '(?\' ?\`)) (or (search-forward "'" nil t - (if (eq ?\' (following-char)) 2 1)) + (if (eq ?\' (char-after)) 2 1)) (mail-extr-delete-char 1))) (t (or (mail-extr-safe-move-sexp 1) @@ -1601,7 +1601,7 @@ ;; Handle & substitution ((and (or (bobp) - (eq ?\ (preceding-char))) + (eq ?\ (char-before))) (looking-at "&\\( \\|\\'\\)")) (mail-extr-delete-char 1) (capitalize-region @@ -1616,7 +1616,7 @@ ;; Handle *Stupid* VMS date stamps ((looking-at mail-extr-stupid-vms-date-stamp-pattern) (replace-match "" t)) - + ;; Handle Chinese characters. ((looking-at mail-extr-hz-embedded-gb-encoded-chinese-pattern) (goto-char (match-end 0)) @@ -1658,28 +1658,28 @@ ;; Fixup initials ((looking-at mail-extr-initial-pattern) - (or (eq (following-char) (upcase (following-char))) + (or (eq (char-after) (upcase (char-after))) (setq lower-case-flag t)) (forward-char 1) - (if (eq ?. (following-char)) + (if (eq ?. (char-after)) (forward-char 1) (insert ?.)) - (or (eq ?\ (following-char)) + (or (eq ?\ (char-after)) (insert ?\ )) (setq word-found-flag t)) - + ;; Handle BITNET LISTSERV list names. ((and (eq word-count 0) (looking-at mail-extr-listserv-list-name-pattern)) (narrow-to-region (match-beginning 1) (match-end 1)) (setq word-found-flag t) (setq name-done-flag t)) - + ;; Regular name words ((looking-at mail-extr-name-pattern) (setq name-beg (point)) (setq name-end (match-end 0)) - + ;; Certain words will be dropped if they are at the end. (and (>= word-count 2) (not lower-case-flag) @@ -1746,7 +1746,7 @@ (search-forward ",") (setq name-end (1- (point))) (goto-char (or suffix-flag (point-max))) - (or (eq ?\ (preceding-char)) + (or (eq ?\ (char-before)) (insert ?\ )) (insert-buffer-substring (current-buffer) (point-min) name-end) (goto-char name-end) @@ -1757,7 +1757,7 @@ ;; *** This is probably completly unneeded now. ;;(goto-char (point-max)) ;;(skip-chars-backward mail-extr-non-end-name-chars) - ;;(if (eq ?. (following-char)) + ;;(if (eq ?. (char-after)) ;; (forward-char 1)) ;;(narrow-to-region (point) ;; (progn
--- a/lisp/utils/passwd.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/utils/passwd.el Mon Aug 13 09:41:43 2007 +0200 @@ -69,7 +69,7 @@ (while (< i 127) (aset s 0 i) - (or (and (boundp 'meta-prefix-char) (eq i meta-prefix-char)) + (or (and (boundp 'meta-prefix-char) (eq (int-char i) meta-prefix-char)) (define-key map s 'self-insert-command)) (setq i (1+ i)))
--- a/lisp/utils/uniquify.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/utils/uniquify.el Mon Aug 13 09:41:43 2007 +0200 @@ -359,7 +359,7 @@ ;;; Hooks from the rest of Emacs (cond - ((string-match "^19" emacs-version) + ((string-match "^\\(19\\|20\\)" emacs-version) ;; Emacs 19 (Emacs or XEmacs) ;; The logical place to put all this code is in generate-new-buffer-name.
--- a/lisp/version.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/version.el Mon Aug 13 09:41:43 2007 +0200 @@ -25,11 +25,11 @@ (defconst emacs-version "20.3" "Version numbers of this version of XEmacs.") -(defconst xemacs-codename "Zagreb" +(defconst xemacs-codename "Moscow" "Release nickname, primarily useful for trial prereleases. Warning, this variable did not exist in XEmacs versions prior to 20.3") -(defconst xemacs-betaname "(beta5)" +(defconst xemacs-betaname "(beta6)" "Non-nil when this is a test (beta) version of XEmacs. Warning, this variable did not exist in XEmacs versions prior to 20.3")
--- a/lisp/x11/x-compose.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/x11/x-compose.el Mon Aug 13 09:41:43 2007 +0200 @@ -4,6 +4,8 @@ ;; Author: Jamie Zawinski <jwz@netscape.com> ;; Maintainer: XEmacs Development Team +;; Changed: 11 Jun 1997 by Heiko Muenkel <muenkel@tnt.uni-hannover.de> +;; The degree sign couldn't be inserted with the old version. ;; Keywords: i18n ;; This file is part of XEmacs. @@ -114,6 +116,13 @@ ;;;this doesn't work yet###autoload (define-key global-map [multi-key] 'compose-key) +;; The following is necessary, because one can't rebind [degree] +;; and use it to insert the degree sign! +(defun compose-insert-degree () + "Inserts a degree sign." + (interactive) + (insert ?\260)) + ;; The "Dead" keys: ;; (define-key global-map [acute] compose-acute-map) @@ -339,7 +348,7 @@ (define-key compose-circumflex-map "!" [brokenbar]) (define-key compose-circumflex-map "-" [macron]) (define-key compose-circumflex-map "_" [macron]) -(define-key compose-circumflex-map "0" [degree]) +(define-key compose-circumflex-map "0" 'compose-insert-degree) (define-key compose-circumflex-map "1" [onesuperior]) (define-key compose-circumflex-map "2" [twosuperior]) (define-key compose-circumflex-map "3" [threesuperior]) @@ -367,7 +376,7 @@ (set-keymap-name compose-ring-map 'compose-ring-map) (set-keymap-default-binding compose-ring-map 'self-insert-command) -(define-key compose-ring-map " " [degree]) +(define-key compose-ring-map " " 'compose-insert-degree) (define-key compose-ring-map "A" [Aring]) (define-key compose-ring-map "a" [aring]) @@ -383,7 +392,7 @@ (define-key compose-map " ~" "~") (define-key compose-map " " [nobreakspace]) (define-key compose-map " \"" [diaeresis]) -(define-key compose-map " *" [degree]) +(define-key compose-map " *" 'compose-insert-degree) (define-key compose-map "!!" [exclamdown]) (define-key compose-map "!^" [brokenbar]) @@ -437,7 +446,7 @@ (define-key compose-map "0c" [copyright]) (define-key compose-map "0R" [registered]) (define-key compose-map "0r" [registered]) -(define-key compose-map "0^" [degree]) +(define-key compose-map "0^" 'compose-insert-degree) (define-key compose-map "1^" [onesuperior]) (define-key compose-map "14" [onequarter])
--- a/lwlib/Makefile.in.in Mon Aug 13 09:40:48 2007 +0200 +++ b/lwlib/Makefile.in.in Mon Aug 13 09:41:43 2007 +0200 @@ -31,6 +31,10 @@ #undef i386 #undef linux +/* For performance and consistency, no built-in rules */ +.SUFFIXES: +.SUFFIXES: .c .o .i .h + srcdir=@srcdir@ SHELL=/bin/sh @@ -66,11 +70,9 @@ EZ_SUBDIR = ez_dialog #endif -lwlib_objs=@lwlib_objs@ +objs = lwlib.o lwlib-utils.o lwlib-config.o $(EZ_OBJS) @lwlib_objs@ -OBJS = lwlib.o lwlib-utils.o lwlib-config.o $(EZ_OBJS) ${lwlib_objs} - -all:: $(EZ_SUBDIR) liblw.a +all: $(EZ_SUBDIR) liblw.a c_switch_general=@c_switch_general@ c_switch_window_system=@c_switch_window_system@ @@ -82,13 +84,20 @@ ld_libs_window_system=@ld_libs_window_system@ ld_libs_all=@ld_libs_all@ +cppflags = $(CPPFLAGS) -I. $(c_switch_all) $(ENERGIZEP) +cflags = $(CFLAGS) $(cppflags) + ALL_CFLAGS= $(CFLAGS) $(CPPFLAGS) -I. $(c_switch_all) $(ENERGIZEP) .c.o: - $(CC) -c $(ALL_CFLAGS) $< + $(CC) -c $(cflags) $< -liblw.a: $(OBJS) +/* Create preprocessor output (debugging purposes only) */ +.c.i: + $(CC) -P $(cppflags) $< + +liblw.a: $(objs) $(RM) $@ - $(AR) $@ $(OBJS) + $(AR) $@ $(objs) -test -n "$(RANLIB)" && $(RANLIB) $@ #ifdef ENERGIZE @@ -96,6 +105,7 @@ cd energize && $(MAKE) $(MFLAGS) #endif +.PHONY : mostlyclean clean distclean realclean extraclean FRC.mostlyclean: mostlyclean: FRC.mostlyclean rm -f liblw.a liblw_pure_*.a *.o
--- a/lwlib/config.h.in Mon Aug 13 09:40:48 2007 +0200 +++ b/lwlib/config.h.in Mon Aug 13 09:41:43 2007 +0200 @@ -52,6 +52,9 @@ #define FUNCPROTO 15 #endif +/* Required for most XFree86 systems */ +#undef NARROWPROTO + /* widget feature definitions */ #undef LWLIB_MENUBARS_LUCID #undef LWLIB_MENUBARS_MOTIF
--- a/src/ChangeLog Mon Aug 13 09:40:48 2007 +0200 +++ b/src/ChangeLog Mon Aug 13 09:41:43 2007 +0200 @@ -1,3 +1,44 @@ +1997-06-11 Steven L Baur <steve@altair.xemacs.org> + + * syntax.c (Fchar_syntax): Handle case of being passed nil. + + * data.c (eq_with_ebola_notice): Add more legitimate places in the + bytecompiler that should not get Ebola notices. + +Tue Jun 10 00:34:40 1997 Kyle Jones <kyle_jones@wonderworks.com> + + * process.c (status_notify): + Use record_unwind_protect and save_excursion_restore to + handle the point and buffer restoration. Cleaner. Doesn't + crash the editor if before/after-change-functions change + things behind our back. + +1997-06-10 Steven L Baur <steve@altair.xemacs.org> + + * data.c (vars_of_data): Set Ebola warning backtrace limit to 16. + (eq_with_ebola_notice): Bypass Ebola warnings for special + bytecompiler functions where they are 100% spurioius. + +1997-06-11 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * Makefile.in.in: Use lisp/mule/language/misc-lang.el instead of + lisp/mule/ipa-hooks.el. + +1997-06-10 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * Makefile.in.in: Use lisp/mule/language/thai.elc instead of + lisp/mule/thai-hooks.elc. + +1997-06-09 MORIOKA Tomohiko <morioka@jaist.ac.jp> + + * Makefile.in.in: Use lisp/mule/language/chinese.el, + lisp/mule/language/cyrillic.el, lisp/mule/language/european.el, + lisp/mule/language/greek.el, lisp/mule/language/japanese.el and + lisp/mule/language/korean.el instead of + lisp/mule/chinese-hooks.el, lisp/mule/cyrillic-hooks.el, + lisp/mule/european-hooks.el, lisp/mule/greek-hooks.el, + lisp/mule/japanese-hooks.el and lisp/mule/korean-hooks.el. + 1997-06-09 Steven L Baur <steve@altair.xemacs.org> * keymap.c: Declare Fextent_in_region_p.
--- a/src/Makefile.in.in Mon Aug 13 09:40:48 2007 +0200 +++ b/src/Makefile.in.in Mon Aug 13 09:41:43 2007 +0200 @@ -207,8 +207,6 @@ /* Fix linking if compiled with GCC. */ #ifdef __GNUC__ -#if __GNUC__ > 1 - /* Versions of GCC >= 2.0 put their library, libgcc.a, in obscure places that are difficult to figure out at make time. Fortunately, these same versions allow you to pass arbitrary flags on to the @@ -235,13 +233,6 @@ GNULIB_VAR = LIB_GCC -#else /* __GNUC__ < 2 */ - -#ifndef LIB_GCC -#define LIB_GCC "/usr/local/lib/gcc-gnulib" -#endif /* LIB_GCC */ -GNULIB_VAR = `if [ -f LIB_GCC ] ; then echo LIB_GCC; else echo; fi` -#endif /* __GNUC__ < 2 */ #else /* ! defined (__GNUC__) */ GNULIB_VAR = @@ -437,16 +428,17 @@ ${lispdir}mule/kinsoku.elc\ ${mule_x11_lisp}\ ${lispdir}mule/arabic-hooks.elc\ - ${lispdir}mule/chinese-hooks.elc\ - ${lispdir}mule/cyrillic-hooks.elc\ + ${lispdir}language/chinese.elc\ + ${lispdir}language/cyrillic.elc\ + ${lispdir}language/english.elc \ ${lispdir}mule/ethiopic-hooks.elc\ - ${lispdir}mule/european-hooks.elc\ - ${lispdir}mule/greek-hooks.elc\ + ${lispdir}language/european.elc\ + ${lispdir}language/greek.elc\ ${lispdir}mule/hebrew-hooks.elc\ - ${lispdir}mule/ipa-hooks.elc\ - ${lispdir}mule/japanese-hooks.elc\ - ${lispdir}mule/korean-hooks.elc\ - ${lispdir}mule/thai-hooks.elc\ + ${lispdir}language/japanese.elc\ + ${lispdir}language/korean.elc\ + ${lispdir}language/misc-lang.elc\ + ${lispdir}language/thai.elc\ ${lispdir}mule/vietnamese-hooks-1${null}.elc\ ${lispdir}mule/vietnamese-hooks-2${null}.elc #else
--- a/src/callproc.c Mon Aug 13 09:40:48 2007 +0200 +++ b/src/callproc.c Mon Aug 13 09:41:43 2007 +0200 @@ -27,7 +27,7 @@ #include "commands.h" #include "insdel.h" #include "lstream.h" -#include "paths.h" +#include <paths.h> #include "process.h" #include "sysdep.h" #include "window.h"
--- a/src/config.h.in Mon Aug 13 09:40:48 2007 +0200 +++ b/src/config.h.in Mon Aug 13 09:41:43 2007 +0200 @@ -71,7 +71,9 @@ #ifndef FUNCPROTO #define FUNCPROTO 15 #endif -#endif +/* Required for most XFree86 systems */ +#undef NARROWPROTO +#endif /* HAVE_X_WINDOWS */ /* Define HAVE_WINDOW_SYSTEM if any windowing system is available. */ #if defined (HAVE_X_WINDOWS) /* || defined (HAVE_NEXTSTEP) */
--- a/src/data.c Mon Aug 13 09:40:48 2007 +0200 +++ b/src/data.c Mon Aug 13 09:41:43 2007 +0200 @@ -77,6 +77,8 @@ int debug_ebola_backtrace_length; +#include "backtrace.h" + int eq_with_ebola_notice (Lisp_Object obj1, Lisp_Object obj2) { @@ -84,9 +86,23 @@ && (debug_issue_ebola_notices >= 2 || XREALINT (obj1) == XREALINT (obj2))) { + struct backtrace *bt = backtrace_list; + char *p; /* Continuing the joke by printing `Ebola warning!!!' confuses */ /* too many people. The message must be printed because Emacs used */ /* to work differently for two decades. */ +#ifndef LRECORD_SYMBOL + /* temporary hack that will probably be around too long -slb */ + if (XTYPE(*bt->function) == Lisp_Symbol) + { + p = (XSYMBOL(*bt->function)->name)->_data; + if (!strcmp(p, "byte-compile-constant") || + !strcmp(p, "byte-compile-constants-vector") || + !strcmp(p, "byte-optimize-minus") || + !strcmp(p, "byte-optimize-plus") || + !strcmp(p, "byte-decompile-bytecode-1")) goto sc; + } +#endif stderr_out("Comparison between integer and character is constant nil ("); Fprinc (obj1, Qexternal_debugging_output); stderr_out (" and "); @@ -94,7 +110,7 @@ stderr_out (")\n"); debug_short_backtrace (debug_ebola_backtrace_length); } - +sc: return EQ (obj1, obj2); } @@ -2323,7 +2339,7 @@ Length (in stack frames) of short backtrace printed out in Ebola notices. See `debug-issue-ebola-notices'. */ ); - debug_ebola_backtrace_length = 8; + debug_ebola_backtrace_length = 32; #endif /* DEBUG_XEMACS */ }
--- a/src/event-Xt.c Mon Aug 13 09:40:48 2007 +0200 +++ b/src/event-Xt.c Mon Aug 13 09:41:43 2007 +0200 @@ -104,7 +104,7 @@ in ../etc/Emacs.ad. These resources are consulted only if no app-defaults file is found at all. */ -#include "Emacs.ad.h" +#include <Emacs.ad.h> 0 };
--- a/src/filelock.c Mon Aug 13 09:40:48 2007 +0200 +++ b/src/filelock.c Mon Aug 13 09:41:43 2007 +0200 @@ -24,7 +24,7 @@ #include "lisp.h" #include "buffer.h" -#include "paths.h" +#include <paths.h> #include "sysfile.h" #include "sysdir.h"
--- a/src/lread.c Mon Aug 13 09:40:48 2007 +0200 +++ b/src/lread.c Mon Aug 13 09:41:43 2007 +0200 @@ -34,7 +34,7 @@ #include "insdel.h" #include "lstream.h" #include "opaque.h" -#include "paths.h" +#include <paths.h> #endif #ifdef MULE #include "mule-coding.h"
--- a/src/m/intel386.h Mon Aug 13 09:40:48 2007 +0200 +++ b/src/m/intel386.h Mon Aug 13 09:41:43 2007 +0200 @@ -153,6 +153,7 @@ /* this brings in alloca() if we're using cc */ #ifdef USG +#if 0 /* mrb: -lPW is now autodetected, anyways */ #ifndef LIB_STANDARD #ifdef USG5_4 #define LIB_STANDARD -lc @@ -160,8 +161,11 @@ #define LIB_STANDARD -lPW -lc #endif /* not USG5_4 */ #endif /* LIB_STANDARD */ +#endif /* 0 */ +#if 0 /* ALLOCA is now autodetected */ #define HAVE_ALLOCA +#endif #define NO_REMAP #define TEXT_START 0 #endif /* USG */
--- a/src/m/sparc.h Mon Aug 13 09:40:48 2007 +0200 +++ b/src/m/sparc.h Mon Aug 13 09:41:43 2007 +0200 @@ -58,8 +58,7 @@ #define SEGMENT_MASK (SEGSIZ - 1) -#ifndef __NetBSD__ -#ifndef __linux__ +#if ! defined (__NetBSD__) && ! defined (__linux__) /* This really belongs in s/sun.h. */ /* Say that the text segment of a.out includes the header; @@ -72,5 +71,4 @@ #define A_TEXT_SEEK(HDR) (N_TXTOFF (hdr) + sizeof (hdr)) -#endif /* __linux__ */ -#endif /* __NetBSD__ */ +#endif /* not Linux or NetBSD */
--- a/src/process.c Mon Aug 13 09:40:48 2007 +0200 +++ b/src/process.c Mon Aug 13 09:41:43 2007 +0200 @@ -2600,19 +2600,19 @@ when a process becomes runnable. */ else if (!EQ (symbol, Qrun) && !NILP (p->buffer)) { - Lisp_Object old_read_only = Qnil; - Lisp_Object old = Fcurrent_buffer (); - Bufpos opoint; - struct gcpro ngcpro1, ngcpro2; + int speccount = specpdl_depth (); /* Avoid error if buffer is deleted (probably that's why the process is dead, too) */ if (!BUFFER_LIVE_P (XBUFFER (p->buffer))) continue; - NGCPRO2 (old, old_read_only); + record_unwind_protect (save_excursion_restore, + save_excursion_save ()); Fset_buffer (p->buffer); - opoint = BUF_PT (current_buffer); + record_unwind_protect (save_excursion_restore, + save_excursion_save ()); + specbind(Qbuffer_read_only, Qnil); /* Insert new output into buffer at the current end-of-output marker, thus preserving logical ordering of input and output. */ @@ -2620,24 +2620,13 @@ BUF_SET_PT (current_buffer, marker_position (p->mark)); else BUF_SET_PT (current_buffer, BUF_ZV (current_buffer)); - if (BUF_PT (current_buffer) <= opoint) - opoint += (string_char_length (XSTRING (msg)) - + string_char_length (XSTRING (p->name)) - + 10); - - old_read_only = current_buffer->read_only; - current_buffer->read_only = Qnil; buffer_insert_c_string (current_buffer, "\nProcess "); Finsert (1, &p->name); buffer_insert_c_string (current_buffer, " "); Finsert (1, &msg); - current_buffer->read_only = old_read_only; Fset_marker (p->mark, make_int (BUF_PT (current_buffer)), p->buffer); - - BUF_SET_PT (current_buffer, opoint); - Fset_buffer (old); - NUNGCPRO; + unbind_to(speccount, Qnil); } } } /* end for */
--- a/src/s/linux.h Mon Aug 13 09:40:48 2007 +0200 +++ b/src/s/linux.h Mon Aug 13 09:41:43 2007 +0200 @@ -173,7 +173,8 @@ At least XawScrollbarSetThumb needs this. */ #define C_SWITCH_SYSTEM -DFUNCPROTO=11 -DNARROWPROTO -D_BSD_SOURCE #endif -#define C_SWITCH_SYSTEM -DNARROWPROTO -D_BSD_SOURCE + /* #define C_SWITCH_SYSTEM -DNARROWPROTO -D_BSD_SOURCE */ +#define _BSD_SOURCE 1 #endif @@ -287,11 +288,10 @@ # define GETPGRP_NEEDS_ARG #endif -/*#ifdef __ELF__*/ -#if 0 /* This is broken -sb */ +#ifdef __ELF__ /* mrb - Ordinary link is simple and effective */ #define ORDINARY_LINK +#undef LIB_STANDARD #undef START_FILES -#undef LIB_STANDARD #undef LIB_GCC #endif /* __ELF__ */
--- a/src/syntax.c Mon Aug 13 09:40:48 2007 +0200 +++ b/src/syntax.c Mon Aug 13 09:41:43 2007 +0200 @@ -272,6 +272,10 @@ { struct Lisp_Char_Table *mirrortab; + if (NILP(ch)) + { + return Qnil; + } CHECK_CHAR_COERCE_INT (ch); table = check_syntax_table (table, current_buffer->syntax_table); mirrortab = XCHAR_TABLE (XCHAR_TABLE (table)->mirror_table);