GTK_LIBS
XFT_CFLAGS
XFT_LIBS
+FREETYPE_CFLAGS
+FREETYPE_LIBS
+FONTCONFIG_CFLAGS
+FONTCONFIG_LIBS
+HAVE_LIBOTF
+LIBOTF_CFLAGS
+LIBOTF_LIBS
ALLOCA
liblockfile
LIBOBJS
--enable-FEATURE[=ARG] include FEATURE [ARG=yes]
--enable-carbon-app[=DIR] [DIR=/Application]
specify install directory for Emacs.app on Mac OS X
+ --enable-font-backend compile code of font-backend support
--enable-asserts compile code with asserts enabled
--enable-maintainer-mode enable make rules and dependencies not useful
(and sometimes confusing) to the casual installer
--with-tiff use -ltiff for displaying TIFF images
--with-gif use -lungif for displaying GIF images
--with-png use -lpng for displaying PNG images
+ --with-freetype use -lfreetype for local fonts support
+ --with-xft use -lXft for anti aliased fonts
--with-gtk use GTK (same as --with-x-toolkit=gtk)
--with-pkg-config-prog Path to pkg-config to use for finding GTK
--without-toolkit-scroll-bars
fi
+# Check whether --with-freetype was given.
+if test "${with_freetype+set}" = set; then
+ withval=$with_freetype;
+fi
+
+
+# Check whether --with-xft was given.
+if test "${with_xft+set}" = set; then
+ withval=$with_xft;
+fi
+
+
# Check whether --with-gtk was given.
if test "${with_gtk+set}" = set; then
withval=$with_gtk;
fi
+# Check whether --enable-font-backend was given.
+if test "${enable_font_backend+set}" = set; then
+ enableval=$enable_font_backend; USE_FONT_BACKEND=$enableval
+else
+ USE_FONT_BACKEND=no
+fi
+
+
# Check whether --enable-asserts was given.
if test "${enable_asserts+set}" = set; then
enableval=$enable_asserts; USE_XASSERTS=$enableval
machine=nh6000 opsys=powerunix
NON_GNU_CPP="cc -Xo -E -P"
;;
- ## SR2001/SR2201 running HI-UX/MPP
- hppa1.1-hitachi-hiuxmpp* )
- machine=sr2k opsys=hiuxmpp
- ;;
- hppa1.1-hitachi-hiuxwe2* )
- machine=sr2k opsys=hiuxwe2
- ;;
## Honeywell XPS100
xps*-honeywell-sysv* )
machine=xps100 opsys=usg5-2
esac
;;
- ## HP 9000 series 700 and 800, running HP/UX
- hppa*-hp-hpux7* )
- machine=hp800 opsys=hpux
- ;;
- hppa*-hp-hpux8* )
- machine=hp800 opsys=hpux8
- ;;
- hppa*-hp-hpux9shr* )
- machine=hp800 opsys=hpux9shr
- ;;
- hppa*-hp-hpux9* )
- machine=hp800 opsys=hpux9
- ;;
- hppa*-hp-hpux10.2* )
- machine=hp800 opsys=hpux10-20
- ;;
- hppa*-hp-hpux10* )
- machine=hp800 opsys=hpux10
- ;;
- hppa*-hp-hpux1[1-9]* )
- machine=hp800 opsys=hpux11
- CFLAGS="-D_INCLUDE__STDC_A1_SOURCE $CFLAGS"
- ;;
-
hppa*-*-linux-gnu* )
machine=hp800 opsys=gnu-linux
;;
- ## HP 9000 series 700 and 800, running HP/UX
- hppa*-hp-hpux* )
- ## Cross-compilation? Nah!
- case "`uname -r`" in
- ## Someone's system reports A.B8.05 for this.
- ## I wonder what other possibilities there are.
- *.B8.* ) machine=hp800 opsys=hpux8 ;;
- *.08.* ) machine=hp800 opsys=hpux8 ;;
- *.09.* ) machine=hp800 opsys=hpux9 ;;
- *) machine=hp800 opsys=hpux10 ;;
- esac
- ;;
hppa*-*-nextstep* )
machine=hp800 opsys=nextstep
;;
fi
fi
-### Link with -lXft if available to work around a bug.
-HAVE_XFT=maybe
-if test "${HAVE_GTK}" = "yes"; then
- if test "X${with_pkg_config_prog}" != X; then
- PKG_CONFIG="${with_pkg_config_prog}"
- fi
-
-
- succeeded=no
-
- if test -z "$PKG_CONFIG"; then
- # Extract the first word of "pkg-config", so it can be a program name with args.
-set dummy pkg-config; ac_word=$2
-{ echo "$as_me:$LINENO: checking for $ac_word" >&5
-echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; }
-if test "${ac_cv_path_PKG_CONFIG+set}" = set; then
- echo $ECHO_N "(cached) $ECHO_C" >&6
-else
- case $PKG_CONFIG in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_PKG_CONFIG="$PKG_CONFIG" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext"
- echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
-done
-IFS=$as_save_IFS
-
- test -z "$ac_cv_path_PKG_CONFIG" && ac_cv_path_PKG_CONFIG="no"
- ;;
-esac
-fi
-PKG_CONFIG=$ac_cv_path_PKG_CONFIG
-if test -n "$PKG_CONFIG"; then
- { echo "$as_me:$LINENO: result: $PKG_CONFIG" >&5
-echo "${ECHO_T}$PKG_CONFIG" >&6; }
-else
- { echo "$as_me:$LINENO: result: no" >&5
-echo "${ECHO_T}no" >&6; }
-fi
-
-
- fi
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_XFT=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { echo "$as_me:$LINENO: checking for xft >= 0.13.0" >&5
-echo $ECHO_N "checking for xft >= 0.13.0... $ECHO_C" >&6; }
-
- if $PKG_CONFIG --exists "xft >= 0.13.0" 2>&5; then
- { echo "$as_me:$LINENO: result: yes" >&5
-echo "${ECHO_T}yes" >&6; }
- succeeded=yes
-
- { echo "$as_me:$LINENO: checking XFT_CFLAGS" >&5
-echo $ECHO_N "checking XFT_CFLAGS... $ECHO_C" >&6; }
- XFT_CFLAGS=`$PKG_CONFIG --cflags "xft >= 0.13.0"`
- { echo "$as_me:$LINENO: result: $XFT_CFLAGS" >&5
-echo "${ECHO_T}$XFT_CFLAGS" >&6; }
-
- { echo "$as_me:$LINENO: checking XFT_LIBS" >&5
-echo $ECHO_N "checking XFT_LIBS... $ECHO_C" >&6; }
- XFT_LIBS=`$PKG_CONFIG --libs "xft >= 0.13.0"`
- { echo "$as_me:$LINENO: result: $XFT_LIBS" >&5
-echo "${ECHO_T}$XFT_LIBS" >&6; }
- else
- { echo "$as_me:$LINENO: result: no" >&5
-echo "${ECHO_T}no" >&6; }
- XFT_CFLAGS=""
- XFT_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so.
- XFT_PKG_ERRORS=`$PKG_CONFIG --errors-to-stdout --print-errors "xft >= 0.13.0"`
-
- fi
-
-
-
- else
- echo "*** Your version of pkg-config is too old. You need version $PKG_CONFIG_MIN_VERSION or newer."
- echo "*** See http://www.freedesktop.org/software/pkgconfig"
- fi
- fi
-
- if test $succeeded = yes; then
- :
- else
- HAVE_XFT=no
- fi
-
- if test "$HAVE_XFT" != no; then
- OLD_CFLAGS="$CPPFLAGS"
- OLD_CFLAGS="$CFLAGS"
- OLD_LIBS="$LIBS"
- CPPFLAGS="$CPPFLAGS $XFT_CFLAGS"
- CFLAGS="$CFLAGS $XFT_CFLAGS"
- LIBS="$XFT_LIBS $LIBS"
- if test "${ac_cv_header_X11_Xft_Xft_h+set}" = set; then
- { echo "$as_me:$LINENO: checking for X11/Xft/Xft.h" >&5
-echo $ECHO_N "checking for X11/Xft/Xft.h... $ECHO_C" >&6; }
-if test "${ac_cv_header_X11_Xft_Xft_h+set}" = set; then
+if test x"${USE_X_TOOLKIT}" = xmaybe; then
+ if test x"${HAVE_X11R5}" = xyes; then
+ { echo "$as_me:$LINENO: checking X11 version 5 with Xaw" >&5
+echo $ECHO_N "checking X11 version 5 with Xaw... $ECHO_C" >&6; }
+ if test "${emacs_cv_x11_version_5_with_xaw+set}" = set; then
echo $ECHO_N "(cached) $ECHO_C" >&6
-fi
-{ echo "$as_me:$LINENO: result: $ac_cv_header_X11_Xft_Xft_h" >&5
-echo "${ECHO_T}$ac_cv_header_X11_Xft_Xft_h" >&6; }
else
- # Is the header compilable?
-{ echo "$as_me:$LINENO: checking X11/Xft/Xft.h usability" >&5
-echo $ECHO_N "checking X11/Xft/Xft.h usability... $ECHO_C" >&6; }
-cat >conftest.$ac_ext <<_ACEOF
+ cat >conftest.$ac_ext <<_ACEOF
/* confdefs.h. */
_ACEOF
cat confdefs.h >>conftest.$ac_ext
cat >>conftest.$ac_ext <<_ACEOF
/* end confdefs.h. */
-$ac_includes_default
-#include <X11/Xft/Xft.h>
+
+#include <X11/Intrinsic.h>
+#include <X11/Xaw/Simple.h>
+int
+main ()
+{
+
+ ;
+ return 0;
+}
_ACEOF
-rm -f conftest.$ac_objext
-if { (ac_try="$ac_compile"
+rm -f conftest.$ac_objext conftest$ac_exeext
+if { (ac_try="$ac_link"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
- (eval "$ac_compile") 2>conftest.er1
+ (eval "$ac_link") 2>conftest.er1
ac_status=$?
grep -v '^ *+' conftest.er1 >conftest.err
rm -f conftest.er1
(exit $ac_status); } && {
test -z "$ac_c_werror_flag" ||
test ! -s conftest.err
- } && test -s conftest.$ac_objext; then
- ac_header_compiler=yes
+ } && test -s conftest$ac_exeext &&
+ $as_test_x conftest$ac_exeext; then
+ emacs_cv_x11_version_5_with_xaw=yes
else
echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
- ac_header_compiler=no
+ emacs_cv_x11_version_5_with_xaw=no
fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-{ echo "$as_me:$LINENO: result: $ac_header_compiler" >&5
-echo "${ECHO_T}$ac_header_compiler" >&6; }
+rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \
+ conftest$ac_exeext conftest.$ac_ext
+fi
-# Is the header present?
-{ echo "$as_me:$LINENO: checking X11/Xft/Xft.h presence" >&5
-echo $ECHO_N "checking X11/Xft/Xft.h presence... $ECHO_C" >&6; }
-cat >conftest.$ac_ext <<_ACEOF
+ if test $emacs_cv_x11_version_5_with_xaw = yes; then
+ { echo "$as_me:$LINENO: result: 5 or newer, with Xaw; use toolkit by default" >&5
+echo "${ECHO_T}5 or newer, with Xaw; use toolkit by default" >&6; }
+ USE_X_TOOLKIT=LUCID
+ else
+ { echo "$as_me:$LINENO: result: before 5 or no Xaw; do not use toolkit by default" >&5
+echo "${ECHO_T}before 5 or no Xaw; do not use toolkit by default" >&6; }
+ USE_X_TOOLKIT=none
+ fi
+ else
+ USE_X_TOOLKIT=none
+ fi
+fi
+
+X_TOOLKIT_TYPE=$USE_X_TOOLKIT
+
+if test "${USE_X_TOOLKIT}" != "none"; then
+ { echo "$as_me:$LINENO: checking X11 toolkit version" >&5
+echo $ECHO_N "checking X11 toolkit version... $ECHO_C" >&6; }
+ if test "${emacs_cv_x11_toolkit_version_6+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+ cat >conftest.$ac_ext <<_ACEOF
/* confdefs.h. */
_ACEOF
cat confdefs.h >>conftest.$ac_ext
cat >>conftest.$ac_ext <<_ACEOF
/* end confdefs.h. */
-#include <X11/Xft/Xft.h>
+#include <X11/Intrinsic.h>
+int
+main ()
+{
+#if XtSpecificationRelease < 6
+fail;
+#endif
+
+ ;
+ return 0;
+}
_ACEOF
-if { (ac_try="$ac_cpp conftest.$ac_ext"
+rm -f conftest.$ac_objext conftest$ac_exeext
+if { (ac_try="$ac_link"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
*) ac_try_echo=$ac_try;;
esac
eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
- (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1
+ (eval "$ac_link") 2>conftest.er1
ac_status=$?
grep -v '^ *+' conftest.er1 >conftest.err
rm -f conftest.er1
cat conftest.err >&5
echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } >/dev/null && {
- test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
test ! -s conftest.err
- }; then
- ac_header_preproc=yes
+ } && test -s conftest$ac_exeext &&
+ $as_test_x conftest$ac_exeext; then
+ emacs_cv_x11_toolkit_version_6=yes
else
echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
- ac_header_preproc=no
+ emacs_cv_x11_toolkit_version_6=no
fi
-rm -f conftest.err conftest.$ac_ext
-{ echo "$as_me:$LINENO: result: $ac_header_preproc" >&5
-echo "${ECHO_T}$ac_header_preproc" >&6; }
-
-# So? What about this header?
-case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in
- yes:no: )
- { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: accepted by the compiler, rejected by the preprocessor!" >&5
-echo "$as_me: WARNING: X11/Xft/Xft.h: accepted by the compiler, rejected by the preprocessor!" >&2;}
- { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: proceeding with the compiler's result" >&5
-echo "$as_me: WARNING: X11/Xft/Xft.h: proceeding with the compiler's result" >&2;}
- ac_header_preproc=yes
- ;;
- no:yes:* )
- { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: present but cannot be compiled" >&5
-echo "$as_me: WARNING: X11/Xft/Xft.h: present but cannot be compiled" >&2;}
- { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: check for missing prerequisite headers?" >&5
-echo "$as_me: WARNING: X11/Xft/Xft.h: check for missing prerequisite headers?" >&2;}
- { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: see the Autoconf documentation" >&5
-echo "$as_me: WARNING: X11/Xft/Xft.h: see the Autoconf documentation" >&2;}
- { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: section \"Present But Cannot Be Compiled\"" >&5
-echo "$as_me: WARNING: X11/Xft/Xft.h: section \"Present But Cannot Be Compiled\"" >&2;}
- { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: proceeding with the preprocessor's result" >&5
-echo "$as_me: WARNING: X11/Xft/Xft.h: proceeding with the preprocessor's result" >&2;}
- { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: in the future, the compiler will take precedence" >&5
-echo "$as_me: WARNING: X11/Xft/Xft.h: in the future, the compiler will take precedence" >&2;}
-
- ;;
-esac
-{ echo "$as_me:$LINENO: checking for X11/Xft/Xft.h" >&5
-echo $ECHO_N "checking for X11/Xft/Xft.h... $ECHO_C" >&6; }
-if test "${ac_cv_header_X11_Xft_Xft_h+set}" = set; then
- echo $ECHO_N "(cached) $ECHO_C" >&6
-else
- ac_cv_header_X11_Xft_Xft_h=$ac_header_preproc
-fi
-{ echo "$as_me:$LINENO: result: $ac_cv_header_X11_Xft_Xft_h" >&5
-echo "${ECHO_T}$ac_cv_header_X11_Xft_Xft_h" >&6; }
-
-fi
-if test $ac_cv_header_X11_Xft_Xft_h = yes; then
- { echo "$as_me:$LINENO: checking for XftFontOpen in -lXft" >&5
-echo $ECHO_N "checking for XftFontOpen in -lXft... $ECHO_C" >&6; }
-if test "${ac_cv_lib_Xft_XftFontOpen+set}" = set; then
- echo $ECHO_N "(cached) $ECHO_C" >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXft $XFT_LIBS $LIBS"
-cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h. */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char XftFontOpen ();
-int
-main ()
-{
-return XftFontOpen ();
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
- (eval "$ac_link") 2>conftest.er1
- ac_status=$?
- grep -v '^ *+' conftest.er1 >conftest.err
- rm -f conftest.er1
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest$ac_exeext &&
- $as_test_x conftest$ac_exeext; then
- ac_cv_lib_Xft_XftFontOpen=yes
-else
- echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_cv_lib_Xft_XftFontOpen=no
-fi
-
-rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ echo "$as_me:$LINENO: result: $ac_cv_lib_Xft_XftFontOpen" >&5
-echo "${ECHO_T}$ac_cv_lib_Xft_XftFontOpen" >&6; }
-if test $ac_cv_lib_Xft_XftFontOpen = yes; then
- HAVE_XFT=yes
-fi
-
-fi
-
-
-
- if test "${HAVE_XFT}" = "yes"; then
-
-cat >>confdefs.h <<\_ACEOF
-#define HAVE_XFT 1
-_ACEOF
-
-
- C_SWITCH_X_SITE="$C_SWITCH_X_SITE $XFT_CFLAGS"
- else
- CFLAGS="$OLD_CPPFLAGS"
- CFLAGS="$OLD_CFLAGS"
- LIBS="$OLD_LIBS"
- fi
- fi
-fi
-
-if test x"${USE_X_TOOLKIT}" = xmaybe; then
- if test x"${HAVE_X11R5}" = xyes; then
- { echo "$as_me:$LINENO: checking X11 version 5 with Xaw" >&5
-echo $ECHO_N "checking X11 version 5 with Xaw... $ECHO_C" >&6; }
- if test "${emacs_cv_x11_version_5_with_xaw+set}" = set; then
- echo $ECHO_N "(cached) $ECHO_C" >&6
-else
- cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h. */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h. */
-
-#include <X11/Intrinsic.h>
-#include <X11/Xaw/Simple.h>
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
- (eval "$ac_link") 2>conftest.er1
- ac_status=$?
- grep -v '^ *+' conftest.er1 >conftest.err
- rm -f conftest.er1
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest$ac_exeext &&
- $as_test_x conftest$ac_exeext; then
- emacs_cv_x11_version_5_with_xaw=yes
-else
- echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- emacs_cv_x11_version_5_with_xaw=no
-fi
-
-rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \
- conftest$ac_exeext conftest.$ac_ext
-fi
-
- if test $emacs_cv_x11_version_5_with_xaw = yes; then
- { echo "$as_me:$LINENO: result: 5 or newer, with Xaw; use toolkit by default" >&5
-echo "${ECHO_T}5 or newer, with Xaw; use toolkit by default" >&6; }
- USE_X_TOOLKIT=LUCID
- else
- { echo "$as_me:$LINENO: result: before 5 or no Xaw; do not use toolkit by default" >&5
-echo "${ECHO_T}before 5 or no Xaw; do not use toolkit by default" >&6; }
- USE_X_TOOLKIT=none
- fi
- else
- USE_X_TOOLKIT=none
- fi
-fi
-
-X_TOOLKIT_TYPE=$USE_X_TOOLKIT
-
-if test "${USE_X_TOOLKIT}" != "none"; then
- { echo "$as_me:$LINENO: checking X11 toolkit version" >&5
-echo $ECHO_N "checking X11 toolkit version... $ECHO_C" >&6; }
- if test "${emacs_cv_x11_toolkit_version_6+set}" = set; then
- echo $ECHO_N "(cached) $ECHO_C" >&6
-else
- cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h. */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h. */
-#include <X11/Intrinsic.h>
-int
-main ()
-{
-#if XtSpecificationRelease < 6
-fail;
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext conftest$ac_exeext
-if { (ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
- (eval "$ac_link") 2>conftest.er1
- ac_status=$?
- grep -v '^ *+' conftest.er1 >conftest.err
- rm -f conftest.er1
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest$ac_exeext &&
- $as_test_x conftest$ac_exeext; then
- emacs_cv_x11_toolkit_version_6=yes
-else
- echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- emacs_cv_x11_toolkit_version_6=no
-fi
-
-rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \
- conftest$ac_exeext conftest.$ac_ext
+rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \
+ conftest$ac_exeext conftest.$ac_ext
fi
HAVE_X11XTR6=$emacs_cv_x11_toolkit_version_6
HAVE_XAW3D=yes
fi
-fi
+fi
+
+
+ if test "${HAVE_XAW3D}" = "yes"; then
+
+cat >>confdefs.h <<\_ACEOF
+#define HAVE_XAW3D 1
+_ACEOF
+
+ fi
+ fi
+fi
+
+
+
+USE_TOOLKIT_SCROLL_BARS=no
+if test "${with_toolkit_scroll_bars}" != "no"; then
+ if test "${USE_X_TOOLKIT}" != "none"; then
+ if test "${USE_X_TOOLKIT}" = "MOTIF"; then
+ cat >>confdefs.h <<\_ACEOF
+#define USE_TOOLKIT_SCROLL_BARS 1
+_ACEOF
+
+ HAVE_XAW3D=no
+ USE_TOOLKIT_SCROLL_BARS=yes
+ elif test "${HAVE_XAW3D}" = "yes"; then
+ cat >>confdefs.h <<\_ACEOF
+#define USE_TOOLKIT_SCROLL_BARS 1
+_ACEOF
+
+ USE_TOOLKIT_SCROLL_BARS=yes
+ fi
+ elif test "${HAVE_GTK}" = "yes"; then
+ cat >>confdefs.h <<\_ACEOF
+#define USE_TOOLKIT_SCROLL_BARS 1
+_ACEOF
+
+ USE_TOOLKIT_SCROLL_BARS=yes
+ elif test "${HAVE_CARBON}" = "yes"; then
+ cat >>confdefs.h <<\_ACEOF
+#define USE_TOOLKIT_SCROLL_BARS 1
+_ACEOF
+
+ USE_TOOLKIT_SCROLL_BARS=yes
+ fi
+fi
+
+cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+
+ #include <X11/Xlib.h>
+ #include <X11/Xresource.h>
+int
+main ()
+{
+XIMProc callback;
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext
+if { (ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
+ (eval "$ac_compile") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then
+ HAVE_XIM=yes
+
+cat >>confdefs.h <<\_ACEOF
+#define HAVE_XIM 1
+_ACEOF
+
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ HAVE_XIM=no
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+
+
+if test "${with_xim}" != "no"; then
+
+cat >>confdefs.h <<\_ACEOF
+#define USE_XIM 1
+_ACEOF
+
+fi
+
+
+if test "${HAVE_XIM}" != "no"; then
+ late_CFLAGS=$CFLAGS
+ if test "$GCC" = yes; then
+ CFLAGS="$CFLAGS --pedantic-errors"
+ fi
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+
+#include <X11/Xlib.h>
+#include <X11/Xresource.h>
+int
+main ()
+{
+Display *display;
+XrmDatabase db;
+char *res_name;
+char *res_class;
+XIMProc callback;
+XPointer *client_data;
+#ifndef __GNUC__
+/* If we're not using GCC, it's probably not XFree86, and this is
+ probably right, but we can't use something like --pedantic-errors. */
+extern Bool XRegisterIMInstantiateCallback(Display*, XrmDatabase, char*,
+ char*, XIMProc, XPointer*);
+#endif
+(void)XRegisterIMInstantiateCallback(display, db, res_name, res_class, callback,
+ client_data);
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext
+if { (ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
+ (eval "$ac_compile") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then
+ emacs_cv_arg6_star=yes
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+
+ if test "$emacs_cv_arg6_star" = yes; then
+ cat >>confdefs.h <<\_ACEOF
+#define XRegisterIMInstantiateCallback_arg6 XPointer*
+_ACEOF
+
+ else
+ cat >>confdefs.h <<\_ACEOF
+#define XRegisterIMInstantiateCallback_arg6 XPointer
+_ACEOF
+
+ fi
+ CFLAGS=$late_CFLAGS
+fi
+
+### For font-backend
+if test "${USE_FONT_BACKEND}" = "yes"; then
+
+
+cat >>confdefs.h <<\_ACEOF
+#define USE_FONT_BACKEND 1
+_ACEOF
+
+
+### Use -lXft if available, unless `--with-freetype=no' nor `--with-xft=no'.
+HAVE_XFT=maybe
+if test "${HAVE_X11}" = "yes"; then
+ if test "x${with_freetype}" = "xno"; then
+ with_xft="no";
+ fi
+ if test "x${with_xft}" != "xno"; then
+
+ if test "X${with_pkg_config_prog}" != X; then
+ PKG_CONFIG="${with_pkg_config_prog}"
+ fi
+
+
+ succeeded=no
+
+ if test -z "$PKG_CONFIG"; then
+ # Extract the first word of "pkg-config", so it can be a program name with args.
+set dummy pkg-config; ac_word=$2
+{ echo "$as_me:$LINENO: checking for $ac_word" >&5
+echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; }
+if test "${ac_cv_path_PKG_CONFIG+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+ case $PKG_CONFIG in
+ [\\/]* | ?:[\\/]*)
+ ac_cv_path_PKG_CONFIG="$PKG_CONFIG" # Let the user override the test with a path.
+ ;;
+ *)
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ ac_cv_path_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext"
+ echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+done
+IFS=$as_save_IFS
+
+ test -z "$ac_cv_path_PKG_CONFIG" && ac_cv_path_PKG_CONFIG="no"
+ ;;
+esac
+fi
+PKG_CONFIG=$ac_cv_path_PKG_CONFIG
+if test -n "$PKG_CONFIG"; then
+ { echo "$as_me:$LINENO: result: $PKG_CONFIG" >&5
+echo "${ECHO_T}$PKG_CONFIG" >&6; }
+else
+ { echo "$as_me:$LINENO: result: no" >&5
+echo "${ECHO_T}no" >&6; }
+fi
+
+
+ fi
+
+ if test "$PKG_CONFIG" = "no" ; then
+ HAVE_XFT=no
+ else
+ PKG_CONFIG_MIN_VERSION=0.9.0
+ if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
+ { echo "$as_me:$LINENO: checking for xft >= 0.13.0" >&5
+echo $ECHO_N "checking for xft >= 0.13.0... $ECHO_C" >&6; }
+
+ if $PKG_CONFIG --exists "xft >= 0.13.0" 2>&5; then
+ { echo "$as_me:$LINENO: result: yes" >&5
+echo "${ECHO_T}yes" >&6; }
+ succeeded=yes
+
+ { echo "$as_me:$LINENO: checking XFT_CFLAGS" >&5
+echo $ECHO_N "checking XFT_CFLAGS... $ECHO_C" >&6; }
+ XFT_CFLAGS=`$PKG_CONFIG --cflags "xft >= 0.13.0"`
+ { echo "$as_me:$LINENO: result: $XFT_CFLAGS" >&5
+echo "${ECHO_T}$XFT_CFLAGS" >&6; }
+
+ { echo "$as_me:$LINENO: checking XFT_LIBS" >&5
+echo $ECHO_N "checking XFT_LIBS... $ECHO_C" >&6; }
+ XFT_LIBS=`$PKG_CONFIG --libs "xft >= 0.13.0"`
+ { echo "$as_me:$LINENO: result: $XFT_LIBS" >&5
+echo "${ECHO_T}$XFT_LIBS" >&6; }
+ else
+ { echo "$as_me:$LINENO: result: no" >&5
+echo "${ECHO_T}no" >&6; }
+ XFT_CFLAGS=""
+ XFT_LIBS=""
+ ## If we have a custom action on failure, don't print errors, but
+ ## do set a variable so people can do so.
+ XFT_PKG_ERRORS=`$PKG_CONFIG --errors-to-stdout --print-errors "xft >= 0.13.0"`
+
+ fi
+
+
+
+ else
+ echo "*** Your version of pkg-config is too old. You need version $PKG_CONFIG_MIN_VERSION or newer."
+ echo "*** See http://www.freedesktop.org/software/pkgconfig"
+ fi
+ fi
+
+ if test $succeeded = yes; then
+ :
+ else
+ HAVE_XFT=no
+ fi
+
+ if test "$HAVE_XFT" != no; then
+ OLD_CPPFLAGS="$CPPFLAGS"
+ OLD_CFLAGS="$CFLAGS"
+ OLD_LIBS="$LIBS"
+ CPPFLAGS="$CPPFLAGS $XFT_CFLAGS"
+ CFLAGS="$CFLAGS $XFT_CFLAGS"
+ LIBS="$XFT_LIBS $LIBS"
+ if test "${ac_cv_header_X11_Xft_Xft_h+set}" = set; then
+ { echo "$as_me:$LINENO: checking for X11/Xft/Xft.h" >&5
+echo $ECHO_N "checking for X11/Xft/Xft.h... $ECHO_C" >&6; }
+if test "${ac_cv_header_X11_Xft_Xft_h+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+fi
+{ echo "$as_me:$LINENO: result: $ac_cv_header_X11_Xft_Xft_h" >&5
+echo "${ECHO_T}$ac_cv_header_X11_Xft_Xft_h" >&6; }
+else
+ # Is the header compilable?
+{ echo "$as_me:$LINENO: checking X11/Xft/Xft.h usability" >&5
+echo $ECHO_N "checking X11/Xft/Xft.h usability... $ECHO_C" >&6; }
+cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+$ac_includes_default
+#include <X11/Xft/Xft.h>
+_ACEOF
+rm -f conftest.$ac_objext
+if { (ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
+ (eval "$ac_compile") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then
+ ac_header_compiler=yes
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_header_compiler=no
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+{ echo "$as_me:$LINENO: result: $ac_header_compiler" >&5
+echo "${ECHO_T}$ac_header_compiler" >&6; }
+
+# Is the header present?
+{ echo "$as_me:$LINENO: checking X11/Xft/Xft.h presence" >&5
+echo $ECHO_N "checking X11/Xft/Xft.h presence... $ECHO_C" >&6; }
+cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+#include <X11/Xft/Xft.h>
+_ACEOF
+if { (ac_try="$ac_cpp conftest.$ac_ext"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
+ (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } >/dev/null && {
+ test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ }; then
+ ac_header_preproc=yes
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_header_preproc=no
+fi
+
+rm -f conftest.err conftest.$ac_ext
+{ echo "$as_me:$LINENO: result: $ac_header_preproc" >&5
+echo "${ECHO_T}$ac_header_preproc" >&6; }
+
+# So? What about this header?
+case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in
+ yes:no: )
+ { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: accepted by the compiler, rejected by the preprocessor!" >&5
+echo "$as_me: WARNING: X11/Xft/Xft.h: accepted by the compiler, rejected by the preprocessor!" >&2;}
+ { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: proceeding with the compiler's result" >&5
+echo "$as_me: WARNING: X11/Xft/Xft.h: proceeding with the compiler's result" >&2;}
+ ac_header_preproc=yes
+ ;;
+ no:yes:* )
+ { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: present but cannot be compiled" >&5
+echo "$as_me: WARNING: X11/Xft/Xft.h: present but cannot be compiled" >&2;}
+ { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: check for missing prerequisite headers?" >&5
+echo "$as_me: WARNING: X11/Xft/Xft.h: check for missing prerequisite headers?" >&2;}
+ { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: see the Autoconf documentation" >&5
+echo "$as_me: WARNING: X11/Xft/Xft.h: see the Autoconf documentation" >&2;}
+ { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: section \"Present But Cannot Be Compiled\"" >&5
+echo "$as_me: WARNING: X11/Xft/Xft.h: section \"Present But Cannot Be Compiled\"" >&2;}
+ { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: proceeding with the preprocessor's result" >&5
+echo "$as_me: WARNING: X11/Xft/Xft.h: proceeding with the preprocessor's result" >&2;}
+ { echo "$as_me:$LINENO: WARNING: X11/Xft/Xft.h: in the future, the compiler will take precedence" >&5
+echo "$as_me: WARNING: X11/Xft/Xft.h: in the future, the compiler will take precedence" >&2;}
+
+ ;;
+esac
+{ echo "$as_me:$LINENO: checking for X11/Xft/Xft.h" >&5
+echo $ECHO_N "checking for X11/Xft/Xft.h... $ECHO_C" >&6; }
+if test "${ac_cv_header_X11_Xft_Xft_h+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+ ac_cv_header_X11_Xft_Xft_h=$ac_header_preproc
+fi
+{ echo "$as_me:$LINENO: result: $ac_cv_header_X11_Xft_Xft_h" >&5
+echo "${ECHO_T}$ac_cv_header_X11_Xft_Xft_h" >&6; }
+
+fi
+if test $ac_cv_header_X11_Xft_Xft_h = yes; then
+ { echo "$as_me:$LINENO: checking for XftFontOpen in -lXft" >&5
+echo $ECHO_N "checking for XftFontOpen in -lXft... $ECHO_C" >&6; }
+if test "${ac_cv_lib_Xft_XftFontOpen+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+ ac_check_lib_save_LIBS=$LIBS
+LIBS="-lXft $XFT_LIBS $LIBS"
+cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+
+/* Override any GCC internal prototype to avoid an error.
+ Use char because int might match the return type of a GCC
+ builtin and then its argument prototype would still apply. */
+#ifdef __cplusplus
+extern "C"
+#endif
+char XftFontOpen ();
+int
+main ()
+{
+return XftFontOpen ();
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext conftest$ac_exeext
+if { (ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
+ (eval "$ac_link") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest$ac_exeext &&
+ $as_test_x conftest$ac_exeext; then
+ ac_cv_lib_Xft_XftFontOpen=yes
+else
+ echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_cv_lib_Xft_XftFontOpen=no
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \
+ conftest$ac_exeext conftest.$ac_ext
+LIBS=$ac_check_lib_save_LIBS
+fi
+{ echo "$as_me:$LINENO: result: $ac_cv_lib_Xft_XftFontOpen" >&5
+echo "${ECHO_T}$ac_cv_lib_Xft_XftFontOpen" >&6; }
+if test $ac_cv_lib_Xft_XftFontOpen = yes; then
+ HAVE_XFT=yes
+fi
+
+fi
+
+
+
+ if test "${HAVE_XFT}" = "yes"; then
+
+cat >>confdefs.h <<\_ACEOF
+#define HAVE_XFT 1
+_ACEOF
+
+
+ C_SWITCH_X_SITE="$C_SWITCH_X_SITE $XFT_CFLAGS"
+ else
+ CFLAGS="$OLD_CPPFLAGS"
+ CFLAGS="$OLD_CFLAGS"
+ LIBS="$OLD_LIBS"
+ fi
+ fi
+ fi
+fi
+
+HAVE_FREETYPE=no
+### Use -lfreetype if available, unless `--with-freetype=no'.
+if test "${HAVE_XFT}" = "yes"; then
+ HAVE_FREETYPE=yes
+elif test "x${with_freetype}" != "xno"; then
+ if test "X${with_pkg_config_prog}" != X; then
+ PKG_CONFIG="${with_pkg_config_prog}"
+ fi
+
+
+ succeeded=no
+
+ if test -z "$PKG_CONFIG"; then
+ # Extract the first word of "pkg-config", so it can be a program name with args.
+set dummy pkg-config; ac_word=$2
+{ echo "$as_me:$LINENO: checking for $ac_word" >&5
+echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; }
+if test "${ac_cv_path_PKG_CONFIG+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+ case $PKG_CONFIG in
+ [\\/]* | ?:[\\/]*)
+ ac_cv_path_PKG_CONFIG="$PKG_CONFIG" # Let the user override the test with a path.
+ ;;
+ *)
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ ac_cv_path_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext"
+ echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+done
+IFS=$as_save_IFS
+
+ test -z "$ac_cv_path_PKG_CONFIG" && ac_cv_path_PKG_CONFIG="no"
+ ;;
+esac
+fi
+PKG_CONFIG=$ac_cv_path_PKG_CONFIG
+if test -n "$PKG_CONFIG"; then
+ { echo "$as_me:$LINENO: result: $PKG_CONFIG" >&5
+echo "${ECHO_T}$PKG_CONFIG" >&6; }
+else
+ { echo "$as_me:$LINENO: result: no" >&5
+echo "${ECHO_T}no" >&6; }
+fi
+
+
+ fi
+
+ if test "$PKG_CONFIG" = "no" ; then
+ HAVE_FREETYPE=no
+ else
+ PKG_CONFIG_MIN_VERSION=0.9.0
+ if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
+ { echo "$as_me:$LINENO: checking for freetype2" >&5
+echo $ECHO_N "checking for freetype2... $ECHO_C" >&6; }
+
+ if $PKG_CONFIG --exists "freetype2" 2>&5; then
+ { echo "$as_me:$LINENO: result: yes" >&5
+echo "${ECHO_T}yes" >&6; }
+ succeeded=yes
+
+ { echo "$as_me:$LINENO: checking FREETYPE_CFLAGS" >&5
+echo $ECHO_N "checking FREETYPE_CFLAGS... $ECHO_C" >&6; }
+ FREETYPE_CFLAGS=`$PKG_CONFIG --cflags "freetype2"`
+ { echo "$as_me:$LINENO: result: $FREETYPE_CFLAGS" >&5
+echo "${ECHO_T}$FREETYPE_CFLAGS" >&6; }
+
+ { echo "$as_me:$LINENO: checking FREETYPE_LIBS" >&5
+echo $ECHO_N "checking FREETYPE_LIBS... $ECHO_C" >&6; }
+ FREETYPE_LIBS=`$PKG_CONFIG --libs "freetype2"`
+ { echo "$as_me:$LINENO: result: $FREETYPE_LIBS" >&5
+echo "${ECHO_T}$FREETYPE_LIBS" >&6; }
+ else
+ { echo "$as_me:$LINENO: result: no" >&5
+echo "${ECHO_T}no" >&6; }
+ FREETYPE_CFLAGS=""
+ FREETYPE_LIBS=""
+ ## If we have a custom action on failure, don't print errors, but
+ ## do set a variable so people can do so.
+ FREETYPE_PKG_ERRORS=`$PKG_CONFIG --errors-to-stdout --print-errors "freetype2"`
+
+ fi
+
- if test "${HAVE_XAW3D}" = "yes"; then
+ else
+ echo "*** Your version of pkg-config is too old. You need version $PKG_CONFIG_MIN_VERSION or newer."
+ echo "*** See http://www.freedesktop.org/software/pkgconfig"
+ fi
+ fi
-cat >>confdefs.h <<\_ACEOF
-#define HAVE_XAW3D 1
-_ACEOF
+ if test $succeeded = yes; then
+ HAVE_FREETYPE=yes
+ else
+ HAVE_FREETYPE=no
+ fi
- fi
+ if test "${HAVE_FREETYPE}" = "yes"; then
+
+ succeeded=no
+
+ if test -z "$PKG_CONFIG"; then
+ # Extract the first word of "pkg-config", so it can be a program name with args.
+set dummy pkg-config; ac_word=$2
+{ echo "$as_me:$LINENO: checking for $ac_word" >&5
+echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; }
+if test "${ac_cv_path_PKG_CONFIG+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
+else
+ case $PKG_CONFIG in
+ [\\/]* | ?:[\\/]*)
+ ac_cv_path_PKG_CONFIG="$PKG_CONFIG" # Let the user override the test with a path.
+ ;;
+ *)
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ ac_cv_path_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext"
+ echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
fi
+done
+done
+IFS=$as_save_IFS
+
+ test -z "$ac_cv_path_PKG_CONFIG" && ac_cv_path_PKG_CONFIG="no"
+ ;;
+esac
+fi
+PKG_CONFIG=$ac_cv_path_PKG_CONFIG
+if test -n "$PKG_CONFIG"; then
+ { echo "$as_me:$LINENO: result: $PKG_CONFIG" >&5
+echo "${ECHO_T}$PKG_CONFIG" >&6; }
+else
+ { echo "$as_me:$LINENO: result: no" >&5
+echo "${ECHO_T}no" >&6; }
fi
+ fi
-USE_TOOLKIT_SCROLL_BARS=no
-if test "${with_toolkit_scroll_bars}" != "no"; then
- if test "${USE_X_TOOLKIT}" != "none"; then
- if test "${USE_X_TOOLKIT}" = "MOTIF"; then
- cat >>confdefs.h <<\_ACEOF
-#define USE_TOOLKIT_SCROLL_BARS 1
-_ACEOF
+ if test "$PKG_CONFIG" = "no" ; then
+ HAVE_FC=no
+ else
+ PKG_CONFIG_MIN_VERSION=0.9.0
+ if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
+ { echo "$as_me:$LINENO: checking for fontconfig" >&5
+echo $ECHO_N "checking for fontconfig... $ECHO_C" >&6; }
- HAVE_XAW3D=no
- USE_TOOLKIT_SCROLL_BARS=yes
- elif test "${HAVE_XAW3D}" = "yes"; then
- cat >>confdefs.h <<\_ACEOF
-#define USE_TOOLKIT_SCROLL_BARS 1
-_ACEOF
+ if $PKG_CONFIG --exists "fontconfig" 2>&5; then
+ { echo "$as_me:$LINENO: result: yes" >&5
+echo "${ECHO_T}yes" >&6; }
+ succeeded=yes
- USE_TOOLKIT_SCROLL_BARS=yes
- fi
- elif test "${HAVE_GTK}" = "yes"; then
- cat >>confdefs.h <<\_ACEOF
-#define USE_TOOLKIT_SCROLL_BARS 1
-_ACEOF
+ { echo "$as_me:$LINENO: checking FONTCONFIG_CFLAGS" >&5
+echo $ECHO_N "checking FONTCONFIG_CFLAGS... $ECHO_C" >&6; }
+ FONTCONFIG_CFLAGS=`$PKG_CONFIG --cflags "fontconfig"`
+ { echo "$as_me:$LINENO: result: $FONTCONFIG_CFLAGS" >&5
+echo "${ECHO_T}$FONTCONFIG_CFLAGS" >&6; }
+
+ { echo "$as_me:$LINENO: checking FONTCONFIG_LIBS" >&5
+echo $ECHO_N "checking FONTCONFIG_LIBS... $ECHO_C" >&6; }
+ FONTCONFIG_LIBS=`$PKG_CONFIG --libs "fontconfig"`
+ { echo "$as_me:$LINENO: result: $FONTCONFIG_LIBS" >&5
+echo "${ECHO_T}$FONTCONFIG_LIBS" >&6; }
+ else
+ { echo "$as_me:$LINENO: result: no" >&5
+echo "${ECHO_T}no" >&6; }
+ FONTCONFIG_CFLAGS=""
+ FONTCONFIG_LIBS=""
+ ## If we have a custom action on failure, don't print errors, but
+ ## do set a variable so people can do so.
+ FONTCONFIG_PKG_ERRORS=`$PKG_CONFIG --errors-to-stdout --print-errors "fontconfig"`
- USE_TOOLKIT_SCROLL_BARS=yes
- elif test "${HAVE_CARBON}" = "yes"; then
- cat >>confdefs.h <<\_ACEOF
-#define USE_TOOLKIT_SCROLL_BARS 1
-_ACEOF
+ fi
- USE_TOOLKIT_SCROLL_BARS=yes
+
+
+ else
+ echo "*** Your version of pkg-config is too old. You need version $PKG_CONFIG_MIN_VERSION or newer."
+ echo "*** See http://www.freedesktop.org/software/pkgconfig"
+ fi
fi
-fi
-cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h. */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h. */
+ if test $succeeded = yes; then
+ HAVE_FC=yes
+ else
+ HAVE_FC=no
+ fi
- #include <X11/Xlib.h>
- #include <X11/Xresource.h>
-int
-main ()
-{
-XIMProc callback;
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext
-if { (ac_try="$ac_compile"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
- (eval "$ac_compile") 2>conftest.er1
- ac_status=$?
- grep -v '^ *+' conftest.er1 >conftest.err
- rm -f conftest.er1
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest.$ac_objext; then
- HAVE_XIM=yes
+ if test "${HAVE_FC}" = "no"; then
+ HAVE_FREETYPE=no
+ fi
+ fi
+fi
+if test "${HAVE_FREETYPE}" = "yes"; then
cat >>confdefs.h <<\_ACEOF
-#define HAVE_XIM 1
+#define HAVE_FREETYPE 1
_ACEOF
+ # Extract the first word of "libotf-config", so it can be a program name with args.
+set dummy libotf-config; ac_word=$2
+{ echo "$as_me:$LINENO: checking for $ac_word" >&5
+echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; }
+if test "${ac_cv_prog_HAVE_LIBOTF+set}" = set; then
+ echo $ECHO_N "(cached) $ECHO_C" >&6
else
- echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
+ if test -n "$HAVE_LIBOTF"; then
+ ac_cv_prog_HAVE_LIBOTF="$HAVE_LIBOTF" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+ IFS=$as_save_IFS
+ test -z "$as_dir" && as_dir=.
+ for ac_exec_ext in '' $ac_executable_extensions; do
+ if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
+ ac_cv_prog_HAVE_LIBOTF="yes"
+ echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5
+ break 2
+ fi
+done
+done
+IFS=$as_save_IFS
- HAVE_XIM=no
+ test -z "$ac_cv_prog_HAVE_LIBOTF" && ac_cv_prog_HAVE_LIBOTF="no"
+fi
+fi
+HAVE_LIBOTF=$ac_cv_prog_HAVE_LIBOTF
+if test -n "$HAVE_LIBOTF"; then
+ { echo "$as_me:$LINENO: result: $HAVE_LIBOTF" >&5
+echo "${ECHO_T}$HAVE_LIBOTF" >&6; }
+else
+ { echo "$as_me:$LINENO: result: no" >&5
+echo "${ECHO_T}no" >&6; }
fi
-
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-if test "${with_xim}" != "no"; then
+ if test "${HAVE_LIBOTF}" = "yes"; then
cat >>confdefs.h <<\_ACEOF
-#define USE_XIM 1
+#define HAVE_LIBOTF 1
_ACEOF
-fi
-
-
-if test "${HAVE_XIM}" != "no"; then
- late_CFLAGS=$CFLAGS
- if test "$GCC" = yes; then
- CFLAGS="$CFLAGS --pedantic-errors"
+ LIBOTF_CFLAGS=`libotf-config --cflags`
+ LIBOTF_LIBS=`libotf-config --libs`
fi
- cat >conftest.$ac_ext <<_ACEOF
-/* confdefs.h. */
-_ACEOF
-cat confdefs.h >>conftest.$ac_ext
-cat >>conftest.$ac_ext <<_ACEOF
-/* end confdefs.h. */
+fi
-#include <X11/Xlib.h>
-#include <X11/Xresource.h>
-int
-main ()
-{
-Display *display;
-XrmDatabase db;
-char *res_name;
-char *res_class;
-XIMProc callback;
-XPointer *client_data;
-#ifndef __GNUC__
-/* If we're not using GCC, it's probably not XFree86, and this is
- probably right, but we can't use something like --pedantic-errors. */
-extern Bool XRegisterIMInstantiateCallback(Display*, XrmDatabase, char*,
- char*, XIMProc, XPointer*);
-#endif
-(void)XRegisterIMInstantiateCallback(display, db, res_name, res_class, callback,
- client_data);
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.$ac_objext
-if { (ac_try="$ac_compile"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
- (eval "$ac_compile") 2>conftest.er1
- ac_status=$?
- grep -v '^ *+' conftest.er1 >conftest.err
- rm -f conftest.er1
- cat conftest.err >&5
- echo "$as_me:$LINENO: \$? = $ac_status" >&5
- (exit $ac_status); } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest.$ac_objext; then
- emacs_cv_arg6_star=yes
-else
- echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test "$emacs_cv_arg6_star" = yes; then
- cat >>confdefs.h <<\_ACEOF
-#define XRegisterIMInstantiateCallback_arg6 XPointer*
-_ACEOF
- else
- cat >>confdefs.h <<\_ACEOF
-#define XRegisterIMInstantiateCallback_arg6 XPointer
-_ACEOF
- fi
- CFLAGS=$late_CFLAGS
fi
### Use -lXpm if available, unless `--with-xpm=no'.
GTK_LIBS!$GTK_LIBS$ac_delim
XFT_CFLAGS!$XFT_CFLAGS$ac_delim
XFT_LIBS!$XFT_LIBS$ac_delim
+FREETYPE_CFLAGS!$FREETYPE_CFLAGS$ac_delim
+FREETYPE_LIBS!$FREETYPE_LIBS$ac_delim
+FONTCONFIG_CFLAGS!$FONTCONFIG_CFLAGS$ac_delim
+FONTCONFIG_LIBS!$FONTCONFIG_LIBS$ac_delim
+HAVE_LIBOTF!$HAVE_LIBOTF$ac_delim
+LIBOTF_CFLAGS!$LIBOTF_CFLAGS$ac_delim
+LIBOTF_LIBS!$LIBOTF_LIBS$ac_delim
ALLOCA!$ALLOCA$ac_delim
liblockfile!$liblockfile$ac_delim
LIBOBJS!$LIBOBJS$ac_delim
locallisppath!$locallisppath$ac_delim
lisppath!$lisppath$ac_delim
x_default_search_path!$x_default_search_path$ac_delim
-etcdir!$etcdir$ac_delim
-archlibdir!$archlibdir$ac_delim
-bitmapdir!$bitmapdir$ac_delim
-gamedir!$gamedir$ac_delim
-gameuser!$gameuser$ac_delim
-c_switch_system!$c_switch_system$ac_delim
-c_switch_machine!$c_switch_machine$ac_delim
_ACEOF
if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 97; then
ac_delim='%!_!# '
for ac_last_try in false false false false false :; do
cat >conf$$subs.sed <<_ACEOF
+etcdir!$etcdir$ac_delim
+archlibdir!$archlibdir$ac_delim
+bitmapdir!$bitmapdir$ac_delim
+gamedir!$gamedir$ac_delim
+gameuser!$gameuser$ac_delim
+c_switch_system!$c_switch_system$ac_delim
+c_switch_machine!$c_switch_machine$ac_delim
LD_SWITCH_X_SITE!$LD_SWITCH_X_SITE$ac_delim
LD_SWITCH_X_SITE_AUX!$LD_SWITCH_X_SITE_AUX$ac_delim
C_SWITCH_X_SITE!$C_SWITCH_X_SITE$ac_delim
LTLIBOBJS!$LTLIBOBJS$ac_delim
_ACEOF
- if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 8; then
+ if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 15; then
break
elif $ac_last_try; then
{ { echo "$as_me:$LINENO: error: could not make $CONFIG_STATUS" >&5
sed -e '1,/start of cpp stuff/d'\
-e 's,/\*\*/#\(.*\)$,/* \1 */,' \
< Makefile.c > junk.c
+ if test -f ${srcdir}/admin/unidata/UnicodeData.txt; then
+ CPPFLAGS="$CPPFLAGS -DHAVE_UNIDATA"
+ fi
$CPP $undefs -I. -I$srcdir/src $CPPFLAGS junk.c | \
sed -e 's/^ / /' -e '/^#/d' -e '/^[ \f]*$/d' > junk2.c
cat junk1.c junk2.c > Makefile.new
[ --with-gif use -lungif for displaying GIF images])
AC_ARG_WITH(png,
[ --with-png use -lpng for displaying PNG images])
+AC_ARG_WITH(freetype,
+[ --with-freetype use -lfreetype for local fonts support])
+AC_ARG_WITH(xft,
+[ --with-xft use -lXft for anti aliased fonts])
AC_ARG_WITH(gtk,
[ --with-gtk use GTK (same as --with-x-toolkit=gtk)])
AC_ARG_WITH(pkg-config-prog,
specify install directory for Emacs.app on Mac OS X]],
[ carbon_appdir_x=${enableval}])
+AC_ARG_ENABLE(font-backend,
+[ --enable-font-backend compile code of font-backend support],
+ USE_FONT_BACKEND=$enableval,
+ USE_FONT_BACKEND=no)
+
AC_ARG_ENABLE(asserts,
[ --enable-asserts compile code with asserts enabled],
USE_XASSERTS=$enableval,
machine=nh6000 opsys=powerunix
NON_GNU_CPP="cc -Xo -E -P"
;;
- ## SR2001/SR2201 running HI-UX/MPP
- hppa1.1-hitachi-hiuxmpp* )
- machine=sr2k opsys=hiuxmpp
- ;;
- hppa1.1-hitachi-hiuxwe2* )
- machine=sr2k opsys=hiuxwe2
- ;;
## Honeywell XPS100
xps*-honeywell-sysv* )
machine=xps100 opsys=usg5-2
esac
;;
- ## HP 9000 series 700 and 800, running HP/UX
- hppa*-hp-hpux7* )
- machine=hp800 opsys=hpux
- ;;
- hppa*-hp-hpux8* )
- machine=hp800 opsys=hpux8
- ;;
- hppa*-hp-hpux9shr* )
- machine=hp800 opsys=hpux9shr
- ;;
- hppa*-hp-hpux9* )
- machine=hp800 opsys=hpux9
- ;;
- hppa*-hp-hpux10.2* )
- machine=hp800 opsys=hpux10-20
- ;;
- hppa*-hp-hpux10* )
- machine=hp800 opsys=hpux10
- ;;
- hppa*-hp-hpux1[1-9]* )
- machine=hp800 opsys=hpux11
- CFLAGS="-D_INCLUDE__STDC_A1_SOURCE $CFLAGS"
- ;;
-
hppa*-*-linux-gnu* )
machine=hp800 opsys=gnu-linux
;;
- ## HP 9000 series 700 and 800, running HP/UX
- hppa*-hp-hpux* )
- ## Cross-compilation? Nah!
- case "`uname -r`" in
- ## Someone's system reports A.B8.05 for this.
- ## I wonder what other possibilities there are.
- *.B8.* ) machine=hp800 opsys=hpux8 ;;
- *.08.* ) machine=hp800 opsys=hpux8 ;;
- *.09.* ) machine=hp800 opsys=hpux9 ;;
- *) machine=hp800 opsys=hpux10 ;;
- esac
- ;;
hppa*-*-nextstep* )
machine=hp800 opsys=nextstep
;;
fi
fi
-### Link with -lXft if available to work around a bug.
-HAVE_XFT=maybe
-if test "${HAVE_GTK}" = "yes"; then
- dnl Check if --with-pkg-config-prog has been given.
- if test "X${with_pkg_config_prog}" != X; then
- PKG_CONFIG="${with_pkg_config_prog}"
- fi
-
- PKG_CHECK_MODULES(XFT, xft >= 0.13.0, , HAVE_XFT=no)
- if test "$HAVE_XFT" != no; then
- OLD_CFLAGS="$CPPFLAGS"
- OLD_CFLAGS="$CFLAGS"
- OLD_LIBS="$LIBS"
- CPPFLAGS="$CPPFLAGS $XFT_CFLAGS"
- CFLAGS="$CFLAGS $XFT_CFLAGS"
- LIBS="$XFT_LIBS $LIBS"
- AC_CHECK_HEADER(X11/Xft/Xft.h,
- AC_CHECK_LIB(Xft, XftFontOpen, HAVE_XFT=yes, , $XFT_LIBS))
-
- if test "${HAVE_XFT}" = "yes"; then
- AC_DEFINE(HAVE_XFT, 1, [Define to 1 if you have the Xft library.])
- AC_SUBST(XFT_LIBS)
- C_SWITCH_X_SITE="$C_SWITCH_X_SITE $XFT_CFLAGS"
- else
- CFLAGS="$OLD_CPPFLAGS"
- CFLAGS="$OLD_CFLAGS"
- LIBS="$OLD_LIBS"
- fi
- fi
-fi
-
dnl Do not put whitespace before the #include statements below.
dnl Older compilers (eg sunos4 cc) choke on it.
if test x"${USE_X_TOOLKIT}" = xmaybe; then
CFLAGS=$late_CFLAGS
fi
+### For font-backend
+if test "${USE_FONT_BACKEND}" = "yes"; then
+
+AC_DEFINE(USE_FONT_BACKEND, 1,
+ [Define to 1 if we should use font-backend.])
+
+### Use -lXft if available, unless `--with-freetype=no' nor `--with-xft=no'.
+HAVE_XFT=maybe
+if test "${HAVE_X11}" = "yes"; then
+ if test "x${with_freetype}" = "xno"; then
+ with_xft="no";
+ fi
+ if test "x${with_xft}" != "xno"; then
+
+ dnl Check if --with-pkg-config-prog has been given.
+ if test "X${with_pkg_config_prog}" != X; then
+ PKG_CONFIG="${with_pkg_config_prog}"
+ fi
+
+ PKG_CHECK_MODULES(XFT, xft >= 0.13.0, , HAVE_XFT=no)
+ if test "$HAVE_XFT" != no; then
+ OLD_CPPFLAGS="$CPPFLAGS"
+ OLD_CFLAGS="$CFLAGS"
+ OLD_LIBS="$LIBS"
+ CPPFLAGS="$CPPFLAGS $XFT_CFLAGS"
+ CFLAGS="$CFLAGS $XFT_CFLAGS"
+ LIBS="$XFT_LIBS $LIBS"
+ AC_CHECK_HEADER(X11/Xft/Xft.h,
+ AC_CHECK_LIB(Xft, XftFontOpen, HAVE_XFT=yes, , $XFT_LIBS))
+
+ if test "${HAVE_XFT}" = "yes"; then
+ AC_DEFINE(HAVE_XFT, 1, [Define to 1 if you have the Xft library.])
+ AC_SUBST(XFT_LIBS)
+ C_SWITCH_X_SITE="$C_SWITCH_X_SITE $XFT_CFLAGS"
+ else
+ CFLAGS="$OLD_CPPFLAGS"
+ CFLAGS="$OLD_CFLAGS"
+ LIBS="$OLD_LIBS"
+ fi
+ fi
+ fi
+fi
+
+HAVE_FREETYPE=no
+### Use -lfreetype if available, unless `--with-freetype=no'.
+if test "${HAVE_XFT}" = "yes"; then
+ dnl As we use Xft, we anyway use freetype.
+ dnl In this case, there's no need of additional CFLAGS and LIBS.
+ HAVE_FREETYPE=yes
+elif test "x${with_freetype}" != "xno"; then
+ dnl Check if --with-pkg-config-prog has been given.
+ if test "X${with_pkg_config_prog}" != X; then
+ PKG_CONFIG="${with_pkg_config_prog}"
+ fi
+
+ PKG_CHECK_MODULES(FREETYPE, freetype2, HAVE_FREETYPE=yes, HAVE_FREETYPE=no)
+ if test "${HAVE_FREETYPE}" = "yes"; then
+ PKG_CHECK_MODULES(FONTCONFIG, fontconfig, HAVE_FC=yes, HAVE_FC=no)
+ if test "${HAVE_FC}" = "no"; then
+ dnl Witout fontconfig, we can't use freetype at the moment.
+ HAVE_FREETYPE=no
+ fi
+ fi
+fi
+if test "${HAVE_FREETYPE}" = "yes"; then
+ AC_DEFINE(HAVE_FREETYPE, 1,
+ [Define to 1 if you have freetype and fontconfig libraries.])
+ AC_CHECK_PROG(HAVE_LIBOTF, libotf-config, yes, no)
+ if test "${HAVE_LIBOTF}" = "yes"; then
+ AC_DEFINE(HAVE_LIBOTF, 1,
+ [Define to 1 if you have libotf library.])
+ LIBOTF_CFLAGS=`libotf-config --cflags`
+ LIBOTF_LIBS=`libotf-config --libs`
+ fi
+fi
+AC_SUBST(FREETYPE_CFLAGS)
+AC_SUBST(FREETYPE_LIBS)
+AC_SUBST(FONTCONFIG_CFLAGS)
+AC_SUBST(FONTCONFIG_LIBS)
+AC_SUBST(LIBOTF_CFLAGS)
+AC_SUBST(LIBOTF_LIBS)
+
+fi
+
### Use -lXpm if available, unless `--with-xpm=no'.
HAVE_XPM=no
if test "${HAVE_X11}" = "yes"; then
sed -e '1,/start of cpp stuff/d'\
-e 's,/\*\*/#\(.*\)$,/* \1 */,' \
< Makefile.c > junk.c
+ if test -f ${srcdir}/admin/unidata/UnicodeData.txt; then
+ CPPFLAGS="$CPPFLAGS -DHAVE_UNIDATA"
+ fi
$CPP $undefs -I. -I$srcdir/src $CPPFLAGS junk.c | \
sed -e 's/^ / /' -e '/^#/d' -e '/^[ \f]*$/d' > junk2.c
cat junk1.c junk2.c > Makefile.new
When you add a new item, please add it without either +++ or ---
so we will look at it and add it to the manual.
+Fixme: The notes about Emacs 23 are quite incomplete.
+
+\f
+* Changes in Emacs 23.1
+
+** The Emacs character set is now a superset of Unicode.
+(It has about four times the code space, which should be plenty).
+
+The internal encoding used for buffers and strings is now
+Unicode-based and called `utf-8-emacs'. utf-8-emacs is backwards
+compatible with the UTF-8 encoding of Unicode. The `emacs-mule'
+coding system can still read and write data in the old internal
+encoding.
+
+There are still charsets which contain disjoint sets of characters
+where this is necessary or useful, especially for various Far Eastern
+sets which are problematic with Unicode.
+
+Since the internal encoding is also used by default for byte-compiled
+files -- i.e. the normal coding system for byte-compiled Lisp files is
+now utf-8-Emacs -- Lisp containing non-ASCII characters which is
+compiled by Emacs 23 can't be read by earlier versions of Emacs. Files
+compiled by Emacs 20, 21, or 22 are loaded correctly as emacs-mule
+(whether or not they contain multibyte characters), which makes loading
+them somewhat slower than Emacs 23-compiled files. Thus it may be worth
+recompiling existing .elc files which don't need to be shared with older
+Emacsen.
+
+** There are assorted new coding systems/aliases -- see
+M-x list-coding-systems.
+
+** New charset implementation with many new charsets.
+See M-x list-character-sets. New charsets can be defined conveniently
+as tables of unicodes.
+
+The dimension of a charset is now 0, 1, 2, or 3, and the size of each
+dimension is no longer limited to 94 or 96.
+
+Generic characters no longer exist.
+
+A dynamic charset priority list is used to infer the charset of
+unicodes for display &c.
+
+** The following facilities are obsolete:
+
+Minor modes: unify-8859-on-encoding-mode, unify-8859-on-decoding-mode
+
+\f
+* Lisp changes in Emacs 23.1
+
+map-char-table's behaviour has changed.
+
+New functions: characterp, max-char, map-charset-chars,
+define-charset-alias, primary-charset, set-primary-charset,
+unify-charset, clear-charset-maps, charset-priority-list,
+set-charset-priority, define-coding-system,
+define-coding-system-alias, coding-system-aliases, langinfo,
+string-to-multibyte.
+
+Changed functions: copy-sequence, decode-char, encode-char,
+set-fontset-font, new-fontset, modify-syntax-entry, define-charset,
+modify-category-entry
+
+Obsoleted: char-bytes, chars-in-region, set-coding-priority,
+char-valid-p
+
+\f
+* Incompatible Lisp changes
+
+Deleted functions: make-coding-system, register-char-codings,
+coding-system-spec
+
+** The character codes for characters from the
+eight-bit-control/eight-bit-graphic charsets aren't now in the range
+128-255.
\f
* Installation Changes in Emacs 22.1
---
** Support for GNU/Linux systems on X86-64 machines was added.
+ ---
+ ** Support for HP 9000 series 800 and Hitachi SR2001/SR2201 machines
+ was removed.
+
---
** Mac OS 9 port now uses the Carbon API by default. You can also
create non-Carbon build by specifying `NonCarbon' as a target. See
in compiling, installing and running GNU Emacs. Try doing Ctl-C Ctl-t
and browsing through the outline headers.
+* Mule-UCS doesn't work in Emacs 23.
+
+It's completely redundant now, as far as we know.
+
* Emacs startup failures
** Emacs fails to start, complaining about missing fonts.
package.
2) If the connection is very slow, you might also want to consider
- switching off scroll bars, menu bar, and tool bar.
+ switching off scroll bars, menu bar, and tool bar. Adding the
+ following forms to your .emacs file will accomplish that, but only
+ after the the initial frame is displayed:
+
+ (scroll-bar-mode -1)
+ (menu-bar-mode -1)
+ (tool-bar-mode -1)
+
+ For still quicker startup, put these X resources in your .Xdefaults
+ file:
+
+ Emacs.verticalScrollBars: off
+ Emacs.menuBar: off
+ Emacs.toolBar: off
3) Use ssh to forward the X connection, and enable compression on this
forwarded X connection (ssh -XC remotehostname emacs ...).
- # $Id: CCDOSPY.tit,v 1.4 2007/01/24 06:35:08 handa Exp $
+ # Header added for Emacs
+ #
+ # This file is included in the directory contrib/clients/cxterm of the
+ # distribution of X11R6. As the file itself does't contain copyright
+ # and license notices, the following statements in the section 6 of
+ # the file .../cxterm/README covers it.
+ #
+ # X11R6 CXTERM (C) 1994 BY YONGGUANG ZHANG.
+ # X11R5 CXTERM (C) 1991 BY YONGGUANG ZHANG AND MAN-CHI PONG.
+ #
+ # Permission to use, copy, modify, and distribute this software and
+ # its documentation for any purpose is hereby granted without fee,
+ # provided that this entire copyright and permission notice appear
+ # in all such copies, and that the name of the authors may not be
+ # used to endorse or promote products derived from this material
+ # without specific prior written permission. The authors make no
+ # representations about the suitability of this software for any
+ # purpose. It is provided "as is" without express or implied warranty.
+ #
+ # End of header added for Emacs
-# $Id: CCDOSPY.tit,v 1.2 1994/06/06 01:51:50 ygz Exp $
# HANZI input table for cxterm
# To be used by cxterm, convert me to .cit format first
# .cit version 2
- # $Id: SW.tit,v 1.4 2007/01/24 06:35:08 handa Exp $
+ # Header added for Emacs
+ #
+ # This file is included in the directory contrib/clients/cxterm of the
+ # distribution of X11R6. As the file itself does't contain copyright
+ # and license notices, the following statements in the section 6 of
+ # the file .../cxterm/README covers it.
+ #
+ # X11R6 CXTERM (C) 1994 BY YONGGUANG ZHANG.
+ # X11R5 CXTERM (C) 1991 BY YONGGUANG ZHANG AND MAN-CHI PONG.
+ #
+ # Permission to use, copy, modify, and distribute this software and
+ # its documentation for any purpose is hereby granted without fee,
+ # provided that this entire copyright and permission notice appear
+ # in all such copies, and that the name of the authors may not be
+ # used to endorse or promote products derived from this material
+ # without specific prior written permission. The authors make no
+ # representations about the suitability of this software for any
+ # purpose. It is provided "as is" without express or implied warranty.
+ #
+ # End of header added for Emacs
-# $Id: SW.tit,v 1.2 1994/06/06 01:53:09 ygz Exp $
# HANZI input table for cxterm
# To be used by cxterm, convert me to .cit format first
# .cit version 2
- # $Id: TONEPY.tit,v 1.4 2007/01/24 06:35:08 handa Exp $
+ # Header added for Emacs
+ #
+ # This file is included in the directory contrib/clients/cxterm of the
+ # distribution of X11R6. As the file itself does't contain copyright
+ # and license notices, the following statements in the section 6 of
+ # the file .../cxterm/README covers it.
+ #
+ # X11R6 CXTERM (C) 1994 BY YONGGUANG ZHANG.
+ # X11R5 CXTERM (C) 1991 BY YONGGUANG ZHANG AND MAN-CHI PONG.
+ #
+ # Permission to use, copy, modify, and distribute this software and
+ # its documentation for any purpose is hereby granted without fee,
+ # provided that this entire copyright and permission notice appear
+ # in all such copies, and that the name of the authors may not be
+ # used to endorse or promote products derived from this material
+ # without specific prior written permission. The authors make no
+ # representations about the suitability of this software for any
+ # purpose. It is provided "as is" without express or implied warranty.
+ #
+ # End of header added for Emacs
-# $Id: TONEPY.tit,v 1.2 1994/06/06 01:53:09 ygz Exp $
# HANZI input table for cxterm
# To be used by cxterm, convert me to .cit format first
# .cit version 2
-% Header added for Emacs
-%
-% This file is included in the free package called CCE. It is
-% available at:
-% http://ftp.debian.org/debian/dists/potato/main
-% /source/utils/cce_0.36.orig.tar.gz
-%
-% As the file itself doesn't contain copyright and license notices,
-% the following statements of the file cce/Copyright covers it.
-%
-% Copyright (C) 1999, Rui He, herui@cs.duke.edu
-%
-%
-% CCE(Console Chinese Environment) 0.32
-%
-% CCE 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 1, or (at your option) any later version.
-%
-% CCE 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
-% CCE; see the file COPYING. If not, write to the Free Software Foundation,
-% 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-%
-% End of header added for Emacs
-a \e$A0"0!:Gkg`Do9_9\e(B
-ai \e$A0.0'0$0-0#0)0,0&0+0%0(0*0/jSv0^_`Hh(fHoM`ImA\e(B
-an \e$A020804050603ZOwv0001bVhqpF07o'^nam[{\e(B
-ang \e$A0:090;\e(B
-ao \e$A0B0D0A0>0=0<0@0C[j`;^Vwifqw!0?a.bZe[iaqzfAr|vK\e(B
-ba \e$A0Q0K0I0M0V0U0N0H0E0T0P0G0L0O0S0J0RtNe1\X]CwIa10FnYvQ\e(B
-bai \e$A0Y0W0\0Z2.0]0X_Bj~^c0[0^\e(B
-ban \e$A0l0k0f0c0`0e0i0a0g0_0d0j0h0b0mZf[`q#nSt2q-\e(B
-bang \e$A0o0n0t0r0q0x0s0u0yd:0p0w0v]r\e(B
-bao \e$A1(1#0|1)1&1'1!0{1,1+1%1$FXEY0}1*1"0z]aqYf_lRp1v5u@\e(B
-bei \e$A1;1118131/121-16141.10]m19c#17_B1:pGXCZ}Zi[}mUqXvMw9]I15\e(B
-ben \e$A1>1<1?1=:;[NjZo<[P\e(B
-beng \e$A1@1B1A1D1Ej41C`T0v\e(B
-bi \e$A1H1X1J1O1R1\1U1G1K1F1Z1[1W1L1I1P1N1SX0h51V1]evswf>c91Te~e(niqTYBwB]I^5_YaybXouddt01Q_AfT1MjZn/])[}sYsk\EtEuO\j\e(B
-bian \e$A1`1c1_1d1i1g1f1a1^1h1b1em>\PXRcjrysVm\q9q[[Mv}bmlTgB\e(B
-biao \e$A1m1j1koZ1lftopqQh<l-q&wTl.f;l)w'\e(B
-bie \e$A1p1o1qu?1n\e(B
-bin \e$A1v1u1r1sw^gMik1tiD1wkwYOgcaYwFoY\e(B
-bing \e$A2"2!1x1y1}1{1z1|1~YwZ{^p\e(B
-bo \e$A2(2%2)2.2*1!2&240X0~2#2527212+22bDt$j~20uKmg2$2/2,2'23i^n`k"2-u@XCp>u[Yq`#\e(B
-bu \e$A2;2?2<2=29262@272>28FR_22:n_eMu3jNj3nP\e(B
-ca \e$A2A`jme\e(B
-cai \e$A2E2I2K2F2D2J2C2B2L2H2G\e(B
-can \e$A2N2M2P2R2S2Q2t2Oh2enfnwutS\e(B
-cang \e$A2X2T2V2W2UXw\e(B
-cao \e$A2]2Y2\2Z`P2[s)t=dn\e(B
-ce \e$A2_2b2`2^2ab|\e(B
-cen \e$A2Na/d9\e(B
-ceng \e$ATx2c2d`a\e(B
-cha \e$A2i2l2n2h2eI22f2o2g2jT{2m`jqCh>i+i6i_oo2koJb*bGcbf1\e(B
-chai \e$A2n2q2p2rnNY-r2p{\e(B
-chan \e$A2z2|2xlx2u2v2y2s2{2td}bcs8f?ZF2wb\ene$Yfup][fvjhobeq\e(B
-chang \e$A3$3!3#3*3'3"2}3&3%3)3+LH3(bjf=2~fOXvk)adjFvpcQ]E\I[Kc.\e(B
-chao \e$A3,3/3134333-303.4B32jKlLbwqi\e(B
-che \e$A353937363:38[em:\e(B
-chen \e$A3F3B3A3?3>3<3C3D3=3;Z_h!3@`AXw^SZHe7i4v3mW\e(B
-cheng \e$A3I3G3L3F3P3OJ"3K3J3E3M3N3Sn*3H`a3QnuX)3R[thGksnqqNu(h_rI\e(B
-chi \e$A3T3V3Y3_3`3b3X3U3]3[3\3a3W3^_j`M`43Zr?3csWk7_3bAuXp7q]ty[f\/\]sxYQfJs$a\mwwNq!\e(B
-chong \e$AVX3e3d3g3f3hc?bgt>\{t)o%\e(B
-chou \e$A3i3n3p3s3o3t3j3q3l3rc03k3mvEY1`|q,\e(B
-chu \e$A3v4&3}3u3~4%4"4!3xPs3y3w3{4#bp3zhF4$g)wmqRr\ui[;3|hzc@X!iK\e(B
-chuai \e$A4'`(u_`\kz^u\e(B
-chuan \e$A4+4)4(4,4.4-b6eWt-g]k04*nK\e(B
-chuang \e$A44404243414/bk\e(B
-chui \e$A4549464847Zoi3i"\e(B
-chun \e$A4:4?4=4@4<4>4;pHrm];\e(B
-chuo \e$A4B4A`(j!uVv:\e(B
-ci \e$A4K4N4J2n4L4G4H4E4M4IWH4D4Flt4C_ZpKtY\k\e(B
-cong \e$A4S4R4O4T4P4Qg}dHhH\Jfuh.\e(B
-cou \e$A4Ui(j#km\e(B
-cu \e$A4Y4V4X4WWdb'umu>a^ic]}u!\e(B
-cuan \e$AT\4\4[4Z_%oiY`l`\e(B
-cui \e$A4`4b4_4]4^]M4d4ac2h-v?4ck%iA_}\e(B
-cun \e$A4f4e4gbbqe\e(B
-cuo \e$A4m4k4j4l4i4hucosaOkbpnp{u:XHo1\e(B
-da \e$A4s4r4o4p4n4q`*m3^GqWw2sNw0brf'_Upc\e(B
-dai \e$A4z4x4}4w4|4t4{4~4u4ywl5!gia7eJ4v_>ffg*\$_0\e(B
-dan \e$A5+5%5#5/5-5)505(5.5$5"5,mq`"e#5'iislpwjfpcqu5*]L5&YY\e(B
-dang \e$A5153545552qInue4[J]PZTm8\e(B
-dao \e$A5=5@5<595:565?5A58575;_65>ba`|k.tn\e(B
-de \e$A5D5C5Bo=\e(B
-deng \e$A5H5G5F5K5J5I5E`bmcj-okt#aX\e(B
-di \e$A5X5ZLa5W5M5[5\5P5V5]5N5O5Y5L5Q5^5S`VZ.ZP5R[!m{5U5TmFf7i&]6tF[fh\jkw>X5g0oamZYa\e(B
-dia \e$A`G\e(B
-dian \e$A5c5g5j5d5_5i5m5f5n5a5l5k5`5bq2a[uZ5hght!Zg[c5endq0X<\e(B
-diao \e$A5w5t5u5q5s5v5r5puu5oo"nvvt\e(B
-die \e$A5y5x5~5|5z5}5{`)X}uZk:qsu^\&p,^i[lvx\e(B
-ding \e$A6(6)6%6!6"6$6&6#n.nzkktzXj6'p[`$g`mVqt\e(B
-diu \e$A6*n{\e(B
-dong \e$A6/6+6.6,64636-60_K6261k1mOp4a4[ma<kKkX\e(B
-dou \e$A6<6769666:6568q<]zr=s{6;\e(B
-du \e$A6<6A6H6@6>6=6I6G6E6C6B6D6J`=dBsFk96F6?wrwGh|\6s<\e(B
-duan \e$A6O6N6L6K6M6PlQi2s}\e(B
-dui \e$A6T6S6Q6RmTm-m!of\e(B
-dun \e$A6Y6\6V6X6W6[l@6]mocg6Z6Uu;ofmbm;\e(B
-duo \e$A6`6a6d6c6f6iub_M6e6_6g6h6bMT6^nlqV_ag6cuh^\e(B
-e \e$A6n6m6q6vE66l6sc56tX,6p6k_@6r6u6of96jinr&vyoIZLemo0cU[Qkq\CpJ]`]-\e(B
-ei \e$AZ@\e(B
-en \e$A6w^t]l\e(B
-er \e$A6x6~6y6{6zeG6|6}p9gmnov\7!Y&\e(B
-fa \e$A7"7(7#7&7%7'm@7$[R7)\e(B
-fan \e$A7479787-767273757,77717:7+7*a&hs7.l\^,n270^@7/ul\e(B
-fang \e$A7=7E7?7C7@7B7<7A7Da]7;7>t3nUvPZzhJ\e(B
-fei \e$A7G7Q7I7O7J7H7P7F7N7K7Lkhli7Mv-g3ezl3tdrcprdGc-vnsu\@atoPi<\e(B
-fen \e$A7V7]7W7\7_7[7U7R7X7Y7`7^7T7Zh{wwgc7SYGe/vw\e(B
-feng \e$A7g7b7a7e7h7f7j7n7l7o7m7k7d7c7iY:m?_t[:]Wcc\e(B
-fo \e$A7p\e(B
-fou \e$A7qs>\e(B
-fu \e$A7r8.7~84888:818#8;868>8=7p7y7|7{808/8!7v898'827t838%858(7w8&8)8+8?8@8,8$7}7s87\=8*fZ8-Yk7u7x8"8<7zhur]\@\^\r]3]Ja%bv^Tdfmkeutog&g(uClpmImjn7r6uFrp_;Yl[.o{fbjgp%rsvVv{\e(B
-ga \e$A?'^N8B8AT~Y$j8nEfXfY\e(B
-gai \e$A8D8C8E8GX$8Fj`8H[rZkj.\e(B
-gan \e$A8P8I8R8O8J8N8K^O8SiO8M8Q_&[a\U8Lcom7dwpat{dFg$j:\e(B
-gang \e$A8U8[8V8Z8Y8W?88\8T8Xn8m0s`\e(B
-gao \e$A8_8f8e8c8b8`8^8aX:iB^;gI8]8dZ>i@j=[,o/\e(B
-ge \e$A8v8o8w8h8q8g8j8t8p8n8s8l8i8m?)8k`Cw@r"RYk!kuoSf|qKXnX*\*[Y[At48umQr4\e(B
-gei \e$A8x\e(B
-gen \e$A8y8zX(t^_g]"\e(B
-geng \e$A8|9"8{>18}8~9#_lbYva9!g.\e(B
-gong \e$A9$9+929)9&9%9,919'9.9*9(9-90kE9/r<gnv!\e(B
-gou \e$A9;9:999795949693jmst98X~a8Z8w8sQh[e\fEgCl0\e(B
-gu \e$A9J9E9K9I9D9C9G9L9B9H9@9M9<9>9A9?9=ciioo@9Fhtp3l1p@k{n-n9n\u}w=]TrAXEZ,aDt~jvjtpsvq\e(B
-gua \e$A9R9O9N9Q_I9SXT9Pp;hikRZ4\e(B
-guai \e$A9V9T9U^b\e(B
-guan \e$A9X9[9\9Y9]9_9Z9a9^9`9W]8YDBZ^hnBdJw$pY\e(B
-guang \e$A9c9b9dan_[kWhf\e(B
-gui \e$A9f9i9s9m9p9r9q9l9e9n9t9j9h9kp'?~9o9gjPs~f#vYXPbQe3H2X[hmjAw,\e(B
-gun \e$A9v9wvgg5m^9uYr\e(B
-guo \e$A9z9}9{9x9y9|`~reqxYe^b[vk=_CaFb#i$rd\e(B
-ha \e$A9~8rn~\e(B
-hai \e$A;9:#:":&:Y?H:%:':!`Kk\u0:$\e(B
-han \e$A:::0:,:.:9:+:6:-:/:2:3:1:5:4:(:7:)jOe+w}q|c[:8r@lJr%]U^~Zu:*\e(B
-hang \e$APP:=Oo:<:;clq~g,gq\e(B
-hao \e$A:C:E:A:@:F:Dp):?j;:B:>]o:Qe08d`F`c^6e)r:r+\e(B
-he \e$A:M:N:O:S:H:U:KOE:X:P:G:L:I:W[V:R:VZ-:TcX`@:QjBr"[@nAf|rBtg:J\e(B
-hei \e$A:Z:Y`K\e(B
-hen \e$A:\:^:]:[\e(B
-heng \e$A:a:b:c:_:`^?gqhl\e(B
-hong \e$A:l:d:i:h:e:j:g:k:fc|cH^0Z'^.YjYd]&\e(B
-hou \e$A:s:raa:q:n:m:p:oeKtWw?\)pzssvW\e(B
-hu \e$A:u;$:t:z;':~:v;%:};":x:|;&c1d0;#:y;!:{`q:wuzlob)p@u-lflh_|sKgzdopIiulCY|a2bow=iNl2p-pWlN\e(B
-hua \e$A;0;*;/;(;.;-;,;)hk;+m9n|fh\e(B
-huai \e$A;3;5;2;4;1uW\e(B
-huan \e$A;6;;;9;7;:;<;C;=;B;@;>e>w_;Ad=[<;8gY;?oL[(]H`wd!_'b5dqeUvi\e(B
-huang \e$A;F;J;D;N;E;M;L;P;Qh+ae;I;K;Odj;Hs(eXZrkA;Gq%dRsrv|\e(B
-hui \e$A;a;X;c;S;T;R;];Y;Z;V;[;f;U;d;_;2;^;`;eZ6jMegwb;b\v;\\n`9;Wm#d'gu^%_\_Td+r3g@hmcDs3\e(B
-hun \e$A;i;l;j;h;kbF;gZ;dccTgu\e(B
-huo \e$A:M;r;n;p;q;u;o;v;s;t;mb7oAqkXenX_+^=`kols6\e(B
-ji \e$A<88x<:;z<G<0<F<4;y<C<-<6<+<D<J<<</<M;wFf<1<$<L<H;}<.<&<*<7<#<><E<(<2<"<@<)<I<A;x<'m6<!<5<%=e_4<9<=;|<K<,fw;{<;<3<Ba'<?sEuRq$X=Z5t_v+n?p"YJj*ozi._svjwY\y;~ji]pg\r1l4ij[TY%^a\8X"wd^*_RaU\AsG_bd)X@j+elX^uUgav]jejw\e(B
-jia \e$A<R<S<[<Y<\<W<Q<]<P<^<N<V<ZGQY.P.<Up(=D<Oglj)eHY$d$phkNsU<T]g<XoXXE[#^Xa5ahdPk8tBp}m"nrqJrLuJ\e(B
-jian \e$A<{<d<~=(<r<a<`<u=%<l=!<f=#<h<g<|<v<b<x<t<y<i<q<}="<p<z=&<e<s<w<n<_<j<k<c<mZIe?YT=']Qe@<omzo5=$k&vdw5]s^vZY`ndUgLhEj/j'jyqPsHteuBi%jppOklu]\e(B
-jiang \e$A=+=2G?=-=1=5=/=.=4=*=,=)=3jqgVg-=0qpmdd.tx\|t]\e(B
-jiao \e$A=L=;>uP#=P=O=G=E=9=>=<=N=A=@=:=I=J=H=7=C=?Y.=F==uSf/=Q=K=Dp(=6=M=8v^ahdPk8YUpTa=rT=B\4\z^X`]u4\e(B
-jie \e$A=g=b=S=a=Z=V=c=W=i=h=d=\=l=T=]=X=`=R=Y=_=e=^=k`5^Wf]mY=UZ5hn=fYJr!Z&p\=jf<tIvZr;w:`.\e(B
-jin \e$A=x=q=p=|>!=v=t={>"=r=o=w=u=n=z=m=~=sh*qf=ygF=}`djnbK]@qF]#b[f!ZajaiH\e(B
-jing \e$A>->)>+>3>/>9>2>*>0>4>&>5>:>;>.>6>'>#>$>1c=>8>(c~ZeYSl:>7eI>%kVkf]<>,b0kBerf:XYv&\e(B
-jiong \e$A>=><eDlgjA\e(B
-jiu \e$A>M>E>?>F>C>I>H>@>>>N>K>Btqp/>D>L`1>JpUcNYV>G>AhQhjw]\e(B
-ju \e$A>V>]>S>d>Y>_>g>^>[>\>c>`>e>U>P>X=[>T>O>W>ZvD>b>fl+tr^dua>aeaiYYF>Rv4epjxqUnR\ZvBw6i'Z*\Do8>Qi0\lh[i7q@u6h"\e(B
-juan \e$A>h>m>k>l>jvA>n>id8oToC[2azhpnC\e(B
-jue \e$A>u>x>v=E=@>r>waH>t>q>sb1`5XJuj>pZ\[G>o`ef^iS`YgehvXcl_oc^'u{\e(B
-jun \e$A>|>y>}?!>~>{vAs^>z?$?%?"weqd^\?#\e(B
-ka \e$A?(?'?&_GX{kL\e(B
-kai \e$A?*?.?-nx?+?,b}[n]\o4X\oGbi\e(B
-kan \e$A?4?/Y)?0?3?2<w?1n+mhc[](j,\e(B
-kang \e$A?9?5?6?8?;?:?7XxcJnV\e(B
-kao \e$A?<??nm?>?=j{h`ej\e(B
-ke \e$A?I?K?F?M?L?N?E?J?B:G?Cc!?H?A?D?G?@`>n'ipo}pbrrd[wAn]q=r$gfa3flg<k4o>rB\e(B
-ken \e$A?O?R?P?Qv8qL\e(B
-keng \e$A?S?To,\e(B
-kong \e$A?U?V?X?WYEaGsm\e(B
-kou \e$A?Z?[?Y?\_5^"mn\RsX\e(B
-ku \e$A?`?^?b?c?a?]?_w<XZ\%`7g+\e(B
-kua \e$A?d?g?e?f?hY(\e(B
-kuai \e$A;a?l?i?jkZXa_`?kavd+[&\e(B
-kuan \e$A?n?mwE\e(B
-kuang \e$A?v?q?s?r?u?t?p?o_QZwZ2^EZ?[[f~j\\e(B
-kui \e$A?w@"@#?z?}@!n%?xeS?{?|XQ?~`0qy?yX8Ygsq`-c&jRZs]^rqc4^quM\e(B
-kun \e$A@'@%@&@$voc'wUo?u+cMg{\e(B
-kuo \e$A@(@+@)@*hirR\e(B
-la \e$A@-@2@1@0@.@,@/X]eej9pxmG\e(B
-lai \e$A@4@5@3myq.t%abd5jco*aAd~\e(B
-lan \e$A@<@6@8@C@A@@@D@9@:@?@=i-@7@Bl5a0@;q\ogn=@>dm\e(B
-lang \e$A@K@G@J@I@H@Erk@F`%]9o6o|cO]u\e(B
-lao \e$A@O@M@N@L@Q@PAJ_k@S@R@Ta@plu2o)hannql\e(B
-le \e$AAK@V@U@__7cnw&Xl\e(B
-lei \e$A@`@a@[@W@Y@]@Z@^@_@\YzZ3@X`Oi[fPgPu*qg\e(B
-leng \e$A@dc6@c@b\(\e(B
-li \e$A@o@mA&@{A"@n@z@k@}@q@v@x@h@wA'@rA(sRA#@~@l@u@j@fA%@tA$@i@e@gv(n>]0le@pY5mB^<Y3r[ws[*A!h@eNf2n:fj@sw/`,p?fKs;X*vbc&[^\B@y^:_?`&a{d`e"h]iv]q@|gJp]p_rCo.svtOuHu7\e(B
-lia \e$AA)\e(B
-lian \e$AA*A,A3A7A5A/A+A.A6A1A4A2A0A-iggvi,qMqOs9vce%l!dr]|^F\e(B
-liang \e$AA=A?A<AAA>A:A)A9A8ABA;A@uT]9\.wKi#v&\e(B
-liao \e$AAKAOADAFAIAEANAHAMAJACALgTAGe<`ZnIb2pS^$^M\e(B
-lie \e$AAPARAQASAT_VtsY}d#^f[xuqw`\e(B
-lin \e$AAVAYAZAUA\AXwkA]A_A[AWuoA^aWj%i]e`tT]~cAn,_xl"b^\e(B
-ling \e$AAlAnAmAiAcAdAhAaAeAjAkA`Afqv`r@bAbta\_j2hyg1_JhZvl[9cvAgrH\e(B
-liu \e$AAyAtAwB=AuAoAxB5AvAqd/ArApe^AsoVfrg8o3l<lVvLpR\e(B
-long \e$AAzB!A}kJB#A|A{B"ggA~B$q*\WhPcq[bmC\e(B
-lou \e$AB%B*B)B'`6B(YMB&wCrwoN]daPqop|\e(B
-lu \e$AB7B=B<B,B6B3B/B9B5B.B+``B-B;j$B1B2B4crB8duB>s|iqpXB0B:vT_#hS[dkM^$dKp5eVh4i{iVoet5k*\e(B
-lv \e$ABIBCBLBJBGBDBEBBBFB?B@i5BK^[BAqZcLkvBHoy\e(B
-luan \e$ABRBQBMBNBOhovGf.BPp=Yu\e(B
-lue \e$ABTBSo2\e(B
-lun \e$AB[BVBWBYBXBU`pBZ\e(B
-luo \e$ABdB^BgBeB_BcBfB\B]B`Ba^{@S^[gsBbb$o]i!Y@Yy\}q'cxdpkamQvC\e(B
-m \e$A_<\e(B
-ma \e$ABmBpBhBkBiBnBoD(BjBls!_ih?aofV\e(B
-mai \e$ABrBtBsBqBuBvv2[=]$\e(B
-man \e$ABzB}B~B|ByBxBwB{r)C!\,a#r}w4w)gOlWo\\e(B
-mang \e$AC&C#C$C"C%C'r~Zxd]mK\e(B
-mao \e$AC+C0C(C3C,C1C2C)C/wVC.k#h#C*m.YsC-a9jss1cwjD\bl8rzn&\e(B
-me \e$AC4wa\e(B
-mei \e$AC;C@C?CCC<C7C=C6wHC:CAC9C5CDCBCSqGC8].aRi9dXb-oQd<pLC>\e(B
-men \e$ACGCECF^Qm/lKnM\e(B
-meng \e$ACNCICMCKk|COCH[BcBCJs7^+]ymfrlr5t;t?CL\e(B
-mi \e$AC\CWCXCTCVCUCYCPC[CR_dZWCZCSche5wgCQettMXBlrk_C]wc`W^Bb(ti\e(B
-mian \e$ACfCbC^C_CeC`CckoCaCddOcfmmv<dE\e(B
-miao \e$ACnChCkCmCgClCiCjgQm5g?_wmpecpEhB\e(B
-mie \e$ACpCosz_cX?s:\e(B
-min \e$ACqCtCuCvc}gkCsCrcI\ea:gEgdm*v<w*\e(B
-ming \e$AC{CwC|CyCzZ$\xdiu$n(jTCx\e(B
-miu \e$AC}gQ\e(B
-mo \e$AD,D*D#waD)D%C~D&D/D.D+D(D'D0:YD-D$]kD"\TbID!:QZSfFowoRibq"qruvux\e(B
-mou \e$AD3D1mxgQvJ_hY0rV\e(B
-mu \e$AD?D8D>D;D7D=DAD9D<D:D2D6DBD@D4ceD5Xo[i\Yk$nb\e(B
-n \e$A`E_m\e(B
-na \e$ADGDCDXDDDIDHDE^`DFoUkGqD\e(B
-nai \e$ADKDLDNDMDJ\5X>Y&]AhM\e(B
-nan \e$ADQDODPi*`+`o`nknrotv\e(B
-nang \e$ADR`lbN_-jY\e(B
-nao \e$ADTDVDUDSh'DW_Nb.nsX+mPrM[q\e(B
-ne \e$ADXZ+\e(B
-nei \e$ADZDY\e(B
-nen \e$AD[m%\e(B
-neng \e$AD\\e(B
-ng \e$A`E_m\e(B
-ni \e$ADcDXDaD`DfD_DdDbDeD]D^jGDgl;m~vr[hb%buY#lrm+nj\e(B
-nian \e$ADjDnX%U3DkDmDhDlDip$vsvSi}[~\e(B
-niang \e$ADoDp\e(B
-niao \e$ADqDrtAfU\`ke\e(B
-nie \e$ADsDyDtDuuf`?DvDwDxX?Zmr(t+^A\e(B
-nin \e$ADzm%\e(B
-ning \e$AD~D}E!E"_LD|D{Xzqw\Qe8\e(B
-niu \e$AE#E&E$f$E%^Vbnap\e(B
-nong \e$AE)E*E(Y/_fE'\e(B
-nou \e$Aqq\e(B
-nu \e$AE-E,E+esfef@f[\e(B
-nv \e$AE.nOm$t,\e(B
-nuan \e$AE/\e(B
-nue \e$AE0E1\e(B
-nuo \e$AE5E2E3E4_v^yYPo;\e(B
-o \e$AE6`^`8\e(B
-ou \e$AE7E<E9E;E8Z)j1E:E=qnbf\e(B
-pa \e$AEBE@EA0GE?E>EC]b0RhKnYsa\e(B
-pai \e$AEIEEEFEDEGEHY=]e__\e(B
-pan \e$AEPELENEQEOEKEJ^UugEMc]s4qaqHcz\e(B
-pang \e$AETESEVER0r0ua]s&dhEUeL\e(B
-pao \e$AE\EZEWE]E[EYEXaspekcbR^K\e(B
-pei \e$AEdEcE`EeEbEfEaE^E_u,oB`N`zl7v,\e(B
-pen \e$AEhEgdT\e(B
-peng \e$AEsEtEvEmEuEoEnErEkEjEqEiElbq\!s2`XEp\e(B
-pi \e$AEz7qF$F(E{F#1YF!F"F%F'E|F)EwF&q1E}E~Ey`hfG[/qTg"X'\1[\r7rguyZiZpExXr[}_(_AbOZ|qb\EhAn<dDnkj6n"\e(B
-pian \e$A1cF,F*F+F-tf1bjzZRudfigBk]\e(B
-piao \e$AF1F/F.F0fNn)ft`QXbs*gN]3ih\e(B
-pie \e$AF2F3k-X/\V\e(B
-pin \e$AF7F6F4F5F8^Uf0fIi/r-jr\e(B
-ping \e$AF=F@F?F>F<F9FAF;F:hRf3Y7vR\e(B
-po \e$AFFFHFDFEFB24FCFGFIgjXOj7n^sMnGZicx[6p+\e(B
-pou \e$AFJYv^e\e(B
-pu \e$AFUFLFKFSFWFVFOFQFM8,FYFPd_Yih1`[FTFRk+ohukode'FN\e(B
-qi \e$AFpFdFZFxF_FfF^FsFwF{FeFkFlFzFtFoF[FgFqF]F`F|FugwFrFmFaFyFjF\FclwFiFngyuhFvm,d?c`X=g2F}`Ra*]BY9h=\N\yjHiJq}\;a(l%hgtl]=rSr`tkw"wh^-FbXAfk]]Fh[_mS\e(B
-qia \e$AG!G"F~Y$qJ]VwD\e(B
-qian \e$AG0G.G'G)G7G#G3G1G(G+G2G8OKG6G,G4G&r/G/e9Y;G5G-^gc%\7gWm)]!\MZdY]e:e=kIG%G*jynTa)siw\G$c;h}\e(B
-qiang \e$AG9G=G@G;G:oOuDG<G>c^q_iIlAr^fMo:j(tGoj\e(B
-qiao \e$AGEGDGGGIGHGFGCGLGNGOGMGBGKuNc>iTGJGAZ=c8Z[\qa=gXmMw3Xd\e(B
-qie \e$AGPGRGTGSGQtrf*Fvc+Y$oFj|['sfc;\e(B
-qin \e$AGWGUGYGVGXGZG[G\G^q{G_G]`_^liUo7\K`:r{t@b[dZ_D\e(B
-qing \e$AGiGkG`GeGaGgGlGcGdGfGjGbs@r_m`v%\\`uiQwtvkGhsdtl\e(B
-qiong \e$AGnGmq7\dZvrKsLu<vF\e(B
-qiu \e$AGsGrGoGqGtGpGurGtCY4r0vzeOeYjdGvi1aldPrx[Ow|t\\e(B
-qu \e$AH%H!GxGzH$G|GwG}G~G{H"jovDa+PgrPaiGyq3tpcVlnmap6Z0s=[>^!^>H#\Dwqh3k,kT\e(B
-quan \e$AH+H(H&H0H*H/H-H.Z9H'rig9\un}H,w\izc*n0H)s\\e(B
-que \e$AH4H7H1H8H3H6H5cWcZH2m(\e(B
-qun \e$AH:H9eRwe\e(B
-ran \e$AH;H>H<H=wW\[rE\e(B
-rang \e$AHCHBHAH@H?p&l|\e(B
-rao \e$AHEHFHDf,hc\i\e(B
-re \e$AHHHG_v\e(B
-ren \e$AHKHNHOHLHJHMHPHRb?HIXpo~]X\sHQimqE\e(B
-reng \e$AHTHS\e(B
-ri \e$AHU\e(B
-rong \e$AH]HYHZHXH\H^H[iEHVaIHWH_k@rnau\e(B
-rou \e$AHbHaH`uew7t[\e(B
-ru \e$AHgHkHhHeHiHjHl`iHce&HdHfgHq`r,^8]jd2dao(\e(B
-ruan \e$AHmHnkC\e(B
-rui \e$AHpHq\Gn#^(hDHor8\e(B
-run \e$AHsHr\e(B
-ruo \e$AHtHuY<sh\e(B
-sa \e$AHwHvHxX&Xml*j}k[\e(B
-sai \e$AH|H{Hy`gHz\e(B
-san \e$AH}I"I!H~k'bLtVv1\e(B
-sang \e$AI%I#I$^zm_r*\e(B
-sao \e$AI(I'I)IRk}I&gXgRv~\#p~\e(B
-se \e$AI+H{I,I*XDo$p#\e(B
-sen \e$AI-\e(B
-seng \e$AI.\e(B
-sha \e$AI1I3I6I5OCI2I4I/I7I0v.`Dj}l&vh_~pptDo!\e(B
-shai \e$AI9I8u'\e(B
-shan \e$AI=IFIAI@I>I?IHIBI:I<IC2tIEU$Z(uGIGf)IDdzIIfS5'k~fs\O[oX_nL[7t.I;wTp^s5w-\e(B
-shang \e$AIOILIKIPIMidIQINu|lXIJg4[p\e(B
-shao \e$AIYI\IUITIWIZI[IRISIX\fGJd{[?h<IVrYsbt9\e(B
-she \e$AIgIhIaIfIdIcI`I_I]IbIeY\I^wjn4XGd\l(b&\e(B
-shei \e$AK-\e(B
-shen \e$AJ2ImInIq2NIuIjIsIrIlIwIxIpIvIkIt]7rW]XIodIorZ7IitVZEi)kO_S\e(B
-sheng \e$AIzIyJ!J$I}J%J"J#I|I~I{sOdEmraSjI\e(B
-shi \e$AJGJ1J.JBJ5J9J@JPJ6J<J?J&J+J=J'J7JSJ>J3JRJFJTJ/JMJ)JJJOJ;JNJ,J0JEJ*JDJ(JHJ4PjJ:JL3WVEJKJQJAixJ8JIJCJ-_1]i[u]*lBZVveu9j[nfs'sBs_vuu'\e(B
-shou \e$AJVJ\JUJWJZJXJ[J]JYJ^awg7t<\e(B
-shu \e$AJiJ}JuJtJdJwJvJlJxJpJbJfJeJsJhJgJcJmJaJnJzJqK!J{JkJ~J`SaJjJrJ_JoY?J|Jy[Sdxf-g#oxk(l/qb]DX-cp^skr\e(B
-shua \e$AK"K#`'\e(B
-shuai \e$ABJK%K$K&K's0\e(B
-shuan \e$AdLK(K)cE\e(B
-shuang \e$AK+K,K*fWcq\e(B
-shui \e$AK.K-K0K/\e(B
-shun \e$AK3K4K2K1\e(B
-shuo \e$AK5K7K6K8neey]tiC^w\e(B
-si \e$AKDK@K<K9K>KFK=K?KBK:KAXKK;KEKGKClkKHfap8Y9cact[LYnrO_Pf&dygAqjsSoH\e(B
-song \e$AKMKIKNKPKJKLKOc$KKbldA]?aBaTZ!q5\e(B
-sou \e$AKQKRKTKSbH^4`U[E`2dQl,oKn$rt\e(B
-su \e$AKUK_KYKXKWK`K^K\vUK]KVKZsyYm`<ZUK[c:d3]xv"\e(B
-suan \e$AKcKaKbb!\e(B
-sui \e$AKjKfKdKiKlKnKmKhedKkKeKgn!]4l]ZGmue!\e(B
-sun \e$AKoKpKq]%axb8i>v@\e(B
-suo \e$AKyKwKuKxKvKs`BKtj}f6m|_o`JKrtHhx\e(B
-ta \e$AK{K}K|L$K~Kzi=`*L#m3e]L"w#cKnhuAdpdbL!\e(B
-tai \e$AL+L(L,L)L'L%L-L&_>vX["^7L*fflFuLkDnQ\e(B
-tan \e$AL8L=5/L9L>L3L/L0L2L:L7L6L1L?q{L5l~L.L;L<e#L4j<ob[0oDnc\e(B
-tang \e$ALCLFL@LILGLKLHLLLJLELALDLBdgs+h)iLs%o&u1o[qmb<YN`{tJ\e(B
-tao \e$ALVLWLSLNLMLULRLTLOLQlb_{h:wRd,LPX;\e(B
-te \e$ALXl}_/m+o+\e(B
-tei \e$A_/\e(B
-teng \e$ALZL[LYL\kx\e(B
-ti \e$ALeLaLbLfL_L]LdLiLcL^LjLhLkLgc)u.g>pCL`\hYCg0eQqS\e(B
-tian \e$ALlLoLnLpLmLsLrLqndcYn1cCie^]\e(B
-tiao \e$ALu5wLxLtLvLwvfY,\fq;wXtPsTv6lvrh\e(B
-tie \e$ALzLyL{wQ]F\e(B
-ting \e$AL}M#M%L|M&M$fCM"M'n.v*M!nzrQ\phh]cL~\e(B
-tong \e$AM,M(M3M4M/M.M2M-M0M1M)M+Y!bzM*6261mE`LYZ[m\ma<d|\e(B
-tou \e$AM7M6M5M8nWw;\e(B
-tu \e$AMAM;M<M>M=M@M?MBMCM:M9]1u)nJ]K\"\e(B
-tuan \e$AMEMD^Rn6eh\e(B
-tui \e$AMFMKMHMJMGMI_/lU\e(B
-tun \e$AMLMMb=MJMN6Zk`jUY[\e(B
-tuo \e$AMPMQMOMWMXMSMUMYMVmHMTc{uI[gMRX1v>iRY"bUnhu"h^hXsj\e(B
-wa \e$AM_MZM`M^M[0<f4M\M]Xtkp\e(B
-wai \e$AMbMaaK\e(B
-wan \e$AMrMjMmMeMfMkMdMlMgMsMqMoMpMhrj]8n5X`McMnf}g~kdMi\9]Rg:\e(B
-wang \e$AM{MuMyMxM|MvMtMzMwM}c/Xh^Li~wM\e(B
-wei \e$AN*N;N4N/N,N6N'N@M~N"N0N=N(N#N?N2N%N:gbN5N1N7N8N9l?N$N)N!N3N.f8N-N>a!N<b+YK^1ptb,eT`xh8lPv[N&N+Zq[W`mZCZsaKd"]ZaMcGcmd6t:j&\e(B
-wen \e$ANDNJNENBNHNGNFNCv)NINAckXXcSh7\e(B
-weng \e$ANLNMNK]n^3\e(B
-wo \e$ANRNUNQNTdWNVNPNSNOa"`8YANN]+k?mRv;\e(B
-wu \e$AN^NeNoNqNdNgNhl6Ns6qNbN]NiNrNaN[NZNmNjNfNWNcNXN\NpN`NkNlX#_mNnN_pMNYe|pmpDbhe;fpZyjuwy[Xd4XuZc\LbPfDbdh;lIrZeCvH\e(B
-xi \e$ANwO5O"O#O2O/O0O8O7N|O4O'O!O$NvO&N~O.NtNuYbO*O6N{N}NzO1iXO(O%[-O,l{jX^ItKuh_qd@fRp*O+ac\ggtldO)tbs,eoO-d;YRq6raZtjjs#O3]>]_]{t8NytQNxu5l$w{l(b>cRlyt*\e(B
-xia \e$AOBODOEO?OCO@OAO<O9O>O:;#O=eZO;woh&_HarhTmLp}sA\e(B
-xian \e$AOVOHOTO_OUO^OXOJOWOPO\O]OMOIOSOLO[OFOROKf5ONOZOQOOOYuPe_a-a}r9sZuQ]2OGpBpoO3k/lltLY~^:u#\Hl^v1\e(B
-xiang \e$AOkO`OrOsOcOgOqOlOnOm=5OdOjOiOoOaOfOpOhObwOOebCfx]YbTv_\<g=s-\e(B
-xiao \e$AP!P&P#O{P'O~OzdlP$OtP"O|OwOyP%ePOuOvO}OxhIfgsosc_XhUg/wLrYaE\e(B
-xie \e$AP)P4P;P-P,P/P1P9P2P*P3P0P5P<P6P.P8P:YtP7YIebi?_"P(e,P+r![D^/[FusgSb3g%b]iGdM\e(B
-xin \e$APDPBPEP@PAP=\0vNP>PFj?PCP?l'obX6\e(B
-xing \e$APPPTPNPKPGPMPUPRPLPQPHPSc,PJPOPI\t_)\~b<mJZj\e(B
-xiong \e$AP[PVPXPWP\PYPZ\:\e(B
-xiu \e$AP^P]PcPdK^3tP_PeP`PbPa_]uww[bJbSp<a6de\e(B
-xu \e$APmPxPhPkPlPrPiPwSuPnPpPsPjPtPud0PfPqPvhrPgZ<qcPolcm9mltZu/go[Cd*dS[W^#\e(B
-xuan \e$AQ!P{P}P|H/PzPyP~lEdVQ$Q#]fdvjQh/ZNngYXpgcylSi8Q"m[^oo`\e(B
-xue \e$AQ'Q*Q)OwQ(ZJQ%Q&u=`em4w(\e(B
-xun \e$AQ0Q/Q5Q8Q6Q2Q7Q-Q.Q,Q+Q1;gQ3u8Yca_[w\wa>d-^9Q4[(jVq?b~b4d1v`^&?#\e(B
-ya \e$AQGQ9QEQ@Q=Q:QDQHQ;QFQ<QBQ>Q?QCT~pim}f+QAXsqba,gp[k^keBhbk2m<\e(B
-yan \e$AQ[QTQOQ]QPQLQiQSQXQZQUQaQWQ`QVQgQNQJQRQcQfQ^QIQMQ\QKQYQhY2i\QQQekglMjLQde{QbfLkYdNs[Q_XMwPwz\>YHwJcFaCXIX_b{cUYp[1g|n;[3Z]dYZgw|u&]N\e(B
-yang \e$AQyQsQtQkQnQxQoQvQrQwQzcsQuQlQmQjm&QqlHQpw1bsa`l>rU\e(B
-yao \e$AR*R!R)R+R#Q{Q|R&R'R"R%Q~R$X2kHQ}_:T?=DhCq:pNjWR(o"g[X3aftmw%griwaJ\e(B
-ye \e$AR2R5R9R/R6R0R3R:R.QJR7W'^^R-lGR1R,R4R8ZKZ~XLjJnt\e(B
-yi \e$AR;RTRbRQReRiR=RWRBRUR@RkRFRlRfR`RZRIRERdRKRNRARGRjRVRmRSR[0,RRRgRcI_RaR]RLRDisbyRO^DRPRnRCR_RoRM_WX}^HlZj]dtRheF_.\2_=fd_^R>l=RYpj^2`foWXWRJR\gKRXRHb"t`nFt/XfXnt}Y+[|Z1[]\hR<^ZaZbB`Ia;bxc(R?l%ilwp\SR^onpyq/q4rfmtth\e(B
-yin \e$ARrRtR}S!RxR~R{RuRvq+RwRzRsRyRpRqR|r>[s`3dNX7[4k3v/[_nwa~_Eb9\'v8d&\aq?\e(B
-ying \e$AS&S"S0S*S-S2S3S.S/S1S%S$S,S#S(S+b_S)]S]:s?e-i:S'r#YxpPgx\c`Sh,\~^|[+q(]vd^dkkt\e(B
-yo \e$AS4`!\e(B
-yong \e$ASCS@S5SBS?S;S>S9S6S=Y8S:SAp.S7g_o^S8[Uw+wS`/\-S<c<\e(B
-you \e$ASPSVSISQSNSRSMSESJSDSHSGSLSFSWSUSSwnX|_OSOhVvO],`swxSKXUi`k;npp`rDrvSTrxtm]/Y']5e6rJ^L\e(B
-yu \e$ASZSkSoS}S`SvS|Sjl6S{T$ShScSqSzSrS~SuSnT"T%S^S_V`StSwSpSiT#SdSmT!bESySbSfSeSa]Gh$SgT&SX^m`tZMS\SlSYX9S]X.ZDe}kiSxsDSsf%t'l#v9jlS[jElOlYl[q>ruaNa|XqY6t(`vbW]R]wb@cPewpuqAv'pvfzm2nZpApVrb\e(B
-yuan \e$AT1T*T-T:T6T8T0T4T2T9T5T.T)T,T(T7T3T'T/T+fBcdiZ\>k<s"v=ms`wp0sn\+[y^rh%\e(B
-yue \e$ATB@VT=T<TDT>T;TCT@TAT?k>e.h]iPY_na\e(B
-yun \e$ATKTFTJTOTNTPTHTLTMs^\?TETIg!ifc3k5aqlY[)c"j@h9TG\e(B
-za \e$ATSTzTRU&_FTQ^Y\e(B
-zai \e$ATZTYTXTVWPTWTUTTaLg^\e(B
-zan \e$AT[T^T]T\t"tXh6^YjCtuvI\e(B
-zang \e$A2XT`TaT_j0U`^Jf`\e(B
-zao \e$ATgTlTbTcThTnTjTkTdTfTmToTiTegX_p\e(B
-ze \e$ATrTpTsTqU&_uXFeEsPset7`}XSj>\e(B
-zei \e$ATt\e(B
-zen \e$ATuZZ\e(B
-zeng \e$ATvTyTwgUn@j5o-\e(B
-zha \e$AU(TzU&U)U'U#T|T}U$T~U"U%T{^jWui+_n_8U!mDw~_epdrF\e(B
-zhai \e$AU*U.U,U-U+U/5TmNq)\e(B
-zhan \e$AU=U9U>U<U4U6U7U3U5U8U0U@U:U?U2U1U;Z^^xl9\e(B
-zhang \e$A3$UEUBUIUFUGUJUOUKUMULUHUCh0s/UAUNUDaV[5b/Xka$fQ\e(B
-zhao \e$AWEURUUUP3/UTUYUVUWUQUXUSZ/nH_zh~sI\e(B
-zhe \e$AUbWEU_U[U\UcUZU^i|ZXUaU]q^pQU`m]_!rXtwhO\e(B
-zhen \e$AUfUsUrUpUkUd[ZUqUoUmUeUjUljbUgUispUnUhhegGn3itkSp!lud%dZ]hi)i;k^p2\e(B
-zheng \e$AU~U}V$U{UyUwUuV#V"UvagUtUzs]U|o#a?UxZ:vkn[V!\e(B
-zhi \e$AV.V;V*VAVFV1VNV8V'V>V0VBV5V/V=V9VJV4VGVCV7V&VHV2V<VMagVDVIV?V-V@V3V%V(V+V,VEV6VOV)V:VKVLek\FhNhWu\hd`yhYlmiyj^pkutX4ir[zZl[$mibeeifou%^}tjuEkyotp:kUrNuYlsv#\e(B
-zhong \e$AVPVVVXVZVUVSVRVTVWVYoqu`VQZ#blt1s.\e(B
-zhou \e$AV\V]V^V`V[VeVhVaVfVdVgVbVckPf{V_g'f(mX_z]'t&tmt|\e(B
-zhu \e$AVwW!W"VzVxVpVnVlW$ViW#VmV~VqVsVvVyVrV}VjVuVkXyVtV|d(VoqRnysgV{\olDunsChLtcd>dswfiFiM\QY*pqpf[%t6\e(B
-zhua \e$AW%W&\e(B
-zhuai \e$AW'`\\e(B
-zhuan \e$A4+W(W*W,W+W)W-_ybMr'\e(B
-zhuang \e$AW0W4W3W/W2W141W.^JYWm0\e(B
-zhui \e$AW7W9W:W6W8v?W5c7fmgD\e(B
-zhun \e$AW<W;q8kF\e(B
-zhuo \e$AWEW@W=W?WAWFWCW>WGe*WBWDm=omdClLd7Y>lzZB_*\e(B
-zi \e$AWSWTWVWJWIWOWLWPWKV(WHWNhwWUWQf"m'WRZQv7ov_Zj"oEmvsJwZWM\ku~v$g;qhvvaQj_f\tRtt\e(B
-zong \e$AW\WZW]WYW[WXtUWWYLkjhH\e(B
-zou \e$AW_W`W^WafcvmZAZn[8\e(B
-zu \e$AWiWcWeWfWbWhWdWgY^o_]O\e(B
-zuan \e$AW,Wj_,WkurgZ\e(B
-zui \e$AWnWoWlWm>Wu~^)\e(B
-zun \e$AWpWqiWw._$\e(B
-zuo \e$AWwWvWxWyWsWrWAWtTd4iWu`\btkQ_rsPZhlqu!\e(B
++% Header added for Emacs\r
++%\r
++% This file is included in the free package called CCE. It is\r
++% available at:\r
++% http://ftp.debian.org/debian/dists/potato/main\r
++% /source/utils/cce_0.36.orig.tar.gz\r
++%\r
++% As the file itself doesn't contain copyright and license notices,\r
++% the following statements of the file cce/Copyright covers it.\r
++%\r
++% Copyright (C) 1999, Rui He, herui@cs.duke.edu\r
++%\r
++%\r
++% CCE(Console Chinese Environment) 0.32\r
++%\r
++% CCE is free software; you can redistribute it and/or modify it under the\r
++% terms of the GNU General Public License as published by the Free Software\r
++% Foundation; either version 1, or (at your option) any later version.\r
++%\r
++% CCE is distributed in the hope that it will be useful, but WITHOUT ANY\r
++% WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS\r
++% FOR A PARTICULAR PURPOSE. See the GNU General Public License for more\r
++% details.\r
++%\r
++% You should have received a copy of the GNU General Public License along with\r
++% CCE; see the file COPYING. If not, write to the Free Software Foundation,\r
++% 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.\r
++%\r
++% End of header added for Emacs\r
+a °¢°¡ºÇëçàÄï¹ß¹\r
+ai °®°§°¤°°£°©°¬°¦°«°¥°¨°ª°¯êÓö°ÞßàÈè¨æÈïÍàÉíÁ\r
+an °²°¸°´°µ°¶°³ÚÏ÷ö°°°±âÖèñðÆ°·ï§ÞîáíÛû\r
+ang °º°¹°»\r
+ao °Â°Ä°Á°¾°½°¼°À°ÃÛêà»ÞÖ÷éæñ÷¡°¿á®âÚåÛéáñúæÁòüöË\r
+ba °Ñ°Ë°É°Í°Ö°Õ°Î°È°Å°Ô°Ð°Ç°Ì°Ï°Ó°Ê°ÒôÎå±ÜØÝÃ÷Éá±°ÆîÙöÑ\r
+bai °Ù°×°Ü°Ú²®°Ý°ØßÂêþÞã°Û°Þ\r
+ban °ì°ë°æ°ã°à°å°é°á°ç°ß°ä°ê°è°â°íÚæÛàñ£îÓô²ñ\r
+bang °ï°î°ô°ò°ñ°ø°ó°õ°ù亰ð°÷°öÝò\r
+bao ±¨±£°ü±©±¦±§±¡°û±¬±«±¥±¤ÆØÅÙ°ý±ª±¢°úÝáñÙæßìÒð±öµõÀ\r
+bei ±»±±±¸±³±¯±²±±¶±´±®±°Ýí±¹ã£±·ß±ºðÇØÃÚýÚéÛýíÕñØöÍ÷¹Ýɱµ\r
+ben ±¾±¼±¿±½º»ÛÎêÚï¼ÛÐ\r
+beng ±À±Â±Á±Ä±Åê´±ÃàÔ°ö\r
+bi ±È±Ø±Ê±Ï±Ò±Ü±Õ±Ç±Ë±Æ±Ú±Û±×±Ì±É±Ð±Î±ÓØ°èµ±Ö±Ýåöó÷æ¾ã¹±Ôåþå¨îéñÔÙÂ÷ÂÝÉÞµßÙáùâØïõääô°±ÑßÁæÔ±ÍêÚî¯Ý©ÛýóÙóëÜÅôÅõÏÜê\r
+bian ±à±ã±ß±ä±é±ç±æ±á±Þ±è±â±åí¾ÜÐØÒãêòùóÖíÜñ¹ñÛÛÍöýâíìÔçÂ\r
+biao ±í±ê±ëïÚ±ìæôïðñÑè¼ìñ¦÷Ôì®æ»ì©÷§\r
+bie ±ð±ï±ñõ¿±î\r
+bin ±ö±õ±ò±ó÷ÞçÍéë±ôéı÷ë÷ÙÏçãáÙ÷ÆïÙ\r
+bing ²¢²¡±ø±ù±ý±û±ú±ü±þÙ÷ÚûÞð\r
+bo ²¨²¥²©²®²ª±¡²¦²´°Ø°þ²£²µ²·²±²«²²âÄô¤êþ²°õËí粤²¯²¬²§²³éÞîà뢲õÀØÃð¾õÛÙñà£\r
+bu ²»²¿²¼²½²¹²¶²À²·²¾²¸ÆÒß²²ºîßåÍõ³êÎê³îÐ\r
+ca ²Áàêíå\r
+cai ²Å²É²Ë²Æ²Ä²Ê²Ã²Â²Ì²È²Ç\r
+can ²Î²Í²Ð²Ò²Ó²Ñ²ô²Ïè²åîæî÷õôÓ\r
+cang ²Ø²Ô²Ö²×²ÕØ÷\r
+cao ²Ý²Ù²Ü²ÚàвÛó©ô½äî\r
+ce ²ß²â²à²Þ²áâü\r
+cen ²Îá¯ä¹\r
+ceng Ôø²ã²äàá\r
+cha ²é²ì²î²è²åɲ²æ²ï²ç²êÔû²íàêñÃè¾é«é¶éßïï²ëïÊâªâÇãâæ±\r
+chai ²î²ñ²ð²òîÎÙò²ðû\r
+chan ²ú²ü²øìø²õ²ö²ù²ó²û²ôäýâãó¸æ¿ÚƲ÷âÜåîå¤ÙæõðÝÛæöêèïâåñ\r
+chang ³¤³¡³£³ª³§³¢²ý³¦³¥³©³«Ìȳ¨âêæ½²þæÏØöë©áäêÆöðãÑÝÅÜÉÛËã®\r
+chao ³¬³¯³±³´³³³³°³®´Â³²êËìÌâ÷ñé\r
+che ³µ³¹³·³¶³º³¸Ûåíº\r
+chen ³Æ³Â³Á³¿³¾³¼³Ã³Ä³½³»Úß衳ÀàÁØ÷ÞÓÚÈå·é´ö³í×\r
+cheng ³É³Ç³Ì³Æ³Ð³ÏÊ¢³Ë³Ê³Å³Í³Î³ÓÈàá³ÑîõØ©³ÒÛôèÇëóîññÎõ¨èßòÉ\r
+chi ³Ô³Ö³Ù³ß³à³â³Ø³Õ³Ý³Û³Ü³á³×³ÞßêàÍà´³Úò¿³ãó×ë·ß³âÁõØð·ñÝôùÛæܯÜÝóøÙÑæÊó¤áÜí÷÷Îñ¡\r
+chong Öسå³ä³ç³æ³èã¿âçô¾Üûô©ï¥\r
+chou ³é³î³ð³ó³ï³ô³ê³ñ³ì³òã°³ë³íöÅÙ±àüñ¬\r
+chu ³ö´¦³ý³õ³þ´¥´¢´¡³øÐó³ù³÷³û´£âð³úèÆ´¤ç©÷íñÒòÜõéÛ»³üèúãÀØ¡éË\r
+chuai ´§à¨õßàÜëúÞõ\r
+chuan ´«´©´¨´¬´®´â¶å×ôçÝë°´ªîË\r
+chuang ´´´°´²´³´±´¯âë\r
+chui ´µ´¹´¶´¸´·Úïé³é¢\r
+chun ´º´¿´½´À´¼´¾´»ðÈòíÝ»\r
+chuo ´Â´Áà¨ê¡õÖöº\r
+ci ´Ë´Î´Ê²î´Ì´Ç´È´Å´Í´É×È´Ä´Æìô´ÃßÚðËôÙÜë\r
+cong ´Ó´Ò´Ï´Ô´Ð´ÑçýäÈèÈÜÊæõè®\r
+cou ´Õé¨ê£ëí\r
+cu ´Ù´Ö´Ø´××äâ§õíõ¾áÞéãÝýõ¡\r
+cuan ÔÜ´Ü´Û´ÚߥïéÙàìà\r
+cui ´à´â´ß´Ý´ÞÝÍ´ä´áã²èö¿´ãë¥éÁßý\r
+cun ´æ´å´çââñå\r
+cuo ´í´ë´ê´ì´é´èõãïóáÏëâðîðûõºØÈï±\r
+da ´ó´ò´ï´ð´î´ñàªí³ÞÇñ×÷²óÎ÷°âòæ§ßÕðã\r
+dai ´ú´ø´ý´÷´ü´ô´û´þ´õ´ù÷쵡çéá·åÊ´öß¾ææçªÜ¤ß°\r
+dan µ«µ¥µ£µ¯µµ©µ°µ¨µ®µ¤µ¢µ¬íñà¢å£µ§ééóìð÷êæðãñõµªÝ̵¦ÙÙ\r
+dang µ±µ³µ´µµµ²ñÉîõå´ÛÊÝÐÚÔí¸\r
+dao µ½µÀµ¼µ¹µºµ¶µ¿µÁµ¸µ·µ»ß¶µ¾âáàüë®ôî\r
+de µÄµÃµÂï½\r
+deng µÈµÇµÆµËµÊµÉµÅàâíãêïëô£áØ\r
+di µØµÚÌáµ×µÍµÛµÜµÐµÖµÝµÎµÏµÙµÌµÑµÞµÓàÖÚ®ÚеÒÛ¡íûµÕµÔíÆæ·é¦Ý¶ôÆÛæèÜêë÷¾Øµç°ïáíÚÙá\r
+dia àÇ\r
+dian µãµçµêµäµßµéµíµæµîµáµìµëµàµâñ²áÛõÚµèçèô¡ÚçÛãµåîäñ°Ø¼\r
+diao µ÷µôµõµñµóµöµòµðõõµïï¢îööô\r
+die µùµøµþµüµúµýµûà©ØýõÚëºñóõÞܦð¬ÞéÛìöø\r
+ding ¶¨¶©¶¥¶¡¶¢¶¤¶¦¶£î®îúëëôúØ궧ðÛà¤çàíÖñô\r
+diu ¶ªîû\r
+dong ¶¯¶«¶®¶¬¶´¶³¶¶°ß˶²¶±ë±íÏð´á´Ûíá¼ëËëØ\r
+dou ¶¼¶·¶¹¶¶¶º¶µ¶¸ñ¼Ýúò½óû¶»\r
+du ¶¼¶Á¶È¶À¶¾¶½¶É¶Ç¶Å¶Ã¶Â¶Ä¶Êà½äÂóÆ빶ƶ¿÷ò÷Çèüܶó¼\r
+duan ¶Ï¶Î¶Ì¶Ë¶Í¶ÐìÑé²óý\r
+dui ¶Ô¶Ó¶Ñ¶ÒíÔíí¡ïæ\r
+dun ¶Ù¶Ü¶Ö¶Ø¶×¶ÛìÀ¶Ýíïãç¶Ú¶Õõ»ïæíâí»\r
+duo ¶à¶á¶ä¶ã¶æ¶éõâßͶå¶ß¶ç¶è¶âÍÔ¶ÞîìñÖßáç¶ãõèÞ\r
+e ¶î¶í¶ñ¶öŶ¶ì¶ó㵶ôج¶ð¶ëßÀ¶ò¶õ¶ï湶êéîò¦öùïÉÚÌåíï°ãÕÛÑëñÜÃðÊÝàÝ\r
+ei ÚÀ\r
+en ¶÷ÞôÝì\r
+er ¶ø¶þ¶ù¶û¶úåǶü¶ýð¹çíîïöÜ·¡Ù¦\r
+fa ·¢·¨·£·¦·¥·§íÀ·¤ÛÒ·©\r
+fan ·´·¹·¸··¶·²·³·µ·¬···±·º·«·ªá¦èó·®ìÜެ°ÞÀ·¯õì\r
+fang ·½·Å·¿·Ã·À·Â·¼·Á·ÄáÝ·»·¾ô³îÕöÐÚúèÊ\r
+fei ·Ç·Ñ·É·Ï·Ê·È·Ð·Æ·Î·Ë·Ìëèìé·Íöç³åúì³ôäòãðòäÇãöîóõÜÀáôïÐé¼\r
+fen ·Ö·Ý·×·Ü·ß·Û·Õ·Ò·Ø·Ù·à·Þ·Ô·Úèû÷÷çã·ÓÙÇå¯ö÷\r
+feng ·ç·â·á·å·è·æ·ê·î·ì·ï·í·ë·ä·ã·éÙºí¿ßôÛºÝ×ãã\r
+fo ·ð\r
+fou ·ñó¾\r
+fu ·ò¸®·þ¸´¸¸¸º¸±¸£¸»¸¶¸¾¸½·ð·ù·ü·û¸°¸¯¸¡·ö¸¹¸§¸²·ô¸³¸¥¸µ¸¨·÷¸¦¸©¸«¸¿¸À¸¬¸¤·ý·ó¸·Ü½¸ªæÚ¸Ùë·õ·ø¸¢¸¼·úèõòÝÜÀÜÞÜòݳÝÊá¥âöÞÔäæíëåõôïç¦ç¨õÃìðíÉíêî·ò¶õÆòðß»ÙìÛ®ïûæâêçð¥òóöÖöû\r
+ga ¿§Þθ¸ÁÔþÙ¤ê¸îÅæØæÙ\r
+gai ¸Ä¸Ã¸Å¸Çؤ¸Æêà¸ÈÛòÚëê®\r
+gan ¸Ð¸É¸Ò¸Ï¸Ê¸Î¸ËÞϸÓéϸ͸ÑߦÛáÜÕ¸Ìãïí·ä÷ðáôûäÆç¤êº\r
+gang ¸Õ¸Û¸Ö¸Ú¸Ù¸×¿¸¸Ü¸Ô¸Øî¸í°óà\r
+gao ¸ß¸æ¸å¸ã¸â¸à¸Þ¸áغéÂÞ»çɸݸäÚ¾éÀê½Û¬ï¯\r
+ge ¸ö¸ï¸÷¸è¸ñ¸ç¸ê¸ô¸ð¸î¸ó¸ì¸é¸í¿©¸ëàÃ÷Àò¢ÒÙë¡ëõïÓæüñËØîتܪÛÙÛÁô´¸õíÑò´\r
+gei ¸ø\r
+gen ¸ù¸úبôÞßçÝ¢\r
+geng ¸ü¹¢¸û¾±¸ý¸þ¹£ßìâÙöṡç®\r
+gong ¹¤¹«¹²¹©¹¦¹¥¹¬¹±¹§¹®¹ª¹¨¹¹°ëŹ¯ò¼çîö¡\r
+gou ¹»¹º¹¹¹·¹µ¹´¹¶¹³êíóô¹¸Øþá¸Ú¸÷¸óÑèÛåÜæÅçÃì°\r
+gu ¹Ê¹Å¹Ë¹É¹Ä¹Ã¹Ç¹Ì¹Â¹È¹À¹Í¹¼¹¾¹Á¹¿¹½ãééïïÀ¹Æèôð³ì±ðÀëûîî¹îÜõý÷½ÝÔòÁØÅÚ¬áÄôþêöêôðóöñ\r
+gua ¹Ò¹Ï¹Î¹ÑßɹÓØÔ¹Ðð»èéëÒÚ´\r
+guai ¹Ö¹Ô¹ÕÞâ\r
+guan ¹Ø¹Û¹Ü¹Ù¹Ý¹ß¹Ú¹á¹Þ¹à¹×ݸÙÄÂÚÞèîÂäÊ÷¤ðÙ\r
+guang ¹ã¹â¹äáîßÛë×èæ\r
+gui ¹æ¹é¹ó¹í¹ð¹ò¹ñ¹ì¹å¹î¹ô¹ê¹è¹ëð§¿þ¹ï¹çêÐóþæ£öÙØÐâÑå³È²ØÛèíêÁ÷¬\r
+gun ¹ö¹÷öççµíÞ¹õÙò\r
+guo ¹ú¹ý¹û¹ø¹ù¹üàþòåñøÙåÞâÛöë½ßÃáÆâ£é¤òä\r
+ha ¹þ¸òîþ\r
+hai »¹º£º¢º¦ºÙ¿Èº¥º§º¡àËëÜõ°º¤\r
+han ººº°º¬º®º¹º«º¶ºº¯º²º³º±ºµº´º¨º·º©êÏå«÷ýñüãÛº¸òÀìÊò¥ÝÕÞþÚõºª\r
+hang Ðк½Ïﺼº»ãìñþç¬çñ\r
+hao ºÃºÅºÁºÀºÆºÄ𩺿껺º¾ÝïºÑå°¸äàÆàãÞ¶å©òºò«\r
+he ºÍºÎºÏºÓºÈºÕºËÏźغкǺ̺ɺ×ÛÖºÒºÖÚºÔãØàÀºÑêÂò¢ÛÀîÁæüòÂôçºÊ\r
+hei ºÚºÙàË\r
+hen ºÜºÞºÝºÛ\r
+heng ºáºâºãºßºàÞ¿çñèì\r
+hong ºìºäºéºèºåºêºçºëºæãüãÈÞ°Ú§Þ®ÙêÙäݦ\r
+hou ºóºòááºñºîºíºðºïåËô×÷¿Ü©ðúóóö×\r
+hu ºõ»¤ºôºú»§ºþºö»¥ºý»¢ºøºü»¦ã±ä°»£ºù»¡ºûàñº÷õúìïâ©ðÀõìæìèßüóËçúäïðÉéõìÃÙüá²âï÷½éÎì²ðð×ìÎ\r
+hua »°»ª»¯»¨»®»»¬»©è뻫í¹îüæè\r
+huai »³»µ»²»´»±õ×\r
+huan »¶»»»¹»·»º»¼»Ã»½»Â»À»¾å¾÷ß»Áä½Û¼»¸çÙ»¿ïÌÛ¨ÝÈà÷ä¡ß§âµäñåÕöé\r
+huang »Æ»Ê»Ä»Î»Å»Í»Ì»Ð»Ñè«áå»É»Ë»Ïäê»Èó¨åØÚòëÁ»Çñ¥äÒóòöü\r
+hui »á»Ø»ã»Ó»Ô»Ò»Ý»Ù»Ú»Ö»Û»æ»Õ»ä»ß»²»Þ»à»åÚ¶êÍåç÷â»âÜö»ÜÜî๻×í£ä§çõÞ¥ßÜßÔä«ò³çÀèíãÄó³\r
+hun »é»ì»ê»è»ëâÆ»çÚ»äããÔçõ\r
+huo ºÍ»ò»î»ð»ñ»õ»ï»ö»ó»ô»íâ·ïÁñëØåîØß«Þ½àëïìó¶\r
+ji ¼¸¸ø¼º»ú¼Ç¼°¼Æ¼´»ù¼Ã¼¼¶¼«¼Ä¼Ê¼¼¼¯¼Í»÷Ææ¼±¼¤¼Ì¼È»ý¼®¼¦¼ª¼·¼£¼¾¼Å¼¨¼²¼¢¼À¼©¼É¼Á»ø¼§í¶¼¡¼µ¼¥½åß´¼¹¼½»ü¼Ë¼¬æ÷»û¼»¼³¼Â᧼¿óÅõÒñ¤Ø½Úµôßö«î¿ð¢ÙÊêªïúé®ßóöê÷ÙÜù»þêéÝðçÜò±ì´éêÛÔÙ¥Þáܸآ÷äÞªßÒáÕÜÁóÇßâä©ØÀê«åìØÞõÕçáöÝêåê÷\r
+jia ¼Ò¼Ó¼Û¼Ù¼Ü¼×¼Ñ¼Ý¼Ð¼Þ¼Î¼Ö¼ÚÇÑٮЮ¼Õð¨½Ä¼Ïçìê©åÈÙ¤ä¤ðèëÎóÕ¼ÔÝç¼ØïØØÅÛ£ÞØáµáèäÐë¸ôÂðýí¢îòñÊòÌõÊ\r
+jian ¼û¼ä¼þ½¨¼ò¼á¼à¼õ½¥¼ì½¡¼æ½£¼è¼ç¼ü¼ö¼â¼ø¼ô¼ù¼é¼ñ¼ý½¢¼ð¼ú½¦¼å¼ó¼÷¼î¼ß¼ê¼ë¼ã¼íÚÉå¿ÙÔ½§ÝÑåÀ¼ïíúïµ½¤ë¦öä÷µÝóÞöÚÙàîäÕçÌèÅê¯ê§êùñÐóÈôåõÂé¥êððÏëìõÝ\r
+jiang ½«½²Ç¿½½±½µ½¯½®½´½ª½¬½©½³êñçÖç½°ñðíää®ôøÜüôÝ\r
+jiao ½Ì½»¾õУ½Ð½Ï½Ç½Å½¹½¾½¼½Î½Á½À½º½É½Ê½È½·½Ã½¿Ù®½Æ½½õÓ毽ѽ˽Ä𨽶½Í½¸öÞáèäÐë¸ÙÕðÔá½òÔ½ÂÜ´ÜúÞØàÝõ´\r
+jie ½ç½â½Ó½á½Ú½Ö½ã½×½é½è½ä½Ü½ì½Ô½Ý½Ø½à½Ò½Ù½ß½å½Þ½ëàµÞ×æÝíÙ½ÕÚµèî½æÙÊò¡Ú¦ðܽêæ¼ôÉöÚò»÷ºà®\r
+jin ½ø½ñ½ð½ü¾¡½ö½ô½û¾¢½ò½ï½÷½õ½î½ú½í½þ½óèªñæ½ùçƽýàäêîâËÝÀñÆÝ£âÛæ¡ÚáêáéÈ\r
+jing ¾¾©¾«¾³¾¯¾¹¾²¾ª¾°¾´¾¦¾µ¾º¾»¾®¾¶¾§¾£¾¤¾±ã½¾¸¾¨ãþÚåÙÓ캾·åɾ¥ëÖëæݼ¾¬â°ëÂåòæºØÙö¦\r
+jiong ¾½¾¼åÄìçêÁ\r
+jiu ¾Í¾Å¾¿¾Æ¾Ã¾É¾È¾À¾¾¾Î¾Ë¾Âôñð¯¾Ä¾Ìà±¾ÊðÕãÎÙ־ǾÁèÑèê÷Ý\r
+ju ¾Ö¾Ý¾Ó¾ä¾Ù¾ß¾ç¾Þ¾Û¾Ü¾ã¾à¾å¾Õ¾Ð¾Ø½Û¾Ô¾Ï¾×¾Úöľâ¾æì«ôòÞäõá¾áåáéÙÙƾÒö´åðêøñÕîÒÜÚöÂ÷¶é§ÚªÜÄ︾Ñé°ÜìèÛé·ñÀõ¶è¢\r
+juan ¾è¾í¾ë¾ì¾êöÁ¾î¾éä¸ïÔïÃÛ²áúèðîÃ\r
+jue ¾õ¾ø¾ö½Å½À¾ò¾÷áȾô¾ñ¾óâ±àµØÊõê¾ðÚÜÛǾïàåæÞéÓàÙçåèöØãìßïãÞ§õû\r
+jun ¾ü¾ù¾ý¿¡¾þ¾ûöÁóÞ¾ú¿¤¿¥¿¢÷åñäÞÜ¿£\r
+ka ¿¨¿§¿¦ßÇØûëÌ\r
+kai ¿ª¿®¿îø¿«¿¬âýÛîÝÜï´ØÜïÇâé\r
+kan ¿´¿¯Ù©¿°¿³¿²¼÷¿±î«íèãÛݨê¬\r
+kang ¿¹¿µ¿¶¿¸¿»¿º¿·ØøãÊîÖ\r
+kao ¿¼¿¿îí¿¾¿½êûèàåê\r
+ke ¿É¿Ë¿Æ¿Í¿Ì¿Î¿Å¿Ê¿ÂºÇ¿Ãã¡¿È¿Á¿Ä¿Ç¿Àà¾î§éðïýðâòòäÛ÷ÁîÝñ½ò¤çæá³æìç¼ë´ï¾òÂ\r
+ken ¿Ï¿Ò¿Ð¿Ñö¸ñÌ\r
+keng ¿Ó¿Ôï¬\r
+kong ¿Õ¿Ö¿Ø¿×ÙÅáÇóí\r
+kou ¿Ú¿Û¿Ù¿ÜßµÞ¢íîÜÒóØ\r
+ku ¿à¿Þ¿â¿ã¿á¿Ý¿ß÷¼ØÚÜ¥à·ç«\r
+kua ¿ä¿ç¿å¿æ¿èÙ¨\r
+kuai »á¿ì¿é¿êëÚØáßà¿ëáöä«Û¦\r
+kuan ¿î¿í÷Å\r
+kuang ¿ö¿ñ¿ó¿ò¿õ¿ô¿ð¿ïßÑÚ÷Ú²ÞÅÚ¿ÛÛæþêÜ\r
+kui ¿÷À¢À£¿ú¿ýÀ¡î¥¿øåÓ¿û¿üØÑ¿þà°ñù¿ùظÙçóñàã¦êÒÚóÝÞòñã´ÞñõÍ\r
+kun À§À¥À¦À¤öïã§÷Õï¿õ«ãÍçû\r
+kuo À¨À«À©ÀªèéòÒ\r
+la ÀÀ²À±À°À®À¬À¯ØÝååê¹ðøíÇ\r
+lai À´ÀµÀ³íùñ®ô¥áâäµêãïªáÁäþ\r
+lan À¼À¶À¸ÀÃÀÁÀÀÀÄÀ¹ÀºÀ¿À½éÀ·ÀÂìµá°À»ñÜïçî½À¾äí\r
+lang ÀËÀÇÀÊÀÉÀÈÀÅòëÀÆà¥Ý¹ï¶ïüãÏÝõ\r
+lao ÀÏÀÍÀÎÀÌÀÑÀÐÁÊßëÀÓÀÒÀÔáÀðìõ²ï©èáîîñì\r
+le ÁËÀÖÀÕÀßß·ãî÷¦Øì\r
+lei ÀàÀáÀÛÀ×ÀÙÀÝÀÚÀÞÀßÀÜÙúÚ³ÀØàÏéÛæÐçÐõªñç\r
+leng Àäã¶ÀãÀâܨ\r
+li ÀïÀíÁ¦ÀûÁ¢ÀîÀúÀëÀýÀñÀöÀøÀèÀ÷Á§ÀòÁ¨óÒÁ£ÀþÀìÀõÀêÀæÁ¥ÀôÁ¤ÀéÀåÀçö¨î¾Ý°ìåÀðÙµíÂÞ¼Ù³òÛ÷óÛªÁ¡èÀåÎæ²îºæêÀó÷¯à¬ð¿æËó»Øªöâã¦ÛÞÜÂÀù޺߿à¦áûäàå¢èÝéöÝñÀüçÊðÝðßòÃï®óöôÏõÈõ·\r
+lia Á©\r
+lian ÁªÁ¬Á³Á·ÁµÁ¯Á«Á®Á¶Á±Á´Á²Á°Áéççöé¬ñÍñÏó¹öãå¥ì¡äòÝüÞÆ\r
+liang Á½Á¿Á¼ÁÁÁ¾ÁºÁ©Á¹Á¸ÁÂÁ»ÁÀõÔݹܮ÷Ëé£ö¦\r
+liao ÁËÁÏÁÄÁÆÁÉÁÅÁÎÁÈÁÍÁÊÁÃÁÌçÔÁÇå¼àÚîÉâ²ðÓÞ¤ÞÍ\r
+lie ÁÐÁÒÁÑÁÓÁÔßÖôóÙýä£ÞæÛøõñ÷à\r
+lin ÁÖÁÙÁÚÁÕÁÜÁØ÷ëÁÝÁßÁÛÁ×õïÁÞá×ê¥éÝåàôÔÝþãÁî¬ßøì¢âÞ\r
+ling ÁìÁîÁíÁéÁãÁäÁèÁáÁåÁêÁëÁàÁæñöàòÀâÁâôáÜßê²èùç±ßÊèÚöìÛ¹ãöÁçòÈ\r
+liu ÁùÁôÁ÷½ÁõÁïÁøµÁöÁñä¯ÁòÁðåÞÁóïÖæòç¸ï³ì¼ìÖöÌðÒ\r
+long Áú¡ÁýëÊ£ÁüÁû¢ççÁþ¤ñªÜ×èÐãñÛâíÃ\r
+lou ¥ª©§à¶Â¨Ùͦ÷Ãò÷ïÎÝäáÐñïðü\r
+lu ·½¼¬¶³¯¹µ®«àà»ê¤Â±Â²Â´ãò¸äõ¾óüéñðØ°ºöÔߣèÓÛäëÍÞ¤äËðµåÖè´éûéÖïåôµëª\r
+lv ÂÉÂÃÂÌÂÊÂÇÂÄÂÅÂÂÂÆ¿ÂÀéµÂËÞÛÂÁñÚãÌëöÂÈïù\r
+luan ÂÒÂÑÂÍÂÎÂÏèïöÇæ®ÂÐð½Ùõ\r
+lue ÂÔÂÓï²\r
+lun ÂÛÂÖÂ×ÂÙÂØÂÕàðÂÚ\r
+luo ÂäÂÞÂçÂåÂßÂãÂæÂÜÂÝÂàÂáÞûÀÓÞÛçóÂââ¤ïÝé¡ÙÀÙùÜýñ§ãøäðëáíÑöÃ\r
+m \r
+ma ÂíÂðÂèÂëÂéÂîÂïĨÂêÂìó¡ßéè¿áïæÖ\r
+mai ÂòÂôÂóÂñÂõÂöö²Û½Ý¤\r
+man ÂúÂýÂþÂüÂùÂøÂ÷Âûò©Ã¡Ü¬á£òý÷´÷©çÏì×ïÜ\r
+mang æãäâåçòþÚøäÝíË\r
+mao ëðèóìñòéï÷Öîë£è£Ãªí®ÙóÃá¹êóó±ã÷êÄÜâì¸òúî¦\r
+me ̫և\r
+mei ûÃÀÿÃÃü÷ýö÷ÈúÃÁùõÃÄÃÂÃÓñÇøݮáÒé¹äØâïÑä¼ðÌþ\r
+men ÃÇÃÅÃÆÞÑí¯ìËîÍ\r
+meng ÃÎÃÉÃÍÃËëüÃÏÃÈÛÂãÂÃÊó·Þ«Ýùíæòìòµô»ô¿ÃÌ\r
+mi ÃÜÃ×ÃØÃÔÃÖÃÕÃÙÃÐÃÛÃÒßäÚ×ÃÚÃÓãèåµ÷çÃÑåôôÍØÂìòëßÃÝ÷ãà×ÞÂâ¨ôé\r
+mian ÃæÃâÃÞÃßÃåÃàÃãëïÃáÃääÏãæííö¼äÅ\r
+miao ÃîÃèÃëÃíÃçÃìÃéÃêçÑíµç¿ß÷íðåãðÅèÂ\r
+mie ÃðÃïóúßãØ¿óº\r
+min ÃñÃôÃõÃöãýçëÃóÃòãÉÜåáºçÅçäíªö¼÷ª\r
+ming ÃûÃ÷ÃüÃùÃúÚ¤Üøäéõ¤î¨êÔÃø\r
+miu ÃýçÑ\r
+mo ĬĪģ÷áÄ©Ä¥ÃþĦįĮīĨħݺÙÄĤÝëÄ¢ÜÔâÉÄ¡ºÑÚÓæÆï÷ïÒéâñ¢ñòõöõø\r
+mou ijıíøçÑöÊßèÙ°òÖ\r
+mu ĿĸľĻķĽÄÁĹļĺIJĶÄÂÄÀÄ´ãåĵØïÛéÜÙë¤îâ\r
+n àÅßí\r
+na ÄÇÄÃÄØÄÄÄÉÄÈÄÅÞàÄÆïÕëÇñÄ\r
+nai ÄËÄÌÄÎÄÍÄÊܵؾ٦ÝÁèÍ\r
+nan ÄÑÄÏÄÐéªà«àïàîëîòïôö\r
+nang ÄÒàìâÎßêÙ\r
+nao ÄÔÄÖÄÕÄÓè§Ä×ßÎâ®îóØ«íÐòÍÛñ\r
+ne ÄØÚ«\r
+nei ÄÚÄÙ\r
+nen ÄÛí¥\r
+neng ÄÜ\r
+ng àÅßí\r
+ni ÄãÄØÄáÄàÄæÄßÄäÄâÄåÄÝÄÞêÇÄçì»íþöòÛèâ¥âõÙ£ìòí«îê\r
+nian ÄêÄîØ¥Õ³ÄëÄíÄèÄìÄéð¤öóöÓéýÛþ\r
+niang ÄïÄð\r
+niao ÄñÄòôÁæÕÜàëå\r
+nie ÄóÄùÄôÄõõæà¿ÄöÄ÷ÄøØ¿Úíò¨ô«ÞÁ\r
+nin Äúí¥\r
+ning ÄþÄýÅ¡Å¢ßÌÄüÄûØúñ÷ÜÑå¸\r
+niu ţŦŤæ¤Å¥ÞÖâîáð\r
+nong ũŪŨٯßæŧ\r
+nou ññ\r
+nu ÅŬūåóæåæÀæÛ\r
+nv Å®îÏí¤ô¬\r
+nuan ů\r
+nue Űű\r
+nuo ŵŲųŴßöÞùÙÐï»\r
+o ŶàÞà¸\r
+ou ŷżŹŻŸکê±ÅºÅ½ñîâæ\r
+pa ÅÂÅÀÅÁ°ÇſžÅÃÝâ°ÒèËîÙóá\r
+pai ÅÉÅÅÅÆÅÄÅÇÅÈÙ½Ýåßß\r
+pan ÅÐÅÌÅÎÅÑÅÏÅËÅÊÞÕõçÅÍãÝó´ñáñÈãú\r
+pang ÅÔÅÓÅÖÅÒ°ò°õáÝó¦äèÅÕåÌ\r
+pao ÅÜÅÚÅ×ÅÝÅÛÅÙÅØáóðåëãâÒÞË\r
+pei ÅäÅãÅàÅåÅâÅæÅáÅÞÅßõ¬ïÂàÎàúì·ö¬\r
+pen ÅèÅçäÔ\r
+peng ÅóÅôÅöÅíÅõÅïÅîÅòÅëÅêÅñÅéÅìâñÜ¡ó²àØÅð\r
+pi Åú·ñƤƨÅûÆ£±ÙơƢƥƧÅüÆ©Å÷Ʀñ±ÅýÅþÅùàèæÇÛ¯ñÔç¢Ø§Ü±ÛÜò·òçõùÚéÚðÅøØòÛýߨßÁâÏÚüñâÜÅèÁî¼äÄîëê¶î¢\r
+pian ±ãƬƪƫÆôæ±âêúÚÒõäæéçÂëÝ\r
+piao ƱƯƮưæÎî©æôàÑØâóªçÎݳéè\r
+pie ƲƳëدÜÖ\r
+pin ƷƶƴƵƸÞÕæ°æÉé¯òêò\r
+ping ƽÆÀƿƾƼƹÆÁƻƺèÒæ³Ù·öÒ\r
+po ÆÆÆÈÆÄÆÅƲ´ÆÃÆÇÆÉçêØÏê·îÞóÍîÇÚéãøÛ¶ð«\r
+pou ÆÊÙöÞå\r
+pu ÆÕÆÌÆËÆÓÆ×ÆÖÆÏÆÑÆ͸¬ÆÙÆÐäßÙéè±àÛÆÔÆÒë«ïèõëïäå§ÆÎ\r
+qi ÆðÆäÆÚÆøÆßÆæÆÞÆóÆ÷ÆûÆåÆëÆìÆúÆôÆïÆÛÆçÆñÆÝÆàÆüÆõç÷ÆòÆíÆáÆùÆêÆÜÆãì÷ÆéÆîçùõèÆöí¬ä¿ãàؽç²ÆýàÒáªÝÂÙ¹è½ÜÎÜùêÈéÊñýÜ»á¨ì¥èçôìݽòÓòàôë÷¢÷èÞÆâØÁæëÝÝÆèÛßíÓ\r
+qia Ç¡Ç¢ÆþÙ¤ñÊÝÖ÷Ä\r
+qian ǰǮǧǩǷǣdzDZǨǫDzǸÏËǶǬǴǦò¯Ç¯å¹Ù»ÇµÇÞçã¥Ü·ç×í©Ý¡ÜÍÚäÙÝåºå½ëÉǥǪêùîÔá©óé÷ÜǤã»èý\r
+qiang ǹǽÇÀǻǺïÏõÄǼǾãÞñßéÉìÁòÞæÍïºê¨ôÇïê\r
+qiao ÇÅÇÄÇÇÇÉÇÈÇÆÇÃÇÌÇÎÇÏÇÍÇÂÇËõÎã¾éÔÇÊÇÁÚ½ã¸ÚÛÜñá½çØíÍ÷³Øä\r
+qie ÇÐÇÒÇÔÇÓÇÑôòæªÆöã«Ù¤ïÆêüÛ§óæã»\r
+qin Ç×ÇÕÇÙÇÖÇØÇÚÇÛÇÜÇÞñûÇßÇÝàßÞìéÕï·ÜËàºòûôÀâÛäÚßÄ\r
+qing ÇéÇëÇàÇåÇáÇçÇìÇãÇäÇæÇêÇâóÀòßíàö¥ÜÜàõéÑ÷ôöëÇèóäôì\r
+qiong ÇîÇíñ·ÜäÚöòËóÌõ¼öÆ\r
+qiu ÇóÇòÇïÇñÇôÇðÇõòÇôÃÙ´ò°öúåÏåÙêäÇöé±áìäÐòøÛÏ÷üôÜ\r
+qu ȥȡÇøÇúȤÇüÇ÷ÇýÇþÇûÈ¢êïöÄá«ÐçòÐáéÇùñ³ôðãÖìîíáð¶Ú°ó½Û¾Þ¡Þ¾È£ÜÄ÷ñè³ë¬ëÔ\r
+quan ȫȨȦȰȪȯÈȮڹȧòéç¹ÜõîýȬ÷Üéúãªî°È©óÜ\r
+que ȴȷȱȸȳȶȵã×ãÚȲí¨\r
+qun ȺȹåÒ÷å\r
+ran ȻȾȼȽ÷×ÜÛòÅ\r
+rang ÈÃÈÂÈÁÈÀÈ¿ð¦ìü\r
+rao ÈÅÈÆÈÄæ¬èãÜé\r
+re ÈÈÈÇßö\r
+ren ÈËÈÎÈÏÈÌÈÊÈÍÈÐÈÒâ¿ÈÉØðïþÝØÜóÈÑéíñÅ\r
+reng ÈÔÈÓ\r
+ri ÈÕ\r
+rong ÈÝÈÙÈÚÈØÈÜÈÞÈÛéÅÈÖáÉÈ×ÈßëÀòîáõ\r
+rou ÈâÈáÈàõå÷·ôÛ\r
+ru ÈçÈëÈèÈåÈéÈêÈìàéÈãå¦ÈäÈæçÈñàò¬Þ¸Ýêä²äáï¨\r
+ruan ÈíÈîëÃ\r
+rui ÈðÈñÜÇî£Þ¨èÄÈïò¸\r
+run ÈóÈò\r
+ruo ÈôÈõÙ¼óè\r
+sa È÷ÈöÈøئØíìªêýëÛ\r
+sai ÈüÈûÈùàçÈú\r
+san ÈýɢɡÈþë§âÌôÖö±\r
+sang ɥɣɤÞúíßòª\r
+sao ɨɧɩÉÒëýɦçØçÒöþÜ£ðþ\r
+se É«ÈûɬɪØÄï¤ð£\r
+sen ɭ\r
+seng ɮ\r
+sha ɱɳɶɵÏÃɲɴɯɷɰö®àÄêýì¦öèßþððôÄï¡\r
+shai ɹɸõ§\r
+shan ɽÉÆÉÁÉÀɾɿÉÈÉÂɺɼÉòôÉÅÕ¤Ú¨õÇÉÇæ©ÉÄäúÉÉæÓµ§ëþæóÜÏÛïØßîÌÛ·ô®É»÷ÔðÞóµ÷\r
+shang ÉÏÉÌÉËÉÐÉÍéäÉÑÉÎõüìØÉÊç´Ûð\r
+shao ÉÙÉÜÉÕÉÔÉ×ÉÚÉÛÉÒÉÓÉØÜæÇÊäûÛ¿è¼ÉÖòÙóâô¹\r
+she ÉçÉèÉáÉæÉäÉãÉàÉßÉÝÉâÉåÙÜÉÞ÷êî´ØÇäÜì¨â¦\r
+shei ˭\r
+shen ʲÉíÉîÉñ²ÎÉõÉêÉóÉòÉìÉ÷ÉøÉðÉöÉëÉôÝ·ò×ÝØÉïäÉïòÚ·ÉéôÖÚÅé©ëÏßÓ\r
+sheng ÉúÉùʡʤÉýʥʢʣÉüÉþÉûóÏäÅíòáÓêÉ\r
+shi ÊÇʱʮÊÂʵʹÊÀÊÐʶʼʿʦʫʽʧʷÊÓʾʳÊÒÊÆÊÔʯÊÍÊ©ÊÊÊÏÊ»ÊÎʬʰÊÅʪÊÄʨÊÈÊ´ÐêʺÊ̳×ÖÅÊËÊÑÊÁéøʸÊÉÊÃÊß±ÝéÛõݪìÂÚÖöåõ¹êÛîæó§óÂóßöõõ§\r
+shou ÊÖÊÜÊÕÊ×ÊÚÊØÊÛÊÝÊÙÊÞá÷ç·ô¼\r
+shu ÊéÊýÊõÊôÊäÊ÷ÊöÊìÊøÊðÊâÊæÊåÊóÊèÊçÊãÊíÊáÊîÊúÊñË¡ÊûÊëÊþÊàÓáÊêÊòÊßÊïÙ¿ÊüÊùÛÓäøæç£ïøë¨ì¯ñâÝÄØãðÞóëò\r
+shua ˢˣà§\r
+shuai ÂÊ˥ˤ˦˧ó°\r
+shuan äÌ˨˩ãÅ\r
+shuang ˫ˬ˪æ×ãñ\r
+shui ˮ˭˰˯\r
+shun ˳˴˲˱\r
+shuo ˵˷˶˸îååùÝôéÃÞ÷\r
+si ËÄËÀ˼˹˾ËÆ˽˿ËÂ˺ËÁØËË»ËÅËÇËÃìëËÈæáð¸Ù¹ãáãôÛÌÙîòÏßÐæ¦äùçÁñêóÓïÈ\r
+song ËÍËÉËÎËÐËÊËÌËÏã¤ËËâìäÁÝ¿áÂáÔÚ¡ñµ\r
+sou ËÑËÒËÔËÓâÈÞ´àÕÛÅà²äÑì¬ïËî¤òô\r
+su ËÕËßËÙËØË×ËàËÞËÜöÕËÝËÖËÚóùÙíà¼ÚÕËÛãºä³Ýøö¢\r
+suan ËãËáËââ¡\r
+sui ËêËæËäËéËìËîËíËèåäËëËåËçî¡Ý´ìÝÚÇíõå¡\r
+sun ËïËðËñÝ¥áøâ¸é¾öÀ\r
+suo ËùË÷ËõËøËöËóàÂËôêýæ¶íüßïàÊËòôÈèø\r
+ta ËûËýËṳ̈ËþËúé½àªÌ£í³åÝÌ¢÷£ãËîèõÁäðäâÌ¡\r
+tai ̨̧̫̬̩̥Ì̦߾öØۢ޷̪ææìÆõÌëÄîÑ\r
+tan ̸̽µ¯Ì¹Ì¾Ì³Ì¯Ì°Ì²ÌºÌ·Ì¶Ì±Ì¿ñû̵ìþ̮̻̼å£Ì´ê¼ïâÛ°ïÄîã\r
+tang ÌÃÌÆÌÀÌÉÌÇÌËÌÈÌÌÌÊÌÅÌÁÌÄÌÂäçó«è©éÌó¥ï¦õ±ïÛñíâ¼ÙÎàûôÊ\r
+tao ÌÖÌ×ÌÓÌÎÌÍÌÕÌÒÌÔÌÏÌÑìâßûèº÷Òä¬ÌÐØ»\r
+te ÌØìý߯í«ï«\r
+tei ߯\r
+teng ÌÚÌÛÌÙÌÜëø\r
+ti ÌåÌáÌâÌæÌßÌÝÌäÌéÌãÌÞÌêÌèÌëÌçã©õ®ç¾ðÃÌàÜèÙÃç°åÑñÓ\r
+tian ÌìÌïÌîÌðÌíÌóÌòÌñîäãÙî±ãÃéåÞÝ\r
+tiao Ìõµ÷ÌøÌôÌöÌ÷öæÙ¬Üæñ»÷ØôÐóÔö¶ìöòè\r
+tie ÌúÌùÌû÷ÑÝÆ\r
+ting ÌýͣͥÌüͦͤæÃͧ͢î®öªÍ¡îúòÑÜðèèÝãÌþ\r
+tong ͬͨͳʹͯͮͲÍͰͱͩͫ١âúͪ¶²¶±íÅàÌÙÚÛíÜíá¼äü\r
+tou ͷͶ͵͸î×÷»\r
+tu ÍÁͻͼ;ͽÍÀÍ¿ÍÂÍÃͺ͹ݱõ©îÊÝËÜ¢\r
+tuan ÍÅÍÄÞÒî¶åè\r
+tui ÍÆÍËÍÈÍÊÍÇÍÉ߯ìÕ\r
+tun ÍÌÍÍâ½ÍÊÍζÚëàêÕÙÛ\r
+tuo ÍÐÍÑÍÏÍ×ÍØÍÓÍÕÍÙÍÖíÈÍÔãûõÉÛçÍÒرö¾éÒÙ¢âÕîèõ¢èÞèØóê\r
+wa ÍßÍÚÍàÍÞÍÛ°¼æ´ÍÜÍÝØôëð\r
+wai ÍâÍááË\r
+wan ÍòÍêÍíÍåÍæÍëÍäÍìÍçÍóÍñÍïÍðÍèòêݸîµØàÍãÍîæýçþëäÍéܹÝÒçº\r
+wang ÍûÍõÍùÍøÍüÍöÍôÍúÍ÷Íýã¯ØèÞÌéþ÷Í\r
+wei ΪλδίάζΧÎÀÍþ΢ΰνΨΣοβΥκçâεαηθιì¿Î¤Î©Î¡Î³Î®æ¸Îξá¡Î¼â«ÙËÞ±ðôâ¬åÔàøè¸ìÐöÛΦΫÚñÛ×àíÚÃÚóáËä¢ÝÚáÍãÇãíä¶ôºê¦\r
+wen ÎÄÎÊÎÅÎÂÎÈÎÇÎÆÎÃö©ÎÉÎÁãëØØãÓè·\r
+weng ÎÌÎÍÎËÝîÞ³\r
+wo ÎÒÎÕÎÑÎÔä×ÎÖÎÐÎÓÎÏá¢à¸ÙÁÎÎÝ«ë¿íÒö»\r
+wu ÎÞÎåÎïÎñÎäÎçÎèì¶Îó¶ñÎâÎÝÎéÎòÎáÎÛÎÚÎíÎêÎæÎ×ÎãÎØÎÜÎðÎàÎëÎìØ£ßíÎîÎßðÍÎÙåüðíðÄâèå»æðÚùêõ÷ùÛØä´ØõÚãÜÌâÐæÄâäè»ìÉòÚåÃöÈ\r
+xi Î÷ϵϢϣϲϯϰϸϷÎüϴϧϡϤÎöϦÎþÏ®ÎôÎõÙâϪ϶ÎûÎýÎúϱéØϨϥÛϬìûêØÞÉôËõèßñäÀæÒðªÏ«áãÜççôìäÏ©ôâó¬åïÏä»ÙÒñ¶òáÚôêêó£Ï³Ý¾ÝßÝûô¸ÎùôÑÎøõµì¤÷ûì¨â¾ãÒìùôª\r
+xia ÏÂÏÄÏÅÏ¿ÏÃÏÀÏÁϼϹϾϺ»£Ï½åÚÏ»÷ïè¦ßÈáòèÔíÌðýóÁ\r
+xian ÏÖÏÈÏÔÏßÏÕÏÞÏØÏÊÏ×ÏÐÏÜÏÝÏÍÏÉÏÓÏÌÏÛÏÆÏÒÏËæµÏÎÏÚÏÑÏÏÏÙõÐåßááýò¹óÚõÑݲÏÇðÂðïϳë¯ììôÌÙþÞºõ£ÜÈìÞö±\r
+xiang ÏëÏàÏòÏóÏãÏçÏñÏìÏîÏí½µÏäÏêÏéÏïÏáÏæÏðÏèÏâ÷ÏÏåâÃæøÝÙâÔößܼç½ó\r
+xiao СЦУÏûЧÏþÏúäìФÏôТÏüÏ÷ÏùÐ¥åÐÏõÏöÏýÏøèÉæçóïóãßØèÕç¯÷ÌòÙáÅ\r
+xie ЩдлÐЬЯбйвЪгаемжЮикÙôзÙÉåâé¿ß¢Ð¨å¬Ð«ò¡ÛÄÞ¯ÛÆõóçÓâ³ç¥âÝéÇäÍ\r
+xin ÐÄÐÂÐÅÐÀÐÁнܰöÎоÐÆê¿ÐÃпì§ïâض\r
+xing ÐÐÐÔÐÎÐËÐÇÐÍÐÕÐÒÐÌÐÑÐÈÐÓã¬ÐÊÐÏÐÉÜôß©Üþâ¼íÊÚê\r
+xiong ÐÛÐÖÐØÐ×ÐÜÐÙÐÚܺ\r
+xiu ÐÞÐÝÐãÐäËÞ³ôÐßÐåÐàÐâÐáßÝõ÷÷ÛâÊâÓð¼á¶äå\r
+xu ÐíÐøÐèÐëÐìÐòÐéÐ÷ÓõÐîÐðÐóÐêÐôÐõä°ÐæÐñÐöèòÐçÚ¼ñãÐïìãí¹íìôÚõ¯çïÛÃäªäÓÛ×Þ£\r
+xuan Ñ¡ÐûÐýÐüȯÐúÐùÐþìÅäÖѤѣÝæäöêÑè¯ÚÎîçÙØðçãùìÓé¸Ñ¢íÛÞïïà\r
+xue ѧѪѩÏ÷ѨÚÊѥѦõ½àåí´÷¨\r
+xun ѰѯѵѸѶѲѷÑѮѬѫѱ»çѳõ¸ÙãáßÛ÷Ü÷á¾ä޹ѴۨêÖñ¿âþâ´ä±öàÞ¦¿£\r
+ya ÑÇѹÑÅÑÀѽѺÑÄÑÈÑ»ÑÆѼÑÂѾѿÑÃÔþðéíýæ«ÑÁØóñâá¬çðÛëÞëåÂèâë²í¼\r
+yan ÑÛÑÔÑÏÑÝÑÐÑÌÑéÑÓÑØÑÚÑÕÑáÑ×ÑàÑÖÑçÑÎÑÊÑÒÑãÑæÑÞÑÉÑÍÑÜÑËÑÙÑèÙ²éÜÑÑÑåëçìÍêÌÑäåûÑâæÌëÙäÎóÛÑßØÍ÷Ð÷úܾÙÈ÷ÊãÆáÃØÉØßâûãÕÙðÛ±çüî»Û³ÚÝäÙÚç÷üõ¦ÝÎ\r
+yang ÑùÑóÑôÑëÑîÑøÑïÑöÑòÑ÷ÑúãóÑõÑìÑíÑêí¦ÑñìÈÑð÷±âóáàì¾òÕ\r
+yao ÒªÒ¡Ò©Ò«Ò£ÑûÑüÒ¦Ò§Ò¢Ò¥ÑþҤزëÈÑýߺԿ½ÄèÃñºðÎê×Ò¨ï¢çÛسáæôí÷¥çòé÷áÊ\r
+ye Ò²ÒµÒ¹Ò¯Ò¶Ò°Ò³ÒºÒ®ÑÊҷקÞÞÒìÇÒ±Ò¬Ò´Ò¸ÚËÚþØÌêÊîô\r
+yi Ò»ÒÔÒâÒÑÒåÒéÒ½Ò×ÒÂÒÕÒÀÒëÒÆÒìÒæÒàÒÚÒÉÒÅÒäÒËÒÎÒÁÒÇÒêÒÖÒíÒÓÒÛ°¬ÒÒÒçÒãÉßÒáÒÝÒÌÒÄéóâùÒÏÞÄÒÐÒîÒÃÒßÒïÒÍß×ØýÞÈìÚêÝäôÒèåÆ߽߮ܲæäßÞÒ¾ì½ÒÙðêÞ²àæï×Ø×ÒÊÒÜçËÒØÒÈâ¢ôàîÆô¯ØæØîôýÙ«ÛüÚ±ÛÝÜèÒ¼ÞÚáÚâÂàÉá»âøã¨Ò¿ì¥éì÷ðÜÓÒÞïîðùñ¯ñ´òæíôôè\r
+yin ÒòÒôÒýÓ¡ÒøÒþÒûÒõÒöñ«Ò÷ÒúÒóÒùÒðÒñÒüò¾Ûóà³äÎØ·Û´ë³ö¯Ûßî÷áþßÅâ¹Ü§ö¸ä¦Üáñ¿\r
+ying Ó¦Ó¢Ó°ÓªÓÓ²Ó³Ó®Ó¯Ó±Ó¥Ó¤Ó¬Ó£Ó¨Ó«âßÓ©ÝÓݺó¿åéºÓ§ò£ÙøðÐçøÜãàÓè¬ÜþÞüÛ«ñ¨ÝöäÞäëëô\r
+yo Ó´à¡\r
+yong ÓÃÓÀÓµÓÂÓ¿Ó»Ó¾Ó¹Ó¶Ó½Ù¸ÓºÓÁð®Ó·çßïÞÓ¸ÛÕ÷«÷Óà¯ÜÓ¼ã¼\r
+you ÓÐÓÖÓÉÓÑÓÎÓÒÓÍÓÅÓÊÓÄÓÈÓÇÓÌÓÆÓ×ÓÕÓÓ÷îØüßÏÓÏèÖöÏݬàó÷øÓËØÕéàë»îððàòÄòöÓÔòøôíݯ٧ݵå¶òÊÞÌ\r
+yu ÓÚÓëÓïÓýÓàÓöÓüÓêì¶ÓûÔ¤ÓèÓãÓñÓúÓòÓþÓõÓîÔ¢Ô¥ÓÞÓßÖàÓôÓ÷ÓðÓéÔ£ÓäÓíÔ¡âÅÓùÓâÓæÓåÓáÝÇè¤ÓçÔ¦ÓØÞíàôÚÍÓÜÓìÓÙعÓÝØ®ÚÄåýëéÓøóÄÓóæ¥ô§ì£ö¹êìÓÛêÅìÏìÙìÛñ¾òõáÎáüØñÙ¶ô¨àöâ×ÝÒÝ÷âÀãÐå÷ðõñÁö§ðöæúí²îÚðÁðÖòâ\r
+yuan Ô±ÔªÔÔºÔ¶Ô¸Ô°Ô´Ô²Ô¹ÔµÔ®Ô©Ô¬Ô¨Ô·Ô³Ô§Ô¯Ô«æÂãäéÚܾë¼ó¢ö½íóà÷ð°óîÜ«ÛùÞòè¥\r
+yue ÔÂÀÖÔ½Ô¼ÔÄÔ¾Ô»ÔÃÔÀÔÁÔ¿ë¾å®èÝéÐÙßîá\r
+yun ÔËÔÆÔÊÔÏÔÎÔÐÔÈÔÌÔÍóÞÜ¿ÔÅÔÉç¡éæã³ëµáñìÙÛ©ã¢êÀè¹ÔÇ\r
+za ÔÓÔúÔÒÕ¦ßÆÔÑÞÙ\r
+zai ÔÚÔÙÔØÔÖ×ÐÔ×ÔÕÔÔáÌçÞ\r
+zan ÔÛÔÞÔÝÔÜô¢ôØè¶ÞÙêÃôõöÉ\r
+zang ²ØÔàÔáÔßê°ÕàÞÊæà\r
+zao ÔçÔìÔâÔãÔèÔîÔêÔëÔäÔæÔíÔïÔéÔåçØßð\r
+ze ÔòÔðÔóÔñÕ¦ßõØÆåÅóÐóåô·àýØÓê¾\r
+zei Ôô\r
+zen ÔõÚÚ\r
+zeng ÔöÔùÔ÷çÕîÀêµï\r
+zha Õ¨ÔúÕ¦Õ©Õ§Õ£ÔüÔýÕ¤ÔþÕ¢Õ¥ÔûÞê×õé«ßî߸աíÄ÷þßåðäòÆ\r
+zhai ÕªÕ®Õ¬ÕÕ«Õ¯µÔíÎñ©\r
+zhan Õ½Õ¹Õ¾Õ¼Õ´Õ¶Õ·Õ³ÕµÕ¸Õ°ÕÀÕºÕ¿Õ²Õ±Õ»ÚÞÞøì¹\r
+zhang ³¤ÕÅÕÂÕÉÕÆÕÇÕÊÕÏÕËÕÍÕÌÕÈÕÃè°ó¯ÕÁÕÎÕÄáÖÛµâ¯Øëá¤æÑ\r
+zhao ×ÅÕÒÕÕÕг¯ÕÔÕÙÕÖÕ×ÕÑÕØÕÓÚ¯îÈßúèþóÉ\r
+zhe Õâ×ÅÕßÕÛÕÜÕãÕÚÕÞéüÚØÕáÕÝñÞðÑÕàíÝß¡òØô÷èÏ\r
+zhen ÕæÕóÕòÕðÕëÕäÛÚÕñÕïÕíÕåÕêÕìêâÕçÕéóðÕîÕèèåçÇî³éôëÓð¡ìõä¥äÚÝèé©é»ëÞð²\r
+zheng ÕþÕýÖ¤ÕûÕùÕ÷ÕõÖ£Ö¢ÕöáçÕôÕúóÝÕüï£á¿ÕøÚºöëîÛÖ¡\r
+zhi Ö®Ö»ÖªÖÁÖÆÖ±ÖÎÖ¸Ö§Ö¾Ö°ÖÂÖµÖ¯Ö½Ö¹ÖÊÖ´ÖÇÖÃÖ·Ö¦ÖÈÖ²Ö¼ÖÍáçÖÄÖÉÖ¿ÖÖÀÖ³Ö¥Ö¨Ö«Ö¬ÖÅÖ¶ÖÏÖ©ÖºÖËÖÌåëÜÆèÎè×õÜèäàùèÙìíéùêÞðëõôØ´éòÛúÚìÛ¤íéâååéæïõ¥ÞýôêõÅëùïôðºëÕòÎõÙìóö£\r
+zhong ÖÐÖÖÖØÖÚÖÕÖÓÖÒÖÔÖ×ÖÙïñõàÖÑÚ£âìô±ó®\r
+zhou ÖÜÖÝÖÞÖàÖÛÖåÖèÖáÖæÖäÖçÖâÖãëÐæûÖßç§æ¨íØßúݧô¦ôíôü\r
+zhu Ö÷סעÖúÖøÖðÖîÖìפÖé×£ÖíÖþÖñÖóÖöÖùÖòÖýÖêÖõÖëØùÖôÖüä¨ÖïñÒîùóçÖûÜïìÄõîóÃèÌôãä¾äó÷æéÆéÍÜÑÙªðñðæÛ¥ô¶\r
+zhua ץצ\r
+zhuai קàÜ\r
+zhuan ´«×¨×ª×¬×«×©×ßùâÍò§\r
+zhuang װ״׳ׯײױ´±×®ÞÊÙ×í°\r
+zhui ׷׹׺׶׸ö¿×µã·æíçÄ\r
+zhun ×¼×»ñ¸ëÆ\r
+zhuo ×Å×À׽׿×Á×Æ×Ã×¾×Çåª×Â×Äí½ïíäÃìÌä·Ù¾ìúÚÂߪ\r
+zi ×Ó×Ô×Ö×Ê×É×Ï×Ì×Ð×ËÖ¨×È×Îè÷×Õ×Ñæ¢í§×ÒÚÑö·ïößÚê¢ïÅíöóÊ÷Ú×ÍÜëõþö¤ç»ñèööáÑêßæÜôÒôô\r
+zong ×Ü×Ú×Ý×Ù×Û×ØôÕ××ÙÌëêèÈ\r
+zou ×ß×à×Þ×áæãöíÚÁÚîÛ¸\r
+zu ×é×ã×å×æ×â×è×ä×çÙÞïßÝÏ\r
+zuan ׬×ê߬×ëõòçÚ\r
+zui ×î×ï×ì×í¾×õþÞ©\r
+zun ×ð×ñé×÷®ß¤\r
+zuo ×÷×ö×ø×ù×ó×ò×Á×ôÔä´é×õàÜâôëÑßòóÐÚèìñõ¡\r
-2007-01-30 Nick Roberts <nickrob@snap.net.nz>
-
- * progmodes/gdb-ui.el (gdb-var-delete-1): New function.
- (gdb-var-delete): Use it.
- (gdb-var-update-handler-1): Handle value "invalid" for MI field
- `in_scope'.
-
+ 2007-01-30 Michael Albinus <michael.albinus@gmx.de>
+
+ * files.el (get-free-disk-space): Return nil for remote
+ directories.
+
+ * net/ange-ftp.el (ange-ftp-ls): In case of wildcards, use "ls"
+ instead of "dir".
+
+ 2007-01-30 Chong Yidong <cyd@stupidchicken.com>
+
+ * type-break.el (type-break-catch-up-event): New function.
+ (type-break-demo-hanoi, type-break-demo-life)
+ (type-break-demo-boring): Use it.
+
+ * image-mode.el (image-mode): Don't automatically view as image.
+ (image-toggle-display): Add `disabled' property.
+
+ 2007-01-29 Juanma Barranquero <lekktu@gmail.com>
+
+ * isearchb.el (isearchb-iswitchb):
+ * ps-print.el (ps-build-face-reference):
+ * emacs-lisp/shadow.el (list-load-path-shadows):
+ * eshell/esh-cmd.el (eshell-rewrite-for-command):
+ * international/mule.el (find-auto-coding):
+ * mail/supercite.el (sc-attrib-selection-list):
+ * progmodes/cc-defs.el (c-emacs-features):
+ * progmodes/cc-vars.el (c-offsets-alist):
+ * progmodes/flymake.el
+ (flymake-init-create-temp-source-and-master-buffer-copy):
+ Fix typos in docstrings (some suggested by Chris Moore).
+
+ * progmodes/vhdl-mode.el (vhdl-components-package-name)
+ (vhdl-get-library-unit, vhdl-corresponding-begin)
+ (vhdl-skip-case-alternative, vhdl-backward-skip-label)
+ (vhdl-align-region-2, vhdl-electric-dash, vhdl-case-word)
+ (vhdl-hooked-abbrev, vhdl-hs-forward-sexp-func)
+ (vhdl-font-lock-match-item): Fix typos in docstrings.
+ (vhdl-get-library-unit, vhdl-get-block-state, vhdl-sort-alist)
+ (vhdl-set-offset, vhdl-fix-case-region-1, vhdl-scan-directory-contents)
+ (vhdl-speedbar-insert-project-hierarchy):
+ Improve argument/docstring consistency.
+
+ 2007-01-29 Kenichi Handa <handa@m17n.org>
+
+ * international/titdic-cnv.el (py-converter): Fix previous change.
+
+ 2007-01-29 Chong Yidong <cyd@stupidchicken.com>
+
+ * jka-compr.el (jka-compr-partial-uncompress)
+ (jka-compr-call-process): Rebind default-directory if it is
+ invalid. Suggested by Chris Moore.
+
+ * comint.el (comint-insert-input): Handle situation where the
+ selected buffer is not the clicked buffer.
+
+ 2007-01-29 Kenichi Handa <handa@m17n.org>
+
+ * international/ja-dic-cnv.el (skkdic-convert):
+ Add byte-compile-disable-print-circle:t at the head.
+
+ * international/titdic-cnv.el (tit-process-header):
+ Add byte-compile-disable-print-circle:t at the head.
+ (miscdic-convert): Likewise.
+ (py-converter): Skip the header comments.
+
+ * emacs-lisp/bytecomp.el (byte-compile-disable-print-circle):
+ New variable.
+ (byte-compile-output-file-form): Bing print-circle to nil if
+ byte-compile-output-file-form is not nil.
+ (byte-compile-output-docform): Likewise.
+
+ 2007-01-28 Kim F. Storm <storm@cua.dk>
+
+ * emulation/cua-base.el (cua-global-keymap, cua--region-keymap):
+ Declare earlier to avoid byte compiler warnings.
+
+ 2007-01-28 Markus Triska <markus.triska@gmx.at>
+
+ * speedbar.el (speedbar-make-specialized-keymap): Doc fix.
+
+ 2007-01-28 Chong Yidong <cyd@stupidchicken.com>
+
+ * play/gamegrid.el (gamegrid-kill-timer): Cancel timer directly.
+ (gamegrid-add-score-with-update-game-score-1): Allow local quits
+ when calling update-game-score program. Remove unnecessary
+ save-excursion.
+
+ * play/tetris.el (tetris-new-shape): Stop drawing if game is over.
+
+ 2007-01-28 Nick Roberts <nickrob@snap.net.nz>
+
+ * progmodes/gdb-ui.el (gdb-breakpoint-regexp): Declare earlier to
+ avoid compiler warning.
+ (gdb-var-update-handler-1): Consider that the MI field `in_scope'
+ might have values other than "true" or "false".
+
+ 2007-01-28 Richard Stallman <rms@gnu.org>
+
+ * textmodes/fill.el (fill-paragraph-function): Doc fix.
+ (fill-paragraph): Bind fill-paragraph-function to t to avoid recursion.
+
+ * emacs-lisp/pp.el (pp-eval-last-sexp): Don't eval here.
+
+ * image.el (image-type-header-regexps): Make GIF regex more specific.
+
+ * tutorial.el (tutorial--default-keys): Check M-DEL, not `M-backspace'.
+ Don't check `backspace'.
+ (tutorial--find-changed-keys): Look up bindings in a temp buffer
+ in Fundamental mode.
+
+ * startup.el (fancy-splash-text, normal-splash-screen):
+ Mention C-g.
+
+ * simple.el (eval-expression): Don't use eval-last-sexp-print-value
+ when inserting in buffer.
+
+ * vc-arch.el (vc-arch-file-id): Move with-current-buffer
+ inside the if.
+
+ 2007-01-27 Richard Stallman <rms@gnu.org>
+
+ * obsolete/awk-mode.el (awk-font-lock-keywords): Add "do".
+
+ 2007-01-27 Guanpeng Xu <herberteuler@hotmail.com>
+
+ * add-log.el (add-log-current-defun): Skip the semicolon ``;'' for
+ enum/union/struct/class definition.
+ Revert change to call `forward-sexp' multiple times.
+
+ 2007-01-27 Chong Yidong <cyd@stupidchicken.com>
+
+ * files.el (hack-local-variables-confirm): Don't keep trying to
+ read an event from an empty kbd macro.
+
+ 2007-01-27 Eli Zaretskii <eliz@gnu.org>
+
+ * server.el (server-start): Mention LEAVE-DEAD arg in the doc string.
+
+ 2007-01-27 Ben North <ben@redfrontdoor.org>
+
+ * outline.el (outline-promote, outline-demote): Doc fix. Rename
+ the arg CHILDREN -> WHICH.
+
+ 2007-01-27 Michael Albinus <michael.albinus@gmx.de>
+
+ * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set
+ default-directory to a sane value when calling start-process.
+
+ 2007-01-27 Eli Zaretskii <eliz@gnu.org>
+
+ * ls-lisp.el (ls-lisp-use-localized-time-format): New defcustom.
+ (ls-lisp-format-time-list): Doc fix. Mention
+ ls-lisp-use-localized-time-format.
+ (ls-lisp-format-time): Use ls-lisp-format-time-list if
+ ls-lisp-use-localized-time-format is non-nil, even if a valid
+ locale is defined.
+
+ 2007-01-27 Juanma Barranquero <lekktu@gmail.com>
+
+ * jka-compr.el (jka-compr-shell): Doc fix.
+
+ * jka-cmpr-hook.el (jka-compr-compression-info-list): Doc fix.
+
+ 2007-01-26 Vinicius Jose Latorre <viniciusjl@ig.com.br>
+
+ * ps-print.ps: Fix background height.
+ (ps-print-version): New version 6.7.2.
+
+ 2007-01-26 Eli Zaretskii <eliz@gnu.org>
+
+ * makefile.w32-in (finder-data, custom-deps): Depend on
+ $(lisp)/loaddefs.el.
+
+ 2007-01-24 Dan Nicolaescu <dann@ics.uci.edu>
+
+ * Makefile.in (custom-deps, finder-data): Add dependency to loaddefs.el.
+
2007-01-24 Miles Bader <miles@gnu.org>
* emacs-lisp/bytecomp.el (byte-compile-output-file-form)
* viper-keym.el (viper-insert-basic-map): Delete binding for S-TAB.
* ediff-util.el (ediff-clone-buffer-for-region-comparison): Change text
- of message. Activate mark.
+ of message. Activate mark.
(ediff-activate-mark): Set transient-mark-mode to t.
* ediff.el (ediff-regions-wordwise, ediff-regions-linewise): Doc fix.
2007-01-22 Kim F. Storm <storm@cua.dk>
- * ido.el (ido-active): Add xemacs test from ido-minibuffer-setup.
+ * ido.el (ido-active): Add XEmacs test from ido-minibuffer-setup.
(ido-initiate-auto-merge, ido-exhibit, ido-minibuffer-setup)
(ido-tidy): Use ido-active.
* ps-print.el: Handle frame parameters (background and/or foreground
colors) changing dynamically. Reported by Leo <sdl.web@gmail.com>.
- (ps-print-version): New Version 6.7.1.
+ (ps-print-version): New version 6.7.1.
(ps-x-frame-property, ps-e-frame-parameter): New aliases.
(ps-frame-parameter): New fun.
(ps-default-fg, ps-default-bg): New default value ('frame-parameter).
* ps-mule.el: Eliminate Emacs 20 compatibility.
* ps-print.el: Eliminate Emacs 20 & 21 compatibility.
- (ps-print-version): New Version 6.7.
+ (ps-print-version): New version 6.7.
(ps-print-quote): Replace '?\ ' by '?\s'.
2006-11-30 Juanma Barranquero <lekktu@gmail.com>
* elide-head.el (elide-head-headers-to-hide): Recognize the FSF's
new address as well.
-2005-07-07 Kenichi Handa <handa@m17n.org>
-
- * international/mule.el (make-coding-system):
- Describe `ascii-incompatible' property in the docstring.
- (set-file-name-coding-system): Signal an error if coding-system is
- ascii-incompatible.
- (set-keyboard-coding-system): Likewise.
-
- * international/mule-cmds.el (set-default-coding-systems):
- Don't set default-file-name-coding-system and
- default-keyboard-coding-system if coding-system is ASCII-incompatible.
-
- * international/utf-16.el: Declare that all UTF-16-based coding
- systems are ASCII-incompatible.
-
2005-07-07 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gud.el: Require font-lock for displaying errors.
finder-inf.el \
subdirs.el \
eshell/esh-groups.el \
- mh-e/mh-loaddefs.el
+ mh-e/mh-loaddefs.el \
+ international/charprop.el \
+ international/uni-*.el
# Files to compile before others during a bootstrap. This is done to
# speed up the bootstrap process. The CC files are compiled first
# The actual Emacs command run in the targets below.
-emacs = EMACSLOADPATH=$(lisp) $(EMACS) $(EMACSOPT)
+emacs = EMACSLOADPATH=$(lisp) LC_ALL=C $(EMACS) $(EMACSOPT)
# Common command to find subdirectories
$(lisp)/cus-load.el:
touch $@
- custom-deps: $(lisp)/cus-load.el doit
+ custom-deps: $(lisp)/loaddefs.el $(lisp)/cus-load.el doit
wd=$(lisp); $(setwins_almost); \
echo Directories: $$wins; \
- $(EMACS) $(EMACSOPT) -l cus-dep --eval '(setq generated-custom-dependencies-file "$(lisp)/cus-load.el")' -f custom-make-dependencies $$wins
+ LC_ALL=C $(EMACS) $(EMACSOPT) -l cus-dep --eval '(setq generated-custom-dependencies-file "$(lisp)/cus-load.el")' -f custom-make-dependencies $$wins
- finder-data: doit
+ finder-data: $(lisp)/loaddefs.el doit
wd=$(lisp); $(setwins_almost); \
echo Directories: $$wins; \
- $(EMACS) $(EMACSOPT) -l finder --eval '(setq generated-finder-keywords-file "$(lisp)/finder-inf.el")' -f finder-compile-keywords-make-dist $$wins
+ LC_ALL=C $(EMACS) $(EMACSOPT) -l finder --eval '(setq generated-finder-keywords-file "$(lisp)/finder-inf.el")' -f finder-compile-keywords-make-dist $$wins
$(lisp)/loaddefs.el:
echo ";;; loaddefs.el --- automatically extracted autoloads" >> $@
autoloads: $(lisp)/loaddefs.el doit
wd=$(lisp); $(setwins_almost); \
echo Directories: $$wins; \
- $(EMACS) $(EMACSOPT) -l autoload --eval '(setq generated-autoload-file "$(lisp)/loaddefs.el")' -f batch-update-autoloads $$wins
+ LC_ALL=C $(EMACS) $(EMACSOPT) -l autoload --eval '(setq generated-autoload-file "$(lisp)/loaddefs.el")' -f batch-update-autoloads $$wins
$(lisp)/subdirs.el:
$(MAKE) $(MFLAGS) update-subdirs
# new ones.
recompile: doit mh-autoloads $(lisp)/progmodes/cc-mode.elc
- $(EMACS) $(EMACSOPT) --eval "(batch-byte-recompile-directory 0)" $(lisp)
+ LC_ALL=C $(EMACS) $(EMACSOPT) --eval "(batch-byte-recompile-directory 0)" $(lisp)
# CC Mode uses a compile time macro system which causes a compile time
# dependency in cc-mode.elc on the macros in cc-langs.el and the
the functions you loaded will not be able to run.")
;;;###autoload(put 'byte-compile-dynamic 'safe-local-variable 'booleanp)
+ (defvar byte-compile-disable-print-circle nil
+ "If non-nil, disable `print-circle' on printing a byte-compiled code.")
+ ;;;###autoload(put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp)
+
(defcustom byte-compile-dynamic-docstrings t
"*If non-nil, compile doc strings for lazy access.
We bury the doc strings of functions and variables
(setcar (cdr bytes) (logand pc 255))
(setcar bytes (lsh pc -8))))
(setq patchlist (cdr patchlist))))
- (concat (nreverse bytes))))
+ (string-make-unibyte (concat (nreverse bytes)))))
\f
;;; compile-time evaluation
(delete-region (point) (progn (re-search-forward "^(")
(beginning-of-line)
(point)))
- (insert ";;; This file contains multibyte non-ASCII characters\n"
- ";;; and therefore cannot be loaded into Emacs 19.\n")
- ;; Replace "19" or "19.29" with "20", twice.
+ (insert ";;; This file contains utf-8 non-ASCII characters\n"
+ ";;; and therefore cannot be loaded into Emacs 21 or earlier.\n")
+ ;; Replace "19" or "19.29" with "22", twice.
(re-search-forward "19\\(\\.[0-9]+\\)")
- (replace-match "20")
+ (replace-match "23")
(re-search-forward "19\\(\\.[0-9]+\\)")
- (replace-match "20")
+ (replace-match "23")
;; Now compensate for the change in size,
;; to make sure all positions in the file remain valid.
(setq delta (- (point-max) old-header-end))
(set-buffer outbuffer)
(goto-char 1)
;; The magic number of .elc files is ";ELC", or 0x3B454C43. After
- ;; that is the file-format version number (18, 19 or 20) as a
+ ;; that is the file-format version number (18, 19, 20, or 23) as a
;; byte, followed by some nulls. The primary motivation for doing
;; this is to get some binary characters up in the first line of
;; the file so that `diff' will simply say "Binary files differ"
(insert
";ELC"
- (if (byte-compile-version-cond byte-compile-compatibility) 18 20)
+ (if (byte-compile-version-cond byte-compile-compatibility) 18 23)
"\000\000\000\n"
)
(insert ";;; Compiled by "
;; Insert semicolons as ballast, so that byte-compile-fix-header
;; can delete them so as to keep the buffer positions
;; constant for the actual compiled code.
- ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n\n"))
+ ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n\n"))
;; Here if we want Emacs 18 compatibility.
(when dynamic-docstrings
(error "Version-18 compatibility doesn't support dynamic doc strings"))
(print-level nil)
(print-quoted t)
(print-gensym t)
- (print-circle t)) ; handle circular data structures
+ (print-circle ; handle circular data structures
+ (not byte-compile-disable-print-circle)))
(princ "\n" outbuffer)
(prin1 form outbuffer)
nil)))
;; print-gensym-alist not to be cleared
;; between calls to print functions.
(print-gensym '(t))
- (print-circle t) ; handle circular data structures
+ (print-circle ; handle circular data structures
+ (not byte-compile-disable-print-circle))
print-gensym-alist ; was used before print-circle existed.
(print-continuous-numbering t)
print-number-table
(byte-defop-compiler-1 mapc byte-compile-funarg)
(byte-defop-compiler-1 maphash byte-compile-funarg)
(byte-defop-compiler-1 map-char-table byte-compile-funarg)
+(byte-defop-compiler-1 map-char-table byte-compile-funarg-2)
+;; map-charset-chars should be funarg but has optional third arg
(byte-defop-compiler-1 sort byte-compile-funarg-2)
(byte-defop-compiler-1 let)
(byte-defop-compiler-1 let*)
(defvar ja-dic-filename "ja-dic.el")
;; To make a generated ja-dic.el smaller.
-(make-coding-system
- 'iso-2022-7bit-short
- 2 ?J
+(define-coding-system 'iso-2022-7bit-short
"Like `iso-2022-7bit' but no ASCII designation before SPC."
- '(ascii nil nil nil t t nil t)
- '((safe-charsets . t)))
+ :coding-type 'iso-2022
+ :mnemonic ?J
+ :charset-list 'iso-2022
+ :designation [(ascii t) nil nil nil]
+ :flags '(short 7-bit designation))
(defun skkdic-convert-okuri-ari (skkbuf buf)
(message "Processing OKURI-ARI entries ...")
(erase-buffer)
(buffer-disable-undo)
(insert ";;; ja-dic.el --- dictionary for Japanese input method"
- " -*-coding: iso-2022-jp;-*-\n"
+ " -*-coding: iso-2022-jp; byte-compile-disable-print-circle:t; -*-\n"
";;\tGenerated by the command `skkdic-convert'\n"
";;\tDate: " (current-time-string) "\n"
";;\tOriginal SKK dictionary file: "
(- ch) ; represented by a negative code.
(if (= ch ?\e$B!<\e(B) ; `\e$B!<\e(B' is represented by 0.
0
- (- (nth 2 (split-char ch)) 32))))
+ (- (logand (encode-char ch 'japanese-jisx0208) #xFF) 32))))
(setq i (1+ i)))
vec))
-;;; mule.el --- basic commands for mulitilingual environment
+;;; mule.el --- basic commands for multilingual environment
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
;; Free Software Foundation, Inc.
;; 2005, 2006, 2007
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
+;; Copyright (C) 2003
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H13PRO009
;; Keywords: mule, multilingual, character set, coding system
;;; Code:
-(defconst mule-version "5.0 (SAKAKI)" "\
+(defconst mule-version "6.0 (HANACHIRUSATO)" "\
Version number and name of this version of MULE (multilingual environment).")
-(defconst mule-version-date "1999.12.7" "\
+(defconst mule-version-date "2003.9.1" "\
Distribution date of this version of MULE (multilingual environment).")
+\f
+;;; CHARSET
+
+;; Backward compatibility code for handling emacs-mule charsets.
+(defvar private-char-area-1-min #xF0000)
+(defvar private-char-area-1-max #xFFFFE)
+(defvar private-char-area-2-min #x100000)
+(defvar private-char-area-2-max #x10FFFE)
+
+;; Table of emacs-mule charsets indexed by their emacs-mule ID.
+(defvar emacs-mule-charset-table (make-vector 256 nil))
+(aset emacs-mule-charset-table 0 'ascii)
+
+;; Convert the argument of old-style calll of define-charset to a
+;; property list used by the new-style.
+;; INFO-VECTOR is a vector of the format:
+;; [DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE
+;; SHORT-NAME LONG-NAME DESCRIPTION]
+
+(defun convert-define-charset-argument (emacs-mule-id info-vector)
+ (let* ((dim (aref info-vector 0))
+ (chars (aref info-vector 1))
+ (total (if (= dim 1) chars (* chars chars)))
+ (code-space (if (= dim 1) (if (= chars 96) [32 127] [33 126])
+ (if (= chars 96) [32 127 32 127] [33 126 33 126])))
+ code-offset)
+ (if (integerp emacs-mule-id)
+ (or (= emacs-mule-id 0)
+ (and (>= emacs-mule-id 129) (< emacs-mule-id 256))
+ (error "Invalid CHARSET-ID: %d" emacs-mule-id))
+ (let (from-id to-id)
+ (if (= dim 1) (setq from-id 160 to-id 224)
+ (setq from-id 224 to-id 255))
+ (while (and (< from-id to-id)
+ (not (aref emacs-mule-charset-table from-id)))
+ (setq from-id (1+ from-id)))
+ (if (= from-id to-id)
+ (error "No more room for the new Emacs-mule charset"))
+ (setq emacs-mule-id from-id)))
+ (if (> (- private-char-area-1-max private-char-area-1-min) total)
+ (setq code-offset private-char-area-1-min
+ private-char-area-1-min (+ private-char-area-1-min total))
+ (if (> (- private-char-area-2-max private-char-area-2-min) total)
+ (setq code-offset private-char-area-2-min
+ private-char-area-2-min (+ private-char-area-2-min total))
+ (error "No more space for a new charset.")))
+ (list :dimension dim
+ :code-space code-space
+ :iso-final-char (aref info-vector 4)
+ :code-offset code-offset
+ :emacs-mule-id emacs-mule-id)))
+
+(defun define-charset (name docstring &rest props)
+ "Define NAME (symbol) as a charset with DOCSTRING.
+The remaining arguments must come in pairs ATTRIBUTE VALUE. ATTRIBUTE
+may be any symbol. The following have special meanings, and one of
+`:code-offset', `:map', `:subset', `:superset' must be specified.
+
+`:short-name'
+
+VALUE must be a short string to identify the charset. If omitted,
+NAME is used.
+
+`:long-name'
+
+VALUE must be a string longer than `:short-name' to identify the
+charset. If omitted, the value of the `:short-name' attribute is used.
+
+`:dimension'
+
+VALUE must be an integer 0, 1, 2, or 3, specifying the dimension of
+code-points of the charsets. If omitted, it is calculated from the
+value of the `:code-space' attribute.
+
+`:code-space'
+
+VALUE must be a vector of length at most 8 specifying the byte code
+range of each dimension in this format:
+ [ MIN-1 MAX-1 MIN-2 MAX-2 ... ]
+where MIN-N is the minimum byte value of Nth dimension of code-point,
+MAX-N is the maximum byte value of that.
+
+`:min-code'
+
+VALUE must be an integer specifying the mininum code point of the
+charset. If omitted, it is calculated from `:code-space'. VALUE may
+be a cons (HIGH . LOW), where HIGH is the most significant 16 bits of
+the code point and LOW is the least significant 16 bits.
+
+`:max-code'
+
+VALUE must be an integer specifying the maxinum code point of the
+charset. If omitted, it is calculated from `:code-space'. VALUE may
+be a cons (HIGH . LOW), where HIGH is the most significant 16 bits of
+the code point and LOW is the least significant 16 bits.
+
+`:iso-final-char'
+
+VALUE must be a character in the range 32 to 127 (inclusive)
+specifying the final char of the charset for ISO-2022 encoding. If
+omitted, the charset can't be encoded by ISO-2022 based
+coding-systems.
+
+`:iso-revision-number'
+
+VALUE must be an integer in the range 0..63, specifying the revision
+number of the charset for ISO-2022 encoding.
+
+`:emacs-mule-id'
+
+VALUE must be an integer of 0, 129..255. If omitted, the charset
+can't be encoded by coding-systems of type `emacs-mule'.
+
+`:ascii-compatible-p'
+
+VALUE must be nil or t (default nil). If VALUE is t, the charset is
+compatible with ASCII, i.e. the first 128 code points map to ASCII.
+
+`:supplementary-p'
+
+VALUE must be nil or t. If the VALUE is t, the charset is
+supplementary, which means it is used only as a parent of some other
+charset.
+
+`:invalid-code'
+
+VALUE must be a nonnegative integer that can be used as an invalid
+code point of the charset. If the minimum code is 0 and the maximum
+code is greater than Emacs' maximum integer value, `:invalid-code'
+should not be omitted.
+
+`:code-offset'
+
+VALUE must be an integer added to the index number of a character to
+get the corresponding character code.
+
+`:map'
+
+VALUE must be vector or string.
+
+If it is a vector, the format is [ CODE-1 CHAR-1 CODE-2 CHAR-2 ... ],
+where CODE-n is a code-point of the charset, and CHAR-n is the
+corresponding character code.
+
+If it is a string, it is a name of file that contains the above
+information. Each line of the file must be this format:
+ 0xXXX 0xYYY
+where XXX is a hexadecimal representation of CODE-n and YYY is a
+hexadecimal representation of CHAR-n. A line starting with `#' is a
+comment line.
+
+`:subset'
+
+VALUE must be a list:
+ ( PARENT MIN-CODE MAX-CODE OFFSET )
+PARENT is a parent charset. MIN-CODE and MAX-CODE specify the range
+of characters inherited from the parent. OFFSET is an integer value
+to add to a code point of the parent charset to get the corresponding
+code point of this charset.
+
+`:superset'
+
+VALUE must be a list of parent charsets. The charset inherits
+characters from them. Each element of the list may be a cons (PARENT
+. OFFSET), where PARENT is a parent charset, and OFFSET is an offset
+value to add to a code point of PARENT to get the corresponding code
+point of this charset.
+
+`:unify-map'
+
+VALUE must be vector or string.
+
+If it is a vector, the format is [ CODE-1 CHAR-1 CODE-2 CHAR-2 ... ],
+where CODE-n is a code-point of the charset, and CHAR-n is the
+corresponding Unicode character code.
+
+If it is a string, it is a name of file that contains the above
+information. The file format is the same as what described for `:map'
+attribute."
+ (when (vectorp (car props))
+ ;; Old style code:
+ ;; (define-charset CHARSET-ID CHARSET-SYMBOL INFO-VECTOR)
+ ;; Convert the argument to make it fit with the current style.
+ (let ((vec (car props)))
+ (setq props (convert-define-charset-argument name vec)
+ name docstring
+ docstring (aref vec 8))))
+ (let ((attrs (mapcar 'list '(:dimension
+ :code-space
+ :min-code
+ :max-code
+ :iso-final-char
+ :iso-revision-number
+ :emacs-mule-id
+ :ascii-compatible-p
+ :supplementary-p
+ :invalid-code
+ :code-offset
+ :map
+ :subset
+ :superset
+ :unify-map
+ :plist))))
+
+ ;; If :dimension is omitted, get the dimension from :code-space.
+ (let ((dimension (plist-get props :dimension)))
+ (or dimension
+ (let ((code-space (plist-get props :code-space)))
+ (setq dimension (if code-space (/ (length code-space) 2) 4))
+ (setq props (plist-put props :dimension dimension)))))
+
+ (let ((code-space (plist-get props :code-space)))
+ (or code-space
+ (let ((dimension (plist-get props :dimension)))
+ (setq code-space (make-vector 8 0))
+ (dotimes (i dimension)
+ (aset code-space (1+ (* i 2)) #xFF))
+ (setq props (plist-put props :code-space code-space)))))
+
+ ;; If :emacs-mule-id is specified, update emacs-mule-charset-table.
+ (let ((emacs-mule-id (plist-get props :emacs-mule-id)))
+ (if (integerp emacs-mule-id)
+ (aset emacs-mule-charset-table emacs-mule-id name)))
+
+ (dolist (slot attrs)
+ (setcdr slot (plist-get props (car slot))))
+
+ ;; Make sure that the value of :code-space is a vector of 8
+ ;; elements.
+ (let* ((slot (assq :code-space attrs))
+ (val (cdr slot))
+ (len (length val)))
+ (if (< len 8)
+ (setcdr slot
+ (vconcat val (make-vector (- 8 len) 0)))))
+
+ ;; Add :name and :docstring properties to PROPS.
+ (setq props
+ (cons :name (cons name (cons :docstring (cons docstring props)))))
+ (or (plist-get props :short-name)
+ (plist-put props :short-name (symbol-name name)))
+ (or (plist-get props :long-name)
+ (plist-put props :long-name (plist-get props :short-name)))
+ ;; We can probably get a worthwhile amount in purespace.
+ (setq props
+ (mapcar (lambda (elt)
+ (if (stringp elt)
+ (purecopy elt)
+ elt))
+ props))
+ (setcdr (assq :plist attrs) props)
+
+ (apply 'define-charset-internal name (mapcar 'cdr attrs))))
+
+
(defun load-with-code-conversion (fullname file &optional noerror nomessage)
"Execute a file of Lisp code named FILE whose absolute name is FULLNAME.
The file contents are decoded before evaluation if necessary.
;; Otherwise, eval-buffer might try to interpret random
;; binary junk as multibyte characters.
(if (and enable-multibyte-characters
- (or (eq (coding-system-type last-coding-system-used) 5)
- (eq last-coding-system-used 'no-conversion)))
+ (or (eq (coding-system-type last-coding-system-used)
+ 'raw-text)))
(set-buffer-multibyte nil))
;; Make `kill-buffer' quiet.
(set-buffer-modified-p nil))
(message "Loading %s...done" file)))
t)))
-;; API (Application Program Interface) for charsets.
-
-(defsubst charset-quoted-standard-p (obj)
- "Return t if OBJ is a quoted symbol, and is the name of a standard charset."
- (and (listp obj) (eq (car obj) 'quote)
- (symbolp (car-safe (cdr obj)))
- (let ((vector (get (car-safe (cdr obj)) 'charset)))
- (and (vectorp vector)
- (< (aref vector 0) 160)))))
-
-(defsubst charsetp (object)
- "Return t if OBJECT is a charset."
- (and (symbolp object) (vectorp (get object 'charset))))
-
-(defsubst charset-info (charset)
+(defun charset-info (charset)
"Return a vector of information of CHARSET.
+This function is provided for backward compatibility.
+
The elements of the vector are:
CHARSET-ID, BYTES, DIMENSION, CHARS, WIDTH, DIRECTION,
LEADING-CODE-BASE, LEADING-CODE-EXT,
ISO-FINAL-CHAR, ISO-GRAPHIC-PLANE,
REVERSE-CHARSET, SHORT-NAME, LONG-NAME, DESCRIPTION,
- PLIST,
+ PLIST.
where
-CHARSET-ID (integer) is the identification number of the charset.
-BYTES (integer) is the length of multi-byte form of a character in
- the charset: one of 1, 2, 3, and 4.
-DIMENSION (integer) is the number of bytes to represent a character of
-the charset: 1 or 2.
-CHARS (integer) is the number of characters in a dimension: 94 or 96.
-WIDTH (integer) is the number of columns a character in the charset
- occupies on the screen: one of 0, 1, and 2.
-DIRECTION (integer) is the rendering direction of characters in the
- charset when rendering. If 0, render from left to right, else
- render from right to left.
-LEADING-CODE-BASE (integer) is the base leading-code for the
- charset.
-LEADING-CODE-EXT (integer) is the extended leading-code for the
- charset. All charsets of less than 0xA0 has the value 0.
+CHARSET-ID is always 0.
+BYTES is always 0.
+DIMENSION is the number of bytes of a code-point of the charset:
+ 1, 2, 3, or 4.
+CHARS is the number of characters in a dimension:
+ 94, 96, 128, or 256.
+WIDTH is always 0.
+DIRECTION is always 0.
+LEADING-CODE-BASE is always 0.
+LEADING-CODE-EXT is always 0.
ISO-FINAL-CHAR (character) is the final character of the
corresponding ISO 2022 charset. If the charset is not assigned
any final character, the value is -1.
-ISO-GRAPHIC-PLANE (integer) is the graphic plane to be invoked
- while encoding to variants of ISO 2022 coding system, one of the
- following: 0/graphic-plane-left(GL), 1/graphic-plane-right(GR).
- If the charset is not assigned any final character, the value is -1.
-REVERSE-CHARSET (integer) is the charset which differs only in
- LEFT-TO-RIGHT value from the charset. If there's no such a
- charset, the value is -1.
+ISO-GRAPHIC-PLANE is always 0.
+REVERSE-CHARSET is always -1.
SHORT-NAME (string) is the short name to refer to the charset.
LONG-NAME (string) is the long name to refer to the charset
DESCRIPTION (string) is the description string of the charset.
PLIST (property list) may contain any type of information a user
want to put and get by functions `put-charset-property' and
`get-charset-property' respectively."
- (get charset 'charset))
+ (vector 0
+ 0
+ (charset-dimension charset)
+ (charset-chars charset)
+ 0
+ 0
+ 0
+ 0
+ (charset-iso-final-char charset)
+ 0
+ -1
+ (get-charset-property charset :short-name)
+ (get-charset-property charset :short-name)
+ (charset-description charset)
+ (charset-plist charset)))
;; It is better not to use backquote in this file,
;; because that makes a bootstrapping problem
;; if you need to recompile all the Lisp files using interpreted code.
-(defmacro charset-id (charset)
- "Return charset identification number of CHARSET."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 0)
- (list 'aref (list 'charset-info charset) 0)))
+(defun charset-id (charset)
+ "Always return 0. This is provided for backward compatibility."
+ 0)
(defmacro charset-bytes (charset)
- "Return bytes of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 1)
- (list 'aref (list 'charset-info charset) 1)))
-
-(defmacro charset-dimension (charset)
- "Return dimension of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 2)
- (list 'aref (list 'charset-info charset) 2)))
-
-(defmacro charset-chars (charset)
- "Return character numbers contained in a dimension of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 3)
- (list 'aref (list 'charset-info charset) 3)))
-
-(defmacro charset-width (charset)
- "Return width (how many column occupied on a screen) of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 4)
- (list 'aref (list 'charset-info charset) 4)))
-
-(defmacro charset-direction (charset)
- "Return direction of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 5)
- (list 'aref (list 'charset-info charset) 5)))
-
-(defmacro charset-iso-final-char (charset)
- "Return final char of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 8)
- (list 'aref (list 'charset-info charset) 8)))
-
-(defmacro charset-iso-graphic-plane (charset)
- "Return graphic plane of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 9)
- (list 'aref (list 'charset-info charset) 9)))
-
-(defmacro charset-reverse-charset (charset)
- "Return reverse charset of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 10)
- (list 'aref (list 'charset-info charset) 10)))
+ "Always return 0. This is provided for backward compatibility."
+ 0)
+
+(defun get-charset-property (charset propname)
+ "Return the value of CHARSET's PROPNAME property.
+This is the last value stored with
+ (put-charset-property CHARSET PROPNAME VALUE)."
+ (plist-get (charset-plist charset) propname))
+
+(defun put-charset-property (charset propname value)
+ "Set CHARSETS's PROPNAME property to value VALUE.
+It can be retrieved with `(get-charset-property CHARSET PROPNAME)'."
+ (set-charset-plist charset
+ (plist-put (charset-plist charset) propname value)))
+
+(defun charset-description (charset)
+ "Return description string of CHARSET."
+ (plist-get (charset-plist charset) :docstring))
+
+(defun charset-dimension (charset)
+ "Return dimension of CHARSET."
+ (plist-get (charset-plist charset) :dimension))
+
+(defun charset-chars (charset &optional dimension)
+ "Return number of characters contained in DIMENSION of CHARSET.
+DIMENSION defaults to the first dimension."
+ (unless dimension (setq dimension 1))
+ (let ((code-space (plist-get (charset-plist charset) :code-space)))
+ (1+ (- (aref code-space (1- (* 2 dimension)))
+ (aref code-space (- (* 2 dimension) 2))))))
+
+(defun charset-iso-final-char (charset)
+ "Return ISO-2022 final character of CHARSET.
+Return -1 if charset isn't an ISO 2022 one."
+ (or (plist-get (charset-plist charset) :iso-final-char)
+ -1))
(defmacro charset-short-name (charset)
- "Return short name of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 11)
- (list 'aref (list 'charset-info charset) 11)))
+ "Return short name of CHARSET."
+ (plist-get (charset-plist charset) :short-name))
(defmacro charset-long-name (charset)
- "Return long name of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 12)
- (list 'aref (list 'charset-info charset) 12)))
-
-(defmacro charset-description (charset)
- "Return description of CHARSET.
-See the function `charset-info' for more detail."
- (if (charset-quoted-standard-p charset)
- (aref (charset-info (nth 1 charset)) 13)
- (list 'aref (list 'charset-info charset) 13)))
-
-(defmacro charset-plist (charset)
- "Return list charset property of CHARSET.
-See the function `charset-info' for more detail."
- (list 'aref
- (if (charset-quoted-standard-p charset)
- (charset-info (nth 1 charset))
- (list 'charset-info charset))
- 14))
-
-(defun set-charset-plist (charset plist)
- "Set CHARSET's property list to PLIST, and return PLIST."
- (aset (charset-info charset) 14 plist))
-
-(defun make-char (charset &optional code1 code2)
- "Return a character of CHARSET whose position codes are CODE1 and CODE2.
-CODE1 and CODE2 are optional, but if you don't supply
-sufficient position codes, return a generic character which stands for
-all characters or group of characters in the character set.
-A generic character can be used to index a char table (e.g. `syntax-table').
-
-Such character sets as ascii, eight-bit-control, and eight-bit-graphic
-don't have corresponding generic characters. If CHARSET is one of
-them and you don't supply CODE1, return the character of the smallest
-code in CHARSET.
-
-If CODE1 or CODE2 are invalid (out of range), this function signals an
-error. However, the eighth bit of both CODE1 and CODE2 is zeroed
-before they are used to index CHARSET. Thus you may use, say, the
-actual ISO 8859 character code rather than subtracting 128, as you
-would need to index the corresponding Emacs charset."
- (make-char-internal (charset-id charset) code1 code2))
-
-(put 'make-char 'byte-compile
- (lambda (form)
- (let ((charset (nth 1 form)))
- (byte-compile-normal-call
- (cons 'make-char-internal
- (cons (if (charset-quoted-standard-p charset)
- (charset-id (nth 1 charset))
- (list 'charset-id charset))
- (nthcdr 2 form)))))))
+ "Return long name of CHARSET."
+ (plist-get (charset-plist charset) :long-name))
(defun charset-list ()
- "Return list of charsets ever defined.
+ "Return list of all charsets ever defined.
This function is provided for backward compatibility.
Now we have the variable `charset-list'."
charset-list)
+(make-obsolete 'charset-list "Use variable `charset-list'" "23.1")
-(defsubst generic-char-p (char)
- "Return t if and only if CHAR is a generic character.
-See also the documentation of `make-char'."
- (and (>= char 0400)
- (let ((l (split-char char)))
- (and (or (= (nth 1 l) 0) (eq (nth 2 l) 0))
- (not (eq (car l) 'composition))))))
-
-(defun decode-char (ccs code-point &optional restriction)
- "Return character specified by coded character set CCS and CODE-POINT in it.
-Return nil if such a character is not supported.
-Currently the only supported coded character set is `ucs' (ISO/IEC
-10646: Universal Multi-Octet Coded Character Set), and the result is
-translated through the translation-table named
-`utf-translation-table-for-decode', or through the
-translation-hash-table named `utf-subst-table-for-decode'
-\(if `utf-translate-cjk-mode' is non-nil).
-
-Optional argument RESTRICTION specifies a way to map the pair of CCS
-and CODE-POINT to a character. Currently not supported and just ignored."
- (cond
- ((eq ccs 'ucs)
- (or (and utf-translate-cjk-mode
- (utf-lookup-subst-table-for-decode code-point))
- (let ((c (cond
- ((< code-point 160)
- code-point)
- ((< code-point 256)
- (make-char 'latin-iso8859-1 code-point))
- ((< code-point #x2500)
- (setq code-point (- code-point #x0100))
- (make-char 'mule-unicode-0100-24ff
- (+ (/ code-point 96) 32) (+ (% code-point 96) 32)))
- ((< code-point #x3400)
- (setq code-point (- code-point #x2500))
- (make-char 'mule-unicode-2500-33ff
- (+ (/ code-point 96) 32) (+ (% code-point 96) 32)))
- ((and (>= code-point #xe000) (< code-point #x10000))
- (setq code-point (- code-point #xe000))
- (make-char 'mule-unicode-e000-ffff
- (+ (/ code-point 96) 32)
- (+ (% code-point 96) 32))))))
- (when c
- (or (aref (get 'utf-translation-table-for-decode
- 'translation-table) c)
- c)))))))
-
-(defun encode-char (char ccs &optional restriction)
- "Return code-point in coded character set CCS that corresponds to CHAR.
-Return nil if CHAR is not included in CCS.
-Currently the only supported coded character set is `ucs' (ISO/IEC
-10646: Universal Multi-Octet Coded Character Set), and CHAR is first
-translated through the translation-table named
-`utf-translation-table-for-encode', or through the
-translation-hash-table named `utf-subst-table-for-encode' \(if
-`utf-translate-cjk-mode' is non-nil).
-
-CHAR should be in one of these charsets:
- ascii, latin-iso8859-1, mule-unicode-0100-24ff, mule-unicode-2500-33ff,
- mule-unicode-e000-ffff, eight-bit-control
-Otherwise, return nil.
-
-Optional argument RESTRICTION specifies a way to map CHAR to a
-code-point in CCS. Currently not supported and just ignored."
- (let* ((split (split-char char))
- (charset (car split))
- trans)
- (cond ((eq ccs 'ucs)
- (or (and utf-translate-cjk-mode
- (utf-lookup-subst-table-for-encode char))
- (let ((table (get 'utf-translation-table-for-encode
- 'translation-table)))
- (setq trans (aref table char))
- (if trans
- (setq split (split-char trans)
- charset (car split)))
- (cond ((eq charset 'ascii)
- (or trans char))
- ((eq charset 'latin-iso8859-1)
- (+ (nth 1 split) 128))
- ((eq charset 'mule-unicode-0100-24ff)
- (+ #x0100 (+ (* (- (nth 1 split) 32) 96)
- (- (nth 2 split) 32))))
- ((eq charset 'mule-unicode-2500-33ff)
- (+ #x2500 (+ (* (- (nth 1 split) 32) 96)
- (- (nth 2 split) 32))))
- ((eq charset 'mule-unicode-e000-ffff)
- (+ #xe000 (+ (* (- (nth 1 split) 32) 96)
- (- (nth 2 split) 32))))
- ((eq charset 'eight-bit-control)
- char))))))))
+\f
+;;; CHARACTER
+(defalias 'char-valid-p 'characterp)
+(make-obsolete 'char-valid-p 'characterp "23.1")
+(defun generic-char-p (char)
+ "Always return nil. This is provided for backward compatibility."
+ nil)
+(make-obsolete 'generic-char-p "Generic characters no longer exist" "23.1")
+
+(defun make-char-internal (charset-id &optional code1 code2)
+ (let ((charset (aref emacs-mule-charset-table charset-id)))
+ (or charset
+ (error "Invalid Emacs-mule charset ID: %d" charset-id))
+ (make-char charset code1 code2)))
\f
;; Coding system stuff
-;; Coding system is a symbol that has the property `coding-system'.
-;;
-;; The value of the property `coding-system' is a vector of the
-;; following format:
-;; [TYPE MNEMONIC DOC-STRING PLIST FLAGS]
-;; We call this vector as coding-spec. See comments in src/coding.c
-;; for more detail.
-
-(defconst coding-spec-type-idx 0)
-(defconst coding-spec-mnemonic-idx 1)
-(defconst coding-spec-doc-string-idx 2)
-(defconst coding-spec-plist-idx 3)
-(defconst coding-spec-flags-idx 4)
-
-;; PLIST is a property list of a coding system. To share PLIST among
-;; alias coding systems, a coding system has PLIST in coding-spec
-;; instead of having it in normal property list of Lisp symbol.
-;; Here's a list of coding system properties currently being used.
-;;
-;; o coding-category
-;;
-;; The value is a coding category the coding system belongs to. The
-;; function `make-coding-system' sets this value automatically
-;; unless its argument PROPERTIES specifies this property.
-;;
-;; o alias-coding-systems
-;;
-;; The value is a list of coding systems of the same alias group. The
-;; first element is the coding system made at first, which we call as
-;; `base coding system'. The function `make-coding-system' sets this
-;; value automatically and `define-coding-system-alias' updates it.
-;;
-;; See the documentation of make-coding-system for the meanings of the
-;; following properties.
-;;
-;; o post-read-conversion
-;; o pre-write-conversion
-;; o translation-table-for-decode
-;; o translation-table-for-encode
-;; o safe-chars
-;; o safe-charsets
-;; o mime-charset
-;; o valid-codes (meaningful only for a coding system based on CCL)
-
-
-(defsubst coding-system-spec (coding-system)
- "Return coding-spec of CODING-SYSTEM."
- (get (check-coding-system coding-system) 'coding-system))
+;; Coding system is a symbol that has been defined by the function
+;; `define-coding-system'.
-(defun coding-system-type (coding-system)
- "Return the coding type of CODING-SYSTEM.
-A coding type is an integer value indicating the encoding method
-of CODING-SYSTEM. See the function `make-coding-system' for more detail."
- (aref (coding-system-spec coding-system) coding-spec-type-idx))
+(defconst coding-system-iso-2022-flags
+ '(long-form
+ ascii-at-eol
+ ascii-at-cntl
+ 7-bit
+ locking-shift
+ single-shift
+ designation
+ revision
+ direction
+ init-at-bol
+ designate-at-bol
+ safe
+ latin-extra
+ composition
+ euc-tw-shift
+ use-roman
+ use-oldjis)
+ "List of symbols that control ISO-2022 encoder/decoder.
-(defun coding-system-mnemonic (coding-system)
- "Return the mnemonic character of CODING-SYSTEM.
-The mnemonic character of a coding system is used in mode line
-to indicate the coding system. If the arg is nil, return ?-."
- (let ((spec (coding-system-spec coding-system)))
- (if spec (aref spec coding-spec-mnemonic-idx) ?-)))
+The value of the `:flags' attribute in the argument of the function
+`define-coding-system' must be one of them.
+
+If `long-form' is specified, use a long designation sequence on
+encoding for the charsets `japanese-jisx0208-1978', `chinese-gb2312',
+and `japanese-jisx0208'. The long designation sequence doesn't
+conform to ISO 2022, but is used by such coding systems as
+`compound-text'.
+
+If `ascii-at-eol' is specified, designate ASCII to g0 at end of line
+on encoding.
+
+If `ascii-at-cntl' is specified, designate ASCII to g0 before control
+codes and SPC on encoding.
+
+If `7-bit' is specified, use 7-bit code only on encoding.
+
+If `locking-shift' is specified, decode locking-shift code correctly
+on decoding, and use locking-shift to invoke a graphic element on
+encoding.
+
+If `single-shift' is specified, decode single-shift code correctly on
+decoding, and use single-shift to invoke a graphic element on encoding.
+
+If `designation' is specified, decode designation code correctly on
+decoding, and use designation to designate a charset to a graphic
+element on encoding.
+
+If `revision' is specified, produce an escape sequence to specify
+revision number of a charset on encoding. Such an escape sequence is
+always correctly decoded on decoding.
+
+If `direction' is specified, decode ISO6429's code for specifying
+direction correctly, and produce the code on encoding.
+
+If `init-at-bol' is specified, on encoding, it is assumed that
+invocation and designation statuses are reset at each beginning of
+line even if `ascii-at-eol' is not specified; thus no codes for
+resetting them are produced.
+
+If `safe' is specified, on encoding, characters not supported by a
+coding are replaced with `?'.
+
+If `latin-extra' is specified, the code-detection routine assumes that a
+code specified in `latin-extra-code-table' (which see) is valid.
+
+If `composition' is specified, an escape sequence to specify
+composition sequence is correctly decoded on decoding, and is produced
+on encoding.
+
+If `euc-tw-shift' is specified, the EUC-TW specific shifting code is
+correctly decoded on decoding, and is produced on encoding.
+
+If `use-roman' is specified, JIS0201-1976-Roman is designated instead
+of ASCII.
+
+If `use-oldjis' is specified, JIS0208-1976 is designated instead of
+JIS0208-1983.")
+
+(defun define-coding-system (name docstring &rest props)
+ "Define NAME (a symbol) as a coding system with DOCSTRING and attributes.
+The remaining arguments must come in pairs ATTRIBUTE VALUE. ATTRIBUTE
+may be any symbol.
+
+The following attributes have special meanings. Those labeled as
+\"(required)\", should not be omitted.
+
+`:mnemonic' (required)
+
+VALUE is a character to display on mode line for the coding system.
+
+`:coding-type' (required)
+
+VALUE must be one of `charset', `utf-8', `utf-16', `iso-2022',
+`emacs-mule', `shift-jis', `ccl', `raw-text', `undecided'.
+
+`:eol-type'
+
+VALUE is the EOL (end-of-line) format of the coding system. It must be
+one of `unix', `dos', `mac'. The symbol `unix' means Unix-like EOL
+\(i.e. single LF), `dos' means DOS-like EOL \(i.e. sequence of CR LF),
+and `mac' means MAC-like EOL \(i.e. single CR). If omitted, on
+decoding by the coding system, Emacs automatically detects the EOL
+format of the source text.
+
+`:charset-list'
+
+VALUE must be a list of charsets supported by the coding system. On
+encoding by the coding system, if a character belongs to multiple
+charsets in the list, a charset that comes earlier in the list is
+selected. If `:coding-type' is `iso-2022', VALUE may be `iso-2022',
+which indicates that the coding system supports all ISO-2022 based
+charsets. If `:coding-type' is `emacs-mule', VALUE may be
+`emacs-mule', which indicates that the coding system supports all
+charsets that have the `:emacs-mule-id' property.
+
+`:ascii-compatible-p'
+
+If VALUE is non-nil, the coding system decodes all 7-bit bytes into
+the corresponding ASCII characters, and encodes all ASCII characters
+back to the corresponding 7-bit bytes. VALUE defaults to nil.
+
+`:decode-translation-table'
+
+VALUE must be a translation table to use on decoding.
+
+`:encode-translation-table'
+
+VALUE must be a translation table to use on encoding.
+
+`:post-read-conversion'
+
+VALUE must be a function to call after some text is inserted and
+decoded by the coding system itself and before any functions in
+`after-insert-functions' are called. The arguments to this function
+are the same as those of a function in `after-insert-file-functions',
+i.e. LENGTH of the text to be decoded with point at the head of it,
+and the function should leave point unchanged.
+
+`:pre-write-conversion'
+
+VALUE must be a function to call after all functions in
+`write-region-annotate-functions' and `buffer-file-format' are called,
+and before the text is encoded by the coding system itself. The
+arguments to this function are the same as those of a function in
+`write-region-annotate-functions'.
+
+`:default-char'
+
+VALUE must be a character. On encoding, a character not supported by
+the coding system is replaced with VALUE.
+
+`:for-unibyte'
+
+VALUE non-nil means that visiting a file with the coding system
+results in a unibyte buffer.
+
+`:eol-type'
+
+VALUE must be `unix', `dos', `mac'. The symbol `unix' means Unix-like
+EOL (LF), `dos' means DOS-like EOL (CRLF), and `mac' means MAC-like
+EOL (CR). If omitted, on decoding, the coding system detects EOL
+format automatically, and on encoding, uses Unix-like EOL.
+
+`:mime-charset'
+
+VALUE must be a symbol whose name is that of a MIME charset converted
+to lower case.
+
+`:mime-text-unsuitable'
+
+VALUE non-nil means the `:mime-charset' property names a charset which
+is unsuitable for the top-level media type \"text\".
+
+`:flags'
+
+VALUE must be a list of symbols that control the ISO-2022 converter.
+Each must be a member of the list `coding-system-iso-2022-flags'
+\(which see). This attribute has a meaning only when `:coding-type'
+is `iso-2022'.
+
+`:designation'
+
+VALUE must be a vector [G0-USAGE G1-USAGE G2-USAGE G3-USAGE].
+GN-USAGE specifies the usage of graphic register GN as follows.
+
+If it is nil, no charset can be designated to GN.
+
+If it is a charset, the charset is initially designated to GN, and
+never used by the other charsets.
+
+If it is a list, the elements must be charsets, nil, 94, or 96. GN
+can be used by all the listed charsets. If the list contains 94, any
+iso-2022 charset whose code-space ranges are 94 long can be designated
+to GN. If the list contains 96, any charsets whose whose ranges are
+96 long can be designated to GN. If the first element is a charset,
+that charset is initially designated to GN.
+
+This attribute has a meaning only when `:coding-type' is `iso-2022'.
+
+`:bom'
+
+This attributes specifies whether the coding system uses a `byte order
+mark'. VALUE must nil, t, or cons of coding systems whose
+`:coding-type' is `utf-16'.
+
+If the value is nil, on decoding, don't treat the first two-byte as
+BOM, and on encoding, don't produce BOM bytes.
+
+If the value is t, on decoding, skip the first two-byte as BOM, and on
+encoding, produce BOM bytes accoding to the value of `:endian'.
+
+If the value is cons, on decoding, check the first two-byte. If theyq
+are 0xFE 0xFF, use the car part coding system of the value. If they
+are 0xFF 0xFE, use the car part coding system of the value.
+Otherwise, treat them as bytes for a normal character. On encoding,
+produce BOM bytes accoding to the value of `:endian'.
+
+This attribute has a meaning only when `:coding-type' is `utf-16'.
+
+`:endian'
+
+VALUE must be `big' or `little' specifying big-endian and
+little-endian respectively. The default value is `big'.
+
+This attribute has a meaning only when `:coding-type' is `utf-16'.
+
+`:ccl-decoder'
+
+VALUE is a symbol representing the registered CCL program used for
+decoding. This attribute has a meaning only when `:coding-type' is
+`ccl'.
+
+`:ccl-encoder'
+
+VALUE is a symbol representing the registered CCL program used for
+encoding. This attribute has a meaning only when `:coding-type' is
+`ccl'."
+ (let* ((common-attrs (mapcar 'list
+ '(:mnemonic
+ :coding-type
+ :charset-list
+ :ascii-compatible-p
+ :decode-translation-table
+ :encode-translation-table
+ :post-read-conversion
+ :pre-write-conversion
+ :default-char
+ :for-unibyte
+ :plist
+ :eol-type)))
+ (coding-type (plist-get props :coding-type))
+ (spec-attrs (mapcar 'list
+ (cond ((eq coding-type 'iso-2022)
+ '(:initial
+ :reg-usage
+ :request
+ :flags))
+ ((eq coding-type 'utf-16)
+ '(:bom
+ :endian))
+ ((eq coding-type 'ccl)
+ '(:ccl-decoder
+ :ccl-encoder
+ :valids))))))
+
+ (dolist (slot common-attrs)
+ (setcdr slot (plist-get props (car slot))))
+
+ (dolist (slot spec-attrs)
+ (setcdr slot (plist-get props (car slot))))
+
+ (if (eq coding-type 'iso-2022)
+ (let ((designation (plist-get props :designation))
+ (flags (plist-get props :flags))
+ (initial (make-vector 4 nil))
+ (reg-usage (cons 4 4))
+ request elt)
+ (dotimes (i 4)
+ (setq elt (aref designation i))
+ (cond ((charsetp elt)
+ (aset initial i elt)
+ (setq request (cons (cons elt i) request)))
+ ((consp elt)
+ (aset initial i (car elt))
+ (if (charsetp (car elt))
+ (setq request (cons (cons (car elt) i) request)))
+ (dolist (e (cdr elt))
+ (cond ((charsetp e)
+ (setq request (cons (cons e i) request)))
+ ((eq e 94)
+ (setcar reg-usage i))
+ ((eq e 96)
+ (setcdr reg-usage i))
+ ((eq e t)
+ (setcar reg-usage i)
+ (setcdr reg-usage i)))))))
+ (setcdr (assq :initial spec-attrs) initial)
+ (setcdr (assq :reg-usage spec-attrs) reg-usage)
+ (setcdr (assq :request spec-attrs) request)
+
+ ;; Change :flags value from a list to a bit-mask.
+ (let ((bits 0)
+ (i 0))
+ (dolist (elt coding-system-iso-2022-flags)
+ (if (memq elt flags)
+ (setq bits (logior bits (lsh 1 i))))
+ (setq i (1+ i)))
+ (setcdr (assq :flags spec-attrs) bits))))
+
+ ;; Add :name and :docstring properties to PROPS.
+ (setq props
+ (cons :name (cons name (cons :docstring (cons (purecopy docstring)
+ props)))))
+ (setcdr (assq :plist common-attrs) props)
+ (apply 'define-coding-system-internal
+ name (mapcar 'cdr (append common-attrs spec-attrs)))))
(defun coding-system-doc-string (coding-system)
"Return the documentation string for CODING-SYSTEM."
- (aref (coding-system-spec coding-system) coding-spec-doc-string-idx))
-
-(defun coding-system-plist (coding-system)
- "Return the property list of CODING-SYSTEM."
- (aref (coding-system-spec coding-system) coding-spec-plist-idx))
+ (plist-get (coding-system-plist coding-system) :docstring))
-(defun coding-system-flags (coding-system)
- "Return `flags' of CODING-SYSTEM.
-A `flags' of a coding system is a vector of length 32 indicating detailed
-information of a coding system. See the function `make-coding-system'
-for more detail."
- (aref (coding-system-spec coding-system) coding-spec-flags-idx))
+(defun coding-system-mnemonic (coding-system)
+ "Return the mnemonic character of CODING-SYSTEM.
+The mnemonic character of a coding system is used in mode line to
+indicate the coding system. If CODING-SYSTEM. is nil, return ?=."
+ (plist-get (coding-system-plist coding-system) :mnemonic))
-(defun coding-system-get (coding-system prop)
- "Extract a value from CODING-SYSTEM's property list for property PROP."
- (plist-get (coding-system-plist coding-system) prop))
+(defun coding-system-type (coding-system)
+ "Return the coding type of CODING-SYSTEM.
+A coding type is a symbol indicating the encoding method of CODING-SYSTEM.
+See the function `define-coding-system' for more detail."
+ (plist-get (coding-system-plist coding-system) :coding-type))
-(defun coding-system-put (coding-system prop val)
- "Change value in CODING-SYSTEM's property list PROP to VAL."
- (let ((plist (coding-system-plist coding-system)))
- (if plist
- (plist-put plist prop val)
- (aset (coding-system-spec coding-system) coding-spec-plist-idx
- (list prop val)))))
+(defun coding-system-charset-list (coding-system)
+ "Return list of charsets supported by CODING-SYSTEM.
+If CODING-SYSTEM supports all ISO-2022 charsets, return `iso-2022'.
+If CODING-SYSTEM supports all emacs-mule charsets, return `emacs-mule'."
+ (plist-get (coding-system-plist coding-system) :charset-list))
(defun coding-system-category (coding-system)
- "Return the coding category of CODING-SYSTEM.
-See also `coding-category-list'."
- (coding-system-get coding-system 'coding-category))
-
-(defun coding-system-base (coding-system)
- "Return the base coding system of CODING-SYSTEM.
-A base coding system is what made by `make-coding-system'.
-Any alias nor subsidiary coding systems are not base coding system."
- (car (coding-system-get coding-system 'alias-coding-systems)))
-
-;; Coding system also has a property `eol-type'.
-;;
-;; This property indicates how the coding system handles end-of-line
-;; format. The value is integer 0, 1, 2, or a vector of three coding
-;; systems. Each integer value 0, 1, and 2 indicates the format of
-;; end-of-line LF, CRLF, and CR respectively. A vector value
-;; indicates that the format of end-of-line should be detected
-;; automatically. Nth element of the vector is the subsidiary coding
-;; system whose `eol-type' property is N.
-
-(defun coding-system-eol-type (coding-system)
- "Return eol-type of CODING-SYSTEM.
-An eol-type is integer 0, 1, 2, or a vector of coding systems.
-
-Integer values 0, 1, and 2 indicate a format of end-of-line; LF,
-CRLF, and CR respectively.
-
-A vector value indicates that a format of end-of-line should be
-detected automatically. Nth element of the vector is the subsidiary
-coding system whose eol-type is N."
- (get coding-system 'eol-type))
+ "Return a category symbol of CODING-SYSTEM."
+ (plist-get (coding-system-plist coding-system) :category))
+
+(defun coding-system-get (coding-system prop)
+ "Extract a value from CODING-SYSTEM's property list for property PROP.
+For compatibility with Emacs 20/21, this accepts old-style symbols
+like `mime-charset' as well as the current style like `:mime-charset'."
+ (or (plist-get (coding-system-plist coding-system) prop)
+ (if (not (keywordp prop))
+ ;; For backward compatiblity.
+ (if (eq prop 'ascii-incompatible)
+ (not (plist-get (coding-system-plist coding-system)
+ :ascii-compatible-p))
+ (plist-get (coding-system-plist coding-system)
+ (intern (concat ":" (symbol-name prop))))))))
(defun coding-system-eol-type-mnemonic (coding-system)
"Return the string indicating end-of-line format of CODING-SYSTEM."
Two coding systems are identical if two symbols are equal
or one is an alias of the other."
(or (eq coding-system-1 coding-system-2)
- (and (equal (coding-system-spec coding-system-1)
- (coding-system-spec coding-system-2))
+ (and (equal (coding-system-plist coding-system-1)
+ (coding-system-plist coding-system-2))
(let ((eol-type-1 (coding-system-eol-type coding-system-1))
(eol-type-2 (coding-system-eol-type coding-system-2)))
(or (eq eol-type-1 eol-type-2)
(defun coding-system-list (&optional base-only)
"Return a list of all existing non-subsidiary coding systems.
-If optional arg BASE-ONLY is non-nil, only base coding systems are listed.
-The value doesn't include subsidiary coding systems which are what
+If optional arg BASE-ONLY is non-nil, only base coding systems are
+listed. The value doesn't include subsidiary coding systems which are
made from bases and aliases automatically for various end-of-line
formats (e.g. iso-latin-1-unix, koi8-r-dos)."
- (let* ((codings (copy-sequence coding-system-list))
- (tail (cons nil codings)))
- ;; Remove subsidiary coding systems (eol variants) and alias
- ;; coding systems (if necessary).
- (while (cdr tail)
- (let* ((coding (car (cdr tail)))
- (aliases (coding-system-get coding 'alias-coding-systems)))
- (if (or
- ;; CODING is an eol variant if not in ALIASES.
- (not (memq coding aliases))
- ;; CODING is an alias if it is not car of ALIASES.
- (and base-only (not (eq coding (car aliases)))))
- (setcdr tail (cdr (cdr tail)))
- (setq tail (cdr tail)))))
+ (let ((codings nil))
+ (dolist (coding coding-system-list)
+ (if (eq (coding-system-base coding) coding)
+ (if base-only
+ (setq codings (cons coding codings))
+ (dolist (alias (coding-system-aliases coding))
+ (setq codings (cons alias codings))))))
codings))
-(defun map-charset-chars (func charset)
- "Use FUNC to map over all characters in CHARSET for side effects.
-FUNC is a function of two args, the start and end (inclusive) of a
-character code range. Thus FUNC should iterate over [START, END]."
- (let* ((dim (charset-dimension charset))
- (chars (charset-chars charset))
- (start (if (= chars 94)
- 33
- 32)))
- (if (= dim 1)
- (funcall func
- (make-char charset start)
- (make-char charset (+ start chars -1)))
- (dotimes (i chars)
- (funcall func
- (make-char charset (+ i start) start)
- (make-char charset (+ i start) (+ start chars -1)))))))
-
-(defalias 'register-char-codings 'ignore "")
-(make-obsolete 'register-char-codings
- "it exists just for backward compatibility, and does nothing."
- "21.3")
-
(defconst char-coding-system-table nil
"This is an obsolete variable.
It exists just for backward compatibility, and the value is always nil.")
-(defun make-subsidiary-coding-system (coding-system)
- "Make subsidiary coding systems (eol-type variants) of CODING-SYSTEM."
- (let ((coding-spec (coding-system-spec coding-system))
- (subsidiaries (vector (intern (format "%s-unix" coding-system))
- (intern (format "%s-dos" coding-system))
- (intern (format "%s-mac" coding-system))))
- elt)
- (dotimes (i 3)
- (setq elt (aref subsidiaries i))
- (put elt 'coding-system coding-spec)
- (put elt 'eol-type i)
- (put elt 'coding-system-define-form nil)
- (add-to-coding-system-list elt)
- (or (assoc (symbol-name elt) coding-system-alist)
- (setq coding-system-alist
- (cons (list (symbol-name elt)) coding-system-alist))))
- subsidiaries))
-
(defun transform-make-coding-system-args (name type &optional doc-string props)
"For internal use only.
Transform XEmacs style args for `make-coding-system' to Emacs style.
properties
eol-type)
"Define a new coding system CODING-SYSTEM (symbol).
-Remaining arguments are TYPE, MNEMONIC, DOC-STRING, FLAGS (optional),
-and PROPERTIES (optional) which construct a coding-spec of CODING-SYSTEM
-in the following format:
- [TYPE MNEMONIC DOC-STRING PLIST FLAGS]
-
-TYPE is an integer value indicating the type of the coding system as follows:
- 0: Emacs internal format,
- 1: Shift-JIS (or MS-Kanji) used mainly on Japanese PCs,
- 2: ISO-2022 including many variants,
- 3: Big5 used mainly on Chinese PCs,
- 4: private, CCL programs provide encoding/decoding algorithm,
- 5: Raw-text, which means that text contains random 8-bit codes.
-
-MNEMONIC is a character to be displayed on mode line for the coding system.
-
-DOC-STRING is a documentation string for the coding system.
-
-FLAGS specifies more detailed information of the coding system as follows:
-
- If TYPE is 2 (ISO-2022), FLAGS is a list of these elements:
- CHARSET0, CHARSET1, CHARSET2, CHARSET3, SHORT-FORM,
- ASCII-EOL, ASCII-CNTL, SEVEN, LOCKING-SHIFT, SINGLE-SHIFT,
- USE-ROMAN, USE-OLDJIS, NO-ISO6429, INIT-BOL, DESIGNATION-BOL,
- SAFE, ACCEPT-LATIN-EXTRA-CODE.
- CHARSETn are character sets initially designated to Gn graphic registers.
- If CHARSETn is nil, Gn is never used.
- If CHARSETn is t, Gn can be used but nothing designated initially.
- If CHARSETn is a list of character sets, those character sets are
- designated to Gn on output, but nothing designated to Gn initially.
- But, character set `ascii' can be designated only to G0.
- SHORT-FORM non-nil means use short designation sequence on output.
- ASCII-EOL non-nil means designate ASCII to g0 at end of line on output.
- ASCII-CNTL non-nil means designate ASCII to g0 before control codes and
- SPACE on output.
- SEVEN non-nil means use 7-bit code only on output.
- LOCKING-SHIFT non-nil means use locking-shift.
- SINGLE-SHIFT non-nil means use single-shift.
- USE-ROMAN non-nil means designate JIS0201-1976-Roman instead of ASCII.
- USE-OLDJIS non-nil means designate JIS0208-1976 instead of JIS0208-1983.
- NO-ISO6429 non-nil means not use ISO6429's direction specification.
- INIT-BOL non-nil means any designation state is assumed to be reset
- to initial at each beginning of line on output.
- DESIGNATION-BOL non-nil means designation sequences should be placed
- at beginning of line on output.
- SAFE non-nil means convert unsafe characters to `?' on output.
- Characters not specified in the property `safe-charsets' nor
- `safe-chars' are unsafe.
- ACCEPT-LATIN-EXTRA-CODE non-nil means code-detection routine accepts
- a code specified in `latin-extra-code-table' (which see) as a valid
- code of the coding system.
-
- If TYPE is 4 (private), FLAGS should be a cons of CCL programs, for
- decoding and encoding. CCL programs should be specified by their
- symbols.
-
-PROPERTIES is an alist of properties vs the corresponding values. The
-following properties are recognized:
-
- o post-read-conversion
-
- The value is a function to call after some text is inserted and
- decoded by the coding system itself and before any functions in
- `after-insert-functions' are called. The argument of this
- function is the same as for a function in
- `after-insert-file-functions', i.e. LENGTH of the text inserted,
- with point at the head of the text to be decoded.
-
- o pre-write-conversion
-
- The value is a function to call after all functions in
- `write-region-annotate-functions' and `buffer-file-format' are
- called, and before the text is encoded by the coding system itself.
- The arguments to this function are the same as those of a function
- in `write-region-annotate-functions', i.e. FROM and TO, specifying
- a region of text.
-
- o translation-table-for-decode
-
- The value is a translation table to be applied on decoding. See
- the function `make-translation-table' for the format of translation
- table. This is not applicable to type 4 (CCL-based) coding systems.
-
- o translation-table-for-encode
-
- The value is a translation table to be applied on encoding. This is
- not applicable to type 4 (CCL-based) coding systems.
-
- o safe-chars
-
- The value is a char table. If a character has non-nil value in it,
- the character is safely supported by the coding system. This
- overrides the specification of safe-charsets.
-
- o safe-charsets
-
- The value is a list of charsets safely supported by the coding
- system. The value t means that all charsets Emacs handles are
- supported. Even if some charset is not in this list, it doesn't
- mean that the charset can't be encoded in the coding system;
- it just means that some other receiver of text encoded
- in the coding system won't be able to handle that charset.
-
- o mime-charset
-
- The value is a symbol whose name is the `MIME-charset' parameter of
- the coding system.
-
- o mime-text-unsuitable
-
- A non-nil value means the `mime-charset' property names a charset
- which is unsuitable for the top-level media type \"text\".
-
- o valid-codes (meaningful only for a coding system based on CCL)
-
- The value is a list to indicate valid byte ranges of the encoded
- file. Each element of the list is an integer or a cons of integer.
- In the former case, the integer value is a valid byte code. In the
- latter case, the integers specify the range of valid byte codes.
-
- o composition (meaningful only when TYPE is 0 or 2)
-
- If the value is non-nil, the coding system preserves composition
- information.
-
- o ascii-incompatible
-
- If the value is non-nil, the coding system is not compatible
- with ASCII, which means it encodes or decodes ASCII character
- string to the different byte sequence.
-
-These properties are set in PLIST, a property list. This function
-also sets properties `coding-category' and `alias-coding-systems'
-automatically.
-
-EOL-TYPE specifies the EOL type of the coding-system in one of the
-following formats:
-
- o symbol (unix, dos, or mac)
-
- The symbol `unix' means Unix-like EOL (LF), `dos' means
- DOS-like EOL (CRLF), and `mac' means MAC-like EOL (CR).
-
- o number (0, 1, or 2)
-
- The number 0, 1, and 2 mean UNIX, DOS, and MAC-like EOL
- respectively.
-
- o vector of coding-systems of length 3
-
- The EOL type is detected automatically for the coding system.
- And, according to the detected EOL type, one of the coding
- systems in the vector is selected. Elements of the vector
- corresponds to Unix-like EOL, DOS-like EOL, and Mac-like EOL
- in this order.
-
-Kludgy features for backward compatibility:
-
-1. If TYPE is 4 and car or cdr of FLAGS is a vector, the vector is
-treated as a compiled CCL code.
-
-2. If PROPERTIES is just a list of character sets, the list is set as
-a value of `safe-charsets' in PLIST."
-
+This function is provided for backward compatibility.
+Use `define-coding-system' instead."
;; For compatiblity with XEmacs, we check the type of TYPE. If it
;; is a symbol, perhaps, this function is called with XEmacs-style
;; arguments. Here, try to transform that kind of arguments to
properties (nth 5 args)
eol-type (nth 6 args))))
- ;; Set a value of `coding-system' property.
- (let ((coding-spec (make-vector 5 nil))
- (no-initial-designation t)
- (no-alternative-designation t)
- (accept-latin-extra-code nil)
- coding-category)
- (if (or (not (integerp type)) (< type 0) (> type 5))
- (error "TYPE argument must be 0..5"))
- (if (or (not (integerp mnemonic)) (<= mnemonic ? ) (> mnemonic 127))
- (error "MNEMONIC argument must be an ASCII printable character"))
- (aset coding-spec coding-spec-type-idx type)
- (aset coding-spec coding-spec-mnemonic-idx mnemonic)
- (aset coding-spec coding-spec-doc-string-idx
- (purecopy (if (stringp doc-string) doc-string "")))
- (cond ((= type 0)
- (setq coding-category 'coding-category-emacs-mule))
- ((= type 1)
- (setq coding-category 'coding-category-sjis))
- ((= type 2) ; ISO2022
- (let ((i 0)
- (vec (make-vector 32 nil))
- (g1-designation nil)
- (fl flags))
- (while (< i 4)
- (let ((charset (car fl)))
- (if (and no-initial-designation
- (> i 0)
- (or (charsetp charset)
- (and (consp charset)
- (charsetp (car charset)))))
- (setq no-initial-designation nil))
- (if (charsetp charset)
- (if (= i 1) (setq g1-designation charset))
- (if (consp charset)
- (let ((tail charset)
- elt)
- (while tail
- (setq elt (car tail))
- (if (eq elt t)
- (setq no-alternative-designation nil)
- (if (and elt (not (charsetp elt)))
- (error "Invalid charset: %s" elt)))
- (setq tail (cdr tail)))
- (setq g1-designation (car charset)))
- (if charset
- (if (eq charset t)
- (setq no-alternative-designation nil)
- (error "Invalid charset: %s" charset)))))
- (aset vec i charset))
- (setq fl (cdr fl) i (1+ i)))
- (while (and (< i 32) fl)
- (aset vec i (car fl))
- (if (and (= i 16) ; ACCEPT-LATIN-EXTRA-CODE
- (car fl))
- (setq accept-latin-extra-code t))
- (setq fl (cdr fl) i (1+ i)))
- (aset coding-spec 4 vec)
- (setq coding-category
- (if (aref vec 8) ; Use locking-shift.
- (or (and (aref vec 7) 'coding-category-iso-7-else)
- 'coding-category-iso-8-else)
- (if (aref vec 7) ; 7-bit only.
- (if (aref vec 9) ; Use single-shift.
- 'coding-category-iso-7-else
- (if no-alternative-designation
- 'coding-category-iso-7-tight
- 'coding-category-iso-7))
- (if (or no-initial-designation
- (not no-alternative-designation))
- 'coding-category-iso-8-else
- (if (and (charsetp g1-designation)
- (= (charset-dimension g1-designation) 2))
- 'coding-category-iso-8-2
- 'coding-category-iso-8-1)))))))
- ((= type 3)
- (setq coding-category 'coding-category-big5))
- ((= type 4) ; private
- (setq coding-category 'coding-category-ccl)
- (if (not (consp flags))
- (error "Invalid FLAGS argument for TYPE 4 (CCL)")
- (let ((decoder (check-ccl-program
- (car flags)
- (intern (format "%s-decoder" coding-system))))
- (encoder (check-ccl-program
- (cdr flags)
- (intern (format "%s-encoder" coding-system)))))
- (if (and decoder encoder)
- (aset coding-spec 4 (cons decoder encoder))
- (error "Invalid FLAGS argument for TYPE 4 (CCL)")))))
- (t ; i.e. (= type 5)
- (setq coding-category 'coding-category-raw-text)))
-
- (let ((plist (list 'coding-category coding-category
- 'alias-coding-systems (list coding-system))))
- (if no-initial-designation
- (plist-put plist 'no-initial-designation t))
- (if (and properties
- (or (eq properties t)
- (not (consp (car properties)))))
- ;; In the old version, the arg PROPERTIES is a list to be
- ;; set in PLIST as a value of property `safe-charsets'.
- (setq properties (list (cons 'safe-charsets properties))))
- ;; In the current version PROPERTIES is a property list.
- ;; Reflect it into PLIST one by one while handling safe-chars
- ;; specially.
- (let ((safe-charsets (cdr (assq 'safe-charsets properties)))
- (safe-chars (cdr (assq 'safe-chars properties)))
- (l properties)
- prop val)
- ;; If only safe-charsets is specified, make a char-table from
- ;; it, and store that char-table as the value of `safe-chars'.
- (if (and (not safe-chars) safe-charsets)
- (let (charset)
- (if (eq safe-charsets t)
- (setq safe-chars t)
- (setq safe-chars (make-char-table 'safe-chars))
- (while safe-charsets
- (setq charset (car safe-charsets)
- safe-charsets (cdr safe-charsets))
- (cond ((eq charset 'ascii)) ; just ignore
- ((eq charset 'eight-bit-control)
- (let ((i 128))
- (while (< i 160)
- (aset safe-chars i t)
- (setq i (1+ i)))))
- ((eq charset 'eight-bit-graphic)
- (let ((i 160))
- (while (< i 256)
- (aset safe-chars i t)
- (setq i (1+ i)))))
- (t
- (aset safe-chars (make-char charset) t))))
- (if accept-latin-extra-code
- (let ((i 128))
- (while (< i 160)
- (if (aref latin-extra-code-table i)
- (aset safe-chars i t))
- (setq i (1+ i))))))
- (setq l (cons (cons 'safe-chars safe-chars) l))))
- (while l
- (setq prop (car (car l)) val (cdr (car l)) l (cdr l))
- (if (eq prop 'safe-chars)
- (progn
- (if (and (symbolp val)
- (get val 'translation-table))
- (setq safe-chars (get val 'translation-table)))
- (setq val safe-chars)))
- (plist-put plist prop val)))
- ;; The property `coding-category' may have been set differently
- ;; through PROPERTIES.
- (setq coding-category (plist-get plist 'coding-category))
- (aset coding-spec coding-spec-plist-idx plist))
- (put coding-system 'coding-system coding-spec)
- (put coding-system 'coding-system-define-form nil)
- (put coding-category 'coding-systems
- (cons coding-system (get coding-category 'coding-systems))))
-
- ;; Next, set a value of `eol-type' property.
- (if (not eol-type)
- ;; If EOL-TYPE is nil, set a vector of subsidiary coding
- ;; systems, each corresponds to a coding system for the detected
- ;; EOL format.
- (setq eol-type (make-subsidiary-coding-system coding-system)))
- (setq eol-type
- (cond ((or (eq eol-type 'unix) (null eol-type))
- 0)
- ((eq eol-type 'dos)
- 1)
- ((eq eol-type 'mac)
- 2)
- ((or (and (vectorp eol-type)
- (= (length eol-type) 3))
- (and (numberp eol-type)
- (and (>= eol-type 0)
- (<= eol-type 2))))
- eol-type)
+ (setq type
+ (cond ((eq type 0) 'emacs-mule)
+ ((eq type 1) 'shift-jis)
+ ((eq type 2) 'iso2022)
+ ((eq type 3) 'big5)
+ ((eq type 4) 'ccl)
+ ((eq type 5) 'raw-text)
(t
- (error "Invalid EOL-TYPE spec:%S" eol-type))))
- (put coding-system 'eol-type eol-type)
-
- (define-coding-system-internal coding-system)
-
- ;; At last, register CODING-SYSTEM in `coding-system-list' and
- ;; `coding-system-alist'.
- (add-to-coding-system-list coding-system)
- (or (assoc (symbol-name coding-system) coding-system-alist)
- (setq coding-system-alist (cons (list (symbol-name coding-system))
- coding-system-alist)))
-
- ;; For a coding system of cateogory iso-8-1 and iso-8-2, create
- ;; XXX-with-esc variants.
- (let ((coding-category (coding-system-category coding-system)))
- (if (or (eq coding-category 'coding-category-iso-8-1)
- (eq coding-category 'coding-category-iso-8-2))
- (let ((esc (intern (concat (symbol-name coding-system) "-with-esc")))
- (doc (format "Same as %s but can handle any charsets by ISO's escape sequences." coding-system))
- (safe-charsets (assq 'safe-charsets properties))
- (mime-charset (assq 'mime-charset properties)))
- (if safe-charsets
- (setcdr safe-charsets t)
- (setq properties (cons (cons 'safe-charsets t) properties)))
- (if mime-charset
- (setcdr mime-charset nil))
- (make-coding-system esc type mnemonic doc
- (if (listp (car flags))
- (cons (append (car flags) '(t)) (cdr flags))
- (cons (list (car flags) t) (cdr flags)))
- properties))))
-
- coding-system)
-
-(put 'safe-chars 'char-table-extra-slots 0)
-
-(defun define-coding-system-alias (alias coding-system)
- "Define ALIAS as an alias for coding system CODING-SYSTEM."
- (put alias 'coding-system (coding-system-spec coding-system))
- (put alias 'coding-system-define-form nil)
- (add-to-coding-system-list alias)
- (or (assoc (symbol-name alias) coding-system-alist)
- (setq coding-system-alist (cons (list (symbol-name alias))
- coding-system-alist)))
- (let ((eol-type (coding-system-eol-type coding-system)))
- (if (vectorp eol-type)
- (progn
- (nconc (coding-system-get alias 'alias-coding-systems) (list alias))
- (put alias 'eol-type (make-subsidiary-coding-system alias)))
- (put alias 'eol-type eol-type))))
+ (error "Invalid coding system type: %s" type))))
+
+ (setq properties
+ (let ((plist nil) key)
+ (dolist (elt properties)
+ (setq key (car elt))
+ (cond ((eq key 'post-read-conversion)
+ (setq key :post-read-conversion))
+ ((eq key 'pre-write-conversion)
+ (setq key :pre-write-conversion))
+ ((eq key 'translation-table-for-decode)
+ (setq key :decode-translation-table))
+ ((eq key 'translation-table-for-encode)
+ (setq key :encode-translation-table))
+ ((eq key 'safe-charsets)
+ (setq key :charset-list))
+ ((eq key 'mime-charset)
+ (setq key :mime-charset))
+ ((eq key 'valid-codes)
+ (setq key :valids)))
+ (setq plist (plist-put plist key (cdr elt))))
+ plist))
+ (setq properties (plist-put properties :mnemonic mnemonic))
+ (plist-put properties :coding-type type)
+ (cond ((eq eol-type 0) (setq eol-type 'unix))
+ ((eq eol-type 1) (setq eol-type 'dos))
+ ((eq eol-type 2) (setq eol-type 'mac))
+ ((vectorp eol-type) (setq eol-type nil)))
+ (plist-put properties :eol-type eol-type)
+
+ (cond
+ ((eq type 'iso2022)
+ (plist-put properties :flags
+ (list (and (or (consp (nth 0 flags))
+ (consp (nth 1 flags))
+ (consp (nth 2 flags))
+ (consp (nth 3 flags))) 'designation)
+ (or (nth 4 flags) 'long-form)
+ (and (nth 5 flags) 'ascii-at-eol)
+ (and (nth 6 flags) 'ascii-at-cntl)
+ (and (nth 7 flags) '7-bit)
+ (and (nth 8 flags) 'locking-shift)
+ (and (nth 9 flags) 'single-shift)
+ (and (nth 10 flags) 'use-roman)
+ (and (nth 11 flags) 'use-oldjis)
+ (or (nth 12 flags) 'direction)
+ (and (nth 13 flags) 'init-at-bol)
+ (and (nth 14 flags) 'designate-at-bol)
+ (and (nth 15 flags) 'safe)
+ (and (nth 16 flags) 'latin-extra)))
+ (plist-put properties :designation
+ (let ((vec (make-vector 4 nil)))
+ (dotimes (i 4)
+ (let ((spec (nth i flags)))
+ (if (eq spec t)
+ (aset vec i '(94 96))
+ (if (consp spec)
+ (progn
+ (if (memq t spec)
+ (setq spec (append (delq t spec) '(94 96))))
+ (aset vec i spec))))))
+ vec)))
+
+ ((eq type 'ccl)
+ (plist-put properties :ccl-decoder (car flags))
+ (plist-put properties :ccl-encoder (cdr flags))))
+
+ (apply 'define-coding-system coding-system doc-string properties))
(defun merge-coding-systems (first second)
"Fill in any unspecified aspects of coding system FIRST from SECOND.
(interactive "zCoding system for file names (default nil): ")
(check-coding-system coding-system)
(if (and coding-system
- (coding-system-get coding-system 'ascii-incompatible))
- (error "%s is not ASCII-compatible" coding-system))
+ (not (coding-system-get coding-system :ascii-compatible-p))
+ (not (coding-system-get coding-system :suitable-for-file-name)))
+ (error "%s is not suitable for file names" coding-system))
(setq file-name-coding-system coding-system))
(defvar default-terminal-coding-system nil
(if coding-system
(setq default-keyboard-coding-system coding-system))
(if (and coding-system
- (coding-system-get coding-system 'ascii-incompatible))
- (error "%s is not ASCII-compatible" coding-system))
+ (not (coding-system-get coding-system :ascii-compatible-p))
+ (not (coding-system-get coding-system :suitable-for-keyboard)))
+ (error "%s is not suitable for keyboard" coding-system))
(set-keyboard-coding-system-internal coding-system)
(setq keyboard-coding-system coding-system)
(encoded-kbd-mode (if coding-system 1 0)))
(defvar last-next-selection-coding-system nil)
(defun set-next-selection-coding-system (coding-system)
- "Make CODING-SYSTEM used for the next communication with other X clients.
+ "Use CODING-SYSTEM for next communication with other window system clients.
This setting is effective for the next communication only."
(interactive
(list (read-coding-system
(if last-next-selection-coding-system
- (format "Coding system for the next X selection (default %S): "
+ (format "Coding system for the next selection (default %S): "
last-next-selection-coding-system)
- "Coding system for the next X selection: ")
+ "Coding system for the next selection: ")
last-next-selection-coding-system)))
(if coding-system
(setq last-next-selection-coding-system coding-system)
(defun set-coding-priority (arg)
"Set priority of coding categories according to ARG.
-ARG is a list of coding categories ordered by priority."
- (let ((l arg)
- (current-list (copy-sequence coding-category-list)))
- ;; Check the validity of ARG while deleting coding categories in
- ;; ARG from CURRENT-LIST. We assume that CODING-CATEGORY-LIST
- ;; contains all coding categories.
- (while l
- (if (or (null (get (car l) 'coding-category-index))
- (null (memq (car l) current-list)))
- (error "Invalid or duplicated element in argument: %s" arg))
- (setq current-list (delq (car l) current-list))
- (setq l (cdr l)))
- ;; Update `coding-category-list' and return it.
- (setq coding-category-list (append arg current-list))
- (set-coding-priority-internal)))
+ARG is a list of coding categories ordered by priority.
+
+This function is provided for backward compatibility.
+Now we have more convenient function `set-coding-system-priority'."
+ (apply 'set-coding-system-priority
+ (mapcar #'(lambda (x) (symbol-value x)) arg)))
+(make-obsolete 'set-coding-priority 'set-coding-system-priority "23.1")
;;; X selections
(defvar ctext-non-standard-encodings-alist
- '(("big5-0" big5 2 (chinese-big5-1 chinese-big5-2))
+ '(("big5-0" big5 2 big5)
("ISO8859-14" iso-8859-14 1 latin-iso8859-14)
- ("ISO8859-15" iso-8859-15 1 latin-iso8859-15))
+ ("ISO8859-15" iso-8859-15 1 latin-iso8859-15)
+ ("gbk-0" gbk 2 chinese-gbk))
"Alist of non-standard encoding names vs the corresponding usages in CTEXT.
It controls how extended segments of a compound text are handled
character is variable), 1, 2, 3, or 4.
CHARSET is a charater set containing characters that are encoded
-in the segment. It can be a list of character sets. It can also
-be a char-table, in which case characters that have non-nil value
-in the char-table are the target.
+in the segment. It can be a list of character sets.
On decoding CTEXT, all encoding names listed here are recognized.
listed for the current language environment under the key
`ctext-non-standard-encodings' are used.")
-(defvar ctext-non-standard-encodings
- '("big5-0")
+(defvar ctext-non-standard-encodings nil
"List of non-standard encoding names used in extended segments of CTEXT.
Each element must be one of the names listed in the variable
`ctext-non-standard-encodings-alist' (which see).")
(defun ctext-post-read-conversion (len)
"Decode LEN characters encoded as Compound Text with Extended Segments."
+ ;; We don't need the following because it is expected that this
+ ;; function is mainly used for decoding X selection which is not
+ ;; that big data.
+ ;;(buffer-disable-undo) ; minimize consing due to insertions and deletions
(save-match-data
(save-restriction
+ (narrow-to-region (point) (+ (point) len))
(let ((case-fold-search nil)
- (in-workbuf (string= (buffer-name) " *code-converting-work*"))
last-coding-system-used
pos bytes)
- (or in-workbuf
- (narrow-to-region (point) (+ (point) len)))
- (if in-workbuf
- (set-buffer-multibyte t))
+ (decode-coding-region (point-min) (point-max) 'ctext)
(while (re-search-forward ctext-non-standard-encodings-regexp
nil 'move)
(setq pos (match-beginning 0))
(if (match-beginning 1)
;; ESC % / [0-4] M L --ENCODING-NAME-- \002 --BYTES--
- (let* ((M (char-after (+ pos 4)))
- (L (char-after (+ pos 5)))
+ (let* ((M (multibyte-char-to-unibyte (char-after (+ pos 4))))
+ (L (multibyte-char-to-unibyte (char-after (+ pos 5))))
(encoding (match-string 2))
(encoding-info (assoc-string
encoding
(goto-char (point-min))
(- (point-max) (point)))))
-;; Return a char table of extended segment usage for each character.
-;; Each value of the char table is nil, one of the elements of
-;; `ctext-non-standard-encodings-alist', or the symbol `utf-8'.
+;; Return an alist of CHARSET vs CTEXT-USAGE-INFO generated from
+;; `ctext-non-standard-encodings' and a list specified by the key
+;; `ctext-non-standard-encodings' for the currrent language
+;; environment. CTEXT-USAGE-INFO is one of the element of
+;; `ctext-non-standard-encodings-alist' or nil. In the former case, a
+;; character in CHARSET is encoded using extended segment. In the
+;; latter case, a character in CHARSET is encoded using normal ISO2022
+;; designation sequence. If a character is not in any of CHARSETs, it
+;; is encoded using UTF-8 encoding extention.
(defun ctext-non-standard-encodings-table ()
- (let ((table (make-char-table 'translation-table)))
- (aset table (make-char 'mule-unicode-0100-24ff) 'utf-8)
- (aset table (make-char 'mule-unicode-2500-33ff) 'utf-8)
- (aset table (make-char 'mule-unicode-e000-ffff) 'utf-8)
- (dolist (encoding (reverse
- (append
+ (let (table)
+ ;; Setup charsets specified by the key
+ ;; `ctext-non-standard-encodings' for the current language
+ ;; environment and in `ctext-non-standard-encodings'.
+ (dolist (encoding (append
(get-language-info current-language-environment
'ctext-non-standard-encodings)
- ctext-non-standard-encodings)))
+ ctext-non-standard-encodings))
(let* ((slot (assoc encoding ctext-non-standard-encodings-alist))
(charset (nth 3 slot)))
- (if charset
- (cond ((charsetp charset)
- (aset table (make-char charset) slot))
- ((listp charset)
- (dolist (elt charset)
- (aset table (make-char elt) slot)))
- ((char-table-p charset)
- (map-char-table #'(lambda (k v)
- (if (and v (> k 128)) (aset table k slot)))
- charset))))))
- table))
+ (if (charsetp charset)
+ (push (cons charset slot) table)
+ (dolist (cs charset)
+ (push (cons cs slot) table)))))
+
+ ;; Next prepend charsets for ISO2022 designation sequence.
+ (dolist (charset charset-list)
+ (let ((final (plist-get (charset-plist charset) :iso-final-char)))
+ (if (and (integerp final)
+ (>= final #x40) (<= final #x7e)
+ ;; Exclude ascii and chinese-cns11643-X.
+ (not (eq charset 'ascii))
+ (not (string-match "cns11643" (symbol-name charset))))
+ (push (cons charset nil) table))))
+
+ ;; Returned reversed list so that the charsets specified by the
+ ;; key `ctext-non-standard-encodings' for the current language
+ ;; have the highest priority.
+ (nreverse table)))
(defun ctext-pre-write-conversion (from to)
"Encode characters between FROM and TO as Compound Text w/Extended Segments.
by encode-coding-string, generate a new temp buffer, insert the
text, and convert it in the temporary buffer. Otherwise, convert in-place."
(save-match-data
- (let ((workbuf (get-buffer-create " *code-conversion-work*")))
- ;; Setup a working buffer if necessary.
- (cond ((stringp from)
- (set-buffer workbuf)
- (erase-buffer)
- (set-buffer-multibyte (multibyte-string-p from))
- (insert from))
- ((not (eq (current-buffer) workbuf))
- (let ((buf (current-buffer))
- (multibyte enable-multibyte-characters))
- (set-buffer workbuf)
- (erase-buffer)
- (set-buffer-multibyte multibyte)
- (insert-buffer-substring buf from to)))))
+ ;; Setup a working buffer if necessary.
+ (when (stringp from)
+ (set-buffer (generate-new-buffer " *temp"))
+ (set-buffer-multibyte (multibyte-string-p from))
+ (insert from))
;; Now we can encode the whole buffer.
(let ((encoding-table (ctext-non-standard-encodings-table))
last-coding-system-used
last-pos last-encoding-info
- encoding-info end-pos)
+ encoding-info end-pos ch)
(goto-char (setq last-pos (point-min)))
(setq end-pos (point-marker))
(while (re-search-forward "[^\000-\177]+" nil t)
;; Found a sequence of non-ASCII characters.
(setq last-pos (match-beginning 0)
- last-encoding-info (aref encoding-table (char-after last-pos)))
+ ch (char-after last-pos)
+ last-encoding-info (catch 'tag
+ (dolist (elt encoding-table)
+ (if (encode-char ch (car elt))
+ (throw 'tag (cdr elt))))
+ 'utf-8))
(set-marker end-pos (match-end 0))
(goto-char (1+ last-pos))
(catch 'tag
(while t
(setq encoding-info
(if (< (point) end-pos)
- (aref encoding-table (following-char))))
+ (catch 'tag
+ (setq ch (following-char))
+ (dolist (elt encoding-table)
+ (if (encode-char ch (car elt))
+ (throw 'tag (cdr elt))))
+ 'utf-8)))
(unless (eq last-encoding-info encoding-info)
(cond ((consp last-encoding-info)
;; Encode the previous range using an extended
(encode-coding-region last-pos (point) coding-system)
(setq len (+ (length encoding-name) 1
(- (point) last-pos)))
+ ;; According to the spec of CTEXT, it is not
+ ;; necessary to produce this extra designation
+ ;; sequence, but some buggy application
+ ;; (e.g. crxvt-gb) requires it.
+ (insert "\e(B")
(save-excursion
(goto-char last-pos)
- (insert (string-to-multibyte
- (format "\e%%/%d%c%c%s\ 2"
- noctets
- (+ (/ len 128) 128)
- (+ (% len 128) 128)
- encoding-name))))))
+ (insert (format "\e%%/%d" noctets))
+ (insert-byte (+ (/ len 128) 128) 1)
+ (insert-byte (+ (% len 128) 128) 1)
+ (insert encoding-name)
+ (insert 2))))
((eq last-encoding-info 'utf-8)
;; Encode the previous range using UTF-8 encoding
;; extention.
'(("^BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion)
("\\`\xFE\xFF" . utf-16be-with-signature)
("\\`\xFF\xFE" . utf-16le-with-signature)
- ("\\`\xEF\xBB\xBF" . utf-8))
+ ("\\`\xEF\xBB\xBF" . utf-8)
+ ("\\`;ELC\024\0\0\0" . emacs-mule)) ; Emacs 20-compiled
"Alist of patterns vs corresponding coding systems.
Each element looks like (REGEXP . CODING-SYSTEM).
A file whose first bytes match REGEXP is decoded by CODING-SYSTEM on reading.
system and SOURCE is a symbol `auto-coding-alist',
`auto-coding-regexp-alist', `coding:', or `auto-coding-functions'
indicating by what CODING is specified. Note that the validity
- of CODING is not checked; it's callers responsibility to check it.
+ of CODING is not checked; it's the caller's responsibility to check it.
If nothing is specified, the return value is nil."
(or (let ((coding-system (auto-coding-alist-lookup filename)))
(setq buffer-file-coding-system-explicit coding-system-for-read))
(if last-coding-system-used
(let ((coding-system
- (find-new-buffer-file-coding-system last-coding-system-used))
- (modified-p (buffer-modified-p)))
+ (find-new-buffer-file-coding-system last-coding-system-used)))
(when coding-system
;; Tell set-buffer-file-coding-system not to mark the file
;; as modified; we just read it, and it's supposed to be unmodified.
;; Marking it modified would try to lock it, which would
;; check the modtime, and we don't want to do that again now.
- (set-buffer-file-coding-system coding-system t t)
- (if (and enable-multibyte-characters
- (or (eq coding-system 'no-conversion)
- (eq (coding-system-type coding-system) 5))
- ;; If buffer was unmodified and the size is the
- ;; same as INSERTED, we must be visiting it.
- (not modified-p)
- (= (buffer-size) inserted))
- ;; For coding systems no-conversion and raw-text...,
- ;; edit the buffer as unibyte.
- (let ((pos-marker (copy-marker (+ (point) inserted)))
- ;; Prevent locking.
- (buffer-file-name nil))
- (if visit
- ;; If we're doing this for find-file,
- ;; don't record undo info; this counts as
- ;; part of producing the buffer's initial contents.
- (let ((buffer-undo-list t))
- (set-buffer-multibyte nil))
- (set-buffer-multibyte nil))
- (setq inserted (- pos-marker (point)))))
- (restore-buffer-modified-p modified-p))))
+ (set-buffer-file-coding-system coding-system t t))))
inserted)
;; The coding-spec and eol-type of coding-system returned is decided
;; But eol-type is not yet set.
(setq local-eol nil))
(if (and buffer-file-coding-system
- (not (eq (coding-system-type buffer-file-coding-system) t)))
- ;; This is not `undecided'.
+ (not (eq (coding-system-type buffer-file-coding-system)
+ 'undecided)))
(setq local-coding (coding-system-base buffer-file-coding-system)))
(if (and (local-variable-p 'buffer-file-coding-system)
;; But eol-type is not found.
;; If EOL conversions are inhibited, force unix eol-type.
(setq found-eol (if inhibit-eol-conversion 0)))
- (if (eq (coding-system-type coding) t)
- (setq found-coding 'undecided)
- (setq found-coding (coding-system-base coding)))
+ (setq found-coding (coding-system-base coding))
(if (and (not found-eol) (eq found-coding 'undecided))
;; No valid coding information found.
Each argument is a list of elements of the form (FROM . TO), where FROM
is a character to be translated to TO.
-FROM can be a generic character (see `make-char'). In this case, TO is
-a generic character containing the same number of characters, or an
-ordinary character. If FROM and TO are both generic characters, all
-characters belonging to FROM are translated to characters belonging to TO
-without changing their position code(s).
-
The arguments and forms in each argument are processed in the given
order, and if a previous form already translates TO to some other
character, say TO-ALT, FROM is also translated to TO-ALT."
(let ((table (make-char-table 'translation-table))
revlist)
- (while args
- (let ((elts (car args)))
- (while elts
- (let* ((from (car (car elts)))
- (from-i 0) ; degree of freedom of FROM
- (from-rev (nreverse (split-char from)))
- (to (cdr (car elts)))
- (to-i 0) ; degree of freedom of TO
- (to-rev (nreverse (split-char to))))
- ;; Check numbers of heading 0s in FROM-REV and TO-REV.
- (while (eq (car from-rev) 0)
- (setq from-i (1+ from-i) from-rev (cdr from-rev)))
- (while (eq (car to-rev) 0)
- (setq to-i (1+ to-i) to-rev (cdr to-rev)))
- (if (and (/= from-i to-i) (/= to-i 0))
- (error "Invalid character pair (%d . %d)" from to))
- ;; If we have already translated TO to TO-ALT, FROM should
- ;; also be translated to TO-ALT. But, this is only if TO
- ;; is a generic character or TO-ALT is not a generic
- ;; character.
- (let ((to-alt (aref table to)))
- (if (and to-alt
- (or (> to-i 0) (not (generic-char-p to-alt))))
- (setq to to-alt)))
- (if (> from-i 0)
- (set-char-table-default table from to)
- (aset table from to))
- ;; If we have already translated some chars to FROM, they
- ;; should also be translated to TO.
- (let ((l (assq from revlist)))
- (if l
- (let ((ch (car l)))
- (setcar l to)
- (setq l (cdr l))
- (while l
- (aset table ch to)
- (setq l (cdr l)) ))))
- ;; Now update REVLIST.
- (let ((l (assq to revlist)))
- (if l
- (setcdr l (cons from (cdr l)))
- (setq revlist (cons (list to from) revlist)))))
- (setq elts (cdr elts))))
- (setq args (cdr args)))
+ (dolist (elts args)
+ (dolist (elt elts)
+ (let ((from (car elt))
+ (to (cdr elt))
+ to-alt rev-from rev-to)
+ ;; If we have already translated TO to TO-ALT, FROM should
+ ;; also be translated to TO-ALT.
+ (if (setq to-alt (aref table to))
+ (setq to to-alt))
+ (aset table from to)
+ ;; If we have already translated some chars to FROM, they
+ ;; should also be translated to TO.
+ (when (setq rev-from (assq from revlist))
+ (dolist (elt (cdr rev-from))
+ (aset table elt to))
+ (setq revlist (delq rev-from revlist)
+ rev-from (cdr rev-from)))
+ ;; Now update REVLIST.
+ (setq rev-to (assq to revlist))
+ (if rev-to
+ (setcdr rev-to (cons from (cdr rev-to)))
+ (setq rev-to (list to from)
+ revlist (cons rev-to revlist)))
+ (if rev-from
+ (setcdr rev-to (append rev-from (cdr rev-to)))))))
;; Return TABLE just created.
+ (set-char-table-extra-slot table 1 1)
table))
(defun make-translation-table-from-vector (vec)
(if (>= ch 256)
(aset rev-table ch i))))
(set-char-table-extra-slot table 0 rev-table)
+ (set-char-table-extra-slot table 1 1)
+ (set-char-table-extra-slot rev-table 1 1)
table))
+(defun make-translation-table-from-alist (alist)
+ "Make translation table from N<->M mapping in ALIST.
+ALIST is an alist, each element has the form (FROM . TO).
+FROM and TO are a character or a vector of characters.
+If FROM is a character, that character is translated to TO.
+If FROM is a vector of characters, that sequence is translated to TO.
+The first extra-slot of the value is a translation table for reverse mapping."
+ (let ((tables (vector (make-char-table 'translation-table)
+ (make-char-table 'translation-table)))
+ table max-lookup from to idx val)
+ (dotimes (i 2)
+ (setq table (aref tables i))
+ (setq max-lookup 1)
+ (dolist (elt alist)
+ (if (= i 0)
+ (setq from (car elt) to (cdr elt))
+ (setq from (cdr elt) to (car elt)))
+ (if (characterp from)
+ (setq idx from)
+ (setq idx (aref from 0)
+ max-lookup (max max-lookup (length from))))
+ (setq val (aref table idx))
+ (if val
+ (progn
+ (or (consp val)
+ (setq val (list (cons (vector idx) val))))
+ (if (characterp from)
+ (setq from (vector from)))
+ (setq val (nconc val (list (cons from to)))))
+ (if (characterp from)
+ (setq val to)
+ (setq val (list (cons from to)))))
+ (aset table idx val))
+ (set-char-table-extra-slot table 1 max-lookup))
+ (set-char-table-extra-slot (aref tables 0) 0 (aref tables 1))
+ (aref tables 0)))
+
(defun define-translation-table (symbol &rest args)
"Define SYMBOL as the name of translation table made by ARGS.
This sets up information so that the table can be used for
(put 'with-category-table 'lisp-indent-function 1)
(defmacro with-category-table (table &rest body)
- "Evaluate BODY with category table of current buffer set to TABLE.
+ "Execute BODY like `progn' with CATEGORY-TABLE the current category table.
The category table of the current buffer is saved, BODY is evaluated,
then the saved table is restored, even in case of an abnormal exit.
Value is what BODY returns."
(setq ignore-relative-composition
(make-char-table 'ignore-relative-composition))
+(make-obsolete 'set-char-table-default
+ "Generic characters no longer exist" "23.1")
;;; Built-in auto-coding-functions:
;; 2005, 2006, 2007
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
+;; Copyright (C) 2003
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H13PRO009
;; Keywords: Quail, TIT, cxterm
(princ ";; Quail package `")
(princ package)
- (princ (format "' -*- coding:%s; -*-\n" coding-system-for-write))
- (princ "' -*- coding:iso-2022-7bit; ")
++ (princ (format "' -*- coding:%s; " coding-system-for-write))
+ (princ "byte-compile-disable-print-circle:t; -*-\n")
(princ ";; Generated by the command `titdic-convert'\n;;\tDate: ")
(princ (current-time-string))
(princ "\n;;\tOriginal TIT dictionary file: ")
Optional argument DIRNAME if specified is the directory name under which
the generated Quail package is saved."
(interactive "FTIT dictionary file: ")
- (let ((coding-system-for-write 'iso-2022-7bit))
+ (let ((coding-system-for-write nil))
(with-temp-file (tit-make-quail-package-file-name filename dirname)
- (set-buffer-file-coding-system 'iso-2022-7bit)
(let ((standard-output (current-buffer)))
(with-temp-buffer
(set-buffer-multibyte nil)
(setq coding-system (nth 1 slot))
(message "Decoding with coding system %s..." coding-system)
(goto-char (point-min))
- (decode-coding-region (point-min) (point-max) coding-system))
+ (decode-coding-region (point-min) (point-max) coding-system)
+ (setq coding-system-for-write coding-system)
+ (remove-text-properties (point-min) (point-max) '(charset nil)))
+ (set-buffer-multibyte t)
;; Set point the starting position of the body part.
(goto-char (point-min))
(if (not (search-forward "\nBEGIN" nil t))
(error "TIT dictionary can't be decoded correctly"))
- ;; Process the header part in multibyte mode.
- (with-current-buffer standard-output
- (set-buffer-multibyte t))
- (set-buffer-multibyte t)
+ ;; Process the header part.
(forward-line 1)
(narrow-to-region (point-min) (point))
(tit-process-header filename)
(widen)
- ;; Process the body part. For speed, we turn off multibyte facility.
- (with-current-buffer standard-output
- (set-buffer-multibyte nil))
- (set-buffer-multibyte nil)
+ ;; Process the body part
(tit-process-body))))))
;;;###autoload
(let ((pos (point)))
(insert-buffer-substring dicbuf)
(goto-char pos)
+ (re-search-forward "^[a-z]")
+ (beginning-of-line)
+ (delete-region pos (point))
(while (not (eobp))
(insert "(\"")
(skip-chars-forward "a-z")
(or (file-readable-p filename)
(error "%s does not exist" filename))
(let ((tail quail-misc-package-ext-info)
- (default-buffer-file-coding-system 'iso-2022-7bit)
+ coding-system-for-write
slot
name title dicfile coding quailfile converter copyright
dicbuf)
converter (nth 5 slot)
copyright (nth 6 slot))
(message "Converting %s to %s..." dicfile quailfile)
+ (setq coding-system-for-write coding)
(with-temp-file (expand-file-name quailfile dirname)
- (insert (format ";; Quail package `%s' -*- coding:%s; -*-\n"
- name coding))
- (set-buffer-file-coding-system 'iso-2022-7bit)
- (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; ")
- (insert "byte-compile-disable-print-circle:t; -*-\n");
++ (insert (format ";; Quail package `%s' -*- coding:%s; " name coding))
++ (insert "byte-compile-disable-print-circle:t; -*-\n")
(insert ";; Generated by the command `miscdic-convert'\n")
(insert ";; Date: " (current-time-string) "\n")
(insert ";; Source dictionary file: " dicfile "\n")
(insert ";;; Code:\n\n")
(insert "(require 'quail)\n")
(insert "(quail-define-package \"" name "\" \""
- (if (eq coding 'big5) "Chinese-BIG5" "Chinese-CNS")
+ (if (eq coding 'big5) "Chinese-BIG5"
+ (if (eq coding 'iso-2022-cn-ext) "Chinese-CNS"
+ "Chinese-GB"))
"\" \"" title "\" t\n")
(let* ((coding-system-for-read coding)
(dicbuf (find-file-noselect filename)))
command-line-args-left (cdr command-line-args-left))
(if (file-directory-p filename)
(dolist (file (directory-files filename t nil t))
- (miscdic-convert file dir))
+ (or (file-directory-p file)
+ (miscdic-convert file dir)))
(miscdic-convert filename dir))))
(kill-emacs 0))
\f
;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best
;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5"
- ;;;;;; "play/5x5.el" (17843 45625))
+ ;;;;;; "play/5x5.el" (17851 10865))
;;; Generated autoloads from play/5x5.el
(autoload (quote 5x5) "5x5" "\
;;;***
\f
- ;;;### (autoloads nil "abbrev" "abbrev.el" (17843 45609))
+ ;;;### (autoloads nil "abbrev" "abbrev.el" (17851 10813))
;;; Generated autoloads from abbrev.el
(put 'abbrev-mode 'safe-local-variable 'booleanp)
;;;***
\f
;;;### (autoloads (list-one-abbrev-table) "abbrevlist" "abbrevlist.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10813))
;;; Generated autoloads from abbrevlist.el
(autoload (quote list-one-abbrev-table) "abbrevlist" "\
;;;***
\f
;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el"
- ;;;;;; (17843 45626))
+ ;;;;;; (17851 10866))
;;; Generated autoloads from progmodes/ada-mode.el
(autoload (quote ada-add-extensions) "ada-mode" "\
;;;***
\f
;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el"
- ;;;;;; (17843 45626))
+ ;;;;;; (17851 10866))
;;; Generated autoloads from progmodes/ada-stmt.el
(autoload (quote ada-header) "ada-stmt" "\
;;;***
\f
;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el"
- ;;;;;; (17843 45626))
+ ;;;;;; (17851 10866))
;;; Generated autoloads from progmodes/ada-xref.el
(autoload (quote ada-find-file) "ada-xref" "\
;;;;;; change-log-mode add-change-log-entry-other-window add-change-log-entry
;;;;;; find-change-log prompt-for-change-log-name add-log-mailing-address
;;;;;; add-log-full-name add-log-current-defun-function) "add-log"
- ;;;;;; "add-log.el" (17844 62922))
+ ;;;;;; "add-log.el" (17851 10813))
;;; Generated autoloads from add-log.el
(defvar add-log-current-defun-function nil "\
\f
;;;### (autoloads (defadvice ad-activate ad-add-advice ad-disable-advice
;;;;;; ad-enable-advice ad-default-compilation-action ad-redefinition-action)
- ;;;;;; "advice" "emacs-lisp/advice.el" (17843 45615))
+ ;;;;;; "advice" "emacs-lisp/advice.el" (17851 10852))
;;; Generated autoloads from emacs-lisp/advice.el
(defvar ad-redefinition-action (quote warn) "\
\f
;;;### (autoloads (align-newline-and-indent align-unhighlight-rule
;;;;;; align-highlight-rule align-current align-entire align-regexp
- ;;;;;; align) "align" "align.el" (17843 45609))
+ ;;;;;; align) "align" "align.el" (17851 10813))
;;; Generated autoloads from align.el
(autoload (quote align) "align" "\
;;;***
\f
;;;### (autoloads (outlineify-sticky allout-mode) "allout" "allout.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10813))
;;; Generated autoloads from allout.el
(put (quote allout-show-bodies) (quote safe-local-variable) (if (fboundp (quote booleanp)) (quote booleanp) (quote (lambda (x) (member x (quote (t nil)))))))
;;;***
\f
;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp"
- ;;;;;; "net/ange-ftp.el" (17843 45624))
+ ;;;;;; "net/ange-ftp.el" (17851 10863))
;;; Generated autoloads from net/ange-ftp.el
(defalias (quote ange-ftp-re-read-dir) (quote ange-ftp-reread-dir))
;;;***
\f
;;;### (autoloads (animate-birthday-present animate-sequence animate-string)
- ;;;;;; "animate" "play/animate.el" (17843 45625))
+ ;;;;;; "animate" "play/animate.el" (17851 10865))
;;; Generated autoloads from play/animate.el
(autoload (quote animate-string) "animate" "\
;;;***
\f
;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on)
- ;;;;;; "ansi-color" "ansi-color.el" (17843 45609))
+ ;;;;;; "ansi-color" "ansi-color.el" (17851 10813))
;;; Generated autoloads from ansi-color.el
(autoload (quote ansi-color-for-comint-mode-on) "ansi-color" "\
;;;***
\f
;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules)
- ;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (17838 18033))
+ ;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (17851 10866))
;;; Generated autoloads from progmodes/antlr-mode.el
(autoload (quote antlr-show-makefile-rules) "antlr-mode" "\
;;;### (autoloads (appt-activate appt-make-list appt-delete appt-add
;;;;;; appt-display-diary appt-display-duration appt-display-mode-line
;;;;;; appt-msg-window appt-visible appt-audible appt-message-warning-time
- ;;;;;; appt-issue-message) "appt" "calendar/appt.el" (17843 45615))
+ ;;;;;; appt-issue-message) "appt" "calendar/appt.el" (17851 10850))
;;; Generated autoloads from calendar/appt.el
(defvar appt-issue-message t "\
\f
;;;### (autoloads (apropos-documentation apropos-value apropos apropos-documentation-property
;;;;;; apropos-command apropos-variable apropos-read-pattern) "apropos"
- ;;;;;; "apropos.el" (17843 45609))
+ ;;;;;; "apropos.el" (17851 10813))
;;; Generated autoloads from apropos.el
(autoload (quote apropos-read-pattern) "apropos" "\
;;;***
\f
- ;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (17843
- ;;;;;; 45609))
+ ;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (17851
+ ;;;;;; 10814))
;;; Generated autoloads from arc-mode.el
(autoload (quote archive-mode) "arc-mode" "\
;;;***
\f
- ;;;### (autoloads (array-mode) "array" "array.el" (17843 45609))
+ ;;;### (autoloads (array-mode) "array" "array.el" (17851 10814))
;;; Generated autoloads from array.el
(autoload (quote array-mode) "array" "\
;;;***
\f
- ;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17843
- ;;;;;; 45629))
+ ;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17851
+ ;;;;;; 10872))
;;; Generated autoloads from textmodes/artist.el
(autoload (quote artist-mode) "artist" "\
;;;***
\f
- ;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17843
- ;;;;;; 45626))
+ ;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17851
+ ;;;;;; 10866))
;;; Generated autoloads from progmodes/asm-mode.el
(autoload (quote asm-mode) "asm-mode" "\
\(fn)" t nil)
- ;;;***
- \f
- ;;;### (autoloads (auto-show-mode auto-show-mode) "auto-show" "obsolete/auto-show.el"
- ;;;;;; (17075 55468))
- ;;; Generated autoloads from obsolete/auto-show.el
-
- (defvar auto-show-mode nil "\
- Obsolete.")
-
- (custom-autoload (quote auto-show-mode) "auto-show")
-
- (autoload (quote auto-show-mode) "auto-show" "\
- This command is obsolete.
-
- \(fn ARG)" t nil)
-
;;;***
\f
;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10814))
;;; Generated autoloads from autoarg.el
(defvar autoarg-mode nil "\
;;;***
\f
;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el"
- ;;;;;; (17843 45626))
+ ;;;;;; (17851 10866))
;;; Generated autoloads from progmodes/autoconf.el
(autoload (quote autoconf-mode) "autoconf" "\
;;;***
\f
;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert)
- ;;;;;; "autoinsert" "autoinsert.el" (17843 45609))
+ ;;;;;; "autoinsert" "autoinsert.el" (17851 10814))
;;; Generated autoloads from autoinsert.el
(autoload (quote auto-insert) "autoinsert" "\
\f
;;;### (autoloads (batch-update-autoloads update-directory-autoloads
;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10852))
;;; Generated autoloads from emacs-lisp/autoload.el
(autoload (quote update-file-autoloads) "autoload" "\
\f
;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode
;;;;;; auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode)
- ;;;;;; "autorevert" "autorevert.el" (17843 45609))
+ ;;;;;; "autorevert" "autorevert.el" (17851 10814))
;;; Generated autoloads from autorevert.el
(autoload (quote auto-revert-mode) "autorevert" "\
;;;***
\f
;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid"
- ;;;;;; "avoid.el" (17843 45609))
+ ;;;;;; "avoid.el" (17851 10814))
;;; Generated autoloads from avoid.el
(defvar mouse-avoidance-mode nil "\
;;;***
\f
;;;### (autoloads (backquote) "backquote" "emacs-lisp/backquote.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10852))
;;; Generated autoloads from emacs-lisp/backquote.el
(autoload (quote backquote) "backquote" "\
;;;***
\f
;;;### (autoloads (display-battery-mode battery) "battery" "battery.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10815))
;;; Generated autoloads from battery.el
(put 'battery-mode-line-string 'risky-local-variable t)
;;;***
\f
;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run)
- ;;;;;; "benchmark" "emacs-lisp/benchmark.el" (17843 45615))
+ ;;;;;; "benchmark" "emacs-lisp/benchmark.el" (17851 10852))
;;; Generated autoloads from emacs-lisp/benchmark.el
(autoload (quote benchmark-run) "benchmark" "\
;;;***
\f
- ;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (17843
- ;;;;;; 45630))
+ ;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (17851
+ ;;;;;; 10872))
;;; Generated autoloads from textmodes/bibtex.el
(autoload (quote bibtex-mode) "bibtex" "\
\f
;;;### (autoloads (binhex-decode-region binhex-decode-region-external
;;;;;; binhex-decode-region-internal) "binhex" "gnus/binhex.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10856))
;;; Generated autoloads from gnus/binhex.el
(defconst binhex-begin-line "^:...............................................................$")
;;;***
\f
- ;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17843
- ;;;;;; 45625))
+ ;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17851
+ ;;;;;; 10865))
;;; Generated autoloads from play/blackbox.el
(autoload (quote blackbox) "blackbox" "\
;;;### (autoloads (bookmark-bmenu-list bookmark-load bookmark-save
;;;;;; bookmark-write bookmark-delete bookmark-insert bookmark-rename
;;;;;; bookmark-insert-location bookmark-relocate bookmark-jump
- ;;;;;; bookmark-set) "bookmark" "bookmark.el" (17843 45609))
+ ;;;;;; bookmark-set) "bookmark" "bookmark.el" (17851 10815))
;;; Generated autoloads from bookmark.el
(define-key ctl-x-map "rb" 'bookmark-jump)
(define-key ctl-x-map "rm" 'bookmark-set)
;;;;;; browse-url browse-url-of-region browse-url-of-dired-file
;;;;;; browse-url-of-buffer browse-url-of-file browse-url-url-at-point
;;;;;; browse-url-galeon-program browse-url-firefox-program browse-url-browser-function)
- ;;;;;; "browse-url" "net/browse-url.el" (17843 45624))
+ ;;;;;; "browse-url" "net/browse-url.el" (17851 10863))
;;; Generated autoloads from net/browse-url.el
(defvar browse-url-browser-function (cond ((memq system-type (quote (windows-nt ms-dos cygwin))) (quote browse-url-default-windows-browser)) ((memq system-type (quote (darwin))) (quote browse-url-default-macosx-browser)) (t (quote browse-url-default-browser))) "\
;;;***
\f
- ;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17843
- ;;;;;; 45625))
+ ;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17851
+ ;;;;;; 10865))
;;; Generated autoloads from play/bruce.el
(autoload (quote bruce) "bruce" "\
;;;***
\f
;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next)
- ;;;;;; "bs" "bs.el" (17843 45609))
+ ;;;;;; "bs" "bs.el" (17851 10816))
;;; Generated autoloads from bs.el
(autoload (quote bs-cycle-next) "bs" "\
;;;***
\f
;;;### (autoloads (insert-text-button make-text-button insert-button
- ;;;;;; make-button define-button-type) "button" "button.el" (17843
- ;;;;;; 45609))
+ ;;;;;; make-button define-button-type) "button" "button.el" (17851
+ ;;;;;; 10816))
;;; Generated autoloads from button.el
(defvar button-map (let ((map (make-sparse-keymap))) (define-key map "\r" (quote push-button)) (define-key map [mouse-2] (quote push-button)) map) "\
;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile
;;;;;; compile-defun byte-compile-file byte-recompile-directory
;;;;;; byte-force-recompile byte-compile-warnings-safe-p) "bytecomp"
- ;;;;;; "emacs-lisp/bytecomp.el" (17843 45615))
+ ;;;;;; "emacs-lisp/bytecomp.el" (17851 10852))
;;; Generated autoloads from emacs-lisp/bytecomp.el
(put 'byte-compile-dynamic 'safe-local-variable 'booleanp)
(put 'byte-compile-dynamic-docstrings 'safe-local-variable 'booleanp)
;;;***
\f
- ;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17843 45615))
+ ;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17851 10850))
;;; Generated autoloads from calendar/cal-dst.el
(put (quote calendar-daylight-savings-starts) (quote risky-local-variable) t)
;;;***
\f
;;;### (autoloads (list-yahrzeit-dates) "cal-hebrew" "calendar/cal-hebrew.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10850))
;;; Generated autoloads from calendar/cal-hebrew.el
(autoload (quote list-yahrzeit-dates) "cal-hebrew" "\
;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle
;;;;;; calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc
;;;;;; full-calc calc calc-dispatch calc-settings-file) "calc" "calc/calc.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10850))
;;; Generated autoloads from calc/calc.el
(defvar calc-settings-file (convert-standard-filename "~/.calc.el") "\
;;;***
\f
- ;;;### (autoloads (calculator) "calculator" "calculator.el" (17843
- ;;;;;; 45609))
+ ;;;### (autoloads (calculator) "calculator" "calculator.el" (17851
+ ;;;;;; 10816))
;;; Generated autoloads from calculator.el
(autoload (quote calculator) "calculator" "\
;;;;;; mark-holidays-in-calendar view-calendar-holidays-initially
;;;;;; calendar-remove-frame-by-deleting mark-diary-entries-in-calendar
;;;;;; view-diary-entries-initially calendar-offset) "calendar"
- ;;;;;; "calendar/calendar.el" (17843 45615))
+ ;;;;;; "calendar/calendar.el" (17851 10851))
;;; Generated autoloads from calendar/calendar.el
(defvar calendar-offset 0 "\
;;;***
\f
;;;### (autoloads (canlock-verify canlock-insert-header) "canlock"
- ;;;;;; "gnus/canlock.el" (17843 45616))
+ ;;;;;; "gnus/canlock.el" (17851 10856))
;;; Generated autoloads from gnus/canlock.el
(autoload (quote canlock-insert-header) "canlock" "\
;;;***
\f
- ;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (17843
- ;;;;;; 45626))
+ ;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (17851
+ ;;;;;; 10866))
;;; Generated autoloads from progmodes/cc-compat.el
(put 'c-indent-level 'safe-local-variable 'integerp)
;;;***
\f
;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el"
- ;;;;;; (17843 45626))
+ ;;;;;; (17851 10867))
;;; Generated autoloads from progmodes/cc-engine.el
(autoload (quote c-guess-basic-syntax) "cc-engine" "\
\f
;;;### (autoloads (pike-mode idl-mode java-mode objc-mode c++-mode
;;;;;; c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el"
- ;;;;;; (17843 45627))
+ ;;;;;; (17851 10867))
;;; Generated autoloads from progmodes/cc-mode.el
(autoload (quote c-initialize-cc-mode) "cc-mode" "\
;;;***
\f
;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles"
- ;;;;;; "progmodes/cc-styles.el" (17843 45627))
+ ;;;;;; "progmodes/cc-styles.el" (17851 10867))
;;; Generated autoloads from progmodes/cc-styles.el
(autoload (quote c-set-style) "cc-styles" "\
;;;***
\f
- ;;;### (autoloads nil "cc-subword" "progmodes/cc-subword.el" (17843
- ;;;;;; 45627))
+ ;;;### (autoloads nil "cc-subword" "progmodes/cc-subword.el" (17851
+ ;;;;;; 10867))
;;; Generated autoloads from progmodes/cc-subword.el
(autoload 'c-subword-mode "cc-subword" "Mode enabling subword movement and editing keys." t)
;;;***
\f
- ;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (17843 45627))
+ ;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (17851 10867))
;;; Generated autoloads from progmodes/cc-vars.el
(put 'c-basic-offset 'safe-local-variable 'integerp)
(put 'c-backslash-column 'safe-local-variable 'integerp)
\f
;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program
;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el"
- ;;;;;; (17843 45618))
+ ;;;;;; (17851 10860))
;;; Generated autoloads from international/ccl.el
(autoload (quote ccl-compile) "ccl" "\
;;;***
\f
;;;### (autoloads (cfengine-mode) "cfengine" "progmodes/cfengine.el"
- ;;;;;; (17843 45627))
+ ;;;;;; (17851 10867))
;;; Generated autoloads from progmodes/cfengine.el
(autoload (quote cfengine-mode) "cfengine" "\
;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer
;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive
;;;;;; checkdoc-interactive checkdoc) "checkdoc" "emacs-lisp/checkdoc.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10852))
;;; Generated autoloads from emacs-lisp/checkdoc.el
(autoload (quote checkdoc) "checkdoc" "\
;;;***
\f
;;;### (autoloads (encode-hz-buffer encode-hz-region decode-hz-buffer
- ;;;;;; decode-hz-region) "china-util" "language/china-util.el" (17843
- ;;;;;; 45620))
+ ;;;;;; decode-hz-region) "china-util" "language/china-util.el" (17851
+ ;;;;;; 10861))
;;; Generated autoloads from language/china-util.el
(autoload (quote decode-hz-region) "china-util" "\
;;;***
\f
;;;### (autoloads (command-history list-command-history repeat-matching-complex-command)
- ;;;;;; "chistory" "chistory.el" (17843 45609))
+ ;;;;;; "chistory" "chistory.el" (17851 10817))
;;; Generated autoloads from chistory.el
(autoload (quote repeat-matching-complex-command) "chistory" "\
;;;***
\f
- ;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17843 45615))
+ ;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17851 10852))
;;; Generated autoloads from emacs-lisp/cl.el
(defvar custom-print-functions nil "\
;;;***
\f
;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10852))
;;; Generated autoloads from emacs-lisp/cl-indent.el
(autoload (quote common-lisp-indent-function) "cl-indent" "\
;;;***
\f
;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el"
- ;;;;;; (17843 45627))
+ ;;;;;; (17851 10867))
;;; Generated autoloads from progmodes/cmacexp.el
(autoload (quote c-macro-expand) "cmacexp" "\
;;;***
\f
- ;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17843
- ;;;;;; 45609))
+ ;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17851
+ ;;;;;; 10817))
;;; Generated autoloads from cmuscheme.el
(autoload (quote run-scheme) "cmuscheme" "\
\(fn CMD)" t nil)
(add-hook 'same-window-buffer-names "*scheme*")
-;;;***
-\f
-;;;### (autoloads (cp-make-coding-system) "code-pages" "international/code-pages.el"
-;;;;;; (17851 10860))
-;;; Generated autoloads from international/code-pages.el
-
-(autoload (quote cp-make-coding-system) "code-pages" "\
-Make coding system NAME for and 8-bit, extended-ASCII character set.
-V is a 128-long vector of characters to translate the upper half of
-the character set. DOC-STRING and MNEMONIC are used as the
-corresponding args of `make-coding-system'. If MNEMONIC isn't given,
-?* is used.
-Return an updated `non-iso-charset-alist'.
-
-\(fn NAME V &optional DOC-STRING MNEMONIC)" nil (quote macro))
-(autoload-coding-system 'cp437 '(require 'code-pages))
-(autoload-coding-system 'cp737 '(require 'code-pages))
-(autoload-coding-system 'cp775 '(require 'code-pages))
-(autoload-coding-system 'cp850 '(require 'code-pages))
-(autoload-coding-system 'cp851 '(require 'code-pages))
-(autoload-coding-system 'cp852 '(require 'code-pages))
-(autoload-coding-system 'cp855 '(require 'code-pages))
-(autoload-coding-system 'cp857 '(require 'code-pages))
-(autoload-coding-system 'cp858 '(require 'code-pages))
-(autoload-coding-system 'cp860 '(require 'code-pages))
-(autoload-coding-system 'cp861 '(require 'code-pages))
-(autoload-coding-system 'cp862 '(require 'code-pages))
-(autoload-coding-system 'cp863 '(require 'code-pages))
-(autoload-coding-system 'cp864 '(require 'code-pages))
-(autoload-coding-system 'cp865 '(require 'code-pages))
-(autoload-coding-system 'cp866 '(require 'code-pages))
-(autoload-coding-system 'cp869 '(require 'code-pages))
-(autoload-coding-system 'cp874 '(require 'code-pages))
-(autoload-coding-system 'windows-1250 '(require 'code-pages))
-(autoload-coding-system 'cp1250 '(require 'code-pages))
-(autoload-coding-system 'windows-1253 '(require 'code-pages))
-(autoload-coding-system 'cp1253 '(require 'code-pages))
-(autoload-coding-system 'windows-1254 '(require 'code-pages))
-(autoload-coding-system 'cp1254 '(require 'code-pages))
-(autoload-coding-system 'windows-1255 '(require 'code-pages))
-(autoload-coding-system 'cp1255 '(require 'code-pages))
-(autoload-coding-system 'windows-1256 '(require 'code-pages))
-(autoload-coding-system 'cp1256 '(require 'code-pages))
-(autoload-coding-system 'windows-1257 '(require 'code-pages))
-(autoload-coding-system 'cp1257 '(require 'code-pages))
-(autoload-coding-system 'windows-1258 '(require 'code-pages))
-(autoload-coding-system 'cp1258 '(require 'code-pages))
-(autoload-coding-system 'next '(require 'code-pages))
-(autoload-coding-system 'koi8-t '(require 'code-pages))
-(autoload-coding-system 'iso-8859-16 '(require 'code-pages))
-(autoload-coding-system 'iso-8859-6 '(require 'code-pages))
-(autoload-coding-system 'iso-8859-10 '(require 'code-pages))
-(autoload-coding-system 'iso-8859-13 '(require 'code-pages))
-(autoload-coding-system 'georgian-ps '(require 'code-pages))
-(autoload-coding-system 'cp720 '(require 'code-pages))
-(autoload-coding-system 'cp1125 '(require 'code-pages))
-(autoload-coding-system 'mik '(require 'code-pages))
-(autoload-coding-system 'pt154 '(require 'code-pages))
-(autoload-coding-system 'iso-8859-11 '(require 'code-pages))
-
;;;***
\f
;;;### (autoloads (codepage-setup cp-supported-codepages cp-offset-for-codepage
;;;;;; cp-language-for-codepage cp-charset-for-codepage cp-make-coding-systems-for-codepage)
- ;;;;;; "codepage" "international/codepage.el" (17843 45618))
+ ;;;;;; "codepage" "international/codepage.el" (17851 10860))
;;; Generated autoloads from international/codepage.el
(autoload (quote cp-make-coding-systems-for-codepage) "codepage" "\
;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list
;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command
;;;;;; comint-run make-comint make-comint-in-buffer) "comint" "comint.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10817))
;;; Generated autoloads from comint.el
(defvar comint-output-filter-functions (quote (comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt)) "\
;;;***
\f
- ;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17843
- ;;;;;; 45609))
+ ;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17851
+ ;;;;;; 10817))
;;; Generated autoloads from compare-w.el
(autoload (quote compare-windows) "compare-w" "\
;;;;;; compilation-shell-minor-mode compilation-mode compilation-start
;;;;;; compile compilation-disable-input compile-command compilation-search-path
;;;;;; compilation-ask-about-save compilation-window-height compilation-mode-hook)
- ;;;;;; "compile" "progmodes/compile.el" (17843 45627))
+ ;;;;;; "compile" "progmodes/compile.el" (17851 10867))
;;; Generated autoloads from progmodes/compile.el
(defvar compilation-mode-hook nil "\
;;;***
\f
;;;### (autoloads (partial-completion-mode) "complete" "complete.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10818))
;;; Generated autoloads from complete.el
(defvar partial-completion-mode nil "\
;;;***
\f
;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10818))
;;; Generated autoloads from completion.el
(defvar dynamic-completion-mode nil "\
;;;### (autoloads (decompose-composite-char compose-last-chars compose-chars-after
;;;;;; find-composition compose-chars decompose-string compose-string
;;;;;; decompose-region compose-region encode-composition-rule)
- ;;;;;; "composite" "composite.el" (17843 45609))
+ ;;;;;; "composite" "composite.el" (17851 10818))
;;; Generated autoloads from composite.el
(defconst reference-point-alist (quote ((tl . 0) (tc . 1) (tr . 2) (Bl . 3) (Bc . 4) (Br . 5) (bl . 6) (bc . 7) (br . 8) (cl . 9) (cc . 10) (cr . 11) (top-left . 0) (top-center . 1) (top-right . 2) (base-left . 3) (base-center . 4) (base-right . 5) (bottom-left . 6) (bottom-center . 7) (bottom-right . 8) (center-left . 9) (center-center . 10) (center-right . 11) (ml . 3) (mc . 10) (mr . 5) (mid-left . 3) (mid-center . 10) (mid-right . 5))) "\
;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode
;;;;;; conf-space-keywords conf-space-mode conf-javaprop-mode conf-windows-mode
;;;;;; conf-unix-mode conf-mode) "conf-mode" "textmodes/conf-mode.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/conf-mode.el
(autoload (quote conf-mode) "conf-mode" "\
;;;***
\f
;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie)
- ;;;;;; "cookie1" "play/cookie1.el" (17843 45625))
+ ;;;;;; "cookie1" "play/cookie1.el" (17851 10865))
;;; Generated autoloads from play/cookie1.el
(autoload (quote cookie) "cookie1" "\
;;;***
\f
;;;### (autoloads (copyright copyright-fix-years copyright-update)
- ;;;;;; "copyright" "emacs-lisp/copyright.el" (17843 45615))
+ ;;;;;; "copyright" "emacs-lisp/copyright.el" (17851 10852))
;;; Generated autoloads from emacs-lisp/copyright.el
(autoload (quote copyright-update) "copyright" "\
;;;***
\f
;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode)
- ;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (17843 45627))
+ ;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (17851 10867))
;;; Generated autoloads from progmodes/cperl-mode.el
(autoload (quote cperl-mode) "cperl-mode" "\
;;;***
\f
;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el"
- ;;;;;; (17843 45627))
+ ;;;;;; (17851 10867))
;;; Generated autoloads from progmodes/cpp.el
(autoload (quote cpp-highlight-buffer) "cpp" "\
;;;***
\f
;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emulation/crisp.el
(defvar crisp-mode nil "\
;;;***
\f
;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10852))
;;; Generated autoloads from emacs-lisp/crm.el
(autoload (quote completing-read-multiple) "crm" "\
;;;***
\f
;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emulation/cua-base.el
(defvar cua-mode nil "\
;;;;;; customize-mode customize customize-save-variable customize-set-variable
;;;;;; customize-set-value custom-menu-sort-alphabetically custom-buffer-sort-alphabetically
;;;;;; custom-browse-sort-alphabetically) "cus-edit" "cus-edit.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10819))
;;; Generated autoloads from cus-edit.el
(defvar custom-browse-sort-alphabetically nil "\
;;;***
\f
;;;### (autoloads (custom-reset-faces custom-theme-reset-faces custom-set-faces
- ;;;;;; custom-declare-face) "cus-face" "cus-face.el" (17843 45609))
+ ;;;;;; custom-declare-face) "cus-face" "cus-face.el" (17851 10821))
;;; Generated autoloads from cus-face.el
(autoload (quote custom-declare-face) "cus-face" "\
;;;***
\f
;;;### (autoloads (customize-create-theme) "cus-theme" "cus-theme.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10821))
;;; Generated autoloads from cus-theme.el
(autoload (quote customize-create-theme) "cus-theme" "\
;;;***
\f
;;;### (autoloads (cvs-status-mode) "cvs-status" "cvs-status.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10822))
;;; Generated autoloads from cvs-status.el
(autoload (quote cvs-status-mode) "cvs-status" "\
;;;***
\f
;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode)
- ;;;;;; "cwarn" "progmodes/cwarn.el" (17843 45627))
+ ;;;;;; "cwarn" "progmodes/cwarn.el" (17851 10867))
;;; Generated autoloads from progmodes/cwarn.el
(autoload (quote cwarn-mode) "cwarn" "\
\f
;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char
;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el"
- ;;;;;; (17843 45620))
+ ;;;;;; (17851 10861))
;;; Generated autoloads from language/cyril-util.el
(autoload (quote cyrillic-encode-koi8-r-char) "cyril-util" "\
;;;***
\f
;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el"
- ;;;;;; (17843 45609))
+ ;;;;;; (17851 10822))
;;; Generated autoloads from dabbrev.el
(define-key esc-map "/" 'dabbrev-expand)
(define-key esc-map [?\C-/] 'dabbrev-completion)
;;;***
\f
- ;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17843
- ;;;;;; 45627))
+ ;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17851
+ ;;;;;; 10867))
;;; Generated autoloads from progmodes/dcl-mode.el
(autoload (quote dcl-mode) "dcl-mode" "\
;;;***
\f
;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug"
- ;;;;;; "emacs-lisp/debug.el" (17843 45615))
+ ;;;;;; "emacs-lisp/debug.el" (17851 10852))
;;; Generated autoloads from emacs-lisp/debug.el
(setq debugger (quote debug))
;;;***
\f
;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el"
- ;;;;;; (17843 45625))
+ ;;;;;; (17851 10865))
;;; Generated autoloads from play/decipher.el
(autoload (quote decipher) "decipher" "\
;;;***
\f
;;;### (autoloads (delimit-columns-rectangle delimit-columns-region
- ;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (17843
- ;;;;;; 45609))
+ ;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (17851
+ ;;;;;; 10822))
;;; Generated autoloads from delim-col.el
(autoload (quote delimit-columns-customize) "delim-col" "\
;;;***
\f
- ;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (17843
- ;;;;;; 45627))
+ ;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (17851
+ ;;;;;; 10867))
;;; Generated autoloads from progmodes/delphi.el
(autoload (quote delphi-mode) "delphi" "\
;;;***
\f
- ;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17843
- ;;;;;; 45609))
+ ;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17851
+ ;;;;;; 10822))
;;; Generated autoloads from delsel.el
(defalias (quote pending-delete-mode) (quote delete-selection-mode))
;;;***
\f
;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode)
- ;;;;;; "derived" "emacs-lisp/derived.el" (17843 45615))
+ ;;;;;; "derived" "emacs-lisp/derived.el" (17851 10852))
;;; Generated autoloads from emacs-lisp/derived.el
(autoload (quote define-derived-mode) "derived" "\
;;;***
\f
;;;### (autoloads (describe-char describe-text-properties) "descr-text"
- ;;;;;; "descr-text.el" (17843 45609))
+ ;;;;;; "descr-text.el" (17851 10822))
;;; Generated autoloads from descr-text.el
(autoload (quote describe-text-properties) "descr-text" "\
;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir
;;;;;; desktop-load-default desktop-read desktop-remove desktop-save
;;;;;; desktop-clear desktop-locals-to-save desktop-save-mode) "desktop"
- ;;;;;; "desktop.el" (17843 45609))
+ ;;;;;; "desktop.el" (17851 10822))
;;; Generated autoloads from desktop.el
(defvar desktop-save-mode nil "\
\f
;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article
;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines)
- ;;;;;; "deuglify" "gnus/deuglify.el" (17843 45616))
+ ;;;;;; "deuglify" "gnus/deuglify.el" (17851 10856))
;;; Generated autoloads from gnus/deuglify.el
(autoload (quote gnus-article-outlook-unwrap-lines) "deuglify" "\
;;;***
\f
;;;### (autoloads (devanagari-post-read-conversion devanagari-compose-region)
- ;;;;;; "devan-util" "language/devan-util.el" (17843 45620))
+ ;;;;;; "devan-util" "language/devan-util.el" (17851 10861))
;;; Generated autoloads from language/devan-util.el
(defconst devanagari-consonant "[\x51ad5-\x51af9\x51b38-\x51b3f]")
;;;***
\f
;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib"
- ;;;;;; "calendar/diary-lib.el" (17843 45615))
+ ;;;;;; "calendar/diary-lib.el" (17851 10852))
;;; Generated autoloads from calendar/diary-lib.el
(autoload (quote diary) "diary-lib" "\
;;;***
\f
;;;### (autoloads (diff-backup diff diff-command diff-switches) "diff"
- ;;;;;; "diff.el" (17843 45609))
+ ;;;;;; "diff.el" (17851 10822))
;;; Generated autoloads from diff.el
(defvar diff-switches "-c" "\
;;;***
\f
;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "diff-mode.el"
- ;;;;;; (17838 18032))
+ ;;;;;; (17851 10822))
;;; Generated autoloads from diff-mode.el
(autoload (quote diff-mode) "diff-mode" "\
;;;;;; dired dired-copy-preserve-time dired-dwim-target dired-keep-marker-symlink
;;;;;; dired-keep-marker-hardlink dired-keep-marker-copy dired-keep-marker-rename
;;;;;; dired-trivial-filenames dired-ls-F-marks-symlinks dired-listing-switches)
- ;;;;;; "dired" "dired.el" (17843 45609))
+ ;;;;;; "dired" "dired.el" (17851 10823))
;;; Generated autoloads from dired.el
(defvar dired-listing-switches "-al" "\
;;;;;; dired-run-shell-command dired-do-shell-command dired-clean-directory
;;;;;; dired-do-print dired-do-touch dired-do-chown dired-do-chgrp
;;;;;; dired-do-chmod dired-compare-directories dired-backup-diff
- ;;;;;; dired-diff) "dired-aux" "dired-aux.el" (17843 45609))
+ ;;;;;; dired-diff) "dired-aux" "dired-aux.el" (17851 10822))
;;; Generated autoloads from dired-aux.el
(autoload (quote dired-diff) "dired-aux" "\
;;;***
\f
- ;;;### (autoloads (dired-jump) "dired-x" "dired-x.el" (17843 45609))
+ ;;;### (autoloads (dired-jump) "dired-x" "dired-x.el" (17851 10823))
;;; Generated autoloads from dired-x.el
(autoload (quote dired-jump) "dired-x" "\
;;;***
\f
- ;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17843 45609))
+ ;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17851 10823))
;;; Generated autoloads from dirtrack.el
(autoload (quote dirtrack) "dirtrack" "\
;;;***
\f
- ;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17843
- ;;;;;; 45615))
+ ;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17851
+ ;;;;;; 10852))
;;; Generated autoloads from emacs-lisp/disass.el
(autoload (quote disassemble) "disass" "\
;;;;;; standard-display-graphic standard-display-g1 standard-display-ascii
;;;;;; standard-display-default standard-display-8bit describe-current-display-table
;;;;;; describe-display-table set-display-table-slot display-table-slot
- ;;;;;; make-display-table) "disp-table" "disp-table.el" (17843 45609))
+ ;;;;;; make-display-table) "disp-table" "disp-table.el" (17851 10823))
;;; Generated autoloads from disp-table.el
(autoload (quote make-display-table) "disp-table" "\
;;;***
\f
;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el"
- ;;;;;; (17843 45625))
+ ;;;;;; (17851 10865))
;;; Generated autoloads from play/dissociate.el
(autoload (quote dissociated-press) "dissociate" "\
;;;***
\f
- ;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17843 45609))
+ ;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17851 10823))
;;; Generated autoloads from dnd.el
(defvar dnd-protocol-alist (quote (("^file:///" . dnd-open-local-file) ("^file://" . dnd-open-file) ("^file:" . dnd-open-local-file) ("^\\(https?\\|ftp\\|file\\|nfs\\)://" . dnd-open-file))) "\
;;;***
\f
;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode"
- ;;;;;; "textmodes/dns-mode.el" (17843 45630))
+ ;;;;;; "textmodes/dns-mode.el" (17851 10872))
;;; Generated autoloads from textmodes/dns-mode.el
(autoload (quote dns-mode) "dns-mode" "\
;;;***
\f
- ;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17843 45625))
+ ;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17851 10865))
;;; Generated autoloads from play/doctor.el
(autoload (quote doctor) "doctor" "\
;;;***
\f
;;;### (autoloads (double-mode double-mode) "double" "double.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10823))
;;; Generated autoloads from double.el
(defvar double-mode nil "\
;;;***
\f
- ;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17843 45625))
+ ;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17851 10865))
;;; Generated autoloads from play/dunnet.el
(autoload (quote dunnet) "dunnet" "\
;;;***
\f
;;;### (autoloads (gnus-earcon-display) "earcon" "gnus/earcon.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10856))
;;; Generated autoloads from gnus/earcon.el
(autoload (quote gnus-earcon-display) "earcon" "\
\f
;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap
;;;;;; define-global-minor-mode define-minor-mode) "easy-mmode"
- ;;;;;; "emacs-lisp/easy-mmode.el" (17843 45615))
+ ;;;;;; "emacs-lisp/easy-mmode.el" (17851 10852))
;;; Generated autoloads from emacs-lisp/easy-mmode.el
(defalias (quote easy-mmode-define-minor-mode) (quote define-minor-mode))
;;;***
\f
;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define
- ;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17843
- ;;;;;; 45615))
+ ;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17851
+ ;;;;;; 10852))
;;; Generated autoloads from emacs-lisp/easymenu.el
(put (quote easy-menu-define) (quote lisp-indent-function) (quote defun))
;;;;;; ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer ebnf-spool-file
;;;;;; ebnf-spool-directory ebnf-print-region ebnf-print-buffer
;;;;;; ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps"
- ;;;;;; "progmodes/ebnf2ps.el" (17843 45627))
+ ;;;;;; "progmodes/ebnf2ps.el" (17851 10867))
;;; Generated autoloads from progmodes/ebnf2ps.el
(autoload (quote ebnf-customize) "ebnf2ps" "\
;;;;;; ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition
;;;;;; ebrowse-tags-view-definition ebrowse-tags-find-declaration
;;;;;; ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree
- ;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17827
- ;;;;;; 37447))
+ ;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17822
+ ;;;;;; 38987))
;;; Generated autoloads from progmodes/ebrowse.el
(autoload (quote ebrowse-tree-mode) "ebrowse" "\
;;;***
\f
;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10823))
;;; Generated autoloads from ebuff-menu.el
(autoload (quote electric-buffer-list) "ebuff-menu" "\
;;;***
\f
;;;### (autoloads (Electric-command-history-redo-expression) "echistory"
- ;;;;;; "echistory.el" (17843 45610))
+ ;;;;;; "echistory.el" (17851 10823))
;;; Generated autoloads from echistory.el
(autoload (quote Electric-command-history-redo-expression) "echistory" "\
\f
;;;### (autoloads (edebug-all-forms edebug-all-defs edebug-eval-top-level-form
;;;;;; edebug-basic-spec edebug-all-forms edebug-all-defs) "edebug"
- ;;;;;; "emacs-lisp/edebug.el" (17843 45615))
+ ;;;;;; "emacs-lisp/edebug.el" (17851 10852))
;;; Generated autoloads from emacs-lisp/edebug.el
(defvar edebug-all-defs nil "\
;;;;;; ediff-merge-directory-revisions ediff-merge-directories-with-ancestor
;;;;;; ediff-merge-directories ediff-directories3 ediff-directory-revisions
;;;;;; ediff-directories ediff-buffers3 ediff-buffers ediff-backup
- ;;;;;; ediff-files3 ediff-files) "ediff" "ediff.el" (17843 45610))
+ ;;;;;; ediff-files3 ediff-files) "ediff" "ediff.el" (17851 10823))
;;; Generated autoloads from ediff.el
(autoload (quote ediff-files) "ediff" "\
(autoload (quote ediff-regions-wordwise) "ediff" "\
Run Ediff on a pair of regions in specified buffers.
- Regions (i.e., point and mark) are assumed to be set in advance except
- for the second region in the case both regions are from the same buffer.
- In such a case the user is asked to interactively establish the second
- region.
+ Regions (i.e., point and mark) can be set in advance or marked interactively.
This function is effective only for relatively small regions, up to 200
lines. For large regions, use `ediff-regions-linewise'.
(autoload (quote ediff-regions-linewise) "ediff" "\
Run Ediff on a pair of regions in specified buffers.
- Regions (i.e., point and mark) are assumed to be set in advance except
- for the second region in the case both regions are from the same buffer.
- In such a case the user is asked to interactively establish the second
- region.
+ Regions (i.e., point and mark) can be set in advance or marked interactively.
Each region is enlarged to contain full lines.
This function is effective for large regions, over 100-200
lines. For small regions, use `ediff-regions-wordwise'.
;;;***
\f
;;;### (autoloads (ediff-customize) "ediff-help" "ediff-help.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10823))
;;; Generated autoloads from ediff-help.el
(autoload (quote ediff-customize) "ediff-help" "\
;;;***
\f
- ;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17843 45610))
+ ;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17851 10823))
;;; Generated autoloads from ediff-hook.el
(defvar ediff-window-setup-function)
;;;***
\f
;;;### (autoloads (ediff-show-registry) "ediff-mult" "ediff-mult.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10823))
;;; Generated autoloads from ediff-mult.el
(autoload (quote ediff-show-registry) "ediff-mult" "\
;;;***
\f
;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe)
- ;;;;;; "ediff-util" "ediff-util.el" (17843 45610))
+ ;;;;;; "ediff-util" "ediff-util.el" (17851 10823))
;;; Generated autoloads from ediff-util.el
(autoload (quote ediff-toggle-multiframe) "ediff-util" "\
\f
;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro
;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10823))
;;; Generated autoloads from edmacro.el
(defvar edmacro-eight-bits nil "\
;;;***
\f
;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt"
- ;;;;;; "emulation/edt.el" (17843 45615))
+ ;;;;;; "emulation/edt.el" (17851 10853))
;;; Generated autoloads from emulation/edt.el
(autoload (quote edt-set-scroll-margins) "edt" "\
;;;***
\f
;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10823))
;;; Generated autoloads from ehelp.el
(autoload (quote with-electric-help) "ehelp" "\
;;;***
\f
;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string)
- ;;;;;; "eldoc" "emacs-lisp/eldoc.el" (17843 45615))
+ ;;;;;; "eldoc" "emacs-lisp/eldoc.el" (17851 10853))
;;; Generated autoloads from emacs-lisp/eldoc.el
(defvar eldoc-minor-mode-string " ElDoc" "\
;;;***
\f
- ;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17843
- ;;;;;; 45610))
+ ;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17851
+ ;;;;;; 10826))
;;; Generated autoloads from elide-head.el
(autoload (quote elide-head) "elide-head" "\
;;;***
\f
;;;### (autoloads (elint-initialize) "elint" "emacs-lisp/elint.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emacs-lisp/elint.el
(autoload (quote elint-initialize) "elint" "\
;;;***
\f
;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list
- ;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (17843
- ;;;;;; 45615))
+ ;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (17851
+ ;;;;;; 10853))
;;; Generated autoloads from emacs-lisp/elp.el
(autoload (quote elp-instrument-function) "elp" "\
;;;***
\f
;;;### (autoloads (report-emacs-bug) "emacsbug" "mail/emacsbug.el"
- ;;;;;; (17843 45621))
+ ;;;;;; (17851 10861))
;;; Generated autoloads from mail/emacsbug.el
(autoload (quote report-emacs-bug) "emacsbug" "\
;;;;;; emerge-revisions emerge-files-with-ancestor-remote emerge-files-remote
;;;;;; emerge-files-with-ancestor-command emerge-files-command emerge-buffers-with-ancestor
;;;;;; emerge-buffers emerge-files-with-ancestor emerge-files) "emerge"
- ;;;;;; "emerge.el" (17167 2962))
+ ;;;;;; "emerge.el" (17197 14700))
;;; Generated autoloads from emerge.el
(defvar menu-bar-emerge-menu (make-sparse-keymap "Emerge"))
;;;***
\f
;;;### (autoloads (encoded-kbd-mode) "encoded-kb" "international/encoded-kb.el"
- ;;;;;; (17843 45618))
+ ;;;;;; (17851 10860))
;;; Generated autoloads from international/encoded-kb.el
(defvar encoded-kbd-mode nil "\
;;;***
\f
;;;### (autoloads (enriched-decode enriched-encode enriched-mode)
- ;;;;;; "enriched" "textmodes/enriched.el" (17843 45630))
+ ;;;;;; "enriched" "textmodes/enriched.el" (17851 10872))
;;; Generated autoloads from textmodes/enriched.el
(autoload (quote enriched-mode) "enriched" "\
;;;***
\f
;;;### (autoloads (erc-handle-irc-url erc erc-select-read-args) "erc"
- ;;;;;; "erc/erc.el" (17839 38671))
+ ;;;;;; "erc/erc.el" (17851 10855))
;;; Generated autoloads from erc/erc.el
(autoload (quote erc-select-read-args) "erc" "\
;;;***
\f
- ;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (17843
- ;;;;;; 45616))
+ ;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (17851
+ ;;;;;; 10855))
;;; Generated autoloads from erc/erc-autoaway.el
(autoload 'erc-autoaway-mode "erc-autoaway")
;;;***
\f
- ;;;### (autoloads nil "erc-button" "erc/erc-button.el" (17843 45616))
+ ;;;### (autoloads nil "erc-button" "erc/erc-button.el" (17851 10855))
;;; Generated autoloads from erc/erc-button.el
(autoload 'erc-button-mode "erc-button" nil t)
;;;***
\f
- ;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (17843 45616))
+ ;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (17842 54344))
;;; Generated autoloads from erc/erc-capab.el
(autoload 'erc-capab-identify-mode "erc-capab" nil t)
;;;***
\f
- ;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (17843 45616))
+ ;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (17851 10855))
;;; Generated autoloads from erc/erc-compat.el
(autoload 'erc-define-minor-mode "erc-compat")
;;;***
\f
;;;### (autoloads (erc-ctcp-query-DCC pcomplete/erc-mode/DCC erc-cmd-DCC)
- ;;;;;; "erc-dcc" "erc/erc-dcc.el" (17843 45616))
+ ;;;;;; "erc-dcc" "erc/erc-dcc.el" (17851 10855))
;;; Generated autoloads from erc/erc-dcc.el
(autoload (quote erc-cmd-DCC) "erc-dcc" "\
;;;;;; erc-ezb-add-session erc-ezb-end-of-session-list erc-ezb-init-session-list
;;;;;; erc-ezb-identify erc-ezb-notice-autodetect erc-ezb-lookup-action
;;;;;; erc-ezb-get-login erc-cmd-ezb) "erc-ezbounce" "erc/erc-ezbounce.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10855))
;;; Generated autoloads from erc/erc-ezbounce.el
(autoload (quote erc-cmd-ezb) "erc-ezbounce" "\
;;;***
\f
- ;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (17843
- ;;;;;; 45616))
+ ;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (17851
+ ;;;;;; 10855))
;;; Generated autoloads from erc/erc-fill.el
(autoload 'erc-fill-mode "erc-fill" nil t)
;;;***
\f
- ;;;### (autoloads nil "erc-hecomplete" "erc/erc-hecomplete.el" (17843
- ;;;;;; 45616))
+ ;;;### (autoloads nil "erc-hecomplete" "erc/erc-hecomplete.el" (17851
+ ;;;;;; 10855))
;;; Generated autoloads from erc/erc-hecomplete.el
(autoload 'erc-hecomplete-mode "erc-hecomplete" nil t)
;;;***
\f
;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd"
- ;;;;;; "erc/erc-identd.el" (17843 45616))
+ ;;;;;; "erc/erc-identd.el" (17851 10855))
;;; Generated autoloads from erc/erc-identd.el
(autoload 'erc-identd-mode "erc-identd")
;;;***
\f
;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10855))
;;; Generated autoloads from erc/erc-imenu.el
(autoload (quote erc-create-imenu-index) "erc-imenu" "\
;;;***
\f
- ;;;### (autoloads nil "erc-join" "erc/erc-join.el" (17843 45616))
+ ;;;### (autoloads nil "erc-join" "erc/erc-join.el" (17851 10855))
;;; Generated autoloads from erc/erc-join.el
(autoload 'erc-autojoin-mode "erc-join" nil t)
;;;***
\f
;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log"
- ;;;;;; "erc/erc-log.el" (17843 45616))
+ ;;;;;; "erc/erc-log.el" (17851 10855))
;;; Generated autoloads from erc/erc-log.el
(autoload 'erc-log-mode "erc-log" nil t)
;;;### (autoloads (erc-delete-dangerous-host erc-add-dangerous-host
;;;;;; erc-delete-keyword erc-add-keyword erc-delete-fool erc-add-fool
;;;;;; erc-delete-pal erc-add-pal) "erc-match" "erc/erc-match.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10855))
;;; Generated autoloads from erc/erc-match.el
(autoload 'erc-match-mode "erc-match")
;;;***
\f
- ;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (17843 45616))
+ ;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (17851 10855))
;;; Generated autoloads from erc/erc-menu.el
(autoload 'erc-menu-mode "erc-menu" nil t)
;;;***
\f
;;;### (autoloads (erc-cmd-WHOLEFT) "erc-netsplit" "erc/erc-netsplit.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10855))
;;; Generated autoloads from erc/erc-netsplit.el
(autoload 'erc-netsplit-mode "erc-netsplit")
;;;***
\f
;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks"
- ;;;;;; "erc/erc-networks.el" (17843 45616))
+ ;;;;;; "erc/erc-networks.el" (17851 10855))
;;; Generated autoloads from erc/erc-networks.el
(autoload (quote erc-determine-network) "erc-networks" "\
;;;***
\f
;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify"
- ;;;;;; "erc/erc-notify.el" (17843 45616))
+ ;;;;;; "erc/erc-notify.el" (17851 10855))
;;; Generated autoloads from erc/erc-notify.el
(autoload 'erc-notify-mode "erc-notify" nil t)
;;;***
\f
- ;;;### (autoloads nil "erc-page" "erc/erc-page.el" (17843 45616))
+ ;;;### (autoloads nil "erc-page" "erc/erc-page.el" (17851 10855))
;;; Generated autoloads from erc/erc-page.el
(autoload 'erc-page-mode "erc-page")
;;;***
\f
- ;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (17843
- ;;;;;; 45616))
+ ;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (17851
+ ;;;;;; 10855))
;;; Generated autoloads from erc/erc-pcomplete.el
(autoload 'erc-completion-mode "erc-pcomplete" nil t)
;;;***
\f
- ;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (17843 45616))
+ ;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (17851 10855))
;;; Generated autoloads from erc/erc-replace.el
(autoload 'erc-replace-mode "erc-replace")
;;;***
\f
- ;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (17843 45616))
+ ;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (17851 10855))
;;; Generated autoloads from erc/erc-ring.el
(autoload 'erc-ring-mode "erc-ring" nil t)
;;;***
\f
;;;### (autoloads (erc-nickserv-identify erc-nickserv-identify-mode)
- ;;;;;; "erc-services" "erc/erc-services.el" (17843 45616))
+ ;;;;;; "erc-services" "erc/erc-services.el" (17851 10855))
;;; Generated autoloads from erc/erc-services.el
(autoload 'erc-services-mode "erc-services" nil t)
;;;***
\f
- ;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (17843 45616))
+ ;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (17851 10855))
;;; Generated autoloads from erc/erc-sound.el
(autoload 'erc-sound-mode "erc-sound")
;;;***
\f
;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10855))
;;; Generated autoloads from erc/erc-speedbar.el
(autoload (quote erc-speedbar-browser) "erc-speedbar" "\
;;;***
\f
- ;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (17843
- ;;;;;; 45616))
+ ;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (17851
+ ;;;;;; 10855))
;;; Generated autoloads from erc/erc-spelling.el
(autoload 'erc-spelling-mode "erc-spelling" nil t)
;;;***
\f
- ;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (17843 45616))
+ ;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (17851 10855))
;;; Generated autoloads from erc/erc-stamp.el
(autoload 'erc-timestamp-mode "erc-stamp" nil t)
;;;***
\f
- ;;;### (autoloads nil "erc-track" "erc/erc-track.el" (17843 45616))
+ ;;;### (autoloads nil "erc-track" "erc/erc-track.el" (17851 10855))
;;; Generated autoloads from erc/erc-track.el
(autoload 'erc-track-mode "erc-track" nil t)
(autoload 'erc-track-when-inactive-mode "erc-track" nil t)
;;;***
\f
;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size)
- ;;;;;; "erc-truncate" "erc/erc-truncate.el" (17843 45616))
+ ;;;;;; "erc-truncate" "erc/erc-truncate.el" (17851 10855))
;;; Generated autoloads from erc/erc-truncate.el
(autoload 'erc-truncate-mode "erc-truncate" nil t)
;;;***
\f
;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10855))
;;; Generated autoloads from erc/erc-xdcc.el
(autoload (quote erc-xdcc-add-file) "erc-xdcc" "\
;;;***
\f
- ;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17843
- ;;;;;; 45616))
+ ;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17851
+ ;;;;;; 10856))
;;; Generated autoloads from eshell/esh-mode.el
(autoload (quote eshell-mode) "esh-mode" "\
;;;***
\f
- ;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17843
- ;;;;;; 45616))
+ ;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17851
+ ;;;;;; 10856))
;;; Generated autoloads from eshell/esh-test.el
(autoload (quote eshell-test) "esh-test" "\
;;;***
\f
;;;### (autoloads (eshell-report-bug eshell-command-result eshell-command
- ;;;;;; eshell) "eshell" "eshell/eshell.el" (17843 45616))
+ ;;;;;; eshell) "eshell" "eshell/eshell.el" (17851 10856))
;;; Generated autoloads from eshell/eshell.el
(autoload (quote eshell) "eshell" "\
;;;;;; visit-tags-table tags-table-mode find-tag-default-function
;;;;;; find-tag-hook tags-add-tables tags-compression-info-list
;;;;;; tags-table-list tags-case-fold-search) "etags" "progmodes/etags.el"
- ;;;;;; (17843 45627))
+ ;;;;;; (17851 10867))
;;; Generated autoloads from progmodes/etags.el
(defvar tags-file-name nil "\
;;;;;; ethio-fidel-to-sera-buffer ethio-fidel-to-sera-region ethio-sera-to-fidel-marker
;;;;;; ethio-sera-to-fidel-mail ethio-sera-to-fidel-mail-or-marker
;;;;;; ethio-sera-to-fidel-buffer ethio-sera-to-fidel-region setup-ethiopic-environment-internal)
- ;;;;;; "ethio-util" "language/ethio-util.el" (17843 45620))
+ ;;;;;; "ethio-util" "language/ethio-util.el" (17851 10861))
;;; Generated autoloads from language/ethio-util.el
(autoload (quote setup-ethiopic-environment-internal) "ethio-util" "\
\f
;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline
;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el"
- ;;;;;; (17843 45624))
+ ;;;;;; (17851 10863))
;;; Generated autoloads from net/eudc.el
(autoload (quote eudc-set-server) "eudc" "\
\f
;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline
;;;;;; eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary)
- ;;;;;; "eudc-bob" "net/eudc-bob.el" (17843 45624))
+ ;;;;;; "eudc-bob" "net/eudc-bob.el" (17851 10863))
;;; Generated autoloads from net/eudc-bob.el
(autoload (quote eudc-display-generic-binary) "eudc-bob" "\
;;;***
\f
;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb)
- ;;;;;; "eudc-export" "net/eudc-export.el" (17843 45624))
+ ;;;;;; "eudc-export" "net/eudc-export.el" (17851 10863))
;;; Generated autoloads from net/eudc-export.el
(autoload (quote eudc-insert-record-at-point-into-bbdb) "eudc-export" "\
;;;***
\f
;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el"
- ;;;;;; (17843 45624))
+ ;;;;;; (17851 10863))
;;; Generated autoloads from net/eudc-hotlist.el
(autoload (quote eudc-edit-hotlist) "eudc-hotlist" "\
;;;***
\f
- ;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (17843
- ;;;;;; 45615))
+ ;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (17851
+ ;;;;;; 10853))
;;; Generated autoloads from emacs-lisp/ewoc.el
(autoload (quote ewoc-create) "ewoc" "\
;;;### (autoloads (executable-make-buffer-file-executable-if-script-p
;;;;;; executable-self-display executable-set-magic executable-interpret
;;;;;; executable-command-find-posix-p) "executable" "progmodes/executable.el"
- ;;;;;; (17843 45627))
+ ;;;;;; (17851 10867))
;;; Generated autoloads from progmodes/executable.el
(autoload (quote executable-command-find-posix-p) "executable" "\
;;;***
\f
;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot
- ;;;;;; expand-add-abbrevs) "expand" "expand.el" (17843 45610))
+ ;;;;;; expand-add-abbrevs) "expand" "expand.el" (17851 10827))
;;; Generated autoloads from expand.el
(autoload (quote expand-add-abbrevs) "expand" "\
;;;***
\f
- ;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17843 45627))
+ ;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17851 10867))
;;; Generated autoloads from progmodes/f90.el
(autoload (quote f90-mode) "f90" "\
;;;;;; facemenu-remove-all facemenu-remove-face-props facemenu-set-read-only
;;;;;; facemenu-set-intangible facemenu-set-invisible facemenu-set-face-from-menu
;;;;;; facemenu-set-background facemenu-set-foreground facemenu-set-face)
- ;;;;;; "facemenu" "facemenu.el" (17843 45610))
+ ;;;;;; "facemenu" "facemenu.el" (17851 10827))
;;; Generated autoloads from facemenu.el
(define-key global-map "\M-o" 'facemenu-keymap)
(autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap)
\(fn &optional LIST BUFFER-NAME)" t nil)
- ;;;***
- \f
- ;;;### (autoloads (turn-on-fast-lock fast-lock-mode) "fast-lock"
- ;;;;;; "obsolete/fast-lock.el" (17843 45625))
- ;;; Generated autoloads from obsolete/fast-lock.el
-
- (autoload (quote fast-lock-mode) "fast-lock" "\
- Toggle Fast Lock mode.
- With arg, turn Fast Lock mode on if and only if arg is positive and the buffer
- is associated with a file. Enable it automatically in your `~/.emacs' by:
-
- (setq font-lock-support-mode 'fast-lock-mode)
-
- If Fast Lock mode is enabled, and the current buffer does not contain any text
- properties, any associated Font Lock cache is used if its timestamp matches the
- buffer's file, and its `font-lock-keywords' match those that you are using.
-
- Font Lock caches may be saved:
- - When you save the file's buffer.
- - When you kill an unmodified file's buffer.
- - When you exit Emacs, for all unmodified or saved buffers.
- Depending on the value of `fast-lock-save-events'.
- See also the commands `fast-lock-read-cache' and `fast-lock-save-cache'.
-
- Use \\[font-lock-fontify-buffer] to fontify the buffer if the cache is bad.
-
- Various methods of control are provided for the Font Lock cache. In general,
- see variable `fast-lock-cache-directories' and function `fast-lock-cache-name'.
- For saving, see variables `fast-lock-minimum-size', `fast-lock-save-events',
- `fast-lock-save-others' and `fast-lock-save-faces'.
-
- \(fn &optional ARG)" t nil)
-
- (autoload (quote turn-on-fast-lock) "fast-lock" "\
- Unconditionally turn on Fast Lock mode.
-
- \(fn)" nil nil)
-
- (when (fboundp (quote add-minor-mode)) (defvar fast-lock-mode nil) (add-minor-mode (quote fast-lock-mode) nil))
-
;;;***
\f
;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue
;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts
- ;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (17743 18143))
+ ;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (17753 42784))
;;; Generated autoloads from mail/feedmail.el
(autoload (quote feedmail-send-it) "feedmail" "\
;;;***
\f
;;;### (autoloads (ffap-bindings dired-at-point ffap-at-mouse ffap-menu
- ;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (17838 18033))
+ ;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (17851 10827))
;;; Generated autoloads from ffap.el
(autoload (quote ffap-next) "ffap" "\
;;;### (autoloads (file-cache-minibuffer-complete file-cache-add-directory-recursively
;;;;;; file-cache-add-directory-using-locate file-cache-add-directory-using-find
;;;;;; file-cache-add-file file-cache-add-directory-list file-cache-add-directory)
- ;;;;;; "filecache" "filecache.el" (17843 45610))
+ ;;;;;; "filecache" "filecache.el" (17851 10827))
;;; Generated autoloads from filecache.el
(autoload (quote file-cache-add-directory) "filecache" "\
;;;***
\f
- ;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17843
- ;;;;;; 45610))
+ ;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17851
+ ;;;;;; 10827))
;;; Generated autoloads from filesets.el
(autoload (quote filesets-init) "filesets" "\
;;;***
\f
- ;;;### (autoloads nil "fill" "textmodes/fill.el" (17843 45630))
+ ;;;### (autoloads nil "fill" "textmodes/fill.el" (17851 10872))
;;; Generated autoloads from textmodes/fill.el
(put 'colon-double-space 'safe-local-variable 'booleanp)
\f
;;;### (autoloads (find-grep-dired find-name-dired find-dired find-grep-options
;;;;;; find-ls-subdir-switches find-ls-option) "find-dired" "find-dired.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10827))
;;; Generated autoloads from find-dired.el
(defvar find-ls-option (if (eq system-type (quote berkeley-unix)) (quote ("-ls" . "-gilsb")) (quote ("-exec ls -ld {} \\;" . "-ld"))) "\
\f
;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file
;;;;;; ff-find-other-file ff-get-other-file) "find-file" "find-file.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10828))
;;; Generated autoloads from find-file.el
(defvar ff-special-constructs (quote (("^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" lambda nil (buffer-substring (match-beginning 2) (match-end 2))))) "\
;;;;;; find-variable find-variable-noselect find-function-other-frame
;;;;;; find-function-other-window find-function find-function-noselect
;;;;;; find-function-search-for-symbol find-library) "find-func"
- ;;;;;; "emacs-lisp/find-func.el" (17843 45615))
+ ;;;;;; "emacs-lisp/find-func.el" (17851 10853))
;;; Generated autoloads from emacs-lisp/find-func.el
(autoload (quote find-library) "find-func" "\
;;;***
\f
;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories
- ;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (17843 45610))
+ ;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (17851 10828))
;;; Generated autoloads from find-lisp.el
(autoload (quote find-lisp-find-dired) "find-lisp" "\
;;;***
\f
;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords)
- ;;;;;; "finder" "finder.el" (17843 45610))
+ ;;;;;; "finder" "finder.el" (17851 10828))
;;; Generated autoloads from finder.el
(autoload (quote finder-list-keywords) "finder" "\
;;;***
\f
;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl"
- ;;;;;; "flow-ctrl.el" (17843 45610))
+ ;;;;;; "flow-ctrl.el" (17851 10828))
;;; Generated autoloads from flow-ctrl.el
(autoload (quote enable-flow-control) "flow-ctrl" "\
;;;***
\f
;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10856))
;;; Generated autoloads from gnus/flow-fill.el
(autoload (quote fill-flowed-encode) "flow-fill" "\
;;;***
\f
;;;### (autoloads (flymake-mode-off flymake-mode-on flymake-mode)
- ;;;;;; "flymake" "progmodes/flymake.el" (17843 45627))
+ ;;;;;; "flymake" "progmodes/flymake.el" (17851 10867))
;;; Generated autoloads from progmodes/flymake.el
(autoload (quote flymake-mode) "flymake" "\
\f
;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off
;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode)
- ;;;;;; "flyspell" "textmodes/flyspell.el" (17843 45630))
+ ;;;;;; "flyspell" "textmodes/flyspell.el" (17851 10872))
;;; Generated autoloads from textmodes/flyspell.el
(autoload (quote flyspell-prog-mode) "flyspell" "\
\f
;;;### (autoloads (follow-delete-other-windows-and-split follow-mode
;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10828))
;;; Generated autoloads from follow.el
(autoload (quote turn-on-follow-mode) "follow" "\
;;;***
\f
- ;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17843
- ;;;;;; 45621))
+ ;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17851
+ ;;;;;; 10861))
;;; Generated autoloads from mail/footnote.el
(autoload (quote footnote-mode) "footnote" "\
;;;***
\f
;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode)
- ;;;;;; "forms" "forms.el" (17843 45610))
+ ;;;;;; "forms" "forms.el" (17851 10829))
;;; Generated autoloads from forms.el
(autoload (quote forms-mode) "forms" "\
;;;***
\f
;;;### (autoloads (fortran-mode fortran-tab-mode-default) "fortran"
- ;;;;;; "progmodes/fortran.el" (17843 45628))
+ ;;;;;; "progmodes/fortran.el" (17851 10868))
;;; Generated autoloads from progmodes/fortran.el
(defvar fortran-tab-mode-default nil "\
;;;***
\f
;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region
- ;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (17843 45625))
+ ;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (17851 10865))
;;; Generated autoloads from play/fortune.el
(autoload (quote fortune-add-fortune) "fortune" "\
;;;***
\f
;;;### (autoloads (gdb-enable-debug gdba) "gdb-ui" "progmodes/gdb-ui.el"
- ;;;;;; (17844 62923))
+ ;;;;;; (17851 10868))
;;; Generated autoloads from progmodes/gdb-ui.el
(autoload (quote gdba) "gdb-ui" "\
;;;***
\f
;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal
- ;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (17843
- ;;;;;; 45615))
+ ;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (17851
+ ;;;;;; 10853))
;;; Generated autoloads from emacs-lisp/generic.el
(defvar generic-mode-list nil "\
;;;***
\f
;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el"
- ;;;;;; (17843 45628))
+ ;;;;;; (17851 10868))
;;; Generated autoloads from progmodes/glasses.el
(autoload (quote glasses-mode) "glasses" "\
;;;***
\f
;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error
- ;;;;;; gmm-message) "gmm-utils" "gnus/gmm-utils.el" (17843 45616))
+ ;;;;;; gmm-message) "gmm-utils" "gnus/gmm-utils.el" (17851 10856))
;;; Generated autoloads from gnus/gmm-utils.el
(autoload (quote gmm-message) "gmm-utils" "\
;;;***
\f
;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server
- ;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (17843 45617))
+ ;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (17851 10857))
;;; Generated autoloads from gnus/gnus.el
(when (fboundp 'custom-autoload)
(custom-autoload 'gnus-select-method "gnus"))
;;;;;; gnus-agent-get-undownloaded-list gnus-agent-delete-group
;;;;;; gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize
;;;;;; gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent"
- ;;;;;; "gnus/gnus-agent.el" (17843 45616))
+ ;;;;;; "gnus/gnus-agent.el" (17851 10856))
;;; Generated autoloads from gnus/gnus-agent.el
(autoload (quote gnus-unplugged) "gnus-agent" "\
;;;***
\f
;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10856))
;;; Generated autoloads from gnus/gnus-art.el
(autoload (quote gnus-article-prepare-display) "gnus-art" "\
;;;***
\f
;;;### (autoloads (gnus-audio-play) "gnus-audio" "gnus/gnus-audio.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-audio.el
(autoload (quote gnus-audio-play) "gnus-audio" "\
\f
;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group
;;;;;; gnus-cache-generate-nov-databases gnus-cache-generate-active
- ;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17843
- ;;;;;; 45616))
+ ;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17851
+ ;;;;;; 10857))
;;; Generated autoloads from gnus/gnus-cache.el
(autoload (quote gnus-jog-cache) "gnus-cache" "\
;;;***
\f
;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article)
- ;;;;;; "gnus-delay" "gnus/gnus-delay.el" (17843 45616))
+ ;;;;;; "gnus-delay" "gnus/gnus-delay.el" (17851 10857))
;;; Generated autoloads from gnus/gnus-delay.el
(autoload (quote gnus-delay-article) "gnus-delay" "\
;;;***
\f
;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d)
- ;;;;;; "gnus-diary" "gnus/gnus-diary.el" (17843 45616))
+ ;;;;;; "gnus-diary" "gnus/gnus-diary.el" (17851 10857))
;;; Generated autoloads from gnus/gnus-diary.el
(autoload (quote gnus-user-format-function-d) "gnus-diary" "\
;;;***
\f
;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-dired.el
(autoload (quote turn-on-gnus-dired-mode) "gnus-dired" "\
;;;***
\f
;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-draft.el
(autoload (quote gnus-draft-reminder) "gnus-draft" "\
\f
;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png
;;;;;; gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header
- ;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17843
- ;;;;;; 45616))
+ ;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17851
+ ;;;;;; 10857))
;;; Generated autoloads from gnus/gnus-fun.el
(autoload (quote gnus-random-x-face) "gnus-fun" "\
;;;***
\f
;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group)
- ;;;;;; "gnus-group" "gnus/gnus-group.el" (17843 45617))
+ ;;;;;; "gnus-group" "gnus/gnus-group.el" (17851 10857))
;;; Generated autoloads from gnus/gnus-group.el
(autoload (quote gnus-fetch-group) "gnus-group" "\
;;;***
\f
;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-kill.el
(defalias (quote gnus-batch-kill) (quote gnus-batch-score))
\f
;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate
;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-ml.el
(autoload (quote turn-on-gnus-mailing-list-mode) "gnus-ml" "\
\f
;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update
;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-mlspl.el
(autoload (quote gnus-group-split-setup) "gnus-mlspl" "\
;;;***
\f
;;;### (autoloads (gnus-change-server) "gnus-move" "gnus/gnus-move.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-move.el
(autoload (quote gnus-change-server) "gnus-move" "\
;;;***
\f
;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail)
- ;;;;;; "gnus-msg" "gnus/gnus-msg.el" (17843 45617))
+ ;;;;;; "gnus-msg" "gnus/gnus-msg.el" (17851 10857))
;;; Generated autoloads from gnus/gnus-msg.el
(autoload (quote gnus-msg-mail) "gnus-msg" "\
;;;***
\f
;;;### (autoloads (gnus-nocem-load-cache gnus-nocem-scan-groups)
- ;;;;;; "gnus-nocem" "gnus/gnus-nocem.el" (17843 45617))
+ ;;;;;; "gnus-nocem" "gnus/gnus-nocem.el" (17851 10857))
;;; Generated autoloads from gnus/gnus-nocem.el
(autoload (quote gnus-nocem-scan-groups) "gnus-nocem" "\
\f
;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon
;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-picon.el
(autoload (quote gnus-treat-from-picon) "gnus-picon" "\
;;;;;; gnus-sorted-nintersection gnus-sorted-range-intersection
;;;;;; gnus-sorted-intersection gnus-intersection gnus-sorted-complement
;;;;;; gnus-sorted-ndifference gnus-sorted-difference) "gnus-range"
- ;;;;;; "gnus/gnus-range.el" (17843 45617))
+ ;;;;;; "gnus/gnus-range.el" (17851 10857))
;;; Generated autoloads from gnus/gnus-range.el
(autoload (quote gnus-sorted-difference) "gnus-range" "\
;;;***
\f
;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize)
- ;;;;;; "gnus-registry" "gnus/gnus-registry.el" (17843 45617))
+ ;;;;;; "gnus-registry" "gnus/gnus-registry.el" (17851 10857))
;;; Generated autoloads from gnus/gnus-registry.el
(autoload (quote gnus-registry-initialize) "gnus-registry" "\
;;;***
\f
;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate
- ;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17843
- ;;;;;; 45617))
+ ;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17851
+ ;;;;;; 10857))
;;; Generated autoloads from gnus/gnus-sieve.el
(autoload (quote gnus-sieve-update) "gnus-sieve" "\
;;;***
\f
;;;### (autoloads (gnus-batch-brew-soup) "gnus-soup" "gnus/gnus-soup.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-soup.el
(autoload (quote gnus-batch-brew-soup) "gnus-soup" "\
;;;***
\f
;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-spec.el
(autoload (quote gnus-update-format) "gnus-spec" "\
;;;***
\f
;;;### (autoloads (gnus-fixup-nnimap-unread-after-getting-new-news
- ;;;;;; gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17843
- ;;;;;; 45617))
+ ;;;;;; gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17851
+ ;;;;;; 10857))
;;; Generated autoloads from gnus/gnus-start.el
(autoload (quote gnus-declare-backend) "gnus-start" "\
;;;***
\f
;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10857))
;;; Generated autoloads from gnus/gnus-win.el
(autoload (quote gnus-add-configuration) "gnus-win" "\
;;;***
\f
- ;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17843 45626))
+ ;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17851 10865))
;;; Generated autoloads from play/gomoku.el
(autoload (quote gomoku) "gomoku" "\
;;;***
\f
;;;### (autoloads (goto-address goto-address-at-point) "goto-addr"
- ;;;;;; "net/goto-addr.el" (17843 45624))
+ ;;;;;; "net/goto-addr.el" (17851 10863))
;;; Generated autoloads from net/goto-addr.el
(define-obsolete-function-alias (quote goto-address-at-mouse) (quote goto-address-at-point) "22.1")
\f
;;;### (autoloads (rgrep lgrep grep-find grep grep-mode grep-compute-defaults
;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command
- ;;;;;; grep-window-height) "grep" "progmodes/grep.el" (17843 45628))
+ ;;;;;; grep-window-height) "grep" "progmodes/grep.el" (17851 10868))
;;; Generated autoloads from progmodes/grep.el
(defvar grep-window-height nil "\
;;;***
\f
- ;;;### (autoloads (gs-load-image) "gs" "gs.el" (17843 45610))
+ ;;;### (autoloads (gs-load-image) "gs" "gs.el" (17851 10830))
;;; Generated autoloads from gs.el
(autoload (quote gs-load-image) "gs" "\
;;;***
\f
;;;### (autoloads (gdb-script-mode bashdb jdb pdb perldb xdb dbx
- ;;;;;; sdb gdb) "gud" "progmodes/gud.el" (17843 45628))
+ ;;;;;; sdb gdb) "gud" "progmodes/gud.el" (17851 10868))
;;; Generated autoloads from progmodes/gud.el
(autoload (quote gdb) "gud" "\
;;;***
\f
- ;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17843
- ;;;;;; 45626))
+ ;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17851
+ ;;;;;; 10866))
;;; Generated autoloads from play/handwrite.el
(autoload (quote handwrite) "handwrite" "\
;;;***
\f
;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el"
- ;;;;;; (17743 18144))
+ ;;;;;; (17753 42784))
;;; Generated autoloads from play/hanoi.el
(autoload (quote hanoi) "hanoi" "\
;;;### (autoloads (scan-buf-previous-region scan-buf-next-region
;;;;;; scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer
;;;;;; help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string
- ;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (17843 45610))
+ ;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (17851 10830))
;;; Generated autoloads from help-at-pt.el
(autoload (quote help-at-pt-string) "help-at-pt" "\
;;;### (autoloads (describe-categories describe-syntax describe-variable
;;;;;; variable-at-point describe-function-1 describe-simplify-lib-file-name
;;;;;; help-C-file-name describe-function) "help-fns" "help-fns.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10830))
;;; Generated autoloads from help-fns.el
(autoload (quote describe-function) "help-fns" "\
;;;***
\f
;;;### (autoloads (three-step-help) "help-macro" "help-macro.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10830))
;;; Generated autoloads from help-macro.el
(defvar three-step-help nil "\
\f
;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button
;;;;;; help-make-xrefs help-setup-xref help-mode-finish help-mode-setup
- ;;;;;; help-mode) "help-mode" "help-mode.el" (17843 45610))
+ ;;;;;; help-mode) "help-mode" "help-mode.el" (17851 10833))
;;; Generated autoloads from help-mode.el
(autoload (quote help-mode) "help-mode" "\
;;;***
\f
;;;### (autoloads (Helper-help Helper-describe-bindings) "helper"
- ;;;;;; "emacs-lisp/helper.el" (17843 45615))
+ ;;;;;; "emacs-lisp/helper.el" (17851 10853))
;;; Generated autoloads from emacs-lisp/helper.el
(autoload (quote Helper-describe-bindings) "helper" "\
;;;***
\f
;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl"
- ;;;;;; "hexl.el" (17844 62922))
+ ;;;;;; "hexl.el" (17851 10833))
;;; Generated autoloads from hexl.el
(autoload (quote hexl-mode) "hexl" "\
;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer
;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer
;;;;;; global-hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10833))
;;; Generated autoloads from hi-lock.el
(autoload (quote hi-lock-mode) "hi-lock" "\
;;;***
\f
;;;### (autoloads (hide-ifdef-lines hide-ifdef-read-only hide-ifdef-initially
- ;;;;;; hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17843 45628))
+ ;;;;;; hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17851 10868))
;;; Generated autoloads from progmodes/hideif.el
(autoload (quote hide-ifdef-mode) "hideif" "\
;;;***
\f
;;;### (autoloads (hs-minor-mode) "hideshow" "progmodes/hideshow.el"
- ;;;;;; (17843 45628))
+ ;;;;;; (17851 10868))
;;; Generated autoloads from progmodes/hideshow.el
(defvar hs-special-modes-alist (quote ((c-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (c++-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (bibtex-mode ("^@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning))) "\
;;;;;; highlight-compare-buffers highlight-changes-rotate-faces
;;;;;; highlight-changes-previous-change highlight-changes-next-change
;;;;;; highlight-changes-mode highlight-changes-remove-highlight)
- ;;;;;; "hilit-chg" "hilit-chg.el" (17843 45610))
+ ;;;;;; "hilit-chg" "hilit-chg.el" (17851 10833))
;;; Generated autoloads from hilit-chg.el
(autoload (quote highlight-changes-remove-highlight) "hilit-chg" "\
;;;;;; hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction
;;;;;; hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space
;;;;;; hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp"
- ;;;;;; "hippie-exp.el" (17843 45610))
+ ;;;;;; "hippie-exp.el" (17851 10833))
;;; Generated autoloads from hippie-exp.el
(defvar hippie-expand-try-functions-list (quote (try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol)) "\
;;;***
\f
;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10833))
;;; Generated autoloads from hl-line.el
(autoload (quote hl-line-mode) "hl-line" "\
;;;***
\f
;;;### (autoloads (list-holidays holidays) "holidays" "calendar/holidays.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10852))
;;; Generated autoloads from calendar/holidays.el
(autoload (quote holidays) "holidays" "\
;;;***
\f
- ;;;### (autoloads (hscroll-global-mode hscroll-mode turn-on-hscroll)
- ;;;;;; "hscroll" "obsolete/hscroll.el" (17843 45625))
- ;;; Generated autoloads from obsolete/hscroll.el
-
- (autoload (quote turn-on-hscroll) "hscroll" "\
- This function is obsolete.
- Emacs now does hscrolling automatically, if `truncate-lines' is non-nil.
- Also see `automatic-hscrolling'.
-
- \(fn)" nil nil)
-
- (autoload (quote hscroll-mode) "hscroll" "\
- This function is obsolete.
- Emacs now does hscrolling automatically, if `truncate-lines' is non-nil.
- Also see `automatic-hscrolling'.
-
- \(fn &optional ARG)" t nil)
-
- (autoload (quote hscroll-global-mode) "hscroll" "\
- This function is obsolete.
- Emacs now does hscrolling automatically, if `truncate-lines' is non-nil.
- Also see `automatic-hscrolling'.
-
- \(fn &optional ARG)" t nil)
-
- ;;;***
- \f
- ;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17843
- ;;;;;; 45617))
+ ;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17851
+ ;;;;;; 10857))
;;; Generated autoloads from gnus/html2text.el
(autoload (quote html2text) "html2text" "\
;;;;;; ibuffer-backward-filter-group ibuffer-forward-filter-group
;;;;;; ibuffer-toggle-filter-group ibuffer-mouse-toggle-filter-group
;;;;;; ibuffer-interactive-filter-by-mode ibuffer-mouse-filter-by-mode
- ;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17843 45610))
+ ;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17851 10833))
;;; Generated autoloads from ibuf-ext.el
(autoload (quote ibuffer-auto-mode) "ibuf-ext" "\
;;;***
\f
;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter
- ;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17843
- ;;;;;; 45610))
+ ;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17851
+ ;;;;;; 10834))
;;; Generated autoloads from ibuf-macs.el
(autoload (quote define-ibuffer-column) "ibuf-macs" "\
;;;***
\f
;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers)
- ;;;;;; "ibuffer" "ibuffer.el" (17843 45610))
+ ;;;;;; "ibuffer" "ibuffer.el" (17851 10834))
;;; Generated autoloads from ibuffer.el
(autoload (quote ibuffer-list-buffers) "ibuffer" "\
\f
;;;### (autoloads (icalendar-import-buffer icalendar-import-file
;;;;;; icalendar-export-region icalendar-export-file) "icalendar"
- ;;;;;; "calendar/icalendar.el" (17843 45615))
+ ;;;;;; "calendar/icalendar.el" (17851 10852))
;;; Generated autoloads from calendar/icalendar.el
(autoload (quote icalendar-export-file) "icalendar" "\
;;;***
\f
- ;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17843
- ;;;;;; 45610))
+ ;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17851
+ ;;;;;; 10834))
;;; Generated autoloads from icomplete.el
(defvar icomplete-mode nil "\
;;;***
\f
- ;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17843 45628))
+ ;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17851 10868))
;;; Generated autoloads from progmodes/icon.el
(autoload (quote icon-mode) "icon" "\
;;;***
\f
;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el"
- ;;;;;; (17843 45628))
+ ;;;;;; (17851 10868))
;;; Generated autoloads from progmodes/idlw-shell.el
(autoload (quote idlwave-shell) "idlw-shell" "\
;;;***
\f
;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el"
- ;;;;;; (17843 45628))
+ ;;;;;; (17851 10868))
;;; Generated autoloads from progmodes/idlwave.el
(autoload (quote idlwave-mode) "idlwave" "\
;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file
;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer
;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window
- ;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17845
- ;;;;;; 22160))
+ ;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17851
+ ;;;;;; 10834))
;;; Generated autoloads from ido.el
(defvar ido-mode nil "\
;;;***
\f
- ;;;### (autoloads (ielm) "ielm" "ielm.el" (17843 45610))
+ ;;;### (autoloads (ielm) "ielm" "ielm.el" (17851 10834))
;;; Generated autoloads from ielm.el
(add-hook 'same-window-buffer-names "*ielm*")
;;;***
\f
;;;### (autoloads (iimage-mode turn-on-iimage-mode) "iimage" "iimage.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10834))
;;; Generated autoloads from iimage.el
(autoload (quote turn-on-iimage-mode) "iimage" "\
;;;;;; insert-image put-image create-image image-type-auto-detected-p
;;;;;; image-type-available-p image-type image-type-from-file-name
;;;;;; image-type-from-file-header image-type-from-buffer image-type-from-data)
- ;;;;;; "image" "image.el" (17843 45610))
+ ;;;;;; "image" "image.el" (17851 10835))
;;; Generated autoloads from image.el
(autoload (quote image-type-from-data) "image" "\
\f
;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp
;;;;;; image-file-name-regexps image-file-name-extensions) "image-file"
- ;;;;;; "image-file.el" (17843 45610))
+ ;;;;;; "image-file.el" (17851 10834))
;;; Generated autoloads from image-file.el
(defvar image-file-name-extensions (quote ("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm")) "\
;;;***
\f
;;;### (autoloads (image-mode-maybe image-minor-mode image-mode)
- ;;;;;; "image-mode" "image-mode.el" (17843 45610))
+ ;;;;;; "image-mode" "image-mode.el" (17851 10835))
;;; Generated autoloads from image-mode.el
(push '("\\.jpe?g\\'" . image-mode) auto-mode-alist)
(push '("\\.png\\'" . image-mode) auto-mode-alist)
;;;***
\f
;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar
- ;;;;;; imenu-sort-function) "imenu" "imenu.el" (17843 45610))
+ ;;;;;; imenu-sort-function) "imenu" "imenu.el" (17851 10835))
;;; Generated autoloads from imenu.el
(defvar imenu-sort-function nil "\
\f
;;;### (autoloads (indian-char-glyph indian-glyph-char in-is13194-pre-write-conversion
;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region)
- ;;;;;; "ind-util" "language/ind-util.el" (17843 45620))
+ ;;;;;; "ind-util" "language/ind-util.el" (17851 10861))
;;; Generated autoloads from language/ind-util.el
(autoload (quote indian-compose-region) "ind-util" "\
\f
;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command
;;;;;; inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp"
- ;;;;;; "progmodes/inf-lisp.el" (17843 45628))
+ ;;;;;; "progmodes/inf-lisp.el" (17851 10868))
;;; Generated autoloads from progmodes/inf-lisp.el
(defvar inferior-lisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'" "\
;;;### (autoloads (Info-speedbar-browser Info-goto-emacs-key-command-node
;;;;;; Info-goto-emacs-command-node Info-mode info-apropos Info-index
;;;;;; Info-directory Info-on-current-buffer info-standalone info-emacs-manual
- ;;;;;; info info-other-window) "info" "info.el" (17843 45610))
+ ;;;;;; info info-other-window) "info" "info.el" (17851 10835))
;;; Generated autoloads from info.el
(autoload (quote info-other-window) "info" "\
\f
;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file
;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10835))
;;; Generated autoloads from info-look.el
(autoload (quote info-lookup-reset) "info-look" "\
;;;***
\f
;;;### (autoloads (info-xref-check-all-custom info-xref-check-all
- ;;;;;; info-xref-check) "info-xref" "info-xref.el" (17843 45610))
+ ;;;;;; info-xref-check) "info-xref" "info-xref.el" (17851 10835))
;;; Generated autoloads from info-xref.el
(autoload (quote info-xref-check) "info-xref" "\
;;;***
\f
;;;### (autoloads (batch-info-validate Info-validate Info-split Info-tagify)
- ;;;;;; "informat" "informat.el" (17843 45610))
+ ;;;;;; "informat" "informat.el" (17851 10835))
;;; Generated autoloads from informat.el
(autoload (quote Info-tagify) "informat" "\
\f
;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method
;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el"
- ;;;;;; (17843 45618))
+ ;;;;;; (17851 10860))
;;; Generated autoloads from international/isearch-x.el
(autoload (quote isearch-toggle-specified-input-method) "isearch-x" "\
;;;***
\f
- ;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17843
- ;;;;;; 45610))
+ ;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17851
+ ;;;;;; 10835))
;;; Generated autoloads from isearchb.el
(autoload (quote isearchb-activate) "isearchb" "\
\(fn)" t nil)
- ;;;***
- \f
- ;;;### (autoloads (iso-accents-mode) "iso-acc" "obsolete/iso-acc.el"
- ;;;;;; (17843 45625))
- ;;; Generated autoloads from obsolete/iso-acc.el
-
- (autoload (quote iso-accents-mode) "iso-acc" "\
- Toggle ISO Accents mode, in which accents modify the following letter.
- This permits easy insertion of accented characters according to ISO-8859-1.
- When Iso-accents mode is enabled, accent character keys
- \(`, ', \", ^, / and ~) do not self-insert; instead, they modify the following
- letter key so that it inserts an ISO accented letter.
-
- You can customize ISO Accents mode to a particular language
- with the command `iso-accents-customize'.
-
- Special combinations: ~c gives a c with cedilla,
- ~d gives an Icelandic eth (d with dash).
- ~t gives an Icelandic thorn.
- \"s gives German sharp s.
- /a gives a with ring.
- /e gives an a-e ligature.
- ~< and ~> give guillemots.
- ~! gives an inverted exclamation mark.
- ~? gives an inverted question mark.
-
- With an argument, a positive argument enables ISO Accents mode,
- and a negative argument disables it.
-
- \(fn &optional ARG)" t nil)
-
;;;***
\f
;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only
;;;;;; iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso
;;;;;; iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt"
- ;;;;;; "international/iso-cvt.el" (17843 45618))
+ ;;;;;; "international/iso-cvt.el" (17851 10860))
;;; Generated autoloads from international/iso-cvt.el
(autoload (quote iso-spanish) "iso-cvt" "\
;;;***
\f
;;;### (autoloads nil "iso-transl" "international/iso-transl.el"
- ;;;;;; (17843 45618))
+ ;;;;;; (17851 10860))
;;; Generated autoloads from international/iso-transl.el
(or key-translation-map (setq key-translation-map (make-sparse-keymap)))
(define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell
;;;;;; ispell-help ispell-pdict-save ispell-word ispell-local-dictionary-alist
;;;;;; ispell-personal-dictionary) "ispell" "textmodes/ispell.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/ispell.el
(put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive))))
;;;***
\f
- ;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17827
- ;;;;;; 37446))
+ ;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17822
+ ;;;;;; 38984))
;;; Generated autoloads from iswitchb.el
(defvar iswitchb-mode 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 setup-japanese-environment-internal)
- ;;;;;; "japan-util" "language/japan-util.el" (17843 45620))
+ ;;;;;; "japan-util" "language/japan-util.el" (17851 10861))
;;; Generated autoloads from language/japan-util.el
(autoload (quote setup-japanese-environment-internal) "japan-util" "\
;;;***
\f
;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr"
- ;;;;;; "jka-compr.el" (17843 45610))
+ ;;;;;; "jka-compr.el" (17851 10836))
;;; Generated autoloads from jka-compr.el
(defvar jka-compr-inhibit nil "\
\f
;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup
;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el"
- ;;;;;; (17838 18033))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emulation/keypad.el
(defvar keypad-setup nil "\
;;;***
\f
;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el"
- ;;;;;; (17843 45618))
+ ;;;;;; (17851 10860))
;;; Generated autoloads from international/kinsoku.el
(autoload (quote kinsoku) "kinsoku" "\
;;;***
\f
- ;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17843
- ;;;;;; 45618))
+ ;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17851
+ ;;;;;; 10860))
;;; Generated autoloads from international/kkc.el
(defvar kkc-after-update-conversion-functions nil "\
;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro
;;;;;; kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter
;;;;;; kmacro-call-macro kmacro-end-macro kmacro-start-macro) "kmacro"
- ;;;;;; "kmacro.el" (17838 18033))
+ ;;;;;; "kmacro.el" (17851 10836))
;;; Generated autoloads from kmacro.el
(global-set-key "\C-x(" 'kmacro-start-macro)
(global-set-key "\C-x)" 'kmacro-end-macro)
\f
;;;### (autoloads (kannada-post-read-conversion kannada-compose-string
;;;;;; kannada-compose-region) "knd-util" "language/knd-util.el"
- ;;;;;; (17843 45620))
+ ;;;;;; (17851 10861))
;;; Generated autoloads from language/knd-util.el
(defconst kannada-consonant "[\x51f75-\x51fb9]")
;;;***
\f
;;;### (autoloads (setup-korean-environment-internal) "korea-util"
- ;;;;;; "language/korea-util.el" (17843 45620))
+ ;;;;;; "language/korea-util.el" (17851 10861))
;;; Generated autoloads from language/korea-util.el
(defvar default-korean-keyboard (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "") "\
;;;***
\f
;;;### (autoloads (lm lm-test-run) "landmark" "play/landmark.el"
- ;;;;;; (17843 45626))
+ ;;;;;; (17851 10866))
;;; Generated autoloads from play/landmark.el
(defalias (quote landmark-repeat) (quote lm-test-run))
\f
;;;### (autoloads (lao-compose-region lao-composition-function lao-post-read-conversion
;;;;;; lao-transcribe-roman-to-lao-string lao-transcribe-single-roman-syllable-to-lao
- ;;;;;; lao-compose-string) "lao-util" "language/lao-util.el" (17843
- ;;;;;; 45620))
+ ;;;;;; lao-compose-string) "lao-util" "language/lao-util.el" (17851
+ ;;;;;; 10861))
;;; Generated autoloads from language/lao-util.el
(autoload (quote lao-compose-string) "lao-util" "\
\f
;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc
;;;;;; latexenc-inputenc-to-coding-system latex-inputenc-coding-alist)
- ;;;;;; "latexenc" "international/latexenc.el" (17843 45618))
+ ;;;;;; "latexenc" "international/latexenc.el" (17851 10860))
;;; Generated autoloads from international/latexenc.el
(defvar latex-inputenc-coding-alist (quote (("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp858" . cp858) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) "\
;;;***
\f
;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display)
- ;;;;;; "latin1-disp" "international/latin1-disp.el" (17843 45619))
+ ;;;;;; "latin1-disp" "international/latin1-disp.el" (17851 10860))
;;; Generated autoloads from international/latin1-disp.el
(defvar latin1-display nil "\
(custom-autoload (quote latin1-display-ucs-per-lynx) "latin1-disp" nil)
- ;;;***
- \f
- ;;;### (autoloads (turn-on-lazy-lock lazy-lock-mode) "lazy-lock"
- ;;;;;; "obsolete/lazy-lock.el" (17843 45625))
- ;;; Generated autoloads from obsolete/lazy-lock.el
-
- (autoload (quote lazy-lock-mode) "lazy-lock" "\
- Toggle Lazy Lock mode.
- With arg, turn Lazy Lock mode on if and only if arg is positive. Enable it
- automatically in your `~/.emacs' by:
-
- (setq font-lock-support-mode 'lazy-lock-mode)
-
- For a newer font-lock support mode with similar functionality, see
- `jit-lock-mode'. Eventually, Lazy Lock mode will be deprecated in
- JIT Lock's favor.
-
- When Lazy Lock mode is enabled, fontification can be lazy in a number of ways:
-
- - Demand-driven buffer fontification if `lazy-lock-minimum-size' is non-nil.
- This means initial fontification does not occur if the buffer is greater than
- `lazy-lock-minimum-size' characters in length. Instead, fontification occurs
- when necessary, such as when scrolling through the buffer would otherwise
- reveal unfontified areas. This is useful if buffer fontification is too slow
- for large buffers.
-
- - Deferred scroll fontification if `lazy-lock-defer-on-scrolling' is non-nil.
- This means demand-driven fontification does not occur as you scroll.
- Instead, fontification is deferred until after `lazy-lock-defer-time' seconds
- of Emacs idle time, while Emacs remains idle. This is useful if
- fontification is too slow to keep up with scrolling.
-
- - Deferred on-the-fly fontification if `lazy-lock-defer-on-the-fly' is non-nil.
- This means on-the-fly fontification does not occur as you type. Instead,
- fontification is deferred until after `lazy-lock-defer-time' seconds of Emacs
- idle time, while Emacs remains idle. This is useful if fontification is too
- slow to keep up with your typing.
-
- - Deferred context fontification if `lazy-lock-defer-contextually' is non-nil.
- This means fontification updates the buffer corresponding to true syntactic
- context, after `lazy-lock-defer-time' seconds of Emacs idle time, while Emacs
- remains idle. Otherwise, fontification occurs on modified lines only, and
- subsequent lines can remain fontified corresponding to previous syntactic
- contexts. This is useful where strings or comments span lines.
-
- - Stealthy buffer fontification if `lazy-lock-stealth-time' is non-nil.
- This means remaining unfontified areas of buffers are fontified if Emacs has
- been idle for `lazy-lock-stealth-time' seconds, while Emacs remains idle.
- This is useful if any buffer has any deferred fontification.
-
- Basic Font Lock mode on-the-fly fontification behavior fontifies modified
- lines only. Thus, if `lazy-lock-defer-contextually' is non-nil, Lazy Lock mode
- on-the-fly fontification may fontify differently, albeit correctly. In any
- event, to refontify some lines you can use \\[font-lock-fontify-block].
-
- Stealth fontification only occurs while the system remains unloaded.
- If the system load rises above `lazy-lock-stealth-load' percent, stealth
- fontification is suspended. Stealth fontification intensity is controlled via
- the variable `lazy-lock-stealth-nice' and `lazy-lock-stealth-lines', and
- verbosity is controlled via the variable `lazy-lock-stealth-verbose'.
-
- \(fn &optional ARG)" t nil)
-
- (autoload (quote turn-on-lazy-lock) "lazy-lock" "\
- Unconditionally turn on Lazy Lock mode.
-
- \(fn)" nil nil)
-
;;;***
\f
;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el"
- ;;;;;; (17843 45628))
+ ;;;;;; (17851 10868))
;;; Generated autoloads from progmodes/ld-script.el
(add-to-list (quote auto-mode-alist) (quote ("\\.ld[si]?\\>" . ld-script-mode)))
;;;***
\f
;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10837))
;;; Generated autoloads from ledit.el
(defconst ledit-save-files t "\
;;;***
\f
- ;;;### (autoloads (life) "life" "play/life.el" (17843 45626))
+ ;;;### (autoloads (life) "life" "play/life.el" (17851 10866))
;;; Generated autoloads from play/life.el
(autoload (quote life) "life" "\
;;;***
\f
- ;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (17843
- ;;;;;; 45610))
+ ;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (17851
+ ;;;;;; 10837))
;;; Generated autoloads from loadhist.el
(autoload (quote unload-feature) "loadhist" "\
;;;***
\f
;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches)
- ;;;;;; "locate" "locate.el" (17843 45610))
+ ;;;;;; "locate" "locate.el" (17851 10838))
;;; Generated autoloads from locate.el
(defvar locate-ls-subdir-switches "-al" "\
;;;***
\f
- ;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (17843 45610))
+ ;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (17851 10838))
;;; Generated autoloads from log-edit.el
(autoload (quote log-edit) "log-edit" "\
;;;***
\f
- ;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17843
- ;;;;;; 45610))
+ ;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17851
+ ;;;;;; 10838))
;;; Generated autoloads from log-view.el
(autoload (quote log-view-mode) "log-view" "\
;;;***
\f
- ;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17843
- ;;;;;; 45610))
+ ;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17851
+ ;;;;;; 10838))
;;; Generated autoloads from longlines.el
(autoload (quote longlines-mode) "longlines" "\
;;;***
\f
;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer
- ;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17843
- ;;;;;; 45610))
+ ;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17851
+ ;;;;;; 10838))
;;; Generated autoloads from lpr.el
(defvar lpr-windows-system (memq system-type (quote (emx win32 w32 mswindows ms-dos windows-nt))))
;;;***
\f
;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el"
- ;;;;;; (17843 45610))
+ ;;;;;; (17851 10838))
;;; Generated autoloads from ls-lisp.el
(defvar ls-lisp-support-shell-wildcards t "\
;;;***
\f
- ;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (17843
- ;;;;;; 45615))
+ ;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (17851
+ ;;;;;; 10852))
;;; Generated autoloads from calendar/lunar.el
(autoload (quote phases-of-moon) "lunar" "\
;;;***
\f
- ;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17843
- ;;;;;; 45628))
+ ;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17851
+ ;;;;;; 10868))
;;; Generated autoloads from progmodes/m4-mode.el
(autoload (quote m4-mode) "m4-mode" "\
;;;***
\f
;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emacs-lisp/macroexp.el
(autoload (quote macroexpand-all) "macroexp" "\
;;;***
\f
;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro
- ;;;;;; name-last-kbd-macro) "macros" "macros.el" (17843 45611))
+ ;;;;;; name-last-kbd-macro) "macros" "macros.el" (17851 10838))
;;; Generated autoloads from macros.el
(autoload (quote name-last-kbd-macro) "macros" "\
;;;***
\f
;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr"
- ;;;;;; "mail/mail-extr.el" (17843 45621))
+ ;;;;;; "mail/mail-extr.el" (17851 10861))
;;; Generated autoloads from mail/mail-extr.el
(autoload (quote mail-extract-address-components) "mail-extr" "\
\f
;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history
;;;;;; mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el"
- ;;;;;; (17843 45621))
+ ;;;;;; (17851 10862))
;;; Generated autoloads from mail/mail-hist.el
(autoload (quote mail-hist-define-keys) "mail-hist" "\
\f
;;;### (autoloads (mail-fetch-field mail-unquote-printable-region
;;;;;; mail-unquote-printable mail-quote-printable mail-file-babyl-p
- ;;;;;; mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17843
- ;;;;;; 45621))
+ ;;;;;; mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17851
+ ;;;;;; 10862))
;;; Generated autoloads from mail/mail-utils.el
(defvar mail-use-rfc822 nil "\
;;;***
\f
;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup)
- ;;;;;; "mailabbrev" "mail/mailabbrev.el" (17843 45621))
+ ;;;;;; "mailabbrev" "mail/mailabbrev.el" (17851 10862))
;;; Generated autoloads from mail/mailabbrev.el
(autoload (quote mail-abbrevs-setup) "mailabbrev" "\
;;;***
\f
;;;### (autoloads (mail-complete define-mail-alias expand-mail-aliases
- ;;;;;; mail-complete-style) "mailalias" "mail/mailalias.el" (17843
- ;;;;;; 45621))
+ ;;;;;; mail-complete-style) "mailalias" "mail/mailalias.el" (17851
+ ;;;;;; 10862))
;;; Generated autoloads from mail/mailalias.el
(defvar mail-complete-style (quote angles) "\
;;;***
\f
;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el"
- ;;;;;; (17843 45621))
+ ;;;;;; (17851 10862))
;;; Generated autoloads from mail/mailclient.el
(autoload (quote mailclient-send-it) "mailclient" "\
\f
;;;### (autoloads (makefile-imake-mode makefile-bsdmake-mode makefile-makepp-mode
;;;;;; makefile-gmake-mode makefile-automake-mode makefile-mode)
- ;;;;;; "make-mode" "progmodes/make-mode.el" (17843 45628))
+ ;;;;;; "make-mode" "progmodes/make-mode.el" (17851 10868))
;;; Generated autoloads from progmodes/make-mode.el
(autoload (quote makefile-mode) "make-mode" "\
;;;***
\f
- ;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17843
- ;;;;;; 45611))
+ ;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17851
+ ;;;;;; 10838))
;;; Generated autoloads from makesum.el
(autoload (quote make-command-summary) "makesum" "\
;;;***
\f
- ;;;### (autoloads (man-follow man) "man" "man.el" (17843 45611))
+ ;;;### (autoloads (man-follow man) "man" "man.el" (17851 10838))
;;; Generated autoloads from man.el
(defalias (quote manual-entry) (quote man))
;;;***
\f
- ;;;### (autoloads (master-mode) "master" "master.el" (17843 45611))
+ ;;;### (autoloads (master-mode) "master" "master.el" (17851 10838))
;;; Generated autoloads from master.el
(autoload (quote master-mode) "master" "\
;;;***
\f
- ;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (17843
- ;;;;;; 45611))
+ ;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (17851
+ ;;;;;; 10838))
;;; Generated autoloads from menu-bar.el
(put (quote menu-bar-mode) (quote standard-value) (quote (t)))
;;;;;; message-cite-function message-yank-prefix message-citation-line-function
;;;;;; message-send-mail-function message-user-organization-file
;;;;;; message-signature-separator message-from-style) "message"
- ;;;;;; "gnus/message.el" (17843 45617))
+ ;;;;;; "gnus/message.el" (17851 10858))
;;; Generated autoloads from gnus/message.el
(defvar message-from-style (quote default) "\
;;;***
\f
;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10869))
;;; Generated autoloads from progmodes/meta-mode.el
(autoload (quote metafont-mode) "meta-mode" "\
\f
;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body
;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el"
- ;;;;;; (17843 45621))
+ ;;;;;; (17851 10862))
;;; Generated autoloads from mail/metamail.el
(autoload (quote metamail-interpret-header) "metamail" "\
\f
;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose
;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp"
- ;;;;;; "mh-e/mh-comp.el" (17843 45622))
+ ;;;;;; "mh-e/mh-comp.el" (17851 10863))
;;; Generated autoloads from mh-e/mh-comp.el
(autoload (quote mh-smail) "mh-comp" "\
;;;***
\f
- ;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (17843 45622))
+ ;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (17851 10863))
;;; Generated autoloads from mh-e/mh-e.el
(put (quote mh-progs) (quote risky-local-variable) t)
;;;***
\f
;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder"
- ;;;;;; "mh-e/mh-folder.el" (17843 45622))
+ ;;;;;; "mh-e/mh-folder.el" (17851 10863))
;;; Generated autoloads from mh-e/mh-folder.el
(autoload (quote mh-rmail) "mh-folder" "\
;;;***
\f
;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight"
- ;;;;;; "midnight.el" (17843 45611))
+ ;;;;;; "midnight.el" (17851 10838))
;;; Generated autoloads from midnight.el
(autoload (quote clean-buffer-list) "midnight" "\
;;;***
\f
;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef"
- ;;;;;; "minibuf-eldef.el" (17843 45611))
+ ;;;;;; "minibuf-eldef.el" (17851 10838))
;;; Generated autoloads from minibuf-eldef.el
(defvar minibuffer-electric-default-mode nil "\
;;;***
\f
;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10869))
;;; Generated autoloads from progmodes/mixal-mode.el
(autoload (quote mixal-mode) "mixal-mode" "\
\f
;;;### (autoloads (malayalam-composition-function malayalam-post-read-conversion
;;;;;; malayalam-compose-region) "mlm-util" "language/mlm-util.el"
- ;;;;;; (17843 45620))
+ ;;;;;; (17851 10861))
;;; Generated autoloads from language/mlm-util.el
(autoload (quote malayalam-compose-region) "mlm-util" "\
;;;***
\f
;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents)
- ;;;;;; "mm-extern" "gnus/mm-extern.el" (17843 45617))
+ ;;;;;; "mm-extern" "gnus/mm-extern.el" (17851 10858))
;;; Generated autoloads from gnus/mm-extern.el
(autoload (quote mm-extern-cache-contents) "mm-extern" "\
;;;***
\f
;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10858))
;;; Generated autoloads from gnus/mm-partial.el
(autoload (quote mm-inline-partial) "mm-partial" "\
;;;***
\f
;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents)
- ;;;;;; "mm-url" "gnus/mm-url.el" (17843 45617))
+ ;;;;;; "mm-url" "gnus/mm-url.el" (17851 10858))
;;; Generated autoloads from gnus/mm-url.el
(autoload (quote mm-url-insert-file-contents) "mm-url" "\
;;;***
\f
;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu"
- ;;;;;; "gnus/mm-uu.el" (17843 45617))
+ ;;;;;; "gnus/mm-uu.el" (17851 10858))
;;; Generated autoloads from gnus/mm-uu.el
(autoload (quote mm-uu-dissect) "mm-uu" "\
;;;***
\f
;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10858))
;;; Generated autoloads from gnus/mml1991.el
(autoload (quote mml1991-encrypt) "mml1991" "\
\f
;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt
;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt)
- ;;;;;; "mml2015" "gnus/mml2015.el" (17843 45617))
+ ;;;;;; "mml2015" "gnus/mml2015.el" (17851 10858))
;;; Generated autoloads from gnus/mml2015.el
(autoload (quote mml2015-decrypt) "mml2015" "\
;;;***
\f
;;;### (autoloads (modula-2-mode) "modula2" "progmodes/modula2.el"
- ;;;;;; (17276 54295))
+ ;;;;;; (17289 39206))
;;; Generated autoloads from progmodes/modula2.el
(autoload (quote modula-2-mode) "modula2" "\
;;;***
\f
;;;### (autoloads (unmorse-region morse-region) "morse" "play/morse.el"
- ;;;;;; (17843 45626))
+ ;;;;;; (17851 10866))
;;; Generated autoloads from play/morse.el
(autoload (quote morse-region) "morse" "\
;;;***
\f
- ;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17843
- ;;;;;; 45611))
+ ;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17851
+ ;;;;;; 10838))
;;; Generated autoloads from mouse-sel.el
(defvar mouse-sel-mode nil "\
;;;***
\f
- ;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17843 45626))
+ ;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17851 10866))
;;; Generated autoloads from play/mpuz.el
(autoload (quote mpuz) "mpuz" "\
;;;***
\f
- ;;;### (autoloads (msb-mode) "msb" "msb.el" (17843 45611))
+ ;;;### (autoloads (msb-mode) "msb" "msb.el" (17851 10838))
;;; Generated autoloads from msb.el
(defvar msb-mode nil "\
;;;;;; describe-current-coding-system describe-current-coding-system-briefly
;;;;;; describe-coding-system describe-character-set list-charset-chars
;;;;;; read-charset list-character-sets) "mule-diag" "international/mule-diag.el"
- ;;;;;; (17843 45619))
+ ;;;;;; (17851 10860))
;;; Generated autoloads from international/mule-diag.el
(defvar non-iso-charset-alist (\` ((mac-roman (ascii latin-iso8859-1 mule-unicode-2500-33ff mule-unicode-0100-24ff mule-unicode-e000-ffff) mac-roman-decoder ((0 255))) (viscii (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-viscii-nonascii-translation-table ((0 255))) (vietnamese-tcvn (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-tcvn-nonascii-translation-table ((0 255))) (koi8-r (ascii cyrillic-iso8859-5) cyrillic-koi8-r-nonascii-translation-table ((32 255))) (alternativnyj (ascii cyrillic-iso8859-5) cyrillic-alternativnyj-nonascii-translation-table ((32 255))) (koi8-u (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff) cyrillic-koi8-u-nonascii-translation-table ((32 255))) (big5 (ascii chinese-big5-1 chinese-big5-2) decode-big5-char ((32 127) ((161 254) 64 126 161 254))) (sjis (ascii katakana-jisx0201 japanese-jisx0208) decode-sjis-char ((32 127 161 223) ((129 159 224 239) 64 126 128 252))))) "\
;;;;;; coding-system-translation-table-for-decode coding-system-pre-write-conversion
;;;;;; coding-system-post-read-conversion lookup-nested-alist set-nested-alist
;;;;;; truncate-string-to-width store-substring string-to-sequence)
- ;;;;;; "mule-util" "international/mule-util.el" (17843 45619))
+ ;;;;;; "mule-util" "international/mule-util.el" (17851 10860))
;;; Generated autoloads from international/mule-util.el
(autoload (quote string-to-sequence) "mule-util" "\
;;;***
\f
;;;### (autoloads (mwheel-install mouse-wheel-mode) "mwheel" "mwheel.el"
- ;;;;;; (17843 45611))
+ ;;;;;; (17851 10838))
;;; Generated autoloads from mwheel.el
(defvar mouse-wheel-mode nil "\
;;;### (autoloads (network-connection network-connection-to-service
;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host
;;;;;; nslookup nslookup-host route arp netstat ipconfig ping traceroute)
- ;;;;;; "net-utils" "net/net-utils.el" (17843 45624))
+ ;;;;;; "net-utils" "net/net-utils.el" (17851 10863))
;;; Generated autoloads from net/net-utils.el
(autoload (quote traceroute) "net-utils" "\
;;;;;; uncomment-region comment-kill comment-set-column comment-indent
;;;;;; comment-indent-default comment-normalize-vars comment-multi-line
;;;;;; comment-padding comment-style comment-column) "newcomment"
- ;;;;;; "newcomment.el" (17843 45611))
+ ;;;;;; "newcomment.el" (17851 10839))
;;; Generated autoloads from newcomment.el
(defalias (quote indent-for-comment) (quote comment-indent))
\f
;;;### (autoloads (newsticker-show-news newsticker-start-ticker newsticker-start
;;;;;; newsticker-ticker-running-p newsticker-running-p) "newsticker"
- ;;;;;; "net/newsticker.el" (17843 45624))
+ ;;;;;; "net/newsticker.el" (17851 10863))
;;; Generated autoloads from net/newsticker.el
(autoload (quote newsticker-running-p) "newsticker" "\
;;;***
\f
;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10858))
;;; Generated autoloads from gnus/nndiary.el
(autoload (quote nndiary-generate-nov-databases) "nndiary" "\
;;;***
\f
- ;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17843
- ;;;;;; 45617))
+ ;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17851
+ ;;;;;; 10859))
;;; Generated autoloads from gnus/nndoc.el
(autoload (quote nndoc-add-type) "nndoc" "\
;;;***
\f
;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10859))
;;; Generated autoloads from gnus/nnfolder.el
(autoload (quote nnfolder-generate-active-file) "nnfolder" "\
;;;***
\f
;;;### (autoloads (nnkiboze-generate-groups) "nnkiboze" "gnus/nnkiboze.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10859))
;;; Generated autoloads from gnus/nnkiboze.el
(autoload (quote nnkiboze-generate-groups) "nnkiboze" "\
;;;***
\f
;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10859))
;;; Generated autoloads from gnus/nnml.el
(autoload (quote nnml-generate-nov-databases) "nnml" "\
;;;***
\f
;;;### (autoloads (nnsoup-revert-variables nnsoup-set-variables nnsoup-pack-replies)
- ;;;;;; "nnsoup" "gnus/nnsoup.el" (17843 45617))
+ ;;;;;; "nnsoup" "gnus/nnsoup.el" (17851 10859))
;;; Generated autoloads from gnus/nnsoup.el
(autoload (quote nnsoup-pack-replies) "nnsoup" "\
;;;***
\f
;;;### (autoloads (disable-command enable-command disabled-command-function)
- ;;;;;; "novice" "novice.el" (17843 45611))
+ ;;;;;; "novice" "novice.el" (17851 10839))
;;; Generated autoloads from novice.el
(defvar disabled-command-function (quote disabled-command-function) "\
;;;***
\f
;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/nroff-mode.el
(autoload (quote nroff-mode) "nroff-mode" "\
;;;***
\f
;;;### (autoloads (octave-help) "octave-hlp" "progmodes/octave-hlp.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10869))
;;; Generated autoloads from progmodes/octave-hlp.el
(autoload (quote octave-help) "octave-hlp" "\
;;;***
\f
;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10869))
;;; Generated autoloads from progmodes/octave-inf.el
(autoload (quote inferior-octave) "octave-inf" "\
;;;***
\f
;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10869))
;;; Generated autoloads from progmodes/octave-mod.el
(autoload (quote octave-mode) "octave-mod" "\
\(fn)" t nil)
- ;;;***
- \f
- ;;;### (autoloads (edit-options list-options) "options" "obsolete/options.el"
- ;;;;;; (17843 45625))
- ;;; Generated autoloads from obsolete/options.el
-
- (autoload (quote list-options) "options" "\
- Display a list of Emacs user options, with values and documentation.
- It is now better to use Customize instead.
-
- \(fn)" t nil)
-
- (autoload (quote edit-options) "options" "\
- Edit a list of Emacs user option values.
- Selects a buffer containing such a list,
- in which there are commands to set the option values.
- Type \\[describe-mode] in that buffer for a list of commands.
-
- The Custom feature is intended to make this obsolete.
-
- \(fn)" t nil)
-
;;;***
\f
;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files
;;;;;; org-store-link org-tags-view org-diary org-cycle-agenda-files
;;;;;; org-todo-list org-agenda-list org-batch-agenda org-agenda
;;;;;; org-global-cycle org-cycle org-mode) "org" "textmodes/org.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/org.el
(autoload (quote org-mode) "org" "\
;;;***
\f
;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el"
- ;;;;;; (17843 45611))
+ ;;;;;; (17851 10839))
;;; Generated autoloads from outline.el
(put 'outline-regexp 'safe-local-variable 'string-or-null-p)
;;;***
\f
- ;;;### (autoloads nil "paragraphs" "textmodes/paragraphs.el" (17843
- ;;;;;; 45630))
+ ;;;### (autoloads nil "paragraphs" "textmodes/paragraphs.el" (17851
+ ;;;;;; 10872))
;;; Generated autoloads from textmodes/paragraphs.el
(put 'paragraph-start 'safe-local-variable 'stringp)
(put 'paragraph-separate 'safe-local-variable 'stringp)
;;;***
\f
- ;;;### (autoloads (show-paren-mode) "paren" "paren.el" (17843 45611))
+ ;;;### (autoloads (show-paren-mode) "paren" "paren.el" (17851 10839))
;;; Generated autoloads from paren.el
(defvar show-paren-mode nil "\
;;;***
\f
;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10852))
;;; Generated autoloads from calendar/parse-time.el
(autoload (quote parse-time-string) "parse-time" "\
;;;***
\f
- ;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17843
- ;;;;;; 45629))
+ ;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17851
+ ;;;;;; 10869))
;;; Generated autoloads from progmodes/pascal.el
(autoload (quote pascal-mode) "pascal" "\
;;;***
\f
;;;### (autoloads (pc-bindings-mode) "pc-mode" "emulation/pc-mode.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emulation/pc-mode.el
(autoload (quote pc-bindings-mode) "pc-mode" "\
;;;***
\f
;;;### (autoloads (pc-selection-mode pc-selection-mode) "pc-select"
- ;;;;;; "emulation/pc-select.el" (17843 45615))
+ ;;;;;; "emulation/pc-select.el" (17851 10853))
;;; Generated autoloads from emulation/pc-select.el
(defvar pc-selection-mode nil "\
;;;***
\f
- ;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17843
- ;;;;;; 45611))
+ ;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17851
+ ;;;;;; 10839))
;;; Generated autoloads from pcmpl-cvs.el
(autoload (quote pcomplete/cvs) "pcmpl-cvs" "\
;;;***
\f
;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip)
- ;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (17843 45611))
+ ;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (17851 10839))
;;; Generated autoloads from pcmpl-gnu.el
(autoload (quote pcomplete/gzip) "pcmpl-gnu" "\
;;;***
\f
;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill)
- ;;;;;; "pcmpl-linux" "pcmpl-linux.el" (17843 45611))
+ ;;;;;; "pcmpl-linux" "pcmpl-linux.el" (17851 10839))
;;; Generated autoloads from pcmpl-linux.el
(autoload (quote pcomplete/kill) "pcmpl-linux" "\
;;;***
\f
- ;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17843
- ;;;;;; 45611))
+ ;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17851
+ ;;;;;; 10839))
;;; Generated autoloads from pcmpl-rpm.el
(autoload (quote pcomplete/rpm) "pcmpl-rpm" "\
\f
;;;### (autoloads (pcomplete/chgrp pcomplete/chown pcomplete/which
;;;;;; pcomplete/xargs pcomplete/rm pcomplete/rmdir pcomplete/cd)
- ;;;;;; "pcmpl-unix" "pcmpl-unix.el" (17843 45611))
+ ;;;;;; "pcmpl-unix" "pcmpl-unix.el" (17851 10839))
;;; Generated autoloads from pcmpl-unix.el
(autoload (quote pcomplete/cd) "pcmpl-unix" "\
\f
;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list
;;;;;; pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete
- ;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17843
- ;;;;;; 45611))
+ ;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17851
+ ;;;;;; 10839))
;;; Generated autoloads from pcomplete.el
(autoload (quote pcomplete) "pcomplete" "\
\f
;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status
;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs"
- ;;;;;; "pcvs.el" (17843 45612))
+ ;;;;;; "pcvs.el" (17851 10840))
;;; Generated autoloads from pcvs.el
(autoload (quote cvs-checkout) "pcvs" "\
;;;***
\f
- ;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17843 45611))
+ ;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17851 10839))
;;; Generated autoloads from pcvs-defs.el
(defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] (quote (menu-item "Directory Status" cvs-status :help "A more verbose status of a workarea"))) (define-key m [checkout] (quote (menu-item "Checkout Module" cvs-checkout :help "Check out a module from the repository"))) (define-key m [update] (quote (menu-item "Update Directory" cvs-update :help "Fetch updates from the repository"))) (define-key m [examine] (quote (menu-item "Examine Directory" cvs-examine :help "Examine the current state of a workarea"))) (fset (quote cvs-global-menu) m)))
;;;***
\f
;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10869))
;;; Generated autoloads from progmodes/perl-mode.el
(autoload (quote perl-mode) "perl-mode" "\
;;;### (autoloads (pgg-snarf-keys pgg-snarf-keys-region pgg-insert-key
;;;;;; pgg-verify pgg-verify-region pgg-sign pgg-sign-region pgg-decrypt
;;;;;; pgg-decrypt-region pgg-encrypt pgg-encrypt-symmetric pgg-encrypt-symmetric-region
- ;;;;;; pgg-encrypt-region) "pgg" "pgg.el" (17843 45612))
+ ;;;;;; pgg-encrypt-region) "pgg" "pgg.el" (17851 10840))
;;; Generated autoloads from pgg.el
(autoload (quote pgg-encrypt-region) "pgg" "\
;;;***
\f
;;;### (autoloads (pgg-gpg-symmetric-key-p) "pgg-gpg" "pgg-gpg.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10840))
;;; Generated autoloads from pgg-gpg.el
(autoload (quote pgg-gpg-symmetric-key-p) "pgg-gpg" "\
;;;***
\f
;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/picture.el
(autoload (quote picture-mode) "picture" "\
;;;***
\f
;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/po.el
(autoload (quote po-find-file-coding-system) "po" "\
;;;***
\f
- ;;;### (autoloads (pong) "pong" "play/pong.el" (17843 45626))
+ ;;;### (autoloads (pong) "pong" "play/pong.el" (17851 10866))
;;; Generated autoloads from play/pong.el
(autoload (quote pong) "pong" "\
;;;***
\f
;;;### (autoloads (pp-eval-last-sexp pp-eval-expression pp pp-buffer
- ;;;;;; pp-to-string) "pp" "emacs-lisp/pp.el" (17843 45615))
+ ;;;;;; pp-to-string) "pp" "emacs-lisp/pp.el" (17851 10853))
;;; Generated autoloads from emacs-lisp/pp.el
(autoload (quote pp-to-string) "pp" "\
;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview
;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript
;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10840))
;;; Generated autoloads from printing.el
(autoload (quote pr-interface) "printing" "\
;;;***
\f
;;;### (autoloads (switch-to-prolog prolog-mode) "prolog" "progmodes/prolog.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10869))
;;; Generated autoloads from progmodes/prolog.el
(autoload (quote prolog-mode) "prolog" "\
;;;***
\f
- ;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17843 45612))
+ ;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17851 10840))
;;; Generated autoloads from ps-bdf.el
(defvar bdf-directory-list (if (memq system-type (quote (ms-dos windows-nt))) (list (expand-file-name "fonts/bdf" installation-directory)) (quote ("/usr/local/share/emacs/fonts/bdf"))) "\
;;;***
\f
- ;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17843
- ;;;;;; 45629))
+ ;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17851
+ ;;;;;; 10869))
;;; Generated autoloads from progmodes/ps-mode.el
(autoload (quote ps-mode) "ps-mode" "\
;;;### (autoloads (ps-mule-begin-page ps-mule-begin-job ps-mule-encode-header-string
;;;;;; ps-mule-initialize ps-mule-plot-composition ps-mule-plot-string
;;;;;; ps-mule-set-ascii-font ps-mule-prepare-ascii-font ps-multibyte-buffer)
- ;;;;;; "ps-mule" "ps-mule.el" (17843 45612))
+ ;;;;;; "ps-mule" "ps-mule.el" (17851 10840))
;;; Generated autoloads from ps-mule.el
(defvar ps-multibyte-buffer nil "\
;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer
;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces
;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type
- ;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (17843
- ;;;;;; 45612))
+ ;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (17851
+ ;;;;;; 10840))
;;; Generated autoloads from ps-print.el
(defvar ps-page-dimensions-database (list (list (quote a4) (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list (quote a3) (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list (quote letter) (* 72 8.5) (* 72 11.0) "Letter") (list (quote legal) (* 72 8.5) (* 72 14.0) "Legal") (list (quote letter-small) (* 72 7.68) (* 72 10.16) "LetterSmall") (list (quote tabloid) (* 72 11.0) (* 72 17.0) "Tabloid") (list (quote ledger) (* 72 17.0) (* 72 11.0) "Ledger") (list (quote statement) (* 72 5.5) (* 72 8.5) "Statement") (list (quote executive) (* 72 7.5) (* 72 10.0) "Executive") (list (quote a4small) (* 72 7.47) (* 72 10.85) "A4Small") (list (quote b4) (* 72 10.125) (* 72 14.33) "B4") (list (quote b5) (* 72 7.16) (* 72 10.125) "B5")) "\
;;;***
\f
;;;### (autoloads (jython-mode python-mode run-python) "python" "progmodes/python.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10869))
;;; Generated autoloads from progmodes/python.el
(add-to-list (quote interpreter-mode-alist) (quote ("jython" . jython-mode)))
;;;***
\f
;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10859))
;;; Generated autoloads from gnus/qp.el
(autoload (quote quoted-printable-decode-region) "qp" "\
;;;;;; quail-defrule quail-install-decode-map quail-install-map
;;;;;; quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout
;;;;;; quail-define-package quail-use-package quail-title) "quail"
- ;;;;;; "international/quail.el" (17843 45619))
+ ;;;;;; "international/quail.el" (17851 10861))
;;; Generated autoloads from international/quail.el
(autoload (quote quail-title) "quail" "\
\f
;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls
;;;;;; quickurl-browse-url-ask quickurl-browse-url quickurl-add-url
- ;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17843
- ;;;;;; 45624))
+ ;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17851
+ ;;;;;; 10864))
;;; Generated autoloads from net/quickurl.el
(defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\
;;;***
\f
;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc"
- ;;;;;; "net/rcirc.el" (17843 45624))
+ ;;;;;; "net/rcirc.el" (17851 10864))
;;; Generated autoloads from net/rcirc.el
(autoload (quote rcirc) "rcirc" "\
;;;***
\f
- ;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17843
- ;;;;;; 45624))
+ ;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17851
+ ;;;;;; 10864))
;;; Generated autoloads from net/rcompile.el
(autoload (quote remote-compile) "rcompile" "\
;;;***
\f
;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emacs-lisp/re-builder.el
(defalias (quote regexp-builder) (quote re-builder))
;;;***
\f
- ;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17843 45612))
+ ;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17851 10841))
;;; Generated autoloads from recentf.el
(defvar recentf-mode nil "\
;;;### (autoloads (clear-rectangle string-insert-rectangle string-rectangle
;;;;;; delete-whitespace-rectangle open-rectangle insert-rectangle
;;;;;; yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle
- ;;;;;; delete-rectangle move-to-column-force) "rect" "rect.el" (17843
- ;;;;;; 45612))
+ ;;;;;; delete-rectangle move-to-column-force) "rect" "rect.el" (17851
+ ;;;;;; 10841))
;;; Generated autoloads from rect.el
(autoload (quote move-to-column-force) "rect" "\
;;;***
\f
- ;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17843
- ;;;;;; 45630))
+ ;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17851
+ ;;;;;; 10872))
;;; Generated autoloads from textmodes/refill.el
(autoload (quote refill-mode) "refill" "\
;;;***
\f
;;;### (autoloads (reftex-reset-scanning-information reftex-mode
- ;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (17843 45630))
+ ;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (17851 10872))
;;; Generated autoloads from textmodes/reftex.el
(autoload (quote turn-on-reftex) "reftex" "\
;;;***
\f
;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/reftex-cite.el
(autoload (quote reftex-citation) "reftex-cite" "\
;;;***
\f
;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/reftex-global.el
(autoload (quote reftex-isearch-minor-mode) "reftex-global" "\
;;;***
\f
;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/reftex-index.el
(autoload (quote reftex-index-phrases-mode) "reftex-index" "\
;;;***
\f
;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10872))
;;; Generated autoloads from textmodes/reftex-parse.el
(autoload (quote reftex-all-document-files) "reftex-parse" "\
;;;***
\f
- ;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (17843
- ;;;;;; 45630))
+ ;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (17851
+ ;;;;;; 10872))
;;; Generated autoloads from textmodes/reftex-vars.el
(put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x))))
(put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x))))
;;;***
\f
;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emacs-lisp/regexp-opt.el
(autoload (quote regexp-opt) "regexp-opt" "\
;;;***
\f
- ;;;### (autoloads (repeat) "repeat" "repeat.el" (17843 45612))
+ ;;;### (autoloads (repeat) "repeat" "repeat.el" (17851 10841))
;;; Generated autoloads from repeat.el
(autoload (quote repeat) "repeat" "\
;;;***
\f
;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el"
- ;;;;;; (17843 45622))
+ ;;;;;; (17851 10862))
;;; Generated autoloads from mail/reporter.el
(autoload (quote reporter-submit-bug-report) "reporter" "\
;;;***
\f
;;;### (autoloads (reposition-window) "reposition" "reposition.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10841))
;;; Generated autoloads from reposition.el
(autoload (quote reposition-window) "reposition" "\
;;;***
\f
- ;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17843
- ;;;;;; 45612))
+ ;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17851
+ ;;;;;; 10841))
;;; Generated autoloads from resume.el
(autoload (quote resume-suspend-hook) "resume" "\
;;;***
\f
;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10841))
;;; Generated autoloads from reveal.el
(autoload (quote reveal-mode) "reveal" "\
;;;***
\f
;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emacs-lisp/ring.el
(autoload (quote ring-p) "ring" "\
;;;***
\f
- ;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17843 45624))
+ ;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17851 10864))
;;; Generated autoloads from net/rlogin.el
(add-hook 'same-window-regexps "^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)")
;;;;;; rmail-mail-new-frame rmail-primary-inbox-list rmail-delete-after-output
;;;;;; rmail-highlight-face rmail-highlighted-headers rmail-retry-ignored-headers
;;;;;; rmail-displayed-headers rmail-ignored-headers rmail-dont-reply-to-names
- ;;;;;; rmail-movemail-variant-p) "rmail" "mail/rmail.el" (17843
- ;;;;;; 45622))
+ ;;;;;; rmail-movemail-variant-p) "rmail" "mail/rmail.el" (17851
+ ;;;;;; 10862))
;;; Generated autoloads from mail/rmail.el
(autoload (quote rmail-movemail-variant-p) "rmail" "\
;;;***
\f
;;;### (autoloads (rmail-edit-current-message) "rmailedit" "mail/rmailedit.el"
- ;;;;;; (17843 45622))
+ ;;;;;; (17851 10862))
;;; Generated autoloads from mail/rmailedit.el
(autoload (quote rmail-edit-current-message) "rmailedit" "\
\f
;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message
;;;;;; rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd"
- ;;;;;; "mail/rmailkwd.el" (17843 45622))
+ ;;;;;; "mail/rmailkwd.el" (17851 10862))
;;; Generated autoloads from mail/rmailkwd.el
(autoload (quote rmail-add-label) "rmailkwd" "\
;;;***
\f
;;;### (autoloads (set-rmail-inbox-list) "rmailmsc" "mail/rmailmsc.el"
- ;;;;;; (17843 45622))
+ ;;;;;; (17851 10862))
;;; Generated autoloads from mail/rmailmsc.el
(autoload (quote set-rmail-inbox-list) "rmailmsc" "\
\f
;;;### (autoloads (rmail-output-body-to-file rmail-output rmail-fields-not-to-output
;;;;;; rmail-output-to-rmail-file rmail-output-file-alist) "rmailout"
- ;;;;;; "mail/rmailout.el" (17843 45622))
+ ;;;;;; "mail/rmailout.el" (17851 10862))
;;; Generated autoloads from mail/rmailout.el
(defvar rmail-output-file-alist nil "\
\f
;;;### (autoloads (rmail-sort-by-labels rmail-sort-by-lines rmail-sort-by-correspondent
;;;;;; rmail-sort-by-recipient rmail-sort-by-author rmail-sort-by-subject
- ;;;;;; rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17843
- ;;;;;; 45622))
+ ;;;;;; rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17851
+ ;;;;;; 10862))
;;; Generated autoloads from mail/rmailsort.el
(autoload (quote rmail-sort-by-date) "rmailsort" "\
;;;;;; rmail-summary-by-senders rmail-summary-by-topic rmail-summary-by-regexp
;;;;;; rmail-summary-by-recipients rmail-summary-by-labels rmail-summary
;;;;;; rmail-summary-line-count-flag rmail-summary-scroll-between-messages)
- ;;;;;; "rmailsum" "mail/rmailsum.el" (17843 45622))
+ ;;;;;; "rmailsum" "mail/rmailsum.el" (17851 10862))
;;; Generated autoloads from mail/rmailsum.el
(defvar rmail-summary-scroll-between-messages t "\
(custom-autoload (quote rmail-user-mail-address-regexp) "rmailsum" t)
- ;;;***
- \f
- ;;;### (autoloads (news-post-news) "rnewspost" "obsolete/rnewspost.el"
- ;;;;;; (17843 45625))
- ;;; Generated autoloads from obsolete/rnewspost.el
-
- (autoload (quote news-post-news) "rnewspost" "\
- Begin editing a new USENET news article to be posted.
- Type \\[describe-mode] once editing the article to get a list of commands.
- If NOQUERY is non-nil, we do not query before doing the work.
-
- \(fn &optional NOQUERY)" t nil)
-
;;;***
\f
;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region
- ;;;;;; rot13-string rot13) "rot13" "rot13.el" (17843 45612))
+ ;;;;;; rot13-string rot13) "rot13" "rot13.el" (17851 10841))
;;; Generated autoloads from rot13.el
(autoload (quote rot13) "rot13" "\
;;;***
\f
- ;;;### (autoloads (resize-minibuffer-mode resize-minibuffer-frame-exactly
- ;;;;;; resize-minibuffer-frame-max-height resize-minibuffer-frame
- ;;;;;; resize-minibuffer-window-exactly resize-minibuffer-window-max-height
- ;;;;;; resize-minibuffer-mode) "rsz-mini" "obsolete/rsz-mini.el"
- ;;;;;; (17843 45625))
- ;;; Generated autoloads from obsolete/rsz-mini.el
-
- (defvar resize-minibuffer-mode nil "\
- *This variable is obsolete.")
-
- (custom-autoload (quote resize-minibuffer-mode) "rsz-mini" t)
-
- (defvar resize-minibuffer-window-max-height nil "\
- *This variable is obsolete.")
-
- (custom-autoload (quote resize-minibuffer-window-max-height) "rsz-mini" t)
-
- (defvar resize-minibuffer-window-exactly t "\
- *This variable is obsolete.")
-
- (custom-autoload (quote resize-minibuffer-window-exactly) "rsz-mini" t)
-
- (defvar resize-minibuffer-frame nil "\
- *This variable is obsolete.")
-
- (custom-autoload (quote resize-minibuffer-frame) "rsz-mini" t)
-
- (defvar resize-minibuffer-frame-max-height nil "\
- *This variable is obsolete.")
-
- (custom-autoload (quote resize-minibuffer-frame-max-height) "rsz-mini" t)
-
- (defvar resize-minibuffer-frame-exactly t "\
- *This variable is obsolete.")
-
- (custom-autoload (quote resize-minibuffer-frame-exactly) "rsz-mini" t)
-
- (autoload (quote resize-minibuffer-mode) "rsz-mini" "\
- This function is obsolete.
-
- \(fn &optional PREFIX)" t nil)
-
- ;;;***
- \f
- ;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17838
- ;;;;;; 18033))
+ ;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17851
+ ;;;;;; 10841))
;;; Generated autoloads from ruler-mode.el
(autoload (quote ruler-mode) "ruler-mode" "\
;;;***
\f
- ;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (17843
- ;;;;;; 45615))
+ ;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (17851
+ ;;;;;; 10853))
;;; Generated autoloads from emacs-lisp/rx.el
(autoload (quote rx-to-string) "rx" "\
;;;***
\f
;;;### (autoloads (savehist-mode savehist-mode) "savehist" "savehist.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10841))
;;; Generated autoloads from savehist.el
(defvar savehist-mode nil "\
;;;***
\f
;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10869))
;;; Generated autoloads from progmodes/scheme.el
(autoload (quote scheme-mode) "scheme" "\
;;;***
\f
;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10859))
;;; Generated autoloads from gnus/score-mode.el
(autoload (quote gnus-score-mode) "score-mode" "\
\(fn)" t nil)
- ;;;***
- \f
- ;;;### (autoloads (scribe-mode) "scribe" "obsolete/scribe.el" (17843
- ;;;;;; 45625))
- ;;; Generated autoloads from obsolete/scribe.el
-
- (autoload (quote scribe-mode) "scribe" "\
- Major mode for editing files of Scribe (a text formatter) source.
- Scribe-mode is similar to text-mode, with a few extra commands added.
- \\{scribe-mode-map}
-
- Interesting variables:
-
- `scribe-fancy-paragraphs'
- Non-nil makes Scribe mode use a different style of paragraph separation.
-
- `scribe-electric-quote'
- Non-nil makes insert of double quote use `` or '' depending on context.
-
- `scribe-electric-parenthesis'
- Non-nil makes an open-parenthesis char (one of `([<{')
- automatically insert its close if typed after an @Command form.
-
- \(fn)" t nil)
-
;;;***
\f
;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10841))
;;; Generated autoloads from scroll-all.el
(defvar scroll-all-mode nil "\
;;;***
\f
;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10842))
;;; Generated autoloads from scroll-lock.el
(autoload (quote scroll-lock-mode) "scroll-lock" "\
;;;;;; mail-alias-file mail-default-reply-to mail-archive-file-name
;;;;;; mail-header-separator send-mail-function mail-interactive
;;;;;; mail-self-blind mail-specify-envelope-from mail-from-style)
- ;;;;;; "sendmail" "mail/sendmail.el" (17843 45622))
+ ;;;;;; "sendmail" "mail/sendmail.el" (17851 10862))
;;; Generated autoloads from mail/sendmail.el
(defvar mail-from-style (quote angles) "\
;;;***
\f
;;;### (autoloads (server-mode server-start) "server" "server.el"
- ;;;;;; (17838 18033))
+ ;;;;;; (17851 10842))
;;; Generated autoloads from server.el
(autoload (quote server-start) "server" "\
;;;***
\f
- ;;;### (autoloads (ses-mode) "ses" "ses.el" (17843 45612))
+ ;;;### (autoloads (ses-mode) "ses" "ses.el" (17851 10843))
;;; Generated autoloads from ses.el
(autoload (quote ses-mode) "ses" "\
;;;***
\f
;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10873))
;;; Generated autoloads from textmodes/sgml-mode.el
(autoload (quote sgml-mode) "sgml-mode" "\
;;;***
\f
;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10870))
;;; Generated autoloads from progmodes/sh-script.el
(put 'sh-shell 'safe-local-variable 'symbolp)
;;;***
\f
- ;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17843 45617))
+ ;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17851 10859))
;;; Generated autoloads from gnus/sha1.el
(autoload (quote sha1) "sha1" "\
;;;***
\f
;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emacs-lisp/shadow.el
(autoload (quote list-load-path-shadows) "shadow" "\
;;;***
\f
;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group
- ;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (17843
- ;;;;;; 45612))
+ ;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (17851
+ ;;;;;; 10843))
;;; Generated autoloads from shadowfile.el
(autoload (quote shadow-define-cluster) "shadowfile" "\
;;;***
\f
;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10843))
;;; Generated autoloads from shell.el
(defvar shell-dumb-shell-regexp "cmd\\(proxy\\)?\\.exe" "\
;;;***
\f
;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage)
- ;;;;;; "sieve" "gnus/sieve.el" (17843 45617))
+ ;;;;;; "sieve" "gnus/sieve.el" (17851 10860))
;;; Generated autoloads from gnus/sieve.el
(autoload (quote sieve-manage) "sieve" "\
;;;***
\f
;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10860))
;;; Generated autoloads from gnus/sieve-mode.el
(autoload (quote sieve-mode) "sieve-mode" "\
;;;***
\f
- ;;;### (autoloads nil "simple" "simple.el" (17843 45612))
+ ;;;### (autoloads nil "simple" "simple.el" (17851 10843))
;;; Generated autoloads from simple.el
(put 'fill-prefix 'safe-local-variable 'string-or-null-p)
;;;***
\f
- ;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17843
- ;;;;;; 45629))
+ ;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17851
+ ;;;;;; 10870))
;;; Generated autoloads from progmodes/simula.el
(autoload (quote simula-mode) "simula" "\
;;;***
\f
;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new
- ;;;;;; define-skeleton) "skeleton" "skeleton.el" (17843 45612))
+ ;;;;;; define-skeleton) "skeleton" "skeleton.el" (17851 10843))
;;; Generated autoloads from skeleton.el
(defvar skeleton-filter-function (quote identity) "\
;;;***
\f
;;;### (autoloads (smerge-mode smerge-ediff) "smerge-mode" "smerge-mode.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10844))
;;; Generated autoloads from smerge-mode.el
(autoload (quote smerge-ediff) "smerge-mode" "\
;;;***
\f
;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el"
- ;;;;;; (17843 45617))
+ ;;;;;; (17851 10860))
;;; Generated autoloads from gnus/smiley.el
(autoload (quote smiley-region) "smiley" "\
;;;***
\f
;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail"
- ;;;;;; "mail/smtpmail.el" (17843 45622))
+ ;;;;;; "mail/smtpmail.el" (17851 10862))
;;; Generated autoloads from mail/smtpmail.el
(autoload (quote smtpmail-send-it) "smtpmail" "\
;;;***
\f
- ;;;### (autoloads (snake) "snake" "play/snake.el" (17843 45626))
+ ;;;### (autoloads (snake) "snake" "play/snake.el" (17851 10866))
;;; Generated autoloads from play/snake.el
(autoload (quote snake) "snake" "\
;;;***
\f
;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el"
- ;;;;;; (17843 45624))
+ ;;;;;; (17851 10864))
;;; Generated autoloads from net/snmp-mode.el
(autoload (quote snmp-mode) "snmp-mode" "\
\f
;;;### (autoloads (solar-equinoxes-solstices sunrise-sunset calendar-location-name
;;;;;; calendar-longitude calendar-latitude calendar-time-display-form)
- ;;;;;; "solar" "calendar/solar.el" (17843 45615))
+ ;;;;;; "solar" "calendar/solar.el" (17851 10852))
;;; Generated autoloads from calendar/solar.el
(defvar calendar-time-display-form (quote (12-hours ":" minutes am-pm (if time-zone " (") time-zone (if time-zone ")"))) "\
;;;***
\f
- ;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17843
- ;;;;;; 45626))
+ ;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17851
+ ;;;;;; 10866))
;;; Generated autoloads from play/solitaire.el
(autoload (quote solitaire) "solitaire" "\
\f
;;;### (autoloads (reverse-region sort-columns sort-regexp-fields
;;;;;; sort-fields sort-numeric-fields sort-pages sort-paragraphs
- ;;;;;; sort-lines sort-subr) "sort" "sort.el" (17843 45612))
+ ;;;;;; sort-lines sort-subr) "sort" "sort.el" (17851 10844))
;;; Generated autoloads from sort.el
(autoload (quote sort-subr) "sort" "\
;;;***
\f
- ;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17843
- ;;;;;; 45617))
+ ;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17851
+ ;;;;;; 10860))
;;; Generated autoloads from gnus/spam.el
(autoload (quote spam-initialize) "spam" "\
\f
;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file
;;;;;; spam-report-url-ping-mm-url spam-report-process-queue) "spam-report"
- ;;;;;; "gnus/spam-report.el" (17843 45617))
+ ;;;;;; "gnus/spam-report.el" (17851 10860))
;;; Generated autoloads from gnus/spam-report.el
(autoload (quote spam-report-process-queue) "spam-report" "\
;;;***
\f
;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar"
- ;;;;;; "speedbar.el" (17843 45612))
+ ;;;;;; "speedbar.el" (17851 10844))
;;; Generated autoloads from speedbar.el
(defalias (quote speedbar) (quote speedbar-frame-mode))
;;;***
\f
;;;### (autoloads (spell-string spell-region spell-word spell-buffer)
- ;;;;;; "spell" "textmodes/spell.el" (17843 45630))
+ ;;;;;; "spell" "textmodes/spell.el" (17851 10873))
;;; Generated autoloads from textmodes/spell.el
(put (quote spell-filter) (quote risky-local-variable) t)
;;;***
\f
- ;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17843
- ;;;;;; 45626))
+ ;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17851
+ ;;;;;; 10866))
;;; Generated autoloads from play/spook.el
(autoload (quote spook) "spook" "\
;;;### (autoloads (sql-linter sql-db2 sql-interbase sql-postgres
;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix
;;;;;; sql-sybase sql-oracle sql-product-interactive sql-mode sql-help
- ;;;;;; sql-add-product-keywords) "sql" "progmodes/sql.el" (17843
- ;;;;;; 45629))
+ ;;;;;; sql-add-product-keywords) "sql" "progmodes/sql.el" (17851
+ ;;;;;; 10870))
;;; Generated autoloads from progmodes/sql.el
(autoload (quote sql-add-product-keywords) "sql" "\
;;;;;; strokes-mode strokes-list-strokes strokes-load-user-strokes
;;;;;; strokes-help strokes-describe-stroke strokes-do-complex-stroke
;;;;;; strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke
- ;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (17843
- ;;;;;; 45612))
+ ;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (17851
+ ;;;;;; 10844))
;;; Generated autoloads from strokes.el
(autoload (quote strokes-global-set-stroke) "strokes" "\
;;;***
\f
;;;### (autoloads (studlify-buffer studlify-word studlify-region)
- ;;;;;; "studly" "play/studly.el" (17075 55479))
+ ;;;;;; "studly" "play/studly.el" (16211 27038))
;;; Generated autoloads from play/studly.el
(autoload (quote studlify-region) "studly" "\
;;;***
\f
- ;;;### (autoloads (locate-library) "subr" "subr.el" (17843 45612))
+ ;;;### (autoloads (locate-library) "subr" "subr.el" (17851 10844))
;;; Generated autoloads from subr.el
(autoload (quote locate-library) "subr" "\
;;;***
\f
;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el"
- ;;;;;; (17843 45622))
+ ;;;;;; (17851 10862))
;;; Generated autoloads from mail/supercite.el
(autoload (quote sc-cite-original) "supercite" "\
;;;***
\f
- ;;;### (autoloads (t-mouse-mode) "t-mouse" "t-mouse.el" (17842 25773))
+ ;;;### (autoloads (t-mouse-mode) "t-mouse" "t-mouse.el" (17851 10844))
;;; Generated autoloads from t-mouse.el
(defvar t-mouse-mode nil "\
;;;***
\f
- ;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17843 45612))
+ ;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17851 10844))
;;; Generated autoloads from tabify.el
(autoload (quote untabify) "tabify" "\
;;;;;; table-recognize table-insert-row-column table-insert-column
;;;;;; table-insert-row table-insert table-point-left-cell-hook
;;;;;; table-point-entered-cell-hook table-load-hook table-cell-map-hook)
- ;;;;;; "table" "textmodes/table.el" (17843 45630))
+ ;;;;;; "table" "textmodes/table.el" (17851 10873))
;;; Generated autoloads from textmodes/table.el
(defvar table-cell-map-hook nil "\
;;;***
\f
- ;;;### (autoloads (talk-connect) "talk" "talk.el" (17843 45612))
+ ;;;### (autoloads (talk-connect) "talk" "talk.el" (17851 10845))
;;; Generated autoloads from talk.el
(autoload (quote talk-connect) "talk" "\
;;;***
\f
- ;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (17843 45612))
+ ;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (17851 10845))
;;; Generated autoloads from tar-mode.el
(autoload (quote tar-mode) "tar-mode" "\
;;;***
\f
;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl"
- ;;;;;; "progmodes/tcl.el" (17843 45629))
+ ;;;;;; "progmodes/tcl.el" (17851 10870))
;;; Generated autoloads from progmodes/tcl.el
(autoload (quote tcl-mode) "tcl" "\
;;;***
\f
- ;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17843 45624))
+ ;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17851 10864))
;;; Generated autoloads from net/telnet.el
(add-hook 'same-window-regexps "\\*telnet-.*\\*\\(\\|<[0-9]+>\\)")
;;;***
\f
- ;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17843
- ;;;;;; 45612))
+ ;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17851
+ ;;;;;; 10845))
;;; Generated autoloads from term.el
(autoload (quote make-term) "term" "\
;;;***
\f
- ;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17843
- ;;;;;; 45612))
+ ;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17851
+ ;;;;;; 10845))
;;; Generated autoloads from terminal.el
(autoload (quote terminal-emulator) "terminal" "\
;;;***
\f
;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emacs-lisp/testcover.el
(autoload (quote testcover-this-defun) "testcover" "\
;;;***
\f
- ;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17843 45626))
+ ;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17851 10866))
;;; Generated autoloads from play/tetris.el
(autoload (quote tetris) "tetris" "\
;;;;;; tex-start-commands tex-start-options slitex-run-command latex-run-command
;;;;;; tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp
;;;;;; tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10873))
;;; Generated autoloads from textmodes/tex-mode.el
(defvar tex-shell-file-name nil "\
;;;***
\f
;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer)
- ;;;;;; "texinfmt" "textmodes/texinfmt.el" (17843 45630))
+ ;;;;;; "texinfmt" "textmodes/texinfmt.el" (17851 10873))
;;; Generated autoloads from textmodes/texinfmt.el
(autoload (quote texinfo-format-buffer) "texinfmt" "\
;;;***
\f
;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote)
- ;;;;;; "texinfo" "textmodes/texinfo.el" (17843 45630))
+ ;;;;;; "texinfo" "textmodes/texinfo.el" (17851 10873))
;;; Generated autoloads from textmodes/texinfo.el
(defvar texinfo-open-quote "``" "\
;;;### (autoloads (thai-auto-composition-mode thai-composition-function
;;;;;; thai-post-read-conversion thai-compose-buffer thai-compose-string
;;;;;; thai-compose-region) "thai-util" "language/thai-util.el"
- ;;;;;; (17843 45621))
+ ;;;;;; (17851 10861))
;;; Generated autoloads from language/thai-util.el
(autoload (quote thai-compose-region) "thai-util" "\
\f
;;;### (autoloads (list-at-point number-at-point symbol-at-point
;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing)
- ;;;;;; "thingatpt" "thingatpt.el" (17843 45612))
+ ;;;;;; "thingatpt" "thingatpt.el" (17851 10845))
;;; Generated autoloads from thingatpt.el
(autoload (quote forward-thing) "thingatpt" "\
\f
;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked
;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10845))
;;; Generated autoloads from thumbs.el
(autoload (quote thumbs-find-thumb) "thumbs" "\
;;;;;; tibetan-composition-function tibetan-decompose-string tibetan-decompose-region
;;;;;; tibetan-compose-region tibetan-compose-string tibetan-transcription-to-tibetan
;;;;;; tibetan-tibetan-to-transcription tibetan-char-p) "tibet-util"
- ;;;;;; "language/tibet-util.el" (17843 45621))
+ ;;;;;; "language/tibet-util.el" (17851 10861))
;;; Generated autoloads from language/tibet-util.el
(autoload (quote tibetan-char-p) "tibet-util" "\
;;;***
\f
;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10873))
;;; Generated autoloads from textmodes/tildify.el
(autoload (quote tildify-region) "tildify" "\
;;;***
\f
;;;### (autoloads (display-time-mode display-time display-time-day-and-date)
- ;;;;;; "time" "time.el" (17843 45612))
+ ;;;;;; "time" "time.el" (17851 10845))
;;; Generated autoloads from time.el
(defvar display-time-day-and-date nil "\
;;;### (autoloads (safe-date-to-time time-to-days time-to-day-in-year
;;;;;; date-leap-year-p days-between date-to-day time-add time-subtract
;;;;;; time-since days-to-time time-less-p seconds-to-time time-to-seconds
- ;;;;;; date-to-time) "time-date" "calendar/time-date.el" (17843
- ;;;;;; 45615))
+ ;;;;;; date-to-time) "time-date" "calendar/time-date.el" (17851
+ ;;;;;; 10852))
;;; Generated autoloads from calendar/time-date.el
(autoload (quote date-to-time) "time-date" "\
;;;***
\f
;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp"
- ;;;;;; "time-stamp.el" (17843 45612))
+ ;;;;;; "time-stamp.el" (17851 10845))
;;; Generated autoloads from time-stamp.el
(put 'time-stamp-format 'safe-local-variable 'stringp)
(put 'time-stamp-line-limit 'safe-local-variable 'integerp)
;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out
;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in
;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10852))
;;; Generated autoloads from calendar/timeclock.el
(autoload (quote timeclock-modeline-display) "timeclock" "\
\f
;;;### (autoloads (with-timeout run-with-idle-timer add-timeout run-with-timer
;;;;;; run-at-time cancel-function-timers cancel-timer) "timer"
- ;;;;;; "emacs-lisp/timer.el" (17843 45615))
+ ;;;;;; "emacs-lisp/timer.el" (17851 10853))
;;; Generated autoloads from emacs-lisp/timer.el
(defalias (quote disable-timeout) (quote cancel-timer))
;;;***
\f
;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv"
- ;;;;;; "international/titdic-cnv.el" (17843 45620))
+ ;;;;;; "international/titdic-cnv.el" (17851 10861))
;;; Generated autoloads from international/titdic-cnv.el
(autoload (quote titdic-convert) "titdic-cnv" "\
;;;***
\f
;;;### (autoloads (tamil-composition-function tamil-post-read-conversion
- ;;;;;; tamil-compose-region) "tml-util" "language/tml-util.el" (17843
- ;;;;;; 45621))
+ ;;;;;; tamil-compose-region) "tml-util" "language/tml-util.el" (17851
+ ;;;;;; 10861))
;;; Generated autoloads from language/tml-util.el
(autoload (quote tamil-compose-region) "tml-util" "\
;;;***
\f
;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm"
- ;;;;;; "tmm.el" (17843 45612))
+ ;;;;;; "tmm.el" (17851 10845))
;;; Generated autoloads from tmm.el
(define-key global-map "\M-`" 'tmm-menubar)
(define-key global-map [f10] 'tmm-menubar)
\f
;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities
;;;;;; todo-insert-item todo-add-item-non-interactively todo-add-category)
- ;;;;;; "todo-mode" "calendar/todo-mode.el" (17843 45615))
+ ;;;;;; "todo-mode" "calendar/todo-mode.el" (17851 10852))
;;; Generated autoloads from calendar/todo-mode.el
(autoload (quote todo-add-category) "todo-mode" "\
\f
;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu
;;;;;; tool-bar-local-item tool-bar-add-item) "tool-bar" "tool-bar.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10845))
;;; Generated autoloads from tool-bar.el
(put (quote tool-bar-mode) (quote standard-value) (quote (t)))
;;;***
\f
;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emulation/tpu-edt.el
(defvar tpu-edt-mode nil "\
;;;***
\f
;;;### (autoloads (tpu-set-cursor-bound tpu-set-cursor-free tpu-set-scroll-margins)
- ;;;;;; "tpu-extras" "emulation/tpu-extras.el" (17843 45615))
+ ;;;;;; "tpu-extras" "emulation/tpu-extras.el" (17851 10853))
;;; Generated autoloads from emulation/tpu-extras.el
(autoload (quote tpu-set-scroll-margins) "tpu-extras" "\
;;;***
\f
- ;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17843 45615))
+ ;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17851 10853))
;;; Generated autoloads from emacs-lisp/tq.el
(autoload (quote tq-create) "tq" "\
;;;***
\f
;;;### (autoloads (trace-function-background trace-function trace-buffer)
- ;;;;;; "trace" "emacs-lisp/trace.el" (17843 45615))
+ ;;;;;; "trace" "emacs-lisp/trace.el" (17851 10853))
;;; Generated autoloads from emacs-lisp/trace.el
(defvar trace-buffer "*trace-output*" "\
;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion
;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers
;;;;;; tramp-file-name-handler tramp-completion-file-name-regexp
- ;;;;;; tramp-file-name-regexp) "tramp" "net/tramp.el" (17844 62922))
+ ;;;;;; tramp-file-name-regexp) "tramp" "net/tramp.el" (17851 10865))
;;; Generated autoloads from net/tramp.el
(defvar tramp-unified-filenames (not (featurep (quote xemacs))) "\
;;;***
\f
;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el"
- ;;;;;; (17843 45624))
+ ;;;;;; (17851 10864))
;;; Generated autoloads from net/tramp-ftp.el
(autoload (quote tramp-ftp-enable-ange-ftp) "tramp-ftp" "\
;;;;;; tumme-display-thumb tumme-display-thumbs-append tumme-setup-dired-keybindings
;;;;;; tumme-jump-thumbnail-buffer tumme-delete-tag tumme-tag-files
;;;;;; tumme-show-all-from-dir tumme-display-thumbs tumme-dired-with-window-configuration
- ;;;;;; tumme-dired-insert-marked-thumbs) "tumme" "tumme.el" (17843
- ;;;;;; 45612))
+ ;;;;;; tumme-dired-insert-marked-thumbs) "tumme" "tumme.el" (17851
+ ;;;;;; 10847))
;;; Generated autoloads from tumme.el
(autoload (quote tumme-dired-insert-marked-thumbs) "tumme" "\
;;;***
\f
- ;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (17843
- ;;;;;; 45612))
+ ;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (17851
+ ;;;;;; 10847))
;;; Generated autoloads from tutorial.el
(autoload (quote help-with-tutorial) "tutorial" "\
;;;***
\f
;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column"
- ;;;;;; "textmodes/two-column.el" (17843 45630))
+ ;;;;;; "textmodes/two-column.el" (17851 10873))
;;; Generated autoloads from textmodes/two-column.el
(autoload '2C-command "two-column" () t 'keymap)
(global-set-key "\C-x6" '2C-command)
;;;;;; type-break type-break-mode type-break-keystroke-threshold
;;;;;; type-break-good-break-interval type-break-good-rest-interval
;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el"
- ;;;;;; (17845 22175))
+ ;;;;;; (17851 10847))
;;; Generated autoloads from type-break.el
(defvar type-break-mode nil "\
;;;***
\f
;;;### (autoloads (ununderline-region underline-region) "underline"
- ;;;;;; "textmodes/underline.el" (17843 45630))
+ ;;;;;; "textmodes/underline.el" (17851 10873))
;;; Generated autoloads from textmodes/underline.el
(autoload (quote underline-region) "underline" "\
;;;***
\f
;;;### (autoloads (unforward-rmail-message undigestify-rmail-message)
- ;;;;;; "undigest" "mail/undigest.el" (17843 45622))
+ ;;;;;; "undigest" "mail/undigest.el" (17851 10862))
;;; Generated autoloads from mail/undigest.el
(autoload (quote undigestify-rmail-message) "undigest" "\
;;;***
\f
;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el"
- ;;;;;; (17843 45622))
+ ;;;;;; (17851 10862))
;;; Generated autoloads from mail/unrmail.el
(autoload (quote batch-unrmail) "unrmail" "\
;;;***
\f
- ;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17843
- ;;;;;; 45615))
+ ;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17851
+ ;;;;;; 10853))
;;; Generated autoloads from emacs-lisp/unsafep.el
(autoload (quote unsafep) "unsafep" "\
;;;***
\f
;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url"
- ;;;;;; "url/url.el" (17843 45630))
+ ;;;;;; "url/url.el" (17851 10875))
;;; Generated autoloads from url/url.el
(autoload (quote url-retrieve) "url" "\
;;;***
\f
;;;### (autoloads (url-register-auth-scheme url-get-authentication)
- ;;;;;; "url-auth" "url/url-auth.el" (17843 45630))
+ ;;;;;; "url-auth" "url/url-auth.el" (17851 10873))
;;; Generated autoloads from url/url-auth.el
(autoload (quote url-get-authentication) "url-auth" "\
;;;***
\f
;;;### (autoloads (url-cache-expired url-cache-extract url-is-cached
- ;;;;;; url-store-in-cache) "url-cache" "url/url-cache.el" (17843
- ;;;;;; 45630))
+ ;;;;;; url-store-in-cache) "url-cache" "url/url-cache.el" (17851
+ ;;;;;; 10873))
;;; Generated autoloads from url/url-cache.el
(autoload (quote url-store-in-cache) "url-cache" "\
;;;***
\f
- ;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17843 45630))
+ ;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17851 10873))
;;; Generated autoloads from url/url-cid.el
(autoload (quote url-cid) "url-cid" "\
;;;***
\f
;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav"
- ;;;;;; "url/url-dav.el" (17843 45630))
+ ;;;;;; "url/url-dav.el" (17851 10873))
;;; Generated autoloads from url/url-dav.el
(autoload (quote url-dav-supported-p) "url-dav" "\
;;;***
\f
- ;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17843
- ;;;;;; 45630))
+ ;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17851
+ ;;;;;; 10873))
;;; Generated autoloads from url/url-file.el
(autoload (quote url-file) "url-file" "\
;;;***
\f
;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw"
- ;;;;;; "url/url-gw.el" (17843 45630))
+ ;;;;;; "url/url-gw.el" (17851 10873))
;;; Generated autoloads from url/url-gw.el
(autoload (quote url-gateway-nslookup-host) "url-gw" "\
;;;***
\f
;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file
- ;;;;;; url-handler-mode) "url-handlers" "url/url-handlers.el" (17843
- ;;;;;; 45630))
+ ;;;;;; url-handler-mode) "url-handlers" "url/url-handlers.el" (17851
+ ;;;;;; 10873))
;;; Generated autoloads from url/url-handlers.el
(defvar url-handler-mode nil "\
;;;***
\f
;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p
- ;;;;;; url-http) "url-http" "url/url-http.el" (17843 45630))
+ ;;;;;; url-http) "url-http" "url/url-http.el" (17851 10873))
;;; Generated autoloads from url/url-http.el
(autoload (quote url-http) "url-http" "\
;;;***
\f
- ;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17843 45630))
+ ;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17851 10873))
;;; Generated autoloads from url/url-irc.el
(autoload (quote url-irc) "url-irc" "\
;;;***
\f
- ;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17843
- ;;;;;; 45630))
+ ;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17851
+ ;;;;;; 10873))
;;; Generated autoloads from url/url-ldap.el
(autoload (quote url-ldap) "url-ldap" "\
;;;***
\f
;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10874))
;;; Generated autoloads from url/url-mailto.el
(autoload (quote url-mail) "url-mailto" "\
;;;***
\f
;;;### (autoloads (url-data url-generic-emulator-loader url-info
- ;;;;;; url-man) "url-misc" "url/url-misc.el" (17843 45630))
+ ;;;;;; url-man) "url-misc" "url/url-misc.el" (17851 10874))
;;; Generated autoloads from url/url-misc.el
(autoload (quote url-man) "url-misc" "\
;;;***
\f
;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10874))
;;; Generated autoloads from url/url-news.el
(autoload (quote url-news) "url-news" "\
\f
;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable
;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10874))
;;; Generated autoloads from url/url-ns.el
(autoload (quote isPlainHostName) "url-ns" "\
;;;***
\f
;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse"
- ;;;;;; "url/url-parse.el" (17843 45630))
+ ;;;;;; "url/url-parse.el" (17851 10874))
;;; Generated autoloads from url/url-parse.el
(autoload (quote url-recreate-url) "url-parse" "\
;;;***
\f
;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10874))
;;; Generated autoloads from url/url-privacy.el
(autoload (quote url-setup-privacy-info) "url-privacy" "\
;;;;;; url-strip-leading-spaces url-eat-trailing-space url-get-normalized-date
;;;;;; url-lazy-message url-normalize-url url-insert-entities-in-string
;;;;;; url-parse-args url-debug url-debug) "url-util" "url/url-util.el"
- ;;;;;; (17843 45630))
+ ;;;;;; (17851 10874))
;;; Generated autoloads from url/url-util.el
(defvar url-debug nil "\
;;;***
\f
;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock)
- ;;;;;; "userlock" "userlock.el" (17843 45612))
+ ;;;;;; "userlock" "userlock.el" (17851 10848))
;;; Generated autoloads from userlock.el
(autoload (quote ask-user-about-lock) "userlock" "\
\(fn FN)" nil nil)
-;;;***
-\f
-;;;### (autoloads nil "utf-7" "international/utf-7.el" (17851 10861))
-;;; Generated autoloads from international/utf-7.el
-(autoload-coding-system 'utf-7 '(require 'utf-7))
-
;;;***
\f
;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal
;;;;;; uudecode-decode-region-external) "uudecode" "gnus/uudecode.el"
- ;;;;;; (17843 45618))
+ ;;;;;; (17851 10860))
;;; Generated autoloads from gnus/uudecode.el
(autoload (quote uudecode-decode-region-external) "uudecode" "\
;;;;;; vc-directory vc-merge vc-insert-headers vc-version-other-window
;;;;;; vc-diff vc-register vc-next-action vc-do-command edit-vc-file
;;;;;; with-vc-file vc-branch-part vc-trunk-p vc-before-checkin-hook
- ;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17843 45612))
+ ;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17851 10849))
;;; Generated autoloads from vc.el
(defvar vc-checkout-hook nil "\
;;;***
\f
- ;;;### (autoloads nil "vc-arch" "vc-arch.el" (17843 45612))
+ ;;;### (autoloads nil "vc-arch" "vc-arch.el" (17851 10848))
;;; Generated autoloads from vc-arch.el
(defun vc-arch-registered (file)
(if (vc-find-root file "{arch}/=tagging-method")
;;;***
\f
- ;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17843 45612))
+ ;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17851 10848))
;;; Generated autoloads from vc-cvs.el
(defun vc-cvs-registered (f)
(when (file-readable-p (expand-file-name
;;;***
\f
- ;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17843 45612))
+ ;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17851 10848))
;;; Generated autoloads from vc-mcvs.el
(defun vc-mcvs-registered (file)
(if (vc-find-root file "MCVS/CVS")
;;;***
\f
;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc-rcs.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10848))
;;; Generated autoloads from vc-rcs.el
(defvar vc-rcs-master-templates (quote ("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\
;;;***
\f
;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc-sccs.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10848))
;;; Generated autoloads from vc-sccs.el
(defvar vc-sccs-master-templates (quote ("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\
;;;***
\f
- ;;;### (autoloads nil "vc-svn" "vc-svn.el" (17838 18033))
+ ;;;### (autoloads nil "vc-svn" "vc-svn.el" (17851 10848))
;;; Generated autoloads from vc-svn.el
(defun vc-svn-registered (f)
(let ((admin-dir (cond ((and (eq system-type 'windows-nt)
;;;***
\f
;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10871))
;;; Generated autoloads from progmodes/vhdl-mode.el
(autoload (quote vhdl-mode) "vhdl-mode" "\
;;;***
\f
- ;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17789 35159))
+ ;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17806 44346))
;;; Generated autoloads from emulation/vi.el
(autoload (quote vi-mode) "vi" "\
;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion
;;;;;; viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer
;;;;;; viet-decode-viqr-region viet-encode-viscii-char) "viet-util"
- ;;;;;; "language/viet-util.el" (17843 45621))
+ ;;;;;; "language/viet-util.el" (17851 10861))
;;; Generated autoloads from language/viet-util.el
(autoload (quote viet-encode-viscii-char) "viet-util" "\
\f
;;;### (autoloads (View-exit-and-edit view-mode-enter view-mode view-buffer-other-frame
;;;;;; view-buffer-other-window view-buffer view-file-other-frame
- ;;;;;; view-file-other-window view-file) "view" "view.el" (17843
- ;;;;;; 45612))
+ ;;;;;; view-file-other-window view-file) "view" "view.el" (17851
+ ;;;;;; 10849))
;;; Generated autoloads from view.el
(defvar view-mode nil "\
;;;***
\f
- ;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17843
- ;;;;;; 45615))
+ ;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17851
+ ;;;;;; 10854))
;;; Generated autoloads from emulation/vip.el
(autoload (quote vip-setup) "vip" "\
;;;***
\f
;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10854))
;;; Generated autoloads from emulation/viper.el
(autoload (quote toggle-viper-mode) "viper" "\
;;;***
\f
;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el"
- ;;;;;; (17843 45615))
+ ;;;;;; (17851 10853))
;;; Generated autoloads from emacs-lisp/warnings.el
(defvar warning-prefix-function nil "\
;;;***
\f
;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10849))
;;; Generated autoloads from wdired.el
(autoload (quote wdired-change-to-wdired-mode) "wdired" "\
;;;***
\f
- ;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17843 45625))
+ ;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17851 10865))
;;; Generated autoloads from net/webjump.el
(autoload (quote webjump) "webjump" "\
;;;***
\f
;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el"
- ;;;;;; (17843 45629))
+ ;;;;;; (17851 10871))
;;; Generated autoloads from progmodes/which-func.el
(put 'which-func-format 'risky-local-variable t)
(put 'which-func-current 'risky-local-variable t)
;;;;;; whitespace-buffer whitespace-toggle-ateol-check whitespace-toggle-spacetab-check
;;;;;; whitespace-toggle-indent-check whitespace-toggle-trailing-check
;;;;;; whitespace-toggle-leading-check) "whitespace" "whitespace.el"
- ;;;;;; (17843 45612))
+ ;;;;;; (17851 10849))
;;; Generated autoloads from whitespace.el
(autoload (quote whitespace-toggle-leading-check) "whitespace" "\
;;;***
\f
;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse
- ;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (17843 45612))
+ ;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (17851 10849))
;;; Generated autoloads from wid-browse.el
(autoload (quote widget-browse-at) "wid-browse" "\
;;;***
\f
;;;### (autoloads (widget-setup widget-insert widget-delete widget-create
- ;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17843
- ;;;;;; 45612))
+ ;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17851
+ ;;;;;; 10849))
;;; Generated autoloads from wid-edit.el
(autoload (quote widgetp) "wid-edit" "\
;;;***
\f
;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right
- ;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (17843
- ;;;;;; 45612))
+ ;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (17851
+ ;;;;;; 10849))
;;; Generated autoloads from windmove.el
(autoload (quote windmove-left) "windmove" "\
;;;***
\f
;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el"
- ;;;;;; (17843 45613))
+ ;;;;;; (17851 10849))
;;; Generated autoloads from winner.el
(defvar winner-mode nil "\
;;;***
\f
;;;### (autoloads (woman-find-file woman-dired-find-file woman) "woman"
- ;;;;;; "woman.el" (17843 45613))
+ ;;;;;; "woman.el" (17851 10849))
;;; Generated autoloads from woman.el
(autoload (quote woman) "woman" "\
;;;***
\f
;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el"
- ;;;;;; (17843 45616))
+ ;;;;;; (17851 10854))
;;; Generated autoloads from emulation/ws-mode.el
(autoload (quote wordstar-mode) "ws-mode" "\
;;;***
\f
;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el"
- ;;;;;; (17843 45613))
+ ;;;;;; (17851 10850))
;;; Generated autoloads from xml.el
(autoload (quote xml-parse-file) "xml" "\
;;;***
\f
- ;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (17843
- ;;;;;; 45613))
+ ;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (17851
+ ;;;;;; 10850))
;;; Generated autoloads from xt-mouse.el
(defvar xterm-mouse-mode nil "\
;;;***
\f
;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc"
- ;;;;;; "gnus/yenc.el" (17843 45618))
+ ;;;;;; "gnus/yenc.el" (17851 10860))
;;; Generated autoloads from gnus/yenc.el
(autoload (quote yenc-decode-region) "yenc" "\
;;;***
\f
;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism
- ;;;;;; yow) "yow" "play/yow.el" (17843 45626))
+ ;;;;;; yow) "yow" "play/yow.el" (17851 10866))
;;; Generated autoloads from play/yow.el
(autoload (quote yow) "yow" "\
;;;***
\f
- ;;;### (autoloads (zone) "zone" "play/zone.el" (17843 45626))
+ ;;;### (autoloads (zone) "zone" "play/zone.el" (17851 10866))
;;; Generated autoloads from play/zone.el
(autoload (quote zone) "zone" "\
;;;;;; "net/eudcb-bbdb.el" "net/eudcb-ldap.el" "net/eudcb-mab.el"
;;;;;; "net/eudcb-ph.el" "net/ldap.el" "net/netrc.el" "net/tls.el"
;;;;;; "net/tramp-smb.el" "net/tramp-util.el" "net/tramp-uu.el"
- ;;;;;; "net/tramp-vc.el" "net/trampver.el" "obsolete/sc.el" "patcomp.el"
- ;;;;;; "paths.el" "pcvs-info.el" "pcvs-parse.el" "pcvs-util.el"
- ;;;;;; "pgg-def.el" "pgg-parse.el" "pgg-pgp.el" "pgg-pgp5.el" "play/gamegrid.el"
+ ;;;;;; "net/tramp-vc.el" "net/trampver.el" "patcomp.el" "paths.el"
+ ;;;;;; "pcvs-info.el" "pcvs-parse.el" "pcvs-util.el" "pgg-def.el"
+ ;;;;;; "pgg-parse.el" "pgg-pgp.el" "pgg-pgp5.el" "play/gamegrid.el"
;;;;;; "play/gametree.el" "play/meese.el" "progmodes/ada-prj.el"
;;;;;; "progmodes/cc-align.el" "progmodes/cc-awk.el" "progmodes/cc-bytecomp.el"
;;;;;; "progmodes/cc-cmds.el" "progmodes/cc-defs.el" "progmodes/cc-fonts.el"
;;;;;; "progmodes/idlw-toolbar.el" "progmodes/mantemp.el" "progmodes/xscheme.el"
;;;;;; "register.el" "replace.el" "rfn-eshadow.el" "s-region.el"
;;;;;; "saveplace.el" "sb-image.el" "scroll-bar.el" "select.el"
- ;;;;;; "soundex.el" "startup.el" "subdirs.el" "tempo.el" "term/apollo.el"
- ;;;;;; "term/bobcat.el" "term/cygwin.el" "term/linux.el" "term/lk201.el"
- ;;;;;; "term/vt102.el" "term/vt125.el" "term/vt200.el" "term/vt201.el"
- ;;;;;; "term/vt220.el" "term/vt240.el" "term/vt300.el" "term/vt320.el"
- ;;;;;; "term/vt400.el" "term/vt420.el" "textmodes/bib-mode.el" "textmodes/makeinfo.el"
- ;;;;;; "textmodes/page-ext.el" "textmodes/page.el" "textmodes/refbib.el"
- ;;;;;; "textmodes/refer.el" "textmodes/reftex-auc.el" "textmodes/reftex-dcr.el"
- ;;;;;; "textmodes/reftex-ref.el" "textmodes/reftex-sel.el" "textmodes/reftex-toc.el"
- ;;;;;; "textmodes/texnfo-upd.el" "textmodes/text-mode.el" "timezone.el"
- ;;;;;; "tooltip.el" "tree-widget.el" "uniquify.el" "url/url-about.el"
- ;;;;;; "url/url-cookie.el" "url/url-dired.el" "url/url-expand.el"
- ;;;;;; "url/url-ftp.el" "url/url-history.el" "url/url-imap.el" "url/url-methods.el"
- ;;;;;; "url/url-nfs.el" "url/url-proxy.el" "url/url-vars.el" "url/vc-dav.el"
- ;;;;;; "vc-hooks.el" "vcursor.el" "version.el" "vms-patch.el" "vmsproc.el"
- ;;;;;; "vt-control.el" "vt100-led.el" "w32-fns.el" "w32-vars.el"
- ;;;;;; "widget.el" "window.el" "x-dnd.el") (17845 23032 619212))
+ ;;;;;; "soundex.el" "startup.el" "subdirs.el" "tempo.el" "textmodes/bib-mode.el"
+ ;;;;;; "textmodes/makeinfo.el" "textmodes/page-ext.el" "textmodes/page.el"
+ ;;;;;; "textmodes/refbib.el" "textmodes/refer.el" "textmodes/reftex-auc.el"
+ ;;;;;; "textmodes/reftex-dcr.el" "textmodes/reftex-ref.el" "textmodes/reftex-sel.el"
+ ;;;;;; "textmodes/reftex-toc.el" "textmodes/texnfo-upd.el" "textmodes/text-mode.el"
+ ;;;;;; "timezone.el" "tooltip.el" "tree-widget.el" "uniquify.el"
+ ;;;;;; "url/url-about.el" "url/url-cookie.el" "url/url-dired.el"
+ ;;;;;; "url/url-expand.el" "url/url-ftp.el" "url/url-history.el"
+ ;;;;;; "url/url-imap.el" "url/url-methods.el" "url/url-nfs.el" "url/url-proxy.el"
+ ;;;;;; "url/url-vars.el" "url/vc-dav.el" "vc-hooks.el" "vcursor.el"
+ ;;;;;; "version.el" "vms-patch.el" "vmsproc.el" "vt-control.el"
+ ;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "widget.el" "window.el"
+ ;;;;;; "x-dnd.el") (17851 11084 773610))
;;;***
\f
# Set EMACSLOADPATH correctly (already defined in environment).
EMACSLOADPATH=$(lisp)
+# Use C locale
+LC_ALL = C
+
lisptagsfiles1 = $(lisp)/*.el
lisptagsfiles2 = $(lisp)/*/*.el
ETAGS = "../lib-src/$(BLD)/etags"
touch $@
# WARNING: Do NOT split the part inside $(ARGQUOTE)s into multiple lines as
# this can break with GNU Make 3.81 and later if sh.exe is used.
- custom-deps: $(lisp)/cus-load.el doit
+ custom-deps: $(lisp)/cus-load.el $(lisp)/loaddefs.el doit
@echo Directories: $(WINS)
-$(emacs) -l cus-dep --eval $(ARGQUOTE)(setq find-file-hook nil)$(ARGQUOTE) -f custom-make-dependencies $(lisp) $(WINS)
- finder-data: doit
+ finder-data: $(lisp)/loaddefs.el doit
@echo Directories: $(WINS)
$(emacs) -l finder -f finder-compile-keywords-make-dist $(lisp) $(WINS)
(setq gdb-pending-triggers
(delq 'gdb-var-update gdb-pending-triggers)))
-(defun gdb-var-delete-1 (varnum)
- (gdb-enqueue-input
- (list
- (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
- 'gdba)
- (concat "server interpreter mi \"-var-delete " varnum "\"\n")
- (concat "-var-delete " varnum "\n"))
- 'ignore))
- (setq gdb-var-list (delq var gdb-var-list))
- (dolist (varchild gdb-var-list)
- (if (string-match (concat (car var) "\\.") (car varchild))
- (setq gdb-var-list (delq varchild gdb-var-list)))))
-
(defun gdb-var-delete ()
"Delete watch expression at point from the speedbar."
(interactive)
(varnum (car var)))
(if (string-match "\\." (car var))
(message-box "Can only delete a root expression")
- (gdb-var-delete-1 varnum)))))
+ (gdb-enqueue-input
+ (list
+ (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
+ 'gdba)
+ (concat "server interpreter mi \"-var-delete " varnum "\"\n")
+ (concat "-var-delete " varnum "\n"))
+ 'ignore))
+ (setq gdb-var-list (delq var gdb-var-list))
+ (dolist (varchild gdb-var-list)
+ (if (string-match (concat (car var) "\\.") (car varchild))
+ (setq gdb-var-list (delq varchild gdb-var-list))))))))
(defun gdb-var-delete-children (varnum)
"Delete children of variable object at point from the speedbar."
"Face for disabled breakpoint icon in fringe."
:group 'gud)
+ (defconst gdb-breakpoint-regexp
+ "\\([0-9]+\\).*?\\(?:point\\|catch\\s-+\\S-+\\)\\s-+\\S-+\\s-+\\(.\\)\\s-+")
+
;; Put breakpoint icons in relevant margins (even those set in the GUD buffer).
(defun gdb-info-breakpoints-custom ()
(let ((flag) (bptno))
'gdb-invalidate-breakpoints
'gdbmi-invalidate-breakpoints))
- (defconst gdb-breakpoint-regexp
- "\\([0-9]+\\).*?\\(?:point\\|catch\\s-+\\S-+\\)\\s-+\\S-+\\s-+\\(.\\)\\s-+")
-
(defun gdb-toggle-breakpoint ()
"Enable/disable breakpoint at current line."
(interactive)
(let* ((varnum (match-string 1))
(var (assoc varnum gdb-var-list)))
(when var
- (if (string-equal (match-string 3) "false")
- (setcar (nthcdr 5 var) 'out-of-scope)
- (setcar (nthcdr 5 var) 'changed)
- (setcar (nthcdr 4 var)
- (read (match-string 2)))))))
- (setq gdb-pending-triggers
- (delq 'gdb-var-update gdb-pending-triggers))
- (gdb-speedbar-update))
+ (let ((match (match-string 3)))
+ (cond ((string-equal match "false")
+ (setcar (nthcdr 5 var) 'out-of-scope))
+ ((string-equal match "true")
+ (setcar (nthcdr 5 var) 'changed)
+ (setcar (nthcdr 4 var)
+ (read (match-string 2))))
- ((string-equal match "invalid")
- (gdb-var-delete-1 varnum)))))))
++;; ((string-equal match "invalid")
++;; (gdb-enqueue-input
++;; (list
++;; (if (eq (buffer-local-value
++;; 'gud-minor-mode gud-comint-buffer) 'gdba)
++;; (concat "server interpreter mi \"-var-delete "
++;; varnum "\"\n")
++;; (concat "-var-delete " varnum "\n"))
++;; 'ignore)))
++ )))))
+ (setq gdb-pending-triggers
+ (delq 'gdb-var-update gdb-pending-triggers))
+ (gdb-speedbar-update))
;; Registers buffer.
;;
;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
-;; Version: 6.7.2
+;; Version: 7.2.1
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
-(defconst ps-print-version "6.7.2"
- "ps-print.el, v 6.7.2 <2007/01/26 vinicius>
+(defconst ps-print-version "7.2.1"
+ "ps-print.el, v 7.2.1 <2007/01/26 vinicius>
Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number. When reporting bugs, please also
;;
;; Faces are always treated as opaque.
;;
-;; Epoch, Lucid and Emacs 21 not supported. At all.
+;; Epoch, Lucid and Emacs 22 not supported. At all.
;;
;; Fixed-pitch fonts work better for line folding, but are not required.
;;
(require 'lpr)
+
(or (featurep 'lisp-float-type)
(error "`ps-print' requires floating point support"))
(error "`ps-print' doesn't support Epoch"))
(t
(unless (and (boundp 'emacs-major-version)
- (>= emacs-major-version 22))
- (error "`ps-print' only supports Emacs 22 and higher"))
+ (> emacs-major-version 22))
+ (error "`ps-print' only supports Emacs 23 and higher"))
'emacs))))
-;; GNU Emacs
-(or (fboundp 'line-beginning-position)
- (defun line-beginning-position (&optional n)
- (save-excursion
- (and n (/= n 1) (forward-line (1- n)))
- (beginning-of-line)
- (point))))
-
-
-;; to avoid compilation gripes
-
-;; XEmacs
-(defalias 'ps-x-color-instance-p 'color-instance-p)
-(defalias 'ps-x-color-instance-rgb-components 'color-instance-rgb-components)
-(defalias 'ps-x-color-name 'color-name)
-(defalias 'ps-x-color-specifier-p 'color-specifier-p)
-(defalias 'ps-x-copy-coding-system 'copy-coding-system)
-(defalias 'ps-x-device-class 'device-class)
-(defalias 'ps-x-extent-end-position 'extent-end-position)
-(defalias 'ps-x-extent-face 'extent-face)
-(defalias 'ps-x-extent-priority 'extent-priority)
-(defalias 'ps-x-extent-start-position 'extent-start-position)
-(defalias 'ps-x-face-font-instance 'face-font-instance)
-(defalias 'ps-x-find-coding-system 'find-coding-system)
-(defalias 'ps-x-font-instance-properties 'font-instance-properties)
-(defalias 'ps-x-make-color-instance 'make-color-instance)
-(defalias 'ps-x-map-extents 'map-extents)
-(defalias 'ps-x-frame-property 'frame-property)
-
-;; GNU Emacs
-(defalias 'ps-e-face-bold-p 'face-bold-p)
-(defalias 'ps-e-face-italic-p 'face-italic-p)
-(defalias 'ps-e-next-overlay-change 'next-overlay-change)
-(defalias 'ps-e-overlays-at 'overlays-at)
-(defalias 'ps-e-overlay-get 'overlay-get)
-(defalias 'ps-e-overlay-end 'overlay-end)
-(defalias 'ps-e-x-color-values 'x-color-values)
-(defalias 'ps-e-color-values 'color-values)
-(defalias 'ps-e-frame-parameter 'frame-parameter)
-(if (fboundp 'find-composition)
- (defalias 'ps-e-find-composition 'find-composition)
- (defalias 'ps-e-find-composition 'ignore))
-
-
(defconst ps-windows-system
(memq system-type '(emx win32 w32 mswindows ms-dos windows-nt)))
(defconst ps-lp-system
(memq system-type '(usg-unix-v dgux hpux irix)))
-(defun ps-xemacs-color-name (color)
- (if (ps-x-color-specifier-p color)
- (ps-x-color-name color)
- color))
-
-
-(cond ((featurep 'xemacs) ; xemacs
- (defalias 'ps-mark-active-p 'region-active-p)
- (defun ps-face-foreground-name (face)
- (ps-xemacs-color-name (face-foreground face)))
- (defun ps-face-background-name (face)
- (ps-xemacs-color-name (face-background face)))
- (defun ps-frame-parameter (param)
- (ps-x-frame-property nil param))
- )
- (t ; emacs 22 or higher
- (defvar mark-active nil)
- (defun ps-mark-active-p ()
- mark-active)
- (defun ps-face-foreground-name (face)
- (face-foreground face nil t))
- (defun ps-face-background-name (face)
- (face-background face nil t))
- (defun ps-frame-parameter (param)
- (ps-e-frame-parameter nil param))
- ))
+;; Load XEmacs/Emacs definitions
+(eval-and-compile (require 'ps-def))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
"*Non-nil means build the reference face lists.
ps-print sets this value to nil after it builds its internal reference lists of
- bold and italic faces. By settings its value back to t, you can force ps-print
+ bold and italic faces. By setting its value back to t, you can force ps-print
to rebuild the lists the next time you invoke one of the ...-with-faces
commands.
(defcustom ps-postscript-code-directory
(or (if (featurep 'xemacs)
(cond ((fboundp 'locate-data-directory) ; xemacs
- (locate-data-directory "ps-print"))
+ (funcall 'locate-data-directory "ps-print"))
((boundp 'data-directory) ; xemacs
- data-directory)
+ (symbol-value 'data-directory))
(t ; don't know what to do
nil))
data-directory) ; emacs
(format-time-string "%T"))
-(and (featurep 'xemacs)
- ;; XEmacs change: Need to check for emacs-major-version too.
- (or (< emacs-major-version 19)
- (and (= emacs-major-version 19) (< emacs-minor-version 12)))
- (setq ps-print-color-p nil))
-
-
-;; Return t if the device (which can be changed during an emacs session)
-;; can handle colors.
-;; This function is not yet implemented for GNU emacs.
-(cond ((and (featurep 'xemacs)
- ;; XEmacs change: Need to check for emacs-major-version too.
- (or (> emacs-major-version 19)
- (and (= emacs-major-version 19)
- (>= emacs-minor-version 12)))) ; xemacs >= 19.12
- (defun ps-color-device ()
- (eq (ps-x-device-class) 'color)))
-
- (t ; emacs
- (defun ps-color-device ()
- (if (fboundp 'color-values)
- (ps-e-color-values "Green")
- t))))
-
-
-(defun ps-mapper (extent list)
- (nconc list
- (list (list (ps-x-extent-start-position extent) 'push extent)
- (list (ps-x-extent-end-position extent) 'pull extent)))
- nil)
-
-(defun ps-extent-sorter (a b)
- (< (ps-x-extent-priority a) (ps-x-extent-priority b)))
-
-(defun ps-xemacs-face-kind-p (face kind kind-regex)
- (let* ((frame-font (or (ps-x-face-font-instance face)
- (ps-x-face-font-instance 'default)))
- (kind-cons
- (and frame-font
- (assq kind
- (ps-x-font-instance-properties frame-font))))
- (kind-spec (cdr-safe kind-cons))
- (case-fold-search t))
- (and kind-spec (string-match kind-regex kind-spec))))
-
-(cond ((featurep 'xemacs) ; xemacs
-
- ;; to avoid XEmacs compilation gripes
- (defvar coding-system-for-write nil)
- (defvar coding-system-for-read nil)
- (defvar buffer-file-coding-system nil)
-
- (and (fboundp 'find-coding-system)
- (or (ps-x-find-coding-system 'raw-text-unix)
- (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix)))
-
- (defun ps-color-values (x-color)
- (let ((color (ps-xemacs-color-name x-color)))
- (cond
- ((fboundp 'x-color-values)
- (ps-e-x-color-values color))
- ((and (fboundp 'color-instance-rgb-components)
- (ps-color-device))
- (ps-x-color-instance-rgb-components
- (if (ps-x-color-instance-p x-color)
- x-color
- (ps-x-make-color-instance color))))
- (t
- (error "No available function to determine X color values")))))
-
- (defun ps-face-bold-p (face)
- (or (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold")
- (memq face ps-bold-faces))) ; Kludge-compatible
-
- (defun ps-face-italic-p (face)
- (or (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o")
- (ps-xemacs-face-kind-p face 'SLANT "i\\|o")
- (memq face ps-italic-faces))) ; Kludge-compatible
- )
-
- (t ; emacs
-
- (defun ps-color-values (x-color)
- (cond
- ((fboundp 'color-values)
- (ps-e-color-values x-color))
- ((fboundp 'x-color-values)
- (ps-e-x-color-values x-color))
- (t
- (error "No available function to determine X color values"))))
-
- (defun ps-face-bold-p (face)
- (or (ps-e-face-bold-p face)
- (memq face ps-bold-faces)))
-
- (defun ps-face-italic-p (face)
- (or (ps-e-face-italic-p face)
- (memq face ps-italic-faces)))
- ))
-
-
(defvar ps-print-color-scale 1.0)
(defun ps-color-scale (color)
(defvar ps-razchunk 0)
(defvar ps-color-p nil)
-(defvar ps-color-format
- (if (featurep 'xemacs)
- ;; XEmacs will have to make do with %s (princ) for floats.
- "%s %s %s"
-
- ;; Emacs understands the %f format; we'll use it to limit color RGB
- ;; values to three decimals to cut down some on the size of the
- ;; PostScript output.
- "%0.3f %0.3f %0.3f"))
;; These values determine how much print-height to deduct when headers/footers
;; are turned on. This is a pretty clumsy way of handling it, but it'll do for
(goto-char (point-max))
(insert-file-contents fname)))
-;; These functions are used in `ps-mule' to get charset of header and footer.
-;; To avoid unnecessary calls to functions in `ps-left-header',
-;; `ps-right-header', `ps-left-footer' and `ps-right-footer'.
-
-(defun ps-generate-string-list (content)
- (let (str)
- (while content
- (setq str (cons (cond
- ;; string
- ((stringp (car content))
- (car content))
- ;; function symbol
- ((functionp (car content))
- (concat "(" (funcall (car content)) ")"))
- ;; variable symbol
- ((and (symbolp (car content)) (boundp (car content)))
- (concat "(" (symbol-value (car content)) ")"))
- ;; otherwise, empty string
- (t
- ""))
- str)
- content (cdr content)))
- (nreverse str)))
-
-(defvar ps-lh-cache nil)
-(defvar ps-rh-cache nil)
-(defvar ps-lf-cache nil)
-(defvar ps-rf-cache nil)
-
-(defun ps-header-footer-string ()
- (and ps-print-header
- (setq ps-lh-cache (ps-generate-string-list ps-left-header)
- ps-rh-cache (ps-generate-string-list ps-right-header)))
- (and ps-print-footer
- (setq ps-lf-cache (ps-generate-string-list ps-left-footer)
- ps-rf-cache (ps-generate-string-list ps-right-footer)))
- (append ps-lh-cache ps-rh-cache ps-lf-cache ps-rf-cache))
-
;; These functions insert the arrays that define the contents of the headers.
+(defvar ps-encode-header-string-function nil)
+
(defun ps-generate-header-line (fonttag &optional content)
(ps-output " [" fonttag " ")
(cond
;; Literal strings should be output as is -- the string must contain its own
;; PS string delimiters, '(' and ')', if necessary.
((stringp content)
- (ps-output (ps-mule-encode-header-string content fonttag)))
+ (ps-output content))
;; Functions are called -- they should return strings; they will be inserted
;; as strings and the PS string delimiters added.
- ((functionp content)
- (ps-output-string (ps-mule-encode-header-string (funcall content)
- fonttag)))
+ ((fboundp content)
+ (if (fboundp ps-encode-header-string-function)
+ (dolist (l (funcall ps-encode-header-string-function
+ (funcall content) fonttag))
+ (ps-output-string l))
+ (ps-output-string (funcall content))))
;; Variables will have their contents inserted. They should contain
;; strings, and will be inserted as strings.
((and (symbolp content) (boundp content))
- (ps-output-string (ps-mule-encode-header-string (symbol-value content)
- fonttag)))
+ (if (fboundp ps-encode-header-string-function)
+ (dolist (l (funcall ps-encode-header-string-function
+ (symbol-value content) fonttag))
+ (ps-output-string l))
+ (ps-output-string (symbol-value content))))
;; Anything else will get turned into an empty string.
(t
(vector 0 0 0 0)))))
-;; Emacs understands the %f format; we'll use it to limit color RGB values
-;; to three decimals to cut down some on the size of the PostScript output.
-;; XEmacs will have to make do with %s (princ) for floats.
-
-(defvar ps-float-format (if (featurep 'xemacs)
- "%s " ; xemacs
- "%0.3f ")) ; emacs
-
-
(defun ps-float-format (value &optional default)
(let ((literal (or value default)))
(cond ((null literal)
(t (list default default default))
))
+(defvar ps-basic-plot-string-function 'ps-basic-plot-string)
(defun ps-begin-job ()
;; prologue files
ps-color-p (and ps-print-color-p (ps-color-device))
ps-print-color-scale (if ps-color-p
(float (car (ps-color-values "white")))
- 1.0))
+ 1.0)
+ ;; Set up default functions. They may be overridden by
+ ;; ps-mule-begin-job.
+ ps-basic-plot-string-function 'ps-basic-plot-string
+ ps-encode-header-string-function nil)
;; initialize page dimensions
(ps-get-page-dimensions)
;; final check
(format "/PageNumber %d def\n" (ps-page-number)))
(when ps-print-header
- (ps-generate-header "HeaderLinesLeft" "/h0" "/h1"
- (or ps-lh-cache ps-left-header))
- (ps-generate-header "HeaderLinesRight" "/h0" "/h1"
- (or ps-rh-cache ps-right-header))
- (ps-output (format "%d SetHeaderLines\n" ps-header-lines))
- (setq ps-lh-cache nil
- ps-rh-cache nil))
+ (ps-generate-header "HeaderLinesLeft" "/h0" "/h1" ps-left-header)
+ (ps-generate-header "HeaderLinesRight" "/h0" "/h1" ps-right-header)
+ (ps-output (format "%d SetHeaderLines\n" ps-header-lines)))
(when ps-print-footer
- (ps-generate-header "FooterLinesLeft" "/H0" "/H0"
- (or ps-lf-cache ps-left-footer))
- (ps-generate-header "FooterLinesRight" "/H0" "/H0"
- (or ps-rf-cache ps-right-footer))
- (ps-output (format "%d SetFooterLines\n" ps-footer-lines))
- (setq ps-lf-cache nil
- ps-rf-cache nil))
+ (ps-generate-header "FooterLinesLeft" "/H0" "/H0" ps-left-footer)
+ (ps-generate-header "FooterLinesRight" "/H0" "/H0" ps-right-footer)
+ (ps-output (format "%d SetFooterLines\n" ps-footer-lines)))
(ps-output (number-to-string ps-lines-printed) " BeginPage\n")
(ps-set-font ps-current-font)
(ps-set-bg ps-current-bg)
- (ps-set-color ps-current-color)
- (ps-mule-begin-page))
+ (ps-set-color ps-current-color))
(defsubst ps-skip-newline (limit)
(setq ps-showline-count (1+ ps-showline-count)
(ps-avg-char-width 'ps-font-for-text)))
(to (car wrappoint))
(str (substring string from to)))
- (ps-mule-prepare-ascii-font str)
(ps-output-string str)
(ps-output " S\n")
wrappoint))
(ps-avg-char-width 'ps-font-for-text)))
(to (car wrappoint))
(string (buffer-substring-no-properties from to)))
- (ps-mule-prepare-ascii-font string)
(ps-output-string string)
(ps-output " S\n")
wrappoint))
(if (re-search-forward ps-control-or-escape-regexp to t)
;; region with some control characters or some multi-byte characters
(let* ((match-point (match-beginning 0))
- (match (char-after match-point))
- (composition (ps-e-find-composition from (1+ match-point))))
- (if composition
- (if (and (nth 2 composition)
- (<= (car composition) match-point))
- (progn
- (setq match-point (car composition)
- match 0)
- (goto-char (nth 1 composition)))
- (setq composition nil)))
+ (match (char-after match-point)))
(when (< from match-point)
- (ps-mule-set-ascii-font)
- (ps-plot 'ps-basic-plot-string from match-point bg-color))
+ (ps-plot ps-basic-plot-string-function
+ from match-point bg-color))
(cond
((= match ?\t) ; tab
(let ((linestart (line-beginning-position)))
(forward-char -1)
(setq from (+ linestart (current-column)))
(when (re-search-forward "[ \t]+" to t)
- (ps-mule-set-ascii-font)
(ps-plot 'ps-basic-plot-whitespace
from (+ linestart (current-column))
bg-color))))
(ps-skip-newline to))
(ps-next-page)))
- (composition ; a composite sequence
- (ps-plot 'ps-mule-plot-composition match-point (point) bg-color))
-
- ((> match 255) ; a multi-byte character
- (setq match (or (aref ps-print-translation-table match) match))
- (let* ((charset (char-charset match))
- (composition (ps-e-find-composition match-point to))
- (stop (if (nth 2 composition) (car composition) to)))
- (or (eq charset 'composition)
- (while (and (< (point) stop)
- (let ((ch (following-char)))
- (setq ch
- (or (aref ps-print-translation-table ch)
- ch))
- (eq (char-charset ch) charset)))
- (forward-char 1)))
- (ps-plot 'ps-mule-plot-string match-point (point) bg-color)))
- ; characters from ^@ to ^_ and
(t ; characters from 127 to 255
(ps-control-character match)))
(setq from (point)))
- ;; region without control characters nor multi-byte characters
- (ps-mule-set-ascii-font)
- (ps-plot 'ps-basic-plot-string from to bg-color)
+ ;; region without control characters
+ (ps-plot ps-basic-plot-string-function from to bg-color)
(setq from to)))))
(defvar ps-string-control-codes
(if (< (car wrappoint) to)
(ps-continue-line))
(setq ps-width-remaining (- ps-width-remaining (* len char-width)))
- (ps-mule-prepare-ascii-font str)
(ps-output-string str)
(ps-output " S\n")))
(save-restriction
(narrow-to-region from to)
(ps-print-ensure-fontified from to)
- (let ((face 'default)
- (position to))
- (cond
- ((featurep 'xemacs) ; xemacs
- ;; Build the list of extents...
- (let ((a (cons 'dummy nil))
- record type extent extent-list)
- (ps-x-map-extents 'ps-mapper nil from to a)
- (setq a (sort (cdr a) 'car-less-than-car)
- extent-list nil)
-
- ;; Loop through the extents...
- (while a
- (setq record (car a)
- position (car record)
-
- record (cdr record)
- type (car record)
-
- record (cdr record)
- extent (car record))
-
- ;; Plot up to this record.
- ;; XEmacs 19.12: for some reason, we're getting into a
- ;; situation in which some of the records have
- ;; positions less than 'from'. Since we've narrowed
- ;; the buffer, this'll generate errors. This is a hack,
- ;; but don't call ps-plot-with-face unless from > point-min.
- (and (>= from (point-min))
- (ps-plot-with-face from (min position (point-max)) face))
-
- (cond
- ((eq type 'push)
- (and (ps-x-extent-face extent)
- (setq extent-list (sort (cons extent extent-list)
- 'ps-extent-sorter))))
-
- ((eq type 'pull)
- (setq extent-list (sort (delq extent extent-list)
- 'ps-extent-sorter))))
-
- (setq face (if extent-list
- (ps-x-extent-face (car extent-list))
- 'default)
- from position
- a (cdr a)))))
-
- (t ; emacs
- (let ((property-change from)
- (overlay-change from)
- (save-buffer-invisibility-spec buffer-invisibility-spec)
- (buffer-invisibility-spec nil)
- before-string after-string)
- (while (< from to)
- (and (< property-change to) ; Don't search for property change
- ; unless previous search succeeded.
- (setq property-change (next-property-change from nil to)))
- (and (< overlay-change to) ; Don't search for overlay change
- ; unless previous search succeeded.
- (setq overlay-change (min (ps-e-next-overlay-change from)
- to)))
- (setq position (min property-change overlay-change)
- before-string nil
- after-string nil)
- ;; The code below is not quite correct,
- ;; because a non-nil overlay invisible property
- ;; which is inactive according to the current value
- ;; of buffer-invisibility-spec nonetheless overrides
- ;; a face text property.
- (setq face
- (cond ((let ((prop (get-text-property from 'invisible)))
- ;; Decide whether this invisible property
- ;; really makes the text invisible.
- (if (eq save-buffer-invisibility-spec t)
- (not (null prop))
- (or (memq prop save-buffer-invisibility-spec)
- (assq prop save-buffer-invisibility-spec))))
- 'emacs--invisible--face)
- ((get-text-property from 'face))
- (t 'default)))
- (let ((overlays (ps-e-overlays-at from))
- (face-priority -1)) ; text-property
- (while (and overlays
- (not (eq face 'emacs--invisible--face)))
- (let* ((overlay (car overlays))
- (overlay-invisible
- (ps-e-overlay-get overlay 'invisible))
- (overlay-priority
- (or (ps-e-overlay-get overlay 'priority) 0)))
- (and (> overlay-priority face-priority)
- (setq before-string
- (or (ps-e-overlay-get overlay 'before-string)
- before-string)
- after-string
- (or (and (<= (ps-e-overlay-end overlay) position)
- (ps-e-overlay-get overlay 'after-string))
- after-string)
- face-priority overlay-priority
- face
- (cond
- ((if (eq save-buffer-invisibility-spec t)
- (not (null overlay-invisible))
- (or (memq overlay-invisible
- save-buffer-invisibility-spec)
- (assq overlay-invisible
- save-buffer-invisibility-spec)))
- 'emacs--invisible--face)
- ((ps-e-overlay-get overlay 'face))
- (t face)
- ))))
- (setq overlays (cdr overlays))))
- ;; Plot up to this record.
- (and before-string
- (ps-plot-string before-string))
- (ps-plot-with-face from position face)
- (and after-string
- (ps-plot-string after-string))
- (setq from position)))))
- (ps-plot-with-face from to face))))
+ (ps-generate-postscript-with-faces1 from to)))
(defun ps-generate-postscript (from to)
(ps-plot-region from to 0 nil))
(ps-begin-page)
(funcall genfunc from to)
(ps-end-page)
+ (ps-mule-end-job)
(ps-end-job needs-begin-file)
;; Setting this variable tells the unwind form that the
(t
(setq kill-emacs-hook 'ps-kill-emacs-check)))
-\f
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Sample Setup Code:
-
-
-;; This stuff is for anybody that's brave enough to look this far,
-;; and able to figure out how to use it. It isn't really part of
-;; ps-print, but I'll leave it here in hopes it might be useful:
-
-;; WARNING!!! The following code is *sample* code only.
-;; Don't use it unless you understand what it does!
-
-(defmacro ps-prsc ()
- `(if (featurep 'xemacs) 'f22 [f22]))
-(defmacro ps-c-prsc ()
- `(if (featurep 'xemacs) '(control f22) [C-f22]))
-(defmacro ps-s-prsc ()
- `(if (featurep 'xemacs) '(shift f22) [S-f22]))
-
-;; A hook to bind to `rmail-mode-hook' to locally bind prsc and set the
-;; `ps-left-headers' specially for mail messages.
-(defun ps-rmail-mode-hook ()
- (local-set-key (ps-prsc) 'ps-rmail-print-message-from-summary)
- (setq ps-header-lines 3
- ps-left-header
- ;; The left headers will display the message's subject, its
- ;; author, and the name of the folder it was in.
- '(ps-article-subject ps-article-author buffer-name)))
-
-;; See `ps-gnus-print-article-from-summary'. This function does the
-;; same thing for rmail.
-(defun ps-rmail-print-message-from-summary ()
- (interactive)
- (ps-print-message-from-summary 'rmail-summary-buffer "RMAIL"))
-
-;; Used in `ps-rmail-print-article-from-summary',
-;; `ps-gnus-print-article-from-summary' and `ps-vm-print-message-from-summary'.
-(defun ps-print-message-from-summary (summary-buffer summary-default)
- (let ((ps-buf (or (and (boundp summary-buffer)
- (symbol-value summary-buffer))
- summary-default)))
- (and (get-buffer ps-buf)
- (save-excursion
- (set-buffer ps-buf)
- (ps-spool-buffer-with-faces)))))
-
-;; Look in an article or mail message for the Subject: line. To be
-;; placed in `ps-left-headers'.
-(defun ps-article-subject ()
- (save-excursion
- (goto-char (point-min))
- (if (re-search-forward "^Subject:[ \t]+\\(.*\\)$" nil t)
- (buffer-substring (match-beginning 1) (match-end 1))
- "Subject ???")))
-
-;; Look in an article or mail message for the From: line. Sorta-kinda
-;; understands RFC-822 addresses and can pull the real name out where
-;; it's provided. To be placed in `ps-left-headers'.
-(defun ps-article-author ()
- (save-excursion
- (goto-char (point-min))
- (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t)
- (let ((fromstring (buffer-substring (match-beginning 1) (match-end 1))))
- (cond
-
- ;; Try first to match addresses that look like
- ;; thompson@wg2.waii.com (Jim Thompson)
- ((string-match ".*[ \t]+(\\(.*\\))" fromstring)
- (substring fromstring (match-beginning 1) (match-end 1)))
-
- ;; Next try to match addresses that look like
- ;; Jim Thompson <thompson@wg2.waii.com> or
- ;; "Jim Thompson" <thompson@wg2.waii.com>
- ((string-match "\\(\"?\\)\\(.*\\)\\1[ \t]+<.*>" fromstring)
- (substring fromstring (match-beginning 2) (match-end 2)))
-
- ;; Couldn't find a real name -- show the address instead.
- (t fromstring)))
- "From ???")))
-
-;; A hook to bind to `gnus-article-prepare-hook'. This will set the
-;; `ps-left-headers' specially for gnus articles. Unfortunately,
-;; `gnus-article-mode-hook' is called only once, the first time the *Article*
-;; buffer enters that mode, so it would only work for the first time
-;; we ran gnus. The second time, this hook wouldn't get set up. The
-;; only alternative is `gnus-article-prepare-hook'.
-(defun ps-gnus-article-prepare-hook ()
- (setq ps-header-lines 3
- ps-left-header
- ;; The left headers will display the article's subject, its
- ;; author, and the newsgroup it was in.
- '(ps-article-subject ps-article-author gnus-newsgroup-name)))
-
-;; A hook to bind to `vm-mode-hook' to locally bind prsc and set the
-;; `ps-left-headers' specially for mail messages.
-(defun ps-vm-mode-hook ()
- (local-set-key (ps-prsc) 'ps-vm-print-message-from-summary)
- (setq ps-header-lines 3
- ps-left-header
- ;; The left headers will display the message's subject, its
- ;; author, and the name of the folder it was in.
- '(ps-article-subject ps-article-author buffer-name)))
-
-;; Every now and then I forget to switch from the *Summary* buffer to
-;; the *Article* before hitting prsc, and a nicely formatted list of
-;; article subjects shows up at the printer. This function, bound to
-;; prsc for the gnus *Summary* buffer means I don't have to switch
-;; buffers first.
-;; sb: Updated for Gnus 5.
-(defun ps-gnus-print-article-from-summary ()
- (interactive)
- (ps-print-message-from-summary 'gnus-article-buffer "*Article*"))
-
-;; See `ps-gnus-print-article-from-summary'. This function does the
-;; same thing for vm.
-(defun ps-vm-print-message-from-summary ()
- (interactive)
- (ps-print-message-from-summary 'vm-mail-buffer ""))
-
-;; A hook to bind to bind to `gnus-summary-setup-buffer' to locally bind
-;; prsc.
-(defun ps-gnus-summary-setup ()
- (local-set-key (ps-prsc) 'ps-gnus-print-article-from-summary))
-
-;; Look in an article or mail message for the Subject: line. To be
-;; placed in `ps-left-headers'.
-(defun ps-info-file ()
- (save-excursion
- (goto-char (point-min))
- (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t)
- (buffer-substring (match-beginning 1) (match-end 1))
- "File ???")))
-
-;; Look in an article or mail message for the Subject: line. To be
-;; placed in `ps-left-headers'.
-(defun ps-info-node ()
- (save-excursion
- (goto-char (point-min))
- (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t)
- (buffer-substring (match-beginning 1) (match-end 1))
- "Node ???")))
-
-(defun ps-info-mode-hook ()
- (setq ps-left-header
- ;; The left headers will display the node name and file name.
- '(ps-info-node ps-info-file)))
-
-;; WARNING! The following function is a *sample* only, and is *not*
-;; meant to be used as a whole unless you understand what the effects
-;; will be! (In fact, this is a copy of Jim's setup for ps-print --
-;; I'd be very surprised if it was useful to *anybody*, without
-;; modification.)
-
-(defun ps-jts-ps-setup ()
- (global-set-key (ps-prsc) 'ps-spool-buffer-with-faces) ;f22 is prsc
- (global-set-key (ps-s-prsc) 'ps-spool-region-with-faces)
- (global-set-key (ps-c-prsc) 'ps-despool)
- (add-hook 'gnus-article-prepare-hook 'ps-gnus-article-prepare-hook)
- (add-hook 'gnus-summary-mode-hook 'ps-gnus-summary-setup)
- (add-hook 'vm-mode-hook 'ps-vm-mode-hook)
- (add-hook 'vm-mode-hooks 'ps-vm-mode-hook)
- (add-hook 'Info-mode-hook 'ps-info-mode-hook)
- (setq ps-spool-duplex t
- ps-print-color-p nil
- ps-lpr-command "lpr"
- ps-lpr-switches '("-Jjct,duplex_long"))
- 'ps-jts-ps-setup)
-
-;; WARNING! The following function is a *sample* only, and is *not*
-;; meant to be used as a whole unless it corresponds to your needs.
-;; (In fact, this is a copy of Jack's setup for ps-print --
-;; I would not be that surprised if it was useful to *anybody*,
-;; without modification.)
-
-(defun ps-jack-setup ()
- (setq ps-print-color-p nil
- ps-lpr-command "lpr"
- ps-lpr-switches nil
-
- ps-paper-type 'a4
- ps-landscape-mode t
- ps-number-of-columns 2
-
- ps-left-margin (/ (* 72 1.0) 2.54) ; 1.0 cm
- ps-right-margin (/ (* 72 1.0) 2.54) ; 1.0 cm
- ps-inter-column (/ (* 72 1.0) 2.54) ; 1.0 cm
- ps-bottom-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
- ps-top-margin (/ (* 72 1.5) 2.54) ; 1.5 cm
- ps-header-offset (/ (* 72 1.0) 2.54) ; 1.0 cm
- ps-header-line-pad .15
- ps-print-header t
- ps-print-header-frame t
- ps-header-lines 2
- ps-show-n-of-n t
- ps-spool-duplex nil
-
- ps-font-family 'Courier
- ps-font-size 5.5
- ps-header-font-family 'Helvetica
- ps-header-font-size 6
- ps-header-title-font-size 8)
- 'ps-jack-setup)
-
\f
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; To make this file smaller, some commands go in a separate file.
;; But autoload them here to make the separation invisible.
-(autoload 'ps-mule-prepare-ascii-font "ps-mule"
- "Setup special ASCII font for STRING.
-STRING should contain only ASCII characters.")
-
-(autoload 'ps-mule-set-ascii-font "ps-mule"
- "Adjust current font if current charset is not ASCII.")
-
-(autoload 'ps-mule-plot-string "ps-mule"
- "Generate PostScript code for plotting characters in the region FROM and TO.
-
-It is assumed that all characters in this region belong to the same charset.
-
-Optional argument BG-COLOR specifies background color.
-
-Returns the value:
-
- (ENDPOS . RUN-WIDTH)
-
-Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of
-the sequence.")
-
(autoload 'ps-mule-initialize "ps-mule"
"Initialize global data for printing multi-byte characters.")
(autoload 'ps-mule-begin-page "ps-mule"
"Initialize multi-byte charset for printing current page.")
-(autoload 'ps-mule-encode-header-string "ps-mule"
- "Generate PostScript code for plotting characters in header STRING.
-
-It is assumed that the length of STRING is not zero.")
+(autoload 'ps-mule-end-job "ps-mule"
+ "Finish printing job for multi-byte chars.")
\f
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (or (not coding)
(eq (coding-system-type coding) t))
(setq coding default-buffer-file-coding-system))
- (if (not (char-valid-p char))
+ (if (eq (char-charset char) 'eight-bit)
(setq encoding-msg
- (format "(%d, #o%o, #x%x, invalid)" char char char))
+ (format "(%d, #o%o, #x%x, raw-byte)" char char char))
;; Check if the character is displayed with some `display'
;; text property. In that case, set under-display to the
;; buffer substring covered by that property.
(if eval-expression-insert-value
(with-no-warnings
(let ((standard-output (current-buffer)))
- (eval-last-sexp-print-value (car values))))
+ (prin1 (car values))))
(prog1
(prin1 (car values) t)
(let ((str (eval-expression-print-format (car values))))
(custom-reevaluate-setting 'file-name-shadow-mode)
(custom-reevaluate-setting 'send-mail-function)
(custom-reevaluate-setting 'focus-follows-mouse)
+ (custom-reevaluate-setting 'global-auto-composition-mode)
;; Register default TTY colors for the case the terminal hasn't a
;; terminal init file.
Getting New Versions\tHow to obtain the latest version of Emacs
More Manuals / Ordering Manuals Buying printed manuals from the FSF\n")
(:face (variable-pitch :weight bold)
+ "To quit a partially entered command, type "
+ :face default
+ "Control-g"
+ :face variable-pitch
+ "."
"Useful File menu items:\n"
:face variable-pitch
"Exit Emacs\t\t(Or type "
(insert-image img (propertize "xxx" 'help-echo help-echo
'keymap map)))
(insert "\n"))))
+ (fancy-splash-insert
+ :face '(variable-pitch :background "red")
+ "\n!! This version is ALPHA status. It may lose your data!!\n\n")
(fancy-splash-insert
:face '(variable-pitch :foreground "red")
(if (eq system-type 'gnu/linux)
(progn
(insert "\
You can do basic editing with the menu bar and scroll bar using the mouse.
+ To quit a partially entered command, type Control-g.
Useful File menu items:
Exit Emacs (or type Control-x followed by Control-c)
(defvar fill-paragraph-function nil
"Mode-specific function to fill a paragraph, or nil if there is none.
- If the function returns nil, then `fill-paragraph' does its normal work.")
+ If the function returns nil, then `fill-paragraph' does its normal work.
+ A value of t means explicitly \"do nothing special\".")
(defvar fill-paragraph-handle-comment t
"Non-nil means paragraph filling will try to pay attention to comments.")
(looking-at paragraph-start))))
(run-hook-with-args-until-success 'fill-nobreak-predicate)))))
-;; Put `fill-find-break-point-function' property to charsets which
-;; require special functions to find line breaking point.
-(dolist (pair '((katakana-jisx0201 . kinsoku)
- (chinese-gb2312 . kinsoku)
- (japanese-jisx0208 . kinsoku)
- (japanese-jisx0212 . kinsoku)
- (chinese-big5-1 . kinsoku)
- (chinese-big5-2 . kinsoku)))
- (put-charset-property (car pair) 'fill-find-break-point-function (cdr pair)))
+(defvar fill-find-break-point-function-table (make-char-table nil)
+ "Char-table of special functions to find line breaking point.")
+
+(defvar fill-nospace-between-words-table (make-char-table nil)
+ "Char-table of characters that don't use space between words.")
+
+(progn
+ ;; Register `kinsoku' for scripts HAN, KANA, BOPOMPFO, and CJK-MISS.
+ ;; Also tell that they don't use space between words.
+ (map-char-table
+ #'(lambda (key val)
+ (when (memq val '(han kana bopomofo cjk-misc))
+ (set-char-table-range fill-find-break-point-function-table
+ key 'kinsoku)
+ (set-char-table-range fill-nospace-between-words-table
+ key t)))
+ char-script-table)
+ ;; Do the same thing also for full width characters and half
+ ;; width kana variants.
+ (set-char-table-range fill-find-break-point-function-table
+ '(#xFF01 . #xFFE6) 'kinsoku)
+ (set-char-table-range fill-nospace-between-words-table
+ '(#xFF01 . #xFFE6) 'kinsoku))
(defun fill-find-break-point (limit)
"Move point to a proper line breaking position of the current line.
character has the property `fill-find-break-point-function', this
function calls the property value as a function with one arg LINEBEG.
If the charset has no such property, do nothing."
- (let* ((ch (following-char))
- (charset (char-charset ch))
- func)
- (if (eq charset 'ascii)
- (setq ch (preceding-char)
- charset (char-charset ch)))
- (if (charsetp charset)
- (setq func
- (get-charset-property charset 'fill-find-break-point-function)))
+ (let ((func (or
+ (aref fill-find-break-point-function-table (following-char))
+ (aref fill-find-break-point-function-table (preceding-char)))))
(if (and func (fboundp func))
(funcall func limit))))
(goto-char from)
(if enable-multibyte-characters
;; Delete unnecessay newlines surrounded by words. The
- ;; character category `|' means that we can break a line
- ;; at the character. And, charset property
- ;; `nospace-between-words' tells how to concatenate
- ;; words. If the value is non-nil, never put spaces
- ;; between words, thus delete a newline between them.
- ;; If the value is nil, delete a newline only when a
- ;; character preceding a newline has text property
- ;; `nospace-between-words'.
+ ;; character category `|' means that we can break a line at the
+ ;; character. And, char-table
+ ;; `fill-nospace-between-words-table' tells how to concatenate
+ ;; words. If a character has non-nil value in the table, never
+ ;; put spaces between words, thus delete a newline between them.
+ ;; Otherwise, delete a newline only when a character preceding a
+ ;; newline has non-nil value in that table.
(while (search-forward "\n" to t)
(if (get-text-property (match-beginning 0) 'fill-space)
(replace-match (get-text-property (match-beginning 0) 'fill-space))
(next (following-char)))
(if (and (or (aref (char-category-set next) ?|)
(aref (char-category-set prev) ?|))
- (or (get-charset-property (char-charset prev)
- 'nospace-between-words)
- (get-text-property (1- (match-beginning 0))
- 'nospace-between-words)))
+ (or (aref fill-nospace-between-words-table next)
+ (aref fill-nospace-between-words-table prev)))
(delete-char -1))))))
(goto-char from)
(barf-if-buffer-read-only)
(list (if current-prefix-arg 'full))))
;; First try fill-paragraph-function.
- (or (and (or fill-paragraph-function
+ (or (and (not (eq fill-paragraph-function t))
+ (or fill-paragraph-function
(and (minibufferp (current-buffer))
(= 1 (point-min))))
(let ((function (or fill-paragraph-function
;; fill-paragraph-handle-comment back to t explicitly or
;; return nil.
(fill-paragraph-handle-comment nil)
- fill-paragraph-function)
+ (fill-paragraph-function t))
(funcall function arg)))
;; Then try our syntax-aware filling code.
(and fill-paragraph-handle-comment
+ 2007-01-29 Chong Yidong <cyd@stupidchicken.com>
+
+ * m/hp800.h: Restore, removing HP-UX support.
+
+ 2007-01-29 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
+
+ * Makefile.in: Use a variable, XFT_LIBS, instead #define LIB_X11_LIB.
+
+ 2007-01-28 Richard Stallman <rms@gnu.org>
+
+ * minibuf.c (Ftry_completion, Fall_completions)
+ (Fcompleting_read, Ftest_completion):
+ Rename arg ALIST or TABLE to COLLECTION.
+
+ 2007-01-27 Chong Yidong <cyd@stupidchicken.com>
+
+ * unexhp9k800.c: Remove due to lack of legal papers.
+
+ * m/sr2k.h, m/hp800.h: Remove due to dependence on above.
+
+ 2007-01-27 Eli Zaretskii <eliz@gnu.org>
+
+ * keyboard.c (Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
+
+ * minibuf.c (Fcompleting_read): Doc fix.
+
+ 2007-01-26 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
+
+ * gtkutil.c (xg_initialize): Call XftInit if HAVE_XFT.
+
+ * Makefile.in: Use XFT_LIBS if defined.
+
+ 2007-01-26 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
+
+ * alloc.c (BLOCK_INPUT_ALLOC, UNBLOCK_INPUT_ALLOC): Use
+ BLOCK_INPUT/UNBLOCK_INPUT.
+
+ * blockinput.h (interrupt_input_blocked): Declare volatile.
+
+ * keyboard.c (interrupt_input_blocked): Declare volatile.
+
+ * syssignal.h (SIGNAL_THREAD_CHECK): Use pthread_equal.
+
2007-01-24 Kim F. Storm <storm@cua.dk>
* keymap.c (describe_map): Don't consider prefix keys to be shadowed.
* regex.c (re_error_msgid): Add an entry for REG_ERANGEX.
(regex_compile): Return REG_ERANGEX if appropriate.
-2004-10-22 Kenichi Handa <handa@m17n.org>
-
- * editfns.c (Ftranslate_region_internal): New function.
- (syms_of_editfns): Defsubr it.
-
2004-10-22 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
* xfns.c (xic_create_xfontset): Initialize missing_list to NULL.
dot = .
dotdot = ${dot}${dot}
lispsource = ${srcdir}/$(dot)$(dot)/lisp/
+admindir = $(srcdir)/$(dot)$(dot)/admin/
libsrc = $(dot)$(dot)/lib-src/
etc = $(dot)$(dot)/etc/
oldXMenudir = $(dot)$(dot)/oldXMenu/
/* C_SWITCH_X_SITE must come before C_SWITCH_X_MACHINE and C_SWITCH_X_SYSTEM
since it may have -I options that should override those two. */
-ALL_CFLAGS=-Demacs -DHAVE_CONFIG_H $(TOOLKIT_DEFINES) $(MYCPPFLAGS) -I. -I${srcdir} C_SWITCH_MACHINE C_SWITCH_SYSTEM C_SWITCH_SITE C_SWITCH_X_SITE C_SWITCH_X_MACHINE C_SWITCH_X_SYSTEM C_SWITCH_SYSTEM_TEMACS ${CFLAGS_SOUND} ${CFLAGS}
+ALL_CFLAGS=-Demacs -DHAVE_CONFIG_H $(TOOLKIT_DEFINES) $(MYCPPFLAGS) -I. -I${srcdir} C_SWITCH_MACHINE C_SWITCH_SYSTEM C_SWITCH_SITE C_SWITCH_X_SITE C_SWITCH_X_MACHINE C_SWITCH_X_SYSTEM C_SWITCH_SYSTEM_TEMACS ${CFLAGS_SOUND} ${CFLAGS} @FREETYPE_CFLAGS@ @FONTCONFIG_CFLAGS@ @LIBOTF_CFLAGS@
.c.o:
$(CC) -c $(CPPFLAGS) $(ALL_CFLAGS) $<
#endif
#endif /* not USE_X_TOOLKIT */
+#if HAVE_XFT
+#undef LIB_X11_LIB
+#define LIB_X11_LIB @XFT_LIBS@
+#endif /* HAVE_XFT */
+
+ #if HAVE_XFT
+ #undef LIB_X11_LIB /* XFT_LIBS includes -lX11 */
+ #define LIB_X11_LIB
+ XFT_LIBS=@XFT_LIBS@
+ #endif /* HAVE_XFT */
+
#if HAVE_XPM
#ifndef LIBXPM
#define LIBXPM -lXpm
/* LD_SWITCH_X_DEFAULT comes after everything else that specifies
options for where to find X libraries, but before those libraries. */
X11_LDFLAGS = LD_SWITCH_X_SITE LD_SWITCH_X_DEFAULT
- LIBX= $(LIBXMENU) $(X11_LDFLAGS) $(LIBXT) LIBTIFF LIBJPEG LIBPNG LIBGIF LIBXPM LIB_X11_LIB LIBX11_MACHINE LIBX11_SYSTEM
+ LIBX= $(LIBXMENU) $(X11_LDFLAGS) $(LIBXT) LIBTIFF LIBJPEG LIBPNG LIBGIF LIBXPM LIB_X11_LIB LIBX11_MACHINE LIBX11_SYSTEM $(XFT_LIBS)
#else /* not HAVE_X11 */
LIBX= $(LIBXMENU) LD_SWITCH_X_SITE -lX10 LIBX10_MACHINE LIBX10_SYSTEM
#endif /* not HAVE_X11 */
emacsappsrc = ${srcdir}/../mac/Emacs.app/
#endif
+#ifdef HAVE_WINDOW_SYSTEM
+#ifdef USE_FONT_BACKEND
+FONTSRC = font.h
+#ifdef HAVE_X_WINDOWS
+#if defined (HAVE_XFT)
+FONTOBJ = font.o xfont.o ftfont.o xftfont.o ftxfont.o
+#elif defined (HAVE_FREETYPE)
+FONTOBJ = font.o xfont.o ftfont.o ftxfont.o
+#else /* ! defined (HAVE_XFT) && ! defined (HAVE_FREETYPE) */
+FONTOBJ = font.o xfont.o
+#endif /* ! defined (HAVE_XFT) && ! defined (HAVE_FREETYPE) */
+#else /* ! HAVE_X_WINDOWS */
+FONTOBJ = font.o
+#endif /* ! HAVE_X_WINDOWS */
+#endif /* USE_FONT_BACKEND */
+#endif /* HAVE_WINDOW_SYSTEM */
+
/* lastfile must follow all files
whose initialized data areas should be dumped as pure by dump-emacs. */
obj= dispnew.o frame.o scroll.o xdisp.o $(XMENU_OBJ) window.o \
- charset.o coding.o category.o ccl.o \
+ charset.o coding.o category.o ccl.o character.o chartab.o \
cm.o term.o xfaces.o $(XOBJ) $(GTK_OBJ)\
emacs.o keyboard.o macros.o keymap.o sysdep.o \
buffer.o filelock.o insdel.o marker.o \
process.o callproc.o \
region-cache.o sound.o atimer.o \
doprnt.o strftime.o intervals.o textprop.o composite.o md5.o \
- $(MSDOS_OBJ) $(MAC_OBJ) $(CYGWIN_OBJ)
+ $(MSDOS_OBJ) $(MAC_OBJ) $(CYGWIN_OBJ) $(FONTOBJ)
/* Object files used on some machine or other.
These go in the DOC file on all machines
xterm.o xfns.o xmenu.o xselect.o xrdb.o xsmfns.o fringe.o image.o \
mac.o macterm.o macfns.o macmenu.o macselect.o fontset.o \
w32.o w32bdf.o w32console.o w32fns.o w32heap.o w32inevt.o \
- w32menu.o w32proc.o w32reg.o w32select.o w32term.o w32xfns.o
+ w32menu.o w32proc.o w32reg.o w32select.o w32term.o w32xfns.o $(FONTOBJ)
#ifdef TERMINFO
${lispsource}buff-menu.elc \
${lispsource}button.elc \
${lispsource}emacs-lisp/byte-run.elc \
+ ${lispsource}composite.elc \
${lispsource}cus-face.elc \
${lispsource}cus-start.elc \
${lispsource}custom.elc \
${lispsource}international/mule-conf.el \
${lispsource}international/mule-cmds.elc \
${lispsource}international/characters.elc \
- ${lispsource}international/ucs-tables.elc \
- ${lispsource}international/utf-8.elc \
- ${lispsource}international/utf-16.elc \
- ${lispsource}international/latin-1.el \
- ${lispsource}international/latin-2.el \
- ${lispsource}international/latin-3.el \
- ${lispsource}international/latin-4.el \
- ${lispsource}international/latin-5.el \
- ${lispsource}international/latin-8.el \
- ${lispsource}international/latin-9.el \
+ ${lispsource}international/charprop.el \
${lispsource}case-table.elc \
- ${lispsource}language/chinese.elc \
- ${lispsource}language/cyrillic.elc \
- ${lispsource}language/indian.elc \
+ ${lispsource}language/chinese.el \
+ ${lispsource}language/cyrillic.el \
+ ${lispsource}language/indian.el \
${lispsource}language/devanagari.el \
${lispsource}language/kannada.el \
${lispsource}language/malayalam.el \
${lispsource}language/lao.el \
${lispsource}language/thai.el \
${lispsource}language/tibetan.elc \
- ${lispsource}language/vietnamese.elc \
+ ${lispsource}language/vietnamese.el \
${lispsource}language/misc-lang.el \
${lispsource}language/utf-8-lang.el \
${lispsource}language/georgian.el \
../lisp/buff-menu.elc \
../lisp/button.elc \
../lisp/emacs-lisp/byte-run.elc \
+ ../lisp/composite.elc \
../lisp/cus-face.elc \
../lisp/cus-start.elc \
../lisp/custom.elc \
../lisp/international/mule-conf.el \
../lisp/international/mule-cmds.elc \
../lisp/international/characters.elc \
- ../lisp/international/ucs-tables.elc \
- ../lisp/international/utf-8.elc \
- ../lisp/international/utf-16.elc \
- ../lisp/international/latin-1.el \
- ../lisp/international/latin-2.el \
- ../lisp/international/latin-3.el \
- ../lisp/international/latin-4.el \
- ../lisp/international/latin-5.el \
- ../lisp/international/latin-8.el \
- ../lisp/international/latin-9.el \
../lisp/case-table.elc \
- ../lisp/language/chinese.elc \
- ../lisp/language/cyrillic.elc \
- ../lisp/language/indian.elc \
+ ../lisp/language/chinese.el \
+ ../lisp/language/cyrillic.el \
+ ../lisp/language/indian.el \
../lisp/language/devanagari.el \
../lisp/language/kannada.el \
../lisp/language/malayalam.el \
../lisp/language/lao.el \
../lisp/language/thai.el \
../lisp/language/tibetan.elc \
- ../lisp/language/vietnamese.elc \
+ ../lisp/language/vietnamese.el \
../lisp/language/misc-lang.el \
../lisp/language/utf-8-lang.el \
../lisp/language/georgian.el \
LIBES = $(LOADLIBES) $(LIBS) $(LIBX) $(LIBSOUND) \
LIBS_SYSTEM LIBS_MACHINE LIBS_TERMCAP \
LIBS_DEBUG $(GETLOADAVG_LIBS) $(GNULIB_VAR) LIB_MATH LIB_STANDARD \
- $(GNULIB_VAR)
+ $(GNULIB_VAR) @FREETYPE_LIBS@ @FONTCONFIG_LIBS@ @LIBOTF_LIBS@
/* Enable recompilation of certain other files depending on system type. */
#define OBJECTS_MACHINE
#endif
-RUN_TEMACS = ./temacs
+#ifdef HAVE_SHM
+RUN_TEMACS = `/bin/pwd`/temacs -nl
+#else
+RUN_TEMACS = `/bin/pwd`/temacs
+#endif
all: emacs${EXEEXT} OTHER_FILES
rm -f emacs${EXEEXT}
ln temacs${EXEEXT} emacs${EXEEXT}
#else
-#ifdef HAVE_SHM
- LC_ALL=C $(RUN_TEMACS) -nl -batch -l loadup dump
-#else /* ! defined (HAVE_SHM) */
LC_ALL=C $(RUN_TEMACS) -batch -l loadup dump
-#endif /* ! defined (HAVE_SHM) */
#endif /* ! defined (CANNOT_DUMP) */
-./emacs -q -batch -f list-load-path-shadows
${libsrc}make-docfile${EXEEXT}:
cd ${libsrc}; ${MAKE} ${MFLAGS} make-docfile${EXEEXT}
+#ifdef HAVE_UNIDATA
+UNIDATA=${admindir}unidata/UnicodeData.txt
+#endif
+
+${lispsource}international/charprop.el: ${UNIDATA}
+ RUNEMACS="$(RUN_TEMACS)"; \
+ cd ${admindir}unidata; \
+ $(MAKE) $(MFLAGS) \
+ RUNEMACS="$${RUNEMACS}" DSTDIR=${lispsource}international
+
/* Some systems define this to cause parallel Make-ing. */
#ifndef MAKE_PARALLEL
#define MAKE_PARALLEL
it is so often changed in ways that do not require any recompilation
and so rarely changed in ways that do require any. */
-abbrev.o: abbrev.c buffer.h window.h dispextern.h commands.h charset.h \
+abbrev.o: abbrev.c buffer.h window.h dispextern.h commands.h character.h \
syntax.h $(config_h)
buffer.o: buffer.c buffer.h region-cache.h commands.h window.h \
- dispextern.h $(INTERVAL_SRC) blockinput.h atimer.h systime.h charset.h \
+ dispextern.h $(INTERVAL_SRC) blockinput.h atimer.h systime.h character.h \
$(config_h)
callint.o: callint.c window.h commands.h buffer.h keymap.h \
keyboard.h dispextern.h $(config_h)
callproc.o: callproc.c epaths.h buffer.h commands.h $(config_h) \
- process.h systty.h syssignal.h charset.h coding.h ccl.h msdos.h \
+ process.h systty.h syssignal.h character.h coding.h ccl.h msdos.h \
composite.h w32.h blockinput.h atimer.h systime.h
-casefiddle.o: casefiddle.c syntax.h commands.h buffer.h composite.h \
+casefiddle.o: casefiddle.c syntax.h commands.h buffer.h character.h \
+ composite.h \
charset.h keymap.h $(config_h)
casetab.o: casetab.c buffer.h $(config_h)
-category.o: category.c category.h buffer.h charset.h keymap.h $(config_h)
-ccl.o: ccl.c ccl.h charset.h coding.h $(config_h)
-charset.o: charset.c charset.h buffer.h coding.h composite.h disptab.h \
- $(config_h)
-coding.o: coding.c coding.h ccl.h buffer.h charset.h intervals.h composite.h \
+category.o: category.c category.h buffer.h charset.h keymap.h \
+ character.h $(config_h)
+ccl.o: ccl.c ccl.h charset.h character.h coding.h $(config_h)
+character.o: character.c character.h buffer.h charset.h composite.h disptab.h \
+ $(config.h)
+charset.o: charset.c charset.h character.h buffer.h coding.h composite.h \
+ disptab.h $(config_h)
+chartab.o: charset.h character.h $(config.h)
+coding.o: coding.c coding.h ccl.h buffer.h character.h charset.h intervals.h composite.h \
window.h dispextern.h $(config_h)
cm.o: cm.c cm.h termhooks.h $(config_h)
-cmds.o: cmds.c syntax.h buffer.h charset.h commands.h window.h $(config_h) \
+cmds.o: cmds.c syntax.h buffer.h character.h commands.h window.h $(config_h) \
msdos.h dispextern.h keyboard.h keymap.h
pre-crt0.o: pre-crt0.c
ecrt0.o: ecrt0.c $(config_h)
CRT0_COMPILE ${srcdir}/ecrt0.c
-dired.o: dired.c commands.h buffer.h $(config_h) charset.h coding.h regex.h \
- systime.h blockinput.h
+dired.o: dired.c commands.h buffer.h $(config_h) character.h charset.h \
+ coding.h regex.h systime.h blockinput.h
dispnew.o: dispnew.c systty.h systime.h commands.h process.h frame.h \
window.h buffer.h dispextern.h termchar.h termopts.h termhooks.h cm.h \
disptab.h indent.h intervals.h \
- xterm.h blockinput.h atimer.h charset.h msdos.h composite.h keyboard.h \
+ xterm.h blockinput.h atimer.h character.h msdos.h composite.h keyboard.h \
$(config_h)
-doc.o: doc.c $(config_h) epaths.h buffer.h keyboard.h keymap.h charset.h
-doprnt.o: doprnt.c charset.h $(config_h)
+doc.o: doc.c $(config_h) epaths.h buffer.h keyboard.h keymap.h character.h
+doprnt.o: doprnt.c character.h $(config_h)
dosfns.o: buffer.h termchar.h termhooks.h frame.h blockinput.h window.h \
msdos.h dosfns.h dispextern.h charset.h coding.h $(config_h)
-editfns.o: editfns.c window.h buffer.h systime.h $(INTERVAL_SRC) charset.h \
+editfns.o: editfns.c window.h buffer.h systime.h $(INTERVAL_SRC) character.h \
coding.h dispextern.h frame.h blockinput.h $(config_h)
emacs.o: emacs.c commands.h systty.h syssignal.h blockinput.h process.h \
termhooks.h buffer.h atimer.h systime.h $(INTERVAL_SRC) $(config_h) \
window.h dispextern.h keyboard.h keymap.h
-fileio.o: fileio.c window.h buffer.h systime.h $(INTERVAL_SRC) charset.h \
+fileio.o: fileio.c window.h buffer.h systime.h $(INTERVAL_SRC) character.h \
coding.h msdos.h dispextern.h blockinput.h $(config_h)
-filelock.o: filelock.c buffer.h charset.h coding.h systime.h epaths.h $(config_h)
+filelock.o: filelock.c buffer.h character.h charset.h coding.h systime.h \
+ epaths.h $(config_h)
filemode.o: filemode.c $(config_h)
frame.o: frame.c xterm.h window.h frame.h termhooks.h commands.h keyboard.h \
- blockinput.h atimer.h systime.h buffer.h charset.h fontset.h \
+ blockinput.h atimer.h systime.h buffer.h character.h fontset.h \
msdos.h dosfns.h dispextern.h w32term.h macterm.h $(config_h)
fringe.o: fringe.c dispextern.h frame.h window.h buffer.h $(config_h)
-fontset.o: dispextern.h fontset.h fontset.c ccl.h buffer.h charset.h frame.h \
- keyboard.h $(config_h)
+font.o: font.c dispextern.h frame.h window.h ccl.h character.h charset.h \
+ font.h $(config_h)
+ftfont.o: dispextern.h frame.h character.h charset.h font.h $(config_h)
+fontset.o: dispextern.h fontset.h fontset.c ccl.h buffer.h character.h \
+ charset.h frame.h keyboard.h $(FONTSRC) $(config_h)
getloadavg.o: getloadavg.c $(config_h)
image.o: image.c frame.h window.h dispextern.h blockinput.h atimer.h \
systime.h xterm.h w32term.h w32gui.h macterm.h macgui.h $(config_h)
indent.o: indent.c frame.h window.h indent.h buffer.h $(config_h) termchar.h \
- termopts.h disptab.h region-cache.h charset.h composite.h dispextern.h \
- keyboard.h
-insdel.o: insdel.c window.h buffer.h $(INTERVAL_SRC) blockinput.h charset.h \
+ termopts.h disptab.h region-cache.h character.h category.h composite.h \
+ dispextern.h keyboard.h
+insdel.o: insdel.c window.h buffer.h $(INTERVAL_SRC) blockinput.h character.h \
dispextern.h atimer.h systime.h region-cache.h $(config_h)
-keyboard.o: keyboard.c termchar.h termhooks.h termopts.h buffer.h charset.h \
+keyboard.o: keyboard.c termchar.h termhooks.h termopts.h buffer.h character.h \
commands.h frame.h window.h macros.h disptab.h keyboard.h syssignal.h \
systty.h systime.h dispextern.h syntax.h $(INTERVAL_SRC) blockinput.h \
atimer.h xterm.h puresize.h msdos.h keymap.h w32term.h macterm.h $(config_h)
keymap.o: keymap.c buffer.h commands.h keyboard.h termhooks.h blockinput.h \
- atimer.h systime.h puresize.h charset.h intervals.h keymap.h window.h \
+ atimer.h systime.h puresize.h character.h intervals.h keymap.h window.h \
$(config_h)
lastfile.o: lastfile.c $(config_h)
macros.o: macros.c window.h buffer.h commands.h macros.h keyboard.h \
gmalloc.o: gmalloc.c $(config_h)
ralloc.o: ralloc.c $(config_h)
vm-limit.o: vm-limit.c mem-limits.h $(config_h)
-marker.o: marker.c buffer.h charset.h $(config_h)
+marker.o: marker.c buffer.h character.h $(config_h)
md5.o: md5.c md5.h $(config_h)
minibuf.o: minibuf.c syntax.h dispextern.h frame.h window.h keyboard.h \
- buffer.h commands.h charset.h msdos.h $(INTERVAL_SRC) keymap.h $(config_h)
+ buffer.h commands.h character.h msdos.h $(INTERVAL_SRC) keymap.h $(config_h)
mktime.o: mktime.c $(config_h)
msdos.o: msdos.c msdos.h dosfns.h systime.h termhooks.h dispextern.h frame.h \
- termopts.h termchar.h charset.h coding.h ccl.h disptab.h window.h \
+ termopts.h termchar.h character.h coding.h ccl.h disptab.h window.h \
keyboard.h intervals.h buffer.h commands.h blockinput.h $(config_h)
process.o: process.c process.h buffer.h window.h termhooks.h termopts.h \
commands.h syssignal.h systime.h systty.h syswait.h frame.h dispextern.h \
blockinput.h atimer.h charset.h coding.h ccl.h msdos.h composite.h \
keyboard.h $(config_h)
-regex.o: regex.c syntax.h buffer.h $(config_h) regex.h category.h charset.h
+regex.o: regex.c syntax.h buffer.h $(config_h) regex.h category.h character.h \
+ charset.h
region-cache.o: region-cache.c buffer.h region-cache.h $(config_h)
scroll.o: scroll.c termchar.h dispextern.h frame.h msdos.h keyboard.h \
$(config_h)
search.o: search.c regex.h commands.h buffer.h region-cache.h syntax.h \
- blockinput.h atimer.h systime.h category.h charset.h composite.h \
- $(INTERVAL_SRC) $(config_h)
+ blockinput.h atimer.h systime.h category.h character.h composite.h \
+ $(INTERVAL_SRC) \
+ $(config_h)
strftime.o: strftime.c $(config_h)
-syntax.o: syntax.c syntax.h buffer.h commands.h category.h charset.h \
+syntax.o: syntax.c syntax.h buffer.h commands.h category.h character.h \
composite.h keymap.h regex.h $(INTERVAL_SRC) $(config_h)
sysdep.o: sysdep.c syssignal.h systty.h systime.h syswait.h blockinput.h \
process.h dispextern.h termhooks.h termchar.h termopts.h \
frame.h atimer.h window.h msdos.h dosfns.h keyboard.h $(config_h)
term.o: term.c termchar.h termhooks.h termopts.h $(config_h) cm.h frame.h \
- disptab.h dispextern.h keyboard.h charset.h coding.h ccl.h msdos.h \
- window.h keymap.h
+ disptab.h dispextern.h keyboard.h character.h charset.h coding.h ccl.h \
+ msdos.h window.h keymap.h
termcap.o: termcap.c $(config_h)
terminfo.o: terminfo.c $(config_h)
tparam.o: tparam.c $(config_h)
window.o: window.c indent.h commands.h frame.h window.h buffer.h termchar.h \
termhooks.h disptab.h keyboard.h dispextern.h msdos.h composite.h \
keymap.h blockinput.h $(INTERVAL_SRC) xterm.h w32term.h macterm.h $(config_h)
-xdisp.o: xdisp.c macros.h commands.h process.h indent.h buffer.h dispextern.h coding.h \
- termchar.h frame.h window.h disptab.h termhooks.h charset.h $(config_h) \
- keyboard.h $(INTERVAL_SRC) region-cache.h xterm.h w32term.h macterm.h \
- msdos.h composite.h fontset.h blockinput.h atimer.h systime.h keymap.h
-xfaces.o: xfaces.c dispextern.h frame.h xterm.h buffer.h blockinput.h \
- window.h charset.h msdos.h dosfns.h composite.h atimer.h systime.h \
- keyboard.h fontset.h w32term.h macterm.h $(INTERVAL_SRC) $(config_h)
+xdisp.o: xdisp.c macros.h commands.h process.h indent.h buffer.h dispextern.h \
+ coding.h termchar.h frame.h window.h disptab.h termhooks.h character.h \
+ charset.h keyboard.h $(INTERVAL_SRC) region-cache.h xterm.h w32term.h \
+ macterm.h $(config_h) msdos.h composite.h fontset.h blockinput.h atimer.h \
+ systime.h keymap.h $(FONTSRC)
+xfaces.o: xfaces.c dispextern.h frame.h xterm.h buffer.h blockinput.h \
+ window.h character.h charset.h msdos.h dosfns.h composite.h atimer.h \
+ systime.h keyboard.h fontset.h w32term.h macterm.h $(INTERVAL_SRC) \
+ $(FONTSRC) $(config_h)
xfns.o: xfns.c buffer.h frame.h window.h keyboard.h xterm.h dispextern.h \
$(srcdir)/../lwlib/lwlib.h blockinput.h atimer.h systime.h epaths.h \
- charset.h gtkutil.h $(config_h)
+ character.h charset.h coding.h gtkutil.h $(config_h) termhooks.h \
+ fontset.h $(FONTSRC)
+xfont.o: dispextern.h xterm.h frame.h blockinput.h character.h charset.h \
+ font.h $(config_h)
+xftfont.o: dispextern.h xterm.h frame.h blockinput.h character.h charset.h \
+ font.h $(config_h)
+ftxfont.o: dispextern.h xterm.h frame.h blockinput.h character.h charset.h \
+ font.h $(config_h)
xmenu.o: xmenu.c xterm.h termhooks.h window.h dispextern.h frame.h buffer.h \
- keyboard.h $(srcdir)/../lwlib/lwlib.h blockinput.h atimer.h systime.h \
- gtkutil.h msdos.h coding.h $(config_h)
+ charset.h keyboard.h $(srcdir)/../lwlib/lwlib.h blockinput.h atimer.h \
+ systime.h gtkutil.h msdos.h coding.h $(config_h)
xterm.o: xterm.c xterm.h termhooks.h termopts.h termchar.h window.h buffer.h \
- dispextern.h frame.h disptab.h blockinput.h atimer.h systime.h syssignal.h \
- keyboard.h gnu.h charset.h ccl.h fontset.h composite.h \
- coding.h process.h gtkutil.h $(config_h)
+ dispextern.h frame.h disptab.h blockinput.h atimer.h systime.h syssignal.h \
+ keyboard.h gnu.h character.h charset.h ccl.h fontset.h composite.h \
+ coding.h process.h gtkutil.h $(FONTSRC) $(config_h)
xselect.o: xselect.c process.h dispextern.h frame.h xterm.h blockinput.h \
buffer.h atimer.h systime.h $(config_h)
xrdb.o: xrdb.c $(config_h) epaths.h
/* The files of Lisp proper */
alloc.o: alloc.c process.h frame.h window.h buffer.h puresize.h syssignal.h keyboard.h \
- blockinput.h atimer.h systime.h charset.h dispextern.h $(config_h) $(INTERVAL_SRC)
-bytecode.o: bytecode.c buffer.h syntax.h charset.h window.h dispextern.h \
+ blockinput.h atimer.h systime.h character.h dispextern.h $(config_h) \
+ $(INTERVAL_SRC)
+bytecode.o: bytecode.c buffer.h syntax.h character.h window.h dispextern.h \
frame.h xterm.h $(config_h)
-data.o: data.c buffer.h puresize.h charset.h syssignal.h keyboard.h frame.h $(config_h)
+data.o: data.c buffer.h puresize.h character.h syssignal.h keyboard.h frame.h \
+ $(config_h)
eval.o: eval.c commands.h keyboard.h blockinput.h atimer.h systime.h \
dispextern.h $(config_h)
floatfns.o: floatfns.c $(config_h)
-fns.o: fns.c commands.h $(config_h) frame.h buffer.h charset.h keyboard.h \
+fns.o: fns.c commands.h $(config_h) frame.h buffer.h character.h keyboard.h \
keymap.h frame.h window.h dispextern.h $(INTERVAL_SRC) coding.h md5.h \
blockinput.h xterm.h
-print.o: print.c process.h frame.h window.h buffer.h keyboard.h charset.h \
+print.o: print.c process.h frame.h window.h buffer.h keyboard.h character.h \
$(config_h) dispextern.h termchar.h $(INTERVAL_SRC) msdos.h composite.h
-lread.o: lread.c commands.h keyboard.h buffer.h epaths.h charset.h \
- $(config_h) $(INTERVAL_SRC) termhooks.h coding.h msdos.h
+lread.o: lread.c commands.h keyboard.h buffer.h epaths.h character.h \
+ charset.h $(config_h) $(INTERVAL_SRC) termhooks.h coding.h msdos.h
/* Text properties support */
textprop.o: textprop.c buffer.h window.h dispextern.h $(INTERVAL_SRC) \
$(config_h)
intervals.o: intervals.c buffer.h $(INTERVAL_SRC) keyboard.h puresize.h \
keymap.h $(config_h)
-composite.o: composite.c buffer.h charset.h $(INTERVAL_SRC) $(config_h)
+composite.o: composite.c buffer.h character.h $(INTERVAL_SRC) $(config_h)
/* System-specific programs to be made.
OTHER_FILES and OBJECTS_MACHINE
/* Dump an Emacs executable named bootstrap-emacs containing the
files from loadup.el in source form. */
-bootstrap-emacs${EXEEXT}: temacs${EXEEXT}
+bootstrap-emacs${EXEEXT}: temacs${EXEEXT} ${lispsource}international/charprop.el
#ifdef CANNOT_DUMP
ln temacs${EXEEXT} bootstrap-emacs${EXEEXT}
#else
-#ifdef HAVE_SHM
- $(RUN_TEMACS) -nl -batch -l loadup bootstrap
-#else /* ! defined (HAVE_SHM) */
$(RUN_TEMACS) --batch --load loadup bootstrap
-#endif /* ! defined (HAVE_SHM) */
mv -f emacs${EXEEXT} bootstrap-emacs${EXEEXT}
#endif /* ! defined (CANNOT_DUMP) */
#include "keyboard.h"
#include "frame.h"
#include "blockinput.h"
-#include "charset.h"
+#include "character.h"
#include "syssignal.h"
#include <setjmp.h>
do \
{ \
if (pthread_equal (pthread_self (), main_thread)) \
- sigblock (sigmask (SIGIO)); \
+ BLOCK_INPUT; \
pthread_mutex_lock (&alloc_mutex); \
} \
while (0)
{ \
pthread_mutex_unlock (&alloc_mutex); \
if (pthread_equal (pthread_self (), main_thread)) \
- sigunblock (sigmask (SIGIO)); \
+ UNBLOCK_INPUT; \
} \
while (0)
/* Addresses of staticpro'd variables. Initialize it to a nonzero
value; otherwise some compilers put it into BSS. */
-#define NSTATICS 1280
+#define NSTATICS 0x600
Lisp_Object *staticvec[NSTATICS] = {&Vpurify_flag};
/* Index of next unused slot in staticvec. */
CHECK_NUMBER (init);
c = XINT (init);
- if (SINGLE_BYTE_CHAR_P (c))
+ if (ASCII_CHAR_P (c))
{
nbytes = XINT (length);
val = make_uninit_string (nbytes);
}
-DEFUN ("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0,
- doc: /* Return a newly created char-table, with purpose PURPOSE.
-Each element is initialized to INIT, which defaults to nil.
-PURPOSE should be a symbol which has a `char-table-extra-slots' property.
-The property's value should be an integer between 0 and 10. */)
- (purpose, init)
- register Lisp_Object purpose, init;
-{
- Lisp_Object vector;
- Lisp_Object n;
- CHECK_SYMBOL (purpose);
- n = Fget (purpose, Qchar_table_extra_slots);
- CHECK_NUMBER (n);
- if (XINT (n) < 0 || XINT (n) > 10)
- args_out_of_range (n, Qnil);
- /* Add 2 to the size for the defalt and parent slots. */
- vector = Fmake_vector (make_number (CHAR_TABLE_STANDARD_SLOTS + XINT (n)),
- init);
- XCHAR_TABLE (vector)->top = Qt;
- XCHAR_TABLE (vector)->parent = Qnil;
- XCHAR_TABLE (vector)->purpose = purpose;
- XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
- return vector;
-}
-
-
-/* Return a newly created sub char table with slots initialized by INIT.
- Since a sub char table does not appear as a top level Emacs Lisp
- object, we don't need a Lisp interface to make it. */
-
-Lisp_Object
-make_sub_char_table (init)
- Lisp_Object init;
-{
- Lisp_Object vector
- = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), init);
- XCHAR_TABLE (vector)->top = Qnil;
- XCHAR_TABLE (vector)->defalt = Qnil;
- XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
- return vector;
-}
-
-
DEFUN ("vector", Fvector, Svector, 0, MANY, 0,
doc: /* Return a newly created vector with specified arguments as elements.
Any number of arguments, even zero arguments, are allowed.
defsubr (&Smake_byte_code);
defsubr (&Smake_list);
defsubr (&Smake_vector);
- defsubr (&Smake_char_table);
defsubr (&Smake_string);
defsubr (&Smake_bool_vector);
defsubr (&Smake_symbol);
/* Define to 1 if you have the `fpathconf' function. */
#undef HAVE_FPATHCONF
+/* Define to 1 if you have freetype and fontconfig libraries. */
+#undef HAVE_FREETYPE
+
/* Define to 1 if you have the `frexp' function. */
#undef HAVE_FREXP
/* Define to 1 if you have the `ncurses' library (-lncurses). */
#undef HAVE_LIBNCURSES
+/* Define to 1 if you have libotf library. */
+#undef HAVE_LIBOTF
+
/* Define to 1 if you have the <libpng/png.h> header file. */
#undef HAVE_LIBPNG_PNG_H
/* Define to 1 if you have the Xft library. */
#undef HAVE_XFT
++/* Define to 1 if you have the Xft library. */
++#undef HAVE_XFT
++
/* Define to 1 if XIM is available */
#undef HAVE_XIM
/* Define to the unexec source file name. */
#undef UNEXEC_SRC
+/* Define to 1 if we should use font-backend. */
+#undef USE_FONT_BACKEND
+
/* Define to 1 if we should use toolkit scroll bars. */
#undef USE_TOOLKIT_SCROLL_BARS
#include "window.h"
#include "commands.h"
#include "buffer.h"
-#include "charset.h"
+#include "character.h"
#include "disptab.h"
#include "dispextern.h"
#include "syntax.h"
/* Variables for blockinput.h: */
/* Non-zero if interrupt input is blocked right now. */
- int interrupt_input_blocked;
+ volatile int interrupt_input_blocked;
/* Nonzero means an input interrupt has arrived
during the current critical section. */
: (lose >= 0x20 && lose < 0x7f))
/* To extract the case of continuation on
wide-column characters. */
- && (WIDTH_BY_CHAR_HEAD (FETCH_BYTE (PT_BYTE)) == 1)
+ && ASCII_BYTE_P (lose)
&& (XFASTINT (XWINDOW (selected_window)->last_modified)
>= MODIFF)
&& (XFASTINT (XWINDOW (selected_window)->last_overlay_modified)
{
unsigned int c
= translate_char (Vtranslation_table_for_input,
- XFASTINT (last_command_char), 0, 0, 0);
+ XFASTINT (last_command_char));
int value;
if (NILP (Vexecuting_kbd_macro)
&& !EQ (minibuf_window, selected_window))
int last_pt;
int modified;
{
- int beg, end;
+ EMACS_INT beg, end;
Lisp_Object val, overlay, tmp;
int check_composition = 1, check_display = 1, check_invisible = 1;
int orig_pt = PT;
|| (VECTORP (Vkeyboard_translate_table)
&& XVECTOR (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c))
|| (CHAR_TABLE_P (Vkeyboard_translate_table)
- && CHAR_VALID_P (XINT (c), 0)))
+ && CHARACTERP (c)))
{
Lisp_Object d;
d = Faref (Vkeyboard_translate_table, c);
if (first_binding >= nmaps
&& fkey.start >= t && keytran.start >= t
&& INTEGERP (key)
- && ((((XINT (key) & 0x3ffff)
- < XCHAR_TABLE (current_buffer->downcase_table)->size)
- && UPPERCASEP (XINT (key) & 0x3ffff))
+ && ((CHARACTERP (make_number (XINT (key) & ~CHAR_MODIFIER_MASK))
+ && UPPERCASEP (XINT (key) & ~CHAR_MODIFIER_MASK))
|| (XINT (key) & shift_modifier)))
{
Lisp_Object new_key;
if (XINT (key) & shift_modifier)
XSETINT (new_key, XINT (key) & ~shift_modifier);
else
- XSETINT (new_key, (DOWNCASE (XINT (key) & 0x3ffff)
- | (XINT (key) & ~0x3ffff)));
+ XSETINT (new_key, (DOWNCASE (XINT (key) & ~CHAR_MODIFIER_MASK)
+ | (XINT (key) & ~CHAR_MODIFIER_MASK)));
/* We have to do this unconditionally, regardless of whether
the lower-case char is defined in the keymaps, because they
doc: /* Return the key sequence that invoked this command.
However, if the command has called `read-key-sequence', it returns
the last key sequence that has been read.
- The value is a string or a vector. */)
+ The value is a string or a vector.
+
+ See also `this-command-keys-vector'. */)
()
{
return make_event_array (this_command_key_count,
DEFUN ("this-command-keys-vector", Fthis_command_keys_vector, Sthis_command_keys_vector, 0, 0, 0,
doc: /* Return the key sequence that invoked this command, as a vector.
However, if the command has called `read-key-sequence', it returns
- the last key sequence that has been read. */)
+ the last key sequence that has been read.
+
+ See also `this-command-keys'. */)
()
{
return Fvector (this_command_key_count,
#include "lisp.h"
#include "commands.h"
#include "buffer.h"
-#include "charset.h"
+#include "character.h"
#include "dispextern.h"
#include "keyboard.h"
#include "frame.h"
}
DEFUN ("try-completion", Ftry_completion, Stry_completion, 2, 3, 0,
- doc: /* Return common substring of all completions of STRING in ALIST.
- Each car of each element of ALIST (or each element if it is not a cons cell)
- is tested to see if it begins with STRING. The possible matches may be
+ doc: /* Return common substring of all completions of STRING in COLLECTION.
+ Test each possible completion specified by COLLECTION
+ to see if it begins with STRING. The possible completions may be
strings or symbols. Symbols are converted to strings before testing,
see `symbol-name'.
- All that match are compared together; the longest initial sequence
- common to all matches is returned as a string.
- If there is no match at all, nil is returned.
- For a unique match which is exact, t is returned.
-
- If ALIST is a hash-table, all the string and symbol keys are the
- possible matches.
- If ALIST is an obarray, the names of all symbols in the obarray
- are the possible matches.
-
- ALIST can also be a function to do the completion itself.
+ All that match STRING are compared together; the longest initial sequence
+ common to all these matches is the return value.
+ If there is no match at all, the return value is nil.
+ For a unique match which is exact, the return value is t.
+
+ If COLLECTION is an alist, the keys (cars of elements) are the
+ possible completions. If an element is not a cons cell, then the
+ element itself is the possible completion.
+ If COLLECTION is a hash-table, all the keys that are strings or symbols
+ are the possible completions.
+ If COLLECTION is an obarray, the names of all symbols in the obarray
+ are the possible completions.
+
+ COLLECTION can also be a function to do the completion itself.
It receives three arguments: the values STRING, PREDICATE and nil.
Whatever it returns becomes the value of `try-completion'.
it is used to test each possible match.
The match is a candidate only if PREDICATE returns non-nil.
The argument given to PREDICATE is the alist element
- or the symbol from the obarray. If ALIST is a hash-table,
+ or the symbol from the obarray. If COLLECTION is a hash-table,
predicate is called with two arguments: the key and the value.
Additionally to this predicate, `completion-regexp-list'
is used to further constrain the set of candidates. */)
- (string, alist, predicate)
- Lisp_Object string, alist, predicate;
+ (string, collection, predicate)
+ Lisp_Object string, collection, predicate;
{
Lisp_Object bestmatch, tail, elt, eltstring;
/* Size in bytes of BESTMATCH. */
int bestmatchsize = 0;
/* These are in bytes, too. */
int compare, matchsize;
- int type = (HASH_TABLE_P (alist) ? 3
- : VECTORP (alist) ? 2
- : NILP (alist) || (CONSP (alist)
- && (!SYMBOLP (XCAR (alist))
- || NILP (XCAR (alist)))));
+ int type = (HASH_TABLE_P (collection) ? 3
+ : VECTORP (collection) ? 2
+ : NILP (collection) || (CONSP (collection)
+ && (!SYMBOLP (XCAR (collection))
+ || NILP (XCAR (collection)))));
int index = 0, obsize = 0;
int matchcount = 0;
int bindcount = -1;
CHECK_STRING (string);
if (type == 0)
- return call3 (alist, string, predicate, Qnil);
+ return call3 (collection, string, predicate, Qnil);
bestmatch = bucket = Qnil;
zero = make_number (0);
- /* If ALIST is not a list, set TAIL just for gc pro. */
- tail = alist;
+ /* If COLLECTION is not a list, set TAIL just for gc pro. */
+ tail = collection;
if (type == 2)
{
- alist = check_obarray (alist);
- obsize = XVECTOR (alist)->size;
- bucket = XVECTOR (alist)->contents[index];
+ collection = check_obarray (collection);
+ obsize = XVECTOR (collection)->size;
+ bucket = XVECTOR (collection)->contents[index];
}
while (1)
break;
else
{
- bucket = XVECTOR (alist)->contents[index];
+ bucket = XVECTOR (collection)->contents[index];
continue;
}
}
else /* if (type == 3) */
{
- while (index < HASH_TABLE_SIZE (XHASH_TABLE (alist))
- && NILP (HASH_HASH (XHASH_TABLE (alist), index)))
+ while (index < HASH_TABLE_SIZE (XHASH_TABLE (collection))
+ && NILP (HASH_HASH (XHASH_TABLE (collection), index)))
index++;
- if (index >= HASH_TABLE_SIZE (XHASH_TABLE (alist)))
+ if (index >= HASH_TABLE_SIZE (XHASH_TABLE (collection)))
break;
else
- elt = eltstring = HASH_KEY (XHASH_TABLE (alist), index++);
+ elt = eltstring = HASH_KEY (XHASH_TABLE (collection), index++);
}
/* Is this element a possible completion? */
GCPRO4 (tail, string, eltstring, bestmatch);
tem = type == 3
? call2 (predicate, elt,
- HASH_VALUE (XHASH_TABLE (alist), index - 1))
+ HASH_VALUE (XHASH_TABLE (collection), index - 1))
: call1 (predicate, elt);
UNGCPRO;
}
}
\f
DEFUN ("all-completions", Fall_completions, Sall_completions, 2, 4, 0,
- doc: /* Search for partial matches to STRING in ALIST.
- Each car of each element of ALIST (or each element if it is not a cons cell)
- is tested to see if it begins with STRING. The possible matches may be
+ doc: /* Search for partial matches to STRING in COLLECTION.
+ Test each of the possible completions specified by COLLECTION
+ to see if it begins with STRING. The possible completions may be
strings or symbols. Symbols are converted to strings before testing,
see `symbol-name'.
- The value is a list of all the strings from ALIST that match.
+ The value is a list of all the possible completions that match STRING.
- If ALIST is a hash-table, all the string and symbol keys are the
- possible matches.
- If ALIST is an obarray, the names of all symbols in the obarray
- are the possible matches.
+ If COLLECTION is an alist, the keys (cars of elements) are the
+ possible completions. If an element is not a cons cell, then the
+ element itself is the possible completion.
+ If COLLECTION is a hash-table, all the keys that are strings or symbols
+ are the possible completions.
+ If COLLECTION is an obarray, the names of all symbols in the obarray
+ are the possible completions.
- ALIST can also be a function to do the completion itself.
+ COLLECTION can also be a function to do the completion itself.
It receives three arguments: the values STRING, PREDICATE and t.
Whatever it returns becomes the value of `all-completions'.
it is used to test each possible match.
The match is a candidate only if PREDICATE returns non-nil.
The argument given to PREDICATE is the alist element
- or the symbol from the obarray. If ALIST is a hash-table,
+ or the symbol from the obarray. If COLLECTION is a hash-table,
predicate is called with two arguments: the key and the value.
Additionally to this predicate, `completion-regexp-list'
is used to further constrain the set of candidates.
If the optional fourth argument HIDE-SPACES is non-nil,
- strings in ALIST that start with a space
+ strings in COLLECTION that start with a space
are ignored unless STRING itself starts with a space. */)
- (string, alist, predicate, hide_spaces)
- Lisp_Object string, alist, predicate, hide_spaces;
+ (string, collection, predicate, hide_spaces)
+ Lisp_Object string, collection, predicate, hide_spaces;
{
Lisp_Object tail, elt, eltstring;
Lisp_Object allmatches;
- int type = HASH_TABLE_P (alist) ? 3
- : VECTORP (alist) ? 2
- : NILP (alist) || (CONSP (alist)
- && (!SYMBOLP (XCAR (alist))
- || NILP (XCAR (alist))));
+ int type = HASH_TABLE_P (collection) ? 3
+ : VECTORP (collection) ? 2
+ : NILP (collection) || (CONSP (collection)
+ && (!SYMBOLP (XCAR (collection))
+ || NILP (XCAR (collection))));
int index = 0, obsize = 0;
int bindcount = -1;
Lisp_Object bucket, tem, zero;
CHECK_STRING (string);
if (type == 0)
- return call3 (alist, string, predicate, Qt);
+ return call3 (collection, string, predicate, Qt);
allmatches = bucket = Qnil;
zero = make_number (0);
- /* If ALIST is not a list, set TAIL just for gc pro. */
- tail = alist;
+ /* If COLLECTION is not a list, set TAIL just for gc pro. */
+ tail = collection;
if (type == 2)
{
- obsize = XVECTOR (alist)->size;
- bucket = XVECTOR (alist)->contents[index];
+ obsize = XVECTOR (collection)->size;
+ bucket = XVECTOR (collection)->contents[index];
}
while (1)
break;
else
{
- bucket = XVECTOR (alist)->contents[index];
+ bucket = XVECTOR (collection)->contents[index];
continue;
}
}
else /* if (type == 3) */
{
- while (index < HASH_TABLE_SIZE (XHASH_TABLE (alist))
- && NILP (HASH_HASH (XHASH_TABLE (alist), index)))
+ while (index < HASH_TABLE_SIZE (XHASH_TABLE (collection))
+ && NILP (HASH_HASH (XHASH_TABLE (collection), index)))
index++;
- if (index >= HASH_TABLE_SIZE (XHASH_TABLE (alist)))
+ if (index >= HASH_TABLE_SIZE (XHASH_TABLE (collection)))
break;
else
- elt = eltstring = HASH_KEY (XHASH_TABLE (alist), index++);
+ elt = eltstring = HASH_KEY (XHASH_TABLE (collection), index++);
}
/* Is this element a possible completion? */
GCPRO4 (tail, eltstring, allmatches, string);
tem = type == 3
? call2 (predicate, elt,
- HASH_VALUE (XHASH_TABLE (alist), index - 1))
+ HASH_VALUE (XHASH_TABLE (collection), index - 1))
: call1 (predicate, elt);
UNGCPRO;
}
DEFUN ("completing-read", Fcompleting_read, Scompleting_read, 2, 8, 0,
doc: /* Read a string in the minibuffer, with completion.
PROMPT is a string to prompt with; normally it ends in a colon and a space.
- TABLE can be a list of strings, an alist, an obarray or a hash table.
- TABLE can also be a function to do the completion itself.
- PREDICATE limits completion to a subset of TABLE.
+ COLLECTION can be a list of strings, an alist, an obarray or a hash table.
+ COLLECTION can also be a function to do the completion itself.
+ PREDICATE limits completion to a subset of COLLECTION.
See `try-completion' and `all-completions' for more details
- on completion, TABLE, and PREDICATE.
+ on completion, COLLECTION, and PREDICATE.
If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless
- the input is (or completes to) an element of TABLE or is null.
+ the input is (or completes to) an element of COLLECTION or is null.
If it is also not t, typing RET does not exit if it does non-null completion.
If the input is null, `completing-read' returns DEF, or an empty string
if DEF is nil, regardless of the value of REQUIRE-MATCH.
Completion ignores case if the ambient value of
`completion-ignore-case' is non-nil. */)
- (prompt, table, predicate, require_match, initial_input, hist, def, inherit_input_method)
- Lisp_Object prompt, table, predicate, require_match, initial_input;
+ (prompt, collection, predicate, require_match, initial_input, hist, def, inherit_input_method)
+ Lisp_Object prompt, collection, predicate, require_match, initial_input;
Lisp_Object hist, def, inherit_input_method;
{
Lisp_Object val, histvar, histpos, position;
init = initial_input;
GCPRO1 (def);
- specbind (Qminibuffer_completion_table, table);
+ specbind (Qminibuffer_completion_table, collection);
specbind (Qminibuffer_completion_predicate, predicate);
specbind (Qminibuffer_completion_confirm,
EQ (require_match, Qt) ? Qnil : require_match);
DEFUN ("test-completion", Ftest_completion, Stest_completion, 2, 3, 0,
doc: /* Return non-nil if STRING is a valid completion.
Takes the same arguments as `all-completions' and `try-completion'.
- If ALIST is a function, it is called with three arguments:
+ If COLLECTION is a function, it is called with three arguments:
the values STRING, PREDICATE and `lambda'. */)
- (string, alist, predicate)
- Lisp_Object string, alist, predicate;
+ (string, collection, predicate)
+ Lisp_Object string, collection, predicate;
{
Lisp_Object regexps, tail, tem = Qnil;
int i = 0;
CHECK_STRING (string);
- if ((CONSP (alist) && (!SYMBOLP (XCAR (alist)) || NILP (XCAR (alist))))
- || NILP (alist))
+ if ((CONSP (collection)
+ && (!SYMBOLP (XCAR (collection)) || NILP (XCAR (collection))))
+ || NILP (collection))
{
- tem = Fassoc_string (string, alist, completion_ignore_case ? Qt : Qnil);
+ tem = Fassoc_string (string, collection, completion_ignore_case ? Qt : Qnil);
if (NILP (tem))
return Qnil;
}
- else if (VECTORP (alist))
+ else if (VECTORP (collection))
{
/* Bypass intern-soft as that loses for nil. */
- tem = oblookup (alist,
+ tem = oblookup (collection,
SDATA (string),
SCHARS (string),
SBYTES (string));
else
string = Fstring_make_multibyte (string);
- tem = oblookup (alist,
+ tem = oblookup (collection,
SDATA (string),
SCHARS (string),
SBYTES (string));
if (completion_ignore_case && !SYMBOLP (tem))
{
- for (i = XVECTOR (alist)->size - 1; i >= 0; i--)
+ for (i = XVECTOR (collection)->size - 1; i >= 0; i--)
{
- tail = XVECTOR (alist)->contents[i];
+ tail = XVECTOR (collection)->contents[i];
if (SYMBOLP (tail))
while (1)
{
if (!SYMBOLP (tem))
return Qnil;
}
- else if (HASH_TABLE_P (alist))
+ else if (HASH_TABLE_P (collection))
{
- struct Lisp_Hash_Table *h = XHASH_TABLE (alist);
+ struct Lisp_Hash_Table *h = XHASH_TABLE (collection);
i = hash_lookup (h, string, NULL);
if (i >= 0)
tem = HASH_KEY (h, i);
return Qnil;
}
else
- return call3 (alist, string, predicate, Qlambda);
+ return call3 (collection, string, predicate, Qlambda);
/* Reject this element if it fails to match all the regexps. */
if (CONSP (Vcompletion_regexp_list))
/* Finally, check the predicate. */
if (!NILP (predicate))
{
- return HASH_TABLE_P (alist)
- ? call2 (predicate, tem, HASH_VALUE (XHASH_TABLE (alist), i))
+ return HASH_TABLE_P (collection)
+ ? call2 (predicate, tem, HASH_VALUE (XHASH_TABLE (collection), i))
: call1 (predicate, tem);
}
else
/* Now find first word-break in the stuff found by completion.
i gets index in string of where to stop completing. */
- {
- int len, c;
- int bytes = SBYTES (completion);
- register const unsigned char *completion_string = SDATA (completion);
- for (; i_byte < SBYTES (completion); i_byte += len, i++)
- {
- c = STRING_CHAR_AND_LENGTH (completion_string + i_byte,
- bytes - i_byte,
- len);
- if (SYNTAX (c) != Sword)
- {
- i_byte += len;
- i++;
- break;
- }
- }
- }
+ while (i_byte < SBYTES (completion))
+ {
+ int c;
+
+ FETCH_STRING_CHAR_AS_MULTIBYTE_ADVANCE (c, completion, i, i_byte);
+ if (SYNTAX (c) != Sword)
+ break;
+ }
/* If got no characters, print help for user. */
doc: /* Terminate minibuffer input. */)
()
{
- if (INTEGERP (last_command_char))
+ if (CHARACTERP (last_command_char))
internal_self_insert (XINT (last_command_char), 0);
else
bitch_at_user ();