--- /dev/null
+./_dir-locals.el
+./bin
+./BIN
+./config.cache
+./config.log
+./config.status
+./data
+./etc/icons
+./etc/__pycache__
+./lock
+./README.W32
+./site-lisp
+oo
+oo-spd
+*.dSYM
+*.elc
+*.exe
+./aclocal.m4
+autom4te.cache
+confdefs.h
+./configure
+configure.lineno
+conftest*
+core
+DOC
+DOC-*
+emacs-*/
+makefile
+Makefile
+Makefile.c
+./GNUmakefile.unix
+stamp-h1
+stamp_BLD
+subdirs.el
+TAGS
+TAGS-LISP
+cxxdefs.h
+# Intermediate files when making pdf versions of the manuals.
+doc/**/*.aux
+doc/**/*.cm
+doc/**/*.cms
+doc/**/*.cp
+doc/**/*.cps
+doc/**/*.fn
+doc/**/*.fns
+doc/**/*.ky
+doc/**/*.kys
+doc/**/*.log
+doc/**/*.op
+doc/**/*.ops
+doc/**/*.pg
+doc/**/*.pgs
+doc/**/*.pj
+doc/**/*.pjs
+doc/**/*.sc
+doc/**/*.scs
+doc/**/*.ss
+doc/**/*.tg
+doc/**/*.tgs
+doc/**/*.toc
+doc/**/*.tp
+doc/**/*.tps
+doc/**/*.vr
+doc/**/*.vrs
+doc/**/*.pdf
+!doc/lispintro/cons-*.pdf
+!doc/lispintro/drawers.pdf
+!doc/lispintro/lambda-*.pdf
+etc/emacs.tmpdesktop
+etc/refcards/*.aux
+etc/refcards/*.log
+info/*.info
+admin/unidata/unidata.txt
+build-aux/compile
+build-aux/config.guess
+build-aux/config.sub
+build-aux/depcomp
+build-aux/install-sh
+build-aux/missing
+leim/leim-list.el
+leim/quail/*.el
+leim/changed.misc
+leim/changed.tit
+lib/.deps/
+lib/Makefile.in
+lib/deps/
+lib/alloca.h
+lib/arg-nonnull.h
+lib/c++defs.h
+lib/execinfo.h
+lib/getopt.h
+lib/inttypes.h
+lib/stdalign.h
+lib/stdbool.h
+lib/stdio.h
+lib/stdint.h
+lib/stdlib.h
+lib/sys/
+lib/SYS
+lib/time.h
+lib/unistd.h
+lib/warn-on-use.h
+lib/alloca.in-h
+lib/getopt.in-h
+lib/signal.in-h
+lib/signal.h
+lib/stdbool.in-h
+lib/stddef.in-h
+lib/stdint.in-h
+lib/stdio.in-h
+lib/stdlib.in-h
+lib/sys_stat.in-h
+lib/time.in-h
+lib/unistd.in-h
+lib/cxxdefs.h
+lib-src/ctags
+lib-src/ctags.c
+lib-src/ebrowse
+lib-src/emacsclient
+lib-src/etags
+lib-src/fakemail
+lib-src/hexl
+lib-src/make-docfile
+lib-src/movemail
+lib-src/profile
+lib-src/test-distrib
+lib-src/update-game-score
+lisp/**/*-loaddefs.el
+!lisp/emacs-lisp/cl-loaddefs.el
+lisp/**/loaddefs.el
+lisp/cus-load.el
+lisp/eshell/esh-groups.el
+lisp/finder-inf.el
+lisp/gnus/_dir-locals.el
+nextstep/Emacs.app
+nextstep/Cocoa/Emacs.base/Contents/Info.plist
+nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj
+nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop
+nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist
+nt/config.log
+src/_dbxinit
+src/_gdbinit
+src/bootstrap-emacs
+src/buildobj.h
+src/config.h
+src/config.in
+src/deps
+src/emacs
+src/emacs-*
+src/epaths.h
+src/gdb.ini
+src/prefix-args*
+src/stamp-oldxmenu
+src/stamp-h.in
+src/temacs
+test/indent/*.new
++*
+src/globals.h
+src/gl-stamp
+lisp/mh-e/mh-autoloads.el
+lisp/mh-e/mh-cus-load.el
+lib/stdalign.h
+admin/charsets/*.map
+admin/charsets/cp51932.el
+admin/charsets/eucjp-ms.el
+admin/charsets/jisx2131-filter
--- /dev/null
+[general]
+upstream_branch = origin
+upstream_tag = upstream/${upstreamversion}
--- /dev/null
+configure
+aclocal.m4
+compile
+config.guess
+config.sub
+depcomp
+install-sh
+missing
+lib/Makefile.in
+src/config.in
+autom4te.cache
+makefile
+*~
+/README.W32
+
+/bin/
+/site-lisp/
--- /dev/null
+# Build Emacs from a fresh tarball or version-control checkout.
+
+# Copyright (C) 2011-2013 Free Software Foundation, Inc.
+#
+# This file is part of GNU Emacs.
+#
+# GNU Emacs is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# GNU Emacs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+#
+# written by Paul Eggert
+
+
+# This GNUmakefile is for GNU Make. It is for convenience, so that
+# one can run 'make' in an unconfigured source tree. In such a tree,
+# this file causes GNU Make to first create a standard configuration
+# with the default options, and then reinvokes itself on the
+# newly-built Makefile. If the source tree is already configured,
+# this file defers to the existing Makefile.
+
+# If you are using a non-GNU 'make', or if you want non-default build
+# options, or if you want to build in an out-of-source tree, please
+# run "configure" by hand. But run autogen.sh first, if the source
+# was checked out directly from the repository.
+
+
+# If a Makefile already exists, just use it.
+
+ifeq ($(wildcard Makefile),Makefile)
+include Makefile
+else
+
+# If cleaning and Makefile does not exist, don't bother creating it.
+# The source tree is already clean, or is in a weird state that
+# requires expert attention.
+
+ifeq ($(filter-out %clean,$(or $(MAKECMDGOALS),default)),)
+
+$(MAKECMDGOALS):
+ @echo >&2 'No Makefile; skipping $@.'
+
+else
+
+# No Makefile, and not cleaning.
+# If 'configure' does not exist, Emacs must have been checked
+# out directly from the repository; run ./autogen.sh.
+# Once 'configure' exists, run it.
+# Finally, run the actual 'make'.
+
+default $(filter-out configure Makefile,$(MAKECMDGOALS)): Makefile
+ $(MAKE) -f Makefile $(MAKECMDGOALS)
+# Execute in sequence, so that multiple user goals don't conflict.
+.NOTPARALLEL:
+
+configure:
+ @echo >&2 'There seems to be no "configure" file in this directory.'
+ @echo >&2 'Running ./autogen.sh || autogen/copy_autogen ...'
+ ./autogen.sh || autogen/copy_autogen
+ @echo >&2 '"configure" file built.'
+
+Makefile: configure
+ @echo >&2 'There seems to be no Makefile in this directory.'
+ @echo >&2 'Running ./configure ...'
+ ./configure
+ @echo >&2 'Makefile built.'
+
+endif
+endif
--- /dev/null
+Copyright (C) 2002-2013 Free Software Foundation, Inc.
+See the end of the file for license conditions.
+
+
+ Building and Installing Emacs from Bazaar
+
+Building Emacs from Bazaar requires some tools that are not needed
+when building from a release. You will need:
+
+autoconf - at least the version specified near the start of
+ configure.ac (in the AC_PREREQ command).
+automake - at least the version specified near the start of
+ configure.ac (in the AM_INIT_AUTOMAKE command).
+makeinfo - not strictly necessary, but highly recommended, so that
+ you can build the manuals.
+
+The `autogen.sh' script can help you figure out if you have the
+necessary tools.
+
+The first time you build, there are a couple of extra steps.
+First, generate the `configure' script and some related files:
+
+ $ ./autogen.sh
+
+(or you can just run `autoreconf -i -I m4').
+
+You can then configure your build (use `./configure --help' to see
+options you can set):
+
+ $ ./configure
+
+If you want later builds to go faster, at the expense of sometimes
+doing the wrong thing if you update the build procedure, you can
+invoke "./configure -C" instead.
+
+Some of the files that are included in the Emacs tarball, such as
+byte-compiled Lisp files, are not stored in Bazaar. Therefore, to
+build from Bazaar you must run "make bootstrap" instead of just "make":
+
+ $ bzr pull
+ $ make bootstrap
+
+Normally, it is not necessary to use "make bootstrap" after every
+update from Bazaar. "make" should work in 90% of the cases and be
+much quicker.
+
+ $ make
+
+(If you want to install the Emacs binary, type "make install" instead
+of "make" in the last command.)
+
+Occasionally the file "lisp/loaddefs.el" (and similar automatically
+generated files, such as esh-groups.el, and *-loaddefs.el in some
+subdirectories of lisp/, e.g. mh-e/ and calendar/) will need to be
+updated to reflect new autoloaded functions. If you see errors (rather
+than warnings) about undefined lisp functions during compilation, that
+may be the reason. Finally, sometimes there can be build failures
+related to *loaddefs.el (e.g. "required feature `esh-groups' was not
+provided"). In that case, follow the instructions below.
+
+To update loaddefs.el (and similar files), do:
+
+ $ cd lisp
+ $ make autoloads
+
+If either of the above partial procedures fails, try "make bootstrap".
+If CPU time is not an issue, the most thorough way to rebuild, and
+avoid any spurious problems, is always to use this method.
+
+Users of non-Posix systems (MS-Windows etc.) should run the
+platform-specific configuration scripts (nt/configure.bat, config.bat,
+etc.) before "make bootstrap" or "make"; the rest of the procedure is
+applicable to those systems as well.
+
+Because the Bazaar version of Emacs is a work in progress, it will
+sometimes fail to build. Please wait a day or so (and check the
+archives of the emacs-buildstatus, emacs-devel, and bug-gnu-emacs
+mailing lists) before reporting such problems. In most cases, the
+problem is known about and is just waiting for someone to fix it.
+This is especially true for Lisp compilation errors, which are almost
+never platform-specific.
+
+
+\f
+This file is part of GNU Emacs.
+
+GNU Emacs is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+GNU Emacs is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+++ /dev/null
-# generated automatically by aclocal 1.11.6 -*- Autoconf -*-
-
-# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-# 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation,
-# Inc.
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-m4_ifndef([AC_AUTOCONF_VERSION],
- [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
-m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],,
-[m4_warning([this file was generated for autoconf 2.69.
-You have another version of autoconf. It may work, but is not guaranteed to.
-If you have problems, you may need to regenerate the build system entirely.
-To do so, use the procedure documented by the package, typically `autoreconf'.])])
-
-# Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008, 2011 Free Software
-# Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 1
-
-# AM_AUTOMAKE_VERSION(VERSION)
-# ----------------------------
-# Automake X.Y traces this macro to ensure aclocal.m4 has been
-# generated from the m4 files accompanying Automake X.Y.
-# (This private macro should not be called outside this file.)
-AC_DEFUN([AM_AUTOMAKE_VERSION],
-[am__api_version='1.11'
-dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to
-dnl require some minimum version. Point them to the right macro.
-m4_if([$1], [1.11.6], [],
- [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl
-])
-
-# _AM_AUTOCONF_VERSION(VERSION)
-# -----------------------------
-# aclocal traces this macro to find the Autoconf version.
-# This is a private macro too. Using m4_define simplifies
-# the logic in aclocal, which can simply ignore this definition.
-m4_define([_AM_AUTOCONF_VERSION], [])
-
-# AM_SET_CURRENT_AUTOMAKE_VERSION
-# -------------------------------
-# Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced.
-# This function is AC_REQUIREd by AM_INIT_AUTOMAKE.
-AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION],
-[AM_AUTOMAKE_VERSION([1.11.6])dnl
-m4_ifndef([AC_AUTOCONF_VERSION],
- [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
-_AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))])
-
-# AM_AUX_DIR_EXPAND -*- Autoconf -*-
-
-# Copyright (C) 2001, 2003, 2005, 2011 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 1
-
-# For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets
-# $ac_aux_dir to `$srcdir/foo'. In other projects, it is set to
-# `$srcdir', `$srcdir/..', or `$srcdir/../..'.
-#
-# Of course, Automake must honor this variable whenever it calls a
-# tool from the auxiliary directory. The problem is that $srcdir (and
-# therefore $ac_aux_dir as well) can be either absolute or relative,
-# depending on how configure is run. This is pretty annoying, since
-# it makes $ac_aux_dir quite unusable in subdirectories: in the top
-# source directory, any form will work fine, but in subdirectories a
-# relative path needs to be adjusted first.
-#
-# $ac_aux_dir/missing
-# fails when called from a subdirectory if $ac_aux_dir is relative
-# $top_srcdir/$ac_aux_dir/missing
-# fails if $ac_aux_dir is absolute,
-# fails when called from a subdirectory in a VPATH build with
-# a relative $ac_aux_dir
-#
-# The reason of the latter failure is that $top_srcdir and $ac_aux_dir
-# are both prefixed by $srcdir. In an in-source build this is usually
-# harmless because $srcdir is `.', but things will broke when you
-# start a VPATH build or use an absolute $srcdir.
-#
-# So we could use something similar to $top_srcdir/$ac_aux_dir/missing,
-# iff we strip the leading $srcdir from $ac_aux_dir. That would be:
-# am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"`
-# and then we would define $MISSING as
-# MISSING="\${SHELL} $am_aux_dir/missing"
-# This will work as long as MISSING is not called from configure, because
-# unfortunately $(top_srcdir) has no meaning in configure.
-# However there are other variables, like CC, which are often used in
-# configure, and could therefore not use this "fixed" $ac_aux_dir.
-#
-# Another solution, used here, is to always expand $ac_aux_dir to an
-# absolute PATH. The drawback is that using absolute paths prevent a
-# configured tree to be moved without reconfiguration.
-
-AC_DEFUN([AM_AUX_DIR_EXPAND],
-[dnl Rely on autoconf to set up CDPATH properly.
-AC_PREREQ([2.50])dnl
-# expand $ac_aux_dir to an absolute path
-am_aux_dir=`cd $ac_aux_dir && pwd`
-])
-
-# AM_CONDITIONAL -*- Autoconf -*-
-
-# Copyright (C) 1997, 2000, 2001, 2003, 2004, 2005, 2006, 2008
-# Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 9
-
-# AM_CONDITIONAL(NAME, SHELL-CONDITION)
-# -------------------------------------
-# Define a conditional.
-AC_DEFUN([AM_CONDITIONAL],
-[AC_PREREQ(2.52)dnl
- ifelse([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])],
- [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl
-AC_SUBST([$1_TRUE])dnl
-AC_SUBST([$1_FALSE])dnl
-_AM_SUBST_NOTMAKE([$1_TRUE])dnl
-_AM_SUBST_NOTMAKE([$1_FALSE])dnl
-m4_define([_AM_COND_VALUE_$1], [$2])dnl
-if $2; then
- $1_TRUE=
- $1_FALSE='#'
-else
- $1_TRUE='#'
- $1_FALSE=
-fi
-AC_CONFIG_COMMANDS_PRE(
-[if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then
- AC_MSG_ERROR([[conditional "$1" was never defined.
-Usually this means the macro was only invoked conditionally.]])
-fi])])
-
-# Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2009,
-# 2010, 2011 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 12
-
-# There are a few dirty hacks below to avoid letting `AC_PROG_CC' be
-# written in clear, in which case automake, when reading aclocal.m4,
-# will think it sees a *use*, and therefore will trigger all it's
-# C support machinery. Also note that it means that autoscan, seeing
-# CC etc. in the Makefile, will ask for an AC_PROG_CC use...
-
-
-# _AM_DEPENDENCIES(NAME)
-# ----------------------
-# See how the compiler implements dependency checking.
-# NAME is "CC", "CXX", "GCJ", or "OBJC".
-# We try a few techniques and use that to set a single cache variable.
-#
-# We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was
-# modified to invoke _AM_DEPENDENCIES(CC); we would have a circular
-# dependency, and given that the user is not expected to run this macro,
-# just rely on AC_PROG_CC.
-AC_DEFUN([_AM_DEPENDENCIES],
-[AC_REQUIRE([AM_SET_DEPDIR])dnl
-AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl
-AC_REQUIRE([AM_MAKE_INCLUDE])dnl
-AC_REQUIRE([AM_DEP_TRACK])dnl
-
-ifelse([$1], CC, [depcc="$CC" am_compiler_list=],
- [$1], CXX, [depcc="$CXX" am_compiler_list=],
- [$1], OBJC, [depcc="$OBJC" am_compiler_list='gcc3 gcc'],
- [$1], UPC, [depcc="$UPC" am_compiler_list=],
- [$1], GCJ, [depcc="$GCJ" am_compiler_list='gcc3 gcc'],
- [depcc="$$1" am_compiler_list=])
-
-AC_CACHE_CHECK([dependency style of $depcc],
- [am_cv_$1_dependencies_compiler_type],
-[if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
- # We make a subdir and do the tests there. Otherwise we can end up
- # making bogus files that we don't know about and never remove. For
- # instance it was reported that on HP-UX the gcc test will end up
- # making a dummy file named `D' -- because `-MD' means `put the output
- # in D'.
- rm -rf conftest.dir
- mkdir conftest.dir
- # Copy depcomp to subdir because otherwise we won't find it if we're
- # using a relative directory.
- cp "$am_depcomp" conftest.dir
- cd conftest.dir
- # We will build objects and dependencies in a subdirectory because
- # it helps to detect inapplicable dependency modes. For instance
- # both Tru64's cc and ICC support -MD to output dependencies as a
- # side effect of compilation, but ICC will put the dependencies in
- # the current directory while Tru64 will put them in the object
- # directory.
- mkdir sub
-
- am_cv_$1_dependencies_compiler_type=none
- if test "$am_compiler_list" = ""; then
- am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp`
- fi
- am__universal=false
- m4_case([$1], [CC],
- [case " $depcc " in #(
- *\ -arch\ *\ -arch\ *) am__universal=true ;;
- esac],
- [CXX],
- [case " $depcc " in #(
- *\ -arch\ *\ -arch\ *) am__universal=true ;;
- esac])
-
- for depmode in $am_compiler_list; do
- # Setup a source with many dependencies, because some compilers
- # like to wrap large dependency lists on column 80 (with \), and
- # we should not choose a depcomp mode which is confused by this.
- #
- # We need to recreate these files for each test, as the compiler may
- # overwrite some of them when testing with obscure command lines.
- # This happens at least with the AIX C compiler.
- : > sub/conftest.c
- for i in 1 2 3 4 5 6; do
- echo '#include "conftst'$i'.h"' >> sub/conftest.c
- # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with
- # Solaris 8's {/usr,}/bin/sh.
- touch sub/conftst$i.h
- done
- echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
-
- # We check with `-c' and `-o' for the sake of the "dashmstdout"
- # mode. It turns out that the SunPro C++ compiler does not properly
- # handle `-M -o', and we need to detect this. Also, some Intel
- # versions had trouble with output in subdirs
- am__obj=sub/conftest.${OBJEXT-o}
- am__minus_obj="-o $am__obj"
- case $depmode in
- gcc)
- # This depmode causes a compiler race in universal mode.
- test "$am__universal" = false || continue
- ;;
- nosideeffect)
- # after this tag, mechanisms are not by side-effect, so they'll
- # only be used when explicitly requested
- if test "x$enable_dependency_tracking" = xyes; then
- continue
- else
- break
- fi
- ;;
- msvc7 | msvc7msys | msvisualcpp | msvcmsys)
- # This compiler won't grok `-c -o', but also, the minuso test has
- # not run yet. These depmodes are late enough in the game, and
- # so weak that their functioning should not be impacted.
- am__obj=conftest.${OBJEXT-o}
- am__minus_obj=
- ;;
- none) break ;;
- esac
- if depmode=$depmode \
- source=sub/conftest.c object=$am__obj \
- depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
- $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
- >/dev/null 2>conftest.err &&
- grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
- grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
- grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
- ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
- # icc doesn't choke on unknown options, it will just issue warnings
- # or remarks (even with -Werror). So we grep stderr for any message
- # that says an option was ignored or not supported.
- # When given -MP, icc 7.0 and 7.1 complain thusly:
- # icc: Command line warning: ignoring option '-M'; no argument required
- # The diagnosis changed in icc 8.0:
- # icc: Command line remark: option '-MP' not supported
- if (grep 'ignoring option' conftest.err ||
- grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
- am_cv_$1_dependencies_compiler_type=$depmode
- break
- fi
- fi
- done
-
- cd ..
- rm -rf conftest.dir
-else
- am_cv_$1_dependencies_compiler_type=none
-fi
-])
-AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type])
-AM_CONDITIONAL([am__fastdep$1], [
- test "x$enable_dependency_tracking" != xno \
- && test "$am_cv_$1_dependencies_compiler_type" = gcc3])
-])
-
-
-# AM_SET_DEPDIR
-# -------------
-# Choose a directory name for dependency files.
-# This macro is AC_REQUIREd in _AM_DEPENDENCIES
-AC_DEFUN([AM_SET_DEPDIR],
-[AC_REQUIRE([AM_SET_LEADING_DOT])dnl
-AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl
-])
-
-
-# AM_DEP_TRACK
-# ------------
-AC_DEFUN([AM_DEP_TRACK],
-[AC_ARG_ENABLE(dependency-tracking,
-[ --disable-dependency-tracking speeds up one-time build
- --enable-dependency-tracking do not reject slow dependency extractors])
-if test "x$enable_dependency_tracking" != xno; then
- am_depcomp="$ac_aux_dir/depcomp"
- AMDEPBACKSLASH='\'
- am__nodep='_no'
-fi
-AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno])
-AC_SUBST([AMDEPBACKSLASH])dnl
-_AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl
-AC_SUBST([am__nodep])dnl
-_AM_SUBST_NOTMAKE([am__nodep])dnl
-])
-
-# Generate code to set up dependency tracking. -*- Autoconf -*-
-
-# Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2008
-# Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-#serial 5
-
-# _AM_OUTPUT_DEPENDENCY_COMMANDS
-# ------------------------------
-AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS],
-[{
- # Autoconf 2.62 quotes --file arguments for eval, but not when files
- # are listed without --file. Let's play safe and only enable the eval
- # if we detect the quoting.
- case $CONFIG_FILES in
- *\'*) eval set x "$CONFIG_FILES" ;;
- *) set x $CONFIG_FILES ;;
- esac
- shift
- for mf
- do
- # Strip MF so we end up with the name of the file.
- mf=`echo "$mf" | sed -e 's/:.*$//'`
- # Check whether this is an Automake generated Makefile or not.
- # We used to match only the files named `Makefile.in', but
- # some people rename them; so instead we look at the file content.
- # Grep'ing the first line is not enough: some people post-process
- # each Makefile.in and add a new line on top of each file to say so.
- # Grep'ing the whole file is not good either: AIX grep has a line
- # limit of 2048, but all sed's we know have understand at least 4000.
- if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then
- dirpart=`AS_DIRNAME("$mf")`
- else
- continue
- fi
- # Extract the definition of DEPDIR, am__include, and am__quote
- # from the Makefile without running `make'.
- DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"`
- test -z "$DEPDIR" && continue
- am__include=`sed -n 's/^am__include = //p' < "$mf"`
- test -z "am__include" && continue
- am__quote=`sed -n 's/^am__quote = //p' < "$mf"`
- # When using ansi2knr, U may be empty or an underscore; expand it
- U=`sed -n 's/^U = //p' < "$mf"`
- # Find all dependency output files, they are included files with
- # $(DEPDIR) in their names. We invoke sed twice because it is the
- # simplest approach to changing $(DEPDIR) to its actual value in the
- # expansion.
- for file in `sed -n "
- s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \
- sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do
- # Make sure the directory exists.
- test -f "$dirpart/$file" && continue
- fdir=`AS_DIRNAME(["$file"])`
- AS_MKDIR_P([$dirpart/$fdir])
- # echo "creating $dirpart/$file"
- echo '# dummy' > "$dirpart/$file"
- done
- done
-}
-])# _AM_OUTPUT_DEPENDENCY_COMMANDS
-
-
-# AM_OUTPUT_DEPENDENCY_COMMANDS
-# -----------------------------
-# This macro should only be invoked once -- use via AC_REQUIRE.
-#
-# This code is only required when automatic dependency tracking
-# is enabled. FIXME. This creates each `.P' file that we will
-# need in order to bootstrap the dependency handling code.
-AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS],
-[AC_CONFIG_COMMANDS([depfiles],
- [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS],
- [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"])
-])
-
-# Do all the work for Automake. -*- Autoconf -*-
-
-# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-# 2005, 2006, 2008, 2009 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 16
-
-# This macro actually does too much. Some checks are only needed if
-# your package does certain things. But this isn't really a big deal.
-
-# AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE])
-# AM_INIT_AUTOMAKE([OPTIONS])
-# -----------------------------------------------
-# The call with PACKAGE and VERSION arguments is the old style
-# call (pre autoconf-2.50), which is being phased out. PACKAGE
-# and VERSION should now be passed to AC_INIT and removed from
-# the call to AM_INIT_AUTOMAKE.
-# We support both call styles for the transition. After
-# the next Automake release, Autoconf can make the AC_INIT
-# arguments mandatory, and then we can depend on a new Autoconf
-# release and drop the old call support.
-AC_DEFUN([AM_INIT_AUTOMAKE],
-[AC_PREREQ([2.62])dnl
-dnl Autoconf wants to disallow AM_ names. We explicitly allow
-dnl the ones we care about.
-m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl
-AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl
-AC_REQUIRE([AC_PROG_INSTALL])dnl
-if test "`cd $srcdir && pwd`" != "`pwd`"; then
- # Use -I$(srcdir) only when $(srcdir) != ., so that make's output
- # is not polluted with repeated "-I."
- AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl
- # test to see if srcdir already configured
- if test -f $srcdir/config.status; then
- AC_MSG_ERROR([source directory already configured; run "make distclean" there first])
- fi
-fi
-
-# test whether we have cygpath
-if test -z "$CYGPATH_W"; then
- if (cygpath --version) >/dev/null 2>/dev/null; then
- CYGPATH_W='cygpath -w'
- else
- CYGPATH_W=echo
- fi
-fi
-AC_SUBST([CYGPATH_W])
-
-# Define the identity of the package.
-dnl Distinguish between old-style and new-style calls.
-m4_ifval([$2],
-[m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl
- AC_SUBST([PACKAGE], [$1])dnl
- AC_SUBST([VERSION], [$2])],
-[_AM_SET_OPTIONS([$1])dnl
-dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT.
-m4_if(m4_ifdef([AC_PACKAGE_NAME], 1)m4_ifdef([AC_PACKAGE_VERSION], 1), 11,,
- [m4_fatal([AC_INIT should be called with package and version arguments])])dnl
- AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl
- AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl
-
-_AM_IF_OPTION([no-define],,
-[AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package])
- AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])])dnl
-
-# Some tools Automake needs.
-AC_REQUIRE([AM_SANITY_CHECK])dnl
-AC_REQUIRE([AC_ARG_PROGRAM])dnl
-AM_MISSING_PROG(ACLOCAL, aclocal-${am__api_version})
-AM_MISSING_PROG(AUTOCONF, autoconf)
-AM_MISSING_PROG(AUTOMAKE, automake-${am__api_version})
-AM_MISSING_PROG(AUTOHEADER, autoheader)
-AM_MISSING_PROG(MAKEINFO, makeinfo)
-AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
-AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl
-AC_REQUIRE([AM_PROG_MKDIR_P])dnl
-# We need awk for the "check" target. The system "awk" is bad on
-# some platforms.
-AC_REQUIRE([AC_PROG_AWK])dnl
-AC_REQUIRE([AC_PROG_MAKE_SET])dnl
-AC_REQUIRE([AM_SET_LEADING_DOT])dnl
-_AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])],
- [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])],
- [_AM_PROG_TAR([v7])])])
-_AM_IF_OPTION([no-dependencies],,
-[AC_PROVIDE_IFELSE([AC_PROG_CC],
- [_AM_DEPENDENCIES(CC)],
- [define([AC_PROG_CC],
- defn([AC_PROG_CC])[_AM_DEPENDENCIES(CC)])])dnl
-AC_PROVIDE_IFELSE([AC_PROG_CXX],
- [_AM_DEPENDENCIES(CXX)],
- [define([AC_PROG_CXX],
- defn([AC_PROG_CXX])[_AM_DEPENDENCIES(CXX)])])dnl
-AC_PROVIDE_IFELSE([AC_PROG_OBJC],
- [_AM_DEPENDENCIES(OBJC)],
- [define([AC_PROG_OBJC],
- defn([AC_PROG_OBJC])[_AM_DEPENDENCIES(OBJC)])])dnl
-])
-_AM_IF_OPTION([silent-rules], [AC_REQUIRE([AM_SILENT_RULES])])dnl
-dnl The `parallel-tests' driver may need to know about EXEEXT, so add the
-dnl `am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This macro
-dnl is hooked onto _AC_COMPILER_EXEEXT early, see below.
-AC_CONFIG_COMMANDS_PRE(dnl
-[m4_provide_if([_AM_COMPILER_EXEEXT],
- [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl
-])
-
-dnl Hook into `_AC_COMPILER_EXEEXT' early to learn its expansion. Do not
-dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further
-dnl mangled by Autoconf and run in a shell conditional statement.
-m4_define([_AC_COMPILER_EXEEXT],
-m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])])
-
-
-# When config.status generates a header, we must update the stamp-h file.
-# This file resides in the same directory as the config header
-# that is generated. The stamp files are numbered to have different names.
-
-# Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the
-# loop where config.status creates the headers, so we can generate
-# our stamp files there.
-AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK],
-[# Compute $1's index in $config_headers.
-_am_arg=$1
-_am_stamp_count=1
-for _am_header in $config_headers :; do
- case $_am_header in
- $_am_arg | $_am_arg:* )
- break ;;
- * )
- _am_stamp_count=`expr $_am_stamp_count + 1` ;;
- esac
-done
-echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count])
-
-# Copyright (C) 2001, 2003, 2005, 2008, 2011 Free Software Foundation,
-# Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 1
-
-# AM_PROG_INSTALL_SH
-# ------------------
-# Define $install_sh.
-AC_DEFUN([AM_PROG_INSTALL_SH],
-[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-if test x"${install_sh}" != xset; then
- case $am_aux_dir in
- *\ * | *\ *)
- install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
- *)
- install_sh="\${SHELL} $am_aux_dir/install-sh"
- esac
-fi
-AC_SUBST(install_sh)])
-
-# Copyright (C) 2003, 2005 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 2
-
-# Check whether the underlying file-system supports filenames
-# with a leading dot. For instance MS-DOS doesn't.
-AC_DEFUN([AM_SET_LEADING_DOT],
-[rm -rf .tst 2>/dev/null
-mkdir .tst 2>/dev/null
-if test -d .tst; then
- am__leading_dot=.
-else
- am__leading_dot=_
-fi
-rmdir .tst 2>/dev/null
-AC_SUBST([am__leading_dot])])
-
-# Check to see how 'make' treats includes. -*- Autoconf -*-
-
-# Copyright (C) 2001, 2002, 2003, 2005, 2009 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 4
-
-# AM_MAKE_INCLUDE()
-# -----------------
-# Check to see how make treats includes.
-AC_DEFUN([AM_MAKE_INCLUDE],
-[am_make=${MAKE-make}
-cat > confinc << 'END'
-am__doit:
- @echo this is the am__doit target
-.PHONY: am__doit
-END
-# If we don't find an include directive, just comment out the code.
-AC_MSG_CHECKING([for style of include used by $am_make])
-am__include="#"
-am__quote=
-_am_result=none
-# First try GNU make style include.
-echo "include confinc" > confmf
-# Ignore all kinds of additional output from `make'.
-case `$am_make -s -f confmf 2> /dev/null` in #(
-*the\ am__doit\ target*)
- am__include=include
- am__quote=
- _am_result=GNU
- ;;
-esac
-# Now try BSD make style include.
-if test "$am__include" = "#"; then
- echo '.include "confinc"' > confmf
- case `$am_make -s -f confmf 2> /dev/null` in #(
- *the\ am__doit\ target*)
- am__include=.include
- am__quote="\""
- _am_result=BSD
- ;;
- esac
-fi
-AC_SUBST([am__include])
-AC_SUBST([am__quote])
-AC_MSG_RESULT([$_am_result])
-rm -f confinc confmf
-])
-
-# Copyright (C) 1999, 2000, 2001, 2003, 2004, 2005, 2008
-# Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 6
-
-# AM_PROG_CC_C_O
-# --------------
-# Like AC_PROG_CC_C_O, but changed for automake.
-AC_DEFUN([AM_PROG_CC_C_O],
-[AC_REQUIRE([AC_PROG_CC_C_O])dnl
-AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-AC_REQUIRE_AUX_FILE([compile])dnl
-# FIXME: we rely on the cache variable name because
-# there is no other way.
-set dummy $CC
-am_cc=`echo $[2] | sed ['s/[^a-zA-Z0-9_]/_/g;s/^[0-9]/_/']`
-eval am_t=\$ac_cv_prog_cc_${am_cc}_c_o
-if test "$am_t" != yes; then
- # Losing compiler, so override with the script.
- # FIXME: It is wrong to rewrite CC.
- # But if we don't then we get into trouble of one sort or another.
- # A longer-term fix would be to have automake use am__CC in this case,
- # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)"
- CC="$am_aux_dir/compile $CC"
-fi
-dnl Make sure AC_PROG_CC is never called again, or it will override our
-dnl setting of CC.
-m4_define([AC_PROG_CC],
- [m4_fatal([AC_PROG_CC cannot be called after AM_PROG_CC_C_O])])
-])
-
-# Fake the existence of programs that GNU maintainers use. -*- Autoconf -*-
-
-# Copyright (C) 1997, 1999, 2000, 2001, 2003, 2004, 2005, 2008
-# Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 6
-
-# AM_MISSING_PROG(NAME, PROGRAM)
-# ------------------------------
-AC_DEFUN([AM_MISSING_PROG],
-[AC_REQUIRE([AM_MISSING_HAS_RUN])
-$1=${$1-"${am_missing_run}$2"}
-AC_SUBST($1)])
-
-
-# AM_MISSING_HAS_RUN
-# ------------------
-# Define MISSING if not defined so far and test if it supports --run.
-# If it does, set am_missing_run to use it, otherwise, to nothing.
-AC_DEFUN([AM_MISSING_HAS_RUN],
-[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl
-AC_REQUIRE_AUX_FILE([missing])dnl
-if test x"${MISSING+set}" != xset; then
- case $am_aux_dir in
- *\ * | *\ *)
- MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;;
- *)
- MISSING="\${SHELL} $am_aux_dir/missing" ;;
- esac
-fi
-# Use eval to expand $SHELL
-if eval "$MISSING --run true"; then
- am_missing_run="$MISSING --run "
-else
- am_missing_run=
- AC_MSG_WARN([`missing' script is too old or missing])
-fi
-])
-
-# Copyright (C) 2003, 2004, 2005, 2006, 2011 Free Software Foundation,
-# Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 1
-
-# AM_PROG_MKDIR_P
-# ---------------
-# Check for `mkdir -p'.
-AC_DEFUN([AM_PROG_MKDIR_P],
-[AC_PREREQ([2.60])dnl
-AC_REQUIRE([AC_PROG_MKDIR_P])dnl
-dnl Automake 1.8 to 1.9.6 used to define mkdir_p. We now use MKDIR_P,
-dnl while keeping a definition of mkdir_p for backward compatibility.
-dnl @MKDIR_P@ is magic: AC_OUTPUT adjusts its value for each Makefile.
-dnl However we cannot define mkdir_p as $(MKDIR_P) for the sake of
-dnl Makefile.ins that do not define MKDIR_P, so we do our own
-dnl adjustment using top_builddir (which is defined more often than
-dnl MKDIR_P).
-AC_SUBST([mkdir_p], ["$MKDIR_P"])dnl
-case $mkdir_p in
- [[\\/$]]* | ?:[[\\/]]*) ;;
- */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;;
-esac
-])
-
-# Helper functions for option handling. -*- Autoconf -*-
-
-# Copyright (C) 2001, 2002, 2003, 2005, 2008, 2010 Free Software
-# Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 5
-
-# _AM_MANGLE_OPTION(NAME)
-# -----------------------
-AC_DEFUN([_AM_MANGLE_OPTION],
-[[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])])
-
-# _AM_SET_OPTION(NAME)
-# --------------------
-# Set option NAME. Presently that only means defining a flag for this option.
-AC_DEFUN([_AM_SET_OPTION],
-[m4_define(_AM_MANGLE_OPTION([$1]), 1)])
-
-# _AM_SET_OPTIONS(OPTIONS)
-# ------------------------
-# OPTIONS is a space-separated list of Automake options.
-AC_DEFUN([_AM_SET_OPTIONS],
-[m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])])
-
-# _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET])
-# -------------------------------------------
-# Execute IF-SET if OPTION is set, IF-NOT-SET otherwise.
-AC_DEFUN([_AM_IF_OPTION],
-[m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])])
-
-# Check to make sure that the build environment is sane. -*- Autoconf -*-
-
-# Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005, 2008
-# Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 5
-
-# AM_SANITY_CHECK
-# ---------------
-AC_DEFUN([AM_SANITY_CHECK],
-[AC_MSG_CHECKING([whether build environment is sane])
-# Just in case
-sleep 1
-echo timestamp > conftest.file
-# Reject unsafe characters in $srcdir or the absolute working directory
-# name. Accept space and tab only in the latter.
-am_lf='
-'
-case `pwd` in
- *[[\\\"\#\$\&\'\`$am_lf]]*)
- AC_MSG_ERROR([unsafe absolute working directory name]);;
-esac
-case $srcdir in
- *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*)
- AC_MSG_ERROR([unsafe srcdir value: `$srcdir']);;
-esac
-
-# Do `set' in a subshell so we don't clobber the current shell's
-# arguments. Must try -L first in case configure is actually a
-# symlink; some systems play weird games with the mod time of symlinks
-# (eg FreeBSD returns the mod time of the symlink's containing
-# directory).
-if (
- set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
- if test "$[*]" = "X"; then
- # -L didn't work.
- set X `ls -t "$srcdir/configure" conftest.file`
- fi
- rm -f conftest.file
- if test "$[*]" != "X $srcdir/configure conftest.file" \
- && test "$[*]" != "X conftest.file $srcdir/configure"; then
-
- # If neither matched, then we have a broken ls. This can happen
- # if, for instance, CONFIG_SHELL is bash and it inherits a
- # broken ls alias from the environment. This has actually
- # happened. Such a system could not be considered "sane".
- AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken
-alias in your environment])
- fi
-
- test "$[2]" = conftest.file
- )
-then
- # Ok.
- :
-else
- AC_MSG_ERROR([newly created file is older than distributed files!
-Check your system clock])
-fi
-AC_MSG_RESULT(yes)])
-
-# Copyright (C) 2001, 2003, 2005, 2011 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 1
-
-# AM_PROG_INSTALL_STRIP
-# ---------------------
-# One issue with vendor `install' (even GNU) is that you can't
-# specify the program used to strip binaries. This is especially
-# annoying in cross-compiling environments, where the build's strip
-# is unlikely to handle the host's binaries.
-# Fortunately install-sh will honor a STRIPPROG variable, so we
-# always use install-sh in `make install-strip', and initialize
-# STRIPPROG with the value of the STRIP variable (set by the user).
-AC_DEFUN([AM_PROG_INSTALL_STRIP],
-[AC_REQUIRE([AM_PROG_INSTALL_SH])dnl
-# Installed binaries are usually stripped using `strip' when the user
-# run `make install-strip'. However `strip' might not be the right
-# tool to use in cross-compilation environments, therefore Automake
-# will honor the `STRIP' environment variable to overrule this program.
-dnl Don't test for $cross_compiling = yes, because it might be `maybe'.
-if test "$cross_compiling" != no; then
- AC_CHECK_TOOL([STRIP], [strip], :)
-fi
-INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
-AC_SUBST([INSTALL_STRIP_PROGRAM])])
-
-# Copyright (C) 2006, 2008, 2010 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 3
-
-# _AM_SUBST_NOTMAKE(VARIABLE)
-# ---------------------------
-# Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in.
-# This macro is traced by Automake.
-AC_DEFUN([_AM_SUBST_NOTMAKE])
-
-# AM_SUBST_NOTMAKE(VARIABLE)
-# --------------------------
-# Public sister of _AM_SUBST_NOTMAKE.
-AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)])
-
-# Check how to create a tarball. -*- Autoconf -*-
-
-# Copyright (C) 2004, 2005, 2012 Free Software Foundation, Inc.
-#
-# This file is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# serial 2
-
-# _AM_PROG_TAR(FORMAT)
-# --------------------
-# Check how to create a tarball in format FORMAT.
-# FORMAT should be one of `v7', `ustar', or `pax'.
-#
-# Substitute a variable $(am__tar) that is a command
-# writing to stdout a FORMAT-tarball containing the directory
-# $tardir.
-# tardir=directory && $(am__tar) > result.tar
-#
-# Substitute a variable $(am__untar) that extract such
-# a tarball read from stdin.
-# $(am__untar) < result.tar
-AC_DEFUN([_AM_PROG_TAR],
-[# Always define AMTAR for backward compatibility. Yes, it's still used
-# in the wild :-( We should find a proper way to deprecate it ...
-AC_SUBST([AMTAR], ['$${TAR-tar}'])
-m4_if([$1], [v7],
- [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'],
- [m4_case([$1], [ustar],, [pax],,
- [m4_fatal([Unknown tar format])])
-AC_MSG_CHECKING([how to create a $1 tar archive])
-# Loop over all known methods to create a tar archive until one works.
-_am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none'
-_am_tools=${am_cv_prog_tar_$1-$_am_tools}
-# Do not fold the above two line into one, because Tru64 sh and
-# Solaris sh will not grok spaces in the rhs of `-'.
-for _am_tool in $_am_tools
-do
- case $_am_tool in
- gnutar)
- for _am_tar in tar gnutar gtar;
- do
- AM_RUN_LOG([$_am_tar --version]) && break
- done
- am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"'
- am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"'
- am__untar="$_am_tar -xf -"
- ;;
- plaintar)
- # Must skip GNU tar: if it does not support --format= it doesn't create
- # ustar tarball either.
- (tar --version) >/dev/null 2>&1 && continue
- am__tar='tar chf - "$$tardir"'
- am__tar_='tar chf - "$tardir"'
- am__untar='tar xf -'
- ;;
- pax)
- am__tar='pax -L -x $1 -w "$$tardir"'
- am__tar_='pax -L -x $1 -w "$tardir"'
- am__untar='pax -r'
- ;;
- cpio)
- am__tar='find "$$tardir" -print | cpio -o -H $1 -L'
- am__tar_='find "$tardir" -print | cpio -o -H $1 -L'
- am__untar='cpio -i -H $1 -d'
- ;;
- none)
- am__tar=false
- am__tar_=false
- am__untar=false
- ;;
- esac
-
- # If the value was cached, stop now. We just wanted to have am__tar
- # and am__untar set.
- test -n "${am_cv_prog_tar_$1}" && break
-
- # tar/untar a dummy directory, and stop if the command works
- rm -rf conftest.dir
- mkdir conftest.dir
- echo GrepMe > conftest.dir/file
- AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar])
- rm -rf conftest.dir
- if test -s conftest.tar; then
- AM_RUN_LOG([$am__untar <conftest.tar])
- grep GrepMe conftest.dir/file >/dev/null 2>&1 && break
- fi
-done
-rm -rf conftest.dir
-
-AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool])
-AC_MSG_RESULT([$am_cv_prog_tar_$1])])
-AC_SUBST([am__tar])
-AC_SUBST([am__untar])
-]) # _AM_PROG_TAR
-
-m4_include([m4/00gnulib.m4])
-m4_include([m4/alloca.m4])
-m4_include([m4/c-strtod.m4])
-m4_include([m4/clock_time.m4])
-m4_include([m4/dup2.m4])
-m4_include([m4/environ.m4])
-m4_include([m4/execinfo.m4])
-m4_include([m4/extensions.m4])
-m4_include([m4/extern-inline.m4])
-m4_include([m4/filemode.m4])
-m4_include([m4/getloadavg.m4])
-m4_include([m4/getopt.m4])
-m4_include([m4/gettime.m4])
-m4_include([m4/gettimeofday.m4])
-m4_include([m4/gnulib-common.m4])
-m4_include([m4/gnulib-comp.m4])
-m4_include([m4/include_next.m4])
-m4_include([m4/inttypes.m4])
-m4_include([m4/largefile.m4])
-m4_include([m4/longlong.m4])
-m4_include([m4/lstat.m4])
-m4_include([m4/manywarnings.m4])
-m4_include([m4/md5.m4])
-m4_include([m4/mktime.m4])
-m4_include([m4/multiarch.m4])
-m4_include([m4/nocrash.m4])
-m4_include([m4/off_t.m4])
-m4_include([m4/pathmax.m4])
-m4_include([m4/pselect.m4])
-m4_include([m4/pthread_sigmask.m4])
-m4_include([m4/readlink.m4])
-m4_include([m4/sha1.m4])
-m4_include([m4/sha256.m4])
-m4_include([m4/sha512.m4])
-m4_include([m4/signal_h.m4])
-m4_include([m4/socklen.m4])
-m4_include([m4/ssize_t.m4])
-m4_include([m4/st_dm_mode.m4])
-m4_include([m4/stat-time.m4])
-m4_include([m4/stat.m4])
-m4_include([m4/stdalign.m4])
-m4_include([m4/stdarg.m4])
-m4_include([m4/stdbool.m4])
-m4_include([m4/stddef_h.m4])
-m4_include([m4/stdint.m4])
-m4_include([m4/stdio_h.m4])
-m4_include([m4/stdlib_h.m4])
-m4_include([m4/strftime.m4])
-m4_include([m4/strtoimax.m4])
-m4_include([m4/strtoll.m4])
-m4_include([m4/strtoull.m4])
-m4_include([m4/strtoumax.m4])
-m4_include([m4/symlink.m4])
-m4_include([m4/sys_select_h.m4])
-m4_include([m4/sys_socket_h.m4])
-m4_include([m4/sys_stat_h.m4])
-m4_include([m4/sys_time_h.m4])
-m4_include([m4/time_h.m4])
-m4_include([m4/time_r.m4])
-m4_include([m4/timer_time.m4])
-m4_include([m4/timespec.m4])
-m4_include([m4/tm_gmtoff.m4])
-m4_include([m4/unistd_h.m4])
-m4_include([m4/utimbuf.m4])
-m4_include([m4/utimens.m4])
-m4_include([m4/utimes.m4])
-m4_include([m4/warnings.m4])
-m4_include([m4/wchar_t.m4])
--- /dev/null
+*.elc
+unidata.txt
+
+++ /dev/null
-# Makefile -- Makefile to generate character property tables.
-
-# Copyright (C) 2012-2013 Free Software Foundation, Inc.
-
-# Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010, 2011
-# National Institute of Advanced Industrial Science and Technology (AIST)
-# Registration Number H13PRO009
-#
-# This file is part of GNU Emacs.
-
-# GNU Emacs is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-
-# GNU Emacs is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-
-# You should have received a copy of the GNU General Public License
-# along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-
-SHELL = /bin/sh
-
-srcdir = /misc/emacs/bzr/emacs24-merge/admin/unidata
-abs_builddir = /misc/emacs/bzr/emacs24-merge/admin/unidata
-top_srcdir = /misc/emacs/bzr/emacs24-merge
-abs_top_builddir = /misc/emacs/bzr/emacs24-merge
-
-EMACS = ${abs_top_builddir}/src/emacs
-DSTDIR = ${top_srcdir}/lisp/international
-emacs = ${EMACS} -batch --no-site-file --no-site-lisp
-
-all: ${DSTDIR}/charprop.el
-
-.el.elc:
- ${emacs} -f batch-byte-compile $<
-
-unidata.txt: ${srcdir}/UnicodeData.txt
- sed -e 's/\([^;]*\);\(.*\)/(#x\1 "\2")/' -e 's/;/" "/g' < ${srcdir}/UnicodeData.txt > $@
-
-${DSTDIR}/charprop.el: ${srcdir}/unidata-gen.elc unidata.txt
- cd ${DSTDIR} && ${emacs} -l ${srcdir}/unidata-gen \
- -f unidata-gen-files ${srcdir} ${abs_builddir}/unidata.txt
-
-## Like the above, but generate in PWD rather than lisp/international.
-charprop.el: ${srcdir}/unidata-gen.elc unidata.txt
- ${emacs} -l ${srcdir}/unidata-gen \
- -f unidata-gen-files ${srcdir} unidata.txt
-
-install: charprop.el
- cp charprop.el ${DSTDIR}
- cp `sed -n 's/^;; FILE: //p' < charprop.el` ${DSTDIR}
-
-clean:
- if test -f charprop.el; then \
- rm -f `sed -n 's/^;; FILE: //p' < charprop.el`; \
- fi
- rm -f charprop.el ${srcdir}/unidata-gen.elc unidata.txt
-
-distclean: clean
- -rm -f ./Makefile
-
-maintainer-clean: distclean
-# Makefile.in generated by automake 1.11.6 from Makefile.am.
+# Makefile.in generated by automake 1.11.1 from Makefile.am.
# @configure_input@
# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software
-# Foundation, Inc.
+# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
+# Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# Reproduce by: gnulib-tool --import --dir=. --lib=libgnu --source-base=lib --m4-base=m4 --doc-base=doc --tests-base=tests --aux-dir=build-aux --avoid=errno --avoid=fcntl --avoid=fcntl-h --avoid=fstat --avoid=msvc-inval --avoid=msvc-nothrow --avoid=raise --avoid=select --avoid=sigprocmask --avoid=sys_types --avoid=threadlib --makefile-name=gnulib.mk --conditional-dependencies --no-libtool --macro-prefix=gl --no-vc-files alloca-opt c-ctype c-strcase careadlinkat crypto/md5 crypto/sha1 crypto/sha256 crypto/sha512 dtoastr dtotimespec dup2 environ execinfo filemode getloadavg getopt-gnu gettime gettimeofday ignore-value intprops largefile lstat manywarnings mktime pselect pthread_sigmask readlink socklen stat-time stdalign stdarg stdbool stdio strftime strtoimax strtoumax symlink sys_stat sys_time time timer-time timespec-add timespec-sub utimens warnings
VPATH = @srcdir@
-am__make_dryrun = \
- { \
- am__dry=no; \
- case $$MAKEFLAGS in \
- *\\[\ \ ]*) \
- echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \
- | grep '^AM OK$$' >/dev/null || am__dry=yes;; \
- *) \
- for am__flg in $$MAKEFLAGS; do \
- case $$am__flg in \
- *=*|--*) ;; \
- *n*) am__dry=yes; break;; \
- esac; \
- done;; \
- esac; \
- test $$am__dry = yes; \
- }
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@
SOURCES = $(libgnu_a_SOURCES) $(EXTRA_libgnu_a_SOURCES)
DIST_SOURCES = $(am__libgnu_a_SOURCES_DIST) $(EXTRA_libgnu_a_SOURCES)
-am__can_run_installinfo = \
- case $$AM_UPDATE_INFO_DIR in \
- n|no|NO) false;; \
- *) (install-info --version) >/dev/null 2>&1;; \
- esac
ETAGS = etags
CTAGS = ctags
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
-$(srcdir)/gnulib.mk:
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
clean-noinstLIBRARIES:
-test -z "$(noinst_LIBRARIES)" || rm -f $(noinst_LIBRARIES)
-libgnu.a: $(libgnu_a_OBJECTS) $(libgnu_a_DEPENDENCIES) $(EXTRA_libgnu_a_DEPENDENCIES)
+libgnu.a: $(libgnu_a_OBJECTS) $(libgnu_a_DEPENDENCIES)
-rm -f libgnu.a
$(libgnu_a_AR) libgnu.a $(libgnu_a_OBJECTS) $(libgnu_a_LIBADD)
$(RANLIB) libgnu.a
installcheck: installcheck-am
install-strip:
- if test -z '$(STRIP)'; then \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- install; \
- else \
- $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
- install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
- "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
- fi
+ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
+ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
+ `test -z '$(STRIP)' || \
+ echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
--- /dev/null
+This directory contains some pre-built generated files.
+Most people do not need to use these files - instead you should
+generate them yourself using eg `autogen.sh'.
+
+File: Destination: Created by:
+configure ../ autoconf
+config.in ../src autoheader * also used by MSDOS bzr build
+aclocal.m4 ../ aclocal
+Makefile.in ../lib automake
+compile ../build-aux automake
+config.guess ../build-aux automake
+config.sub ../build-aux automake
+depcomp ../build-aux automake
+install-sh ../build-aux automake
+missing ../build-aux automake
+
+There are also some scripts:
+
+copy_autogen - copy pre-built generated files into place
+update_autogen - regenerate generated files (for maintainers)
/* Short copyright string for this version of Emacs. */
#undef COPYRIGHT
-/* Define to one of `_getb67', `GETB67', `getb67' for Cray-2 and Cray-YMP
- systems. This function is required for `alloca.c' support on those systems.
+/* Define to one of '_getb67', 'GETB67', 'getb67' for Cray-2 and Cray-YMP
+ systems. This function is required for 'alloca.c' support on those systems.
*/
#undef CRAY_STACKSEG_END
/* Define if the system is Cygwin. */
#undef CYGWIN
-/* Define to 1 if using `alloca.c'. */
+/* Define to 1 if using 'alloca.c'. */
#undef C_ALLOCA
/* Define if the system is Darwin. */
/* If using the C implementation of alloca, define if you know the
direction of stack growth for your system; otherwise it will be
automatically deduced at runtime.
- STACK_DIRECTION > 0 => grows toward higher addresses
- STACK_DIRECTION < 0 => grows toward lower addresses
- STACK_DIRECTION = 0 => direction of growth unknown */
+ STACK_DIRECTION > 0 => grows toward higher addresses
+ STACK_DIRECTION < 0 => grows toward lower addresses
+ STACK_DIRECTION = 0 => direction of growth unknown */
#undef STACK_DIRECTION
/* Define to 1 if the `S_IS*' macros in <sys/stat.h> do not work properly. */
/* Define if the system is AIX. */
#undef _AIX
-/* Enable large inode numbers on Mac OS X 10.5. */
+/* Enable large inode numbers on Mac OS X. */
#ifndef _DARWIN_USE_64_BIT_INODE
# define _DARWIN_USE_64_BIT_INODE 1
#endif
--- /dev/null
+#!/bin/sh
+
+## Helper script for those building Emacs from bzr without autoconf etc.
+## This installs some pre-generated versions of the automatically
+## generated files. It is highly recommended to install the necessary
+## tools instead of using this. Note that if eg configure.ac
+## is updated, the next time you run make it will attempt to
+## regenerate configure and will fail if you do not have the required
+## tools. You will have to run this script again.
+
+test ! -d autogen || cd autogen || exit
+
+if test ! -e config.in; then
+ echo "Cannot find autogen/ directory."
+ exit 1
+fi
+
+## Order implied by top-level Makefile's rules, for time-stamps.
+cp -f compile config.guess config.sub depcomp install-sh missing \
+ ../build-aux &&
+cp aclocal.m4 ../ &&
+cp configure ../ &&
+touch ../src/stamp-h.in &&
+cp config.in ../src/ &&
+cp Makefile.in ../lib/ &&
+
+echo "You can now run configure"
--- /dev/null
+#!/bin/bash
+### update_autogen - update the generated files in Emacs autogen/ directory
+
+## Copyright (C) 2011-2013 Free Software Foundation, Inc.
+
+## Author: Glenn Morris <rgm@gnu.org>
+
+## This file is part of GNU Emacs.
+
+## GNU Emacs is free software: you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation, either version 3 of the License, or
+## (at your option) any later version.
+
+## GNU Emacs is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+## GNU General Public License for more details.
+
+## You should have received a copy of the GNU General Public License
+## along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+### Commentary:
+
+## This is a helper script to update the pre-built generated files in
+## the autogen/ directory. This is suitable for running from cron.
+## Only Emacs maintainers need use this, so it uses bash features.
+##
+## With the -l option, it also updates the versioned loaddefs-like
+## files in lisp/. These include ldefs-boot, cl-loaddefs, rmail, etc.
+
+### Code:
+
+die () # write error to stderr and exit
+{
+ [ $# -gt 0 ] && echo "$PN: $@" >&2
+ exit 1
+}
+
+PN=${0##*/} # basename of script
+PD=${0%/*}
+
+[ "$PD" = "$0" ] && PD=. # if PATH includes PWD
+
+## This should be the autogen directory.
+cd $PD
+cd ../
+[ -d autogen ] || die "Could not locate autogen directory"
+
+
+usage ()
+{
+ cat 1>&2 <<EOF
+Usage: ${PN} [-f] [-c] [-q] [-l [-L]] [-C] [-- make-flags]
+Update the generated files in the Emacs autogen/ directory.
+Options:
+-f: force an update even if the source files are locally modified.
+-c: if the update succeeds and the generated files are modified,
+ commit them (caution).
+-q: be quiet; only give error messages, not status messages.
+-l: also update the versioned loaddefs-like files in lisp/.
+This requires a build. Passes any non-option args to make (eg -- -j2).
+-L: also update ldefs-boot.el.
+-C: start from a clean state. Slower, but more correct.
+EOF
+ exit 1
+}
+
+
+## Defaults.
+
+force=
+commit=
+quiet=
+clean=
+ldefs_flag=
+lboot_flag=
+
+## Parameters.
+ldefs_in=lisp/loaddefs.el
+ldefs_out=lisp/ldefs-boot.el
+sources="configure.ac lib/Makefile.am"
+genfiles="
+ configure aclocal.m4 src/config.in lib/Makefile.in
+ build-aux/compile build-aux/config.guess build-aux/config.sub
+ build-aux/depcomp build-aux/install-sh build-aux/missing
+"
+
+for g in $genfiles; do
+ basegen="$basegen ${g##*/}"
+done
+
+[ "$basegen" ] || die "internal error"
+
+tempfile=/tmp/$PN.$$
+
+trap "rm -f $tempfile 2> /dev/null" EXIT
+
+
+while getopts ":hcflqCL" option ; do
+ case $option in
+ (h) usage ;;
+
+ (c) commit=1 ;;
+
+ (f) force=1 ;;
+
+ (l) ldefs_flag=1 ;;
+
+ (q) quiet=1 ;;
+
+ (C) clean=1 ;;
+
+ (L) lboot_flag=1 ;;
+
+ (\?) die "Bad option -$OPTARG" ;;
+
+ (:) die "Option -$OPTARG requires an argument" ;;
+
+ (*) die "getopts error" ;;
+ esac
+done
+shift $(( --OPTIND ))
+OPTIND=1
+
+
+## Does not work 100% because a lot of Emacs batch output comes on stderr (?).
+[ "$quiet" ] && exec 1> /dev/null
+
+
+echo "Running bzr status..."
+
+bzr status -S $sources ${ldefs_flag:+lisp} >| $tempfile || \
+ die "bzr status error for sources"
+
+## The lisp portion could be more permissive, eg only care about .el files.
+while read stat file; do
+
+ case $stat in
+ M)
+ echo "Locally modified: $file"
+ [ "$force" ] || die "There are local modifications"
+ ;;
+
+ *) die "Unexpected status ($stat) for $file" ;;
+ esac
+done < $tempfile
+
+
+## Probably this is overkill, and there's no need to "bootstrap" just
+## for making autoloads.
+[ "$clean" ] && {
+
+ echo "Running 'make maintainer-clean'..."
+
+ make maintainer-clean #|| die "Cleaning error"
+
+ rm -f $ldefs_in
+}
+
+
+echo "Running autoreconf..."
+
+autoreconf ${clean:+-f} -i -I m4 2>| $tempfile
+
+retval=$?
+
+## Annoyingly, autoreconf puts the "installing `./foo' messages on stderr.
+if [ "$quiet" ]; then
+ grep -v 'installing `\.' $tempfile 1>&2
+else
+ cat "$tempfile" 1>&2
+fi
+
+[ $retval -ne 0 ] && die "autoreconf error"
+
+
+cp $genfiles autogen/
+
+
+cd autogen
+
+echo "Checking status of generated files..."
+
+bzr status -S $basegen >| $tempfile || \
+ die "bzr status error for generated files"
+
+
+modified=
+
+while read stat file; do
+
+ [ "$stat" != "M" ] && die "Unexpected status ($stat) for generated $file"
+
+ modified="$modified $file"
+
+done < $tempfile
+
+
+cd ../
+
+
+## Uses global $commit.
+commit ()
+{
+ local type=$1
+ shift
+
+ [ $# -gt 0 ] || {
+ echo "No files were modified"
+ return 0
+ }
+
+ echo "Modified file(s): $@"
+
+ [ "$commit" ] || return 0
+
+ echo "Committing..."
+
+ ## bzr status output is always relative to top-level, not PWD.
+ bzr commit -m "Auto-commit of $type files." "$@" || return $?
+
+ echo "Committed files: $@"
+} # function commit
+
+
+commit "generated" $modified || die "bzr commit error"
+
+
+[ "$ldefs_flag" ] || exit 0
+
+
+echo "Finding loaddef targets..."
+
+sed -n -e '/^AUTOGEN_VCS/,/^$/ s/\\//p' lisp/Makefile.in | \
+ sed '/AUTOGEN_VCS/d' >| $tempfile || die "sed error"
+
+genfiles=
+
+while read genfile; do
+
+ [ -r lisp/$genfile ] || die "Unable to read $genfile"
+
+ genfiles="$genfiles $genfile"
+done < $tempfile
+
+
+[ "$genfiles" ] || die "Error setting genfiles"
+
+
+[ -e Makefile ] || {
+ echo "Running ./configure..."
+
+ ## Minimize required packages.
+ ./configure --without-x || die "configure error"
+}
+
+
+## Build the minimum needed to get the autoloads.
+echo "Running lib/ make..."
+
+make -C lib "$@" all || die "make lib error"
+
+
+echo "Running src/ make..."
+
+make -C src "$@" bootstrap-emacs || die "make src error"
+
+
+echo "Running lisp/ make..."
+
+make -C lisp "$@" autoloads EMACS=../src/bootstrap-emacs || die "make src error"
+
+
+## Ignore comment differences.
+[ ! "$lboot_flag" ] || \
+ diff -q -I '^;' $ldefs_in $ldefs_out || \
+ cp $ldefs_in $ldefs_out || die "cp ldefs_boot error"
+
+
+cd lisp
+
+echo "Checking status of loaddef files..."
+
+## It probably would be fine to just check+commit lisp/, since
+## making autoloads should not effect any other files. But better
+## safe than sorry.
+bzr status -S $genfiles ${ldefs_out#lisp/} >| $tempfile || \
+ die "bzr status error for generated files"
+
+
+modified=
+
+while read stat file; do
+
+ [ "$stat" != "M" ] && die "Unexpected status ($stat) for generated $file"
+ modified="$modified $file"
+
+done < $tempfile
+
+
+cd ../
+
+
+commit "loaddefs" $modified || die "bzr commit error"
+
+
+exit 0
+
+### update_autogen ends here
+++ /dev/null
-#! /bin/sh
-# Wrapper for compilers which do not understand '-c -o'.
-
-scriptversion=2012-01-04.17; # UTC
-
-# Copyright (C) 1999, 2000, 2003, 2004, 2005, 2009, 2010, 2012 Free
-# Software Foundation, Inc.
-# Written by Tom Tromey <tromey@cygnus.com>.
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-#
-# This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program that contains a
-# configuration script generated by Autoconf, you may include it under
-# the same distribution terms that you use for the rest of that program.
-
-# This file is maintained in Automake, please report
-# bugs to <bug-automake@gnu.org> or send patches to
-# <automake-patches@gnu.org>.
-
-nl='
-'
-
-# We need space, tab and new line, in precisely that order. Quoting is
-# there to prevent tools from complaining about whitespace usage.
-IFS=" "" $nl"
-
-file_conv=
-
-# func_file_conv build_file lazy
-# Convert a $build file to $host form and store it in $file
-# Currently only supports Windows hosts. If the determined conversion
-# type is listed in (the comma separated) LAZY, no conversion will
-# take place.
-func_file_conv ()
-{
- file=$1
- case $file in
- / | /[!/]*) # absolute file, and not a UNC file
- if test -z "$file_conv"; then
- # lazily determine how to convert abs files
- case `uname -s` in
- MINGW*)
- file_conv=mingw
- ;;
- CYGWIN*)
- file_conv=cygwin
- ;;
- *)
- file_conv=wine
- ;;
- esac
- fi
- case $file_conv/,$2, in
- *,$file_conv,*)
- ;;
- mingw/*)
- file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'`
- ;;
- cygwin/*)
- file=`cygpath -m "$file" || echo "$file"`
- ;;
- wine/*)
- file=`winepath -w "$file" || echo "$file"`
- ;;
- esac
- ;;
- esac
-}
-
-# func_cl_wrapper cl arg...
-# Adjust compile command to suit cl
-func_cl_wrapper ()
-{
- # Assume a capable shell
- lib_path=
- shared=:
- linker_opts=
- for arg
- do
- if test -n "$eat"; then
- eat=
- else
- case $1 in
- -o)
- # configure might choose to run compile as 'compile cc -o foo foo.c'.
- eat=1
- case $2 in
- *.o | *.[oO][bB][jJ])
- func_file_conv "$2"
- set x "$@" -Fo"$file"
- shift
- ;;
- *)
- func_file_conv "$2"
- set x "$@" -Fe"$file"
- shift
- ;;
- esac
- ;;
- -I*)
- func_file_conv "${1#-I}" mingw
- set x "$@" -I"$file"
- shift
- ;;
- -l*)
- lib=${1#-l}
- found=no
- save_IFS=$IFS
- IFS=';'
- for dir in $lib_path $LIB
- do
- IFS=$save_IFS
- if $shared && test -f "$dir/$lib.dll.lib"; then
- found=yes
- set x "$@" "$dir/$lib.dll.lib"
- break
- fi
- if test -f "$dir/$lib.lib"; then
- found=yes
- set x "$@" "$dir/$lib.lib"
- break
- fi
- done
- IFS=$save_IFS
-
- test "$found" != yes && set x "$@" "$lib.lib"
- shift
- ;;
- -L*)
- func_file_conv "${1#-L}"
- if test -z "$lib_path"; then
- lib_path=$file
- else
- lib_path="$lib_path;$file"
- fi
- linker_opts="$linker_opts -LIBPATH:$file"
- ;;
- -static)
- shared=false
- ;;
- -Wl,*)
- arg=${1#-Wl,}
- save_ifs="$IFS"; IFS=','
- for flag in $arg; do
- IFS="$save_ifs"
- linker_opts="$linker_opts $flag"
- done
- IFS="$save_ifs"
- ;;
- -Xlinker)
- eat=1
- linker_opts="$linker_opts $2"
- ;;
- -*)
- set x "$@" "$1"
- shift
- ;;
- *.cc | *.CC | *.cxx | *.CXX | *.[cC]++)
- func_file_conv "$1"
- set x "$@" -Tp"$file"
- shift
- ;;
- *.c | *.cpp | *.CPP | *.lib | *.LIB | *.Lib | *.OBJ | *.obj | *.[oO])
- func_file_conv "$1" mingw
- set x "$@" "$file"
- shift
- ;;
- *)
- set x "$@" "$1"
- shift
- ;;
- esac
- fi
- shift
- done
- if test -n "$linker_opts"; then
- linker_opts="-link$linker_opts"
- fi
- exec "$@" $linker_opts
- exit 1
-}
-
-eat=
-
-case $1 in
- '')
- echo "$0: No command. Try '$0 --help' for more information." 1>&2
- exit 1;
- ;;
- -h | --h*)
- cat <<\EOF
-Usage: compile [--help] [--version] PROGRAM [ARGS]
-
-Wrapper for compilers which do not understand '-c -o'.
-Remove '-o dest.o' from ARGS, run PROGRAM with the remaining
-arguments, and rename the output as expected.
-
-If you are trying to build a whole package this is not the
-right script to run: please start by reading the file 'INSTALL'.
-
-Report bugs to <bug-automake@gnu.org>.
-EOF
- exit $?
- ;;
- -v | --v*)
- echo "compile $scriptversion"
- exit $?
- ;;
- cl | *[/\\]cl | cl.exe | *[/\\]cl.exe )
- func_cl_wrapper "$@" # Doesn't return...
- ;;
-esac
-
-ofile=
-cfile=
-
-for arg
-do
- if test -n "$eat"; then
- eat=
- else
- case $1 in
- -o)
- # configure might choose to run compile as 'compile cc -o foo foo.c'.
- # So we strip '-o arg' only if arg is an object.
- eat=1
- case $2 in
- *.o | *.obj)
- ofile=$2
- ;;
- *)
- set x "$@" -o "$2"
- shift
- ;;
- esac
- ;;
- *.c)
- cfile=$1
- set x "$@" "$1"
- shift
- ;;
- *)
- set x "$@" "$1"
- shift
- ;;
- esac
- fi
- shift
-done
-
-if test -z "$ofile" || test -z "$cfile"; then
- # If no '-o' option was seen then we might have been invoked from a
- # pattern rule where we don't need one. That is ok -- this is a
- # normal compilation that the losing compiler can handle. If no
- # '.c' file was seen then we are probably linking. That is also
- # ok.
- exec "$@"
-fi
-
-# Name of file we expect compiler to create.
-cofile=`echo "$cfile" | sed 's|^.*[\\/]||; s|^[a-zA-Z]:||; s/\.c$/.o/'`
-
-# Create the lock directory.
-# Note: use '[/\\:.-]' here to ensure that we don't use the same name
-# that we are using for the .o file. Also, base the name on the expected
-# object file name, since that is what matters with a parallel build.
-lockdir=`echo "$cofile" | sed -e 's|[/\\:.-]|_|g'`.d
-while true; do
- if mkdir "$lockdir" >/dev/null 2>&1; then
- break
- fi
- sleep 1
-done
-# FIXME: race condition here if user kills between mkdir and trap.
-trap "rmdir '$lockdir'; exit 1" 1 2 15
-
-# Run the compile.
-"$@"
-ret=$?
-
-if test -f "$cofile"; then
- test "$cofile" = "$ofile" || mv "$cofile" "$ofile"
-elif test -f "${cofile}bj"; then
- test "${cofile}bj" = "$ofile" || mv "${cofile}bj" "$ofile"
-fi
-
-rmdir "$lockdir"
-exit $ret
-
-# Local Variables:
-# mode: shell-script
-# sh-indentation: 2
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "scriptversion="
-# time-stamp-format: "%:y-%02m-%02d.%02H"
-# time-stamp-time-zone: "UTC"
-# time-stamp-end: "; # UTC"
-# End:
+++ /dev/null
-#! /bin/sh
-# Attempt to guess a canonical system name.
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-# 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
-# 2011, 2012 Free Software Foundation, Inc.
-
-timestamp='2012-02-10'
-
-# This file is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program 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 this program; if not, see <http://www.gnu.org/licenses/>.
-#
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program that contains a
-# configuration script generated by Autoconf, you may include it under
-# the same distribution terms that you use for the rest of that program.
-
-
-# Originally written by Per Bothner. Please send patches (context
-# diff format) to <config-patches@gnu.org> and include a ChangeLog
-# entry.
-#
-# This script attempts to guess a canonical system name similar to
-# config.sub. If it succeeds, it prints the system name on stdout, and
-# exits with 0. Otherwise, it exits with 1.
-#
-# You can get the latest version of this script from:
-# http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD
-
-me=`echo "$0" | sed -e 's,.*/,,'`
-
-usage="\
-Usage: $0 [OPTION]
-
-Output the configuration name of the system \`$me' is run on.
-
-Operation modes:
- -h, --help print this help, then exit
- -t, --time-stamp print date of last modification, then exit
- -v, --version print version number, then exit
-
-Report bugs and patches to <config-patches@gnu.org>."
-
-version="\
-GNU config.guess ($timestamp)
-
-Originally written by Per Bothner.
-Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
-2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
-Free Software Foundation, Inc.
-
-This is free software; see the source for copying conditions. There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
-
-help="
-Try \`$me --help' for more information."
-
-# Parse command line
-while test $# -gt 0 ; do
- case $1 in
- --time-stamp | --time* | -t )
- echo "$timestamp" ; exit ;;
- --version | -v )
- echo "$version" ; exit ;;
- --help | --h* | -h )
- echo "$usage"; exit ;;
- -- ) # Stop option processing
- shift; break ;;
- - ) # Use stdin as input.
- break ;;
- -* )
- echo "$me: invalid option $1$help" >&2
- exit 1 ;;
- * )
- break ;;
- esac
-done
-
-if test $# != 0; then
- echo "$me: too many arguments$help" >&2
- exit 1
-fi
-
-trap 'exit 1' 1 2 15
-
-# CC_FOR_BUILD -- compiler used by this script. Note that the use of a
-# compiler to aid in system detection is discouraged as it requires
-# temporary files to be created and, as you can see below, it is a
-# headache to deal with in a portable fashion.
-
-# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still
-# use `HOST_CC' if defined, but it is deprecated.
-
-# Portable tmp directory creation inspired by the Autoconf team.
-
-set_cc_for_build='
-trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ;
-trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ;
-: ${TMPDIR=/tmp} ;
- { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } ||
- { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } ||
- { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } ||
- { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ;
-dummy=$tmp/dummy ;
-tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ;
-case $CC_FOR_BUILD,$HOST_CC,$CC in
- ,,) echo "int x;" > $dummy.c ;
- for c in cc gcc c89 c99 ; do
- if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then
- CC_FOR_BUILD="$c"; break ;
- fi ;
- done ;
- if test x"$CC_FOR_BUILD" = x ; then
- CC_FOR_BUILD=no_compiler_found ;
- fi
- ;;
- ,,*) CC_FOR_BUILD=$CC ;;
- ,*,*) CC_FOR_BUILD=$HOST_CC ;;
-esac ; set_cc_for_build= ;'
-
-# This is needed to find uname on a Pyramid OSx when run in the BSD universe.
-# (ghazi@noc.rutgers.edu 1994-08-24)
-if (test -f /.attbin/uname) >/dev/null 2>&1 ; then
- PATH=$PATH:/.attbin ; export PATH
-fi
-
-UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown
-UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown
-UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown
-UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown
-
-# Note: order is significant - the case branches are not exclusive.
-
-case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
- *:NetBSD:*:*)
- # NetBSD (nbsd) targets should (where applicable) match one or
- # more of the tuples: *-*-netbsdelf*, *-*-netbsdaout*,
- # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently
- # switched to ELF, *-*-netbsd* would select the old
- # object file format. This provides both forward
- # compatibility and a consistent mechanism for selecting the
- # object file format.
- #
- # Note: NetBSD doesn't particularly care about the vendor
- # portion of the name. We always set it to "unknown".
- sysctl="sysctl -n hw.machine_arch"
- UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \
- /usr/sbin/$sysctl 2>/dev/null || echo unknown)`
- case "${UNAME_MACHINE_ARCH}" in
- armeb) machine=armeb-unknown ;;
- arm*) machine=arm-unknown ;;
- sh3el) machine=shl-unknown ;;
- sh3eb) machine=sh-unknown ;;
- sh5el) machine=sh5le-unknown ;;
- *) machine=${UNAME_MACHINE_ARCH}-unknown ;;
- esac
- # The Operating System including object format, if it has switched
- # to ELF recently, or will in the future.
- case "${UNAME_MACHINE_ARCH}" in
- arm*|i386|m68k|ns32k|sh3*|sparc|vax)
- eval $set_cc_for_build
- if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \
- | grep -q __ELF__
- then
- # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout).
- # Return netbsd for either. FIX?
- os=netbsd
- else
- os=netbsdelf
- fi
- ;;
- *)
- os=netbsd
- ;;
- esac
- # The OS release
- # Debian GNU/NetBSD machines have a different userland, and
- # thus, need a distinct triplet. However, they do not need
- # kernel version information, so it can be replaced with a
- # suitable tag, in the style of linux-gnu.
- case "${UNAME_VERSION}" in
- Debian*)
- release='-gnu'
- ;;
- *)
- release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'`
- ;;
- esac
- # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM:
- # contains redundant information, the shorter form:
- # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used.
- echo "${machine}-${os}${release}"
- exit ;;
- *:OpenBSD:*:*)
- UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'`
- echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE}
- exit ;;
- *:ekkoBSD:*:*)
- echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE}
- exit ;;
- *:SolidBSD:*:*)
- echo ${UNAME_MACHINE}-unknown-solidbsd${UNAME_RELEASE}
- exit ;;
- macppc:MirBSD:*:*)
- echo powerpc-unknown-mirbsd${UNAME_RELEASE}
- exit ;;
- *:MirBSD:*:*)
- echo ${UNAME_MACHINE}-unknown-mirbsd${UNAME_RELEASE}
- exit ;;
- alpha:OSF1:*:*)
- case $UNAME_RELEASE in
- *4.0)
- UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'`
- ;;
- *5.*)
- UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'`
- ;;
- esac
- # According to Compaq, /usr/sbin/psrinfo has been available on
- # OSF/1 and Tru64 systems produced since 1995. I hope that
- # covers most systems running today. This code pipes the CPU
- # types through head -n 1, so we only detect the type of CPU 0.
- ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1`
- case "$ALPHA_CPU_TYPE" in
- "EV4 (21064)")
- UNAME_MACHINE="alpha" ;;
- "EV4.5 (21064)")
- UNAME_MACHINE="alpha" ;;
- "LCA4 (21066/21068)")
- UNAME_MACHINE="alpha" ;;
- "EV5 (21164)")
- UNAME_MACHINE="alphaev5" ;;
- "EV5.6 (21164A)")
- UNAME_MACHINE="alphaev56" ;;
- "EV5.6 (21164PC)")
- UNAME_MACHINE="alphapca56" ;;
- "EV5.7 (21164PC)")
- UNAME_MACHINE="alphapca57" ;;
- "EV6 (21264)")
- UNAME_MACHINE="alphaev6" ;;
- "EV6.7 (21264A)")
- UNAME_MACHINE="alphaev67" ;;
- "EV6.8CB (21264C)")
- UNAME_MACHINE="alphaev68" ;;
- "EV6.8AL (21264B)")
- UNAME_MACHINE="alphaev68" ;;
- "EV6.8CX (21264D)")
- UNAME_MACHINE="alphaev68" ;;
- "EV6.9A (21264/EV69A)")
- UNAME_MACHINE="alphaev69" ;;
- "EV7 (21364)")
- UNAME_MACHINE="alphaev7" ;;
- "EV7.9 (21364A)")
- UNAME_MACHINE="alphaev79" ;;
- esac
- # A Pn.n version is a patched version.
- # A Vn.n version is a released version.
- # A Tn.n version is a released field test version.
- # A Xn.n version is an unreleased experimental baselevel.
- # 1.2 uses "1.2" for uname -r.
- echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
- # Reset EXIT trap before exiting to avoid spurious non-zero exit code.
- exitcode=$?
- trap '' 0
- exit $exitcode ;;
- Alpha\ *:Windows_NT*:*)
- # How do we know it's Interix rather than the generic POSIX subsystem?
- # Should we change UNAME_MACHINE based on the output of uname instead
- # of the specific Alpha model?
- echo alpha-pc-interix
- exit ;;
- 21064:Windows_NT:50:3)
- echo alpha-dec-winnt3.5
- exit ;;
- Amiga*:UNIX_System_V:4.0:*)
- echo m68k-unknown-sysv4
- exit ;;
- *:[Aa]miga[Oo][Ss]:*:*)
- echo ${UNAME_MACHINE}-unknown-amigaos
- exit ;;
- *:[Mm]orph[Oo][Ss]:*:*)
- echo ${UNAME_MACHINE}-unknown-morphos
- exit ;;
- *:OS/390:*:*)
- echo i370-ibm-openedition
- exit ;;
- *:z/VM:*:*)
- echo s390-ibm-zvmoe
- exit ;;
- *:OS400:*:*)
- echo powerpc-ibm-os400
- exit ;;
- arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*)
- echo arm-acorn-riscix${UNAME_RELEASE}
- exit ;;
- arm:riscos:*:*|arm:RISCOS:*:*)
- echo arm-unknown-riscos
- exit ;;
- SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*)
- echo hppa1.1-hitachi-hiuxmpp
- exit ;;
- Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*)
- # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE.
- if test "`(/bin/universe) 2>/dev/null`" = att ; then
- echo pyramid-pyramid-sysv3
- else
- echo pyramid-pyramid-bsd
- fi
- exit ;;
- NILE*:*:*:dcosx)
- echo pyramid-pyramid-svr4
- exit ;;
- DRS?6000:unix:4.0:6*)
- echo sparc-icl-nx6
- exit ;;
- DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*)
- case `/usr/bin/uname -p` in
- sparc) echo sparc-icl-nx7; exit ;;
- esac ;;
- s390x:SunOS:*:*)
- echo ${UNAME_MACHINE}-ibm-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
- exit ;;
- sun4H:SunOS:5.*:*)
- echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
- exit ;;
- sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*)
- echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
- exit ;;
- i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*)
- echo i386-pc-auroraux${UNAME_RELEASE}
- exit ;;
- i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*)
- eval $set_cc_for_build
- SUN_ARCH="i386"
- # If there is a compiler, see if it is configured for 64-bit objects.
- # Note that the Sun cc does not turn __LP64__ into 1 like gcc does.
- # This test works for both compilers.
- if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then
- if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \
- (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \
- grep IS_64BIT_ARCH >/dev/null
- then
- SUN_ARCH="x86_64"
- fi
- fi
- echo ${SUN_ARCH}-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
- exit ;;
- sun4*:SunOS:6*:*)
- # According to config.sub, this is the proper way to canonicalize
- # SunOS6. Hard to guess exactly what SunOS6 will be like, but
- # it's likely to be more like Solaris than SunOS4.
- echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
- exit ;;
- sun4*:SunOS:*:*)
- case "`/usr/bin/arch -k`" in
- Series*|S4*)
- UNAME_RELEASE=`uname -v`
- ;;
- esac
- # Japanese Language versions have a version number like `4.1.3-JL'.
- echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'`
- exit ;;
- sun3*:SunOS:*:*)
- echo m68k-sun-sunos${UNAME_RELEASE}
- exit ;;
- sun*:*:4.2BSD:*)
- UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null`
- test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3
- case "`/bin/arch`" in
- sun3)
- echo m68k-sun-sunos${UNAME_RELEASE}
- ;;
- sun4)
- echo sparc-sun-sunos${UNAME_RELEASE}
- ;;
- esac
- exit ;;
- aushp:SunOS:*:*)
- echo sparc-auspex-sunos${UNAME_RELEASE}
- exit ;;
- # The situation for MiNT is a little confusing. The machine name
- # can be virtually everything (everything which is not
- # "atarist" or "atariste" at least should have a processor
- # > m68000). The system name ranges from "MiNT" over "FreeMiNT"
- # to the lowercase version "mint" (or "freemint"). Finally
- # the system name "TOS" denotes a system which is actually not
- # MiNT. But MiNT is downward compatible to TOS, so this should
- # be no problem.
- atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*)
- echo m68k-atari-mint${UNAME_RELEASE}
- exit ;;
- atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*)
- echo m68k-atari-mint${UNAME_RELEASE}
- exit ;;
- *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*)
- echo m68k-atari-mint${UNAME_RELEASE}
- exit ;;
- milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*)
- echo m68k-milan-mint${UNAME_RELEASE}
- exit ;;
- hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*)
- echo m68k-hades-mint${UNAME_RELEASE}
- exit ;;
- *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*)
- echo m68k-unknown-mint${UNAME_RELEASE}
- exit ;;
- m68k:machten:*:*)
- echo m68k-apple-machten${UNAME_RELEASE}
- exit ;;
- powerpc:machten:*:*)
- echo powerpc-apple-machten${UNAME_RELEASE}
- exit ;;
- RISC*:Mach:*:*)
- echo mips-dec-mach_bsd4.3
- exit ;;
- RISC*:ULTRIX:*:*)
- echo mips-dec-ultrix${UNAME_RELEASE}
- exit ;;
- VAX*:ULTRIX*:*:*)
- echo vax-dec-ultrix${UNAME_RELEASE}
- exit ;;
- 2020:CLIX:*:* | 2430:CLIX:*:*)
- echo clipper-intergraph-clix${UNAME_RELEASE}
- exit ;;
- mips:*:*:UMIPS | mips:*:*:RISCos)
- eval $set_cc_for_build
- sed 's/^ //' << EOF >$dummy.c
-#ifdef __cplusplus
-#include <stdio.h> /* for printf() prototype */
- int main (int argc, char *argv[]) {
-#else
- int main (argc, argv) int argc; char *argv[]; {
-#endif
- #if defined (host_mips) && defined (MIPSEB)
- #if defined (SYSTYPE_SYSV)
- printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0);
- #endif
- #if defined (SYSTYPE_SVR4)
- printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0);
- #endif
- #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD)
- printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0);
- #endif
- #endif
- exit (-1);
- }
-EOF
- $CC_FOR_BUILD -o $dummy $dummy.c &&
- dummyarg=`echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` &&
- SYSTEM_NAME=`$dummy $dummyarg` &&
- { echo "$SYSTEM_NAME"; exit; }
- echo mips-mips-riscos${UNAME_RELEASE}
- exit ;;
- Motorola:PowerMAX_OS:*:*)
- echo powerpc-motorola-powermax
- exit ;;
- Motorola:*:4.3:PL8-*)
- echo powerpc-harris-powermax
- exit ;;
- Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*)
- echo powerpc-harris-powermax
- exit ;;
- Night_Hawk:Power_UNIX:*:*)
- echo powerpc-harris-powerunix
- exit ;;
- m88k:CX/UX:7*:*)
- echo m88k-harris-cxux7
- exit ;;
- m88k:*:4*:R4*)
- echo m88k-motorola-sysv4
- exit ;;
- m88k:*:3*:R3*)
- echo m88k-motorola-sysv3
- exit ;;
- AViiON:dgux:*:*)
- # DG/UX returns AViiON for all architectures
- UNAME_PROCESSOR=`/usr/bin/uname -p`
- if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ]
- then
- if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \
- [ ${TARGET_BINARY_INTERFACE}x = x ]
- then
- echo m88k-dg-dgux${UNAME_RELEASE}
- else
- echo m88k-dg-dguxbcs${UNAME_RELEASE}
- fi
- else
- echo i586-dg-dgux${UNAME_RELEASE}
- fi
- exit ;;
- M88*:DolphinOS:*:*) # DolphinOS (SVR3)
- echo m88k-dolphin-sysv3
- exit ;;
- M88*:*:R3*:*)
- # Delta 88k system running SVR3
- echo m88k-motorola-sysv3
- exit ;;
- XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3)
- echo m88k-tektronix-sysv3
- exit ;;
- Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD)
- echo m68k-tektronix-bsd
- exit ;;
- *:IRIX*:*:*)
- echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'`
- exit ;;
- ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX.
- echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id
- exit ;; # Note that: echo "'`uname -s`'" gives 'AIX '
- i*86:AIX:*:*)
- echo i386-ibm-aix
- exit ;;
- ia64:AIX:*:*)
- if [ -x /usr/bin/oslevel ] ; then
- IBM_REV=`/usr/bin/oslevel`
- else
- IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE}
- fi
- echo ${UNAME_MACHINE}-ibm-aix${IBM_REV}
- exit ;;
- *:AIX:2:3)
- if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then
- eval $set_cc_for_build
- sed 's/^ //' << EOF >$dummy.c
- #include <sys/systemcfg.h>
-
- main()
- {
- if (!__power_pc())
- exit(1);
- puts("powerpc-ibm-aix3.2.5");
- exit(0);
- }
-EOF
- if $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy`
- then
- echo "$SYSTEM_NAME"
- else
- echo rs6000-ibm-aix3.2.5
- fi
- elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then
- echo rs6000-ibm-aix3.2.4
- else
- echo rs6000-ibm-aix3.2
- fi
- exit ;;
- *:AIX:*:[4567])
- IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'`
- if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then
- IBM_ARCH=rs6000
- else
- IBM_ARCH=powerpc
- fi
- if [ -x /usr/bin/oslevel ] ; then
- IBM_REV=`/usr/bin/oslevel`
- else
- IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE}
- fi
- echo ${IBM_ARCH}-ibm-aix${IBM_REV}
- exit ;;
- *:AIX:*:*)
- echo rs6000-ibm-aix
- exit ;;
- ibmrt:4.4BSD:*|romp-ibm:BSD:*)
- echo romp-ibm-bsd4.4
- exit ;;
- ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and
- echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to
- exit ;; # report: romp-ibm BSD 4.3
- *:BOSX:*:*)
- echo rs6000-bull-bosx
- exit ;;
- DPX/2?00:B.O.S.:*:*)
- echo m68k-bull-sysv3
- exit ;;
- 9000/[34]??:4.3bsd:1.*:*)
- echo m68k-hp-bsd
- exit ;;
- hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*)
- echo m68k-hp-bsd4.4
- exit ;;
- 9000/[34678]??:HP-UX:*:*)
- HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'`
- case "${UNAME_MACHINE}" in
- 9000/31? ) HP_ARCH=m68000 ;;
- 9000/[34]?? ) HP_ARCH=m68k ;;
- 9000/[678][0-9][0-9])
- if [ -x /usr/bin/getconf ]; then
- sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null`
- sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null`
- case "${sc_cpu_version}" in
- 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0
- 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1
- 532) # CPU_PA_RISC2_0
- case "${sc_kernel_bits}" in
- 32) HP_ARCH="hppa2.0n" ;;
- 64) HP_ARCH="hppa2.0w" ;;
- '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20
- esac ;;
- esac
- fi
- if [ "${HP_ARCH}" = "" ]; then
- eval $set_cc_for_build
- sed 's/^ //' << EOF >$dummy.c
-
- #define _HPUX_SOURCE
- #include <stdlib.h>
- #include <unistd.h>
-
- int main ()
- {
- #if defined(_SC_KERNEL_BITS)
- long bits = sysconf(_SC_KERNEL_BITS);
- #endif
- long cpu = sysconf (_SC_CPU_VERSION);
-
- switch (cpu)
- {
- case CPU_PA_RISC1_0: puts ("hppa1.0"); break;
- case CPU_PA_RISC1_1: puts ("hppa1.1"); break;
- case CPU_PA_RISC2_0:
- #if defined(_SC_KERNEL_BITS)
- switch (bits)
- {
- case 64: puts ("hppa2.0w"); break;
- case 32: puts ("hppa2.0n"); break;
- default: puts ("hppa2.0"); break;
- } break;
- #else /* !defined(_SC_KERNEL_BITS) */
- puts ("hppa2.0"); break;
- #endif
- default: puts ("hppa1.0"); break;
- }
- exit (0);
- }
-EOF
- (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy`
- test -z "$HP_ARCH" && HP_ARCH=hppa
- fi ;;
- esac
- if [ ${HP_ARCH} = "hppa2.0w" ]
- then
- eval $set_cc_for_build
-
- # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating
- # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler
- # generating 64-bit code. GNU and HP use different nomenclature:
- #
- # $ CC_FOR_BUILD=cc ./config.guess
- # => hppa2.0w-hp-hpux11.23
- # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess
- # => hppa64-hp-hpux11.23
-
- if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) |
- grep -q __LP64__
- then
- HP_ARCH="hppa2.0w"
- else
- HP_ARCH="hppa64"
- fi
- fi
- echo ${HP_ARCH}-hp-hpux${HPUX_REV}
- exit ;;
- ia64:HP-UX:*:*)
- HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'`
- echo ia64-hp-hpux${HPUX_REV}
- exit ;;
- 3050*:HI-UX:*:*)
- eval $set_cc_for_build
- sed 's/^ //' << EOF >$dummy.c
- #include <unistd.h>
- int
- main ()
- {
- long cpu = sysconf (_SC_CPU_VERSION);
- /* The order matters, because CPU_IS_HP_MC68K erroneously returns
- true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct
- results, however. */
- if (CPU_IS_PA_RISC (cpu))
- {
- switch (cpu)
- {
- case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break;
- case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break;
- case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break;
- default: puts ("hppa-hitachi-hiuxwe2"); break;
- }
- }
- else if (CPU_IS_HP_MC68K (cpu))
- puts ("m68k-hitachi-hiuxwe2");
- else puts ("unknown-hitachi-hiuxwe2");
- exit (0);
- }
-EOF
- $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` &&
- { echo "$SYSTEM_NAME"; exit; }
- echo unknown-hitachi-hiuxwe2
- exit ;;
- 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* )
- echo hppa1.1-hp-bsd
- exit ;;
- 9000/8??:4.3bsd:*:*)
- echo hppa1.0-hp-bsd
- exit ;;
- *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*)
- echo hppa1.0-hp-mpeix
- exit ;;
- hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* )
- echo hppa1.1-hp-osf
- exit ;;
- hp8??:OSF1:*:*)
- echo hppa1.0-hp-osf
- exit ;;
- i*86:OSF1:*:*)
- if [ -x /usr/sbin/sysversion ] ; then
- echo ${UNAME_MACHINE}-unknown-osf1mk
- else
- echo ${UNAME_MACHINE}-unknown-osf1
- fi
- exit ;;
- parisc*:Lites*:*:*)
- echo hppa1.1-hp-lites
- exit ;;
- C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*)
- echo c1-convex-bsd
- exit ;;
- C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*)
- if getsysinfo -f scalar_acc
- then echo c32-convex-bsd
- else echo c2-convex-bsd
- fi
- exit ;;
- C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*)
- echo c34-convex-bsd
- exit ;;
- C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*)
- echo c38-convex-bsd
- exit ;;
- C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*)
- echo c4-convex-bsd
- exit ;;
- CRAY*Y-MP:*:*:*)
- echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
- exit ;;
- CRAY*[A-Z]90:*:*:*)
- echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \
- | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \
- -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \
- -e 's/\.[^.]*$/.X/'
- exit ;;
- CRAY*TS:*:*:*)
- echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
- exit ;;
- CRAY*T3E:*:*:*)
- echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
- exit ;;
- CRAY*SV1:*:*:*)
- echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
- exit ;;
- *:UNICOS/mp:*:*)
- echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
- exit ;;
- F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*)
- FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
- FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'`
- FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'`
- echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
- exit ;;
- 5000:UNIX_System_V:4.*:*)
- FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'`
- FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'`
- echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
- exit ;;
- i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*)
- echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE}
- exit ;;
- sparc*:BSD/OS:*:*)
- echo sparc-unknown-bsdi${UNAME_RELEASE}
- exit ;;
- *:BSD/OS:*:*)
- echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE}
- exit ;;
- *:FreeBSD:*:*)
- UNAME_PROCESSOR=`/usr/bin/uname -p`
- case ${UNAME_PROCESSOR} in
- amd64)
- echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
- *)
- echo ${UNAME_PROCESSOR}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
- esac
- exit ;;
- i*:CYGWIN*:*)
- echo ${UNAME_MACHINE}-pc-cygwin
- exit ;;
- *:MINGW*:*)
- echo ${UNAME_MACHINE}-pc-mingw32
- exit ;;
- i*:MSYS*:*)
- echo ${UNAME_MACHINE}-pc-msys
- exit ;;
- i*:windows32*:*)
- # uname -m includes "-pc" on this system.
- echo ${UNAME_MACHINE}-mingw32
- exit ;;
- i*:PW*:*)
- echo ${UNAME_MACHINE}-pc-pw32
- exit ;;
- *:Interix*:*)
- case ${UNAME_MACHINE} in
- x86)
- echo i586-pc-interix${UNAME_RELEASE}
- exit ;;
- authenticamd | genuineintel | EM64T)
- echo x86_64-unknown-interix${UNAME_RELEASE}
- exit ;;
- IA64)
- echo ia64-unknown-interix${UNAME_RELEASE}
- exit ;;
- esac ;;
- [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*)
- echo i${UNAME_MACHINE}-pc-mks
- exit ;;
- 8664:Windows_NT:*)
- echo x86_64-pc-mks
- exit ;;
- i*:Windows_NT*:* | Pentium*:Windows_NT*:*)
- # How do we know it's Interix rather than the generic POSIX subsystem?
- # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we
- # UNAME_MACHINE based on the output of uname instead of i386?
- echo i586-pc-interix
- exit ;;
- i*:UWIN*:*)
- echo ${UNAME_MACHINE}-pc-uwin
- exit ;;
- amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*)
- echo x86_64-unknown-cygwin
- exit ;;
- p*:CYGWIN*:*)
- echo powerpcle-unknown-cygwin
- exit ;;
- prep*:SunOS:5.*:*)
- echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
- exit ;;
- *:GNU:*:*)
- # the GNU system
- echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'`
- exit ;;
- *:GNU/*:*:*)
- # other systems with GNU libc and userland
- echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-gnu
- exit ;;
- i*86:Minix:*:*)
- echo ${UNAME_MACHINE}-pc-minix
- exit ;;
- aarch64:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- aarch64_be:Linux:*:*)
- UNAME_MACHINE=aarch64_be
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- alpha:Linux:*:*)
- case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in
- EV5) UNAME_MACHINE=alphaev5 ;;
- EV56) UNAME_MACHINE=alphaev56 ;;
- PCA56) UNAME_MACHINE=alphapca56 ;;
- PCA57) UNAME_MACHINE=alphapca56 ;;
- EV6) UNAME_MACHINE=alphaev6 ;;
- EV67) UNAME_MACHINE=alphaev67 ;;
- EV68*) UNAME_MACHINE=alphaev68 ;;
- esac
- objdump --private-headers /bin/sh | grep -q ld.so.1
- if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi
- echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC}
- exit ;;
- arm*:Linux:*:*)
- eval $set_cc_for_build
- if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \
- | grep -q __ARM_EABI__
- then
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- else
- if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \
- | grep -q __ARM_PCS_VFP
- then
- echo ${UNAME_MACHINE}-unknown-linux-gnueabi
- else
- echo ${UNAME_MACHINE}-unknown-linux-gnueabihf
- fi
- fi
- exit ;;
- avr32*:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- cris:Linux:*:*)
- echo ${UNAME_MACHINE}-axis-linux-gnu
- exit ;;
- crisv32:Linux:*:*)
- echo ${UNAME_MACHINE}-axis-linux-gnu
- exit ;;
- frv:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- hexagon:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- i*86:Linux:*:*)
- LIBC=gnu
- eval $set_cc_for_build
- sed 's/^ //' << EOF >$dummy.c
- #ifdef __dietlibc__
- LIBC=dietlibc
- #endif
-EOF
- eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^LIBC'`
- echo "${UNAME_MACHINE}-pc-linux-${LIBC}"
- exit ;;
- ia64:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- m32r*:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- m68*:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- mips:Linux:*:* | mips64:Linux:*:*)
- eval $set_cc_for_build
- sed 's/^ //' << EOF >$dummy.c
- #undef CPU
- #undef ${UNAME_MACHINE}
- #undef ${UNAME_MACHINE}el
- #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL)
- CPU=${UNAME_MACHINE}el
- #else
- #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB)
- CPU=${UNAME_MACHINE}
- #else
- CPU=
- #endif
- #endif
-EOF
- eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^CPU'`
- test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; }
- ;;
- or32:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- padre:Linux:*:*)
- echo sparc-unknown-linux-gnu
- exit ;;
- parisc64:Linux:*:* | hppa64:Linux:*:*)
- echo hppa64-unknown-linux-gnu
- exit ;;
- parisc:Linux:*:* | hppa:Linux:*:*)
- # Look for CPU level
- case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in
- PA7*) echo hppa1.1-unknown-linux-gnu ;;
- PA8*) echo hppa2.0-unknown-linux-gnu ;;
- *) echo hppa-unknown-linux-gnu ;;
- esac
- exit ;;
- ppc64:Linux:*:*)
- echo powerpc64-unknown-linux-gnu
- exit ;;
- ppc:Linux:*:*)
- echo powerpc-unknown-linux-gnu
- exit ;;
- s390:Linux:*:* | s390x:Linux:*:*)
- echo ${UNAME_MACHINE}-ibm-linux
- exit ;;
- sh64*:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- sh*:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- sparc:Linux:*:* | sparc64:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- tile*:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- vax:Linux:*:*)
- echo ${UNAME_MACHINE}-dec-linux-gnu
- exit ;;
- x86_64:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- xtensa*:Linux:*:*)
- echo ${UNAME_MACHINE}-unknown-linux-gnu
- exit ;;
- i*86:DYNIX/ptx:4*:*)
- # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there.
- # earlier versions are messed up and put the nodename in both
- # sysname and nodename.
- echo i386-sequent-sysv4
- exit ;;
- i*86:UNIX_SV:4.2MP:2.*)
- # Unixware is an offshoot of SVR4, but it has its own version
- # number series starting with 2...
- # I am not positive that other SVR4 systems won't match this,
- # I just have to hope. -- rms.
- # Use sysv4.2uw... so that sysv4* matches it.
- echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION}
- exit ;;
- i*86:OS/2:*:*)
- # If we were able to find `uname', then EMX Unix compatibility
- # is probably installed.
- echo ${UNAME_MACHINE}-pc-os2-emx
- exit ;;
- i*86:XTS-300:*:STOP)
- echo ${UNAME_MACHINE}-unknown-stop
- exit ;;
- i*86:atheos:*:*)
- echo ${UNAME_MACHINE}-unknown-atheos
- exit ;;
- i*86:syllable:*:*)
- echo ${UNAME_MACHINE}-pc-syllable
- exit ;;
- i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*)
- echo i386-unknown-lynxos${UNAME_RELEASE}
- exit ;;
- i*86:*DOS:*:*)
- echo ${UNAME_MACHINE}-pc-msdosdjgpp
- exit ;;
- i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*)
- UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'`
- if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then
- echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL}
- else
- echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL}
- fi
- exit ;;
- i*86:*:5:[678]*)
- # UnixWare 7.x, OpenUNIX and OpenServer 6.
- case `/bin/uname -X | grep "^Machine"` in
- *486*) UNAME_MACHINE=i486 ;;
- *Pentium) UNAME_MACHINE=i586 ;;
- *Pent*|*Celeron) UNAME_MACHINE=i686 ;;
- esac
- echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION}
- exit ;;
- i*86:*:3.2:*)
- if test -f /usr/options/cb.name; then
- UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name`
- echo ${UNAME_MACHINE}-pc-isc$UNAME_REL
- elif /bin/uname -X 2>/dev/null >/dev/null ; then
- UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')`
- (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486
- (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \
- && UNAME_MACHINE=i586
- (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \
- && UNAME_MACHINE=i686
- (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \
- && UNAME_MACHINE=i686
- echo ${UNAME_MACHINE}-pc-sco$UNAME_REL
- else
- echo ${UNAME_MACHINE}-pc-sysv32
- fi
- exit ;;
- pc:*:*:*)
- # Left here for compatibility:
- # uname -m prints for DJGPP always 'pc', but it prints nothing about
- # the processor, so we play safe by assuming i586.
- # Note: whatever this is, it MUST be the same as what config.sub
- # prints for the "djgpp" host, or else GDB configury will decide that
- # this is a cross-build.
- echo i586-pc-msdosdjgpp
- exit ;;
- Intel:Mach:3*:*)
- echo i386-pc-mach3
- exit ;;
- paragon:*:*:*)
- echo i860-intel-osf1
- exit ;;
- i860:*:4.*:*) # i860-SVR4
- if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then
- echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4
- else # Add other i860-SVR4 vendors below as they are discovered.
- echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4
- fi
- exit ;;
- mini*:CTIX:SYS*5:*)
- # "miniframe"
- echo m68010-convergent-sysv
- exit ;;
- mc68k:UNIX:SYSTEM5:3.51m)
- echo m68k-convergent-sysv
- exit ;;
- M680?0:D-NIX:5.3:*)
- echo m68k-diab-dnix
- exit ;;
- M68*:*:R3V[5678]*:*)
- test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;;
- 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0)
- OS_REL=''
- test -r /etc/.relid \
- && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
- /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
- && { echo i486-ncr-sysv4.3${OS_REL}; exit; }
- /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
- && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;;
- 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*)
- /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
- && { echo i486-ncr-sysv4; exit; } ;;
- NCR*:*:4.2:* | MPRAS*:*:4.2:*)
- OS_REL='.3'
- test -r /etc/.relid \
- && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
- /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
- && { echo i486-ncr-sysv4.3${OS_REL}; exit; }
- /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
- && { echo i586-ncr-sysv4.3${OS_REL}; exit; }
- /bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \
- && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;;
- m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*)
- echo m68k-unknown-lynxos${UNAME_RELEASE}
- exit ;;
- mc68030:UNIX_System_V:4.*:*)
- echo m68k-atari-sysv4
- exit ;;
- TSUNAMI:LynxOS:2.*:*)
- echo sparc-unknown-lynxos${UNAME_RELEASE}
- exit ;;
- rs6000:LynxOS:2.*:*)
- echo rs6000-unknown-lynxos${UNAME_RELEASE}
- exit ;;
- PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*)
- echo powerpc-unknown-lynxos${UNAME_RELEASE}
- exit ;;
- SM[BE]S:UNIX_SV:*:*)
- echo mips-dde-sysv${UNAME_RELEASE}
- exit ;;
- RM*:ReliantUNIX-*:*:*)
- echo mips-sni-sysv4
- exit ;;
- RM*:SINIX-*:*:*)
- echo mips-sni-sysv4
- exit ;;
- *:SINIX-*:*:*)
- if uname -p 2>/dev/null >/dev/null ; then
- UNAME_MACHINE=`(uname -p) 2>/dev/null`
- echo ${UNAME_MACHINE}-sni-sysv4
- else
- echo ns32k-sni-sysv
- fi
- exit ;;
- PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort
- # says <Richard.M.Bartel@ccMail.Census.GOV>
- echo i586-unisys-sysv4
- exit ;;
- *:UNIX_System_V:4*:FTX*)
- # From Gerald Hewes <hewes@openmarket.com>.
- # How about differentiating between stratus architectures? -djm
- echo hppa1.1-stratus-sysv4
- exit ;;
- *:*:*:FTX*)
- # From seanf@swdc.stratus.com.
- echo i860-stratus-sysv4
- exit ;;
- i*86:VOS:*:*)
- # From Paul.Green@stratus.com.
- echo ${UNAME_MACHINE}-stratus-vos
- exit ;;
- *:VOS:*:*)
- # From Paul.Green@stratus.com.
- echo hppa1.1-stratus-vos
- exit ;;
- mc68*:A/UX:*:*)
- echo m68k-apple-aux${UNAME_RELEASE}
- exit ;;
- news*:NEWS-OS:6*:*)
- echo mips-sony-newsos6
- exit ;;
- R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*)
- if [ -d /usr/nec ]; then
- echo mips-nec-sysv${UNAME_RELEASE}
- else
- echo mips-unknown-sysv${UNAME_RELEASE}
- fi
- exit ;;
- BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only.
- echo powerpc-be-beos
- exit ;;
- BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only.
- echo powerpc-apple-beos
- exit ;;
- BePC:BeOS:*:*) # BeOS running on Intel PC compatible.
- echo i586-pc-beos
- exit ;;
- BePC:Haiku:*:*) # Haiku running on Intel PC compatible.
- echo i586-pc-haiku
- exit ;;
- SX-4:SUPER-UX:*:*)
- echo sx4-nec-superux${UNAME_RELEASE}
- exit ;;
- SX-5:SUPER-UX:*:*)
- echo sx5-nec-superux${UNAME_RELEASE}
- exit ;;
- SX-6:SUPER-UX:*:*)
- echo sx6-nec-superux${UNAME_RELEASE}
- exit ;;
- SX-7:SUPER-UX:*:*)
- echo sx7-nec-superux${UNAME_RELEASE}
- exit ;;
- SX-8:SUPER-UX:*:*)
- echo sx8-nec-superux${UNAME_RELEASE}
- exit ;;
- SX-8R:SUPER-UX:*:*)
- echo sx8r-nec-superux${UNAME_RELEASE}
- exit ;;
- Power*:Rhapsody:*:*)
- echo powerpc-apple-rhapsody${UNAME_RELEASE}
- exit ;;
- *:Rhapsody:*:*)
- echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE}
- exit ;;
- *:Darwin:*:*)
- UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown
- case $UNAME_PROCESSOR in
- i386)
- eval $set_cc_for_build
- if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then
- if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \
- (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \
- grep IS_64BIT_ARCH >/dev/null
- then
- UNAME_PROCESSOR="x86_64"
- fi
- fi ;;
- unknown) UNAME_PROCESSOR=powerpc ;;
- esac
- echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE}
- exit ;;
- *:procnto*:*:* | *:QNX:[0123456789]*:*)
- UNAME_PROCESSOR=`uname -p`
- if test "$UNAME_PROCESSOR" = "x86"; then
- UNAME_PROCESSOR=i386
- UNAME_MACHINE=pc
- fi
- echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE}
- exit ;;
- *:QNX:*:4*)
- echo i386-pc-qnx
- exit ;;
- NEO-?:NONSTOP_KERNEL:*:*)
- echo neo-tandem-nsk${UNAME_RELEASE}
- exit ;;
- NSE-?:NONSTOP_KERNEL:*:*)
- echo nse-tandem-nsk${UNAME_RELEASE}
- exit ;;
- NSR-?:NONSTOP_KERNEL:*:*)
- echo nsr-tandem-nsk${UNAME_RELEASE}
- exit ;;
- *:NonStop-UX:*:*)
- echo mips-compaq-nonstopux
- exit ;;
- BS2000:POSIX*:*:*)
- echo bs2000-siemens-sysv
- exit ;;
- DS/*:UNIX_System_V:*:*)
- echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE}
- exit ;;
- *:Plan9:*:*)
- # "uname -m" is not consistent, so use $cputype instead. 386
- # is converted to i386 for consistency with other x86
- # operating systems.
- if test "$cputype" = "386"; then
- UNAME_MACHINE=i386
- else
- UNAME_MACHINE="$cputype"
- fi
- echo ${UNAME_MACHINE}-unknown-plan9
- exit ;;
- *:TOPS-10:*:*)
- echo pdp10-unknown-tops10
- exit ;;
- *:TENEX:*:*)
- echo pdp10-unknown-tenex
- exit ;;
- KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*)
- echo pdp10-dec-tops20
- exit ;;
- XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*)
- echo pdp10-xkl-tops20
- exit ;;
- *:TOPS-20:*:*)
- echo pdp10-unknown-tops20
- exit ;;
- *:ITS:*:*)
- echo pdp10-unknown-its
- exit ;;
- SEI:*:*:SEIUX)
- echo mips-sei-seiux${UNAME_RELEASE}
- exit ;;
- *:DragonFly:*:*)
- echo ${UNAME_MACHINE}-unknown-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`
- exit ;;
- *:*VMS:*:*)
- UNAME_MACHINE=`(uname -p) 2>/dev/null`
- case "${UNAME_MACHINE}" in
- A*) echo alpha-dec-vms ; exit ;;
- I*) echo ia64-dec-vms ; exit ;;
- V*) echo vax-dec-vms ; exit ;;
- esac ;;
- *:XENIX:*:SysV)
- echo i386-pc-xenix
- exit ;;
- i*86:skyos:*:*)
- echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//'
- exit ;;
- i*86:rdos:*:*)
- echo ${UNAME_MACHINE}-pc-rdos
- exit ;;
- i*86:AROS:*:*)
- echo ${UNAME_MACHINE}-pc-aros
- exit ;;
- x86_64:VMkernel:*:*)
- echo ${UNAME_MACHINE}-unknown-esx
- exit ;;
-esac
-
-#echo '(No uname command or uname output not recognized.)' 1>&2
-#echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2
-
-eval $set_cc_for_build
-cat >$dummy.c <<EOF
-#ifdef _SEQUENT_
-# include <sys/types.h>
-# include <sys/utsname.h>
-#endif
-main ()
-{
-#if defined (sony)
-#if defined (MIPSEB)
- /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed,
- I don't know.... */
- printf ("mips-sony-bsd\n"); exit (0);
-#else
-#include <sys/param.h>
- printf ("m68k-sony-newsos%s\n",
-#ifdef NEWSOS4
- "4"
-#else
- ""
-#endif
- ); exit (0);
-#endif
-#endif
-
-#if defined (__arm) && defined (__acorn) && defined (__unix)
- printf ("arm-acorn-riscix\n"); exit (0);
-#endif
-
-#if defined (hp300) && !defined (hpux)
- printf ("m68k-hp-bsd\n"); exit (0);
-#endif
-
-#if defined (NeXT)
-#if !defined (__ARCHITECTURE__)
-#define __ARCHITECTURE__ "m68k"
-#endif
- int version;
- version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`;
- if (version < 4)
- printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version);
- else
- printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version);
- exit (0);
-#endif
-
-#if defined (MULTIMAX) || defined (n16)
-#if defined (UMAXV)
- printf ("ns32k-encore-sysv\n"); exit (0);
-#else
-#if defined (CMU)
- printf ("ns32k-encore-mach\n"); exit (0);
-#else
- printf ("ns32k-encore-bsd\n"); exit (0);
-#endif
-#endif
-#endif
-
-#if defined (__386BSD__)
- printf ("i386-pc-bsd\n"); exit (0);
-#endif
-
-#if defined (sequent)
-#if defined (i386)
- printf ("i386-sequent-dynix\n"); exit (0);
-#endif
-#if defined (ns32000)
- printf ("ns32k-sequent-dynix\n"); exit (0);
-#endif
-#endif
-
-#if defined (_SEQUENT_)
- struct utsname un;
-
- uname(&un);
-
- if (strncmp(un.version, "V2", 2) == 0) {
- printf ("i386-sequent-ptx2\n"); exit (0);
- }
- if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */
- printf ("i386-sequent-ptx1\n"); exit (0);
- }
- printf ("i386-sequent-ptx\n"); exit (0);
-
-#endif
-
-#if defined (vax)
-# if !defined (ultrix)
-# include <sys/param.h>
-# if defined (BSD)
-# if BSD == 43
- printf ("vax-dec-bsd4.3\n"); exit (0);
-# else
-# if BSD == 199006
- printf ("vax-dec-bsd4.3reno\n"); exit (0);
-# else
- printf ("vax-dec-bsd\n"); exit (0);
-# endif
-# endif
-# else
- printf ("vax-dec-bsd\n"); exit (0);
-# endif
-# else
- printf ("vax-dec-ultrix\n"); exit (0);
-# endif
-#endif
-
-#if defined (alliant) && defined (i860)
- printf ("i860-alliant-bsd\n"); exit (0);
-#endif
-
- exit (1);
-}
-EOF
-
-$CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && SYSTEM_NAME=`$dummy` &&
- { echo "$SYSTEM_NAME"; exit; }
-
-# Apollos put the system type in the environment.
-
-test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit; }
-
-# Convex versions that predate uname can use getsysinfo(1)
-
-if [ -x /usr/convex/getsysinfo ]
-then
- case `getsysinfo -f cpu_type` in
- c1*)
- echo c1-convex-bsd
- exit ;;
- c2*)
- if getsysinfo -f scalar_acc
- then echo c32-convex-bsd
- else echo c2-convex-bsd
- fi
- exit ;;
- c34*)
- echo c34-convex-bsd
- exit ;;
- c38*)
- echo c38-convex-bsd
- exit ;;
- c4*)
- echo c4-convex-bsd
- exit ;;
- esac
-fi
-
-cat >&2 <<EOF
-$0: unable to guess system type
-
-This script, last modified $timestamp, has failed to recognize
-the operating system you are using. It is advised that you
-download the most up to date version of the config scripts from
-
- http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD
-and
- http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD
-
-If the version you run ($0) is already up to date, please
-send the following data and any information you think might be
-pertinent to <config-patches@gnu.org> in order to provide the needed
-information to handle your system.
-
-config.guess timestamp = $timestamp
-
-uname -m = `(uname -m) 2>/dev/null || echo unknown`
-uname -r = `(uname -r) 2>/dev/null || echo unknown`
-uname -s = `(uname -s) 2>/dev/null || echo unknown`
-uname -v = `(uname -v) 2>/dev/null || echo unknown`
-
-/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null`
-/bin/uname -X = `(/bin/uname -X) 2>/dev/null`
-
-hostinfo = `(hostinfo) 2>/dev/null`
-/bin/universe = `(/bin/universe) 2>/dev/null`
-/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null`
-/bin/arch = `(/bin/arch) 2>/dev/null`
-/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null`
-/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null`
-
-UNAME_MACHINE = ${UNAME_MACHINE}
-UNAME_RELEASE = ${UNAME_RELEASE}
-UNAME_SYSTEM = ${UNAME_SYSTEM}
-UNAME_VERSION = ${UNAME_VERSION}
-EOF
-
-exit 1
-
-# Local variables:
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "timestamp='"
-# time-stamp-format: "%:y-%02m-%02d"
-# time-stamp-end: "'"
-# End:
+++ /dev/null
-#! /bin/sh
-# Configuration validation subroutine script.
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-# 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
-# 2011, 2012 Free Software Foundation, Inc.
-
-timestamp='2012-02-10'
-
-# This file is (in principle) common to ALL GNU software.
-# The presence of a machine in this file suggests that SOME GNU software
-# can handle that machine. It does not imply ALL GNU software can.
-#
-# This file is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program 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 this program; if not, see <http://www.gnu.org/licenses/>.
-#
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program that contains a
-# configuration script generated by Autoconf, you may include it under
-# the same distribution terms that you use for the rest of that program.
-
-
-# Please send patches to <config-patches@gnu.org>. Submit a context
-# diff and a properly formatted GNU ChangeLog entry.
-#
-# Configuration subroutine to validate and canonicalize a configuration type.
-# Supply the specified configuration type as an argument.
-# If it is invalid, we print an error message on stderr and exit with code 1.
-# Otherwise, we print the canonical config type on stdout and succeed.
-
-# You can get the latest version of this script from:
-# http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD
-
-# This file is supposed to be the same for all GNU packages
-# and recognize all the CPU types, system types and aliases
-# that are meaningful with *any* GNU software.
-# Each package is responsible for reporting which valid configurations
-# it does not support. The user should be able to distinguish
-# a failure to support a valid configuration from a meaningless
-# configuration.
-
-# The goal of this file is to map all the various variations of a given
-# machine specification into a single specification in the form:
-# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM
-# or in some cases, the newer four-part form:
-# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM
-# It is wrong to echo any other type of specification.
-
-me=`echo "$0" | sed -e 's,.*/,,'`
-
-usage="\
-Usage: $0 [OPTION] CPU-MFR-OPSYS
- $0 [OPTION] ALIAS
-
-Canonicalize a configuration name.
-
-Operation modes:
- -h, --help print this help, then exit
- -t, --time-stamp print date of last modification, then exit
- -v, --version print version number, then exit
-
-Report bugs and patches to <config-patches@gnu.org>."
-
-version="\
-GNU config.sub ($timestamp)
-
-Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
-2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012
-Free Software Foundation, Inc.
-
-This is free software; see the source for copying conditions. There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
-
-help="
-Try \`$me --help' for more information."
-
-# Parse command line
-while test $# -gt 0 ; do
- case $1 in
- --time-stamp | --time* | -t )
- echo "$timestamp" ; exit ;;
- --version | -v )
- echo "$version" ; exit ;;
- --help | --h* | -h )
- echo "$usage"; exit ;;
- -- ) # Stop option processing
- shift; break ;;
- - ) # Use stdin as input.
- break ;;
- -* )
- echo "$me: invalid option $1$help"
- exit 1 ;;
-
- *local*)
- # First pass through any local machine types.
- echo $1
- exit ;;
-
- * )
- break ;;
- esac
-done
-
-case $# in
- 0) echo "$me: missing argument$help" >&2
- exit 1;;
- 1) ;;
- *) echo "$me: too many arguments$help" >&2
- exit 1;;
-esac
-
-# Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any).
-# Here we must recognize all the valid KERNEL-OS combinations.
-maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'`
-case $maybe_os in
- nto-qnx* | linux-gnu* | linux-android* | linux-dietlibc | linux-newlib* | \
- linux-uclibc* | uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | \
- knetbsd*-gnu* | netbsd*-gnu* | \
- kopensolaris*-gnu* | \
- storm-chaos* | os2-emx* | rtmk-nova*)
- os=-$maybe_os
- basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`
- ;;
- android-linux)
- os=-linux-android
- basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`-unknown
- ;;
- *)
- basic_machine=`echo $1 | sed 's/-[^-]*$//'`
- if [ $basic_machine != $1 ]
- then os=`echo $1 | sed 's/.*-/-/'`
- else os=; fi
- ;;
-esac
-
-### Let's recognize common machines as not being operating systems so
-### that things like config.sub decstation-3100 work. We also
-### recognize some manufacturers as not being operating systems, so we
-### can provide default operating systems below.
-case $os in
- -sun*os*)
- # Prevent following clause from handling this invalid input.
- ;;
- -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \
- -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \
- -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \
- -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\
- -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \
- -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \
- -apple | -axis | -knuth | -cray | -microblaze)
- os=
- basic_machine=$1
- ;;
- -bluegene*)
- os=-cnk
- ;;
- -sim | -cisco | -oki | -wec | -winbond)
- os=
- basic_machine=$1
- ;;
- -scout)
- ;;
- -wrs)
- os=-vxworks
- basic_machine=$1
- ;;
- -chorusos*)
- os=-chorusos
- basic_machine=$1
- ;;
- -chorusrdb)
- os=-chorusrdb
- basic_machine=$1
- ;;
- -hiux*)
- os=-hiuxwe2
- ;;
- -sco6)
- os=-sco5v6
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -sco5)
- os=-sco3.2v5
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -sco4)
- os=-sco3.2v4
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -sco3.2.[4-9]*)
- os=`echo $os | sed -e 's/sco3.2./sco3.2v/'`
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -sco3.2v[4-9]*)
- # Don't forget version if it is 3.2v4 or newer.
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -sco5v6*)
- # Don't forget version if it is 3.2v4 or newer.
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -sco*)
- os=-sco3.2v2
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -udk*)
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -isc)
- os=-isc2.2
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -clix*)
- basic_machine=clipper-intergraph
- ;;
- -isc*)
- basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
- ;;
- -lynx*)
- os=-lynxos
- ;;
- -ptx*)
- basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'`
- ;;
- -windowsnt*)
- os=`echo $os | sed -e 's/windowsnt/winnt/'`
- ;;
- -psos*)
- os=-psos
- ;;
- -mint | -mint[0-9]*)
- basic_machine=m68k-atari
- os=-mint
- ;;
-esac
-
-# Decode aliases for certain CPU-COMPANY combinations.
-case $basic_machine in
- # Recognize the basic CPU types without company name.
- # Some are omitted here because they have special meanings below.
- 1750a | 580 \
- | a29k \
- | aarch64 | aarch64_be \
- | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \
- | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \
- | am33_2.0 \
- | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr | avr32 \
- | be32 | be64 \
- | bfin \
- | c4x | clipper \
- | d10v | d30v | dlx | dsp16xx \
- | epiphany \
- | fido | fr30 | frv \
- | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \
- | hexagon \
- | i370 | i860 | i960 | ia64 \
- | ip2k | iq2000 \
- | le32 | le64 \
- | lm32 \
- | m32c | m32r | m32rle | m68000 | m68k | m88k \
- | maxq | mb | microblaze | mcore | mep | metag \
- | mips | mipsbe | mipseb | mipsel | mipsle \
- | mips16 \
- | mips64 | mips64el \
- | mips64octeon | mips64octeonel \
- | mips64orion | mips64orionel \
- | mips64r5900 | mips64r5900el \
- | mips64vr | mips64vrel \
- | mips64vr4100 | mips64vr4100el \
- | mips64vr4300 | mips64vr4300el \
- | mips64vr5000 | mips64vr5000el \
- | mips64vr5900 | mips64vr5900el \
- | mipsisa32 | mipsisa32el \
- | mipsisa32r2 | mipsisa32r2el \
- | mipsisa64 | mipsisa64el \
- | mipsisa64r2 | mipsisa64r2el \
- | mipsisa64sb1 | mipsisa64sb1el \
- | mipsisa64sr71k | mipsisa64sr71kel \
- | mipstx39 | mipstx39el \
- | mn10200 | mn10300 \
- | moxie \
- | mt \
- | msp430 \
- | nds32 | nds32le | nds32be \
- | nios | nios2 \
- | ns16k | ns32k \
- | open8 \
- | or32 \
- | pdp10 | pdp11 | pj | pjl \
- | powerpc | powerpc64 | powerpc64le | powerpcle \
- | pyramid \
- | rl78 | rx \
- | score \
- | sh | sh[1234] | sh[24]a | sh[24]aeb | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \
- | sh64 | sh64le \
- | sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \
- | sparcv8 | sparcv9 | sparcv9b | sparcv9v \
- | spu \
- | tahoe | tic4x | tic54x | tic55x | tic6x | tic80 | tron \
- | ubicom32 \
- | v850 | v850e | v850e1 | v850e2 | v850es | v850e2v3 \
- | we32k \
- | x86 | xc16x | xstormy16 | xtensa \
- | z8k | z80)
- basic_machine=$basic_machine-unknown
- ;;
- c54x)
- basic_machine=tic54x-unknown
- ;;
- c55x)
- basic_machine=tic55x-unknown
- ;;
- c6x)
- basic_machine=tic6x-unknown
- ;;
- m6811 | m68hc11 | m6812 | m68hc12 | m68hcs12x | picochip)
- basic_machine=$basic_machine-unknown
- os=-none
- ;;
- m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k)
- ;;
- ms1)
- basic_machine=mt-unknown
- ;;
-
- strongarm | thumb | xscale)
- basic_machine=arm-unknown
- ;;
- xgate)
- basic_machine=$basic_machine-unknown
- os=-none
- ;;
- xscaleeb)
- basic_machine=armeb-unknown
- ;;
-
- xscaleel)
- basic_machine=armel-unknown
- ;;
-
- # We use `pc' rather than `unknown'
- # because (1) that's what they normally are, and
- # (2) the word "unknown" tends to confuse beginning users.
- i*86 | x86_64)
- basic_machine=$basic_machine-pc
- ;;
- # Object if more than one company name word.
- *-*-*)
- echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2
- exit 1
- ;;
- # Recognize the basic CPU types with company name.
- 580-* \
- | a29k-* \
- | aarch64-* | aarch64_be-* \
- | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \
- | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \
- | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \
- | arm-* | armbe-* | armle-* | armeb-* | armv*-* \
- | avr-* | avr32-* \
- | be32-* | be64-* \
- | bfin-* | bs2000-* \
- | c[123]* | c30-* | [cjt]90-* | c4x-* \
- | clipper-* | craynv-* | cydra-* \
- | d10v-* | d30v-* | dlx-* \
- | elxsi-* \
- | f30[01]-* | f700-* | fido-* | fr30-* | frv-* | fx80-* \
- | h8300-* | h8500-* \
- | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \
- | hexagon-* \
- | i*86-* | i860-* | i960-* | ia64-* \
- | ip2k-* | iq2000-* \
- | le32-* | le64-* \
- | lm32-* \
- | m32c-* | m32r-* | m32rle-* \
- | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \
- | m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \
- | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \
- | mips16-* \
- | mips64-* | mips64el-* \
- | mips64octeon-* | mips64octeonel-* \
- | mips64orion-* | mips64orionel-* \
- | mips64r5900-* | mips64r5900el-* \
- | mips64vr-* | mips64vrel-* \
- | mips64vr4100-* | mips64vr4100el-* \
- | mips64vr4300-* | mips64vr4300el-* \
- | mips64vr5000-* | mips64vr5000el-* \
- | mips64vr5900-* | mips64vr5900el-* \
- | mipsisa32-* | mipsisa32el-* \
- | mipsisa32r2-* | mipsisa32r2el-* \
- | mipsisa64-* | mipsisa64el-* \
- | mipsisa64r2-* | mipsisa64r2el-* \
- | mipsisa64sb1-* | mipsisa64sb1el-* \
- | mipsisa64sr71k-* | mipsisa64sr71kel-* \
- | mipstx39-* | mipstx39el-* \
- | mmix-* \
- | mt-* \
- | msp430-* \
- | nds32-* | nds32le-* | nds32be-* \
- | nios-* | nios2-* \
- | none-* | np1-* | ns16k-* | ns32k-* \
- | open8-* \
- | orion-* \
- | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \
- | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* \
- | pyramid-* \
- | rl78-* | romp-* | rs6000-* | rx-* \
- | sh-* | sh[1234]-* | sh[24]a-* | sh[24]aeb-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \
- | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \
- | sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \
- | sparclite-* \
- | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | sv1-* | sx?-* \
- | tahoe-* \
- | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \
- | tile*-* \
- | tron-* \
- | ubicom32-* \
- | v850-* | v850e-* | v850e1-* | v850es-* | v850e2-* | v850e2v3-* \
- | vax-* \
- | we32k-* \
- | x86-* | x86_64-* | xc16x-* | xps100-* \
- | xstormy16-* | xtensa*-* \
- | ymp-* \
- | z8k-* | z80-*)
- ;;
- # Recognize the basic CPU types without company name, with glob match.
- xtensa*)
- basic_machine=$basic_machine-unknown
- ;;
- # Recognize the various machine names and aliases which stand
- # for a CPU type and a company and sometimes even an OS.
- 386bsd)
- basic_machine=i386-unknown
- os=-bsd
- ;;
- 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc)
- basic_machine=m68000-att
- ;;
- 3b*)
- basic_machine=we32k-att
- ;;
- a29khif)
- basic_machine=a29k-amd
- os=-udi
- ;;
- abacus)
- basic_machine=abacus-unknown
- ;;
- adobe68k)
- basic_machine=m68010-adobe
- os=-scout
- ;;
- alliant | fx80)
- basic_machine=fx80-alliant
- ;;
- altos | altos3068)
- basic_machine=m68k-altos
- ;;
- am29k)
- basic_machine=a29k-none
- os=-bsd
- ;;
- amd64)
- basic_machine=x86_64-pc
- ;;
- amd64-*)
- basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- amdahl)
- basic_machine=580-amdahl
- os=-sysv
- ;;
- amiga | amiga-*)
- basic_machine=m68k-unknown
- ;;
- amigaos | amigados)
- basic_machine=m68k-unknown
- os=-amigaos
- ;;
- amigaunix | amix)
- basic_machine=m68k-unknown
- os=-sysv4
- ;;
- apollo68)
- basic_machine=m68k-apollo
- os=-sysv
- ;;
- apollo68bsd)
- basic_machine=m68k-apollo
- os=-bsd
- ;;
- aros)
- basic_machine=i386-pc
- os=-aros
- ;;
- aux)
- basic_machine=m68k-apple
- os=-aux
- ;;
- balance)
- basic_machine=ns32k-sequent
- os=-dynix
- ;;
- blackfin)
- basic_machine=bfin-unknown
- os=-linux
- ;;
- blackfin-*)
- basic_machine=bfin-`echo $basic_machine | sed 's/^[^-]*-//'`
- os=-linux
- ;;
- bluegene*)
- basic_machine=powerpc-ibm
- os=-cnk
- ;;
- c54x-*)
- basic_machine=tic54x-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- c55x-*)
- basic_machine=tic55x-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- c6x-*)
- basic_machine=tic6x-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- c90)
- basic_machine=c90-cray
- os=-unicos
- ;;
- cegcc)
- basic_machine=arm-unknown
- os=-cegcc
- ;;
- convex-c1)
- basic_machine=c1-convex
- os=-bsd
- ;;
- convex-c2)
- basic_machine=c2-convex
- os=-bsd
- ;;
- convex-c32)
- basic_machine=c32-convex
- os=-bsd
- ;;
- convex-c34)
- basic_machine=c34-convex
- os=-bsd
- ;;
- convex-c38)
- basic_machine=c38-convex
- os=-bsd
- ;;
- cray | j90)
- basic_machine=j90-cray
- os=-unicos
- ;;
- craynv)
- basic_machine=craynv-cray
- os=-unicosmp
- ;;
- cr16 | cr16-*)
- basic_machine=cr16-unknown
- os=-elf
- ;;
- crds | unos)
- basic_machine=m68k-crds
- ;;
- crisv32 | crisv32-* | etraxfs*)
- basic_machine=crisv32-axis
- ;;
- cris | cris-* | etrax*)
- basic_machine=cris-axis
- ;;
- crx)
- basic_machine=crx-unknown
- os=-elf
- ;;
- da30 | da30-*)
- basic_machine=m68k-da30
- ;;
- decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn)
- basic_machine=mips-dec
- ;;
- decsystem10* | dec10*)
- basic_machine=pdp10-dec
- os=-tops10
- ;;
- decsystem20* | dec20*)
- basic_machine=pdp10-dec
- os=-tops20
- ;;
- delta | 3300 | motorola-3300 | motorola-delta \
- | 3300-motorola | delta-motorola)
- basic_machine=m68k-motorola
- ;;
- delta88)
- basic_machine=m88k-motorola
- os=-sysv3
- ;;
- dicos)
- basic_machine=i686-pc
- os=-dicos
- ;;
- djgpp)
- basic_machine=i586-pc
- os=-msdosdjgpp
- ;;
- dpx20 | dpx20-*)
- basic_machine=rs6000-bull
- os=-bosx
- ;;
- dpx2* | dpx2*-bull)
- basic_machine=m68k-bull
- os=-sysv3
- ;;
- ebmon29k)
- basic_machine=a29k-amd
- os=-ebmon
- ;;
- elxsi)
- basic_machine=elxsi-elxsi
- os=-bsd
- ;;
- encore | umax | mmax)
- basic_machine=ns32k-encore
- ;;
- es1800 | OSE68k | ose68k | ose | OSE)
- basic_machine=m68k-ericsson
- os=-ose
- ;;
- fx2800)
- basic_machine=i860-alliant
- ;;
- genix)
- basic_machine=ns32k-ns
- ;;
- gmicro)
- basic_machine=tron-gmicro
- os=-sysv
- ;;
- go32)
- basic_machine=i386-pc
- os=-go32
- ;;
- h3050r* | hiux*)
- basic_machine=hppa1.1-hitachi
- os=-hiuxwe2
- ;;
- h8300hms)
- basic_machine=h8300-hitachi
- os=-hms
- ;;
- h8300xray)
- basic_machine=h8300-hitachi
- os=-xray
- ;;
- h8500hms)
- basic_machine=h8500-hitachi
- os=-hms
- ;;
- harris)
- basic_machine=m88k-harris
- os=-sysv3
- ;;
- hp300-*)
- basic_machine=m68k-hp
- ;;
- hp300bsd)
- basic_machine=m68k-hp
- os=-bsd
- ;;
- hp300hpux)
- basic_machine=m68k-hp
- os=-hpux
- ;;
- hp3k9[0-9][0-9] | hp9[0-9][0-9])
- basic_machine=hppa1.0-hp
- ;;
- hp9k2[0-9][0-9] | hp9k31[0-9])
- basic_machine=m68000-hp
- ;;
- hp9k3[2-9][0-9])
- basic_machine=m68k-hp
- ;;
- hp9k6[0-9][0-9] | hp6[0-9][0-9])
- basic_machine=hppa1.0-hp
- ;;
- hp9k7[0-79][0-9] | hp7[0-79][0-9])
- basic_machine=hppa1.1-hp
- ;;
- hp9k78[0-9] | hp78[0-9])
- # FIXME: really hppa2.0-hp
- basic_machine=hppa1.1-hp
- ;;
- hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893)
- # FIXME: really hppa2.0-hp
- basic_machine=hppa1.1-hp
- ;;
- hp9k8[0-9][13679] | hp8[0-9][13679])
- basic_machine=hppa1.1-hp
- ;;
- hp9k8[0-9][0-9] | hp8[0-9][0-9])
- basic_machine=hppa1.0-hp
- ;;
- hppa-next)
- os=-nextstep3
- ;;
- hppaosf)
- basic_machine=hppa1.1-hp
- os=-osf
- ;;
- hppro)
- basic_machine=hppa1.1-hp
- os=-proelf
- ;;
- i370-ibm* | ibm*)
- basic_machine=i370-ibm
- ;;
- i*86v32)
- basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
- os=-sysv32
- ;;
- i*86v4*)
- basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
- os=-sysv4
- ;;
- i*86v)
- basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
- os=-sysv
- ;;
- i*86sol2)
- basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
- os=-solaris2
- ;;
- i386mach)
- basic_machine=i386-mach
- os=-mach
- ;;
- i386-vsta | vsta)
- basic_machine=i386-unknown
- os=-vsta
- ;;
- iris | iris4d)
- basic_machine=mips-sgi
- case $os in
- -irix*)
- ;;
- *)
- os=-irix4
- ;;
- esac
- ;;
- isi68 | isi)
- basic_machine=m68k-isi
- os=-sysv
- ;;
- m68knommu)
- basic_machine=m68k-unknown
- os=-linux
- ;;
- m68knommu-*)
- basic_machine=m68k-`echo $basic_machine | sed 's/^[^-]*-//'`
- os=-linux
- ;;
- m88k-omron*)
- basic_machine=m88k-omron
- ;;
- magnum | m3230)
- basic_machine=mips-mips
- os=-sysv
- ;;
- merlin)
- basic_machine=ns32k-utek
- os=-sysv
- ;;
- microblaze)
- basic_machine=microblaze-xilinx
- ;;
- mingw32)
- basic_machine=i386-pc
- os=-mingw32
- ;;
- mingw32ce)
- basic_machine=arm-unknown
- os=-mingw32ce
- ;;
- miniframe)
- basic_machine=m68000-convergent
- ;;
- *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*)
- basic_machine=m68k-atari
- os=-mint
- ;;
- mips3*-*)
- basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`
- ;;
- mips3*)
- basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown
- ;;
- monitor)
- basic_machine=m68k-rom68k
- os=-coff
- ;;
- morphos)
- basic_machine=powerpc-unknown
- os=-morphos
- ;;
- msdos)
- basic_machine=i386-pc
- os=-msdos
- ;;
- ms1-*)
- basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'`
- ;;
- msys)
- basic_machine=i386-pc
- os=-msys
- ;;
- mvs)
- basic_machine=i370-ibm
- os=-mvs
- ;;
- nacl)
- basic_machine=le32-unknown
- os=-nacl
- ;;
- ncr3000)
- basic_machine=i486-ncr
- os=-sysv4
- ;;
- netbsd386)
- basic_machine=i386-unknown
- os=-netbsd
- ;;
- netwinder)
- basic_machine=armv4l-rebel
- os=-linux
- ;;
- news | news700 | news800 | news900)
- basic_machine=m68k-sony
- os=-newsos
- ;;
- news1000)
- basic_machine=m68030-sony
- os=-newsos
- ;;
- news-3600 | risc-news)
- basic_machine=mips-sony
- os=-newsos
- ;;
- necv70)
- basic_machine=v70-nec
- os=-sysv
- ;;
- next | m*-next )
- basic_machine=m68k-next
- case $os in
- -nextstep* )
- ;;
- -ns2*)
- os=-nextstep2
- ;;
- *)
- os=-nextstep3
- ;;
- esac
- ;;
- nh3000)
- basic_machine=m68k-harris
- os=-cxux
- ;;
- nh[45]000)
- basic_machine=m88k-harris
- os=-cxux
- ;;
- nindy960)
- basic_machine=i960-intel
- os=-nindy
- ;;
- mon960)
- basic_machine=i960-intel
- os=-mon960
- ;;
- nonstopux)
- basic_machine=mips-compaq
- os=-nonstopux
- ;;
- np1)
- basic_machine=np1-gould
- ;;
- neo-tandem)
- basic_machine=neo-tandem
- ;;
- nse-tandem)
- basic_machine=nse-tandem
- ;;
- nsr-tandem)
- basic_machine=nsr-tandem
- ;;
- op50n-* | op60c-*)
- basic_machine=hppa1.1-oki
- os=-proelf
- ;;
- openrisc | openrisc-*)
- basic_machine=or32-unknown
- ;;
- os400)
- basic_machine=powerpc-ibm
- os=-os400
- ;;
- OSE68000 | ose68000)
- basic_machine=m68000-ericsson
- os=-ose
- ;;
- os68k)
- basic_machine=m68k-none
- os=-os68k
- ;;
- pa-hitachi)
- basic_machine=hppa1.1-hitachi
- os=-hiuxwe2
- ;;
- paragon)
- basic_machine=i860-intel
- os=-osf
- ;;
- parisc)
- basic_machine=hppa-unknown
- os=-linux
- ;;
- parisc-*)
- basic_machine=hppa-`echo $basic_machine | sed 's/^[^-]*-//'`
- os=-linux
- ;;
- pbd)
- basic_machine=sparc-tti
- ;;
- pbb)
- basic_machine=m68k-tti
- ;;
- pc532 | pc532-*)
- basic_machine=ns32k-pc532
- ;;
- pc98)
- basic_machine=i386-pc
- ;;
- pc98-*)
- basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- pentium | p5 | k5 | k6 | nexgen | viac3)
- basic_machine=i586-pc
- ;;
- pentiumpro | p6 | 6x86 | athlon | athlon_*)
- basic_machine=i686-pc
- ;;
- pentiumii | pentium2 | pentiumiii | pentium3)
- basic_machine=i686-pc
- ;;
- pentium4)
- basic_machine=i786-pc
- ;;
- pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*)
- basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- pentiumpro-* | p6-* | 6x86-* | athlon-*)
- basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*)
- basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- pentium4-*)
- basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- pn)
- basic_machine=pn-gould
- ;;
- power) basic_machine=power-ibm
- ;;
- ppc | ppcbe) basic_machine=powerpc-unknown
- ;;
- ppc-* | ppcbe-*)
- basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- ppcle | powerpclittle | ppc-le | powerpc-little)
- basic_machine=powerpcle-unknown
- ;;
- ppcle-* | powerpclittle-*)
- basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- ppc64) basic_machine=powerpc64-unknown
- ;;
- ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- ppc64le | powerpc64little | ppc64-le | powerpc64-little)
- basic_machine=powerpc64le-unknown
- ;;
- ppc64le-* | powerpc64little-*)
- basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- ps2)
- basic_machine=i386-ibm
- ;;
- pw32)
- basic_machine=i586-unknown
- os=-pw32
- ;;
- rdos)
- basic_machine=i386-pc
- os=-rdos
- ;;
- rom68k)
- basic_machine=m68k-rom68k
- os=-coff
- ;;
- rm[46]00)
- basic_machine=mips-siemens
- ;;
- rtpc | rtpc-*)
- basic_machine=romp-ibm
- ;;
- s390 | s390-*)
- basic_machine=s390-ibm
- ;;
- s390x | s390x-*)
- basic_machine=s390x-ibm
- ;;
- sa29200)
- basic_machine=a29k-amd
- os=-udi
- ;;
- sb1)
- basic_machine=mipsisa64sb1-unknown
- ;;
- sb1el)
- basic_machine=mipsisa64sb1el-unknown
- ;;
- sde)
- basic_machine=mipsisa32-sde
- os=-elf
- ;;
- sei)
- basic_machine=mips-sei
- os=-seiux
- ;;
- sequent)
- basic_machine=i386-sequent
- ;;
- sh)
- basic_machine=sh-hitachi
- os=-hms
- ;;
- sh5el)
- basic_machine=sh5le-unknown
- ;;
- sh64)
- basic_machine=sh64-unknown
- ;;
- sparclite-wrs | simso-wrs)
- basic_machine=sparclite-wrs
- os=-vxworks
- ;;
- sps7)
- basic_machine=m68k-bull
- os=-sysv2
- ;;
- spur)
- basic_machine=spur-unknown
- ;;
- st2000)
- basic_machine=m68k-tandem
- ;;
- stratus)
- basic_machine=i860-stratus
- os=-sysv4
- ;;
- strongarm-* | thumb-*)
- basic_machine=arm-`echo $basic_machine | sed 's/^[^-]*-//'`
- ;;
- sun2)
- basic_machine=m68000-sun
- ;;
- sun2os3)
- basic_machine=m68000-sun
- os=-sunos3
- ;;
- sun2os4)
- basic_machine=m68000-sun
- os=-sunos4
- ;;
- sun3os3)
- basic_machine=m68k-sun
- os=-sunos3
- ;;
- sun3os4)
- basic_machine=m68k-sun
- os=-sunos4
- ;;
- sun4os3)
- basic_machine=sparc-sun
- os=-sunos3
- ;;
- sun4os4)
- basic_machine=sparc-sun
- os=-sunos4
- ;;
- sun4sol2)
- basic_machine=sparc-sun
- os=-solaris2
- ;;
- sun3 | sun3-*)
- basic_machine=m68k-sun
- ;;
- sun4)
- basic_machine=sparc-sun
- ;;
- sun386 | sun386i | roadrunner)
- basic_machine=i386-sun
- ;;
- sv1)
- basic_machine=sv1-cray
- os=-unicos
- ;;
- symmetry)
- basic_machine=i386-sequent
- os=-dynix
- ;;
- t3e)
- basic_machine=alphaev5-cray
- os=-unicos
- ;;
- t90)
- basic_machine=t90-cray
- os=-unicos
- ;;
- tile*)
- basic_machine=$basic_machine-unknown
- os=-linux-gnu
- ;;
- tx39)
- basic_machine=mipstx39-unknown
- ;;
- tx39el)
- basic_machine=mipstx39el-unknown
- ;;
- toad1)
- basic_machine=pdp10-xkl
- os=-tops20
- ;;
- tower | tower-32)
- basic_machine=m68k-ncr
- ;;
- tpf)
- basic_machine=s390x-ibm
- os=-tpf
- ;;
- udi29k)
- basic_machine=a29k-amd
- os=-udi
- ;;
- ultra3)
- basic_machine=a29k-nyu
- os=-sym1
- ;;
- v810 | necv810)
- basic_machine=v810-nec
- os=-none
- ;;
- vaxv)
- basic_machine=vax-dec
- os=-sysv
- ;;
- vms)
- basic_machine=vax-dec
- os=-vms
- ;;
- vpp*|vx|vx-*)
- basic_machine=f301-fujitsu
- ;;
- vxworks960)
- basic_machine=i960-wrs
- os=-vxworks
- ;;
- vxworks68)
- basic_machine=m68k-wrs
- os=-vxworks
- ;;
- vxworks29k)
- basic_machine=a29k-wrs
- os=-vxworks
- ;;
- w65*)
- basic_machine=w65-wdc
- os=-none
- ;;
- w89k-*)
- basic_machine=hppa1.1-winbond
- os=-proelf
- ;;
- xbox)
- basic_machine=i686-pc
- os=-mingw32
- ;;
- xps | xps100)
- basic_machine=xps100-honeywell
- ;;
- xscale-* | xscalee[bl]-*)
- basic_machine=`echo $basic_machine | sed 's/^xscale/arm/'`
- ;;
- ymp)
- basic_machine=ymp-cray
- os=-unicos
- ;;
- z8k-*-coff)
- basic_machine=z8k-unknown
- os=-sim
- ;;
- z80-*-coff)
- basic_machine=z80-unknown
- os=-sim
- ;;
- none)
- basic_machine=none-none
- os=-none
- ;;
-
-# Here we handle the default manufacturer of certain CPU types. It is in
-# some cases the only manufacturer, in others, it is the most popular.
- w89k)
- basic_machine=hppa1.1-winbond
- ;;
- op50n)
- basic_machine=hppa1.1-oki
- ;;
- op60c)
- basic_machine=hppa1.1-oki
- ;;
- romp)
- basic_machine=romp-ibm
- ;;
- mmix)
- basic_machine=mmix-knuth
- ;;
- rs6000)
- basic_machine=rs6000-ibm
- ;;
- vax)
- basic_machine=vax-dec
- ;;
- pdp10)
- # there are many clones, so DEC is not a safe bet
- basic_machine=pdp10-unknown
- ;;
- pdp11)
- basic_machine=pdp11-dec
- ;;
- we32k)
- basic_machine=we32k-att
- ;;
- sh[1234] | sh[24]a | sh[24]aeb | sh[34]eb | sh[1234]le | sh[23]ele)
- basic_machine=sh-unknown
- ;;
- sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v)
- basic_machine=sparc-sun
- ;;
- cydra)
- basic_machine=cydra-cydrome
- ;;
- orion)
- basic_machine=orion-highlevel
- ;;
- orion105)
- basic_machine=clipper-highlevel
- ;;
- mac | mpw | mac-mpw)
- basic_machine=m68k-apple
- ;;
- pmac | pmac-mpw)
- basic_machine=powerpc-apple
- ;;
- *-unknown)
- # Make sure to match an already-canonicalized machine name.
- ;;
- *)
- echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2
- exit 1
- ;;
-esac
-
-# Here we canonicalize certain aliases for manufacturers.
-case $basic_machine in
- *-digital*)
- basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'`
- ;;
- *-commodore*)
- basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'`
- ;;
- *)
- ;;
-esac
-
-# Decode manufacturer-specific aliases for certain operating systems.
-
-if [ x"$os" != x"" ]
-then
-case $os in
- # First match some system type aliases
- # that might get confused with valid system types.
- # -solaris* is a basic system type, with this one exception.
- -auroraux)
- os=-auroraux
- ;;
- -solaris1 | -solaris1.*)
- os=`echo $os | sed -e 's|solaris1|sunos4|'`
- ;;
- -solaris)
- os=-solaris2
- ;;
- -svr4*)
- os=-sysv4
- ;;
- -unixware*)
- os=-sysv4.2uw
- ;;
- -gnu/linux*)
- os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'`
- ;;
- # First accept the basic system types.
- # The portable systems comes first.
- # Each alternative MUST END IN A *, to match a version number.
- # -sysv* is not here because it comes later, after sysvr4.
- -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \
- | -*vms* | -sco* | -esix* | -isc* | -aix* | -cnk* | -sunos | -sunos[34]*\
- | -hpux* | -unos* | -osf* | -luna* | -dgux* | -auroraux* | -solaris* \
- | -sym* | -kopensolaris* \
- | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \
- | -aos* | -aros* \
- | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \
- | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \
- | -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \
- | -openbsd* | -solidbsd* \
- | -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \
- | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \
- | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \
- | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \
- | -chorusos* | -chorusrdb* | -cegcc* \
- | -cygwin* | -msys* | -pe* | -psos* | -moss* | -proelf* | -rtems* \
- | -mingw32* | -linux-gnu* | -linux-android* \
- | -linux-newlib* | -linux-uclibc* \
- | -uxpv* | -beos* | -mpeix* | -udk* \
- | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \
- | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \
- | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \
- | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \
- | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \
- | -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \
- | -skyos* | -haiku* | -rdos* | -toppers* | -drops* | -es*)
- # Remember, each alternative MUST END IN *, to match a version number.
- ;;
- -qnx*)
- case $basic_machine in
- x86-* | i*86-*)
- ;;
- *)
- os=-nto$os
- ;;
- esac
- ;;
- -nto-qnx*)
- ;;
- -nto*)
- os=`echo $os | sed -e 's|nto|nto-qnx|'`
- ;;
- -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \
- | -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \
- | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*)
- ;;
- -mac*)
- os=`echo $os | sed -e 's|mac|macos|'`
- ;;
- -linux-dietlibc)
- os=-linux-dietlibc
- ;;
- -linux*)
- os=`echo $os | sed -e 's|linux|linux-gnu|'`
- ;;
- -sunos5*)
- os=`echo $os | sed -e 's|sunos5|solaris2|'`
- ;;
- -sunos6*)
- os=`echo $os | sed -e 's|sunos6|solaris3|'`
- ;;
- -opened*)
- os=-openedition
- ;;
- -os400*)
- os=-os400
- ;;
- -wince*)
- os=-wince
- ;;
- -osfrose*)
- os=-osfrose
- ;;
- -osf*)
- os=-osf
- ;;
- -utek*)
- os=-bsd
- ;;
- -dynix*)
- os=-bsd
- ;;
- -acis*)
- os=-aos
- ;;
- -atheos*)
- os=-atheos
- ;;
- -syllable*)
- os=-syllable
- ;;
- -386bsd)
- os=-bsd
- ;;
- -ctix* | -uts*)
- os=-sysv
- ;;
- -nova*)
- os=-rtmk-nova
- ;;
- -ns2 )
- os=-nextstep2
- ;;
- -nsk*)
- os=-nsk
- ;;
- # Preserve the version number of sinix5.
- -sinix5.*)
- os=`echo $os | sed -e 's|sinix|sysv|'`
- ;;
- -sinix*)
- os=-sysv4
- ;;
- -tpf*)
- os=-tpf
- ;;
- -triton*)
- os=-sysv3
- ;;
- -oss*)
- os=-sysv3
- ;;
- -svr4)
- os=-sysv4
- ;;
- -svr3)
- os=-sysv3
- ;;
- -sysvr4)
- os=-sysv4
- ;;
- # This must come after -sysvr4.
- -sysv*)
- ;;
- -ose*)
- os=-ose
- ;;
- -es1800*)
- os=-ose
- ;;
- -xenix)
- os=-xenix
- ;;
- -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)
- os=-mint
- ;;
- -aros*)
- os=-aros
- ;;
- -kaos*)
- os=-kaos
- ;;
- -zvmoe)
- os=-zvmoe
- ;;
- -dicos*)
- os=-dicos
- ;;
- -nacl*)
- ;;
- -none)
- ;;
- *)
- # Get rid of the `-' at the beginning of $os.
- os=`echo $os | sed 's/[^-]*-//'`
- echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2
- exit 1
- ;;
-esac
-else
-
-# Here we handle the default operating systems that come with various machines.
-# The value should be what the vendor currently ships out the door with their
-# machine or put another way, the most popular os provided with the machine.
-
-# Note that if you're going to try to match "-MANUFACTURER" here (say,
-# "-sun"), then you have to tell the case statement up towards the top
-# that MANUFACTURER isn't an operating system. Otherwise, code above
-# will signal an error saying that MANUFACTURER isn't an operating
-# system, and we'll never get to this point.
-
-case $basic_machine in
- score-*)
- os=-elf
- ;;
- spu-*)
- os=-elf
- ;;
- *-acorn)
- os=-riscix1.2
- ;;
- arm*-rebel)
- os=-linux
- ;;
- arm*-semi)
- os=-aout
- ;;
- c4x-* | tic4x-*)
- os=-coff
- ;;
- tic54x-*)
- os=-coff
- ;;
- tic55x-*)
- os=-coff
- ;;
- tic6x-*)
- os=-coff
- ;;
- # This must come before the *-dec entry.
- pdp10-*)
- os=-tops20
- ;;
- pdp11-*)
- os=-none
- ;;
- *-dec | vax-*)
- os=-ultrix4.2
- ;;
- m68*-apollo)
- os=-domain
- ;;
- i386-sun)
- os=-sunos4.0.2
- ;;
- m68000-sun)
- os=-sunos3
- ;;
- m68*-cisco)
- os=-aout
- ;;
- mep-*)
- os=-elf
- ;;
- mips*-cisco)
- os=-elf
- ;;
- mips*-*)
- os=-elf
- ;;
- or32-*)
- os=-coff
- ;;
- *-tti) # must be before sparc entry or we get the wrong os.
- os=-sysv3
- ;;
- sparc-* | *-sun)
- os=-sunos4.1.1
- ;;
- *-be)
- os=-beos
- ;;
- *-haiku)
- os=-haiku
- ;;
- *-ibm)
- os=-aix
- ;;
- *-knuth)
- os=-mmixware
- ;;
- *-wec)
- os=-proelf
- ;;
- *-winbond)
- os=-proelf
- ;;
- *-oki)
- os=-proelf
- ;;
- *-hp)
- os=-hpux
- ;;
- *-hitachi)
- os=-hiux
- ;;
- i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent)
- os=-sysv
- ;;
- *-cbm)
- os=-amigaos
- ;;
- *-dg)
- os=-dgux
- ;;
- *-dolphin)
- os=-sysv3
- ;;
- m68k-ccur)
- os=-rtu
- ;;
- m88k-omron*)
- os=-luna
- ;;
- *-next )
- os=-nextstep
- ;;
- *-sequent)
- os=-ptx
- ;;
- *-crds)
- os=-unos
- ;;
- *-ns)
- os=-genix
- ;;
- i370-*)
- os=-mvs
- ;;
- *-next)
- os=-nextstep3
- ;;
- *-gould)
- os=-sysv
- ;;
- *-highlevel)
- os=-bsd
- ;;
- *-encore)
- os=-bsd
- ;;
- *-sgi)
- os=-irix
- ;;
- *-siemens)
- os=-sysv4
- ;;
- *-masscomp)
- os=-rtu
- ;;
- f30[01]-fujitsu | f700-fujitsu)
- os=-uxpv
- ;;
- *-rom68k)
- os=-coff
- ;;
- *-*bug)
- os=-coff
- ;;
- *-apple)
- os=-macos
- ;;
- *-atari*)
- os=-mint
- ;;
- *)
- os=-none
- ;;
-esac
-fi
-
-# Here we handle the case where we know the os, and the CPU type, but not the
-# manufacturer. We pick the logical manufacturer.
-vendor=unknown
-case $basic_machine in
- *-unknown)
- case $os in
- -riscix*)
- vendor=acorn
- ;;
- -sunos*)
- vendor=sun
- ;;
- -cnk*|-aix*)
- vendor=ibm
- ;;
- -beos*)
- vendor=be
- ;;
- -hpux*)
- vendor=hp
- ;;
- -mpeix*)
- vendor=hp
- ;;
- -hiux*)
- vendor=hitachi
- ;;
- -unos*)
- vendor=crds
- ;;
- -dgux*)
- vendor=dg
- ;;
- -luna*)
- vendor=omron
- ;;
- -genix*)
- vendor=ns
- ;;
- -mvs* | -opened*)
- vendor=ibm
- ;;
- -os400*)
- vendor=ibm
- ;;
- -ptx*)
- vendor=sequent
- ;;
- -tpf*)
- vendor=ibm
- ;;
- -vxsim* | -vxworks* | -windiss*)
- vendor=wrs
- ;;
- -aux*)
- vendor=apple
- ;;
- -hms*)
- vendor=hitachi
- ;;
- -mpw* | -macos*)
- vendor=apple
- ;;
- -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)
- vendor=atari
- ;;
- -vos*)
- vendor=stratus
- ;;
- esac
- basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"`
- ;;
-esac
-
-echo $basic_machine$os
-exit
-
-# Local variables:
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "timestamp='"
-# time-stamp-format: "%:y-%02m-%02d"
-# time-stamp-end: "'"
-# End:
+++ /dev/null
-#! /bin/sh
-# depcomp - compile a program generating dependencies as side-effects
-
-scriptversion=2011-12-04.11; # UTC
-
-# Copyright (C) 1999, 2000, 2003, 2004, 2005, 2006, 2007, 2009, 2010,
-# 2011 Free Software Foundation, Inc.
-
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-
-# This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program that contains a
-# configuration script generated by Autoconf, you may include it under
-# the same distribution terms that you use for the rest of that program.
-
-# Originally written by Alexandre Oliva <oliva@dcc.unicamp.br>.
-
-case $1 in
- '')
- echo "$0: No command. Try \`$0 --help' for more information." 1>&2
- exit 1;
- ;;
- -h | --h*)
- cat <<\EOF
-Usage: depcomp [--help] [--version] PROGRAM [ARGS]
-
-Run PROGRAMS ARGS to compile a file, generating dependencies
-as side-effects.
-
-Environment variables:
- depmode Dependency tracking mode.
- source Source file read by `PROGRAMS ARGS'.
- object Object file output by `PROGRAMS ARGS'.
- DEPDIR directory where to store dependencies.
- depfile Dependency file to output.
- tmpdepfile Temporary file to use when outputting dependencies.
- libtool Whether libtool is used (yes/no).
-
-Report bugs to <bug-automake@gnu.org>.
-EOF
- exit $?
- ;;
- -v | --v*)
- echo "depcomp $scriptversion"
- exit $?
- ;;
-esac
-
-if test -z "$depmode" || test -z "$source" || test -z "$object"; then
- echo "depcomp: Variables source, object and depmode must be set" 1>&2
- exit 1
-fi
-
-# Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po.
-depfile=${depfile-`echo "$object" |
- sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`}
-tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`}
-
-rm -f "$tmpdepfile"
-
-# Some modes work just like other modes, but use different flags. We
-# parameterize here, but still list the modes in the big case below,
-# to make depend.m4 easier to write. Note that we *cannot* use a case
-# here, because this file can only contain one case statement.
-if test "$depmode" = hp; then
- # HP compiler uses -M and no extra arg.
- gccflag=-M
- depmode=gcc
-fi
-
-if test "$depmode" = dashXmstdout; then
- # This is just like dashmstdout with a different argument.
- dashmflag=-xM
- depmode=dashmstdout
-fi
-
-cygpath_u="cygpath -u -f -"
-if test "$depmode" = msvcmsys; then
- # This is just like msvisualcpp but w/o cygpath translation.
- # Just convert the backslash-escaped backslashes to single forward
- # slashes to satisfy depend.m4
- cygpath_u='sed s,\\\\,/,g'
- depmode=msvisualcpp
-fi
-
-if test "$depmode" = msvc7msys; then
- # This is just like msvc7 but w/o cygpath translation.
- # Just convert the backslash-escaped backslashes to single forward
- # slashes to satisfy depend.m4
- cygpath_u='sed s,\\\\,/,g'
- depmode=msvc7
-fi
-
-case "$depmode" in
-gcc3)
-## gcc 3 implements dependency tracking that does exactly what
-## we want. Yay! Note: for some reason libtool 1.4 doesn't like
-## it if -MD -MP comes after the -MF stuff. Hmm.
-## Unfortunately, FreeBSD c89 acceptance of flags depends upon
-## the command line argument order; so add the flags where they
-## appear in depend2.am. Note that the slowdown incurred here
-## affects only configure: in makefiles, %FASTDEP% shortcuts this.
- for arg
- do
- case $arg in
- -c) set fnord "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" "$arg" ;;
- *) set fnord "$@" "$arg" ;;
- esac
- shift # fnord
- shift # $arg
- done
- "$@"
- stat=$?
- if test $stat -eq 0; then :
- else
- rm -f "$tmpdepfile"
- exit $stat
- fi
- mv "$tmpdepfile" "$depfile"
- ;;
-
-gcc)
-## There are various ways to get dependency output from gcc. Here's
-## why we pick this rather obscure method:
-## - Don't want to use -MD because we'd like the dependencies to end
-## up in a subdir. Having to rename by hand is ugly.
-## (We might end up doing this anyway to support other compilers.)
-## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like
-## -MM, not -M (despite what the docs say).
-## - Using -M directly means running the compiler twice (even worse
-## than renaming).
- if test -z "$gccflag"; then
- gccflag=-MD,
- fi
- "$@" -Wp,"$gccflag$tmpdepfile"
- stat=$?
- if test $stat -eq 0; then :
- else
- rm -f "$tmpdepfile"
- exit $stat
- fi
- rm -f "$depfile"
- echo "$object : \\" > "$depfile"
- alpha=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
-## The second -e expression handles DOS-style file names with drive letters.
- sed -e 's/^[^:]*: / /' \
- -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile"
-## This next piece of magic avoids the `deleted header file' problem.
-## The problem is that when a header file which appears in a .P file
-## is deleted, the dependency causes make to die (because there is
-## typically no way to rebuild the header). We avoid this by adding
-## dummy dependencies for each header file. Too bad gcc doesn't do
-## this for us directly.
- tr ' ' '
-' < "$tmpdepfile" |
-## Some versions of gcc put a space before the `:'. On the theory
-## that the space means something, we add a space to the output as
-## well. hp depmode also adds that space, but also prefixes the VPATH
-## to the object. Take care to not repeat it in the output.
-## Some versions of the HPUX 10.20 sed can't process this invocation
-## correctly. Breaking it into two sed invocations is a workaround.
- sed -e 's/^\\$//' -e '/^$/d' -e "s|.*$object$||" -e '/:$/d' \
- | sed -e 's/$/ :/' >> "$depfile"
- rm -f "$tmpdepfile"
- ;;
-
-hp)
- # This case exists only to let depend.m4 do its work. It works by
- # looking at the text of this script. This case will never be run,
- # since it is checked for above.
- exit 1
- ;;
-
-sgi)
- if test "$libtool" = yes; then
- "$@" "-Wp,-MDupdate,$tmpdepfile"
- else
- "$@" -MDupdate "$tmpdepfile"
- fi
- stat=$?
- if test $stat -eq 0; then :
- else
- rm -f "$tmpdepfile"
- exit $stat
- fi
- rm -f "$depfile"
-
- if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files
- echo "$object : \\" > "$depfile"
-
- # Clip off the initial element (the dependent). Don't try to be
- # clever and replace this with sed code, as IRIX sed won't handle
- # lines with more than a fixed number of characters (4096 in
- # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines;
- # the IRIX cc adds comments like `#:fec' to the end of the
- # dependency line.
- tr ' ' '
-' < "$tmpdepfile" \
- | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' | \
- tr '
-' ' ' >> "$depfile"
- echo >> "$depfile"
-
- # The second pass generates a dummy entry for each header file.
- tr ' ' '
-' < "$tmpdepfile" \
- | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \
- >> "$depfile"
- else
- # The sourcefile does not contain any dependencies, so just
- # store a dummy comment line, to avoid errors with the Makefile
- # "include basename.Plo" scheme.
- echo "#dummy" > "$depfile"
- fi
- rm -f "$tmpdepfile"
- ;;
-
-aix)
- # The C for AIX Compiler uses -M and outputs the dependencies
- # in a .u file. In older versions, this file always lives in the
- # current directory. Also, the AIX compiler puts `$object:' at the
- # start of each line; $object doesn't have directory information.
- # Version 6 uses the directory in both cases.
- dir=`echo "$object" | sed -e 's|/[^/]*$|/|'`
- test "x$dir" = "x$object" && dir=
- base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'`
- if test "$libtool" = yes; then
- tmpdepfile1=$dir$base.u
- tmpdepfile2=$base.u
- tmpdepfile3=$dir.libs/$base.u
- "$@" -Wc,-M
- else
- tmpdepfile1=$dir$base.u
- tmpdepfile2=$dir$base.u
- tmpdepfile3=$dir$base.u
- "$@" -M
- fi
- stat=$?
-
- if test $stat -eq 0; then :
- else
- rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
- exit $stat
- fi
-
- for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3"
- do
- test -f "$tmpdepfile" && break
- done
- if test -f "$tmpdepfile"; then
- # Each line is of the form `foo.o: dependent.h'.
- # Do two passes, one to just change these to
- # `$object: dependent.h' and one to simply `dependent.h:'.
- sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile"
- # That's a tab and a space in the [].
- sed -e 's,^.*\.[a-z]*:[ ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile"
- else
- # The sourcefile does not contain any dependencies, so just
- # store a dummy comment line, to avoid errors with the Makefile
- # "include basename.Plo" scheme.
- echo "#dummy" > "$depfile"
- fi
- rm -f "$tmpdepfile"
- ;;
-
-icc)
- # Intel's C compiler understands `-MD -MF file'. However on
- # icc -MD -MF foo.d -c -o sub/foo.o sub/foo.c
- # ICC 7.0 will fill foo.d with something like
- # foo.o: sub/foo.c
- # foo.o: sub/foo.h
- # which is wrong. We want:
- # sub/foo.o: sub/foo.c
- # sub/foo.o: sub/foo.h
- # sub/foo.c:
- # sub/foo.h:
- # ICC 7.1 will output
- # foo.o: sub/foo.c sub/foo.h
- # and will wrap long lines using \ :
- # foo.o: sub/foo.c ... \
- # sub/foo.h ... \
- # ...
-
- "$@" -MD -MF "$tmpdepfile"
- stat=$?
- if test $stat -eq 0; then :
- else
- rm -f "$tmpdepfile"
- exit $stat
- fi
- rm -f "$depfile"
- # Each line is of the form `foo.o: dependent.h',
- # or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'.
- # Do two passes, one to just change these to
- # `$object: dependent.h' and one to simply `dependent.h:'.
- sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile"
- # Some versions of the HPUX 10.20 sed can't process this invocation
- # correctly. Breaking it into two sed invocations is a workaround.
- sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" |
- sed -e 's/$/ :/' >> "$depfile"
- rm -f "$tmpdepfile"
- ;;
-
-hp2)
- # The "hp" stanza above does not work with aCC (C++) and HP's ia64
- # compilers, which have integrated preprocessors. The correct option
- # to use with these is +Maked; it writes dependencies to a file named
- # 'foo.d', which lands next to the object file, wherever that
- # happens to be.
- # Much of this is similar to the tru64 case; see comments there.
- dir=`echo "$object" | sed -e 's|/[^/]*$|/|'`
- test "x$dir" = "x$object" && dir=
- base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'`
- if test "$libtool" = yes; then
- tmpdepfile1=$dir$base.d
- tmpdepfile2=$dir.libs/$base.d
- "$@" -Wc,+Maked
- else
- tmpdepfile1=$dir$base.d
- tmpdepfile2=$dir$base.d
- "$@" +Maked
- fi
- stat=$?
- if test $stat -eq 0; then :
- else
- rm -f "$tmpdepfile1" "$tmpdepfile2"
- exit $stat
- fi
-
- for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2"
- do
- test -f "$tmpdepfile" && break
- done
- if test -f "$tmpdepfile"; then
- sed -e "s,^.*\.[a-z]*:,$object:," "$tmpdepfile" > "$depfile"
- # Add `dependent.h:' lines.
- sed -ne '2,${
- s/^ *//
- s/ \\*$//
- s/$/:/
- p
- }' "$tmpdepfile" >> "$depfile"
- else
- echo "#dummy" > "$depfile"
- fi
- rm -f "$tmpdepfile" "$tmpdepfile2"
- ;;
-
-tru64)
- # The Tru64 compiler uses -MD to generate dependencies as a side
- # effect. `cc -MD -o foo.o ...' puts the dependencies into `foo.o.d'.
- # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put
- # dependencies in `foo.d' instead, so we check for that too.
- # Subdirectories are respected.
- dir=`echo "$object" | sed -e 's|/[^/]*$|/|'`
- test "x$dir" = "x$object" && dir=
- base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'`
-
- if test "$libtool" = yes; then
- # With Tru64 cc, shared objects can also be used to make a
- # static library. This mechanism is used in libtool 1.4 series to
- # handle both shared and static libraries in a single compilation.
- # With libtool 1.4, dependencies were output in $dir.libs/$base.lo.d.
- #
- # With libtool 1.5 this exception was removed, and libtool now
- # generates 2 separate objects for the 2 libraries. These two
- # compilations output dependencies in $dir.libs/$base.o.d and
- # in $dir$base.o.d. We have to check for both files, because
- # one of the two compilations can be disabled. We should prefer
- # $dir$base.o.d over $dir.libs/$base.o.d because the latter is
- # automatically cleaned when .libs/ is deleted, while ignoring
- # the former would cause a distcleancheck panic.
- tmpdepfile1=$dir.libs/$base.lo.d # libtool 1.4
- tmpdepfile2=$dir$base.o.d # libtool 1.5
- tmpdepfile3=$dir.libs/$base.o.d # libtool 1.5
- tmpdepfile4=$dir.libs/$base.d # Compaq CCC V6.2-504
- "$@" -Wc,-MD
- else
- tmpdepfile1=$dir$base.o.d
- tmpdepfile2=$dir$base.d
- tmpdepfile3=$dir$base.d
- tmpdepfile4=$dir$base.d
- "$@" -MD
- fi
-
- stat=$?
- if test $stat -eq 0; then :
- else
- rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4"
- exit $stat
- fi
-
- for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4"
- do
- test -f "$tmpdepfile" && break
- done
- if test -f "$tmpdepfile"; then
- sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile"
- # That's a tab and a space in the [].
- sed -e 's,^.*\.[a-z]*:[ ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile"
- else
- echo "#dummy" > "$depfile"
- fi
- rm -f "$tmpdepfile"
- ;;
-
-msvc7)
- if test "$libtool" = yes; then
- showIncludes=-Wc,-showIncludes
- else
- showIncludes=-showIncludes
- fi
- "$@" $showIncludes > "$tmpdepfile"
- stat=$?
- grep -v '^Note: including file: ' "$tmpdepfile"
- if test "$stat" = 0; then :
- else
- rm -f "$tmpdepfile"
- exit $stat
- fi
- rm -f "$depfile"
- echo "$object : \\" > "$depfile"
- # The first sed program below extracts the file names and escapes
- # backslashes for cygpath. The second sed program outputs the file
- # name when reading, but also accumulates all include files in the
- # hold buffer in order to output them again at the end. This only
- # works with sed implementations that can handle large buffers.
- sed < "$tmpdepfile" -n '
-/^Note: including file: *\(.*\)/ {
- s//\1/
- s/\\/\\\\/g
- p
-}' | $cygpath_u | sort -u | sed -n '
-s/ /\\ /g
-s/\(.*\)/ \1 \\/p
-s/.\(.*\) \\/\1:/
-H
-$ {
- s/.*/ /
- G
- p
-}' >> "$depfile"
- rm -f "$tmpdepfile"
- ;;
-
-msvc7msys)
- # This case exists only to let depend.m4 do its work. It works by
- # looking at the text of this script. This case will never be run,
- # since it is checked for above.
- exit 1
- ;;
-
-#nosideeffect)
- # This comment above is used by automake to tell side-effect
- # dependency tracking mechanisms from slower ones.
-
-dashmstdout)
- # Important note: in order to support this mode, a compiler *must*
- # always write the preprocessed file to stdout, regardless of -o.
- "$@" || exit $?
-
- # Remove the call to Libtool.
- if test "$libtool" = yes; then
- while test "X$1" != 'X--mode=compile'; do
- shift
- done
- shift
- fi
-
- # Remove `-o $object'.
- IFS=" "
- for arg
- do
- case $arg in
- -o)
- shift
- ;;
- $object)
- shift
- ;;
- *)
- set fnord "$@" "$arg"
- shift # fnord
- shift # $arg
- ;;
- esac
- done
-
- test -z "$dashmflag" && dashmflag=-M
- # Require at least two characters before searching for `:'
- # in the target name. This is to cope with DOS-style filenames:
- # a dependency such as `c:/foo/bar' could be seen as target `c' otherwise.
- "$@" $dashmflag |
- sed 's:^[ ]*[^: ][^:][^:]*\:[ ]*:'"$object"'\: :' > "$tmpdepfile"
- rm -f "$depfile"
- cat < "$tmpdepfile" > "$depfile"
- tr ' ' '
-' < "$tmpdepfile" | \
-## Some versions of the HPUX 10.20 sed can't process this invocation
-## correctly. Breaking it into two sed invocations is a workaround.
- sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile"
- rm -f "$tmpdepfile"
- ;;
-
-dashXmstdout)
- # This case only exists to satisfy depend.m4. It is never actually
- # run, as this mode is specially recognized in the preamble.
- exit 1
- ;;
-
-makedepend)
- "$@" || exit $?
- # Remove any Libtool call
- if test "$libtool" = yes; then
- while test "X$1" != 'X--mode=compile'; do
- shift
- done
- shift
- fi
- # X makedepend
- shift
- cleared=no eat=no
- for arg
- do
- case $cleared in
- no)
- set ""; shift
- cleared=yes ;;
- esac
- if test $eat = yes; then
- eat=no
- continue
- fi
- case "$arg" in
- -D*|-I*)
- set fnord "$@" "$arg"; shift ;;
- # Strip any option that makedepend may not understand. Remove
- # the object too, otherwise makedepend will parse it as a source file.
- -arch)
- eat=yes ;;
- -*|$object)
- ;;
- *)
- set fnord "$@" "$arg"; shift ;;
- esac
- done
- obj_suffix=`echo "$object" | sed 's/^.*\././'`
- touch "$tmpdepfile"
- ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@"
- rm -f "$depfile"
- # makedepend may prepend the VPATH from the source file name to the object.
- # No need to regex-escape $object, excess matching of '.' is harmless.
- sed "s|^.*\($object *:\)|\1|" "$tmpdepfile" > "$depfile"
- sed '1,2d' "$tmpdepfile" | tr ' ' '
-' | \
-## Some versions of the HPUX 10.20 sed can't process this invocation
-## correctly. Breaking it into two sed invocations is a workaround.
- sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile"
- rm -f "$tmpdepfile" "$tmpdepfile".bak
- ;;
-
-cpp)
- # Important note: in order to support this mode, a compiler *must*
- # always write the preprocessed file to stdout.
- "$@" || exit $?
-
- # Remove the call to Libtool.
- if test "$libtool" = yes; then
- while test "X$1" != 'X--mode=compile'; do
- shift
- done
- shift
- fi
-
- # Remove `-o $object'.
- IFS=" "
- for arg
- do
- case $arg in
- -o)
- shift
- ;;
- $object)
- shift
- ;;
- *)
- set fnord "$@" "$arg"
- shift # fnord
- shift # $arg
- ;;
- esac
- done
-
- "$@" -E |
- sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \
- -e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' |
- sed '$ s: \\$::' > "$tmpdepfile"
- rm -f "$depfile"
- echo "$object : \\" > "$depfile"
- cat < "$tmpdepfile" >> "$depfile"
- sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile"
- rm -f "$tmpdepfile"
- ;;
-
-msvisualcpp)
- # Important note: in order to support this mode, a compiler *must*
- # always write the preprocessed file to stdout.
- "$@" || exit $?
-
- # Remove the call to Libtool.
- if test "$libtool" = yes; then
- while test "X$1" != 'X--mode=compile'; do
- shift
- done
- shift
- fi
-
- IFS=" "
- for arg
- do
- case "$arg" in
- -o)
- shift
- ;;
- $object)
- shift
- ;;
- "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI")
- set fnord "$@"
- shift
- shift
- ;;
- *)
- set fnord "$@" "$arg"
- shift
- shift
- ;;
- esac
- done
- "$@" -E 2>/dev/null |
- sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::\1:p' | $cygpath_u | sort -u > "$tmpdepfile"
- rm -f "$depfile"
- echo "$object : \\" > "$depfile"
- sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s:: \1 \\:p' >> "$depfile"
- echo " " >> "$depfile"
- sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::\1\::p' >> "$depfile"
- rm -f "$tmpdepfile"
- ;;
-
-msvcmsys)
- # This case exists only to let depend.m4 do its work. It works by
- # looking at the text of this script. This case will never be run,
- # since it is checked for above.
- exit 1
- ;;
-
-none)
- exec "$@"
- ;;
-
-*)
- echo "Unknown depmode $depmode" 1>&2
- exit 1
- ;;
-esac
-
-exit 0
-
-# Local Variables:
-# mode: shell-script
-# sh-indentation: 2
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "scriptversion="
-# time-stamp-format: "%:y-%02m-%02d.%02H"
-# time-stamp-time-zone: "UTC"
-# time-stamp-end: "; # UTC"
-# End:
+++ /dev/null
-#!/bin/sh
-# install - install a program, script, or datafile
-
-scriptversion=2011-01-19.21; # UTC
-
-# This originates from X11R5 (mit/util/scripts/install.sh), which was
-# later released in X11R6 (xc/config/util/install.sh) with the
-# following copyright and license.
-#
-# Copyright (C) 1994 X Consortium
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to
-# deal in the Software without restriction, including without limitation the
-# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
-# sell copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
-# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-# Except as contained in this notice, the name of the X Consortium shall not
-# be used in advertising or otherwise to promote the sale, use or other deal-
-# ings in this Software without prior written authorization from the X Consor-
-# tium.
-#
-#
-# FSF changes to this file are in the public domain.
-#
-# Calling this script install-sh is preferred over install.sh, to prevent
-# `make' implicit rules from creating a file called install from it
-# when there is no Makefile.
-#
-# This script is compatible with the BSD install script, but was written
-# from scratch.
-
-nl='
-'
-IFS=" "" $nl"
-
-# set DOITPROG to echo to test this script
-
-# Don't use :- since 4.3BSD and earlier shells don't like it.
-doit=${DOITPROG-}
-if test -z "$doit"; then
- doit_exec=exec
-else
- doit_exec=$doit
-fi
-
-# Put in absolute file names if you don't have them in your path;
-# or use environment vars.
-
-chgrpprog=${CHGRPPROG-chgrp}
-chmodprog=${CHMODPROG-chmod}
-chownprog=${CHOWNPROG-chown}
-cmpprog=${CMPPROG-cmp}
-cpprog=${CPPROG-cp}
-mkdirprog=${MKDIRPROG-mkdir}
-mvprog=${MVPROG-mv}
-rmprog=${RMPROG-rm}
-stripprog=${STRIPPROG-strip}
-
-posix_glob='?'
-initialize_posix_glob='
- test "$posix_glob" != "?" || {
- if (set -f) 2>/dev/null; then
- posix_glob=
- else
- posix_glob=:
- fi
- }
-'
-
-posix_mkdir=
-
-# Desired mode of installed file.
-mode=0755
-
-chgrpcmd=
-chmodcmd=$chmodprog
-chowncmd=
-mvcmd=$mvprog
-rmcmd="$rmprog -f"
-stripcmd=
-
-src=
-dst=
-dir_arg=
-dst_arg=
-
-copy_on_change=false
-no_target_directory=
-
-usage="\
-Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
- or: $0 [OPTION]... SRCFILES... DIRECTORY
- or: $0 [OPTION]... -t DIRECTORY SRCFILES...
- or: $0 [OPTION]... -d DIRECTORIES...
-
-In the 1st form, copy SRCFILE to DSTFILE.
-In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
-In the 4th, create DIRECTORIES.
-
-Options:
- --help display this help and exit.
- --version display version info and exit.
-
- -c (ignored)
- -C install only if different (preserve the last data modification time)
- -d create directories instead of installing files.
- -g GROUP $chgrpprog installed files to GROUP.
- -m MODE $chmodprog installed files to MODE.
- -o USER $chownprog installed files to USER.
- -s $stripprog installed files.
- -t DIRECTORY install into DIRECTORY.
- -T report an error if DSTFILE is a directory.
-
-Environment variables override the default commands:
- CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
- RMPROG STRIPPROG
-"
-
-while test $# -ne 0; do
- case $1 in
- -c) ;;
-
- -C) copy_on_change=true;;
-
- -d) dir_arg=true;;
-
- -g) chgrpcmd="$chgrpprog $2"
- shift;;
-
- --help) echo "$usage"; exit $?;;
-
- -m) mode=$2
- case $mode in
- *' '* | *' '* | *'
-'* | *'*'* | *'?'* | *'['*)
- echo "$0: invalid mode: $mode" >&2
- exit 1;;
- esac
- shift;;
-
- -o) chowncmd="$chownprog $2"
- shift;;
-
- -s) stripcmd=$stripprog;;
-
- -t) dst_arg=$2
- # Protect names problematic for `test' and other utilities.
- case $dst_arg in
- -* | [=\(\)!]) dst_arg=./$dst_arg;;
- esac
- shift;;
-
- -T) no_target_directory=true;;
-
- --version) echo "$0 $scriptversion"; exit $?;;
-
- --) shift
- break;;
-
- -*) echo "$0: invalid option: $1" >&2
- exit 1;;
-
- *) break;;
- esac
- shift
-done
-
-if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
- # When -d is used, all remaining arguments are directories to create.
- # When -t is used, the destination is already specified.
- # Otherwise, the last argument is the destination. Remove it from $@.
- for arg
- do
- if test -n "$dst_arg"; then
- # $@ is not empty: it contains at least $arg.
- set fnord "$@" "$dst_arg"
- shift # fnord
- fi
- shift # arg
- dst_arg=$arg
- # Protect names problematic for `test' and other utilities.
- case $dst_arg in
- -* | [=\(\)!]) dst_arg=./$dst_arg;;
- esac
- done
-fi
-
-if test $# -eq 0; then
- if test -z "$dir_arg"; then
- echo "$0: no input file specified." >&2
- exit 1
- fi
- # It's OK to call `install-sh -d' without argument.
- # This can happen when creating conditional directories.
- exit 0
-fi
-
-if test -z "$dir_arg"; then
- do_exit='(exit $ret); exit $ret'
- trap "ret=129; $do_exit" 1
- trap "ret=130; $do_exit" 2
- trap "ret=141; $do_exit" 13
- trap "ret=143; $do_exit" 15
-
- # Set umask so as not to create temps with too-generous modes.
- # However, 'strip' requires both read and write access to temps.
- case $mode in
- # Optimize common cases.
- *644) cp_umask=133;;
- *755) cp_umask=22;;
-
- *[0-7])
- if test -z "$stripcmd"; then
- u_plus_rw=
- else
- u_plus_rw='% 200'
- fi
- cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
- *)
- if test -z "$stripcmd"; then
- u_plus_rw=
- else
- u_plus_rw=,u+rw
- fi
- cp_umask=$mode$u_plus_rw;;
- esac
-fi
-
-for src
-do
- # Protect names problematic for `test' and other utilities.
- case $src in
- -* | [=\(\)!]) src=./$src;;
- esac
-
- if test -n "$dir_arg"; then
- dst=$src
- dstdir=$dst
- test -d "$dstdir"
- dstdir_status=$?
- else
-
- # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
- # might cause directories to be created, which would be especially bad
- # if $src (and thus $dsttmp) contains '*'.
- if test ! -f "$src" && test ! -d "$src"; then
- echo "$0: $src does not exist." >&2
- exit 1
- fi
-
- if test -z "$dst_arg"; then
- echo "$0: no destination specified." >&2
- exit 1
- fi
- dst=$dst_arg
-
- # If destination is a directory, append the input filename; won't work
- # if double slashes aren't ignored.
- if test -d "$dst"; then
- if test -n "$no_target_directory"; then
- echo "$0: $dst_arg: Is a directory" >&2
- exit 1
- fi
- dstdir=$dst
- dst=$dstdir/`basename "$src"`
- dstdir_status=0
- else
- # Prefer dirname, but fall back on a substitute if dirname fails.
- dstdir=`
- (dirname "$dst") 2>/dev/null ||
- expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$dst" : 'X\(//\)[^/]' \| \
- X"$dst" : 'X\(//\)$' \| \
- X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
- echo X"$dst" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'
- `
-
- test -d "$dstdir"
- dstdir_status=$?
- fi
- fi
-
- obsolete_mkdir_used=false
-
- if test $dstdir_status != 0; then
- case $posix_mkdir in
- '')
- # Create intermediate dirs using mode 755 as modified by the umask.
- # This is like FreeBSD 'install' as of 1997-10-28.
- umask=`umask`
- case $stripcmd.$umask in
- # Optimize common cases.
- *[2367][2367]) mkdir_umask=$umask;;
- .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
-
- *[0-7])
- mkdir_umask=`expr $umask + 22 \
- - $umask % 100 % 40 + $umask % 20 \
- - $umask % 10 % 4 + $umask % 2
- `;;
- *) mkdir_umask=$umask,go-w;;
- esac
-
- # With -d, create the new directory with the user-specified mode.
- # Otherwise, rely on $mkdir_umask.
- if test -n "$dir_arg"; then
- mkdir_mode=-m$mode
- else
- mkdir_mode=
- fi
-
- posix_mkdir=false
- case $umask in
- *[123567][0-7][0-7])
- # POSIX mkdir -p sets u+wx bits regardless of umask, which
- # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
- ;;
- *)
- tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
- trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
-
- if (umask $mkdir_umask &&
- exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
- then
- if test -z "$dir_arg" || {
- # Check for POSIX incompatibilities with -m.
- # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
- # other-writeable bit of parent directory when it shouldn't.
- # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
- ls_ld_tmpdir=`ls -ld "$tmpdir"`
- case $ls_ld_tmpdir in
- d????-?r-*) different_mode=700;;
- d????-?--*) different_mode=755;;
- *) false;;
- esac &&
- $mkdirprog -m$different_mode -p -- "$tmpdir" && {
- ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
- test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
- }
- }
- then posix_mkdir=:
- fi
- rmdir "$tmpdir/d" "$tmpdir"
- else
- # Remove any dirs left behind by ancient mkdir implementations.
- rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
- fi
- trap '' 0;;
- esac;;
- esac
-
- if
- $posix_mkdir && (
- umask $mkdir_umask &&
- $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
- )
- then :
- else
-
- # The umask is ridiculous, or mkdir does not conform to POSIX,
- # or it failed possibly due to a race condition. Create the
- # directory the slow way, step by step, checking for races as we go.
-
- case $dstdir in
- /*) prefix='/';;
- [-=\(\)!]*) prefix='./';;
- *) prefix='';;
- esac
-
- eval "$initialize_posix_glob"
-
- oIFS=$IFS
- IFS=/
- $posix_glob set -f
- set fnord $dstdir
- shift
- $posix_glob set +f
- IFS=$oIFS
-
- prefixes=
-
- for d
- do
- test X"$d" = X && continue
-
- prefix=$prefix$d
- if test -d "$prefix"; then
- prefixes=
- else
- if $posix_mkdir; then
- (umask=$mkdir_umask &&
- $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
- # Don't fail if two instances are running concurrently.
- test -d "$prefix" || exit 1
- else
- case $prefix in
- *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
- *) qprefix=$prefix;;
- esac
- prefixes="$prefixes '$qprefix'"
- fi
- fi
- prefix=$prefix/
- done
-
- if test -n "$prefixes"; then
- # Don't fail if two instances are running concurrently.
- (umask $mkdir_umask &&
- eval "\$doit_exec \$mkdirprog $prefixes") ||
- test -d "$dstdir" || exit 1
- obsolete_mkdir_used=true
- fi
- fi
- fi
-
- if test -n "$dir_arg"; then
- { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
- { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
- { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
- test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
- else
-
- # Make a couple of temp file names in the proper directory.
- dsttmp=$dstdir/_inst.$$_
- rmtmp=$dstdir/_rm.$$_
-
- # Trap to clean up those temp files at exit.
- trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
-
- # Copy the file name to the temp name.
- (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
-
- # and set any options; do chmod last to preserve setuid bits.
- #
- # If any of these fail, we abort the whole thing. If we want to
- # ignore errors from any of these, just make sure not to ignore
- # errors from the above "$doit $cpprog $src $dsttmp" command.
- #
- { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
- { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
- { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
- { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
-
- # If -C, don't bother to copy if it wouldn't change the file.
- if $copy_on_change &&
- old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` &&
- new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` &&
-
- eval "$initialize_posix_glob" &&
- $posix_glob set -f &&
- set X $old && old=:$2:$4:$5:$6 &&
- set X $new && new=:$2:$4:$5:$6 &&
- $posix_glob set +f &&
-
- test "$old" = "$new" &&
- $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
- then
- rm -f "$dsttmp"
- else
- # Rename the file to the real destination.
- $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
-
- # The rename failed, perhaps because mv can't rename something else
- # to itself, or perhaps because mv is so ancient that it does not
- # support -f.
- {
- # Now remove or move aside any old file at destination location.
- # We try this two ways since rm can't unlink itself on some
- # systems and the destination file might be busy for other
- # reasons. In this case, the final cleanup might fail but the new
- # file should still install successfully.
- {
- test ! -f "$dst" ||
- $doit $rmcmd -f "$dst" 2>/dev/null ||
- { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
- { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
- } ||
- { echo "$0: cannot unlink or rename $dst" >&2
- (exit 1); exit 1
- }
- } &&
-
- # Now rename the file to the real destination.
- $doit $mvcmd "$dsttmp" "$dst"
- }
- fi || exit 1
-
- trap '' 0
- fi
-done
-
-# Local variables:
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "scriptversion="
-# time-stamp-format: "%:y-%02m-%02d.%02H"
-# time-stamp-time-zone: "UTC"
-# time-stamp-end: "; # UTC"
-# End:
+++ /dev/null
-#! /bin/sh
-# Common stub for a few missing GNU programs while installing.
-
-scriptversion=2012-01-06.13; # UTC
-
-# Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006,
-# 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
-# Originally by Fran,cois Pinard <pinard@iro.umontreal.ca>, 1996.
-
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-
-# This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
-
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program that contains a
-# configuration script generated by Autoconf, you may include it under
-# the same distribution terms that you use for the rest of that program.
-
-if test $# -eq 0; then
- echo 1>&2 "Try \`$0 --help' for more information"
- exit 1
-fi
-
-run=:
-sed_output='s/.* --output[ =]\([^ ]*\).*/\1/p'
-sed_minuso='s/.* -o \([^ ]*\).*/\1/p'
-
-# In the cases where this matters, `missing' is being run in the
-# srcdir already.
-if test -f configure.ac; then
- configure_ac=configure.ac
-else
- configure_ac=configure.in
-fi
-
-msg="missing on your system"
-
-case $1 in
---run)
- # Try to run requested program, and just exit if it succeeds.
- run=
- shift
- "$@" && exit 0
- # Exit code 63 means version mismatch. This often happens
- # when the user try to use an ancient version of a tool on
- # a file that requires a minimum version. In this case we
- # we should proceed has if the program had been absent, or
- # if --run hadn't been passed.
- if test $? = 63; then
- run=:
- msg="probably too old"
- fi
- ;;
-
- -h|--h|--he|--hel|--help)
- echo "\
-$0 [OPTION]... PROGRAM [ARGUMENT]...
-
-Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an
-error status if there is no known handling for PROGRAM.
-
-Options:
- -h, --help display this help and exit
- -v, --version output version information and exit
- --run try to run the given command, and emulate it if it fails
-
-Supported PROGRAM values:
- aclocal touch file \`aclocal.m4'
- autoconf touch file \`configure'
- autoheader touch file \`config.h.in'
- autom4te touch the output file, or create a stub one
- automake touch all \`Makefile.in' files
- bison create \`y.tab.[ch]', if possible, from existing .[ch]
- flex create \`lex.yy.c', if possible, from existing .c
- help2man touch the output file
- lex create \`lex.yy.c', if possible, from existing .c
- makeinfo touch the output file
- yacc create \`y.tab.[ch]', if possible, from existing .[ch]
-
-Version suffixes to PROGRAM as well as the prefixes \`gnu-', \`gnu', and
-\`g' are ignored when checking the name.
-
-Send bug reports to <bug-automake@gnu.org>."
- exit $?
- ;;
-
- -v|--v|--ve|--ver|--vers|--versi|--versio|--version)
- echo "missing $scriptversion (GNU Automake)"
- exit $?
- ;;
-
- -*)
- echo 1>&2 "$0: Unknown \`$1' option"
- echo 1>&2 "Try \`$0 --help' for more information"
- exit 1
- ;;
-
-esac
-
-# normalize program name to check for.
-program=`echo "$1" | sed '
- s/^gnu-//; t
- s/^gnu//; t
- s/^g//; t'`
-
-# Now exit if we have it, but it failed. Also exit now if we
-# don't have it and --version was passed (most likely to detect
-# the program). This is about non-GNU programs, so use $1 not
-# $program.
-case $1 in
- lex*|yacc*)
- # Not GNU programs, they don't have --version.
- ;;
-
- *)
- if test -z "$run" && ($1 --version) > /dev/null 2>&1; then
- # We have it, but it failed.
- exit 1
- elif test "x$2" = "x--version" || test "x$2" = "x--help"; then
- # Could not run --version or --help. This is probably someone
- # running `$TOOL --version' or `$TOOL --help' to check whether
- # $TOOL exists and not knowing $TOOL uses missing.
- exit 1
- fi
- ;;
-esac
-
-# If it does not exist, or fails to run (possibly an outdated version),
-# try to emulate it.
-case $program in
- aclocal*)
- echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified \`acinclude.m4' or \`${configure_ac}'. You might want
- to install the \`Automake' and \`Perl' packages. Grab them from
- any GNU archive site."
- touch aclocal.m4
- ;;
-
- autoconf*)
- echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified \`${configure_ac}'. You might want to install the
- \`Autoconf' and \`GNU m4' packages. Grab them from any GNU
- archive site."
- touch configure
- ;;
-
- autoheader*)
- echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified \`acconfig.h' or \`${configure_ac}'. You might want
- to install the \`Autoconf' and \`GNU m4' packages. Grab them
- from any GNU archive site."
- files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}`
- test -z "$files" && files="config.h"
- touch_files=
- for f in $files; do
- case $f in
- *:*) touch_files="$touch_files "`echo "$f" |
- sed -e 's/^[^:]*://' -e 's/:.*//'`;;
- *) touch_files="$touch_files $f.in";;
- esac
- done
- touch $touch_files
- ;;
-
- automake*)
- echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'.
- You might want to install the \`Automake' and \`Perl' packages.
- Grab them from any GNU archive site."
- find . -type f -name Makefile.am -print |
- sed 's/\.am$/.in/' |
- while read f; do touch "$f"; done
- ;;
-
- autom4te*)
- echo 1>&2 "\
-WARNING: \`$1' is needed, but is $msg.
- You might have modified some files without having the
- proper tools for further handling them.
- You can get \`$1' as part of \`Autoconf' from any GNU
- archive site."
-
- file=`echo "$*" | sed -n "$sed_output"`
- test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"`
- if test -f "$file"; then
- touch $file
- else
- test -z "$file" || exec >$file
- echo "#! /bin/sh"
- echo "# Created by GNU Automake missing as a replacement of"
- echo "# $ $@"
- echo "exit 0"
- chmod +x $file
- exit 1
- fi
- ;;
-
- bison*|yacc*)
- echo 1>&2 "\
-WARNING: \`$1' $msg. You should only need it if
- you modified a \`.y' file. You may need the \`Bison' package
- in order for those modifications to take effect. You can get
- \`Bison' from any GNU archive site."
- rm -f y.tab.c y.tab.h
- if test $# -ne 1; then
- eval LASTARG=\${$#}
- case $LASTARG in
- *.y)
- SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'`
- if test -f "$SRCFILE"; then
- cp "$SRCFILE" y.tab.c
- fi
- SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'`
- if test -f "$SRCFILE"; then
- cp "$SRCFILE" y.tab.h
- fi
- ;;
- esac
- fi
- if test ! -f y.tab.h; then
- echo >y.tab.h
- fi
- if test ! -f y.tab.c; then
- echo 'main() { return 0; }' >y.tab.c
- fi
- ;;
-
- lex*|flex*)
- echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified a \`.l' file. You may need the \`Flex' package
- in order for those modifications to take effect. You can get
- \`Flex' from any GNU archive site."
- rm -f lex.yy.c
- if test $# -ne 1; then
- eval LASTARG=\${$#}
- case $LASTARG in
- *.l)
- SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'`
- if test -f "$SRCFILE"; then
- cp "$SRCFILE" lex.yy.c
- fi
- ;;
- esac
- fi
- if test ! -f lex.yy.c; then
- echo 'main() { return 0; }' >lex.yy.c
- fi
- ;;
-
- help2man*)
- echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified a dependency of a manual page. You may need the
- \`Help2man' package in order for those modifications to take
- effect. You can get \`Help2man' from any GNU archive site."
-
- file=`echo "$*" | sed -n "$sed_output"`
- test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"`
- if test -f "$file"; then
- touch $file
- else
- test -z "$file" || exec >$file
- echo ".ab help2man is required to generate this page"
- exit $?
- fi
- ;;
-
- makeinfo*)
- echo 1>&2 "\
-WARNING: \`$1' is $msg. You should only need it if
- you modified a \`.texi' or \`.texinfo' file, or any other file
- indirectly affecting the aspect of the manual. The spurious
- call might also be the consequence of using a buggy \`make' (AIX,
- DU, IRIX). You might want to install the \`Texinfo' package or
- the \`GNU make' package. Grab either from any GNU archive site."
- # The file to touch is that specified with -o ...
- file=`echo "$*" | sed -n "$sed_output"`
- test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"`
- if test -z "$file"; then
- # ... or it is the one specified with @setfilename ...
- infile=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'`
- file=`sed -n '
- /^@setfilename/{
- s/.* \([^ ]*\) *$/\1/
- p
- q
- }' $infile`
- # ... or it is derived from the source name (dir/f.texi becomes f.info)
- test -z "$file" && file=`echo "$infile" | sed 's,.*/,,;s,.[^.]*$,,'`.info
- fi
- # If the file does not exist, the user really needs makeinfo;
- # let's fail without touching anything.
- test -f $file || exit 1
- touch $file
- ;;
-
- *)
- echo 1>&2 "\
-WARNING: \`$1' is needed, and is $msg.
- You might have modified some files without having the
- proper tools for further handling them. Check the \`README' file,
- it often tells you about the needed prerequisites for installing
- this package. You may also peek at any GNU archive site, in case
- some other package would contain this missing \`$1' program."
- exit 1
- ;;
-esac
-
-exit 0
-
-# Local variables:
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "scriptversion="
-# time-stamp-format: "%:y-%02m-%02d.%02H"
-# time-stamp-time-zone: "UTC"
-# time-stamp-end: "; # UTC"
-# End:
+++ /dev/null
-#! /bin/sh
-# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.69 for emacs 24.3.
-#
-#
-# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
-#
-#
-# This configure script is free software; the Free Software Foundation
-# gives unlimited permission to copy, distribute and modify it.
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '${1+"$@"}'='"$@"'
- setopt NO_GLOB_SUBST
-else
- case `(set -o) 2>/dev/null` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-
-
-as_nl='
-'
-export as_nl
-# Printing a long string crashes Solaris 7 /usr/bin/printf.
-as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-# Prefer a ksh shell builtin over an external printf program on Solaris,
-# but without wasting forks for bash or zsh.
-if test -z "$BASH_VERSION$ZSH_VERSION" \
- && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='print -r --'
- as_echo_n='print -rn --'
-elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='printf %s\n'
- as_echo_n='printf %s'
-else
- if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
- as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
- as_echo_n='/usr/ucb/echo -n'
- else
- as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
- as_echo_n_body='eval
- arg=$1;
- case $arg in #(
- *"$as_nl"*)
- expr "X$arg" : "X\\(.*\\)$as_nl";
- arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
- esac;
- expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
- '
- export as_echo_n_body
- as_echo_n='sh -c $as_echo_n_body as_echo'
- fi
- export as_echo_body
- as_echo='sh -c $as_echo_body as_echo'
-fi
-
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
- (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
- PATH_SEPARATOR=';'
- }
-fi
-
-
-# IFS
-# We need space, tab and new line, in precisely that order. Quoting is
-# there to prevent editors from complaining about space-tab.
-# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-# splitting by setting IFS to empty value.)
-IFS=" "" $as_nl"
-
-# Find who we are. Look in the path if we contain no directory separator.
-as_myself=
-case $0 in #((
- *[\\/]* ) as_myself=$0 ;;
- *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
- as_myself=$0
-fi
-if test ! -f "$as_myself"; then
- $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
- exit 1
-fi
-
-# Unset variables that we do not need and which cause bugs (e.g. in
-# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
-# suppresses any "Segmentation fault" message there. '((' could
-# trigger a bug in pdksh 5.2.14.
-for as_var in BASH_ENV ENV MAIL MAILPATH
-do eval test x\${$as_var+set} = xset \
- && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# NLS nuisances.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# CDPATH.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-# Use a proper internal environment variable to ensure we don't fall
- # into an infinite loop, continuously re-executing ourselves.
- if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
- _as_can_reexec=no; export _as_can_reexec;
- # We cannot yet assume a decent shell, so we have to provide a
-# neutralization value for shells without unset; and this also
-# works around shells that cannot unset nonexistent variables.
-# Preserve -v and -x to the replacement shell.
-BASH_ENV=/dev/null
-ENV=/dev/null
-(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
-case $- in # ((((
- *v*x* | *x*v* ) as_opts=-vx ;;
- *v* ) as_opts=-v ;;
- *x* ) as_opts=-x ;;
- * ) as_opts= ;;
-esac
-exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
-# Admittedly, this is quite paranoid, since all the known shells bail
-# out after a failed `exec'.
-$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
-as_fn_exit 255
- fi
- # We don't want this to propagate to other subprocesses.
- { _as_can_reexec=; unset _as_can_reexec;}
-if test "x$CONFIG_SHELL" = x; then
- as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '\${1+\"\$@\"}'='\"\$@\"'
- setopt NO_GLOB_SUBST
-else
- case \`(set -o) 2>/dev/null\` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-"
- as_required="as_fn_return () { (exit \$1); }
-as_fn_success () { as_fn_return 0; }
-as_fn_failure () { as_fn_return 1; }
-as_fn_ret_success () { return 0; }
-as_fn_ret_failure () { return 1; }
-
-exitcode=0
-as_fn_success || { exitcode=1; echo as_fn_success failed.; }
-as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
-as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
-as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
-if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
-
-else
- exitcode=1; echo positional parameters were not saved.
-fi
-test x\$exitcode = x0 || exit 1
-test -x / || exit 1"
- as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
- as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
- eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
- test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
-test \$(( 1 + 1 )) = 2 || exit 1"
- if (eval "$as_required") 2>/dev/null; then :
- as_have_required=yes
-else
- as_have_required=no
-fi
- if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then :
-
-else
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-as_found=false
-for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- as_found=:
- case $as_dir in #(
- /*)
- for as_base in sh bash ksh sh5; do
- # Try only shells that exist, to save several forks.
- as_shell=$as_dir/$as_base
- if { test -f "$as_shell" || test -f "$as_shell.exe"; } &&
- { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then :
- CONFIG_SHELL=$as_shell as_have_required=yes
- if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then :
- break 2
-fi
-fi
- done;;
- esac
- as_found=false
-done
-$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } &&
- { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then :
- CONFIG_SHELL=$SHELL as_have_required=yes
-fi; }
-IFS=$as_save_IFS
-
-
- if test "x$CONFIG_SHELL" != x; then :
- export CONFIG_SHELL
- # We cannot yet assume a decent shell, so we have to provide a
-# neutralization value for shells without unset; and this also
-# works around shells that cannot unset nonexistent variables.
-# Preserve -v and -x to the replacement shell.
-BASH_ENV=/dev/null
-ENV=/dev/null
-(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
-case $- in # ((((
- *v*x* | *x*v* ) as_opts=-vx ;;
- *v* ) as_opts=-v ;;
- *x* ) as_opts=-x ;;
- * ) as_opts= ;;
-esac
-exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
-# Admittedly, this is quite paranoid, since all the known shells bail
-# out after a failed `exec'.
-$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
-exit 255
-fi
-
- if test x$as_have_required = xno; then :
- $as_echo "$0: This script requires a shell more modern than all"
- $as_echo "$0: the shells that I found on your system."
- if test x${ZSH_VERSION+set} = xset ; then
- $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should"
- $as_echo "$0: be upgraded to zsh 4.3.4 or later."
- else
- $as_echo "$0: Please tell bug-autoconf@gnu.org about your system,
-$0: including any error possibly output before this
-$0: message. Then install a modern shell, or manually run
-$0: the script under such a shell if you do have one."
- fi
- exit 1
-fi
-fi
-fi
-SHELL=${CONFIG_SHELL-/bin/sh}
-export SHELL
-# Unset more variables known to interfere with behavior of common tools.
-CLICOLOR_FORCE= GREP_OPTIONS=
-unset CLICOLOR_FORCE GREP_OPTIONS
-
-## --------------------- ##
-## M4sh Shell Functions. ##
-## --------------------- ##
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
- { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
- return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
- set +e
- as_fn_set_status $1
- exit $1
-} # as_fn_exit
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
- case $as_dir in #(
- -*) as_dir=./$as_dir;;
- esac
- test -d "$as_dir" || eval $as_mkdir_p || {
- as_dirs=
- while :; do
- case $as_dir in #(
- *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
- *) as_qdir=$as_dir;;
- esac
- as_dirs="'$as_qdir' $as_dirs"
- as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_dir" : 'X\(//\)[^/]' \| \
- X"$as_dir" : 'X\(//\)$' \| \
- X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_dir" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- test -d "$as_dir" && break
- done
- test -z "$as_dirs" || eval "mkdir $as_dirs"
- } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-
-# as_fn_executable_p FILE
-# -----------------------
-# Test if FILE is an executable regular file.
-as_fn_executable_p ()
-{
- test -f "$1" && test -x "$1"
-} # as_fn_executable_p
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
- eval 'as_fn_append ()
- {
- eval $1+=\$2
- }'
-else
- as_fn_append ()
- {
- eval $1=\$$1\$2
- }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
- eval 'as_fn_arith ()
- {
- as_val=$(( $* ))
- }'
-else
- as_fn_arith ()
- {
- as_val=`expr "$@" || test $? -eq 1`
- }
-fi # as_fn_arith
-
-
-# as_fn_error STATUS ERROR [LINENO LOG_FD]
-# ----------------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with STATUS, using 1 if that was 0.
-as_fn_error ()
-{
- as_status=$1; test $as_status -eq 0 && as_status=1
- if test "$4"; then
- as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
- fi
- $as_echo "$as_me: error: $2" >&2
- as_fn_exit $as_status
-} # as_fn_error
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
- test "X`expr 00001 : '.*\(...\)'`" = X001; then
- as_expr=expr
-else
- as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
- as_basename=basename
-else
- as_basename=false
-fi
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
- as_dirname=dirname
-else
- as_dirname=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
- X"$0" : 'X\(//\)$' \| \
- X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$0" |
- sed '/^.*\/\([^/][^/]*\)\/*$/{
- s//\1/
- q
- }
- /^X\/\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\/\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-
- as_lineno_1=$LINENO as_lineno_1a=$LINENO
- as_lineno_2=$LINENO as_lineno_2a=$LINENO
- eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
- test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
- # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-)
- sed -n '
- p
- /[$]LINENO/=
- ' <$as_myself |
- sed '
- s/[$]LINENO.*/&-/
- t lineno
- b
- :lineno
- N
- :loop
- s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/
- t loop
- s/-\n.*//
- ' >$as_me.lineno &&
- chmod +x "$as_me.lineno" ||
- { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }
-
- # If we had to re-execute with $CONFIG_SHELL, we're ensured to have
- # already done that, so ensure we don't try to do so again and fall
- # in an infinite loop. This has already happened in practice.
- _as_can_reexec=no; export _as_can_reexec
- # Don't try to exec as it changes $[0], causing all sort of problems
- # (the dirname of $[0] is not the place where we might find the
- # original and so on. Autoconf is especially sensitive to this).
- . "./$as_me.lineno"
- # Exit status is that of the last command.
- exit
-}
-
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
- case `echo 'xy\c'` in
- *c*) ECHO_T=' ';; # ECHO_T is single tab character.
- xy) ECHO_C='\c';;
- *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
- ECHO_T=' ';;
- esac;;
-*)
- ECHO_N='-n';;
-esac
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
- rm -f conf$$.dir/conf$$.file
-else
- rm -f conf$$.dir
- mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
- if ln -s conf$$.file conf$$ 2>/dev/null; then
- as_ln_s='ln -s'
- # ... but there are two gotchas:
- # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
- # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -pR'.
- ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -pR'
- elif ln conf$$.file conf$$ 2>/dev/null; then
- as_ln_s=ln
- else
- as_ln_s='cp -pR'
- fi
-else
- as_ln_s='cp -pR'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-if mkdir -p . 2>/dev/null; then
- as_mkdir_p='mkdir -p "$as_dir"'
-else
- test -d ./-p && rmdir ./-p
- as_mkdir_p=false
-fi
-
-as_test_x='test -x'
-as_executable_p=as_fn_executable_p
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-
-test -n "$DJDIR" || exec 7<&0 </dev/null
-exec 6>&1
-
-# Name of the host.
-# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,
-# so uname gets run too.
-ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
-
-#
-# Initializations.
-#
-ac_default_prefix=/usr/local
-ac_clean_files=
-ac_config_libobj_dir=.
-LIBOBJS=
-cross_compiling=no
-subdirs=
-MFLAGS=
-MAKEFLAGS=
-
-# Identity of this package.
-PACKAGE_NAME='emacs'
-PACKAGE_TARNAME='emacs'
-PACKAGE_VERSION='24.3'
-PACKAGE_STRING='emacs 24.3'
-PACKAGE_BUGREPORT=''
-PACKAGE_URL=''
-
-ac_unique_file="src/lisp.h"
-# Factoring default headers for most tests.
-ac_includes_default="\
-#include <stdio.h>
-#ifdef HAVE_SYS_TYPES_H
-# include <sys/types.h>
-#endif
-#ifdef HAVE_SYS_STAT_H
-# include <sys/stat.h>
-#endif
-#ifdef STDC_HEADERS
-# include <stdlib.h>
-# include <stddef.h>
-#else
-# ifdef HAVE_STDLIB_H
-# include <stdlib.h>
-# endif
-#endif
-#ifdef HAVE_STRING_H
-# if !defined STDC_HEADERS && defined HAVE_MEMORY_H
-# include <memory.h>
-# endif
-# include <string.h>
-#endif
-#ifdef HAVE_STRINGS_H
-# include <strings.h>
-#endif
-#ifdef HAVE_INTTYPES_H
-# include <inttypes.h>
-#endif
-#ifdef HAVE_STDINT_H
-# include <stdint.h>
-#endif
-#ifdef HAVE_UNISTD_H
-# include <unistd.h>
-#endif"
-
-ac_header_list=
-ac_func_list=
-gl_getopt_required=POSIX
-gl_getopt_required=POSIX
-ac_subst_vars='gltests_LTLIBOBJS
-gltests_LIBOBJS
-gl_LTLIBOBJS
-gl_LIBOBJS
-am__EXEEXT_FALSE
-am__EXEEXT_TRUE
-LTLIBOBJS
-LIBOBJS
-SUBDIR_MAKEFILES_IN
-WINDOW_SYSTEM_OBJ
-LIB_GCC
-LD_FIRSTFLAG
-LD_SWITCH_SYSTEM_TEMACS
-LIBGNU_LTLIBDEPS
-LIBGNU_LIBDEPS
-gltests_WITNESS
-gl_GNULIB_ENABLED_verify_FALSE
-gl_GNULIB_ENABLED_verify_TRUE
-gl_GNULIB_ENABLED_strtoull_FALSE
-gl_GNULIB_ENABLED_strtoull_TRUE
-gl_GNULIB_ENABLED_strtoll_FALSE
-gl_GNULIB_ENABLED_strtoll_TRUE
-gl_GNULIB_ENABLED_stat_FALSE
-gl_GNULIB_ENABLED_stat_TRUE
-gl_GNULIB_ENABLED_pathmax_FALSE
-gl_GNULIB_ENABLED_pathmax_TRUE
-gl_GNULIB_ENABLED_be453cec5eecf5731a274f2de7f2db36_FALSE
-gl_GNULIB_ENABLED_be453cec5eecf5731a274f2de7f2db36_TRUE
-gl_GNULIB_ENABLED_dosname_FALSE
-gl_GNULIB_ENABLED_dosname_TRUE
-LTLIBINTL
-LIBINTL
-WINDOWS_64_BIT_OFF_T
-HAVE_UNISTD_H
-NEXT_AS_FIRST_DIRECTIVE_UNISTD_H
-NEXT_UNISTD_H
-LIB_TIMER_TIME
-PTHREAD_H_DEFINES_STRUCT_TIMESPEC
-SYS_TIME_H_DEFINES_STRUCT_TIMESPEC
-TIME_H_DEFINES_STRUCT_TIMESPEC
-NEXT_AS_FIRST_DIRECTIVE_TIME_H
-NEXT_TIME_H
-WINDOWS_64_BIT_ST_SIZE
-NEXT_AS_FIRST_DIRECTIVE_SYS_STAT_H
-NEXT_SYS_STAT_H
-NEXT_AS_FIRST_DIRECTIVE_STDLIB_H
-NEXT_STDLIB_H
-NEXT_AS_FIRST_DIRECTIVE_STDIO_H
-NEXT_STDIO_H
-REPLACE_VSPRINTF
-REPLACE_VSNPRINTF
-REPLACE_VPRINTF
-REPLACE_VFPRINTF
-REPLACE_VDPRINTF
-REPLACE_VASPRINTF
-REPLACE_TMPFILE
-REPLACE_STDIO_WRITE_FUNCS
-REPLACE_STDIO_READ_FUNCS
-REPLACE_SPRINTF
-REPLACE_SNPRINTF
-REPLACE_RENAMEAT
-REPLACE_RENAME
-REPLACE_REMOVE
-REPLACE_PRINTF
-REPLACE_POPEN
-REPLACE_PERROR
-REPLACE_OBSTACK_PRINTF
-REPLACE_GETLINE
-REPLACE_GETDELIM
-REPLACE_FTELLO
-REPLACE_FTELL
-REPLACE_FSEEKO
-REPLACE_FSEEK
-REPLACE_FREOPEN
-REPLACE_FPURGE
-REPLACE_FPRINTF
-REPLACE_FOPEN
-REPLACE_FFLUSH
-REPLACE_FDOPEN
-REPLACE_FCLOSE
-REPLACE_DPRINTF
-HAVE_VDPRINTF
-HAVE_VASPRINTF
-HAVE_RENAMEAT
-HAVE_POPEN
-HAVE_PCLOSE
-HAVE_FTELLO
-HAVE_FSEEKO
-HAVE_DPRINTF
-HAVE_DECL_VSNPRINTF
-HAVE_DECL_SNPRINTF
-HAVE_DECL_OBSTACK_PRINTF
-HAVE_DECL_GETLINE
-HAVE_DECL_GETDELIM
-HAVE_DECL_FTELLO
-HAVE_DECL_FSEEKO
-HAVE_DECL_FPURGE
-GNULIB_VSPRINTF_POSIX
-GNULIB_VSNPRINTF
-GNULIB_VPRINTF_POSIX
-GNULIB_VPRINTF
-GNULIB_VFPRINTF_POSIX
-GNULIB_VFPRINTF
-GNULIB_VDPRINTF
-GNULIB_VSCANF
-GNULIB_VFSCANF
-GNULIB_VASPRINTF
-GNULIB_TMPFILE
-GNULIB_STDIO_H_SIGPIPE
-GNULIB_STDIO_H_NONBLOCKING
-GNULIB_SPRINTF_POSIX
-GNULIB_SNPRINTF
-GNULIB_SCANF
-GNULIB_RENAMEAT
-GNULIB_RENAME
-GNULIB_REMOVE
-GNULIB_PUTS
-GNULIB_PUTCHAR
-GNULIB_PUTC
-GNULIB_PRINTF_POSIX
-GNULIB_PRINTF
-GNULIB_POPEN
-GNULIB_PERROR
-GNULIB_PCLOSE
-GNULIB_OBSTACK_PRINTF_POSIX
-GNULIB_OBSTACK_PRINTF
-GNULIB_GETLINE
-GNULIB_GETDELIM
-GNULIB_GETCHAR
-GNULIB_GETC
-GNULIB_FWRITE
-GNULIB_FTELLO
-GNULIB_FTELL
-GNULIB_FSEEKO
-GNULIB_FSEEK
-GNULIB_FSCANF
-GNULIB_FREOPEN
-GNULIB_FREAD
-GNULIB_FPUTS
-GNULIB_FPUTC
-GNULIB_FPURGE
-GNULIB_FPRINTF_POSIX
-GNULIB_FPRINTF
-GNULIB_FOPEN
-GNULIB_FGETS
-GNULIB_FGETC
-GNULIB_FFLUSH
-GNULIB_FDOPEN
-GNULIB_FCLOSE
-GNULIB_DPRINTF
-NEXT_AS_FIRST_DIRECTIVE_STDDEF_H
-NEXT_STDDEF_H
-GL_GENERATE_STDDEF_H_FALSE
-GL_GENERATE_STDDEF_H_TRUE
-STDDEF_H
-HAVE_WCHAR_T
-REPLACE_NULL
-HAVE__BOOL
-GL_GENERATE_STDBOOL_H_FALSE
-GL_GENERATE_STDBOOL_H_TRUE
-STDBOOL_H
-GL_GENERATE_STDARG_H_FALSE
-GL_GENERATE_STDARG_H_TRUE
-STDARG_H
-NEXT_AS_FIRST_DIRECTIVE_STDARG_H
-NEXT_STDARG_H
-GL_GENERATE_STDALIGN_H_FALSE
-GL_GENERATE_STDALIGN_H_TRUE
-STDALIGN_H
-NEXT_AS_FIRST_DIRECTIVE_SIGNAL_H
-NEXT_SIGNAL_H
-LIB_PTHREAD_SIGMASK
-REPLACE_RAISE
-REPLACE_PTHREAD_SIGMASK
-HAVE_SIGHANDLER_T
-HAVE_TYPE_VOLATILE_SIG_ATOMIC_T
-HAVE_STRUCT_SIGACTION_SA_SIGACTION
-HAVE_SIGACTION
-HAVE_SIGINFO_T
-HAVE_SIGSET_T
-HAVE_RAISE
-HAVE_PTHREAD_SIGMASK
-HAVE_POSIX_SIGNALBLOCKING
-GNULIB_SIGACTION
-GNULIB_SIGPROCMASK
-GNULIB_SIGNAL_H_SIGPIPE
-GNULIB_RAISE
-GNULIB_PTHREAD_SIGMASK
-HAVE_SYS_SELECT_H
-NEXT_AS_FIRST_DIRECTIVE_SYS_SELECT_H
-NEXT_SYS_SELECT_H
-REPLACE_SELECT
-REPLACE_PSELECT
-HAVE_PSELECT
-GNULIB_SELECT
-GNULIB_PSELECT
-REPLACE_TIMEGM
-REPLACE_NANOSLEEP
-REPLACE_MKTIME
-REPLACE_LOCALTIME_R
-HAVE_TIMEGM
-HAVE_STRPTIME
-HAVE_NANOSLEEP
-HAVE_DECL_LOCALTIME_R
-GNULIB_TIME_R
-GNULIB_TIMEGM
-GNULIB_STRPTIME
-GNULIB_NANOSLEEP
-GNULIB_MKTIME
-REPLACE_UTIMENSAT
-REPLACE_STAT
-REPLACE_MKNOD
-REPLACE_MKFIFO
-REPLACE_MKDIR
-REPLACE_LSTAT
-REPLACE_FUTIMENS
-REPLACE_FSTATAT
-REPLACE_FSTAT
-HAVE_UTIMENSAT
-HAVE_MKNODAT
-HAVE_MKNOD
-HAVE_MKFIFOAT
-HAVE_MKFIFO
-HAVE_MKDIRAT
-HAVE_LSTAT
-HAVE_LCHMOD
-HAVE_FUTIMENS
-HAVE_FSTATAT
-HAVE_FCHMODAT
-GNULIB_UTIMENSAT
-GNULIB_STAT
-GNULIB_MKNODAT
-GNULIB_MKNOD
-GNULIB_MKFIFOAT
-GNULIB_MKFIFO
-GNULIB_MKDIRAT
-GNULIB_LSTAT
-GNULIB_LCHMOD
-GNULIB_FUTIMENS
-GNULIB_FSTATAT
-GNULIB_FSTAT
-GNULIB_FCHMODAT
-NEXT_AS_FIRST_DIRECTIVE_INTTYPES_H
-NEXT_INTTYPES_H
-UINT64_MAX_EQ_ULONG_MAX
-UINT32_MAX_LT_UINTMAX_MAX
-PRIPTR_PREFIX
-PRI_MACROS_BROKEN
-INT64_MAX_EQ_LONG_MAX
-INT32_MAX_LT_INTMAX_MAX
-REPLACE_STRTOIMAX
-HAVE_DECL_STRTOUMAX
-HAVE_DECL_STRTOIMAX
-HAVE_DECL_IMAXDIV
-HAVE_DECL_IMAXABS
-GNULIB_STRTOUMAX
-GNULIB_STRTOIMAX
-GNULIB_IMAXDIV
-GNULIB_IMAXABS
-GL_GENERATE_STDINT_H_FALSE
-GL_GENERATE_STDINT_H_TRUE
-STDINT_H
-WINT_T_SUFFIX
-WCHAR_T_SUFFIX
-SIG_ATOMIC_T_SUFFIX
-SIZE_T_SUFFIX
-PTRDIFF_T_SUFFIX
-HAVE_SIGNED_WINT_T
-HAVE_SIGNED_WCHAR_T
-HAVE_SIGNED_SIG_ATOMIC_T
-BITSIZEOF_WINT_T
-BITSIZEOF_WCHAR_T
-BITSIZEOF_SIG_ATOMIC_T
-BITSIZEOF_SIZE_T
-BITSIZEOF_PTRDIFF_T
-APPLE_UNIVERSAL_BUILD
-HAVE_SYS_BITYPES_H
-HAVE_SYS_INTTYPES_H
-HAVE_STDINT_H
-NEXT_AS_FIRST_DIRECTIVE_STDINT_H
-NEXT_STDINT_H
-HAVE_SYS_TYPES_H
-HAVE_INTTYPES_H
-HAVE_WCHAR_H
-HAVE_UNSIGNED_LONG_LONG_INT
-HAVE_LONG_LONG_INT
-HAVE_WINSOCK2_H
-NEXT_AS_FIRST_DIRECTIVE_SYS_TIME_H
-NEXT_SYS_TIME_H
-REPLACE_STRUCT_TIMEVAL
-REPLACE_GETTIMEOFDAY
-HAVE_SYS_TIME_H
-HAVE_STRUCT_TIMEVAL
-HAVE_GETTIMEOFDAY
-GNULIB_GETTIMEOFDAY
-GNULIB_GL_UNISTD_H_GETOPT
-GETOPT_H
-HAVE_GETOPT_H
-NEXT_AS_FIRST_DIRECTIVE_GETOPT_H
-NEXT_GETOPT_H
-PRAGMA_COLUMNS
-PRAGMA_SYSTEM_HEADER
-INCLUDE_NEXT_AS_FIRST_DIRECTIVE
-INCLUDE_NEXT
-GETLOADAVG_LIBS
-REPLACE_WCTOMB
-REPLACE_UNSETENV
-REPLACE_STRTOD
-REPLACE_SETENV
-REPLACE_REALPATH
-REPLACE_REALLOC
-REPLACE_RANDOM_R
-REPLACE_PUTENV
-REPLACE_PTSNAME_R
-REPLACE_PTSNAME
-REPLACE_MKSTEMP
-REPLACE_MBTOWC
-REPLACE_MALLOC
-REPLACE_CANONICALIZE_FILE_NAME
-REPLACE_CALLOC
-HAVE_DECL_UNSETENV
-HAVE_UNLOCKPT
-HAVE_SYS_LOADAVG_H
-HAVE_STRUCT_RANDOM_DATA
-HAVE_STRTOULL
-HAVE_STRTOLL
-HAVE_STRTOD
-HAVE_DECL_SETENV
-HAVE_SETENV
-HAVE_RPMATCH
-HAVE_REALPATH
-HAVE_RANDOM_R
-HAVE_RANDOM_H
-HAVE_RANDOM
-HAVE_PTSNAME_R
-HAVE_PTSNAME
-HAVE_POSIX_OPENPT
-HAVE_MKSTEMPS
-HAVE_MKSTEMP
-HAVE_MKOSTEMPS
-HAVE_MKOSTEMP
-HAVE_MKDTEMP
-HAVE_GRANTPT
-HAVE_GETSUBOPT
-HAVE_DECL_GETLOADAVG
-HAVE_CANONICALIZE_FILE_NAME
-HAVE_ATOLL
-HAVE__EXIT
-GNULIB_WCTOMB
-GNULIB_UNSETENV
-GNULIB_UNLOCKPT
-GNULIB_SYSTEM_POSIX
-GNULIB_STRTOULL
-GNULIB_STRTOLL
-GNULIB_STRTOD
-GNULIB_SETENV
-GNULIB_RPMATCH
-GNULIB_REALPATH
-GNULIB_REALLOC_POSIX
-GNULIB_RANDOM_R
-GNULIB_RANDOM
-GNULIB_PUTENV
-GNULIB_PTSNAME_R
-GNULIB_PTSNAME
-GNULIB_POSIX_OPENPT
-GNULIB_MKSTEMPS
-GNULIB_MKSTEMP
-GNULIB_MKOSTEMPS
-GNULIB_MKOSTEMP
-GNULIB_MKDTEMP
-GNULIB_MBTOWC
-GNULIB_MALLOC_POSIX
-GNULIB_GRANTPT
-GNULIB_GETSUBOPT
-GNULIB_GETLOADAVG
-GNULIB_CANONICALIZE_FILE_NAME
-GNULIB_CALLOC_POSIX
-GNULIB_ATOLL
-GNULIB__EXIT
-GL_GENERATE_EXECINFO_H_FALSE
-GL_GENERATE_EXECINFO_H_TRUE
-LIB_EXECINFO
-EXECINFO_H
-UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS
-UNISTD_H_HAVE_WINSOCK2_H
-REPLACE_WRITE
-REPLACE_USLEEP
-REPLACE_UNLINKAT
-REPLACE_UNLINK
-REPLACE_TTYNAME_R
-REPLACE_SYMLINK
-REPLACE_SLEEP
-REPLACE_RMDIR
-REPLACE_READLINK
-REPLACE_READ
-REPLACE_PWRITE
-REPLACE_PREAD
-REPLACE_LSEEK
-REPLACE_LINKAT
-REPLACE_LINK
-REPLACE_LCHOWN
-REPLACE_ISATTY
-REPLACE_GETPAGESIZE
-REPLACE_GETGROUPS
-REPLACE_GETLOGIN_R
-REPLACE_GETDOMAINNAME
-REPLACE_GETCWD
-REPLACE_FTRUNCATE
-REPLACE_FCHOWNAT
-REPLACE_DUP2
-REPLACE_DUP
-REPLACE_CLOSE
-REPLACE_CHOWN
-HAVE_SYS_PARAM_H
-HAVE_OS_H
-HAVE_DECL_TTYNAME_R
-HAVE_DECL_SETHOSTNAME
-HAVE_DECL_GETUSERSHELL
-HAVE_DECL_GETPAGESIZE
-HAVE_DECL_GETLOGIN_R
-HAVE_DECL_GETDOMAINNAME
-HAVE_DECL_FDATASYNC
-HAVE_DECL_FCHDIR
-HAVE_DECL_ENVIRON
-HAVE_USLEEP
-HAVE_UNLINKAT
-HAVE_SYMLINKAT
-HAVE_SYMLINK
-HAVE_SLEEP
-HAVE_SETHOSTNAME
-HAVE_READLINKAT
-HAVE_READLINK
-HAVE_PWRITE
-HAVE_PREAD
-HAVE_PIPE2
-HAVE_PIPE
-HAVE_LINKAT
-HAVE_LINK
-HAVE_LCHOWN
-HAVE_GROUP_MEMBER
-HAVE_GETPAGESIZE
-HAVE_GETLOGIN
-HAVE_GETHOSTNAME
-HAVE_GETGROUPS
-HAVE_GETDTABLESIZE
-HAVE_FTRUNCATE
-HAVE_FSYNC
-HAVE_FDATASYNC
-HAVE_FCHOWNAT
-HAVE_FCHDIR
-HAVE_FACCESSAT
-HAVE_EUIDACCESS
-HAVE_DUP3
-HAVE_DUP2
-HAVE_CHOWN
-GNULIB_WRITE
-GNULIB_USLEEP
-GNULIB_UNLINKAT
-GNULIB_UNLINK
-GNULIB_UNISTD_H_SIGPIPE
-GNULIB_UNISTD_H_NONBLOCKING
-GNULIB_TTYNAME_R
-GNULIB_SYMLINKAT
-GNULIB_SYMLINK
-GNULIB_SLEEP
-GNULIB_SETHOSTNAME
-GNULIB_RMDIR
-GNULIB_READLINKAT
-GNULIB_READLINK
-GNULIB_READ
-GNULIB_PWRITE
-GNULIB_PREAD
-GNULIB_PIPE2
-GNULIB_PIPE
-GNULIB_LSEEK
-GNULIB_LINKAT
-GNULIB_LINK
-GNULIB_LCHOWN
-GNULIB_ISATTY
-GNULIB_GROUP_MEMBER
-GNULIB_GETUSERSHELL
-GNULIB_GETPAGESIZE
-GNULIB_GETLOGIN_R
-GNULIB_GETLOGIN
-GNULIB_GETHOSTNAME
-GNULIB_GETGROUPS
-GNULIB_GETDTABLESIZE
-GNULIB_GETDOMAINNAME
-GNULIB_GETCWD
-GNULIB_FTRUNCATE
-GNULIB_FSYNC
-GNULIB_FDATASYNC
-GNULIB_FCHOWNAT
-GNULIB_FCHDIR
-GNULIB_FACCESSAT
-GNULIB_EUIDACCESS
-GNULIB_ENVIRON
-GNULIB_DUP3
-GNULIB_DUP2
-GNULIB_DUP
-GNULIB_CLOSE
-GNULIB_CHOWN
-GNULIB_CHDIR
-LIB_CLOCK_GETTIME
-GL_GENERATE_ALLOCA_H_FALSE
-GL_GENERATE_ALLOCA_H_TRUE
-ALLOCA_H
-ALLOCA
-GL_COND_LIBTOOL_FALSE
-GL_COND_LIBTOOL_TRUE
-POST_ALLOC_OBJ
-PRE_ALLOC_OBJ
-CYGWIN_OBJ
-RALLOC_OBJ
-OLDXMENU_DEPS
-LIBX_OTHER
-LIBXMENU
-OLDXMENU
-OLDXMENU_TARGET
-LIBXT_OTHER
-TOOLKIT_LIBW
-WIDGET_OBJ
-XOBJ
-XMENU_OBJ
-FONT_OBJ
-OTHER_FILES
-GNU_OBJC_CFLAGS
-ns_appsrc
-ns_appresdir
-ns_appbindir
-ns_appdir
-X_TOOLKIT_TYPE
-GNUSTEP_CFLAGS
-C_SWITCH_X_SITE
-LD_SWITCH_X_SITE
-gameuser
-gamedir
-bitmapdir
-archlibdir
-etcdir
-x_default_search_path
-lisppath
-locallisppath
-standardlisppath
-leimdir
-lispdir
-srcdir
-canonical
-configuration
-version
-copyright
-KRB4LIB
-DESLIB
-KRB5LIB
-CRYPTOLIB
-COM_ERRLIB
-LIBRESOLV
-LIBHESIOD
-TERMCAP_OBJ
-LIBS_TERMCAP
-BLESSMAIL_TARGET
-LIBS_MAIL
-liblockfile
-LIBXML2_LIBS
-LIBXML2_CFLAGS
-LIBXSM
-LIBGPM
-LIBGIF
-LIBTIFF
-LIBPNG
-LIBJPEG
-LIBXPM
-M17N_FLT_LIBS
-M17N_FLT_CFLAGS
-LIBOTF_LIBS
-LIBOTF_CFLAGS
-FREETYPE_LIBS
-FREETYPE_CFLAGS
-XFT_LIBS
-XFT_CFLAGS
-FONTCONFIG_LIBS
-FONTCONFIG_CFLAGS
-LIBXMU
-LIBXTR6
-LIBGNUTLS_LIBS
-LIBGNUTLS_CFLAGS
-LIBSELINUX_LIBS
-SETTINGS_LIBS
-SETTINGS_CFLAGS
-GOBJECT_LIBS
-GOBJECT_CFLAGS
-GCONF_LIBS
-GCONF_CFLAGS
-GSETTINGS_LIBS
-GSETTINGS_CFLAGS
-DBUS_OBJ
-DBUS_LIBS
-DBUS_CFLAGS
-GTK_OBJ
-GTK_LIBS
-GTK_CFLAGS
-IMAGEMAGICK_LIBS
-IMAGEMAGICK_CFLAGS
-RSVG_LIBS
-RSVG_CFLAGS
-LIB_PTHREAD
-VMLIMIT_OBJ
-GMALLOC_OBJ
-HAVE_XSERVER
-W32_LIBS
-W32_OBJ
-LIB_STANDARD
-NS_OBJC_OBJ
-NS_OBJ
-ns_self_contained
-INSTALL_ARCH_INDEP_EXTRA
-LIBS_GNUSTEP
-LD_SWITCH_X_SITE_RPATH
-XMKMF
-DEPFLAGS
-MKDEPDIR
-CFLAGS_SOUND
-ALSA_LIBS
-ALSA_CFLAGS
-LIBSOUND
-PKG_CONFIG
-CRT_DIR
-START_FILES
-LIB_MATH
-LIBS_SYSTEM
-C_SWITCH_SYSTEM
-UNEXEC_OBJ
-C_SWITCH_MACHINE
-LD_SWITCH_SYSTEM
-CANNOT_DUMP
-INFO_OPTS
-INFO_EXT
-HAVE_MAKEINFO
-PAXCTL
-GZIP_PROG
-INSTALL_INFO
-LN_S
-GNULIB_WARN_CFLAGS
-WARN_CFLAGS
-WERROR_CFLAGS
-RANLIB
-ARFLAGS
-AR
-EGREP
-GREP
-CPP
-am__fastdepCC_FALSE
-am__fastdepCC_TRUE
-CCDEPMODE
-am__nodep
-AMDEPBACKSLASH
-AMDEP_FALSE
-AMDEP_TRUE
-am__quote
-am__include
-DEPDIR
-OBJEXT
-EXEEXT
-ac_ct_CC
-CPPFLAGS
-LDFLAGS
-CFLAGS
-CC
-host_os
-host_vendor
-host_cpu
-host
-build_os
-build_vendor
-build_cpu
-build
-PROFILING_CFLAGS
-GZIP_INFO
-cache_file
-am__untar
-am__tar
-AMTAR
-am__leading_dot
-SET_MAKE
-AWK
-mkdir_p
-MKDIR_P
-INSTALL_STRIP_PROGRAM
-STRIP
-install_sh
-MAKEINFO
-AUTOHEADER
-AUTOMAKE
-AUTOCONF
-ACLOCAL
-VERSION
-PACKAGE
-CYGPATH_W
-am__isrc
-INSTALL_DATA
-INSTALL_SCRIPT
-INSTALL_PROGRAM
-target_alias
-host_alias
-build_alias
-LIBS
-ECHO_T
-ECHO_N
-ECHO_C
-DEFS
-mandir
-localedir
-libdir
-psdir
-pdfdir
-dvidir
-htmldir
-infodir
-docdir
-oldincludedir
-includedir
-localstatedir
-sharedstatedir
-sysconfdir
-datadir
-datarootdir
-libexecdir
-sbindir
-bindir
-program_transform_name
-prefix
-exec_prefix
-PACKAGE_URL
-PACKAGE_BUGREPORT
-PACKAGE_STRING
-PACKAGE_VERSION
-PACKAGE_TARNAME
-PACKAGE_NAME
-PATH_SEPARATOR
-SHELL'
-ac_subst_files='deps_frag
-lisp_frag'
-ac_user_opts='
-enable_option_checking
-with_all
-with_pop
-with_kerberos
-with_kerberos5
-with_hesiod
-with_mmdf
-with_mail_unlink
-with_mailhost
-with_sound
-with_x_toolkit
-with_wide_int
-with_xpm
-with_jpeg
-with_tiff
-with_gif
-with_png
-with_rsvg
-with_xml2
-with_imagemagick
-with_xft
-with_libotf
-with_m17n_flt
-with_toolkit_scroll_bars
-with_xaw3d
-with_xim
-with_ns
-with_w32
-with_gpm
-with_dbus
-with_gconf
-with_gsettings
-with_selinux
-with_gnutls
-with_makeinfo
-with_compress_info
-with_pkg_config_prog
-with_crt_dir
-with_gameuser
-with_gnustep_conf
-enable_ns_self_contained
-enable_locallisppath
-enable_checking
-enable_check_lisp_object_type
-enable_profiling
-enable_autodepend
-enable_dependency_tracking
-enable_largefile
-enable_gcc_warnings
-enable_link_time_optimization
-with_x
-'
- ac_precious_vars='build_alias
-host_alias
-target_alias
-CC
-CFLAGS
-LDFLAGS
-LIBS
-CPPFLAGS
-CPP
-XMKMF'
-
-
-# Initialize some variables set by options.
-ac_init_help=
-ac_init_version=false
-ac_unrecognized_opts=
-ac_unrecognized_sep=
-# The variables have the same names as the options, with
-# dashes changed to underlines.
-cache_file=/dev/null
-exec_prefix=NONE
-no_create=
-no_recursion=
-prefix=NONE
-program_prefix=NONE
-program_suffix=NONE
-program_transform_name=s,x,x,
-silent=
-site=
-srcdir=
-verbose=
-x_includes=NONE
-x_libraries=NONE
-
-# Installation directory options.
-# These are left unexpanded so users can "make install exec_prefix=/foo"
-# and all the variables that are supposed to be based on exec_prefix
-# by default will actually change.
-# Use braces instead of parens because sh, perl, etc. also accept them.
-# (The list follows the same order as the GNU Coding Standards.)
-bindir='${exec_prefix}/bin'
-sbindir='${exec_prefix}/sbin'
-libexecdir='${exec_prefix}/libexec'
-datarootdir='${prefix}/share'
-datadir='${datarootdir}'
-sysconfdir='${prefix}/etc'
-sharedstatedir='${prefix}/com'
-localstatedir='${prefix}/var'
-includedir='${prefix}/include'
-oldincludedir='/usr/include'
-docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
-infodir='${datarootdir}/info'
-htmldir='${docdir}'
-dvidir='${docdir}'
-pdfdir='${docdir}'
-psdir='${docdir}'
-libdir='${exec_prefix}/lib'
-localedir='${datarootdir}/locale'
-mandir='${datarootdir}/man'
-
-ac_prev=
-ac_dashdash=
-for ac_option
-do
- # If the previous option needs an argument, assign it.
- if test -n "$ac_prev"; then
- eval $ac_prev=\$ac_option
- ac_prev=
- continue
- fi
-
- case $ac_option in
- *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
- *=) ac_optarg= ;;
- *) ac_optarg=yes ;;
- esac
-
- # Accept the important Cygnus configure options, so we can diagnose typos.
-
- case $ac_dashdash$ac_option in
- --)
- ac_dashdash=yes ;;
-
- -bindir | --bindir | --bindi | --bind | --bin | --bi)
- ac_prev=bindir ;;
- -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
- bindir=$ac_optarg ;;
-
- -build | --build | --buil | --bui | --bu)
- ac_prev=build_alias ;;
- -build=* | --build=* | --buil=* | --bui=* | --bu=*)
- build_alias=$ac_optarg ;;
-
- -cache-file | --cache-file | --cache-fil | --cache-fi \
- | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
- ac_prev=cache_file ;;
- -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
- | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
- cache_file=$ac_optarg ;;
-
- --config-cache | -C)
- cache_file=config.cache ;;
-
- -datadir | --datadir | --datadi | --datad)
- ac_prev=datadir ;;
- -datadir=* | --datadir=* | --datadi=* | --datad=*)
- datadir=$ac_optarg ;;
-
- -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \
- | --dataroo | --dataro | --datar)
- ac_prev=datarootdir ;;
- -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \
- | --dataroot=* | --dataroo=* | --dataro=* | --datar=*)
- datarootdir=$ac_optarg ;;
-
- -disable-* | --disable-*)
- ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error $? "invalid feature name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"enable_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval enable_$ac_useropt=no ;;
-
- -docdir | --docdir | --docdi | --doc | --do)
- ac_prev=docdir ;;
- -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*)
- docdir=$ac_optarg ;;
-
- -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv)
- ac_prev=dvidir ;;
- -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*)
- dvidir=$ac_optarg ;;
-
- -enable-* | --enable-*)
- ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error $? "invalid feature name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"enable_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval enable_$ac_useropt=\$ac_optarg ;;
-
- -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
- | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
- | --exec | --exe | --ex)
- ac_prev=exec_prefix ;;
- -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
- | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
- | --exec=* | --exe=* | --ex=*)
- exec_prefix=$ac_optarg ;;
-
- -gas | --gas | --ga | --g)
- # Obsolete; use --with-gas.
- with_gas=yes ;;
-
- -help | --help | --hel | --he | -h)
- ac_init_help=long ;;
- -help=r* | --help=r* | --hel=r* | --he=r* | -hr*)
- ac_init_help=recursive ;;
- -help=s* | --help=s* | --hel=s* | --he=s* | -hs*)
- ac_init_help=short ;;
-
- -host | --host | --hos | --ho)
- ac_prev=host_alias ;;
- -host=* | --host=* | --hos=* | --ho=*)
- host_alias=$ac_optarg ;;
-
- -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht)
- ac_prev=htmldir ;;
- -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \
- | --ht=*)
- htmldir=$ac_optarg ;;
-
- -includedir | --includedir | --includedi | --included | --include \
- | --includ | --inclu | --incl | --inc)
- ac_prev=includedir ;;
- -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
- | --includ=* | --inclu=* | --incl=* | --inc=*)
- includedir=$ac_optarg ;;
-
- -infodir | --infodir | --infodi | --infod | --info | --inf)
- ac_prev=infodir ;;
- -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
- infodir=$ac_optarg ;;
-
- -libdir | --libdir | --libdi | --libd)
- ac_prev=libdir ;;
- -libdir=* | --libdir=* | --libdi=* | --libd=*)
- libdir=$ac_optarg ;;
-
- -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
- | --libexe | --libex | --libe)
- ac_prev=libexecdir ;;
- -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
- | --libexe=* | --libex=* | --libe=*)
- libexecdir=$ac_optarg ;;
-
- -localedir | --localedir | --localedi | --localed | --locale)
- ac_prev=localedir ;;
- -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*)
- localedir=$ac_optarg ;;
-
- -localstatedir | --localstatedir | --localstatedi | --localstated \
- | --localstate | --localstat | --localsta | --localst | --locals)
- ac_prev=localstatedir ;;
- -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
- | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*)
- localstatedir=$ac_optarg ;;
-
- -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
- ac_prev=mandir ;;
- -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
- mandir=$ac_optarg ;;
-
- -nfp | --nfp | --nf)
- # Obsolete; use --without-fp.
- with_fp=no ;;
-
- -no-create | --no-create | --no-creat | --no-crea | --no-cre \
- | --no-cr | --no-c | -n)
- no_create=yes ;;
-
- -no-recursion | --no-recursion | --no-recursio | --no-recursi \
- | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
- no_recursion=yes ;;
-
- -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
- | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
- | --oldin | --oldi | --old | --ol | --o)
- ac_prev=oldincludedir ;;
- -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
- | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
- | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
- oldincludedir=$ac_optarg ;;
-
- -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
- ac_prev=prefix ;;
- -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
- prefix=$ac_optarg ;;
-
- -program-prefix | --program-prefix | --program-prefi | --program-pref \
- | --program-pre | --program-pr | --program-p)
- ac_prev=program_prefix ;;
- -program-prefix=* | --program-prefix=* | --program-prefi=* \
- | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
- program_prefix=$ac_optarg ;;
-
- -program-suffix | --program-suffix | --program-suffi | --program-suff \
- | --program-suf | --program-su | --program-s)
- ac_prev=program_suffix ;;
- -program-suffix=* | --program-suffix=* | --program-suffi=* \
- | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
- program_suffix=$ac_optarg ;;
-
- -program-transform-name | --program-transform-name \
- | --program-transform-nam | --program-transform-na \
- | --program-transform-n | --program-transform- \
- | --program-transform | --program-transfor \
- | --program-transfo | --program-transf \
- | --program-trans | --program-tran \
- | --progr-tra | --program-tr | --program-t)
- ac_prev=program_transform_name ;;
- -program-transform-name=* | --program-transform-name=* \
- | --program-transform-nam=* | --program-transform-na=* \
- | --program-transform-n=* | --program-transform-=* \
- | --program-transform=* | --program-transfor=* \
- | --program-transfo=* | --program-transf=* \
- | --program-trans=* | --program-tran=* \
- | --progr-tra=* | --program-tr=* | --program-t=*)
- program_transform_name=$ac_optarg ;;
-
- -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd)
- ac_prev=pdfdir ;;
- -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*)
- pdfdir=$ac_optarg ;;
-
- -psdir | --psdir | --psdi | --psd | --ps)
- ac_prev=psdir ;;
- -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*)
- psdir=$ac_optarg ;;
-
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil)
- silent=yes ;;
-
- -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
- ac_prev=sbindir ;;
- -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
- | --sbi=* | --sb=*)
- sbindir=$ac_optarg ;;
-
- -sharedstatedir | --sharedstatedir | --sharedstatedi \
- | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
- | --sharedst | --shareds | --shared | --share | --shar \
- | --sha | --sh)
- ac_prev=sharedstatedir ;;
- -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
- | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
- | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
- | --sha=* | --sh=*)
- sharedstatedir=$ac_optarg ;;
-
- -site | --site | --sit)
- ac_prev=site ;;
- -site=* | --site=* | --sit=*)
- site=$ac_optarg ;;
-
- -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
- ac_prev=srcdir ;;
- -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
- srcdir=$ac_optarg ;;
-
- -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
- | --syscon | --sysco | --sysc | --sys | --sy)
- ac_prev=sysconfdir ;;
- -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
- | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
- sysconfdir=$ac_optarg ;;
-
- -target | --target | --targe | --targ | --tar | --ta | --t)
- ac_prev=target_alias ;;
- -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
- target_alias=$ac_optarg ;;
-
- -v | -verbose | --verbose | --verbos | --verbo | --verb)
- verbose=yes ;;
-
- -version | --version | --versio | --versi | --vers | -V)
- ac_init_version=: ;;
-
- -with-* | --with-*)
- ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error $? "invalid package name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"with_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval with_$ac_useropt=\$ac_optarg ;;
-
- -without-* | --without-*)
- ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error $? "invalid package name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"with_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval with_$ac_useropt=no ;;
-
- --x)
- # Obsolete; use --with-x.
- with_x=yes ;;
-
- -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
- | --x-incl | --x-inc | --x-in | --x-i)
- ac_prev=x_includes ;;
- -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
- | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
- x_includes=$ac_optarg ;;
-
- -x-libraries | --x-libraries | --x-librarie | --x-librari \
- | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
- ac_prev=x_libraries ;;
- -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
- | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
- x_libraries=$ac_optarg ;;
-
- -*) as_fn_error $? "unrecognized option: \`$ac_option'
-Try \`$0 --help' for more information"
- ;;
-
- *=*)
- ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='`
- # Reject names that are not valid shell variable names.
- case $ac_envvar in #(
- '' | [0-9]* | *[!_$as_cr_alnum]* )
- as_fn_error $? "invalid variable name: \`$ac_envvar'" ;;
- esac
- eval $ac_envvar=\$ac_optarg
- export $ac_envvar ;;
-
- *)
- # FIXME: should be removed in autoconf 3.0.
- $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2
- expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null &&
- $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2
- : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}"
- ;;
-
- esac
-done
-
-if test -n "$ac_prev"; then
- ac_option=--`echo $ac_prev | sed 's/_/-/g'`
- as_fn_error $? "missing argument to $ac_option"
-fi
-
-if test -n "$ac_unrecognized_opts"; then
- case $enable_option_checking in
- no) ;;
- fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;;
- *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;;
- esac
-fi
-
-# Check all directory arguments for consistency.
-for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \
- datadir sysconfdir sharedstatedir localstatedir includedir \
- oldincludedir docdir infodir htmldir dvidir pdfdir psdir \
- libdir localedir mandir
-do
- eval ac_val=\$$ac_var
- # Remove trailing slashes.
- case $ac_val in
- */ )
- ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'`
- eval $ac_var=\$ac_val;;
- esac
- # Be sure to have absolute directory names.
- case $ac_val in
- [\\/$]* | ?:[\\/]* ) continue;;
- NONE | '' ) case $ac_var in *prefix ) continue;; esac;;
- esac
- as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val"
-done
-
-# There might be people who depend on the old broken behavior: `$host'
-# used to hold the argument of --host etc.
-# FIXME: To remove some day.
-build=$build_alias
-host=$host_alias
-target=$target_alias
-
-# FIXME: To remove some day.
-if test "x$host_alias" != x; then
- if test "x$build_alias" = x; then
- cross_compiling=maybe
- elif test "x$build_alias" != "x$host_alias"; then
- cross_compiling=yes
- fi
-fi
-
-ac_tool_prefix=
-test -n "$host_alias" && ac_tool_prefix=$host_alias-
-
-test "$silent" = yes && exec 6>/dev/null
-
-
-ac_pwd=`pwd` && test -n "$ac_pwd" &&
-ac_ls_di=`ls -di .` &&
-ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
- as_fn_error $? "working directory cannot be determined"
-test "X$ac_ls_di" = "X$ac_pwd_ls_di" ||
- as_fn_error $? "pwd does not report name of working directory"
-
-
-# Find the source files, if location was not specified.
-if test -z "$srcdir"; then
- ac_srcdir_defaulted=yes
- # Try the directory containing this script, then the parent directory.
- ac_confdir=`$as_dirname -- "$as_myself" ||
-$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_myself" : 'X\(//\)[^/]' \| \
- X"$as_myself" : 'X\(//\)$' \| \
- X"$as_myself" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_myself" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- srcdir=$ac_confdir
- if test ! -r "$srcdir/$ac_unique_file"; then
- srcdir=..
- fi
-else
- ac_srcdir_defaulted=no
-fi
-if test ! -r "$srcdir/$ac_unique_file"; then
- test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .."
- as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir"
-fi
-ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work"
-ac_abs_confdir=`(
- cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg"
- pwd)`
-# When building in place, set srcdir=.
-if test "$ac_abs_confdir" = "$ac_pwd"; then
- srcdir=.
-fi
-# Remove unnecessary trailing slashes from srcdir.
-# Double slashes in file names in object file debugging info
-# mess up M-x gdb in Emacs.
-case $srcdir in
-*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;;
-esac
-for ac_var in $ac_precious_vars; do
- eval ac_env_${ac_var}_set=\${${ac_var}+set}
- eval ac_env_${ac_var}_value=\$${ac_var}
- eval ac_cv_env_${ac_var}_set=\${${ac_var}+set}
- eval ac_cv_env_${ac_var}_value=\$${ac_var}
-done
-
-#
-# Report the --help message.
-#
-if test "$ac_init_help" = "long"; then
- # Omit some internal or obsolete options to make the list less imposing.
- # This message is too long to be a string in the A/UX 3.1 sh.
- cat <<_ACEOF
-\`configure' configures emacs 24.3 to adapt to many kinds of systems.
-
-Usage: $0 [OPTION]... [VAR=VALUE]...
-
-To assign environment variables (e.g., CC, CFLAGS...), specify them as
-VAR=VALUE. See below for descriptions of some of the useful variables.
-
-Defaults for the options are specified in brackets.
-
-Configuration:
- -h, --help display this help and exit
- --help=short display options specific to this package
- --help=recursive display the short help of all the included packages
- -V, --version display version information and exit
- -q, --quiet, --silent do not print \`checking ...' messages
- --cache-file=FILE cache test results in FILE [disabled]
- -C, --config-cache alias for \`--cache-file=config.cache'
- -n, --no-create do not create output files
- --srcdir=DIR find the sources in DIR [configure dir or \`..']
-
-Installation directories:
- --prefix=PREFIX install architecture-independent files in PREFIX
- [$ac_default_prefix]
- --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX
- [PREFIX]
-
-By default, \`make install' will install all the files in
-\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify
-an installation prefix other than \`$ac_default_prefix' using \`--prefix',
-for instance \`--prefix=\$HOME'.
-
-For better control, use the options below.
-
-Fine tuning of the installation directories:
- --bindir=DIR user executables [EPREFIX/bin]
- --sbindir=DIR system admin executables [EPREFIX/sbin]
- --libexecdir=DIR program executables [EPREFIX/libexec]
- --sysconfdir=DIR read-only single-machine data [PREFIX/etc]
- --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com]
- --localstatedir=DIR modifiable single-machine data [PREFIX/var]
- --libdir=DIR object code libraries [EPREFIX/lib]
- --includedir=DIR C header files [PREFIX/include]
- --oldincludedir=DIR C header files for non-gcc [/usr/include]
- --datarootdir=DIR read-only arch.-independent data root [PREFIX/share]
- --datadir=DIR read-only architecture-independent data [DATAROOTDIR]
- --infodir=DIR info documentation [DATAROOTDIR/info]
- --localedir=DIR locale-dependent data [DATAROOTDIR/locale]
- --mandir=DIR man documentation [DATAROOTDIR/man]
- --docdir=DIR documentation root [DATAROOTDIR/doc/emacs]
- --htmldir=DIR html documentation [DOCDIR]
- --dvidir=DIR dvi documentation [DOCDIR]
- --pdfdir=DIR pdf documentation [DOCDIR]
- --psdir=DIR ps documentation [DOCDIR]
-_ACEOF
-
- cat <<\_ACEOF
-
-Program names:
- --program-prefix=PREFIX prepend PREFIX to installed program names
- --program-suffix=SUFFIX append SUFFIX to installed program names
- --program-transform-name=PROGRAM run sed PROGRAM on installed program names
-
-X features:
- --x-includes=DIR X include files are in DIR
- --x-libraries=DIR X library files are in DIR
-
-System types:
- --build=BUILD configure for building on BUILD [guessed]
- --host=HOST cross-compile to build programs to run on HOST [BUILD]
-_ACEOF
-fi
-
-if test -n "$ac_init_help"; then
- case $ac_init_help in
- short | recursive ) echo "Configuration of emacs 24.3:";;
- esac
- cat <<\_ACEOF
-
-Optional Features:
- --disable-option-checking ignore unrecognized --enable/--with options
- --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no)
- --enable-FEATURE[=ARG] include FEATURE [ARG=yes]
- --disable-ns-self-contained
- disable self contained build under NeXTstep
- --enable-locallisppath=PATH
- directories Emacs should search for lisp files
- specific to this site
- --enable-checking[=LIST]
- enable expensive run-time checks. With LIST, enable
- only specific categories of checks. Categories are:
- all,yes,no. Flags are: stringbytes, stringoverrun,
- stringfreelist, xmallocoverrun, conslist, glyphs
- --enable-check-lisp-object-type
- enable compile time checks for the Lisp_Object data
- type. This is useful for development for catching
- certain types of bugs.
- --enable-profiling build emacs with low-level, gprof profiling support.
- Mainly useful for debugging Emacs itself. May not
- work on all platforms. Stops profiler.el working.
- --enable-autodepend automatically generate dependencies to .h-files.
- Requires GNU Make and Gcc. Enabled if GNU Make and
- Gcc is found
- --disable-dependency-tracking speeds up one-time build
- --enable-dependency-tracking do not reject slow dependency extractors
- --disable-largefile omit support for large files
- --enable-gcc-warnings turn on lots of GCC warnings/errors. This is
- intended for developers, and may generate false
- alarms when used with older or non-GNU development
- tools.
- --enable-link-time-optimization
- build emacs with link-time optimization. This is
- supported only for GCC since 4.5.0.
-
-Optional Packages:
- --with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
- --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
- --without-all omit almost all features and build small executable
- with minimal dependencies
- --without-pop don't support POP mail retrieval with movemail
- --with-kerberos support Kerberos-authenticated POP
- --with-kerberos5 support Kerberos version 5 authenticated POP
- --with-hesiod support Hesiod to get the POP server host
- --with-mmdf support MMDF mailboxes
- --with-mail-unlink unlink, rather than empty, mail spool after reading
- --with-mailhost=HOSTNAME
- string giving default POP mail host
- --without-sound don't compile with sound support
- --with-x-toolkit=KIT use an X toolkit (KIT one of: yes or gtk, gtk2,
- gtk3, lucid or athena, motif, no)
- --with-wide-int prefer wide Emacs integers (typically 62-bit)
- --without-xpm don't compile with XPM image support
- --without-jpeg don't compile with JPEG image support
- --without-tiff don't compile with TIFF image support
- --without-gif don't compile with GIF image support
- --without-png don't compile with PNG image support
- --without-rsvg don't compile with SVG image support
- --without-xml2 don't compile with XML parsing support
- --without-imagemagick don't compile with ImageMagick image support
- --without-xft don't use XFT for anti aliased fonts
- --without-libotf don't use libotf for OpenType font support
- --without-m17n-flt don't use m17n-flt for text shaping
- --without-toolkit-scroll-bars
- don't use Motif or Xaw3d scroll bars
- --without-xaw3d don't use Xaw3d
- --without-xim don't use X11 XIM
- --with-ns use NeXTstep (Cocoa or GNUstep) windowing system
- --with-w32 use native MS Windows GUI
- --without-gpm don't use -lgpm for mouse support on a GNU/Linux
- console
- --without-dbus don't compile with D-Bus support
- --without-gconf don't compile with GConf support
- --without-gsettings don't compile with GSettings support
- --without-selinux don't compile with SELinux support
- --without-gnutls don't use -lgnutls for SSL/TLS support
- --without-makeinfo don't require makeinfo for building manuals
- --without-compress-info don't compress the installed Info pages
- --with-pkg-config-prog=PATH
- path to pkg-config for finding GTK and librsvg
- --with-crt-dir=DIR directory containing crtn.o etc. The default is
- /usr/lib, or /usr/lib64 on some platforms.
- --with-gameuser=USER user for shared game score files
- --with-gnustep-conf=PATH
- path to GNUstep.conf; default $GNUSTEP_CONFIG_FILE,
- or /etc/GNUstep/GNUstep.conf
- --with-x use the X Window System
-
-Some influential environment variables:
- CC C compiler command
- CFLAGS C compiler flags
- LDFLAGS linker flags, e.g. -L<lib dir> if you have libraries in a
- nonstandard directory <lib dir>
- LIBS libraries to pass to the linker, e.g. -l<library>
- CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I<include dir> if
- you have headers in a nonstandard directory <include dir>
- CPP C preprocessor
- XMKMF Path to xmkmf, Makefile generator for X Window System
-
-Use these variables to override the choices made by `configure' or to help
-it to find libraries and programs with nonstandard names/locations.
-
-Report bugs to the package provider.
-_ACEOF
-ac_status=$?
-fi
-
-if test "$ac_init_help" = "recursive"; then
- # If there are subdirs, report their specific --help.
- for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue
- test -d "$ac_dir" ||
- { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } ||
- continue
- ac_builddir=.
-
-case "$ac_dir" in
-.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-*)
- ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
- # A ".." for each directory in $ac_dir_suffix.
- ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
- case $ac_top_builddir_sub in
- "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
- *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
- esac ;;
-esac
-ac_abs_top_builddir=$ac_pwd
-ac_abs_builddir=$ac_pwd$ac_dir_suffix
-# for backward compatibility:
-ac_top_builddir=$ac_top_build_prefix
-
-case $srcdir in
- .) # We are building in place.
- ac_srcdir=.
- ac_top_srcdir=$ac_top_builddir_sub
- ac_abs_top_srcdir=$ac_pwd ;;
- [\\/]* | ?:[\\/]* ) # Absolute name.
- ac_srcdir=$srcdir$ac_dir_suffix;
- ac_top_srcdir=$srcdir
- ac_abs_top_srcdir=$srcdir ;;
- *) # Relative name.
- ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
- ac_top_srcdir=$ac_top_build_prefix$srcdir
- ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-esac
-ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-
- cd "$ac_dir" || { ac_status=$?; continue; }
- # Check for guested configure.
- if test -f "$ac_srcdir/configure.gnu"; then
- echo &&
- $SHELL "$ac_srcdir/configure.gnu" --help=recursive
- elif test -f "$ac_srcdir/configure"; then
- echo &&
- $SHELL "$ac_srcdir/configure" --help=recursive
- else
- $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2
- fi || ac_status=$?
- cd "$ac_pwd" || { ac_status=$?; break; }
- done
-fi
-
-test -n "$ac_init_help" && exit $ac_status
-if $ac_init_version; then
- cat <<\_ACEOF
-emacs configure 24.3
-generated by GNU Autoconf 2.69
-
-Copyright (C) 2012 Free Software Foundation, Inc.
-This configure script is free software; the Free Software Foundation
-gives unlimited permission to copy, distribute and modify it.
-_ACEOF
- exit
-fi
-
-## ------------------------ ##
-## Autoconf initialization. ##
-## ------------------------ ##
-
-# ac_fn_c_try_compile LINENO
-# --------------------------
-# Try to compile conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_compile ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- 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 ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compile") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest.$ac_objext; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_compile
-
-# ac_fn_c_try_cpp LINENO
-# ----------------------
-# Try to preprocess conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_cpp ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if { { ac_try="$ac_cpp conftest.$ac_ext"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } > conftest.i && {
- test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
- test ! -s conftest.err
- }; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_cpp
-
-# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES
-# -------------------------------------------------------
-# Tests whether HEADER exists, giving a warning if it cannot be compiled using
-# the include files in INCLUDES and setting the cache variable VAR
-# accordingly.
-ac_fn_c_check_header_mongrel ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if eval \${$3+:} false; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-else
- # Is the header compilable?
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5
-$as_echo_n "checking $2 usability... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-#include <$2>
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_header_compiler=yes
-else
- ac_header_compiler=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5
-$as_echo "$ac_header_compiler" >&6; }
-
-# Is the header present?
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5
-$as_echo_n "checking $2 presence... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <$2>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- ac_header_preproc=yes
-else
- ac_header_preproc=no
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5
-$as_echo "$ac_header_preproc" >&6; }
-
-# So? What about this header?
-case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #((
- yes:no: )
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5
-$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
-$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
- ;;
- no:yes:* )
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5
-$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5
-$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5
-$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5
-$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
-$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
- ;;
-esac
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- eval "$3=\$ac_header_compiler"
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-fi
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_header_mongrel
-
-# ac_fn_c_try_run LINENO
-# ----------------------
-# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes
-# that executables *can* be run.
-ac_fn_c_try_run ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && { ac_try='./conftest$ac_exeext'
- { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; }; then :
- ac_retval=0
-else
- $as_echo "$as_me: program exited with status $ac_status" >&5
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=$ac_status
-fi
- rm -rf conftest.dSYM conftest_ipa8_conftest.oo
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_run
-
-# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES
-# -------------------------------------------------------
-# Tests whether HEADER exists and can be compiled using the include files in
-# INCLUDES, setting the cache variable VAR accordingly.
-ac_fn_c_check_header_compile ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-#include <$2>
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval "$3=yes"
-else
- eval "$3=no"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_header_compile
-
-# ac_fn_c_try_link LINENO
-# -----------------------
-# Try to link conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_link ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- 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 ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest$ac_exeext && {
- test "$cross_compiling" = yes ||
- test -x conftest$ac_exeext
- }; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
- # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
- # interfere with the next link command; also delete a directory that is
- # left behind by Apple's compiler. We do this before executing the actions.
- rm -rf conftest.dSYM conftest_ipa8_conftest.oo
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_link
-
-# ac_fn_c_check_decl LINENO SYMBOL VAR INCLUDES
-# ---------------------------------------------
-# Tests whether SYMBOL is declared in INCLUDES, setting cache variable VAR
-# accordingly.
-ac_fn_c_check_decl ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- as_decl_name=`echo $2|sed 's/ *(.*//'`
- as_decl_use=`echo $2|sed -e 's/(/((/' -e 's/)/) 0&/' -e 's/,/) 0& (/g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $as_decl_name is declared" >&5
-$as_echo_n "checking whether $as_decl_name is declared... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-#ifndef $as_decl_name
-#ifdef __cplusplus
- (void) $as_decl_use;
-#else
- (void) $as_decl_name;
-#endif
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval "$3=yes"
-else
- eval "$3=no"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_decl
-
-# ac_fn_c_check_header_preproc LINENO HEADER VAR
-# ----------------------------------------------
-# Tests whether HEADER is present, setting the cache variable VAR accordingly.
-ac_fn_c_check_header_preproc ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <$2>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- eval "$3=yes"
-else
- eval "$3=no"
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_header_preproc
-
-# ac_fn_c_check_member LINENO AGGR MEMBER VAR INCLUDES
-# ----------------------------------------------------
-# Tries to find if the field MEMBER exists in type AGGR, after including
-# INCLUDES, setting cache variable VAR accordingly.
-ac_fn_c_check_member ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2.$3" >&5
-$as_echo_n "checking for $2.$3... " >&6; }
-if eval \${$4+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$5
-int
-main ()
-{
-static $2 ac_aggr;
-if (ac_aggr.$3)
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval "$4=yes"
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$5
-int
-main ()
-{
-static $2 ac_aggr;
-if (sizeof ac_aggr.$3)
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval "$4=yes"
-else
- eval "$4=no"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-eval ac_res=\$$4
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_member
-
-# ac_fn_c_check_func LINENO FUNC VAR
-# ----------------------------------
-# Tests whether FUNC exists, setting the cache variable VAR accordingly
-ac_fn_c_check_func ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-/* Define $2 to an innocuous variant, in case <limits.h> declares $2.
- For example, HP-UX 11i <limits.h> declares gettimeofday. */
-#define $2 innocuous_$2
-
-/* System header to define __stub macros and hopefully few prototypes,
- which can conflict with char $2 (); below.
- Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- <limits.h> exists even on freestanding compilers. */
-
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
-
-#undef $2
-
-/* 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 $2 ();
-/* The GNU C library defines this for functions which it implements
- to always fail with ENOSYS. Some functions are actually named
- something starting with __ and the normal name is an alias. */
-#if defined __stub_$2 || defined __stub___$2
-choke me
-#endif
-
-int
-main ()
-{
-return $2 ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- eval "$3=yes"
-else
- eval "$3=no"
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_func
-
-# ac_fn_c_check_type LINENO TYPE VAR INCLUDES
-# -------------------------------------------
-# Tests whether TYPE exists after having included INCLUDES, setting cache
-# variable VAR accordingly.
-ac_fn_c_check_type ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- eval "$3=no"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-if (sizeof ($2))
- return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-if (sizeof (($2)))
- return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-else
- eval "$3=yes"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_type
-
-# ac_fn_c_compute_int LINENO EXPR VAR INCLUDES
-# --------------------------------------------
-# Tries to find the compile-time value of EXPR in a program that includes
-# INCLUDES, setting VAR accordingly. Returns whether the value could be
-# computed
-ac_fn_c_compute_int ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if test "$cross_compiling" = yes; then
- # Depending upon the size, compute the lo and hi bounds.
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) >= 0)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_lo=0 ac_mid=0
- while :; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) <= $ac_mid)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_hi=$ac_mid; break
-else
- as_fn_arith $ac_mid + 1 && ac_lo=$as_val
- if test $ac_lo -le $ac_mid; then
- ac_lo= ac_hi=
- break
- fi
- as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- done
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) < 0)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_hi=-1 ac_mid=-1
- while :; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) >= $ac_mid)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_lo=$ac_mid; break
-else
- as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val
- if test $ac_mid -le $ac_hi; then
- ac_lo= ac_hi=
- break
- fi
- as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- done
-else
- ac_lo= ac_hi=
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-# Binary search between lo and hi bounds.
-while test "x$ac_lo" != "x$ac_hi"; do
- as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-int
-main ()
-{
-static int test_array [1 - 2 * !(($2) <= $ac_mid)];
-test_array [0] = 0;
-return test_array [0];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_hi=$ac_mid
-else
- as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-done
-case $ac_lo in #((
-?*) eval "$3=\$ac_lo"; ac_retval=0 ;;
-'') ac_retval=1 ;;
-esac
- else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-static long int longval () { return $2; }
-static unsigned long int ulongval () { return $2; }
-#include <stdio.h>
-#include <stdlib.h>
-int
-main ()
-{
-
- FILE *f = fopen ("conftest.val", "w");
- if (! f)
- return 1;
- if (($2) < 0)
- {
- long int i = longval ();
- if (i != ($2))
- return 1;
- fprintf (f, "%ld", i);
- }
- else
- {
- unsigned long int i = ulongval ();
- if (i != ($2))
- return 1;
- fprintf (f, "%lu", i);
- }
- /* Do not output a trailing newline, as this causes \r\n confusion
- on some platforms. */
- return ferror (f) || fclose (f) != 0;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- echo >>conftest.val; read $3 <conftest.val; ac_retval=0
-else
- ac_retval=1
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-rm -f conftest.val
-
- fi
- eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_compute_int
-cat >config.log <<_ACEOF
-This file contains any messages produced by compilers while
-running configure, to aid debugging if configure makes a mistake.
-
-It was created by emacs $as_me 24.3, which was
-generated by GNU Autoconf 2.69. Invocation command line was
-
- $ $0 $@
-
-_ACEOF
-exec 5>>config.log
-{
-cat <<_ASUNAME
-## --------- ##
-## Platform. ##
-## --------- ##
-
-hostname = `(hostname || uname -n) 2>/dev/null | sed 1q`
-uname -m = `(uname -m) 2>/dev/null || echo unknown`
-uname -r = `(uname -r) 2>/dev/null || echo unknown`
-uname -s = `(uname -s) 2>/dev/null || echo unknown`
-uname -v = `(uname -v) 2>/dev/null || echo unknown`
-
-/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`
-/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown`
-
-/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown`
-/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown`
-/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`
-/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown`
-/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown`
-/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown`
-/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown`
-
-_ASUNAME
-
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- $as_echo "PATH: $as_dir"
- done
-IFS=$as_save_IFS
-
-} >&5
-
-cat >&5 <<_ACEOF
-
-
-## ----------- ##
-## Core tests. ##
-## ----------- ##
-
-_ACEOF
-
-
-# Keep a trace of the command line.
-# Strip out --no-create and --no-recursion so they do not pile up.
-# Strip out --silent because we don't want to record it for future runs.
-# Also quote any args containing shell meta-characters.
-# Make two passes to allow for proper duplicate-argument suppression.
-ac_configure_args=
-ac_configure_args0=
-ac_configure_args1=
-ac_must_keep_next=false
-for ac_pass in 1 2
-do
- for ac_arg
- do
- case $ac_arg in
- -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;;
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil)
- continue ;;
- *\'*)
- ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;;
- esac
- case $ac_pass in
- 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;;
- 2)
- as_fn_append ac_configure_args1 " '$ac_arg'"
- if test $ac_must_keep_next = true; then
- ac_must_keep_next=false # Got value, back to normal.
- else
- case $ac_arg in
- *=* | --config-cache | -C | -disable-* | --disable-* \
- | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \
- | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \
- | -with-* | --with-* | -without-* | --without-* | --x)
- case "$ac_configure_args0 " in
- "$ac_configure_args1"*" '$ac_arg' "* ) continue ;;
- esac
- ;;
- -* ) ac_must_keep_next=true ;;
- esac
- fi
- as_fn_append ac_configure_args " '$ac_arg'"
- ;;
- esac
- done
-done
-{ ac_configure_args0=; unset ac_configure_args0;}
-{ ac_configure_args1=; unset ac_configure_args1;}
-
-# When interrupted or exit'd, cleanup temporary files, and complete
-# config.log. We remove comments because anyway the quotes in there
-# would cause problems or look ugly.
-# WARNING: Use '\'' to represent an apostrophe within the trap.
-# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug.
-trap 'exit_status=$?
- # Save into config.log some information that might help in debugging.
- {
- echo
-
- $as_echo "## ---------------- ##
-## Cache variables. ##
-## ---------------- ##"
- echo
- # The following way of writing the cache mishandles newlines in values,
-(
- for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
- (set) 2>&1 |
- case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- sed -n \
- "s/'\''/'\''\\\\'\'''\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p"
- ;; #(
- *)
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-)
- echo
-
- $as_echo "## ----------------- ##
-## Output variables. ##
-## ----------------- ##"
- echo
- for ac_var in $ac_subst_vars
- do
- eval ac_val=\$$ac_var
- case $ac_val in
- *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
- esac
- $as_echo "$ac_var='\''$ac_val'\''"
- done | sort
- echo
-
- if test -n "$ac_subst_files"; then
- $as_echo "## ------------------- ##
-## File substitutions. ##
-## ------------------- ##"
- echo
- for ac_var in $ac_subst_files
- do
- eval ac_val=\$$ac_var
- case $ac_val in
- *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
- esac
- $as_echo "$ac_var='\''$ac_val'\''"
- done | sort
- echo
- fi
-
- if test -s confdefs.h; then
- $as_echo "## ----------- ##
-## confdefs.h. ##
-## ----------- ##"
- echo
- cat confdefs.h
- echo
- fi
- test "$ac_signal" != 0 &&
- $as_echo "$as_me: caught signal $ac_signal"
- $as_echo "$as_me: exit $exit_status"
- } >&5
- rm -f core *.core core.conftest.* &&
- rm -f -r conftest* confdefs* conf$$* $ac_clean_files &&
- exit $exit_status
-' 0
-for ac_signal in 1 2 13 15; do
- trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal
-done
-ac_signal=0
-
-# confdefs.h avoids OS command line length limits that DEFS can exceed.
-rm -f -r conftest* confdefs.h
-
-$as_echo "/* confdefs.h */" > confdefs.h
-
-# Predefined preprocessor variables.
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_NAME "$PACKAGE_NAME"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_TARNAME "$PACKAGE_TARNAME"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_VERSION "$PACKAGE_VERSION"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_STRING "$PACKAGE_STRING"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_URL "$PACKAGE_URL"
-_ACEOF
-
-
-# Let the site file select an alternate cache file if it wants to.
-# Prefer an explicitly selected file to automatically selected ones.
-ac_site_file1=NONE
-ac_site_file2=NONE
-if test -n "$CONFIG_SITE"; then
- # We do not want a PATH search for config.site.
- case $CONFIG_SITE in #((
- -*) ac_site_file1=./$CONFIG_SITE;;
- */*) ac_site_file1=$CONFIG_SITE;;
- *) ac_site_file1=./$CONFIG_SITE;;
- esac
-elif test "x$prefix" != xNONE; then
- ac_site_file1=$prefix/share/config.site
- ac_site_file2=$prefix/etc/config.site
-else
- ac_site_file1=$ac_default_prefix/share/config.site
- ac_site_file2=$ac_default_prefix/etc/config.site
-fi
-for ac_site_file in "$ac_site_file1" "$ac_site_file2"
-do
- test "x$ac_site_file" = xNONE && continue
- if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5
-$as_echo "$as_me: loading site script $ac_site_file" >&6;}
- sed 's/^/| /' "$ac_site_file" >&5
- . "$ac_site_file" \
- || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "failed to load site script $ac_site_file
-See \`config.log' for more details" "$LINENO" 5; }
- fi
-done
-
-if test -r "$cache_file"; then
- # Some versions of bash will fail to source /dev/null (special files
- # actually), so we avoid doing that. DJGPP emulates it as a regular file.
- if test /dev/null != "$cache_file" && test -f "$cache_file"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5
-$as_echo "$as_me: loading cache $cache_file" >&6;}
- case $cache_file in
- [\\/]* | ?:[\\/]* ) . "$cache_file";;
- *) . "./$cache_file";;
- esac
- fi
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5
-$as_echo "$as_me: creating cache $cache_file" >&6;}
- >$cache_file
-fi
-
-as_fn_append ac_header_list " linux/version.h"
-as_fn_append ac_header_list " sys/systeminfo.h"
-as_fn_append ac_header_list " stdio_ext.h"
-as_fn_append ac_header_list " fcntl.h"
-as_fn_append ac_header_list " coff.h"
-as_fn_append ac_header_list " pty.h"
-as_fn_append ac_header_list " sys/vlimit.h"
-as_fn_append ac_header_list " sys/resource.h"
-as_fn_append ac_header_list " sys/utsname.h"
-as_fn_append ac_header_list " pwd.h"
-as_fn_append ac_header_list " utmp.h"
-as_fn_append ac_header_list " dirent.h"
-as_fn_append ac_header_list " util.h"
-as_fn_append ac_header_list " sys/socket.h"
-as_fn_append ac_header_list " stdlib.h"
-as_fn_append ac_header_list " unistd.h"
-as_fn_append ac_header_list " sys/param.h"
-as_fn_append ac_header_list " pthread.h"
-as_fn_append ac_header_list " malloc/malloc.h"
-as_fn_append ac_header_list " maillock.h"
-as_fn_append ac_header_list " sys/un.h"
-as_fn_append ac_func_list " tzset"
-as_fn_append ac_func_list " readlinkat"
-as_fn_append ac_header_list " execinfo.h"
-gl_getopt_required=GNU
-as_fn_append ac_header_list " getopt.h"
-as_fn_append ac_func_list " gettimeofday"
-as_fn_append ac_func_list " nanotime"
-as_fn_append ac_header_list " sys/time.h"
-as_fn_append ac_header_list " wchar.h"
-as_fn_append ac_header_list " stdint.h"
-as_fn_append ac_header_list " inttypes.h"
-as_fn_append ac_func_list " lstat"
-as_fn_append ac_func_list " alarm"
-as_fn_append ac_header_list " sys/select.h"
-as_fn_append ac_func_list " pselect"
-as_fn_append ac_func_list " pthread_sigmask"
-as_fn_append ac_func_list " readlink"
-as_fn_append ac_func_list " strtoimax"
-as_fn_append ac_func_list " strtoumax"
-as_fn_append ac_func_list " symlink"
-as_fn_append ac_header_list " sys/stat.h"
-as_fn_append ac_func_list " localtime_r"
-as_fn_append ac_header_list " utime.h"
-as_fn_append ac_func_list " futimes"
-as_fn_append ac_func_list " futimesat"
-as_fn_append ac_func_list " futimens"
-as_fn_append ac_func_list " utimensat"
-as_fn_append ac_func_list " lutimes"
-# Check that the precious variables saved in the cache have kept the same
-# value.
-ac_cache_corrupted=false
-for ac_var in $ac_precious_vars; do
- eval ac_old_set=\$ac_cv_env_${ac_var}_set
- eval ac_new_set=\$ac_env_${ac_var}_set
- eval ac_old_val=\$ac_cv_env_${ac_var}_value
- eval ac_new_val=\$ac_env_${ac_var}_value
- case $ac_old_set,$ac_new_set in
- set,)
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5
-$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;}
- ac_cache_corrupted=: ;;
- ,set)
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5
-$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;}
- ac_cache_corrupted=: ;;
- ,);;
- *)
- if test "x$ac_old_val" != "x$ac_new_val"; then
- # differences in whitespace do not lead to failure.
- ac_old_val_w=`echo x $ac_old_val`
- ac_new_val_w=`echo x $ac_new_val`
- if test "$ac_old_val_w" != "$ac_new_val_w"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5
-$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;}
- ac_cache_corrupted=:
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5
-$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;}
- eval $ac_var=\$ac_old_val
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5
-$as_echo "$as_me: former value: \`$ac_old_val'" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5
-$as_echo "$as_me: current value: \`$ac_new_val'" >&2;}
- fi;;
- esac
- # Pass precious variables to config.status.
- if test "$ac_new_set" = set; then
- case $ac_new_val in
- *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;;
- *) ac_arg=$ac_var=$ac_new_val ;;
- esac
- case " $ac_configure_args " in
- *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy.
- *) as_fn_append ac_configure_args " '$ac_arg'" ;;
- esac
- fi
-done
-if $ac_cache_corrupted; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5
-$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;}
- as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
-fi
-## -------------------- ##
-## Main body of script. ##
-## -------------------- ##
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-ac_config_headers="$ac_config_headers src/config.h:src/config.in"
-
-
-ac_aux_dir=
-for ac_dir in build-aux "$srcdir"/build-aux; do
- if test -f "$ac_dir/install-sh"; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install-sh -c"
- break
- elif test -f "$ac_dir/install.sh"; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install.sh -c"
- break
- elif test -f "$ac_dir/shtool"; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/shtool install -c"
- break
- fi
-done
-if test -z "$ac_aux_dir"; then
- as_fn_error $? "cannot find install-sh, install.sh, or shtool in build-aux \"$srcdir\"/build-aux" "$LINENO" 5
-fi
-
-# These three variables are undocumented and unsupported,
-# and are intended to be withdrawn in a future Autoconf release.
-# They can cause serious problems if a builder's source tree is in a directory
-# whose full name contains unusual characters.
-ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var.
-ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var.
-ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var.
-
-
-am__api_version='1.11'
-
-# Find a good install program. We prefer a C program (faster),
-# so one script is as good as another. But avoid the broken or
-# incompatible versions:
-# SysV /etc/install, /usr/sbin/install
-# SunOS /usr/etc/install
-# IRIX /sbin/install
-# AIX /bin/install
-# AmigaOS /C/install, which installs bootblocks on floppy discs
-# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag
-# AFS /usr/afsws/bin/install, which mishandles nonexistent args
-# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
-# OS/2's system install, which has a completely different semantic
-# ./install, which can be erroneously created by make from ./install.sh.
-# Reject install programs that cannot install multiple files.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5
-$as_echo_n "checking for a BSD-compatible install... " >&6; }
-if test -z "$INSTALL"; then
-if ${ac_cv_path_install+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- # Account for people who put trailing slashes in PATH elements.
-case $as_dir/ in #((
- ./ | .// | /[cC]/* | \
- /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \
- ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \
- /usr/ucb/* ) ;;
- *)
- # OSF1 and SCO ODT 3.0 have their own names for install.
- # Don't use installbsd from OSF since it installs stuff as root
- # by default.
- for ac_prog in ginstall scoinst install; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then
- if test $ac_prog = install &&
- grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
- # AIX install. It has an incompatible calling convention.
- :
- elif test $ac_prog = install &&
- grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
- # program-specific install script used by HP pwplus--don't use.
- :
- else
- rm -rf conftest.one conftest.two conftest.dir
- echo one > conftest.one
- echo two > conftest.two
- mkdir conftest.dir
- if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" &&
- test -s conftest.one && test -s conftest.two &&
- test -s conftest.dir/conftest.one &&
- test -s conftest.dir/conftest.two
- then
- ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c"
- break 3
- fi
- fi
- fi
- done
- done
- ;;
-esac
-
- done
-IFS=$as_save_IFS
-
-rm -rf conftest.one conftest.two conftest.dir
-
-fi
- if test "${ac_cv_path_install+set}" = set; then
- INSTALL=$ac_cv_path_install
- else
- # As a last resort, use the slow shell script. Don't cache a
- # value for INSTALL within a source directory, because that will
- # break other packages using the cache if that directory is
- # removed, or if the value is a relative name.
- INSTALL=$ac_install_sh
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5
-$as_echo "$INSTALL" >&6; }
-
-# Use test -z because SunOS4 sh mishandles braces in ${var-val}.
-# It thinks the first close brace ends the variable substitution.
-test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
-
-test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}'
-
-test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5
-$as_echo_n "checking whether build environment is sane... " >&6; }
-# Just in case
-sleep 1
-echo timestamp > conftest.file
-# Reject unsafe characters in $srcdir or the absolute working directory
-# name. Accept space and tab only in the latter.
-am_lf='
-'
-case `pwd` in
- *[\\\"\#\$\&\'\`$am_lf]*)
- as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;;
-esac
-case $srcdir in
- *[\\\"\#\$\&\'\`$am_lf\ \ ]*)
- as_fn_error $? "unsafe srcdir value: \`$srcdir'" "$LINENO" 5;;
-esac
-
-# Do `set' in a subshell so we don't clobber the current shell's
-# arguments. Must try -L first in case configure is actually a
-# symlink; some systems play weird games with the mod time of symlinks
-# (eg FreeBSD returns the mod time of the symlink's containing
-# directory).
-if (
- set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
- if test "$*" = "X"; then
- # -L didn't work.
- set X `ls -t "$srcdir/configure" conftest.file`
- fi
- rm -f conftest.file
- if test "$*" != "X $srcdir/configure conftest.file" \
- && test "$*" != "X conftest.file $srcdir/configure"; then
-
- # If neither matched, then we have a broken ls. This can happen
- # if, for instance, CONFIG_SHELL is bash and it inherits a
- # broken ls alias from the environment. This has actually
- # happened. Such a system could not be considered "sane".
- as_fn_error $? "ls -t appears to fail. Make sure there is not a broken
-alias in your environment" "$LINENO" 5
- fi
-
- test "$2" = conftest.file
- )
-then
- # Ok.
- :
-else
- as_fn_error $? "newly created file is older than distributed files!
-Check your system clock" "$LINENO" 5
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-test "$program_prefix" != NONE &&
- program_transform_name="s&^&$program_prefix&;$program_transform_name"
-# Use a double $ so make ignores it.
-test "$program_suffix" != NONE &&
- program_transform_name="s&\$&$program_suffix&;$program_transform_name"
-# Double any \ or $.
-# By default was `s,x,x', remove it if useless.
-ac_script='s/[\\$]/&&/g;s/;s,x,x,$//'
-program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"`
-
-# expand $ac_aux_dir to an absolute path
-am_aux_dir=`cd $ac_aux_dir && pwd`
-
-if test x"${MISSING+set}" != xset; then
- case $am_aux_dir in
- *\ * | *\ *)
- MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;;
- *)
- MISSING="\${SHELL} $am_aux_dir/missing" ;;
- esac
-fi
-# Use eval to expand $SHELL
-if eval "$MISSING --run true"; then
- am_missing_run="$MISSING --run "
-else
- am_missing_run=
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`missing' script is too old or missing" >&5
-$as_echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;}
-fi
-
-if test x"${install_sh}" != xset; then
- case $am_aux_dir in
- *\ * | *\ *)
- install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
- *)
- install_sh="\${SHELL} $am_aux_dir/install-sh"
- esac
-fi
-
-# Installed binaries are usually stripped using `strip' when the user
-# run `make install-strip'. However `strip' might not be the right
-# tool to use in cross-compilation environments, therefore Automake
-# will honor the `STRIP' environment variable to overrule this program.
-if test "$cross_compiling" != no; then
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
-set dummy ${ac_tool_prefix}strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_STRIP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$STRIP"; then
- ac_cv_prog_STRIP="$STRIP" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_STRIP="${ac_tool_prefix}strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-STRIP=$ac_cv_prog_STRIP
-if test -n "$STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
-$as_echo "$STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_STRIP"; then
- ac_ct_STRIP=$STRIP
- # Extract the first word of "strip", so it can be a program name with args.
-set dummy strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_STRIP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_STRIP"; then
- ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_STRIP="strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
-if test -n "$ac_ct_STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
-$as_echo "$ac_ct_STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_STRIP" = x; then
- STRIP=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- STRIP=$ac_ct_STRIP
- fi
-else
- STRIP="$ac_cv_prog_STRIP"
-fi
-
-fi
-INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5
-$as_echo_n "checking for a thread-safe mkdir -p... " >&6; }
-if test -z "$MKDIR_P"; then
- if ${ac_cv_path_mkdir+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in mkdir gmkdir; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue
- case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #(
- 'mkdir (GNU coreutils) '* | \
- 'mkdir (coreutils) '* | \
- 'mkdir (fileutils) '4.1*)
- ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext
- break 3;;
- esac
- done
- done
- done
-IFS=$as_save_IFS
-
-fi
-
- test -d ./--version && rmdir ./--version
- if test "${ac_cv_path_mkdir+set}" = set; then
- MKDIR_P="$ac_cv_path_mkdir -p"
- else
- # As a last resort, use the slow shell script. Don't cache a
- # value for MKDIR_P within a source directory, because that will
- # break other packages using the cache if that directory is
- # removed, or if the value is a relative name.
- MKDIR_P="$ac_install_sh -d"
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5
-$as_echo "$MKDIR_P" >&6; }
-
-
-mkdir_p="$MKDIR_P"
-case $mkdir_p in
- [\\/$]* | ?:[\\/]*) ;;
- */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;;
-esac
-
-for ac_prog in gawk mawk nawk awk
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_AWK+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$AWK"; then
- ac_cv_prog_AWK="$AWK" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_AWK="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-AWK=$ac_cv_prog_AWK
-if test -n "$AWK"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5
-$as_echo "$AWK" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$AWK" && break
-done
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5
-$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
-set x ${MAKE-make}
-ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
-if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat >conftest.make <<\_ACEOF
-SHELL = /bin/sh
-all:
- @echo '@@@%%%=$(MAKE)=@@@%%%'
-_ACEOF
-# GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
-case `${MAKE-make} -f conftest.make 2>/dev/null` in
- *@@@%%%=?*=@@@%%%*)
- eval ac_cv_prog_make_${ac_make}_set=yes;;
- *)
- eval ac_cv_prog_make_${ac_make}_set=no;;
-esac
-rm -f conftest.make
-fi
-if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- SET_MAKE=
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- SET_MAKE="MAKE=${MAKE-make}"
-fi
-
-rm -rf .tst 2>/dev/null
-mkdir .tst 2>/dev/null
-if test -d .tst; then
- am__leading_dot=.
-else
- am__leading_dot=_
-fi
-rmdir .tst 2>/dev/null
-
-if test "`cd $srcdir && pwd`" != "`pwd`"; then
- # Use -I$(srcdir) only when $(srcdir) != ., so that make's output
- # is not polluted with repeated "-I."
- am__isrc=' -I$(srcdir)'
- # test to see if srcdir already configured
- if test -f $srcdir/config.status; then
- as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5
- fi
-fi
-
-# test whether we have cygpath
-if test -z "$CYGPATH_W"; then
- if (cygpath --version) >/dev/null 2>/dev/null; then
- CYGPATH_W='cygpath -w'
- else
- CYGPATH_W=echo
- fi
-fi
-
-
-# Define the identity of the package.
- PACKAGE='emacs'
- VERSION='24.3'
-
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE "$PACKAGE"
-_ACEOF
-
-
-cat >>confdefs.h <<_ACEOF
-#define VERSION "$VERSION"
-_ACEOF
-
-# Some tools Automake needs.
-
-ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"}
-
-
-AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"}
-
-
-AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"}
-
-
-AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"}
-
-
-MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"}
-
-# We need awk for the "check" target. The system "awk" is bad on
-# some platforms.
-# Always define AMTAR for backward compatibility. Yes, it's still used
-# in the wild :-( We should find a proper way to deprecate it ...
-AMTAR='$${TAR-tar}'
-
-am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'
-
-
-
-
-
-
-
-
-lispdir='${datadir}/emacs/${version}/lisp'
-leimdir='${datadir}/emacs/${version}/leim'
-standardlisppath='${lispdir}:${leimdir}'
-locallisppath='${datadir}/emacs/${version}/site-lisp:'\
-'${datadir}/emacs/site-lisp'
-lisppath='${locallisppath}:${standardlisppath}'
-etcdir='${datadir}/emacs/${version}/etc'
-archlibdir='${libexecdir}/emacs/${version}/${configuration}'
-docdir='${datadir}/emacs/${version}/etc'
-gamedir='${localstatedir}/games/emacs'
-
-
-# Check whether --with-all was given.
-if test "${with_all+set}" = set; then :
- withval=$with_all; with_features=$withval
-else
- with_features=yes
-fi
-
-
-
-
-
-# Check whether --with-pop was given.
-if test "${with_pop+set}" = set; then :
- withval=$with_pop;
-else
- with_pop=$with_features
-fi
-
-if test "$with_pop" = yes; then
- $as_echo "#define MAIL_USE_POP 1" >>confdefs.h
-
-fi
-
-
-# Check whether --with-kerberos was given.
-if test "${with_kerberos+set}" = set; then :
- withval=$with_kerberos;
-else
- with_kerberos=no
-fi
-
-if test "$with_kerberos" != no; then
- $as_echo "#define KERBEROS 1" >>confdefs.h
-
-fi
-
-
-# Check whether --with-kerberos5 was given.
-if test "${with_kerberos5+set}" = set; then :
- withval=$with_kerberos5;
-else
- with_kerberos5=no
-fi
-
-if test "${with_kerberos5}" != no; then
- if test "${with_kerberos}" = no; then
- with_kerberos=yes
- $as_echo "#define KERBEROS 1" >>confdefs.h
-
- fi
-
-$as_echo "#define KERBEROS5 1" >>confdefs.h
-
-fi
-
-
-# Check whether --with-hesiod was given.
-if test "${with_hesiod+set}" = set; then :
- withval=$with_hesiod;
-else
- with_hesiod=no
-fi
-
-if test "$with_hesiod" != no; then
-
-$as_echo "#define HESIOD 1" >>confdefs.h
-
-fi
-
-
-# Check whether --with-mmdf was given.
-if test "${with_mmdf+set}" = set; then :
- withval=$with_mmdf;
-else
- with_mmdf=no
-fi
-
-if test "$with_mmdf" != no; then
-
-$as_echo "#define MAIL_USE_MMDF 1" >>confdefs.h
-
-fi
-
-
-# Check whether --with-mail-unlink was given.
-if test "${with_mail_unlink+set}" = set; then :
- withval=$with_mail_unlink;
-else
- with_mail_unlink=no
-fi
-
-if test "$with_mail_unlink" != no; then
-
-$as_echo "#define MAIL_UNLINK_SPOOL 1" >>confdefs.h
-
-fi
-
-
-# Check whether --with-mailhost was given.
-if test "${with_mailhost+set}" = set; then :
- withval=$with_mailhost;
-cat >>confdefs.h <<_ACEOF
-#define MAILHOST "$withval"
-_ACEOF
-
-fi
-
-
-
-# Check whether --with-sound was given.
-if test "${with_sound+set}" = set; then :
- withval=$with_sound;
-else
- with_sound=$with_features
-fi
-
-
-
-# Check whether --with-x-toolkit was given.
-if test "${with_x_toolkit+set}" = set; then :
- withval=$with_x_toolkit; case "${withval}" in
- y | ye | yes ) val=gtk ;;
- n | no ) val=no ;;
- l | lu | luc | luci | lucid ) val=lucid ;;
- a | at | ath | athe | athen | athena ) val=athena ;;
- m | mo | mot | moti | motif ) val=motif ;;
- g | gt | gtk ) val=gtk ;;
- gtk2 ) val=gtk2 ;;
- gtk3 ) val=gtk3 ;;
- * )
-as_fn_error $? "\`--with-x-toolkit=$withval' is invalid;
-this option's value should be \`yes', \`no', \`lucid', \`athena', \`motif', \`gtk',
-\`gtk2' or \`gtk3'. \`yes' and \`gtk' are synonyms.
-\`athena' and \`lucid' are synonyms." "$LINENO" 5
- ;;
- esac
- with_x_toolkit=$val
-
-fi
-
-
-
-# Check whether --with-wide-int was given.
-if test "${with_wide_int+set}" = set; then :
- withval=$with_wide_int;
-else
- with_wide_int=no
-fi
-
-if test "$with_wide_int" = yes; then
-
-$as_echo "#define WIDE_EMACS_INT 1" >>confdefs.h
-
-fi
-
-
-# Check whether --with-xpm was given.
-if test "${with_xpm+set}" = set; then :
- withval=$with_xpm;
-else
- with_xpm=$with_features
-fi
-
-
-# Check whether --with-jpeg was given.
-if test "${with_jpeg+set}" = set; then :
- withval=$with_jpeg;
-else
- with_jpeg=$with_features
-fi
-
-
-# Check whether --with-tiff was given.
-if test "${with_tiff+set}" = set; then :
- withval=$with_tiff;
-else
- with_tiff=$with_features
-fi
-
-
-# Check whether --with-gif was given.
-if test "${with_gif+set}" = set; then :
- withval=$with_gif;
-else
- with_gif=$with_features
-fi
-
-
-# Check whether --with-png was given.
-if test "${with_png+set}" = set; then :
- withval=$with_png;
-else
- with_png=$with_features
-fi
-
-
-# Check whether --with-rsvg was given.
-if test "${with_rsvg+set}" = set; then :
- withval=$with_rsvg;
-else
- with_rsvg=$with_features
-fi
-
-
-# Check whether --with-xml2 was given.
-if test "${with_xml2+set}" = set; then :
- withval=$with_xml2;
-else
- with_xml2=$with_features
-fi
-
-
-# Check whether --with-imagemagick was given.
-if test "${with_imagemagick+set}" = set; then :
- withval=$with_imagemagick;
-else
- with_imagemagick=$with_features
-fi
-
-
-
-# Check whether --with-xft was given.
-if test "${with_xft+set}" = set; then :
- withval=$with_xft;
-else
- with_xft=$with_features
-fi
-
-
-# Check whether --with-libotf was given.
-if test "${with_libotf+set}" = set; then :
- withval=$with_libotf;
-else
- with_libotf=$with_features
-fi
-
-
-# Check whether --with-m17n-flt was given.
-if test "${with_m17n_flt+set}" = set; then :
- withval=$with_m17n_flt;
-else
- with_m17n_flt=$with_features
-fi
-
-
-
-# Check whether --with-toolkit-scroll-bars was given.
-if test "${with_toolkit_scroll_bars+set}" = set; then :
- withval=$with_toolkit_scroll_bars;
-else
- with_toolkit_scroll_bars=$with_features
-fi
-
-
-# Check whether --with-xaw3d was given.
-if test "${with_xaw3d+set}" = set; then :
- withval=$with_xaw3d;
-else
- with_xaw3d=$with_features
-fi
-
-
-# Check whether --with-xim was given.
-if test "${with_xim+set}" = set; then :
- withval=$with_xim;
-else
- with_xim=$with_features
-fi
-
-
-# Check whether --with-ns was given.
-if test "${with_ns+set}" = set; then :
- withval=$with_ns;
-else
- with_ns=no
-fi
-
-
-# Check whether --with-w32 was given.
-if test "${with_w32+set}" = set; then :
- withval=$with_w32;
-else
- with_w32=no
-fi
-
-
-
-# Check whether --with-gpm was given.
-if test "${with_gpm+set}" = set; then :
- withval=$with_gpm;
-else
- with_gpm=$with_features
-fi
-
-
-# Check whether --with-dbus was given.
-if test "${with_dbus+set}" = set; then :
- withval=$with_dbus;
-else
- with_dbus=$with_features
-fi
-
-
-# Check whether --with-gconf was given.
-if test "${with_gconf+set}" = set; then :
- withval=$with_gconf;
-else
- with_gconf=$with_features
-fi
-
-
-# Check whether --with-gsettings was given.
-if test "${with_gsettings+set}" = set; then :
- withval=$with_gsettings;
-else
- with_gsettings=$with_features
-fi
-
-
-# Check whether --with-selinux was given.
-if test "${with_selinux+set}" = set; then :
- withval=$with_selinux;
-else
- with_selinux=$with_features
-fi
-
-
-# Check whether --with-gnutls was given.
-if test "${with_gnutls+set}" = set; then :
- withval=$with_gnutls;
-else
- with_gnutls=$with_features
-fi
-
-
-## For the times when you want to build Emacs but don't have
-## a suitable makeinfo, and can live without the manuals.
-
-# Check whether --with-makeinfo was given.
-if test "${with_makeinfo+set}" = set; then :
- withval=$with_makeinfo;
-else
- with_makeinfo=$with_features
-fi
-
-
-## Makefile.in needs the cache file name.
-
-
-## This is an option because I do not know if all info/man support
-## compressed files, nor how to test if they do so.
-
-# Check whether --with-compress-info was given.
-if test "${with_compress_info+set}" = set; then :
- withval=$with_compress_info;
-else
- with_compress_info=$with_features
-fi
-
-if test $with_compress_info = yes; then
- GZIP_INFO=yes
-else
- GZIP_INFO=
-fi
-
-
-
-# Check whether --with-pkg-config-prog was given.
-if test "${with_pkg_config_prog+set}" = set; then :
- withval=$with_pkg_config_prog;
-fi
-
-if test "X${with_pkg_config_prog}" != X; then
- if test "${with_pkg_config_prog}" != yes; then
- PKG_CONFIG="${with_pkg_config_prog}"
- fi
-fi
-
-CRT_DIR=
-
-# Check whether --with-crt-dir was given.
-if test "${with_crt_dir+set}" = set; then :
- withval=$with_crt_dir;
-fi
-
-CRT_DIR="${with_crt_dir}"
-
-
-# Check whether --with-gameuser was given.
-if test "${with_gameuser+set}" = set; then :
- withval=$with_gameuser;
-fi
-
-test "X${with_gameuser}" != X && test "${with_gameuser}" != yes \
- && gameuser="${with_gameuser}"
-test "X$gameuser" = X && gameuser=games
-
-
-# Check whether --with-gnustep-conf was given.
-if test "${with_gnustep_conf+set}" = set; then :
- withval=$with_gnustep_conf;
-fi
-
-test "X${with_gnustep_conf}" != X && test "${with_gnustep_conf}" != yes && \
- GNUSTEP_CONFIG_FILE="${with_gnustep_conf}"
-test "X$GNUSTEP_CONFIG_FILE" = "X" && \
- GNUSTEP_CONFIG_FILE=/etc/GNUstep/GNUstep.conf
-
-# Check whether --enable-ns-self-contained was given.
-if test "${enable_ns_self_contained+set}" = set; then :
- enableval=$enable_ns_self_contained; EN_NS_SELF_CONTAINED=$enableval
-else
- EN_NS_SELF_CONTAINED=yes
-fi
-
-
-# Check whether --enable-locallisppath was given.
-if test "${enable_locallisppath+set}" = set; then :
- enableval=$enable_locallisppath; if test "${enableval}" = "no"; then
- locallisppath=
-elif test "${enableval}" != "yes"; then
- locallisppath=${enableval}
-fi
-fi
-
-
-# Check whether --enable-checking was given.
-if test "${enable_checking+set}" = set; then :
- enableval=$enable_checking; ac_checking_flags="${enableval}"
-fi
-
-IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS="$IFS,"
-for check in $ac_checking_flags
-do
- case $check in
- # these set all the flags to specific states
- yes) ac_enable_checking=1 ;;
- no) ac_enable_checking= ;
- ac_gc_check_stringbytes= ;
- ac_gc_check_string_overrun= ;
- ac_gc_check_string_free_list= ;
- ac_xmalloc_overrun= ;
- ac_gc_check_cons_list= ;
- ac_glyphs_debug= ;;
- all) ac_enable_checking=1 ;
- ac_gc_check_stringbytes=1 ;
- ac_gc_check_string_overrun=1 ;
- ac_gc_check_string_free_list=1 ;
- ac_xmalloc_overrun=1 ;
- ac_gc_check_cons_list=1 ;
- ac_glyphs_debug=1 ;;
- # these enable particular checks
- stringbytes) ac_gc_check_stringbytes=1 ;;
- stringoverrun) ac_gc_check_string_overrun=1 ;;
- stringfreelist) ac_gc_check_string_free_list=1 ;;
- xmallocoverrun) ac_xmalloc_overrun=1 ;;
- conslist) ac_gc_check_cons_list=1 ;;
- glyphs) ac_glyphs_debug=1 ;;
- *) as_fn_error $? "unknown check category $check" "$LINENO" 5 ;;
- esac
-done
-IFS="$ac_save_IFS"
-
-if test x$ac_enable_checking != x ; then
-
-$as_echo "#define ENABLE_CHECKING 1" >>confdefs.h
-
-fi
-if test x$ac_gc_check_stringbytes != x ; then
-
-$as_echo "#define GC_CHECK_STRING_BYTES 1" >>confdefs.h
-
-fi
-if test x$ac_gc_check_string_overrun != x ; then
-
-$as_echo "#define GC_CHECK_STRING_OVERRUN 1" >>confdefs.h
-
-fi
-if test x$ac_gc_check_string_free_list != x ; then
-
-$as_echo "#define GC_CHECK_STRING_FREE_LIST 1" >>confdefs.h
-
-fi
-if test x$ac_xmalloc_overrun != x ; then
-
-$as_echo "#define XMALLOC_OVERRUN_CHECK 1" >>confdefs.h
-
-fi
-if test x$ac_gc_check_cons_list != x ; then
-
-$as_echo "#define GC_CHECK_CONS_LIST 1" >>confdefs.h
-
-fi
-if test x$ac_glyphs_debug != x ; then
-
-$as_echo "#define GLYPH_DEBUG 1" >>confdefs.h
-
-fi
-
-# Check whether --enable-check-lisp-object-type was given.
-if test "${enable_check_lisp_object_type+set}" = set; then :
- enableval=$enable_check_lisp_object_type; if test "${enableval}" != "no"; then
-
-$as_echo "#define CHECK_LISP_OBJECT_TYPE 1" >>confdefs.h
-
-fi
-fi
-
-
-
-# Check whether --enable-profiling was given.
-if test "${enable_profiling+set}" = set; then :
- enableval=$enable_profiling; ac_enable_profiling="${enableval}"
-fi
-
-if test x$ac_enable_profiling != x ; then
- PROFILING_CFLAGS="-DPROFILING=1 -pg"
-else
- PROFILING_CFLAGS=
-fi
-
-
-# Check whether --enable-autodepend was given.
-if test "${enable_autodepend+set}" = set; then :
- enableval=$enable_autodepend; ac_enable_autodepend="${enableval}"
-else
- ac_enable_autodepend=yes
-fi
-
-
-#### Make srcdir absolute, if it isn't already. It's important to
-#### avoid running the path through pwd unnecessarily, since pwd can
-#### give you automounter prefixes, which can go away. We do all this
-#### so Emacs can find its files when run uninstalled.
-## Make sure CDPATH doesn't affect cd (in case PWD is relative).
-unset CDPATH
-case "${srcdir}" in
- /* ) ;;
- . )
- ## We may be able to use the $PWD environment variable to make this
- ## absolute. But sometimes PWD is inaccurate.
- ## Note: we used to use ${PWD} at the end instead of `pwd`,
- ## but that tested only for a well-formed and valid PWD,
- ## it did not object when PWD was well-formed and valid but just wrong.
- if test ".${PWD}" != "." && test ".`(cd ${PWD} ; sh -c pwd)`" = ".`pwd`" ;
- then
- srcdir="$PWD"
- else
- srcdir="`(cd ${srcdir}; pwd)`"
- fi
- ;;
- * ) srcdir="`(cd ${srcdir}; pwd)`" ;;
-esac
-
-### Canonicalize the configuration name.
-
-# Make sure we can run config.sub.
-$SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 ||
- as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5
-$as_echo_n "checking build system type... " >&6; }
-if ${ac_cv_build+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_build_alias=$build_alias
-test "x$ac_build_alias" = x &&
- ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"`
-test "x$ac_build_alias" = x &&
- as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5
-ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` ||
- as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5
-$as_echo "$ac_cv_build" >&6; }
-case $ac_cv_build in
-*-*-*) ;;
-*) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;;
-esac
-build=$ac_cv_build
-ac_save_IFS=$IFS; IFS='-'
-set x $ac_cv_build
-shift
-build_cpu=$1
-build_vendor=$2
-shift; shift
-# Remember, the first character of IFS is used to create $*,
-# except with old shells:
-build_os=$*
-IFS=$ac_save_IFS
-case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5
-$as_echo_n "checking host system type... " >&6; }
-if ${ac_cv_host+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "x$host_alias" = x; then
- ac_cv_host=$ac_cv_build
-else
- ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` ||
- as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5
-$as_echo "$ac_cv_host" >&6; }
-case $ac_cv_host in
-*-*-*) ;;
-*) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;;
-esac
-host=$ac_cv_host
-ac_save_IFS=$IFS; IFS='-'
-set x $ac_cv_host
-shift
-host_cpu=$1
-host_vendor=$2
-shift; shift
-# Remember, the first character of IFS is used to create $*,
-# except with old shells:
-host_os=$*
-IFS=$ac_save_IFS
-case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac
-
-
-canonical=$host
-configuration=${host_alias-${build_alias-$host}}
-
-
-
-### If you add support for a new configuration, add code to this
-### switch statement to recognize your configuration name and select
-### the appropriate operating system file.
-
-### You would hope that you could choose an s/*.h
-### file based on the operating system portion. However, it turns out
-### that each s/*.h file is pretty manufacturer-specific.
-### So we basically have to have a special case for each
-### configuration name.
-###
-### As far as handling version numbers on operating systems is
-### concerned, make sure things will fail in a fixable way. If
-### /etc/MACHINES doesn't say anything about version numbers, be
-### prepared to handle anything reasonably. If version numbers
-### matter, be sure /etc/MACHINES says something about it.
-
-opsys='' unported=no
-case "${canonical}" in
-
- ## GNU/Linux and similar ports
- *-*-linux* )
- opsys=gnu-linux
- ;;
-
- ## FreeBSD ports
- *-*-freebsd* )
- opsys=freebsd
- ;;
-
- ## FreeBSD kernel + glibc based userland
- *-*-kfreebsd*gnu* )
- opsys=gnu-kfreebsd
- ;;
-
- ## NetBSD ports
- *-*-netbsd* )
- opsys=netbsd
- ;;
-
- ## OpenBSD ports
- *-*-openbsd* )
- opsys=openbsd
- ;;
-
- ## Apple Darwin / Mac OS X
- *-apple-darwin* )
- case "${canonical}" in
- i[3456]86-* ) ;;
- powerpc-* ) ;;
- x86_64-* ) ;;
- * ) unported=yes ;;
- esac
- opsys=darwin
- ## Use fink packages if available.
- ## FIXME find a better way to do this: http://debbugs.gnu.org/11507
-## if test -d /sw/include && test -d /sw/lib; then
-## GCC_TEST_OPTIONS="-I/sw/include -L/sw/lib"
-## NON_GCC_TEST_OPTIONS=${GCC_TEST_OPTIONS}
-## fi
- ;;
-
- ## HP 9000 series 700 and 800, running HP/UX
- hppa*-hp-hpux10.2* )
- opsys=hpux10-20
- ;;
- hppa*-hp-hpux1[1-9]* )
- opsys=hpux11
- CFLAGS="-D_INCLUDE__STDC_A1_SOURCE $CFLAGS"
- ;;
-
- ## IBM machines
- rs6000-ibm-aix4.[23]* )
- opsys=aix4-2
- ;;
- powerpc-ibm-aix4.[23]* )
- opsys=aix4-2
- ;;
- rs6000-ibm-aix[56]* )
- opsys=aix4-2
- ;;
- powerpc-ibm-aix[56]* )
- opsys=aix4-2
- ;;
-
- ## Silicon Graphics machines
- ## Iris 4D
- mips-sgi-irix6.5 )
- opsys=irix6-5
- # Without defining _LANGUAGE_C, things get masked out in the headers
- # so that, for instance, grepping for `free' in stdlib.h fails and
- # AC_HEADER_STD_C fails. (MIPSPro 7.2.1.2m compilers, Irix 6.5.3m).
- NON_GCC_TEST_OPTIONS="-D_LANGUAGE_C"
- ;;
-
- ## Suns
- *-sun-solaris* \
- | i[3456]86-*-solaris2* | i[3456]86-*-sunos5* \
- | x86_64-*-solaris2* | x86_64-*-sunos5*)
- case "${canonical}" in
- i[3456]86-*-* ) ;;
- amd64-*-*|x86_64-*-*) ;;
- sparc* ) ;;
- * ) unported=yes ;;
- esac
- case "${canonical}" in
- *-sunos5.6* | *-solaris2.6* )
- opsys=sol2-6
- RANLIB="ar -ts"
- ;;
- *-sunos5.[7-9]* | *-solaris2.[7-9]* )
- opsys=sol2-6
- emacs_check_sunpro_c=yes
- ;;
- *-sunos5* | *-solaris* )
- opsys=sol2-10
- emacs_check_sunpro_c=yes
- ;;
- esac
- ## Watch out for a compiler that we know will not work.
- case "${canonical}" in
- *-solaris* | *-sunos5* )
- if [ "x$CC" = x/usr/ucb/cc ]; then
- ## /usr/ucb/cc doesn't work;
- ## we should find some other compiler that does work.
- unset CC
- fi
- ;;
- *) ;;
- esac
- ;;
-
- ## Intel 386 machines where we don't care about the manufacturer.
- i[3456]86-*-* )
- case "${canonical}" in
- *-cygwin ) opsys=cygwin ;;
- *-darwin* ) opsys=darwin ;;
- *-sysv4.2uw* ) opsys=unixware ;;
- *-sysv5uw* ) opsys=unixware ;;
- *-sysv5OpenUNIX* ) opsys=unixware ;;
- ## Otherwise, we'll fall through to the generic opsys code at the bottom.
- esac
- ;;
-
- * )
- unported=yes
- ;;
-esac
-
-### If the code above didn't choose an operating system, just choose
-### an operating system based on the configuration name. You really
-### only want to use this when you have no idea what the right
-### operating system is; if you know what operating systems a machine
-### runs, it's cleaner to make it explicit in the case statement
-### above.
-if test x"${opsys}" = x; then
- case "${canonical}" in
- *-gnu* ) opsys=gnu ;;
- * )
- unported=yes
- ;;
- esac
-fi
-
-
-
-if test $unported = yes; then
- as_fn_error $? "Emacs hasn't been ported to \`${canonical}' systems.
-Check \`etc/MACHINES' for recognized configuration names." "$LINENO" 5
-fi
-
-
-#### Choose a compiler.
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args.
-set dummy ${ac_tool_prefix}gcc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_CC="${ac_tool_prefix}gcc"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_CC"; then
- ac_ct_CC=$CC
- # Extract the first word of "gcc", so it can be a program name with args.
-set dummy gcc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_CC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_CC"; then
- ac_cv_prog_ac_ct_CC="$ac_ct_CC" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_CC="gcc"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CC=$ac_cv_prog_ac_ct_CC
-if test -n "$ac_ct_CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-$as_echo "$ac_ct_CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_CC" = x; then
- CC=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- CC=$ac_ct_CC
- fi
-else
- CC="$ac_cv_prog_CC"
-fi
-
-if test -z "$CC"; then
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args.
-set dummy ${ac_tool_prefix}cc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_CC="${ac_tool_prefix}cc"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- fi
-fi
-if test -z "$CC"; then
- # Extract the first word of "cc", so it can be a program name with args.
-set dummy cc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # Let the user override the test.
-else
- ac_prog_rejected=no
-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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then
- ac_prog_rejected=yes
- continue
- fi
- ac_cv_prog_CC="cc"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-if test $ac_prog_rejected = yes; then
- # We found a bogon in the path, so make sure we never use it.
- set dummy $ac_cv_prog_CC
- shift
- if test $# != 0; then
- # We chose a different compiler from the bogus one.
- # However, it has the same basename, so the bogon will be chosen
- # first if we set CC to just the basename; use the full file name.
- shift
- ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@"
- fi
-fi
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$CC"; then
- if test -n "$ac_tool_prefix"; then
- for ac_prog in cl.exe
- do
- # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_CC="$ac_tool_prefix$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$CC" && break
- done
-fi
-if test -z "$CC"; then
- ac_ct_CC=$CC
- for ac_prog in cl.exe
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_CC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_CC"; then
- ac_cv_prog_ac_ct_CC="$ac_ct_CC" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_CC="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CC=$ac_cv_prog_ac_ct_CC
-if test -n "$ac_ct_CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-$as_echo "$ac_ct_CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$ac_ct_CC" && break
-done
-
- if test "x$ac_ct_CC" = x; then
- CC=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- CC=$ac_ct_CC
- fi
-fi
-
-fi
-
-
-test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "no acceptable C compiler found in \$PATH
-See \`config.log' for more details" "$LINENO" 5; }
-
-# Provide some information about the compiler.
-$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
-set X $ac_compile
-ac_compiler=$2
-for ac_option in --version -v -V -qversion; do
- { { ac_try="$ac_compiler $ac_option >&5"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compiler $ac_option >&5") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- sed '10a\
-... rest of stderr output deleted ...
- 10q' conftest.err >conftest.er1
- cat conftest.er1 >&5
- fi
- rm -f conftest.er1 conftest.err
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
-done
-
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-ac_clean_files_save=$ac_clean_files
-ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out"
-# Try to create an executable without -o first, disregard a.out.
-# It will help us diagnose broken compilers, and finding out an intuition
-# of exeext.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5
-$as_echo_n "checking whether the C compiler works... " >&6; }
-ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'`
-
-# The possible output files:
-ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*"
-
-ac_rmfiles=
-for ac_file in $ac_files
-do
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
- * ) ac_rmfiles="$ac_rmfiles $ac_file";;
- esac
-done
-rm -f $ac_rmfiles
-
-if { { ac_try="$ac_link_default"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link_default") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then :
- # Autoconf-2.13 could set the ac_cv_exeext variable to `no'.
-# So ignore a value of `no', otherwise this would lead to `EXEEXT = no'
-# in a Makefile. We should not override ac_cv_exeext if it was cached,
-# so that the user can short-circuit this test for compilers unknown to
-# Autoconf.
-for ac_file in $ac_files ''
-do
- test -f "$ac_file" || continue
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj )
- ;;
- [ab].out )
- # We found the default executable, but exeext='' is most
- # certainly right.
- break;;
- *.* )
- if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no;
- then :; else
- ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
- fi
- # We set ac_cv_exeext here because the later test for it is not
- # safe: cross compilers may not add the suffix if given an `-o'
- # argument, so we may need to know it at that point already.
- # Even if this section looks crufty: it has the advantage of
- # actually working.
- break;;
- * )
- break;;
- esac
-done
-test "$ac_cv_exeext" = no && ac_cv_exeext=
-
-else
- ac_file=''
-fi
-if test -z "$ac_file"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-$as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error 77 "C compiler cannot create executables
-See \`config.log' for more details" "$LINENO" 5; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5
-$as_echo_n "checking for C compiler default output file name... " >&6; }
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5
-$as_echo "$ac_file" >&6; }
-ac_exeext=$ac_cv_exeext
-
-rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out
-ac_clean_files=$ac_clean_files_save
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5
-$as_echo_n "checking for suffix of executables... " >&6; }
-if { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then :
- # If both `conftest.exe' and `conftest' are `present' (well, observable)
-# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will
-# work properly (i.e., refer to `conftest.exe'), while it won't with
-# `rm'.
-for ac_file in conftest.exe conftest conftest.*; do
- test -f "$ac_file" || continue
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
- *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
- break;;
- * ) break;;
- esac
-done
-else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot compute suffix of executables: cannot compile and link
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f conftest conftest$ac_cv_exeext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
-$as_echo "$ac_cv_exeext" >&6; }
-
-rm -f conftest.$ac_ext
-EXEEXT=$ac_cv_exeext
-ac_exeext=$EXEEXT
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdio.h>
-int
-main ()
-{
-FILE *f = fopen ("conftest.out", "w");
- return ferror (f) || fclose (f) != 0;
-
- ;
- return 0;
-}
-_ACEOF
-ac_clean_files="$ac_clean_files conftest.out"
-# Check that the compiler produces executables we can run. If not, either
-# the compiler is broken, or we cross compile.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5
-$as_echo_n "checking whether we are cross compiling... " >&6; }
-if test "$cross_compiling" != yes; then
- { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- if { ac_try='./conftest$ac_cv_exeext'
- { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; }; then
- cross_compiling=no
- else
- if test "$cross_compiling" = maybe; then
- cross_compiling=yes
- else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot run C compiled programs.
-If you meant to cross compile, use \`--host'.
-See \`config.log' for more details" "$LINENO" 5; }
- fi
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5
-$as_echo "$cross_compiling" >&6; }
-
-rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out
-ac_clean_files=$ac_clean_files_save
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5
-$as_echo_n "checking for suffix of object files... " >&6; }
-if ${ac_cv_objext+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.o conftest.obj
-if { { ac_try="$ac_compile"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compile") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then :
- for ac_file in conftest.o conftest.obj conftest.*; do
- test -f "$ac_file" || continue;
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;;
- *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'`
- break;;
- esac
-done
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot compute suffix of object files: cannot compile
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f conftest.$ac_cv_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5
-$as_echo "$ac_cv_objext" >&6; }
-OBJEXT=$ac_cv_objext
-ac_objext=$OBJEXT
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5
-$as_echo_n "checking whether we are using the GNU C compiler... " >&6; }
-if ${ac_cv_c_compiler_gnu+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-#ifndef __GNUC__
- choke me
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_compiler_gnu=yes
-else
- ac_compiler_gnu=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-ac_cv_c_compiler_gnu=$ac_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5
-$as_echo "$ac_cv_c_compiler_gnu" >&6; }
-if test $ac_compiler_gnu = yes; then
- GCC=yes
-else
- GCC=
-fi
-ac_test_CFLAGS=${CFLAGS+set}
-ac_save_CFLAGS=$CFLAGS
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5
-$as_echo_n "checking whether $CC accepts -g... " >&6; }
-if ${ac_cv_prog_cc_g+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_save_c_werror_flag=$ac_c_werror_flag
- ac_c_werror_flag=yes
- ac_cv_prog_cc_g=no
- CFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_g=yes
-else
- CFLAGS=""
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-else
- ac_c_werror_flag=$ac_save_c_werror_flag
- CFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_g=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ac_c_werror_flag=$ac_save_c_werror_flag
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5
-$as_echo "$ac_cv_prog_cc_g" >&6; }
-if test "$ac_test_CFLAGS" = set; then
- CFLAGS=$ac_save_CFLAGS
-elif test $ac_cv_prog_cc_g = yes; then
- if test "$GCC" = yes; then
- CFLAGS="-g -O2"
- else
- CFLAGS="-g"
- fi
-else
- if test "$GCC" = yes; then
- CFLAGS="-O2"
- else
- CFLAGS=
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
-$as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
-if ${ac_cv_prog_cc_c89+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_prog_cc_c89=no
-ac_save_CC=$CC
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdarg.h>
-#include <stdio.h>
-struct stat;
-/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */
-struct buf { int x; };
-FILE * (*rcsopen) (struct buf *, struct stat *, int);
-static char *e (p, i)
- char **p;
- int i;
-{
- return p[i];
-}
-static char *f (char * (*g) (char **, int), char **p, ...)
-{
- char *s;
- va_list v;
- va_start (v,p);
- s = g (p, va_arg (v,int));
- va_end (v);
- return s;
-}
-
-/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has
- function prototypes and stuff, but not '\xHH' hex character constants.
- These don't provoke an error unfortunately, instead are silently treated
- as 'x'. The following induces an error, until -std is added to get
- proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an
- array size at least. It's necessary to write '\x00'==0 to get something
- that's true only with -std. */
-int osf4_cc_array ['\x00' == 0 ? 1 : -1];
-
-/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters
- inside strings and character constants. */
-#define FOO(x) 'x'
-int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1];
-
-int test (int i, double x);
-struct s1 {int (*f) (int a);};
-struct s2 {int (*f) (double a);};
-int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
-int argc;
-char **argv;
-int
-main ()
-{
-return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1];
- ;
- return 0;
-}
-_ACEOF
-for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \
- -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
-do
- CC="$ac_save_CC $ac_arg"
- if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_c89=$ac_arg
-fi
-rm -f core conftest.err conftest.$ac_objext
- test "x$ac_cv_prog_cc_c89" != "xno" && break
-done
-rm -f conftest.$ac_ext
-CC=$ac_save_CC
-
-fi
-# AC_CACHE_VAL
-case "x$ac_cv_prog_cc_c89" in
- x)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
-$as_echo "none needed" >&6; } ;;
- xno)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
-$as_echo "unsupported" >&6; } ;;
- *)
- CC="$CC $ac_cv_prog_cc_c89"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5
-$as_echo "$ac_cv_prog_cc_c89" >&6; } ;;
-esac
-if test "x$ac_cv_prog_cc_c89" != xno; then :
-
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-DEPDIR="${am__leading_dot}deps"
-
-ac_config_commands="$ac_config_commands depfiles"
-
-
-am_make=${MAKE-make}
-cat > confinc << 'END'
-am__doit:
- @echo this is the am__doit target
-.PHONY: am__doit
-END
-# If we don't find an include directive, just comment out the code.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5
-$as_echo_n "checking for style of include used by $am_make... " >&6; }
-am__include="#"
-am__quote=
-_am_result=none
-# First try GNU make style include.
-echo "include confinc" > confmf
-# Ignore all kinds of additional output from `make'.
-case `$am_make -s -f confmf 2> /dev/null` in #(
-*the\ am__doit\ target*)
- am__include=include
- am__quote=
- _am_result=GNU
- ;;
-esac
-# Now try BSD make style include.
-if test "$am__include" = "#"; then
- echo '.include "confinc"' > confmf
- case `$am_make -s -f confmf 2> /dev/null` in #(
- *the\ am__doit\ target*)
- am__include=.include
- am__quote="\""
- _am_result=BSD
- ;;
- esac
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5
-$as_echo "$_am_result" >&6; }
-rm -f confinc confmf
-
-# Check whether --enable-dependency-tracking was given.
-if test "${enable_dependency_tracking+set}" = set; then :
- enableval=$enable_dependency_tracking;
-fi
-
-if test "x$enable_dependency_tracking" != xno; then
- am_depcomp="$ac_aux_dir/depcomp"
- AMDEPBACKSLASH='\'
- am__nodep='_no'
-fi
- if test "x$enable_dependency_tracking" != xno; then
- AMDEP_TRUE=
- AMDEP_FALSE='#'
-else
- AMDEP_TRUE='#'
- AMDEP_FALSE=
-fi
-
-
-
-depcc="$CC" am_compiler_list=
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5
-$as_echo_n "checking dependency style of $depcc... " >&6; }
-if ${am_cv_CC_dependencies_compiler_type+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
- # We make a subdir and do the tests there. Otherwise we can end up
- # making bogus files that we don't know about and never remove. For
- # instance it was reported that on HP-UX the gcc test will end up
- # making a dummy file named `D' -- because `-MD' means `put the output
- # in D'.
- rm -rf conftest.dir
- mkdir conftest.dir
- # Copy depcomp to subdir because otherwise we won't find it if we're
- # using a relative directory.
- cp "$am_depcomp" conftest.dir
- cd conftest.dir
- # We will build objects and dependencies in a subdirectory because
- # it helps to detect inapplicable dependency modes. For instance
- # both Tru64's cc and ICC support -MD to output dependencies as a
- # side effect of compilation, but ICC will put the dependencies in
- # the current directory while Tru64 will put them in the object
- # directory.
- mkdir sub
-
- am_cv_CC_dependencies_compiler_type=none
- if test "$am_compiler_list" = ""; then
- am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp`
- fi
- am__universal=false
- case " $depcc " in #(
- *\ -arch\ *\ -arch\ *) am__universal=true ;;
- esac
-
- for depmode in $am_compiler_list; do
- # Setup a source with many dependencies, because some compilers
- # like to wrap large dependency lists on column 80 (with \), and
- # we should not choose a depcomp mode which is confused by this.
- #
- # We need to recreate these files for each test, as the compiler may
- # overwrite some of them when testing with obscure command lines.
- # This happens at least with the AIX C compiler.
- : > sub/conftest.c
- for i in 1 2 3 4 5 6; do
- echo '#include "conftst'$i'.h"' >> sub/conftest.c
- # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with
- # Solaris 8's {/usr,}/bin/sh.
- touch sub/conftst$i.h
- done
- echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
-
- # We check with `-c' and `-o' for the sake of the "dashmstdout"
- # mode. It turns out that the SunPro C++ compiler does not properly
- # handle `-M -o', and we need to detect this. Also, some Intel
- # versions had trouble with output in subdirs
- am__obj=sub/conftest.${OBJEXT-o}
- am__minus_obj="-o $am__obj"
- case $depmode in
- gcc)
- # This depmode causes a compiler race in universal mode.
- test "$am__universal" = false || continue
- ;;
- nosideeffect)
- # after this tag, mechanisms are not by side-effect, so they'll
- # only be used when explicitly requested
- if test "x$enable_dependency_tracking" = xyes; then
- continue
- else
- break
- fi
- ;;
- msvc7 | msvc7msys | msvisualcpp | msvcmsys)
- # This compiler won't grok `-c -o', but also, the minuso test has
- # not run yet. These depmodes are late enough in the game, and
- # so weak that their functioning should not be impacted.
- am__obj=conftest.${OBJEXT-o}
- am__minus_obj=
- ;;
- none) break ;;
- esac
- if depmode=$depmode \
- source=sub/conftest.c object=$am__obj \
- depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
- $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
- >/dev/null 2>conftest.err &&
- grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
- grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
- grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
- ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
- # icc doesn't choke on unknown options, it will just issue warnings
- # or remarks (even with -Werror). So we grep stderr for any message
- # that says an option was ignored or not supported.
- # When given -MP, icc 7.0 and 7.1 complain thusly:
- # icc: Command line warning: ignoring option '-M'; no argument required
- # The diagnosis changed in icc 8.0:
- # icc: Command line remark: option '-MP' not supported
- if (grep 'ignoring option' conftest.err ||
- grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
- am_cv_CC_dependencies_compiler_type=$depmode
- break
- fi
- fi
- done
-
- cd ..
- rm -rf conftest.dir
-else
- am_cv_CC_dependencies_compiler_type=none
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5
-$as_echo "$am_cv_CC_dependencies_compiler_type" >&6; }
-CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type
-
- if
- test "x$enable_dependency_tracking" != xno \
- && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then
- am__fastdepCC_TRUE=
- am__fastdepCC_FALSE='#'
-else
- am__fastdepCC_TRUE='#'
- am__fastdepCC_FALSE=
-fi
-
-
-if test "x$CC" != xcc; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC and cc understand -c and -o together" >&5
-$as_echo_n "checking whether $CC and cc understand -c and -o together... " >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether cc understands -c and -o together" >&5
-$as_echo_n "checking whether cc understands -c and -o together... " >&6; }
-fi
-set dummy $CC; ac_cc=`$as_echo "$2" |
- sed 's/[^a-zA-Z0-9_]/_/g;s/^[0-9]/_/'`
-if eval \${ac_cv_prog_cc_${ac_cc}_c_o+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-# Make sure it works both with $CC and with simple cc.
-# We do the test twice because some compilers refuse to overwrite an
-# existing .o file with -o, though they will create one.
-ac_try='$CC -c conftest.$ac_ext -o conftest2.$ac_objext >&5'
-rm -f conftest2.*
-if { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } &&
- test -f conftest2.$ac_objext && { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; };
-then
- eval ac_cv_prog_cc_${ac_cc}_c_o=yes
- if test "x$CC" != xcc; then
- # Test first that cc exists at all.
- if { ac_try='cc -c conftest.$ac_ext >&5'
- { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; }; then
- ac_try='cc -c conftest.$ac_ext -o conftest2.$ac_objext >&5'
- rm -f conftest2.*
- if { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } &&
- test -f conftest2.$ac_objext && { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; };
- then
- # cc works too.
- :
- else
- # cc exists but doesn't like -o.
- eval ac_cv_prog_cc_${ac_cc}_c_o=no
- fi
- fi
- fi
-else
- eval ac_cv_prog_cc_${ac_cc}_c_o=no
-fi
-rm -f core conftest*
-
-fi
-if eval test \$ac_cv_prog_cc_${ac_cc}_c_o = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-$as_echo "#define NO_MINUS_C_MINUS_O 1" >>confdefs.h
-
-fi
-
-# FIXME: we rely on the cache variable name because
-# there is no other way.
-set dummy $CC
-am_cc=`echo $2 | sed 's/[^a-zA-Z0-9_]/_/g;s/^[0-9]/_/'`
-eval am_t=\$ac_cv_prog_cc_${am_cc}_c_o
-if test "$am_t" != yes; then
- # Losing compiler, so override with the script.
- # FIXME: It is wrong to rewrite CC.
- # But if we don't then we get into trouble of one sort or another.
- # A longer-term fix would be to have automake use am__CC in this case,
- # and then we could set am__CC="\$(top_srcdir)/compile \$(CC)"
- CC="$am_aux_dir/compile $CC"
-fi
-
-
-
-if test x$GCC = xyes; then
- test "x$GCC_TEST_OPTIONS" != x && CC="$CC $GCC_TEST_OPTIONS"
-else
- test "x$NON_GCC_TEST_OPTIONS" != x && CC="$CC $NON_GCC_TEST_OPTIONS"
-fi
-
-# Avoid gnulib's threadlib module, as we do threads our own way.
-
-
-# Initialize gnulib right after choosing the compiler.
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5
-$as_echo_n "checking how to run the C preprocessor... " >&6; }
-# On Suns, sometimes $CPP names a directory.
-if test -n "$CPP" && test -d "$CPP"; then
- CPP=
-fi
-if test -z "$CPP"; then
- if ${ac_cv_prog_CPP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # Double quotes because CPP needs to be expanded
- for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp"
- do
- ac_preproc_ok=false
-for ac_c_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
- break
-fi
-
- done
- ac_cv_prog_CPP=$CPP
-
-fi
- CPP=$ac_cv_prog_CPP
-else
- ac_cv_prog_CPP=$CPP
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5
-$as_echo "$CPP" >&6; }
-ac_preproc_ok=false
-for ac_c_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
-
-else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5
-$as_echo_n "checking for grep that handles long lines and -e... " >&6; }
-if ${ac_cv_path_GREP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$GREP"; then
- ac_path_GREP_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in grep ggrep; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext"
- as_fn_executable_p "$ac_path_GREP" || continue
-# Check for GNU ac_path_GREP and select it if it is found.
- # Check for GNU $ac_path_GREP
-case `"$ac_path_GREP" --version 2>&1` in
-*GNU*)
- ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo 'GREP' >> "conftest.nl"
- "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_GREP_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_GREP="$ac_path_GREP"
- ac_path_GREP_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_GREP_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_GREP"; then
- as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
- fi
-else
- ac_cv_path_GREP=$GREP
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5
-$as_echo "$ac_cv_path_GREP" >&6; }
- GREP="$ac_cv_path_GREP"
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5
-$as_echo_n "checking for egrep... " >&6; }
-if ${ac_cv_path_EGREP+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if echo a | $GREP -E '(a|b)' >/dev/null 2>&1
- then ac_cv_path_EGREP="$GREP -E"
- else
- if test -z "$EGREP"; then
- ac_path_EGREP_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in egrep; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext"
- as_fn_executable_p "$ac_path_EGREP" || continue
-# Check for GNU ac_path_EGREP and select it if it is found.
- # Check for GNU $ac_path_EGREP
-case `"$ac_path_EGREP" --version 2>&1` in
-*GNU*)
- ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo 'EGREP' >> "conftest.nl"
- "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_EGREP_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_EGREP="$ac_path_EGREP"
- ac_path_EGREP_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_EGREP_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_EGREP"; then
- as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
- fi
-else
- ac_cv_path_EGREP=$EGREP
-fi
-
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5
-$as_echo "$ac_cv_path_EGREP" >&6; }
- EGREP="$ac_cv_path_EGREP"
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Minix Amsterdam compiler" >&5
-$as_echo_n "checking for Minix Amsterdam compiler... " >&6; }
-if ${gl_cv_c_amsterdam_compiler+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#ifdef __ACK__
-Amsterdam
-#endif
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "Amsterdam" >/dev/null 2>&1; then :
- gl_cv_c_amsterdam_compiler=yes
-else
- gl_cv_c_amsterdam_compiler=no
-fi
-rm -f conftest*
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_c_amsterdam_compiler" >&5
-$as_echo "$gl_cv_c_amsterdam_compiler" >&6; }
- if test -z "$AR"; then
- if test $gl_cv_c_amsterdam_compiler = yes; then
- AR='cc -c.a'
- if test -z "$ARFLAGS"; then
- ARFLAGS='-o'
- fi
- else
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}ar", so it can be a program name with args.
-set dummy ${ac_tool_prefix}ar; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_AR+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$AR"; then
- ac_cv_prog_AR="$AR" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_AR="${ac_tool_prefix}ar"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-AR=$ac_cv_prog_AR
-if test -n "$AR"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5
-$as_echo "$AR" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_AR"; then
- ac_ct_AR=$AR
- # Extract the first word of "ar", so it can be a program name with args.
-set dummy ar; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_AR+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_AR"; then
- ac_cv_prog_ac_ct_AR="$ac_ct_AR" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_AR="ar"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_AR=$ac_cv_prog_ac_ct_AR
-if test -n "$ac_ct_AR"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5
-$as_echo "$ac_ct_AR" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_AR" = x; then
- AR="ar"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- AR=$ac_ct_AR
- fi
-else
- AR="$ac_cv_prog_AR"
-fi
-
- if test -z "$ARFLAGS"; then
- ARFLAGS='cru'
- fi
- fi
- else
- if test -z "$ARFLAGS"; then
- ARFLAGS='cru'
- fi
- fi
-
-
- if test -z "$RANLIB"; then
- if test $gl_cv_c_amsterdam_compiler = yes; then
- RANLIB=':'
- else
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args.
-set dummy ${ac_tool_prefix}ranlib; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_RANLIB+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$RANLIB"; then
- ac_cv_prog_RANLIB="$RANLIB" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-RANLIB=$ac_cv_prog_RANLIB
-if test -n "$RANLIB"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5
-$as_echo "$RANLIB" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_RANLIB"; then
- ac_ct_RANLIB=$RANLIB
- # Extract the first word of "ranlib", so it can be a program name with args.
-set dummy ranlib; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_RANLIB+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_RANLIB"; then
- ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_ac_ct_RANLIB="ranlib"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB
-if test -n "$ac_ct_RANLIB"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5
-$as_echo "$ac_ct_RANLIB" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_RANLIB" = x; then
- RANLIB=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- RANLIB=$ac_ct_RANLIB
- fi
-else
- RANLIB="$ac_cv_prog_RANLIB"
-fi
-
- fi
- fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5
-$as_echo_n "checking for ANSI C header files... " >&6; }
-if ${ac_cv_header_stdc+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-#include <float.h>
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_header_stdc=yes
-else
- ac_cv_header_stdc=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-if test $ac_cv_header_stdc = yes; then
- # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <string.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "memchr" >/dev/null 2>&1; then :
-
-else
- ac_cv_header_stdc=no
-fi
-rm -f conftest*
-
-fi
-
-if test $ac_cv_header_stdc = yes; then
- # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdlib.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "free" >/dev/null 2>&1; then :
-
-else
- ac_cv_header_stdc=no
-fi
-rm -f conftest*
-
-fi
-
-if test $ac_cv_header_stdc = yes; then
- # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
- if test "$cross_compiling" = yes; then :
- :
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ctype.h>
-#include <stdlib.h>
-#if ((' ' & 0x0FF) == 0x020)
-# define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
-# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
-#else
-# define ISLOWER(c) \
- (('a' <= (c) && (c) <= 'i') \
- || ('j' <= (c) && (c) <= 'r') \
- || ('s' <= (c) && (c) <= 'z'))
-# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c))
-#endif
-
-#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
-int
-main ()
-{
- int i;
- for (i = 0; i < 256; i++)
- if (XOR (islower (i), ISLOWER (i))
- || toupper (i) != TOUPPER (i))
- return 2;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
-
-else
- ac_cv_header_stdc=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5
-$as_echo "$ac_cv_header_stdc" >&6; }
-if test $ac_cv_header_stdc = yes; then
-
-$as_echo "#define STDC_HEADERS 1" >>confdefs.h
-
-fi
-
-# On IRIX 5.3, sys/types and inttypes.h are conflicting.
-for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \
- inttypes.h stdint.h unistd.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
-"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-
-done
-
-
-
-
-
- ac_fn_c_check_header_mongrel "$LINENO" "minix/config.h" "ac_cv_header_minix_config_h" "$ac_includes_default"
-if test "x$ac_cv_header_minix_config_h" = xyes; then :
- MINIX=yes
-else
- MINIX=
-fi
-
-
- if test "$MINIX" = yes; then
-
-$as_echo "#define _POSIX_SOURCE 1" >>confdefs.h
-
-
-$as_echo "#define _POSIX_1_SOURCE 2" >>confdefs.h
-
-
-$as_echo "#define _MINIX 1" >>confdefs.h
-
- fi
-
- case "$host_os" in
- hpux*)
-
-$as_echo "#define _XOPEN_SOURCE 500" >>confdefs.h
-
- ;;
- esac
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether it is safe to define __EXTENSIONS__" >&5
-$as_echo_n "checking whether it is safe to define __EXTENSIONS__... " >&6; }
-if ${ac_cv_safe_to_define___extensions__+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-# define __EXTENSIONS__ 1
- $ac_includes_default
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_safe_to_define___extensions__=yes
-else
- ac_cv_safe_to_define___extensions__=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_safe_to_define___extensions__" >&5
-$as_echo "$ac_cv_safe_to_define___extensions__" >&6; }
- test $ac_cv_safe_to_define___extensions__ = yes &&
- $as_echo "#define __EXTENSIONS__ 1" >>confdefs.h
-
- $as_echo "#define _ALL_SOURCE 1" >>confdefs.h
-
- $as_echo "#define _DARWIN_C_SOURCE 1" >>confdefs.h
-
- $as_echo "#define _GNU_SOURCE 1" >>confdefs.h
-
- $as_echo "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h
-
- $as_echo "#define _TANDEM_SOURCE 1" >>confdefs.h
-
-
-
-
-
-
-
-
-# Check whether --enable-largefile was given.
-if test "${enable_largefile+set}" = set; then :
- enableval=$enable_largefile;
-fi
-
-if test "$enable_largefile" != no; then
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for special C compiler options needed for large files" >&5
-$as_echo_n "checking for special C compiler options needed for large files... " >&6; }
-if ${ac_cv_sys_largefile_CC+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_sys_largefile_CC=no
- if test "$GCC" != yes; then
- ac_save_CC=$CC
- while :; do
- # IRIX 6.2 and later do not support large files by default,
- # so use the C compiler's -n32 option if that helps.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- /* Check that off_t can represent 2**63 - 1 correctly.
- We can't simply define LARGE_OFF_T to be 9223372036854775807,
- since some C++ compilers masquerading as C compilers
- incorrectly reject 9223372036854775807. */
-#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
- int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
- && LARGE_OFF_T % 2147483647 == 1)
- ? 1 : -1];
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
- if ac_fn_c_try_compile "$LINENO"; then :
- break
-fi
-rm -f core conftest.err conftest.$ac_objext
- CC="$CC -n32"
- if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_sys_largefile_CC=' -n32'; break
-fi
-rm -f core conftest.err conftest.$ac_objext
- break
- done
- CC=$ac_save_CC
- rm -f conftest.$ac_ext
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_largefile_CC" >&5
-$as_echo "$ac_cv_sys_largefile_CC" >&6; }
- if test "$ac_cv_sys_largefile_CC" != no; then
- CC=$CC$ac_cv_sys_largefile_CC
- fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for _FILE_OFFSET_BITS value needed for large files" >&5
-$as_echo_n "checking for _FILE_OFFSET_BITS value needed for large files... " >&6; }
-if ${ac_cv_sys_file_offset_bits+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- while :; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- /* Check that off_t can represent 2**63 - 1 correctly.
- We can't simply define LARGE_OFF_T to be 9223372036854775807,
- since some C++ compilers masquerading as C compilers
- incorrectly reject 9223372036854775807. */
-#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
- int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
- && LARGE_OFF_T % 2147483647 == 1)
- ? 1 : -1];
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_sys_file_offset_bits=no; break
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#define _FILE_OFFSET_BITS 64
-#include <sys/types.h>
- /* Check that off_t can represent 2**63 - 1 correctly.
- We can't simply define LARGE_OFF_T to be 9223372036854775807,
- since some C++ compilers masquerading as C compilers
- incorrectly reject 9223372036854775807. */
-#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
- int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
- && LARGE_OFF_T % 2147483647 == 1)
- ? 1 : -1];
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_sys_file_offset_bits=64; break
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ac_cv_sys_file_offset_bits=unknown
- break
-done
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_file_offset_bits" >&5
-$as_echo "$ac_cv_sys_file_offset_bits" >&6; }
-case $ac_cv_sys_file_offset_bits in #(
- no | unknown) ;;
- *)
-cat >>confdefs.h <<_ACEOF
-#define _FILE_OFFSET_BITS $ac_cv_sys_file_offset_bits
-_ACEOF
-;;
-esac
-rm -rf conftest*
- if test $ac_cv_sys_file_offset_bits = unknown; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for _LARGE_FILES value needed for large files" >&5
-$as_echo_n "checking for _LARGE_FILES value needed for large files... " >&6; }
-if ${ac_cv_sys_large_files+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- while :; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- /* Check that off_t can represent 2**63 - 1 correctly.
- We can't simply define LARGE_OFF_T to be 9223372036854775807,
- since some C++ compilers masquerading as C compilers
- incorrectly reject 9223372036854775807. */
-#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
- int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
- && LARGE_OFF_T % 2147483647 == 1)
- ? 1 : -1];
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_sys_large_files=no; break
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#define _LARGE_FILES 1
-#include <sys/types.h>
- /* Check that off_t can represent 2**63 - 1 correctly.
- We can't simply define LARGE_OFF_T to be 9223372036854775807,
- since some C++ compilers masquerading as C compilers
- incorrectly reject 9223372036854775807. */
-#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62))
- int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721
- && LARGE_OFF_T % 2147483647 == 1)
- ? 1 : -1];
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_sys_large_files=1; break
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ac_cv_sys_large_files=unknown
- break
-done
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_large_files" >&5
-$as_echo "$ac_cv_sys_large_files" >&6; }
-case $ac_cv_sys_large_files in #(
- no | unknown) ;;
- *)
-cat >>confdefs.h <<_ACEOF
-#define _LARGE_FILES $ac_cv_sys_large_files
-_ACEOF
-;;
-esac
-rm -rf conftest*
- fi
-
-
-fi
-
- case $ac_cv_prog_cc_stdc in #(
- no) :
- ac_cv_prog_cc_c99=no; ac_cv_prog_cc_c89=no ;; #(
- *) :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C99" >&5
-$as_echo_n "checking for $CC option to accept ISO C99... " >&6; }
-if ${ac_cv_prog_cc_c99+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_prog_cc_c99=no
-ac_save_CC=$CC
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdarg.h>
-#include <stdbool.h>
-#include <stdlib.h>
-#include <wchar.h>
-#include <stdio.h>
-
-// Check varargs macros. These examples are taken from C99 6.10.3.5.
-#define debug(...) fprintf (stderr, __VA_ARGS__)
-#define showlist(...) puts (#__VA_ARGS__)
-#define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__))
-static void
-test_varargs_macros (void)
-{
- int x = 1234;
- int y = 5678;
- debug ("Flag");
- debug ("X = %d\n", x);
- showlist (The first, second, and third items.);
- report (x>y, "x is %d but y is %d", x, y);
-}
-
-// Check long long types.
-#define BIG64 18446744073709551615ull
-#define BIG32 4294967295ul
-#define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0)
-#if !BIG_OK
- your preprocessor is broken;
-#endif
-#if BIG_OK
-#else
- your preprocessor is broken;
-#endif
-static long long int bignum = -9223372036854775807LL;
-static unsigned long long int ubignum = BIG64;
-
-struct incomplete_array
-{
- int datasize;
- double data[];
-};
-
-struct named_init {
- int number;
- const wchar_t *name;
- double average;
-};
-
-typedef const char *ccp;
-
-static inline int
-test_restrict (ccp restrict text)
-{
- // See if C++-style comments work.
- // Iterate through items via the restricted pointer.
- // Also check for declarations in for loops.
- for (unsigned int i = 0; *(text+i) != '\0'; ++i)
- continue;
- return 0;
-}
-
-// Check varargs and va_copy.
-static void
-test_varargs (const char *format, ...)
-{
- va_list args;
- va_start (args, format);
- va_list args_copy;
- va_copy (args_copy, args);
-
- const char *str;
- int number;
- float fnumber;
-
- while (*format)
- {
- switch (*format++)
- {
- case 's': // string
- str = va_arg (args_copy, const char *);
- break;
- case 'd': // int
- number = va_arg (args_copy, int);
- break;
- case 'f': // float
- fnumber = va_arg (args_copy, double);
- break;
- default:
- break;
- }
- }
- va_end (args_copy);
- va_end (args);
-}
-
-int
-main ()
-{
-
- // Check bool.
- _Bool success = false;
-
- // Check restrict.
- if (test_restrict ("String literal") == 0)
- success = true;
- char *restrict newvar = "Another string";
-
- // Check varargs.
- test_varargs ("s, d' f .", "string", 65, 34.234);
- test_varargs_macros ();
-
- // Check flexible array members.
- struct incomplete_array *ia =
- malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10));
- ia->datasize = 10;
- for (int i = 0; i < ia->datasize; ++i)
- ia->data[i] = i * 1.234;
-
- // Check named initializers.
- struct named_init ni = {
- .number = 34,
- .name = L"Test wide string",
- .average = 543.34343,
- };
-
- ni.number = 58;
-
- int dynamic_array[ni.number];
- dynamic_array[ni.number - 1] = 543;
-
- // work around unused variable warnings
- return (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == 'x'
- || dynamic_array[ni.number - 1] != 543);
-
- ;
- return 0;
-}
-_ACEOF
-for ac_arg in '' -std=gnu99 -std=c99 -c99 -AC99 -D_STDC_C99= -qlanglvl=extc99
-do
- CC="$ac_save_CC $ac_arg"
- if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_c99=$ac_arg
-fi
-rm -f core conftest.err conftest.$ac_objext
- test "x$ac_cv_prog_cc_c99" != "xno" && break
-done
-rm -f conftest.$ac_ext
-CC=$ac_save_CC
-
-fi
-# AC_CACHE_VAL
-case "x$ac_cv_prog_cc_c99" in
- x)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
-$as_echo "none needed" >&6; } ;;
- xno)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
-$as_echo "unsupported" >&6; } ;;
- *)
- CC="$CC $ac_cv_prog_cc_c99"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99" >&5
-$as_echo "$ac_cv_prog_cc_c99" >&6; } ;;
-esac
-if test "x$ac_cv_prog_cc_c99" != xno; then :
- ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
-$as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
-if ${ac_cv_prog_cc_c89+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_prog_cc_c89=no
-ac_save_CC=$CC
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdarg.h>
-#include <stdio.h>
-struct stat;
-/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */
-struct buf { int x; };
-FILE * (*rcsopen) (struct buf *, struct stat *, int);
-static char *e (p, i)
- char **p;
- int i;
-{
- return p[i];
-}
-static char *f (char * (*g) (char **, int), char **p, ...)
-{
- char *s;
- va_list v;
- va_start (v,p);
- s = g (p, va_arg (v,int));
- va_end (v);
- return s;
-}
-
-/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has
- function prototypes and stuff, but not '\xHH' hex character constants.
- These don't provoke an error unfortunately, instead are silently treated
- as 'x'. The following induces an error, until -std is added to get
- proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an
- array size at least. It's necessary to write '\x00'==0 to get something
- that's true only with -std. */
-int osf4_cc_array ['\x00' == 0 ? 1 : -1];
-
-/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters
- inside strings and character constants. */
-#define FOO(x) 'x'
-int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1];
-
-int test (int i, double x);
-struct s1 {int (*f) (int a);};
-struct s2 {int (*f) (double a);};
-int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
-int argc;
-char **argv;
-int
-main ()
-{
-return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1];
- ;
- return 0;
-}
-_ACEOF
-for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \
- -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
-do
- CC="$ac_save_CC $ac_arg"
- if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_c89=$ac_arg
-fi
-rm -f core conftest.err conftest.$ac_objext
- test "x$ac_cv_prog_cc_c89" != "xno" && break
-done
-rm -f conftest.$ac_ext
-CC=$ac_save_CC
-
-fi
-# AC_CACHE_VAL
-case "x$ac_cv_prog_cc_c89" in
- x)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
-$as_echo "none needed" >&6; } ;;
- xno)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
-$as_echo "unsupported" >&6; } ;;
- *)
- CC="$CC $ac_cv_prog_cc_c89"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5
-$as_echo "$ac_cv_prog_cc_c89" >&6; } ;;
-esac
-if test "x$ac_cv_prog_cc_c89" != xno; then :
- ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89
-else
- ac_cv_prog_cc_stdc=no
-fi
-
-fi
- ;;
-esac
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO Standard C" >&5
-$as_echo_n "checking for $CC option to accept ISO Standard C... " >&6; }
- if ${ac_cv_prog_cc_stdc+:} false; then :
- $as_echo_n "(cached) " >&6
-fi
-
- case $ac_cv_prog_cc_stdc in #(
- no) :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
-$as_echo "unsupported" >&6; } ;; #(
- '') :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
-$as_echo "none needed" >&6; } ;; #(
- *) :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_stdc" >&5
-$as_echo "$ac_cv_prog_cc_stdc" >&6; } ;;
-esac
-
-
-
- # Code from module alloca-opt:
- # Code from module allocator:
- # Code from module c-ctype:
- # Code from module c-strcase:
- # Code from module careadlinkat:
- # Code from module clock-time:
- # Code from module crypto/md5:
- # Code from module crypto/sha1:
- # Code from module crypto/sha256:
- # Code from module crypto/sha512:
- # Code from module dosname:
- # Code from module dtoastr:
- # Code from module dtotimespec:
- # Code from module dup2:
- # Code from module environ:
- # Code from module execinfo:
- # Code from module extensions:
-
- # Code from module extern-inline:
- # Code from module filemode:
- # Code from module getloadavg:
- # Code from module getopt-gnu:
- # Code from module getopt-posix:
- # Code from module gettext-h:
- # Code from module gettime:
- # Code from module gettimeofday:
- # Code from module ignore-value:
- # Code from module include_next:
- # Code from module intprops:
- # Code from module inttypes-incomplete:
- # Code from module largefile:
-
- # Code from module lstat:
- # Code from module manywarnings:
- # Code from module mktime:
- # Code from module multiarch:
- # Code from module nocrash:
- # Code from module pathmax:
- # Code from module pselect:
- # Code from module pthread_sigmask:
- # Code from module readlink:
- # Code from module signal-h:
- # Code from module snippet/_Noreturn:
- # Code from module snippet/arg-nonnull:
- # Code from module snippet/c++defs:
- # Code from module snippet/warn-on-use:
- # Code from module socklen:
- # Code from module ssize_t:
- # Code from module stat:
- # Code from module stat-time:
- # Code from module stdalign:
- # Code from module stdarg:
-
-
-
- # Code from module stdbool:
- # Code from module stddef:
- # Code from module stdint:
- # Code from module stdio:
- # Code from module stdlib:
- # Code from module strftime:
- # Code from module strtoimax:
- # Code from module strtoll:
- # Code from module strtoull:
- # Code from module strtoumax:
- # Code from module symlink:
- # Code from module sys_select:
- # Code from module sys_stat:
- # Code from module sys_time:
- # Code from module time:
- # Code from module time_r:
- # Code from module timer-time:
- # Code from module timespec:
- # Code from module timespec-add:
- # Code from module timespec-sub:
- # Code from module u64:
- # Code from module unistd:
- # Code from module utimens:
- # Code from module verify:
- # Code from module warnings:
-
-
-# It's helpful to have C macros available to GDB, so prefer -g3 to -g
-# if -g3 works and the user does not specify CFLAGS.
-# This test must follow gl_EARLY; otherwise AC_LINK_IFELSE complains.
-if test "$ac_test_CFLAGS" != set; then
- case $CFLAGS in
- '-g')
- emacs_g3_CFLAGS='-g3';;
- '-g -O2')
- emacs_g3_CFLAGS='-g3 -O2';;
- *)
- emacs_g3_CFLAGS='';;
- esac
- if test -n "$emacs_g3_CFLAGS"; then
- emacs_save_CFLAGS=$CFLAGS
- CFLAGS=$emacs_g3_CFLAGS
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts $emacs_g3_CFLAGS" >&5
-$as_echo_n "checking whether $CC accepts $emacs_g3_CFLAGS... " >&6; }
-if ${emacs_cv_prog_cc_g3+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_prog_cc_g3=yes
-else
- emacs_cv_prog_cc_g3=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_prog_cc_g3" >&5
-$as_echo "$emacs_cv_prog_cc_g3" >&6; }
- if test $emacs_cv_prog_cc_g3 = yes; then
- CFLAGS=$emacs_g3_CFLAGS
- else
- CFLAGS=$emacs_save_CFLAGS
- fi
- fi
-fi
-
-# Check whether --enable-gcc-warnings was given.
-if test "${enable_gcc_warnings+set}" = set; then :
- enableval=$enable_gcc_warnings; case $enableval in
- yes|no) ;;
- *) as_fn_error $? "bad value $enableval for gcc-warnings option" "$LINENO" 5 ;;
- esac
- gl_gcc_warnings=$enableval
-else
- gl_gcc_warnings=no
-
-fi
-
-
-# Check whether --enable-link-time-optimization was given.
-if test "${enable_link_time_optimization+set}" = set; then :
- enableval=$enable_link_time_optimization; if test "${enableval}" != "no"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether link-time optimization is supported" >&5
-$as_echo_n "checking whether link-time optimization is supported... " >&6; }
- ac_lto_supported=no
- if test x$GCC = xyes; then
- CPUS=`getconf _NPROCESSORS_ONLN 2>/dev/null`
- if test x$CPUS != x; then
- LTO="-flto=$CPUS"
- else
- LTO="-flto"
- fi
- old_CFLAGS=$CFLAGS
- CFLAGS="$CFLAGS $LTO"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_lto_supported=yes
-else
- ac_lto_supported=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$old_CFLAGS"
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_lto_supported" >&5
-$as_echo "$ac_lto_supported" >&6; }
- if test "$ac_lto_supported" = "yes"; then
- CFLAGS="$CFLAGS $LTO"
- fi
-fi
-fi
-
-
-# gl_GCC_VERSION_IFELSE([major], [minor], [run-if-found], [run-if-not-found])
-# ------------------------------------------------
-# If $CPP is gcc-MAJOR.MINOR or newer, then run RUN-IF-FOUND.
-# Otherwise, run RUN-IF-NOT-FOUND.
-
-
-# When compiling with GCC, prefer -isystem to -I when including system
-# include files, to avoid generating useless diagnostics for the files.
-if test "$gl_gcc_warnings" != yes; then
- isystem='-I'
-else
- isystem='-isystem '
-
- # This, $nw, is the list of warnings we disable.
- nw=
-
- case $with_x_toolkit in
- lucid | athena | motif)
- # Old toolkits mishandle 'const'.
- nw="$nw -Wwrite-strings"
- ;;
- *)
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -Werror" >&5
-$as_echo_n "checking whether C compiler handles -Werror... " >&6; }
-if ${gl_cv_warn_c__Werror+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -Werror"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__Werror=yes
-else
- gl_cv_warn_c__Werror=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__Werror" >&5
-$as_echo "$gl_cv_warn_c__Werror" >&6; }
-if test "x$gl_cv_warn_c__Werror" = xyes; then :
- as_fn_append WERROR_CFLAGS " -Werror"
-fi
-
-
- ;;
- esac
-
-
- nw="$nw -Waggregate-return" # anachronistic
- nw="$nw -Wlong-long" # C90 is anachronistic
- nw="$nw -Wc++-compat" # We don't care about C++ compilers
- nw="$nw -Wundef" # Warns on '#if GNULIB_FOO' etc in gnulib
- nw="$nw -Wtraditional" # Warns on #elif which we use often
- nw="$nw -Wcast-qual" # Too many warnings for now
- nw="$nw -Wconversion" # Too many warnings for now
- nw="$nw -Wsystem-headers" # Don't let system headers trigger warnings
- nw="$nw -Wsign-conversion" # Too many warnings for now
- nw="$nw -Woverlength-strings" # Not a problem these days
- nw="$nw -Wtraditional-conversion" # Too many warnings for now
- nw="$nw -Wunreachable-code" # so buggy that it's now silently ignored
- nw="$nw -Wpadded" # Our structs are not padded
- nw="$nw -Wredundant-decls" # we regularly (re)declare functions
- nw="$nw -Wlogical-op" # any use of fwrite provokes this
- nw="$nw -Wformat-nonliteral" # we do this a lot
- nw="$nw -Wvla" # warnings in gettext.h
- nw="$nw -Wnested-externs" # use of XARGMATCH/verify_function__
- nw="$nw -Wswitch-enum" # Too many warnings for now
- nw="$nw -Wswitch-default" # Too many warnings for now
- nw="$nw -Wfloat-equal" # warns about high-quality code
- nw="$nw -Winline" # OK to ignore 'inline'
- nw="$nw -Wjump-misses-init" # We sometimes safely jump over init.
- nw="$nw -Wsync-nand" # irrelevant here, and provokes ObjC warning
- nw="$nw -Wunsafe-loop-optimizations" # OK to suppress unsafe optimizations
-
- # Emacs doesn't care about shadowing; see
- # <http://lists.gnu.org/archive/html/emacs-diffs/2011-11/msg00265.html>.
- nw="$nw -Wshadow"
-
- # The following lines should be removable at some point.
- nw="$nw -Wstack-protector"
- nw="$nw -Wstrict-overflow"
- nw="$nw -Wsuggest-attribute=pure"
-
-
-
- if test -n "$GCC"; then
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -Wno-missing-field-initializers is supported" >&5
-$as_echo_n "checking whether -Wno-missing-field-initializers is supported... " >&6; }
- if ${gl_cv_cc_nomfi_supported+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_CFLAGS="$CFLAGS"
- CFLAGS="$CFLAGS -W -Werror -Wno-missing-field-initializers"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_cc_nomfi_supported=yes
-else
- gl_cv_cc_nomfi_supported=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_CFLAGS"
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_cc_nomfi_supported" >&5
-$as_echo "$gl_cv_cc_nomfi_supported" >&6; }
-
- if test "$gl_cv_cc_nomfi_supported" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -Wno-missing-field-initializers is needed" >&5
-$as_echo_n "checking whether -Wno-missing-field-initializers is needed... " >&6; }
- if ${gl_cv_cc_nomfi_needed+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_CFLAGS="$CFLAGS"
- CFLAGS="$CFLAGS -W -Werror"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-void f (void)
- {
- typedef struct { int a; int b; } s_t;
- s_t s1 = { 0, };
- }
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_cc_nomfi_needed=no
-else
- gl_cv_cc_nomfi_needed=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_CFLAGS"
-
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_cc_nomfi_needed" >&5
-$as_echo "$gl_cv_cc_nomfi_needed" >&6; }
- fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -Wuninitialized is supported" >&5
-$as_echo_n "checking whether -Wuninitialized is supported... " >&6; }
- if ${gl_cv_cc_uninitialized_supported+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_CFLAGS="$CFLAGS"
- CFLAGS="$CFLAGS -Werror -Wuninitialized"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_cc_uninitialized_supported=yes
-else
- gl_cv_cc_uninitialized_supported=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_CFLAGS"
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_cc_uninitialized_supported" >&5
-$as_echo "$gl_cv_cc_uninitialized_supported" >&6; }
-
- fi
-
- # List all gcc warning categories.
- gl_manywarn_set=
- for gl_manywarn_item in \
- -W \
- -Wabi \
- -Waddress \
- -Wall \
- -Warray-bounds \
- -Wattributes \
- -Wbad-function-cast \
- -Wbuiltin-macro-redefined \
- -Wcast-align \
- -Wchar-subscripts \
- -Wclobbered \
- -Wcomment \
- -Wcomments \
- -Wcoverage-mismatch \
- -Wcpp \
- -Wdeprecated \
- -Wdeprecated-declarations \
- -Wdisabled-optimization \
- -Wdiv-by-zero \
- -Wdouble-promotion \
- -Wempty-body \
- -Wendif-labels \
- -Wenum-compare \
- -Wextra \
- -Wformat-contains-nul \
- -Wformat-extra-args \
- -Wformat-nonliteral \
- -Wformat-security \
- -Wformat-y2k \
- -Wformat-zero-length \
- -Wformat=2 \
- -Wfree-nonheap-object \
- -Wignored-qualifiers \
- -Wimplicit \
- -Wimplicit-function-declaration \
- -Wimplicit-int \
- -Winit-self \
- -Winline \
- -Wint-to-pointer-cast \
- -Winvalid-memory-model \
- -Winvalid-pch \
- -Wjump-misses-init \
- -Wlogical-op \
- -Wmain \
- -Wmaybe-uninitialized \
- -Wmissing-braces \
- -Wmissing-declarations \
- -Wmissing-field-initializers \
- -Wmissing-format-attribute \
- -Wmissing-include-dirs \
- -Wmissing-noreturn \
- -Wmissing-parameter-type \
- -Wmissing-prototypes \
- -Wmudflap \
- -Wmultichar \
- -Wnarrowing \
- -Wnested-externs \
- -Wnonnull \
- -Wnormalized=nfc \
- -Wold-style-declaration \
- -Wold-style-definition \
- -Woverflow \
- -Woverlength-strings \
- -Woverride-init \
- -Wpacked \
- -Wpacked-bitfield-compat \
- -Wparentheses \
- -Wpointer-arith \
- -Wpointer-sign \
- -Wpointer-to-int-cast \
- -Wpragmas \
- -Wreturn-type \
- -Wsequence-point \
- -Wshadow \
- -Wsizeof-pointer-memaccess \
- -Wstack-protector \
- -Wstrict-aliasing \
- -Wstrict-overflow \
- -Wstrict-prototypes \
- -Wsuggest-attribute=const \
- -Wsuggest-attribute=format \
- -Wsuggest-attribute=noreturn \
- -Wsuggest-attribute=pure \
- -Wswitch \
- -Wswitch-default \
- -Wsync-nand \
- -Wsystem-headers \
- -Wtrampolines \
- -Wtrigraphs \
- -Wtype-limits \
- -Wuninitialized \
- -Wunknown-pragmas \
- -Wunreachable-code \
- -Wunsafe-loop-optimizations \
- -Wunused \
- -Wunused-but-set-parameter \
- -Wunused-but-set-variable \
- -Wunused-function \
- -Wunused-label \
- -Wunused-local-typedefs \
- -Wunused-macros \
- -Wunused-parameter \
- -Wunused-result \
- -Wunused-value \
- -Wunused-variable \
- -Wvarargs \
- -Wvariadic-macros \
- -Wvector-operation-performance \
- -Wvla \
- -Wvolatile-register-var \
- -Wwrite-strings \
- \
- ; do
- gl_manywarn_set="$gl_manywarn_set $gl_manywarn_item"
- done
-
- # Disable specific options as needed.
- if test "$gl_cv_cc_nomfi_needed" = yes; then
- gl_manywarn_set="$gl_manywarn_set -Wno-missing-field-initializers"
- fi
-
- if test "$gl_cv_cc_uninitialized_supported" = no; then
- gl_manywarn_set="$gl_manywarn_set -Wno-uninitialized"
- fi
-
- ws=$gl_manywarn_set
-
-
- gl_warn_set=
- set x $ws; shift
- for gl_warn_item
- do
- case " $nw " in
- *" $gl_warn_item "*)
- ;;
- *)
- gl_warn_set="$gl_warn_set $gl_warn_item"
- ;;
- esac
- done
- ws=$gl_warn_set
-
- for w in $ws; do
- as_gl_Warn=`$as_echo "gl_cv_warn_c_$w" | $as_tr_sh`
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles $w" >&5
-$as_echo_n "checking whether C compiler handles $w... " >&6; }
-if eval \${$as_gl_Warn+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " $w"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval "$as_gl_Warn=yes"
-else
- eval "$as_gl_Warn=no"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-eval ac_res=\$$as_gl_Warn
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-if eval test \"x\$"$as_gl_Warn"\" = x"yes"; then :
- as_fn_append WARN_CFLAGS " $w"
-fi
-
-
- done
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -Wno-missing-field-initializers" >&5
-$as_echo_n "checking whether C compiler handles -Wno-missing-field-initializers... " >&6; }
-if ${gl_cv_warn_c__Wno_missing_field_initializers+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -Wno-missing-field-initializers"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__Wno_missing_field_initializers=yes
-else
- gl_cv_warn_c__Wno_missing_field_initializers=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__Wno_missing_field_initializers" >&5
-$as_echo "$gl_cv_warn_c__Wno_missing_field_initializers" >&6; }
-if test "x$gl_cv_warn_c__Wno_missing_field_initializers" = xyes; then :
- as_fn_append WARN_CFLAGS " -Wno-missing-field-initializers"
-fi
-
- # We need this one
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -Wno-sign-compare" >&5
-$as_echo_n "checking whether C compiler handles -Wno-sign-compare... " >&6; }
-if ${gl_cv_warn_c__Wno_sign_compare+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -Wno-sign-compare"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__Wno_sign_compare=yes
-else
- gl_cv_warn_c__Wno_sign_compare=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__Wno_sign_compare" >&5
-$as_echo "$gl_cv_warn_c__Wno_sign_compare" >&6; }
-if test "x$gl_cv_warn_c__Wno_sign_compare" = xyes; then :
- as_fn_append WARN_CFLAGS " -Wno-sign-compare"
-fi
-
- # Too many warnings for now
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -Wno-type-limits" >&5
-$as_echo_n "checking whether C compiler handles -Wno-type-limits... " >&6; }
-if ${gl_cv_warn_c__Wno_type_limits+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -Wno-type-limits"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__Wno_type_limits=yes
-else
- gl_cv_warn_c__Wno_type_limits=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__Wno_type_limits" >&5
-$as_echo "$gl_cv_warn_c__Wno_type_limits" >&6; }
-if test "x$gl_cv_warn_c__Wno_type_limits" = xyes; then :
- as_fn_append WARN_CFLAGS " -Wno-type-limits"
-fi
-
- # Too many warnings for now
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -Wno-switch" >&5
-$as_echo_n "checking whether C compiler handles -Wno-switch... " >&6; }
-if ${gl_cv_warn_c__Wno_switch+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -Wno-switch"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__Wno_switch=yes
-else
- gl_cv_warn_c__Wno_switch=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__Wno_switch" >&5
-$as_echo "$gl_cv_warn_c__Wno_switch" >&6; }
-if test "x$gl_cv_warn_c__Wno_switch" = xyes; then :
- as_fn_append WARN_CFLAGS " -Wno-switch"
-fi
-
- # Too many warnings for now
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -Wno-unused-parameter" >&5
-$as_echo_n "checking whether C compiler handles -Wno-unused-parameter... " >&6; }
-if ${gl_cv_warn_c__Wno_unused_parameter+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -Wno-unused-parameter"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__Wno_unused_parameter=yes
-else
- gl_cv_warn_c__Wno_unused_parameter=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__Wno_unused_parameter" >&5
-$as_echo "$gl_cv_warn_c__Wno_unused_parameter" >&6; }
-if test "x$gl_cv_warn_c__Wno_unused_parameter" = xyes; then :
- as_fn_append WARN_CFLAGS " -Wno-unused-parameter"
-fi
-
- # Too many warnings for now
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -Wno-format-nonliteral" >&5
-$as_echo_n "checking whether C compiler handles -Wno-format-nonliteral... " >&6; }
-if ${gl_cv_warn_c__Wno_format_nonliteral+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -Wno-format-nonliteral"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__Wno_format_nonliteral=yes
-else
- gl_cv_warn_c__Wno_format_nonliteral=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__Wno_format_nonliteral" >&5
-$as_echo "$gl_cv_warn_c__Wno_format_nonliteral" >&6; }
-if test "x$gl_cv_warn_c__Wno_format_nonliteral" = xyes; then :
- as_fn_append WARN_CFLAGS " -Wno-format-nonliteral"
-fi
-
-
-
- # In spite of excluding -Wlogical-op above, it is enabled, as of
- # gcc 4.5.0 20090517.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -Wno-logical-op" >&5
-$as_echo_n "checking whether C compiler handles -Wno-logical-op... " >&6; }
-if ${gl_cv_warn_c__Wno_logical_op+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -Wno-logical-op"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__Wno_logical_op=yes
-else
- gl_cv_warn_c__Wno_logical_op=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__Wno_logical_op" >&5
-$as_echo "$gl_cv_warn_c__Wno_logical_op" >&6; }
-if test "x$gl_cv_warn_c__Wno_logical_op" = xyes; then :
- as_fn_append WARN_CFLAGS " -Wno-logical-op"
-fi
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -fdiagnostics-show-option" >&5
-$as_echo_n "checking whether C compiler handles -fdiagnostics-show-option... " >&6; }
-if ${gl_cv_warn_c__fdiagnostics_show_option+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -fdiagnostics-show-option"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__fdiagnostics_show_option=yes
-else
- gl_cv_warn_c__fdiagnostics_show_option=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__fdiagnostics_show_option" >&5
-$as_echo "$gl_cv_warn_c__fdiagnostics_show_option" >&6; }
-if test "x$gl_cv_warn_c__fdiagnostics_show_option" = xyes; then :
- as_fn_append WARN_CFLAGS " -fdiagnostics-show-option"
-fi
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether C compiler handles -funit-at-a-time" >&5
-$as_echo_n "checking whether C compiler handles -funit-at-a-time... " >&6; }
-if ${gl_cv_warn_c__funit_at_a_time+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_compiler_FLAGS="$CFLAGS"
- as_fn_append CFLAGS " -funit-at-a-time"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_warn_c__funit_at_a_time=yes
-else
- gl_cv_warn_c__funit_at_a_time=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$gl_save_compiler_FLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_warn_c__funit_at_a_time" >&5
-$as_echo "$gl_cv_warn_c__funit_at_a_time" >&6; }
-if test "x$gl_cv_warn_c__funit_at_a_time" = xyes; then :
- as_fn_append WARN_CFLAGS " -funit-at-a-time"
-fi
-
-
-
-
-$as_echo "#define lint 1" >>confdefs.h
-
-
-
-$as_echo "#define GNULIB_PORTCHECK 1" >>confdefs.h
-
-
- # We use a slightly smaller set of warning options for lib/.
- # Remove the following and save the result in GNULIB_WARN_CFLAGS.
- nw=
- nw="$nw -Wunused-macros"
-
-
- gl_warn_set=
- set x $WARN_CFLAGS; shift
- for gl_warn_item
- do
- case " $nw " in
- *" $gl_warn_item "*)
- ;;
- *)
- gl_warn_set="$gl_warn_set $gl_warn_item"
- ;;
- esac
- done
- GNULIB_WARN_CFLAGS=$gl_warn_set
-
-
-fi
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5
-$as_echo_n "checking whether ln -s works... " >&6; }
-LN_S=$as_ln_s
-if test "$LN_S" = "ln -s"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5
-$as_echo "no, using $LN_S" >&6; }
-fi
-
-
-# Extract the first word of "install-info", so it can be a program name with args.
-set dummy install-info; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_INSTALL_INFO+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $INSTALL_INFO in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_INSTALL_INFO="$INSTALL_INFO" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/sbin$PATH_SEPARATOR/sbin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_INSTALL_INFO="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- test -z "$ac_cv_path_INSTALL_INFO" && ac_cv_path_INSTALL_INFO=":"
- ;;
-esac
-fi
-INSTALL_INFO=$ac_cv_path_INSTALL_INFO
-if test -n "$INSTALL_INFO"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL_INFO" >&5
-$as_echo "$INSTALL_INFO" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-# Extract the first word of "gzip", so it can be a program name with args.
-set dummy gzip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_GZIP_PROG+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $GZIP_PROG in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_GZIP_PROG="$GZIP_PROG" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_GZIP_PROG="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-GZIP_PROG=$ac_cv_path_GZIP_PROG
-if test -n "$GZIP_PROG"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $GZIP_PROG" >&5
-$as_echo "$GZIP_PROG" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-
-if test $opsys = gnu-linux; then
- # Extract the first word of "paxctl", so it can be a program name with args.
-set dummy paxctl; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_PAXCTL+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $PAXCTL in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_PAXCTL="$PAXCTL" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/sbin$PATH_SEPARATOR/usr/sbin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_PAXCTL="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-PAXCTL=$ac_cv_path_PAXCTL
-if test -n "$PAXCTL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PAXCTL" >&5
-$as_echo "$PAXCTL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- if test "X$PAXCTL" != X; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether binaries have a PT_PAX_FLAGS header" >&5
-$as_echo_n "checking whether binaries have a PT_PAX_FLAGS header... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- if $PAXCTL -v conftest$EXEEXT >/dev/null 2>&1; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }; PAXCTL=""; fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- fi
-fi
-
-## Need makeinfo >= 4.7 (?) to build the manuals.
-# Extract the first word of "makeinfo", so it can be a program name with args.
-set dummy makeinfo; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_MAKEINFO+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $MAKEINFO in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_MAKEINFO="$MAKEINFO" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_MAKEINFO="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- test -z "$ac_cv_path_MAKEINFO" && ac_cv_path_MAKEINFO="no"
- ;;
-esac
-fi
-MAKEINFO=$ac_cv_path_MAKEINFO
-if test -n "$MAKEINFO"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAKEINFO" >&5
-$as_echo "$MAKEINFO" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-if test "$MAKEINFO" != "no" && \
- test x"`$MAKEINFO --version 2> /dev/null | $EGREP 'texinfo[^0-9]*([1-4][0-9]+|[5-9]|4\.[7-9]|4\.[1-6][0-9]+)'`" = x; then
- MAKEINFO=no
-fi
-
-## Makeinfo is unusual. For a released Emacs, the manuals are
-## pre-built, and not deleted by the normal clean rules. makeinfo is
-## therefore in the category of "special tools" not normally required, which
-## configure does not have to check for (eg autoconf itself).
-## In a Bazaar checkout on the other hand, the manuals are not included.
-## So makeinfo is a requirement to build from Bazaar, and configure
-## should test for it as it does for any other build requirement.
-## We use the presence of $srcdir/info/emacs to distinguish a release,
-## with pre-built manuals, from a Bazaar checkout.
-HAVE_MAKEINFO=yes
-
-if test "$MAKEINFO" = "no"; then
- MAKEINFO=makeinfo
- if test "x${with_makeinfo}" = "xno"; then
- HAVE_MAKEINFO=no
- elif test ! -e $srcdir/info/emacs && test ! -e $srcdir/info/emacs.info; then
- as_fn_error $? "You do not seem to have makeinfo >= 4.7, and your
-source tree does not seem to have pre-built manuals in the \`info' directory.
-Either install a suitable version of makeinfo, or re-run configure
-with the \`--without-makeinfo' option to build without the manuals. " "$LINENO" 5
- fi
-fi
-
-
-INFO_EXT=.info
-INFO_OPTS=--no-split
-
-
-
-
-if test x$GCC = xyes; then
- test "x$GCC_LINK_TEST_OPTIONS" != x && \
- ac_link="$ac_link $GCC_LINK_TEST_OPTIONS"
-else
- test "x$NON_GCC_LINK_TEST_OPTIONS" != x && \
- ac_link="$ac_link $NON_GCC_LINK_TEST_OPTIONS"
-fi
-
-
-late_LDFLAGS=$LDFLAGS
-if test x$GCC = xyes; then
- LDFLAGS="$LDFLAGS -Wl,-znocombreloc"
-else
- LDFLAGS="$LDFLAGS -znocombreloc"
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for -znocombreloc" >&5
-$as_echo_n "checking for -znocombreloc... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- LDFLAGS=$late_LDFLAGS
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-
-test "x$CANNOT_DUMP" = "x" && CANNOT_DUMP=no
-case "$opsys" in
- your-opsys-here) CANNOT_DUMP=yes ;;
-esac
-
-test "$CANNOT_DUMP" = "yes" && \
-
-$as_echo "#define CANNOT_DUMP 1" >>confdefs.h
-
-
-
-
-
-UNEXEC_OBJ=unexelf.o
-case "$opsys" in
- # MSDOS uses unexcoff.o
- # MSWindows uses unexw32.o
- aix4-2)
- UNEXEC_OBJ=unexaix.o
- ;;
- cygwin)
- UNEXEC_OBJ=unexcw.o
- ;;
- darwin)
- UNEXEC_OBJ=unexmacosx.o
- ;;
- hpux10-20 | hpux11)
- UNEXEC_OBJ=unexhp9k800.o
- ;;
- sol2-10)
- # Use the Solaris dldump() function, called from unexsol.c, to dump
- # emacs, instead of the generic ELF dump code found in unexelf.c.
- # The resulting binary has a complete symbol table, and is better
- # for debugging and other observability tools (debuggers, pstack, etc).
- #
- # If you encounter a problem using dldump(), please consider sending
- # a message to the OpenSolaris tools-linking mailing list:
- # http://mail.opensolaris.org/mailman/listinfo/tools-linking
- #
- # It is likely that dldump() works with older Solaris too, but this has
- # not been tested, so for now this change is for Solaris 10 or newer.
- UNEXEC_OBJ=unexsol.o
- ;;
-esac
-
-LD_SWITCH_SYSTEM=
-case "$opsys" in
- freebsd)
- ## Let `ld' find image libs and similar things in /usr/local/lib.
- ## The system compiler, GCC, has apparently been modified to not
- ## look there, contrary to what a stock GCC would do.
-### It's not our place to do this. See bug#10313#17.
-### LD_SWITCH_SYSTEM=-L/usr/local/lib
- :
- ;;
-
- gnu-linux)
- ## cpp test was "ifdef __mips__", but presumably this is equivalent...
- case $host_cpu in mips*) LD_SWITCH_SYSTEM="-G 0";; esac
- ;;
-
- netbsd)
-### It's not our place to do this. See bug#10313#17.
-### LD_SWITCH_SYSTEM="-Wl,-rpath,/usr/pkg/lib -L/usr/pkg/lib -Wl,-rpath,/usr/local/lib -L/usr/local/lib"
- :
- ;;
-
- openbsd)
- ## Han Boetes <han@mijncomputer.nl> says this is necessary,
- ## otherwise Emacs dumps core on elf systems.
- LD_SWITCH_SYSTEM="-Z"
- ;;
-esac
-
-
-ac_link="$ac_link $LD_SWITCH_SYSTEM"
-
-## This setting of LD_SWITCH_SYSTEM references LD_SWITCH_X_SITE_RPATH,
-## which has not been defined yet. When this was handled with cpp,
-## it was expanded to null when configure sourced the s/*.h file.
-## Thus LD_SWITCH_SYSTEM had different values in configure and the Makefiles.
-## FIXME it would be cleaner to put this in LD_SWITCH_SYSTEM_TEMACS
-## (or somesuch), but because it is supposed to go at the _front_
-## of LD_SWITCH_SYSTEM, we cannot do that in exactly the same way.
-## Compare with the gnu-linux case below, which added to the end
-## of LD_SWITCH_SYSTEM, and so can instead go at the front of
-## LD_SWITCH_SYSTEM_TEMACS.
-case "$opsys" in
- netbsd|openbsd)
- LD_SWITCH_SYSTEM="\$(LD_SWITCH_X_SITE_RPATH) $LD_SWITCH_SYSTEM" ;;
-esac
-
-
-C_SWITCH_MACHINE=
-case $canonical in
- alpha*)
- ac_fn_c_check_decl "$LINENO" "__ELF__" "ac_cv_have_decl___ELF__" "$ac_includes_default"
-if test "x$ac_cv_have_decl___ELF__" = xyes; then :
-
-fi
-
- if test "$ac_cv_have_decl___ELF__" = "yes"; then
- ## With ELF, make sure that all common symbols get allocated to in the
- ## data section. Otherwise, the dump of temacs may miss variables in
- ## the shared library that have been initialized. For example, with
- ## GNU libc, __malloc_initialized would normally be resolved to the
- ## shared library's .bss section, which is fatal.
- if test "x$GCC" = "xyes"; then
- C_SWITCH_MACHINE="-fno-common"
- else
- as_fn_error $? "What gives? Fix me if DEC Unix supports ELF now." "$LINENO" 5
- fi
- else
- UNEXEC_OBJ=unexalpha.o
- fi
- ;;
-esac
-
-
-
-
-C_SWITCH_SYSTEM=
-## Some programs in src produce warnings saying certain subprograms
-## are too complex and need a MAXMEM value greater than 2000 for
-## additional optimization. --nils@exp-math.uni-essen.de
-test "$opsys" = "aix4.2" && test "x$GCC" != "xyes" && \
- C_SWITCH_SYSTEM="-ma -qmaxmem=4000"
-## gnu-linux might need -D_BSD_SOURCE on old libc5 systems.
-## It is redundant in glibc2, since we define _GNU_SOURCE.
-
-
-
-LIBS_SYSTEM=
-case "$opsys" in
- ## IBM's X11R5 uses -lIM and -liconv in AIX 3.2.2.
- aix4-2) LIBS_SYSTEM="-lrts -lIM -liconv" ;;
-
- freebsd) LIBS_SYSTEM="-lutil" ;;
-
- hpux*) LIBS_SYSTEM="-l:libdld.sl" ;;
-
- sol2*) LIBS_SYSTEM="-lsocket -lnsl" ;;
-
- ## Motif needs -lgen.
- unixware) LIBS_SYSTEM="-lsocket -lnsl -lelf -lgen" ;;
-esac
-
-
-
-### Make sure subsequent tests use flags consistent with the build flags.
-
-if test x"${OVERRIDE_CPPFLAGS}" != x; then
- CPPFLAGS="${OVERRIDE_CPPFLAGS}"
-else
- CPPFLAGS="$C_SWITCH_SYSTEM $C_SWITCH_MACHINE $CPPFLAGS"
-fi
-
-# Suppress obsolescent Autoconf test for size_t; Emacs assumes C89 or better.
-
-# Likewise for obsolescent test for uid_t, gid_t; Emacs assumes them.
-
-
-
-LIB_MATH=-lm
-LIB_STANDARD=
-START_FILES=
-SYSTEM_TYPE=`echo $opsys | sed -e 's/[0-9].*//' -e 's|-|/|'`
-
-case $opsys in
- cygwin )
- LIB_MATH=
- START_FILES='pre-crt0.o'
- ;;
- darwin )
- ## Adding -lm confuses the dynamic linker, so omit it.
- LIB_MATH=
- START_FILES='pre-crt0.o'
- ;;
- freebsd )
- LIB_STANDARD='-lgcc -lc -lgcc $(CRT_DIR)/crtn.o'
- START_FILES='pre-crt0.o $(CRT_DIR)/crt1.o $(CRT_DIR)/crti.o'
- SYSTEM_TYPE=berkeley-unix
- ;;
- gnu-linux | gnu-kfreebsd )
- LIB_STANDARD='-lgcc -lc -lgcc $(CRT_DIR)/crtn.o'
- START_FILES='pre-crt0.o $(CRT_DIR)/crt1.o $(CRT_DIR)/crti.o'
- ;;
- hpux10-20 | hpux11 )
- LIB_STANDARD=-lc
- START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o'
- ;;
- netbsd | openbsd )
- LIB_STANDARD='-lgcc -lc -lgcc $(CRT_DIR)/crtend.o'
- START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o $(CRT_DIR)/crtbegin.o'
- SYSTEM_TYPE=berkeley-unix
- ;;
-
- sol2* | unixware )
- SYSTEM_TYPE=usg-unix-v
- ;;
-
-esac
-
-
-
-
-cat >>confdefs.h <<_ACEOF
-#define SYSTEM_TYPE "$SYSTEM_TYPE"
-_ACEOF
-
-
-crt_files=
-
-for file in x $LIB_STANDARD $START_FILES; do
- case "$file" in
- *CRT_DIR*) crt_files="$crt_files `echo $file | sed -e 's|.*/||'`" ;;
- esac
-done
-
-if test "x$crt_files" != x; then
-
- ## If user specified a crt-dir, use that unconditionally.
- crt_gcc=no
-
- if test "X$CRT_DIR" = "X"; then
-
- CRT_DIR=/usr/lib # default
-
- case "$canonical" in
- x86_64-*-linux-gnu* | s390x-*-linux-gnu*)
- ## On x86-64 and s390x GNU/Linux distributions, the standard library
- ## can be in a variety of places. We only try /usr/lib64 and /usr/lib.
- ## For anything else (eg /usr/lib32), it is up the user to specify
- ## the location (bug#5655).
- ## Test for crtn.o, not just the directory, because sometimes the
- ## directory exists but does not have the relevant files (bug#1287).
- ## FIXME better to test for binary compatibility somehow.
- test -e /usr/lib64/crtn.o && CRT_DIR=/usr/lib64
- ;;
-
- powerpc64-*-linux-gnu* | sparc64-*-linux-gnu*) CRT_DIR=/usr/lib64 ;;
- esac
-
- case "$opsys" in
- hpux10-20) CRT_DIR=/lib ;;
- esac
-
- test "x${GCC}" = xyes && crt_gcc=yes
-
- fi # CRT_DIR = ""
-
- crt_missing=
-
- for file in $crt_files; do
-
- ## If we're using gcc, try to determine it automatically by asking
- ## gcc. [If this doesn't work, CRT_DIR will remain at the
- ## system-dependent default from above.]
- if test $crt_gcc = yes && test ! -e $CRT_DIR/$file; then
-
- crt_file=`$CC --print-file-name=$file 2>/dev/null`
- case "$crt_file" in
- */*)
- CRT_DIR=`$as_dirname -- "$crt_file" ||
-$as_expr X"$crt_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$crt_file" : 'X\(//\)[^/]' \| \
- X"$crt_file" : 'X\(//\)$' \| \
- X"$crt_file" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$crt_file" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- ;;
- esac
- fi
-
- crt_gcc=no
-
- test -e $CRT_DIR/$file || crt_missing="$crt_missing $file"
- done # $crt_files
-
- test "x$crt_missing" = x || \
- as_fn_error $? "Required file(s) not found:$crt_missing
-Try using the --with-crt-dir option." "$LINENO" 5
-
-fi # crt_files != ""
-
-
-
-case $opsys in
- netbsd | openbsd )
- if test -f $CRT_DIR/crti.o; then
-
- test -f $CRT_DIR/crtn.o || \
- as_fn_error $? "Required file not found: crtn.o" "$LINENO" 5
-
- LIB_STANDARD='-lgcc -lc -lgcc $(CRT_DIR)/crtend.o $(CRT_DIR)/crtn.o'
- START_FILES='pre-crt0.o $(CRT_DIR)/crt0.o $(CRT_DIR)/crti.o $(CRT_DIR)/crtbegin.o'
- fi
- ;;
-esac
-
-
-pre_PKG_CONFIG_CFLAGS=$CFLAGS
-pre_PKG_CONFIG_LIBS=$LIBS
-
-# Extract the first word of "pkg-config", so it can be a program name with args.
-set dummy pkg-config; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_path_PKG_CONFIG+:} false; then :
- $as_echo_n "(cached) " >&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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_path_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$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
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PKG_CONFIG" >&5
-$as_echo "$PKG_CONFIG" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-
-
-
-
-if test "${with_sound}" != "no"; then
- # Sound support for GNU/Linux and the free BSDs.
- for ac_header in machine/soundcard.h sys/soundcard.h soundcard.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
- have_sound_header=yes
-fi
-
-done
-
- # Emulation library used on NetBSD.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for _oss_ioctl in -lossaudio" >&5
-$as_echo_n "checking for _oss_ioctl in -lossaudio... " >&6; }
-if ${ac_cv_lib_ossaudio__oss_ioctl+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lossaudio $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 _oss_ioctl ();
-int
-main ()
-{
-return _oss_ioctl ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_ossaudio__oss_ioctl=yes
-else
- ac_cv_lib_ossaudio__oss_ioctl=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ossaudio__oss_ioctl" >&5
-$as_echo "$ac_cv_lib_ossaudio__oss_ioctl" >&6; }
-if test "x$ac_cv_lib_ossaudio__oss_ioctl" = xyes; then :
- LIBSOUND=-lossaudio
-else
- LIBSOUND=
-fi
-
-
-
- ALSA_REQUIRED=1.0.0
- ALSA_MODULES="alsa >= $ALSA_REQUIRED"
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_ALSA=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ALSA_MODULES" >&5
-$as_echo_n "checking for $ALSA_MODULES... " >&6; }
-
- if $PKG_CONFIG --exists "$ALSA_MODULES" 2>&5 &&
- ALSA_CFLAGS=`$PKG_CONFIG --cflags "$ALSA_MODULES" 2>&5` &&
- ALSA_LIBS=`$PKG_CONFIG --libs "$ALSA_MODULES" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- ALSA_CFLAGS=`$as_echo "$ALSA_CFLAGS" | sed -e "$edit_cflags"`
- ALSA_LIBS=`$as_echo "$ALSA_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$ALSA_CFLAGS' LIBS='$ALSA_LIBS'" >&5
-$as_echo "yes CFLAGS='$ALSA_CFLAGS' LIBS='$ALSA_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- ALSA_CFLAGS=""
- ALSA_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- ALSA_PKG_ERRORS=`($PKG_CONFIG --print-errors "$ALSA_MODULES") 2>&1`
-
- 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
- HAVE_ALSA=yes
- else
- HAVE_ALSA=no
- fi
-
- if test $HAVE_ALSA = yes; then
- SAVE_CFLAGS="$CFLAGS"
- SAVE_LIBS="$LIBS"
- CFLAGS="$ALSA_CFLAGS $CFLAGS"
- LIBS="$ALSA_LIBS $LIBS"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <asoundlib.h>
-int
-main ()
-{
-snd_lib_error_set_handler (0);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_alsa_normal=yes
-else
- emacs_alsa_normal=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test "$emacs_alsa_normal" != yes; then
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <alsa/asoundlib.h>
-int
-main ()
-{
-snd_lib_error_set_handler (0);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_alsa_subdir=yes
-else
- emacs_alsa_subdir=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test "$emacs_alsa_subdir" != yes; then
- as_fn_error $? "pkg-config found alsa, but it does not compile. See config.log for error messages." "$LINENO" 5
- fi
- ALSA_CFLAGS="$ALSA_CFLAGS -DALSA_SUBDIR_INCLUDE"
- fi
-
- CFLAGS="$SAVE_CFLAGS"
- LIBS="$SAVE_LIBS"
- LIBSOUND="$LIBSOUND $ALSA_LIBS"
- CFLAGS_SOUND="$CFLAGS_SOUND $ALSA_CFLAGS"
-
-$as_echo "#define HAVE_ALSA 1" >>confdefs.h
-
- fi
-
- if test x$have_sound_header = xyes || test $HAVE_ALSA = yes; then
- case "$opsys" in
- gnu-linux|freebsd|netbsd)
-
-$as_echo "#define HAVE_SOUND 1" >>confdefs.h
-
- ;;
- esac
- fi
-
-
-fi
-
-
-
-
- for ac_header in $ac_header_list
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
-"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-
-done
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if personality LINUX32 can be set" >&5
-$as_echo_n "checking if personality LINUX32 can be set... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/personality.h>
-int
-main ()
-{
-personality (PER_LINUX32)
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_cv_personality_linux32=yes
-else
- emacs_cv_personality_linux32=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_personality_linux32" >&5
-$as_echo "$emacs_cv_personality_linux32" >&6; }
-
-if test $emacs_cv_personality_linux32 = yes; then
-
-$as_echo "#define HAVE_PERSONALITY_LINUX32 1" >>confdefs.h
-
-fi
-
-for ac_header in term.h
-do :
- ac_fn_c_check_header_preproc "$LINENO" "term.h" "ac_cv_header_term_h"
-if test "x$ac_cv_header_term_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_TERM_H 1
-_ACEOF
-
-fi
-
-done
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether time.h and sys/time.h may both be included" >&5
-$as_echo_n "checking whether time.h and sys/time.h may both be included... " >&6; }
-if ${ac_cv_header_time+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
-#include <sys/time.h>
-#include <time.h>
-
-int
-main ()
-{
-if ((struct tm *) 0)
-return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_header_time=yes
-else
- ac_cv_header_time=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_time" >&5
-$as_echo "$ac_cv_header_time" >&6; }
-if test $ac_cv_header_time = yes; then
-
-$as_echo "#define TIME_WITH_SYS_TIME 1" >>confdefs.h
-
-fi
-
-ac_fn_c_check_decl "$LINENO" "sys_siglist" "ac_cv_have_decl_sys_siglist" "#include <signal.h>
-
-"
-if test "x$ac_cv_have_decl_sys_siglist" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_SYS_SIGLIST $ac_have_decl
-_ACEOF
-
-if test $ac_cv_have_decl_sys_siglist != yes; then
- # For Tru64, at least:
- ac_fn_c_check_decl "$LINENO" "__sys_siglist" "ac_cv_have_decl___sys_siglist" "#include <signal.h>
-
-"
-if test "x$ac_cv_have_decl___sys_siglist" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL___SYS_SIGLIST $ac_have_decl
-_ACEOF
-
- if test $ac_cv_have_decl___sys_siglist = yes; then
-
-$as_echo "#define sys_siglist __sys_siglist" >>confdefs.h
-
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for sys/wait.h that is POSIX.1 compatible" >&5
-$as_echo_n "checking for sys/wait.h that is POSIX.1 compatible... " >&6; }
-if ${ac_cv_header_sys_wait_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
-#include <sys/wait.h>
-#ifndef WEXITSTATUS
-# define WEXITSTATUS(stat_val) ((unsigned int) (stat_val) >> 8)
-#endif
-#ifndef WIFEXITED
-# define WIFEXITED(stat_val) (((stat_val) & 255) == 0)
-#endif
-
-int
-main ()
-{
- int s;
- wait (&s);
- s = WIFEXITED (s) ? WEXITSTATUS (s) : 1;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_header_sys_wait_h=yes
-else
- ac_cv_header_sys_wait_h=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_sys_wait_h" >&5
-$as_echo "$ac_cv_header_sys_wait_h" >&6; }
-if test $ac_cv_header_sys_wait_h = yes; then
-
-$as_echo "#define HAVE_SYS_WAIT_H 1" >>confdefs.h
-
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for speed_t" >&5
-$as_echo_n "checking for speed_t... " >&6; }
-if ${emacs_cv_speed_t+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <termios.h>
-int
-main ()
-{
-speed_t x = 1;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_cv_speed_t=yes
-else
- emacs_cv_speed_t=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_speed_t" >&5
-$as_echo "$emacs_cv_speed_t" >&6; }
-if test $emacs_cv_speed_t = yes; then
-
-$as_echo "#define HAVE_SPEED_T 1" >>confdefs.h
-
-fi
-
-
-
-
-for ac_header in net/if.h
-do :
- ac_fn_c_check_header_compile "$LINENO" "net/if.h" "ac_cv_header_net_if_h" "$ac_includes_default
-#if HAVE_SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-"
-if test "x$ac_cv_header_net_if_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_NET_IF_H 1
-_ACEOF
-
-fi
-
-done
-
-for ac_header in ifaddrs.h
-do :
- ac_fn_c_check_header_compile "$LINENO" "ifaddrs.h" "ac_cv_header_ifaddrs_h" "$ac_includes_default
-#if HAVE_SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-"
-if test "x$ac_cv_header_ifaddrs_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_IFADDRS_H 1
-_ACEOF
-
-fi
-
-done
-
-for ac_header in net/if_dl.h
-do :
- ac_fn_c_check_header_compile "$LINENO" "net/if_dl.h" "ac_cv_header_net_if_dl_h" "$ac_includes_default
-#if HAVE_SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-"
-if test "x$ac_cv_header_net_if_dl_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_NET_IF_DL_H 1
-_ACEOF
-
-fi
-
-done
-
-
-ac_fn_c_check_member "$LINENO" "struct ifreq" "ifr_flags" "ac_cv_member_struct_ifreq_ifr_flags" "$ac_includes_default
-#if HAVE_SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-#if HAVE_NET_IF_H
-#include <net/if.h>
-#endif
-"
-if test "x$ac_cv_member_struct_ifreq_ifr_flags" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_IFREQ_IFR_FLAGS 1
-_ACEOF
-
-
-fi
-ac_fn_c_check_member "$LINENO" "struct ifreq" "ifr_hwaddr" "ac_cv_member_struct_ifreq_ifr_hwaddr" "$ac_includes_default
-#if HAVE_SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-#if HAVE_NET_IF_H
-#include <net/if.h>
-#endif
-"
-if test "x$ac_cv_member_struct_ifreq_ifr_hwaddr" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_IFREQ_IFR_HWADDR 1
-_ACEOF
-
-
-fi
-ac_fn_c_check_member "$LINENO" "struct ifreq" "ifr_netmask" "ac_cv_member_struct_ifreq_ifr_netmask" "$ac_includes_default
-#if HAVE_SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-#if HAVE_NET_IF_H
-#include <net/if.h>
-#endif
-"
-if test "x$ac_cv_member_struct_ifreq_ifr_netmask" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_IFREQ_IFR_NETMASK 1
-_ACEOF
-
-
-fi
-ac_fn_c_check_member "$LINENO" "struct ifreq" "ifr_broadaddr" "ac_cv_member_struct_ifreq_ifr_broadaddr" "$ac_includes_default
-#if HAVE_SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-#if HAVE_NET_IF_H
-#include <net/if.h>
-#endif
-"
-if test "x$ac_cv_member_struct_ifreq_ifr_broadaddr" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_IFREQ_IFR_BROADADDR 1
-_ACEOF
-
-
-fi
-ac_fn_c_check_member "$LINENO" "struct ifreq" "ifr_addr" "ac_cv_member_struct_ifreq_ifr_addr" "$ac_includes_default
-#if HAVE_SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-#if HAVE_NET_IF_H
-#include <net/if.h>
-#endif
-"
-if test "x$ac_cv_member_struct_ifreq_ifr_addr" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_IFREQ_IFR_ADDR 1
-_ACEOF
-
-
-fi
-ac_fn_c_check_member "$LINENO" "struct ifreq" "ifr_addr.sa_len" "ac_cv_member_struct_ifreq_ifr_addr_sa_len" "$ac_includes_default
-#if HAVE_SYS_SOCKET_H
-#include <sys/socket.h>
-#endif
-#if HAVE_NET_IF_H
-#include <net/if.h>
-#endif
-"
-if test "x$ac_cv_member_struct_ifreq_ifr_addr_sa_len" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_IFREQ_IFR_ADDR_SA_LEN 1
-_ACEOF
-
-
-fi
-
-
-
-
-DEPFLAGS=
-MKDEPDIR=":"
-deps_frag=deps.mk
-if test "$GCC" = yes && test "$ac_enable_autodepend" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using GNU Make" >&5
-$as_echo_n "checking whether we are using GNU Make... " >&6; }
- HAVE_GNU_MAKE=no
- testval=`${MAKE-make} --version 2>/dev/null | grep 'GNU Make'`
- if test "x$testval" != x; then
- HAVE_GNU_MAKE=yes
- else
- ac_enable_autodepend=no
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $HAVE_GNU_MAKE" >&5
-$as_echo "$HAVE_GNU_MAKE" >&6; }
- if test $HAVE_GNU_MAKE = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether gcc understands -MMD -MF" >&5
-$as_echo_n "checking whether gcc understands -MMD -MF... " >&6; }
- SAVE_CFLAGS="$CFLAGS"
- CFLAGS="$CFLAGS -MMD -MF deps.d -MP"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-else
- ac_enable_autodepend=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CFLAGS="$SAVE_CFLAGS"
- test -f deps.d || ac_enable_autodepend=no
- rm -rf deps.d
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_enable_autodepend" >&5
-$as_echo "$ac_enable_autodepend" >&6; }
- fi
- if test $ac_enable_autodepend = yes; then
- DEPFLAGS='-MMD -MF ${DEPDIR}/$*.d -MP'
- ## MKDIR_P is documented (see AC_PROG_MKDIR_P) to be parallel-safe.
- MKDEPDIR='${MKDIR_P} ${DEPDIR}'
- deps_frag=autodeps.mk
- fi
-fi
-deps_frag=$srcdir/src/$deps_frag
-
-
-
-
-
-lisp_frag=$srcdir/src/lisp.mk
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for long file names" >&5
-$as_echo_n "checking for long file names... " >&6; }
-if ${ac_cv_sys_long_file_names+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_sys_long_file_names=yes
-# Test for long file names in all the places we know might matter:
-# . the current directory, where building will happen
-# $prefix/lib where we will be installing things
-# $exec_prefix/lib likewise
-# $TMPDIR if set, where it might want to write temporary files
-# /tmp where it might want to write temporary files
-# /var/tmp likewise
-# /usr/tmp likewise
-for ac_dir in . "$TMPDIR" /tmp /var/tmp /usr/tmp "$prefix/lib" "$exec_prefix/lib"; do
- # Skip $TMPDIR if it is empty or bogus, and skip $exec_prefix/lib
- # in the usual case where exec_prefix is '${prefix}'.
- case $ac_dir in #(
- . | /* | ?:[\\/]*) ;; #(
- *) continue;;
- esac
- test -w "$ac_dir/." || continue # It is less confusing to not echo anything here.
- ac_xdir=$ac_dir/cf$$
- (umask 077 && mkdir "$ac_xdir" 2>/dev/null) || continue
- ac_tf1=$ac_xdir/conftest9012345
- ac_tf2=$ac_xdir/conftest9012346
- touch "$ac_tf1" 2>/dev/null && test -f "$ac_tf1" && test ! -f "$ac_tf2" ||
- ac_cv_sys_long_file_names=no
- rm -f -r "$ac_xdir" 2>/dev/null
- test $ac_cv_sys_long_file_names = no && break
-done
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_long_file_names" >&5
-$as_echo "$ac_cv_sys_long_file_names" >&6; }
-if test $ac_cv_sys_long_file_names = yes; then
-
-$as_echo "#define HAVE_LONG_FILE_NAMES 1" >>confdefs.h
-
-fi
-
-
-#### Choose a window system.
-
-## We leave window_system equal to none if
-## we end up building without one. Any new window system should
-## set window_system to an appropriate value and add objects to
-## window-system-specific substs.
-
-window_system=none
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for X" >&5
-$as_echo_n "checking for X... " >&6; }
-
-
-# Check whether --with-x was given.
-if test "${with_x+set}" = set; then :
- withval=$with_x;
-fi
-
-# $have_x is `yes', `no', `disabled', or empty when we do not yet know.
-if test "x$with_x" = xno; then
- # The user explicitly disabled X.
- have_x=disabled
-else
- case $x_includes,$x_libraries in #(
- *\'*) as_fn_error $? "cannot use X directory names containing '" "$LINENO" 5;; #(
- *,NONE | NONE,*) if ${ac_cv_have_x+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # One or both of the vars are not set, and there is no cached value.
-ac_x_includes=no ac_x_libraries=no
-rm -f -r conftest.dir
-if mkdir conftest.dir; then
- cd conftest.dir
- cat >Imakefile <<'_ACEOF'
-incroot:
- @echo incroot='${INCROOT}'
-usrlibdir:
- @echo usrlibdir='${USRLIBDIR}'
-libdir:
- @echo libdir='${LIBDIR}'
-_ACEOF
- if (export CC; ${XMKMF-xmkmf}) >/dev/null 2>/dev/null && test -f Makefile; then
- # GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
- for ac_var in incroot usrlibdir libdir; do
- eval "ac_im_$ac_var=\`\${MAKE-make} $ac_var 2>/dev/null | sed -n 's/^$ac_var=//p'\`"
- done
- # Open Windows xmkmf reportedly sets LIBDIR instead of USRLIBDIR.
- for ac_extension in a so sl dylib la dll; do
- if test ! -f "$ac_im_usrlibdir/libX11.$ac_extension" &&
- test -f "$ac_im_libdir/libX11.$ac_extension"; then
- ac_im_usrlibdir=$ac_im_libdir; break
- fi
- done
- # Screen out bogus values from the imake configuration. They are
- # bogus both because they are the default anyway, and because
- # using them would break gcc on systems where it needs fixed includes.
- case $ac_im_incroot in
- /usr/include) ac_x_includes= ;;
- *) test -f "$ac_im_incroot/X11/Xos.h" && ac_x_includes=$ac_im_incroot;;
- esac
- case $ac_im_usrlibdir in
- /usr/lib | /usr/lib64 | /lib | /lib64) ;;
- *) test -d "$ac_im_usrlibdir" && ac_x_libraries=$ac_im_usrlibdir ;;
- esac
- fi
- cd ..
- rm -f -r conftest.dir
-fi
-
-# Standard set of common directories for X headers.
-# Check X11 before X11Rn because it is often a symlink to the current release.
-ac_x_header_dirs='
-/usr/X11/include
-/usr/X11R7/include
-/usr/X11R6/include
-/usr/X11R5/include
-/usr/X11R4/include
-
-/usr/include/X11
-/usr/include/X11R7
-/usr/include/X11R6
-/usr/include/X11R5
-/usr/include/X11R4
-
-/usr/local/X11/include
-/usr/local/X11R7/include
-/usr/local/X11R6/include
-/usr/local/X11R5/include
-/usr/local/X11R4/include
-
-/usr/local/include/X11
-/usr/local/include/X11R7
-/usr/local/include/X11R6
-/usr/local/include/X11R5
-/usr/local/include/X11R4
-
-/usr/X386/include
-/usr/x386/include
-/usr/XFree86/include/X11
-
-/usr/include
-/usr/local/include
-/usr/unsupported/include
-/usr/athena/include
-/usr/local/x11r5/include
-/usr/lpp/Xamples/include
-
-/usr/openwin/include
-/usr/openwin/share/include'
-
-if test "$ac_x_includes" = no; then
- # Guess where to find include files, by looking for Xlib.h.
- # First, try using that file with no special directory specified.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <X11/Xlib.h>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- # We can compile using X headers with no special include directory.
-ac_x_includes=
-else
- for ac_dir in $ac_x_header_dirs; do
- if test -r "$ac_dir/X11/Xlib.h"; then
- ac_x_includes=$ac_dir
- break
- fi
-done
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-fi # $ac_x_includes = no
-
-if test "$ac_x_libraries" = no; then
- # Check for the libraries.
- # See if we find them without any special options.
- # Don't add to $LIBS permanently.
- ac_save_LIBS=$LIBS
- LIBS="-lX11 $LIBS"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <X11/Xlib.h>
-int
-main ()
-{
-XrmInitialize ()
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- LIBS=$ac_save_LIBS
-# We can link X programs with no special library path.
-ac_x_libraries=
-else
- LIBS=$ac_save_LIBS
-for ac_dir in `$as_echo "$ac_x_includes $ac_x_header_dirs" | sed s/include/lib/g`
-do
- # Don't even attempt the hair of trying to link an X program!
- for ac_extension in a so sl dylib la dll; do
- if test -r "$ac_dir/libX11.$ac_extension"; then
- ac_x_libraries=$ac_dir
- break 2
- fi
- done
-done
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi # $ac_x_libraries = no
-
-case $ac_x_includes,$ac_x_libraries in #(
- no,* | *,no | *\'*)
- # Didn't find X, or a directory has "'" in its name.
- ac_cv_have_x="have_x=no";; #(
- *)
- # Record where we found X for the cache.
- ac_cv_have_x="have_x=yes\
- ac_x_includes='$ac_x_includes'\
- ac_x_libraries='$ac_x_libraries'"
-esac
-fi
-;; #(
- *) have_x=yes;;
- esac
- eval "$ac_cv_have_x"
-fi # $with_x != no
-
-if test "$have_x" != yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $have_x" >&5
-$as_echo "$have_x" >&6; }
- no_x=yes
-else
- # If each of the values was on the command line, it overrides each guess.
- test "x$x_includes" = xNONE && x_includes=$ac_x_includes
- test "x$x_libraries" = xNONE && x_libraries=$ac_x_libraries
- # Update the cache value to reflect the command line values.
- ac_cv_have_x="have_x=yes\
- ac_x_includes='$x_includes'\
- ac_x_libraries='$x_libraries'"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: libraries $x_libraries, headers $x_includes" >&5
-$as_echo "libraries $x_libraries, headers $x_includes" >&6; }
-fi
-
-if test "$no_x" != yes; then
- window_system=x11
-fi
-
-LD_SWITCH_X_SITE_RPATH=
-if test "${x_libraries}" != NONE; then
- if test -n "${x_libraries}"; then
- LD_SWITCH_X_SITE=-L`echo ${x_libraries} | sed -e "s/:/ -L/g"`
- LD_SWITCH_X_SITE_RPATH=-Wl,-rpath,`echo ${x_libraries} | sed -e "s/:/ -Wl,-rpath,/g"`
- fi
- x_default_search_path=""
- x_search_path=${x_libraries}
- if test -z "${x_search_path}"; then
- x_search_path=/usr/lib
- fi
- for x_library in `echo ${x_search_path}: | \
- sed -e "s/:/ /g" -e p -e "s:/lib[^ /]* :/share :g"`; do
- x_search_path="\
-${x_library}/X11/%L/%T/%N%C%S:\
-${x_library}/X11/%l/%T/%N%C%S:\
-${x_library}/X11/%T/%N%C%S:\
-${x_library}/X11/%L/%T/%N%S:\
-${x_library}/X11/%l/%T/%N%S:\
-${x_library}/X11/%T/%N%S"
- if test x"${x_default_search_path}" = x; then
- x_default_search_path=${x_search_path}
- else
- x_default_search_path="${x_search_path}:${x_default_search_path}"
- fi
- done
-fi
-
-
-if test "${x_includes}" != NONE && test -n "${x_includes}"; then
- C_SWITCH_X_SITE="$isystem"`echo ${x_includes} | sed -e "s/:/ $isystem/g"`
-fi
-
-if test x"${x_includes}" = x; then
- bitmapdir=/usr/include/X11/bitmaps
-else
- # accumulate include directories that have X11 bitmap subdirectories
- bmd_acc="dummyval"
- for bmd in `echo ${x_includes} | sed -e "s/:/ /g"`; do
- if test -d "${bmd}/X11/bitmaps"; then
- bmd_acc="${bmd_acc}:${bmd}/X11/bitmaps"
- fi
- if test -d "${bmd}/bitmaps"; then
- bmd_acc="${bmd_acc}:${bmd}/bitmaps"
- fi
- done
- if test ${bmd_acc} != "dummyval"; then
- bitmapdir=`echo ${bmd_acc} | sed -e "s/^dummyval://"`
- fi
-fi
-
-HAVE_NS=no
-NS_IMPL_COCOA=no
-NS_IMPL_GNUSTEP=no
-tmp_CPPFLAGS="$CPPFLAGS"
-tmp_CFLAGS="$CFLAGS"
-CPPFLAGS="$CPPFLAGS -x objective-c"
-CFLAGS="$CFLAGS -x objective-c"
-GNU_OBJC_CFLAGS=
-LIBS_GNUSTEP=
-if test "${with_ns}" != no; then
- if test "${opsys}" = darwin; then
- NS_IMPL_COCOA=yes
- ns_appdir=`pwd`/nextstep/Emacs.app
- ns_appbindir=${ns_appdir}/Contents/MacOS
- ns_appresdir=${ns_appdir}/Contents/Resources
- ns_appsrc=Cocoa/Emacs.base
- elif test -f $GNUSTEP_CONFIG_FILE; then
- NS_IMPL_GNUSTEP=yes
- ns_appdir=`pwd`/nextstep/Emacs.app
- ns_appbindir=${ns_appdir}
- ns_appresdir=${ns_appdir}/Resources
- ns_appsrc=GNUstep/Emacs.base
- GNUSTEP_SYSTEM_HEADERS="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_HEADERS)"
- GNUSTEP_SYSTEM_LIBRARIES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_SYSTEM_LIBRARIES)"
- GNUSTEP_LOCAL_HEADERS="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_LOCAL_HEADERS)"
- GNUSTEP_LOCAL_LIBRARIES="$(. $GNUSTEP_CONFIG_FILE; echo $GNUSTEP_LOCAL_LIBRARIES)"
- test "x${GNUSTEP_LOCAL_HEADERS}" != "x" && \
- GNUSTEP_LOCAL_HEADERS="-I${GNUSTEP_LOCAL_HEADERS}"
- test "x${GNUSTEP_LOCAL_LIBRARIES}" != "x" && \
- GNUSTEP_LOCAL_LIBRARIES="-L${GNUSTEP_LOCAL_LIBRARIES}"
- CPPFLAGS="$CPPFLAGS -I${GNUSTEP_SYSTEM_HEADERS} ${GNUSTEP_LOCAL_HEADERS}"
- CFLAGS="$CFLAGS -I${GNUSTEP_SYSTEM_HEADERS} ${GNUSTEP_LOCAL_HEADERS}"
- LDFLAGS="$LDFLAGS -L${GNUSTEP_SYSTEM_LIBRARIES} ${GNUSTEP_LOCAL_LIBRARIES}"
- LIBS_GNUSTEP="-lgnustep-gui -lgnustep-base -lobjc -lpthread"
- LIB_STANDARD=
- START_FILES=
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if GNUstep defines BASE_NATIVE_OBJC_EXCEPTIONS" >&5
-$as_echo_n "checking if GNUstep defines BASE_NATIVE_OBJC_EXCEPTIONS... " >&6; }
-if ${emacs_cv_objc_exceptions+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <GNUstepBase/GSConfig.h>
-int
-main ()
-{
-#if defined BASE_NATIVE_OBJC_EXCEPTIONS && BASE_NATIVE_OBJC_EXCEPTIONS > 0
-1;
-#else
-fail;
-#endif
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_cv_objc_exceptions=yes
-else
- emacs_cv_objc_exceptions=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_objc_exceptions" >&5
-$as_echo "$emacs_cv_objc_exceptions" >&6; }
- if test $emacs_cv_objc_exceptions = yes; then
-
-$as_echo "#define _NATIVE_OBJC_EXCEPTIONS 1" >>confdefs.h
-
- GNU_OBJC_CFLAGS="-fobjc-exceptions"
- fi
- fi
-
- CFLAGS="$CFLAGS $GNU_OBJC_CFLAGS"
-
- ac_fn_c_check_header_mongrel "$LINENO" "AppKit/AppKit.h" "ac_cv_header_AppKit_AppKit_h" "$ac_includes_default"
-if test "x$ac_cv_header_AppKit_AppKit_h" = xyes; then :
- HAVE_NS=yes
-else
- as_fn_error $? "\`--with-ns' was specified, but the include
- files are missing or cannot be compiled." "$LINENO" 5
-fi
-
-
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <AppKit/AppKit.h>
-int
-main ()
-{
-
-#ifdef MAC_OS_X_VERSION_MAX_ALLOWED
-#if MAC_OS_X_VERSION_MAX_ALLOWED >= 1040
- ; /* OK */
-#else
-#error "OSX 10.4 or newer required"
-#endif
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ns_osx_have_104=yes
-else
- ns_osx_have_104=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <Foundation/NSObjCRuntime.h>
-int
-main ()
-{
-NSInteger i;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ns_have_nsinteger=yes
-else
- ns_have_nsinteger=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test $ns_osx_have_104 = no; then
- as_fn_error $? "\`OSX 10.4 or newer is required'" "$LINENO" 5;
- fi
- if test $ns_have_nsinteger = yes; then
-
-$as_echo "#define NS_HAVE_NSINTEGER 1" >>confdefs.h
-
- fi
-fi
-
-
-
-INSTALL_ARCH_INDEP_EXTRA=install-etc
-ns_self_contained=no
-NS_OBJ=
-NS_OBJC_OBJ=
-if test "${HAVE_NS}" = yes; then
- if test "$with_toolkit_scroll_bars" = "no"; then
- as_fn_error $? "Non-toolkit scroll bars are not implemented for Nextstep." "$LINENO" 5
- fi
-
- window_system=nextstep
- # set up packaging dirs
- if test "${EN_NS_SELF_CONTAINED}" = yes; then
- ns_self_contained=yes
- prefix=${ns_appresdir}
- exec_prefix=${ns_appbindir}
- libexecdir="\${ns_appbindir}/libexec"
- archlibdir="\${ns_appbindir}/libexec"
- docdir="\${ns_appresdir}/etc"
- etcdir="\${ns_appresdir}/etc"
- infodir="\${ns_appresdir}/info"
- mandir="\${ns_appresdir}/man"
- lispdir="\${ns_appresdir}/lisp"
- leimdir="\${ns_appresdir}/leim"
- INSTALL_ARCH_INDEP_EXTRA=
- fi
- NS_OBJC_OBJ="nsterm.o nsfns.o nsmenu.o nsselect.o nsimage.o nsfont.o"
-fi
-CFLAGS="$tmp_CFLAGS"
-CPPFLAGS="$tmp_CPPFLAGS"
-
-
-
-
-
-
-HAVE_W32=no
-W32_OBJ=
-W32_LIBS=
-if test "${with_w32}" != no; then
- if test "${opsys}" != "cygwin"; then
- as_fn_error $? "Using w32 with an autotools build is only supported for Cygwin." "$LINENO" 5
- fi
- ac_fn_c_check_header_mongrel "$LINENO" "windows.h" "ac_cv_header_windows_h" "$ac_includes_default"
-if test "x$ac_cv_header_windows_h" = xyes; then :
- HAVE_W32=yes
-else
- as_fn_error $? "\`--with-w32' was specified, but windows.h
- cannot be found." "$LINENO" 5
-fi
-
-
-
-$as_echo "#define HAVE_NTGUI 1" >>confdefs.h
-
- W32_OBJ="w32fns.o w32menu.o w32reg.o w32font.o w32term.o"
- W32_OBJ="$W32_OBJ w32xfns.o w32select.o w32uniscribe.o"
- W32_LIBS="$W32_LIBS -lkernel32 -luser32 -lgdi32 -lole32 -lcomdlg32"
- W32_LIBS="$W32_LIBS -lusp10 -lcomctl32 -lwinspool"
-fi
-
-
-
-if test "${HAVE_W32}" = "yes"; then
- window_system=w32
- with_xft=no
-fi
-
-## $window_system is now set to the window system we will
-## ultimately use.
-
-term_header=
-HAVE_X_WINDOWS=no
-HAVE_X11=no
-USE_X_TOOLKIT=none
-
-case "${window_system}" in
- x11 )
- HAVE_X_WINDOWS=yes
- HAVE_X11=yes
- term_header=xterm.h
- case "${with_x_toolkit}" in
- athena | lucid ) USE_X_TOOLKIT=LUCID ;;
- motif ) USE_X_TOOLKIT=MOTIF ;;
- gtk ) with_gtk=yes
- term_header=gtkutil.h
- USE_X_TOOLKIT=none ;;
- gtk2 ) with_gtk2=yes
- term_header=gtkutil.h
- USE_X_TOOLKIT=none ;;
- gtk3 ) with_gtk3=yes
- term_header=gtkutil.h
- USE_X_TOOLKIT=none ;;
- no ) USE_X_TOOLKIT=none ;;
- * ) USE_X_TOOLKIT=maybe ;;
- esac
- ;;
- nextstep )
- term_header=nsterm.h
- ;;
- w32 )
- term_header=w32term.h
- ;;
-esac
-
-if test "$window_system" = none && test "X$with_x" != "Xno"; then
- # Extract the first word of "X", so it can be a program name with args.
-set dummy X; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_HAVE_XSERVER+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$HAVE_XSERVER"; then
- ac_cv_prog_HAVE_XSERVER="$HAVE_XSERVER" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_HAVE_XSERVER="true"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- test -z "$ac_cv_prog_HAVE_XSERVER" && ac_cv_prog_HAVE_XSERVER="false"
-fi
-fi
-HAVE_XSERVER=$ac_cv_prog_HAVE_XSERVER
-if test -n "$HAVE_XSERVER"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $HAVE_XSERVER" >&5
-$as_echo "$HAVE_XSERVER" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- if test "$HAVE_XSERVER" = true ||
- test -n "$DISPLAY" ||
- test "`echo /usr/lib/libX11.*`" != "/usr/lib/libX11.*"; then
- as_fn_error $? "You seem to be running X, but no X development libraries
-were found. You should install the relevant development files for X
-and for the toolkit you want, such as Gtk+, Lesstif or Motif. Also make
-sure you have development files for image handling, i.e.
-tiff, gif, jpeg, png and xpm.
-If you are sure you want Emacs compiled without X window support, pass
- --without-x
-to configure." "$LINENO" 5
- fi
-fi
-
-### If we're using X11, we should use the X menu package.
-HAVE_MENUS=no
-case ${HAVE_X11} in
- yes ) HAVE_MENUS=yes ;;
-esac
-
-# Does the opsystem file prohibit the use of the GNU malloc?
-# Assume not, until told otherwise.
-GNU_MALLOC=yes
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether malloc is Doug Lea style" >&5
-$as_echo_n "checking whether malloc is Doug Lea style... " >&6; }
-if ${emacs_cv_var_doug_lea_malloc+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <malloc.h>
- static void hook (void) {}
-int
-main ()
-{
-malloc_set_state (malloc_get_state ());
- __after_morecore_hook = hook;
- __malloc_initialize_hook = hook;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_var_doug_lea_malloc=yes
-else
- emacs_cv_var_doug_lea_malloc=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_var_doug_lea_malloc" >&5
-$as_echo "$emacs_cv_var_doug_lea_malloc" >&6; }
-doug_lea_malloc=$emacs_cv_var_doug_lea_malloc
-
-
-system_malloc=no
-case "$opsys" in
- ## darwin ld insists on the use of malloc routines in the System framework.
- darwin|sol2-10) system_malloc=yes ;;
-esac
-
-if test "${system_malloc}" = "yes"; then
-
-$as_echo "#define SYSTEM_MALLOC 1" >>confdefs.h
-
- GNU_MALLOC=no
- GNU_MALLOC_reason="
- (The GNU allocators don't work with this system configuration.)"
- GMALLOC_OBJ=
- VMLIMIT_OBJ=
-else
- test "$doug_lea_malloc" != "yes" && GMALLOC_OBJ=gmalloc.o
- VMLIMIT_OBJ=vm-limit.o
-fi
-
-
-
-if test "$doug_lea_malloc" = "yes" ; then
- if test "$GNU_MALLOC" = yes ; then
- GNU_MALLOC_reason="
- (Using Doug Lea's new malloc from the GNU C Library.)"
- fi
-
-$as_echo "#define DOUG_LEA_MALLOC 1" >>confdefs.h
-
-
- ## Use mmap directly for allocating larger buffers.
- ## FIXME this comes from src/s/{gnu,gnu-linux}.h:
- ## #ifdef DOUG_LEA_MALLOC; #undef REL_ALLOC; #endif
- ## Does the AC_FUNC_MMAP test below make this check unnecessary?
- case "$opsys" in
- gnu*) REL_ALLOC=no ;;
- esac
-fi
-
-if test x"${REL_ALLOC}" = x; then
- REL_ALLOC=${GNU_MALLOC}
-fi
-
-use_mmap_for_buffers=no
-case "$opsys" in
- cygwin|freebsd|irix6-5) use_mmap_for_buffers=yes ;;
-esac
-
-
-
-
-
-
-
-
-for ac_func in getpagesize
-do :
- ac_fn_c_check_func "$LINENO" "getpagesize" "ac_cv_func_getpagesize"
-if test "x$ac_cv_func_getpagesize" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_GETPAGESIZE 1
-_ACEOF
-
-fi
-done
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for working mmap" >&5
-$as_echo_n "checking for working mmap... " >&6; }
-if ${ac_cv_func_mmap_fixed_mapped+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- ac_cv_func_mmap_fixed_mapped=no
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$ac_includes_default
-/* malloc might have been renamed as rpl_malloc. */
-#undef malloc
-
-/* Thanks to Mike Haertel and Jim Avera for this test.
- Here is a matrix of mmap possibilities:
- mmap private not fixed
- mmap private fixed at somewhere currently unmapped
- mmap private fixed at somewhere already mapped
- mmap shared not fixed
- mmap shared fixed at somewhere currently unmapped
- mmap shared fixed at somewhere already mapped
- For private mappings, we should verify that changes cannot be read()
- back from the file, nor mmap's back from the file at a different
- address. (There have been systems where private was not correctly
- implemented like the infamous i386 svr4.0, and systems where the
- VM page cache was not coherent with the file system buffer cache
- like early versions of FreeBSD and possibly contemporary NetBSD.)
- For shared mappings, we should conversely verify that changes get
- propagated back to all the places they're supposed to be.
-
- Grep wants private fixed already mapped.
- The main things grep needs to know about mmap are:
- * does it exist and is it safe to write into the mmap'd area
- * how to use it (BSD variants) */
-
-#include <fcntl.h>
-#include <sys/mman.h>
-
-#if !defined STDC_HEADERS && !defined HAVE_STDLIB_H
-char *malloc ();
-#endif
-
-/* This mess was copied from the GNU getpagesize.h. */
-#ifndef HAVE_GETPAGESIZE
-# ifdef _SC_PAGESIZE
-# define getpagesize() sysconf(_SC_PAGESIZE)
-# else /* no _SC_PAGESIZE */
-# ifdef HAVE_SYS_PARAM_H
-# include <sys/param.h>
-# ifdef EXEC_PAGESIZE
-# define getpagesize() EXEC_PAGESIZE
-# else /* no EXEC_PAGESIZE */
-# ifdef NBPG
-# define getpagesize() NBPG * CLSIZE
-# ifndef CLSIZE
-# define CLSIZE 1
-# endif /* no CLSIZE */
-# else /* no NBPG */
-# ifdef NBPC
-# define getpagesize() NBPC
-# else /* no NBPC */
-# ifdef PAGESIZE
-# define getpagesize() PAGESIZE
-# endif /* PAGESIZE */
-# endif /* no NBPC */
-# endif /* no NBPG */
-# endif /* no EXEC_PAGESIZE */
-# else /* no HAVE_SYS_PARAM_H */
-# define getpagesize() 8192 /* punt totally */
-# endif /* no HAVE_SYS_PARAM_H */
-# endif /* no _SC_PAGESIZE */
-
-#endif /* no HAVE_GETPAGESIZE */
-
-int
-main ()
-{
- char *data, *data2, *data3;
- const char *cdata2;
- int i, pagesize;
- int fd, fd2;
-
- pagesize = getpagesize ();
-
- /* First, make a file with some known garbage in it. */
- data = (char *) malloc (pagesize);
- if (!data)
- return 1;
- for (i = 0; i < pagesize; ++i)
- *(data + i) = rand ();
- umask (0);
- fd = creat ("conftest.mmap", 0600);
- if (fd < 0)
- return 2;
- if (write (fd, data, pagesize) != pagesize)
- return 3;
- close (fd);
-
- /* Next, check that the tail of a page is zero-filled. File must have
- non-zero length, otherwise we risk SIGBUS for entire page. */
- fd2 = open ("conftest.txt", O_RDWR | O_CREAT | O_TRUNC, 0600);
- if (fd2 < 0)
- return 4;
- cdata2 = "";
- if (write (fd2, cdata2, 1) != 1)
- return 5;
- data2 = (char *) mmap (0, pagesize, PROT_READ | PROT_WRITE, MAP_SHARED, fd2, 0L);
- if (data2 == MAP_FAILED)
- return 6;
- for (i = 0; i < pagesize; ++i)
- if (*(data2 + i))
- return 7;
- close (fd2);
- if (munmap (data2, pagesize))
- return 8;
-
- /* Next, try to mmap the file at a fixed address which already has
- something else allocated at it. If we can, also make sure that
- we see the same garbage. */
- fd = open ("conftest.mmap", O_RDWR);
- if (fd < 0)
- return 9;
- if (data2 != mmap (data2, pagesize, PROT_READ | PROT_WRITE,
- MAP_PRIVATE | MAP_FIXED, fd, 0L))
- return 10;
- for (i = 0; i < pagesize; ++i)
- if (*(data + i) != *(data2 + i))
- return 11;
-
- /* Finally, make sure that changes to the mapped area do not
- percolate back to the file as seen by read(). (This is a bug on
- some variants of i386 svr4.0.) */
- for (i = 0; i < pagesize; ++i)
- *(data2 + i) = *(data2 + i) + 1;
- data3 = (char *) malloc (pagesize);
- if (!data3)
- return 12;
- if (read (fd, data3, pagesize) != pagesize)
- return 13;
- for (i = 0; i < pagesize; ++i)
- if (*(data + i) != *(data3 + i))
- return 14;
- close (fd);
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- ac_cv_func_mmap_fixed_mapped=yes
-else
- ac_cv_func_mmap_fixed_mapped=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_mmap_fixed_mapped" >&5
-$as_echo "$ac_cv_func_mmap_fixed_mapped" >&6; }
-if test $ac_cv_func_mmap_fixed_mapped = yes; then
-
-$as_echo "#define HAVE_MMAP 1" >>confdefs.h
-
-fi
-rm -f conftest.mmap conftest.txt
-
-if test $use_mmap_for_buffers = yes; then
-
-$as_echo "#define USE_MMAP_FOR_BUFFERS 1" >>confdefs.h
-
- REL_ALLOC=no
-fi
-
-LIBS="$LIBS_SYSTEM $LIBS"
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for dnet_ntoa in -ldnet" >&5
-$as_echo_n "checking for dnet_ntoa in -ldnet... " >&6; }
-if ${ac_cv_lib_dnet_dnet_ntoa+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldnet $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 dnet_ntoa ();
-int
-main ()
-{
-return dnet_ntoa ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dnet_dnet_ntoa=yes
-else
- ac_cv_lib_dnet_dnet_ntoa=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dnet_dnet_ntoa" >&5
-$as_echo "$ac_cv_lib_dnet_dnet_ntoa" >&6; }
-if test "x$ac_cv_lib_dnet_dnet_ntoa" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBDNET 1
-_ACEOF
-
- LIBS="-ldnet $LIBS"
-
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for main in -lXbsd" >&5
-$as_echo_n "checking for main in -lXbsd... " >&6; }
-if ${ac_cv_lib_Xbsd_main+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXbsd $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-
-int
-main ()
-{
-return main ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_Xbsd_main=yes
-else
- ac_cv_lib_Xbsd_main=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xbsd_main" >&5
-$as_echo "$ac_cv_lib_Xbsd_main" >&6; }
-if test "x$ac_cv_lib_Xbsd_main" = xyes; then :
- LD_SWITCH_X_SITE="$LD_SWITCH_X_SITE -lXbsd"
-fi
-
-
-LIB_PTHREAD=
-
-
-
-if test "$ac_cv_header_pthread_h"; then
- if test "$GMALLOC_OBJ" = gmalloc.o; then
- emacs_pthread_function=pthread_atfork
- else
- emacs_pthread_function=pthread_self
- fi
- as_ac_Lib=`$as_echo "ac_cv_lib_pthread_$emacs_pthread_function" | $as_tr_sh`
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $emacs_pthread_function in -lpthread" >&5
-$as_echo_n "checking for $emacs_pthread_function in -lpthread... " >&6; }
-if eval \${$as_ac_Lib+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lpthread $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 $emacs_pthread_function ();
-int
-main ()
-{
-return $emacs_pthread_function ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- eval "$as_ac_Lib=yes"
-else
- eval "$as_ac_Lib=no"
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-eval ac_res=\$$as_ac_Lib
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then :
- HAVE_PTHREAD=yes
-fi
-
-fi
-if test "$HAVE_PTHREAD" = yes; then
- case "${canonical}" in
- *-hpux*) ;;
- *) LIB_PTHREAD="-lpthread"
- LIBS="$LIB_PTHREAD $LIBS" ;;
- esac
-
-$as_echo "#define HAVE_PTHREAD 1" >>confdefs.h
-
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for cma_open in -lpthreads" >&5
-$as_echo_n "checking for cma_open in -lpthreads... " >&6; }
-if ${ac_cv_lib_pthreads_cma_open+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lpthreads $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 cma_open ();
-int
-main ()
-{
-return cma_open ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_pthreads_cma_open=yes
-else
- ac_cv_lib_pthreads_cma_open=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthreads_cma_open" >&5
-$as_echo "$ac_cv_lib_pthreads_cma_open" >&6; }
-if test "x$ac_cv_lib_pthreads_cma_open" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBPTHREADS 1
-_ACEOF
-
- LIBS="-lpthreads $LIBS"
-
-fi
-
-
-## Note: when using cpp in s/aix4.2.h, this definition depended on
-## HAVE_LIBPTHREADS. That was not defined earlier in configure when
-## the system file was sourced. Hence the value of LIBS_SYSTEM
-## added to LIBS in configure would never contain the pthreads part,
-## but the value used in Makefiles might. FIXME?
-##
-## -lpthreads seems to be necessary for Xlib in X11R6, and should
-## be harmless on older versions of X where it happens to exist.
-test "$opsys" = "aix4-2" && \
- test $ac_cv_lib_pthreads_cma_open = yes && \
- LIBS_SYSTEM="$LIBS_SYSTEM -lpthreads"
-
-
-case ${host_os} in
-aix*)
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -bbigtoc option" >&5
-$as_echo_n "checking for -bbigtoc option... " >&6; }
-if ${gdb_cv_bigtoc+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- case $GCC in
- yes) gdb_cv_bigtoc=-Wl,-bbigtoc ;;
- *) gdb_cv_bigtoc=-bbigtoc ;;
- esac
-
- LDFLAGS=$LDFLAGS\ $gdb_cv_bigtoc
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-int i;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
-else
- gdb_cv_bigtoc=
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gdb_cv_bigtoc" >&5
-$as_echo "$gdb_cv_bigtoc" >&6; }
- ;;
-esac
-
-# Change CFLAGS and CPPFLAGS temporarily so that C_SWITCH_X_SITE gets
-# used for the tests that follow. We set them back to REAL_CFLAGS and
-# REAL_CPPFLAGS later on.
-
-REAL_CFLAGS="$CFLAGS"
-REAL_CPPFLAGS="$CPPFLAGS"
-
-if test "${HAVE_X11}" = "yes"; then
- DEFS="$C_SWITCH_X_SITE $DEFS"
- LDFLAGS="$LDFLAGS $LD_SWITCH_X_SITE"
- LIBS="-lX11 $LIBS"
- CFLAGS="$C_SWITCH_X_SITE $CFLAGS"
- CPPFLAGS="$C_SWITCH_X_SITE $CPPFLAGS"
-
- # On Solaris, arrange for LD_RUN_PATH to point to the X libraries for tests.
- # This is handled by LD_SWITCH_X_SITE_RPATH during the real build,
- # but it's more convenient here to set LD_RUN_PATH since this
- # also works on hosts that don't understand LD_SWITCH_X_SITE_RPATH.
- if test "${x_libraries}" != NONE && test -n "${x_libraries}"; then
- LD_RUN_PATH=$x_libraries${LD_RUN_PATH+:}$LD_RUN_PATH
- export LD_RUN_PATH
- fi
-
- if test "${opsys}" = "gnu-linux"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether X on GNU/Linux needs -b to link" >&5
-$as_echo_n "checking whether X on GNU/Linux needs -b to link... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-XOpenDisplay ("foo");
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- xgnu_linux_first_failure=no
-else
- xgnu_linux_first_failure=yes
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if test "${xgnu_linux_first_failure}" = "yes"; then
- OLD_LD_SWITCH_X_SITE="$LD_SWITCH_X_SITE"
- OLD_C_SWITCH_X_SITE="$C_SWITCH_X_SITE"
- OLD_CPPFLAGS="$CPPFLAGS"
- OLD_LIBS="$LIBS"
- LD_SWITCH_X_SITE="$LD_SWITCH_X_SITE -b i486-linuxaout"
- C_SWITCH_X_SITE="$C_SWITCH_X_SITE -b i486-linuxaout"
- CPPFLAGS="$CPPFLAGS -b i486-linuxaout"
- LIBS="$LIBS -b i486-linuxaout"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-XOpenDisplay ("foo");
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- xgnu_linux_second_failure=no
-else
- xgnu_linux_second_failure=yes
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if test "${xgnu_linux_second_failure}" = "yes"; then
- # If we get the same failure with -b, there is no use adding -b.
- # So take it out. This plays safe.
- LD_SWITCH_X_SITE="$OLD_LD_SWITCH_X_SITE"
- C_SWITCH_X_SITE="$OLD_C_SWITCH_X_SITE"
- CPPFLAGS="$OLD_CPPFLAGS"
- LIBS="$OLD_LIBS"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- fi
- fi
-
- # Reportedly, some broken Solaris systems have XKBlib.h but are missing
- # header files included from there.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Xkb" >&5
-$as_echo_n "checking for Xkb... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <X11/Xlib.h>
-#include <X11/XKBlib.h>
-int
-main ()
-{
-XkbDescPtr kb = XkbGetKeyboard (0, XkbAllComponentsMask, XkbUseCoreKbd);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_xkb=yes
-else
- emacs_xkb=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_xkb" >&5
-$as_echo "$emacs_xkb" >&6; }
- if test $emacs_xkb = yes; then
-
-$as_echo "#define HAVE_XKBGETKEYBOARD 1" >>confdefs.h
-
- fi
-
- for ac_func in XrmSetDatabase XScreenResourceString \
-XScreenNumberOfScreen
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
-fi
-
-if test "${window_system}" = "x11"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking X11 version 6" >&5
-$as_echo_n "checking X11 version 6... " >&6; }
- if ${emacs_cv_x11_version_6+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <X11/Xlib.h>
-int
-main ()
-{
-#if XlibSpecificationRelease < 6
-fail;
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_x11_version_6=yes
-else
- emacs_cv_x11_version_6=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-
- if test $emacs_cv_x11_version_6 = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: 6 or newer" >&5
-$as_echo "6 or newer" >&6; }
-
-$as_echo "#define HAVE_X11R6 1" >>confdefs.h
-
-
-$as_echo "#define HAVE_X_I18N 1" >>confdefs.h
-
- ## inoue@ainet.or.jp says Solaris has a bug related to X11R6-style
- ## XIM support.
- case "$opsys" in
- sol2-*) : ;;
- *)
-$as_echo "#define HAVE_X11R6_XIM 1" >>confdefs.h
-
- ;;
- esac
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: before 6" >&5
-$as_echo "before 6" >&6; }
- fi
-fi
-
-
-### Use -lrsvg-2 if available, unless `--with-rsvg=no' is specified.
-HAVE_RSVG=no
-if test "${HAVE_X11}" = "yes" || test "${HAVE_NS}" = "yes"; then
- if test "${with_rsvg}" != "no"; then
- RSVG_REQUIRED=2.11.0
- RSVG_MODULE="librsvg-2.0 >= $RSVG_REQUIRED"
-
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- :
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $RSVG_MODULE" >&5
-$as_echo_n "checking for $RSVG_MODULE... " >&6; }
-
- if $PKG_CONFIG --exists "$RSVG_MODULE" 2>&5 &&
- RSVG_CFLAGS=`$PKG_CONFIG --cflags "$RSVG_MODULE" 2>&5` &&
- RSVG_LIBS=`$PKG_CONFIG --libs "$RSVG_MODULE" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- RSVG_CFLAGS=`$as_echo "$RSVG_CFLAGS" | sed -e "$edit_cflags"`
- RSVG_LIBS=`$as_echo "$RSVG_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$RSVG_CFLAGS' LIBS='$RSVG_LIBS'" >&5
-$as_echo "yes CFLAGS='$RSVG_CFLAGS' LIBS='$RSVG_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- RSVG_CFLAGS=""
- RSVG_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- RSVG_PKG_ERRORS=`($PKG_CONFIG --print-errors "$RSVG_MODULE") 2>&1`
-
- 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
- HAVE_RSVG=yes
- else
- :
- fi
-
-
-
-
- if test $HAVE_RSVG = yes; then
-
-$as_echo "#define HAVE_RSVG 1" >>confdefs.h
-
- CFLAGS="$CFLAGS $RSVG_CFLAGS"
- LIBS="$RSVG_LIBS $LIBS"
- fi
- fi
-fi
-
-HAVE_IMAGEMAGICK=no
-if test "${HAVE_X11}" = "yes"; then
- if test "${with_imagemagick}" != "no"; then
- ## 6.2.8 is the earliest version known to work, but earlier versions
- ## might work - let us know if you find one.
- ## 6.0.7 does not work. See bug#7955.
- IMAGEMAGICK_MODULE="Wand >= 6.2.8"
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- :
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $IMAGEMAGICK_MODULE" >&5
-$as_echo_n "checking for $IMAGEMAGICK_MODULE... " >&6; }
-
- if $PKG_CONFIG --exists "$IMAGEMAGICK_MODULE" 2>&5 &&
- IMAGEMAGICK_CFLAGS=`$PKG_CONFIG --cflags "$IMAGEMAGICK_MODULE" 2>&5` &&
- IMAGEMAGICK_LIBS=`$PKG_CONFIG --libs "$IMAGEMAGICK_MODULE" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- IMAGEMAGICK_CFLAGS=`$as_echo "$IMAGEMAGICK_CFLAGS" | sed -e "$edit_cflags"`
- IMAGEMAGICK_LIBS=`$as_echo "$IMAGEMAGICK_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$IMAGEMAGICK_CFLAGS' LIBS='$IMAGEMAGICK_LIBS'" >&5
-$as_echo "yes CFLAGS='$IMAGEMAGICK_CFLAGS' LIBS='$IMAGEMAGICK_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- IMAGEMAGICK_CFLAGS=""
- IMAGEMAGICK_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- IMAGEMAGICK_PKG_ERRORS=`($PKG_CONFIG --print-errors "$IMAGEMAGICK_MODULE") 2>&1`
-
- 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
- HAVE_IMAGEMAGICK=yes
- else
- :
- fi
-
-
-
-
- if test $HAVE_IMAGEMAGICK = yes; then
-
-$as_echo "#define HAVE_IMAGEMAGICK 1" >>confdefs.h
-
- CFLAGS="$CFLAGS $IMAGEMAGICK_CFLAGS"
- LIBS="$IMAGEMAGICK_LIBS $LIBS"
- for ac_func in MagickExportImagePixels MagickMergeImageLayers
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
- fi
- fi
-fi
-
-
-HAVE_GTK=no
-GTK_OBJ=
-check_gtk2=no
-gtk3_pkg_errors=
-if test "${with_gtk3}" = "yes" || test "${with_gtk}" = "yes" || test "$USE_X_TOOLKIT" = "maybe"; then
- GLIB_REQUIRED=2.28
- GTK_REQUIRED=3.0
- GTK_MODULES="gtk+-3.0 >= $GTK_REQUIRED glib-2.0 >= $GLIB_REQUIRED"
-
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- pkg_check_gtk=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $GTK_MODULES" >&5
-$as_echo_n "checking for $GTK_MODULES... " >&6; }
-
- if $PKG_CONFIG --exists "$GTK_MODULES" 2>&5 &&
- GTK_CFLAGS=`$PKG_CONFIG --cflags "$GTK_MODULES" 2>&5` &&
- GTK_LIBS=`$PKG_CONFIG --libs "$GTK_MODULES" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- GTK_CFLAGS=`$as_echo "$GTK_CFLAGS" | sed -e "$edit_cflags"`
- GTK_LIBS=`$as_echo "$GTK_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$GTK_CFLAGS' LIBS='$GTK_LIBS'" >&5
-$as_echo "yes CFLAGS='$GTK_CFLAGS' LIBS='$GTK_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- GTK_CFLAGS=""
- GTK_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- GTK_PKG_ERRORS=`($PKG_CONFIG --print-errors "$GTK_MODULES") 2>&1`
-
- 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
- pkg_check_gtk=yes
- else
- pkg_check_gtk=no
- fi
-
- if test "$pkg_check_gtk" = "no" && test "$with_gtk3" = "yes"; then
- as_fn_error $? "$GTK_PKG_ERRORS" "$LINENO" 5
- fi
- if test "$pkg_check_gtk" = "yes"; then
-
-$as_echo "#define HAVE_GTK3 1" >>confdefs.h
-
- GTK_OBJ=emacsgtkfixed.o
- term_header=gtkutil.h
- USE_GTK_TOOLKIT="GTK3"
- else
- check_gtk2=yes
- gtk3_pkg_errors="$GTK_PKG_ERRORS "
- fi
-fi
-
-if test "${with_gtk2}" = "yes" || test "$check_gtk2" = "yes"; then
- GLIB_REQUIRED=2.10
- GTK_REQUIRED=2.10
- GTK_MODULES="gtk+-2.0 >= $GTK_REQUIRED glib-2.0 >= $GLIB_REQUIRED"
-
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- pkg_check_gtk=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $GTK_MODULES" >&5
-$as_echo_n "checking for $GTK_MODULES... " >&6; }
-
- if $PKG_CONFIG --exists "$GTK_MODULES" 2>&5 &&
- GTK_CFLAGS=`$PKG_CONFIG --cflags "$GTK_MODULES" 2>&5` &&
- GTK_LIBS=`$PKG_CONFIG --libs "$GTK_MODULES" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- GTK_CFLAGS=`$as_echo "$GTK_CFLAGS" | sed -e "$edit_cflags"`
- GTK_LIBS=`$as_echo "$GTK_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$GTK_CFLAGS' LIBS='$GTK_LIBS'" >&5
-$as_echo "yes CFLAGS='$GTK_CFLAGS' LIBS='$GTK_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- GTK_CFLAGS=""
- GTK_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- GTK_PKG_ERRORS=`($PKG_CONFIG --print-errors "$GTK_MODULES") 2>&1`
-
- 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
- pkg_check_gtk=yes
- else
- pkg_check_gtk=no
- fi
-
- if test "$pkg_check_gtk" = "no" &&
- { test "$with_gtk" = yes || test "$with_gtk2" = "yes"; }
- then
- as_fn_error $? "$gtk3_pkg_errors$GTK_PKG_ERRORS" "$LINENO" 5
- fi
- test "$pkg_check_gtk" = "yes" && USE_GTK_TOOLKIT="GTK2"
-fi
-
-if test x"$pkg_check_gtk" = xyes; then
-
-
-
- C_SWITCH_X_SITE="$C_SWITCH_X_SITE $GTK_CFLAGS"
- CFLAGS="$CFLAGS $GTK_CFLAGS"
- LIBS="$GTK_LIBS $LIBS"
- GTK_COMPILES=no
- for ac_func in gtk_main
-do :
- ac_fn_c_check_func "$LINENO" "gtk_main" "ac_cv_func_gtk_main"
-if test "x$ac_cv_func_gtk_main" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_GTK_MAIN 1
-_ACEOF
- GTK_COMPILES=yes
-fi
-done
-
- if test "${GTK_COMPILES}" != "yes"; then
- if test "$USE_X_TOOLKIT" != "maybe"; then
- as_fn_error $? "Gtk+ wanted, but it does not compile, see config.log. Maybe some x11-devel files missing?" "$LINENO" 5;
- fi
- else
- HAVE_GTK=yes
-
-$as_echo "#define USE_GTK 1" >>confdefs.h
-
- GTK_OBJ="gtkutil.o $GTK_OBJ"
- USE_X_TOOLKIT=none
- if $PKG_CONFIG --atleast-version=2.10 gtk+-2.0; then
- :
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Your version of Gtk+ will have problems with
- closing open displays. This is no problem if you just use
- one display, but if you use more than one and close one of them
- Emacs may crash." >&5
-$as_echo "$as_me: WARNING: Your version of Gtk+ will have problems with
- closing open displays. This is no problem if you just use
- one display, but if you use more than one and close one of them
- Emacs may crash." >&2;}
- sleep 3
- fi
- fi
-
-fi
-
-
-
-if test "${HAVE_GTK}" = "yes"; then
-
- if test "$with_toolkit_scroll_bars" != no; then
- with_toolkit_scroll_bars=yes
- fi
-
- HAVE_GTK_FILE_SELECTION=no
- ac_fn_c_check_decl "$LINENO" "GTK_TYPE_FILE_SELECTION" "ac_cv_have_decl_GTK_TYPE_FILE_SELECTION" "$ac_includes_default
-#include <gtk/gtk.h>
-"
-if test "x$ac_cv_have_decl_GTK_TYPE_FILE_SELECTION" = xyes; then :
- HAVE_GTK_FILE_SELECTION=yes
-else
- HAVE_GTK_FILE_SELECTION=no
-fi
-
- if test "$HAVE_GTK_FILE_SELECTION" = yes; then
- for ac_func in gtk_file_selection_new
-do :
- ac_fn_c_check_func "$LINENO" "gtk_file_selection_new" "ac_cv_func_gtk_file_selection_new"
-if test "x$ac_cv_func_gtk_file_selection_new" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_GTK_FILE_SELECTION_NEW 1
-_ACEOF
-
-fi
-done
-
- fi
-
-
- for ac_func in gtk_widget_get_window gtk_widget_set_has_window \
- gtk_dialog_get_action_area gtk_widget_get_sensitive \
- gtk_widget_get_mapped gtk_adjustment_get_page_size \
- gtk_orientable_set_orientation \
- gtk_window_set_has_resize_grip
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
-
- term_header=gtkutil.h
-fi
-
-HAVE_DBUS=no
-DBUS_OBJ=
-if test "${with_dbus}" = "yes"; then
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_DBUS=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dbus-1 >= 1.0" >&5
-$as_echo_n "checking for dbus-1 >= 1.0... " >&6; }
-
- if $PKG_CONFIG --exists "dbus-1 >= 1.0" 2>&5 &&
- DBUS_CFLAGS=`$PKG_CONFIG --cflags "dbus-1 >= 1.0" 2>&5` &&
- DBUS_LIBS=`$PKG_CONFIG --libs "dbus-1 >= 1.0" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- DBUS_CFLAGS=`$as_echo "$DBUS_CFLAGS" | sed -e "$edit_cflags"`
- DBUS_LIBS=`$as_echo "$DBUS_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$DBUS_CFLAGS' LIBS='$DBUS_LIBS'" >&5
-$as_echo "yes CFLAGS='$DBUS_CFLAGS' LIBS='$DBUS_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- DBUS_CFLAGS=""
- DBUS_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- DBUS_PKG_ERRORS=`($PKG_CONFIG --print-errors "dbus-1 >= 1.0") 2>&1`
-
- 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
- HAVE_DBUS=yes
- else
- HAVE_DBUS=no
- fi
-
- if test "$HAVE_DBUS" = yes; then
- LIBS="$LIBS $DBUS_LIBS"
-
-$as_echo "#define HAVE_DBUS 1" >>confdefs.h
-
- for ac_func in dbus_watch_get_unix_fd \
- dbus_type_is_valid \
- dbus_validate_bus_name \
- dbus_validate_path \
- dbus_validate_interface \
- dbus_validate_member
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
- DBUS_OBJ=dbusbind.o
- fi
-fi
-
-
-HAVE_GSETTINGS=no
-if test "${HAVE_X11}" = "yes" && test "${with_gsettings}" = "yes"; then
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_GSETTINGS=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gio-2.0 >= 2.26" >&5
-$as_echo_n "checking for gio-2.0 >= 2.26... " >&6; }
-
- if $PKG_CONFIG --exists "gio-2.0 >= 2.26" 2>&5 &&
- GSETTINGS_CFLAGS=`$PKG_CONFIG --cflags "gio-2.0 >= 2.26" 2>&5` &&
- GSETTINGS_LIBS=`$PKG_CONFIG --libs "gio-2.0 >= 2.26" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- GSETTINGS_CFLAGS=`$as_echo "$GSETTINGS_CFLAGS" | sed -e "$edit_cflags"`
- GSETTINGS_LIBS=`$as_echo "$GSETTINGS_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$GSETTINGS_CFLAGS' LIBS='$GSETTINGS_LIBS'" >&5
-$as_echo "yes CFLAGS='$GSETTINGS_CFLAGS' LIBS='$GSETTINGS_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- GSETTINGS_CFLAGS=""
- GSETTINGS_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- GSETTINGS_PKG_ERRORS=`($PKG_CONFIG --print-errors "gio-2.0 >= 2.26") 2>&1`
-
- 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
- HAVE_GSETTINGS=yes
- else
- HAVE_GSETTINGS=no
- fi
-
- if test "$HAVE_GSETTINGS" = "yes"; then
-
-$as_echo "#define HAVE_GSETTINGS 1" >>confdefs.h
-
- SETTINGS_CFLAGS="$GSETTINGS_CFLAGS"
- SETTINGS_LIBS="$GSETTINGS_LIBS"
- fi
-fi
-
-HAVE_GCONF=no
-if test "${HAVE_X11}" = "yes" && test "${with_gconf}" = "yes"; then
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_GCONF=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gconf-2.0 >= 2.13" >&5
-$as_echo_n "checking for gconf-2.0 >= 2.13... " >&6; }
-
- if $PKG_CONFIG --exists "gconf-2.0 >= 2.13" 2>&5 &&
- GCONF_CFLAGS=`$PKG_CONFIG --cflags "gconf-2.0 >= 2.13" 2>&5` &&
- GCONF_LIBS=`$PKG_CONFIG --libs "gconf-2.0 >= 2.13" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- GCONF_CFLAGS=`$as_echo "$GCONF_CFLAGS" | sed -e "$edit_cflags"`
- GCONF_LIBS=`$as_echo "$GCONF_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$GCONF_CFLAGS' LIBS='$GCONF_LIBS'" >&5
-$as_echo "yes CFLAGS='$GCONF_CFLAGS' LIBS='$GCONF_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- GCONF_CFLAGS=""
- GCONF_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- GCONF_PKG_ERRORS=`($PKG_CONFIG --print-errors "gconf-2.0 >= 2.13") 2>&1`
-
- 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
- HAVE_GCONF=yes
- else
- HAVE_GCONF=no
- fi
-
- if test "$HAVE_GCONF" = yes; then
-
-$as_echo "#define HAVE_GCONF 1" >>confdefs.h
-
- SETTINGS_CFLAGS="$SETTINGS_CFLAGS $GCONF_CFLAGS"
- SETTINGS_LIBS="$SETTINGS_LIBS $GCONF_LIBS"
- fi
-fi
-
-if test "$HAVE_GSETTINGS" = "yes" || test "$HAVE_GCONF" = "yes"; then
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_GOBJECT=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gobject-2.0 >= 2.0" >&5
-$as_echo_n "checking for gobject-2.0 >= 2.0... " >&6; }
-
- if $PKG_CONFIG --exists "gobject-2.0 >= 2.0" 2>&5 &&
- GOBJECT_CFLAGS=`$PKG_CONFIG --cflags "gobject-2.0 >= 2.0" 2>&5` &&
- GOBJECT_LIBS=`$PKG_CONFIG --libs "gobject-2.0 >= 2.0" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- GOBJECT_CFLAGS=`$as_echo "$GOBJECT_CFLAGS" | sed -e "$edit_cflags"`
- GOBJECT_LIBS=`$as_echo "$GOBJECT_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$GOBJECT_CFLAGS' LIBS='$GOBJECT_LIBS'" >&5
-$as_echo "yes CFLAGS='$GOBJECT_CFLAGS' LIBS='$GOBJECT_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- GOBJECT_CFLAGS=""
- GOBJECT_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- GOBJECT_PKG_ERRORS=`($PKG_CONFIG --print-errors "gobject-2.0 >= 2.0") 2>&1`
-
- 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
- HAVE_GOBJECT=yes
- else
- HAVE_GOBJECT=no
- fi
-
- if test "$HAVE_GOBJECT" = "yes"; then
- SETTINGS_CFLAGS="$SETTINGS_CFLAGS $GOBJECT_CFLAGS"
- SETTINGS_LIBS="$SETTINGS_LIBS $GOBJECT_LIBS"
- fi
- SAVE_CFLAGS="$CFLAGS"
- SAVE_LIBS="$LIBS"
- CFLAGS="$SETTINGS_CFLAGS $CFLAGS"
- LIBS="$SETTINGS_LIBS $LIBS"
- for ac_func in g_type_init
-do :
- ac_fn_c_check_func "$LINENO" "g_type_init" "ac_cv_func_g_type_init"
-if test "x$ac_cv_func_g_type_init" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_G_TYPE_INIT 1
-_ACEOF
-
-fi
-done
-
- CFLAGS="$SAVE_CFLAGS"
- LIBS="$SAVE_LIBS"
-fi
-
-
-
-
-HAVE_LIBSELINUX=no
-LIBSELINUX_LIBS=
-if test "${with_selinux}" = "yes"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for lgetfilecon in -lselinux" >&5
-$as_echo_n "checking for lgetfilecon in -lselinux... " >&6; }
-if ${ac_cv_lib_selinux_lgetfilecon+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lselinux $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 lgetfilecon ();
-int
-main ()
-{
-return lgetfilecon ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_selinux_lgetfilecon=yes
-else
- ac_cv_lib_selinux_lgetfilecon=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_selinux_lgetfilecon" >&5
-$as_echo "$ac_cv_lib_selinux_lgetfilecon" >&6; }
-if test "x$ac_cv_lib_selinux_lgetfilecon" = xyes; then :
- HAVE_LIBSELINUX=yes
-else
- HAVE_LIBSELINUX=no
-fi
-
- if test "$HAVE_LIBSELINUX" = yes; then
-
-$as_echo "#define HAVE_LIBSELINUX 1" >>confdefs.h
-
- LIBSELINUX_LIBS=-lselinux
- fi
-fi
-
-
-HAVE_GNUTLS=no
-HAVE_GNUTLS_CALLBACK_CERTIFICATE_VERIFY=no
-if test "${with_gnutls}" = "yes" ; then
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_GNUTLS=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gnutls >= 2.6.6" >&5
-$as_echo_n "checking for gnutls >= 2.6.6... " >&6; }
-
- if $PKG_CONFIG --exists "gnutls >= 2.6.6" 2>&5 &&
- LIBGNUTLS_CFLAGS=`$PKG_CONFIG --cflags "gnutls >= 2.6.6" 2>&5` &&
- LIBGNUTLS_LIBS=`$PKG_CONFIG --libs "gnutls >= 2.6.6" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- LIBGNUTLS_CFLAGS=`$as_echo "$LIBGNUTLS_CFLAGS" | sed -e "$edit_cflags"`
- LIBGNUTLS_LIBS=`$as_echo "$LIBGNUTLS_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$LIBGNUTLS_CFLAGS' LIBS='$LIBGNUTLS_LIBS'" >&5
-$as_echo "yes CFLAGS='$LIBGNUTLS_CFLAGS' LIBS='$LIBGNUTLS_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- LIBGNUTLS_CFLAGS=""
- LIBGNUTLS_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- LIBGNUTLS_PKG_ERRORS=`($PKG_CONFIG --print-errors "gnutls >= 2.6.6") 2>&1`
-
- 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
- HAVE_GNUTLS=yes
- else
- HAVE_GNUTLS=no
- fi
-
- if test "${HAVE_GNUTLS}" = "yes"; then
-
-$as_echo "#define HAVE_GNUTLS 1" >>confdefs.h
-
- fi
-
- CFLAGS="$CFLAGS $LIBGNUTLS_CFLAGS"
- LIBS="$LIBGNUTLS_LIBS $LIBS"
- for ac_func in gnutls_certificate_set_verify_function
-do :
- ac_fn_c_check_func "$LINENO" "gnutls_certificate_set_verify_function" "ac_cv_func_gnutls_certificate_set_verify_function"
-if test "x$ac_cv_func_gnutls_certificate_set_verify_function" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_GNUTLS_CERTIFICATE_SET_VERIFY_FUNCTION 1
-_ACEOF
- HAVE_GNUTLS_CALLBACK_CERTIFICATE_VERIFY=yes
-fi
-done
-
-
- if test "${HAVE_GNUTLS_CALLBACK_CERTIFICATE_VERIFY}" = "yes"; then
-
-$as_echo "#define HAVE_GNUTLS_CALLBACK_CERTIFICATE_VERIFY 1" >>confdefs.h
-
- fi
-fi
-
-
-
-
-HAVE_XAW3D=no
-LUCID_LIBW=
-if test x"${USE_X_TOOLKIT}" = xmaybe || test x"${USE_X_TOOLKIT}" = xLUCID; then
- if test "$with_xaw3d" != no; then
- if ${emacs_cv_xaw3d+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <X11/Intrinsic.h>
-#include <X11/Xaw3d/Simple.h>
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XawScrollbarSetThumb in -lXaw3d" >&5
-$as_echo_n "checking for XawScrollbarSetThumb in -lXaw3d... " >&6; }
-if ${ac_cv_lib_Xaw3d_XawScrollbarSetThumb+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXaw3d $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 XawScrollbarSetThumb ();
-int
-main ()
-{
-return XawScrollbarSetThumb ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_Xaw3d_XawScrollbarSetThumb=yes
-else
- ac_cv_lib_Xaw3d_XawScrollbarSetThumb=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xaw3d_XawScrollbarSetThumb" >&5
-$as_echo "$ac_cv_lib_Xaw3d_XawScrollbarSetThumb" >&6; }
-if test "x$ac_cv_lib_Xaw3d_XawScrollbarSetThumb" = xyes; then :
- emacs_cv_xaw3d=yes
-else
- emacs_cv_xaw3d=no
-fi
-
-else
- emacs_cv_xaw3d=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-
- else
- emacs_cv_xaw3d=no
- fi
- if test $emacs_cv_xaw3d = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for xaw3d" >&5
-$as_echo_n "checking for xaw3d... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes; using Lucid toolkit" >&5
-$as_echo "yes; using Lucid toolkit" >&6; }
- USE_X_TOOLKIT=LUCID
- HAVE_XAW3D=yes
- LUCID_LIBW=-lXaw3d
-
-$as_echo "#define HAVE_XAW3D 1" >>confdefs.h
-
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for xaw3d" >&5
-$as_echo_n "checking for xaw3d... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for libXaw" >&5
-$as_echo_n "checking for libXaw... " >&6; }
- if ${emacs_cv_xaw+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <X11/Intrinsic.h>
-#include <X11/Xaw/Simple.h>
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_xaw=yes
-else
- emacs_cv_xaw=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-
- if test $emacs_cv_xaw = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes; using Lucid toolkit" >&5
-$as_echo "yes; using Lucid toolkit" >&6; }
- USE_X_TOOLKIT=LUCID
- LUCID_LIBW=-lXaw
- elif test x"${USE_X_TOOLKIT}" = xLUCID; then
- as_fn_error $? "Lucid toolkit requires X11/Xaw include files" "$LINENO" 5
- else
- as_fn_error $? "No X toolkit could be found.
-If you are sure you want Emacs compiled without an X toolkit, pass
- --with-x-toolkit=no
-to configure. Otherwise, install the development libraries for the toolkit
-that you want to use (e.g. Gtk+) and re-run configure." "$LINENO" 5
- fi
- fi
-fi
-
-X_TOOLKIT_TYPE=$USE_X_TOOLKIT
-
-LIBXTR6=
-if test "${USE_X_TOOLKIT}" != "none"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking X11 toolkit version" >&5
-$as_echo_n "checking X11 toolkit version... " >&6; }
- if ${emacs_cv_x11_toolkit_version_6+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <X11/Intrinsic.h>
-int
-main ()
-{
-#if XtSpecificationRelease < 6
-fail;
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_x11_toolkit_version_6=yes
-else
- emacs_cv_x11_toolkit_version_6=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-
- HAVE_X11XTR6=$emacs_cv_x11_toolkit_version_6
- if test $emacs_cv_x11_toolkit_version_6 = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: 6 or newer" >&5
-$as_echo "6 or newer" >&6; }
-
-$as_echo "#define HAVE_X11XTR6 1" >>confdefs.h
-
- LIBXTR6="-lSM -lICE"
- case "$opsys" in
- ## Use libw.a along with X11R6 Xt.
- unixware) LIBXTR6="$LIBXTR6 -lw" ;;
- esac
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: before 6" >&5
-$as_echo "before 6" >&6; }
- fi
-
- OLDLIBS="$LIBS"
- if test x$HAVE_X11XTR6 = xyes; then
- LIBS="-lXt -lSM -lICE $LIBS"
- else
- LIBS="-lXt $LIBS"
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XmuConvertStandardSelection in -lXmu" >&5
-$as_echo_n "checking for XmuConvertStandardSelection in -lXmu... " >&6; }
-if ${ac_cv_lib_Xmu_XmuConvertStandardSelection+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXmu $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 XmuConvertStandardSelection ();
-int
-main ()
-{
-return XmuConvertStandardSelection ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_Xmu_XmuConvertStandardSelection=yes
-else
- ac_cv_lib_Xmu_XmuConvertStandardSelection=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xmu_XmuConvertStandardSelection" >&5
-$as_echo "$ac_cv_lib_Xmu_XmuConvertStandardSelection" >&6; }
-if test "x$ac_cv_lib_Xmu_XmuConvertStandardSelection" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBXMU 1
-_ACEOF
-
- LIBS="-lXmu $LIBS"
-
-fi
-
- test $ac_cv_lib_Xmu_XmuConvertStandardSelection = no && LIBS="$OLDLIBS"
- fi
-
-
-LIBXMU=-lXmu
-case $opsys in
- ## These systems don't supply Xmu.
- hpux* | aix4-2 )
- test "X$ac_cv_lib_Xmu_XmuConvertStandardSelection" != "Xyes" && LIBXMU=
- ;;
-esac
-
-
-# On Irix 6.5, at least, we need XShapeQueryExtension from -lXext for Xaw3D.
-if test "${HAVE_X11}" = "yes"; then
- if test "${USE_X_TOOLKIT}" != "none"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XShapeQueryExtension in -lXext" >&5
-$as_echo_n "checking for XShapeQueryExtension in -lXext... " >&6; }
-if ${ac_cv_lib_Xext_XShapeQueryExtension+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXext $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 XShapeQueryExtension ();
-int
-main ()
-{
-return XShapeQueryExtension ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_Xext_XShapeQueryExtension=yes
-else
- ac_cv_lib_Xext_XShapeQueryExtension=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xext_XShapeQueryExtension" >&5
-$as_echo "$ac_cv_lib_Xext_XShapeQueryExtension" >&6; }
-if test "x$ac_cv_lib_Xext_XShapeQueryExtension" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBXEXT 1
-_ACEOF
-
- LIBS="-lXext $LIBS"
-
-fi
-
- fi
-fi
-
-LIBXP=
-if test "${USE_X_TOOLKIT}" = "MOTIF"; then
- # OpenMotif may be installed in such a way on some GNU/Linux systems.
- if test -d /usr/include/openmotif; then
- CPPFLAGS="-I/usr/include/openmotif $CPPFLAGS"
- emacs_cv_openmotif=yes
- case "$canonical" in
- x86_64-*-linux-gnu* | powerpc64-*-linux-gnu* | sparc64-*-linux-gnu*)
- test -d /usr/lib64/openmotif && LDFLAGS="-L/usr/lib64/openmotif $LDFLAGS"
- ;;
- *)
- test -d /usr/lib/openmotif && LDFLAGS="-L/usr/lib/openmotif $LDFLAGS"
- esac
- else
- emacs_cv_openmotif=no
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for (Open)Motif version 2.1" >&5
-$as_echo_n "checking for (Open)Motif version 2.1... " >&6; }
-if ${emacs_cv_motif_version_2_1+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <Xm/Xm.h>
-int
-main ()
-{
-#if XmVERSION > 2 || (XmVERSION == 2 && XmREVISION >= 1)
-int x = 5;
-#else
-Motif version prior to 2.1.
-#endif
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_cv_motif_version_2_1=yes
-else
- emacs_cv_motif_version_2_1=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_motif_version_2_1" >&5
-$as_echo "$emacs_cv_motif_version_2_1" >&6; }
- if test $emacs_cv_motif_version_2_1 = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XpCreateContext in -lXp" >&5
-$as_echo_n "checking for XpCreateContext in -lXp... " >&6; }
-if ${ac_cv_lib_Xp_XpCreateContext+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXp $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 XpCreateContext ();
-int
-main ()
-{
-return XpCreateContext ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_Xp_XpCreateContext=yes
-else
- ac_cv_lib_Xp_XpCreateContext=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xp_XpCreateContext" >&5
-$as_echo "$ac_cv_lib_Xp_XpCreateContext" >&6; }
-if test "x$ac_cv_lib_Xp_XpCreateContext" = xyes; then :
- LIBXP=-lXp
-fi
-
- if test x$emacs_cv_openmotif = xyes; then
- REAL_CPPFLAGS="-I/usr/include/openmotif $REAL_CPPFLAGS"
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for LessTif where some systems put it" >&5
-$as_echo_n "checking for LessTif where some systems put it... " >&6; }
-if ${emacs_cv_lesstif+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # We put this in CFLAGS temporarily to precede other -I options
- # that might be in CFLAGS temporarily.
- # We put this in CPPFLAGS where it precedes the other -I options.
- OLD_CPPFLAGS=$CPPFLAGS
- OLD_CFLAGS=$CFLAGS
- CPPFLAGS="-I/usr/X11R6/LessTif/Motif1.2/include $CPPFLAGS"
- CFLAGS="-I/usr/X11R6/LessTif/Motif1.2/include $CFLAGS"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include </usr/X11R6/LessTif/Motif1.2/include/Xm/Xm.h>
-int
-main ()
-{
-int x = 5;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_cv_lesstif=yes
-else
- emacs_cv_lesstif=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_lesstif" >&5
-$as_echo "$emacs_cv_lesstif" >&6; }
- if test $emacs_cv_lesstif = yes; then
- # Make sure this -I option remains in CPPFLAGS after it is set
- # back to REAL_CPPFLAGS.
- # There is no need to change REAL_CFLAGS, because REAL_CFLAGS does not
- # have those other -I options anyway. Ultimately, having this
- # directory ultimately in CPPFLAGS will be enough.
- REAL_CPPFLAGS="-I/usr/X11R6/LessTif/Motif1.2/include $REAL_CPPFLAGS"
- LDFLAGS="-L/usr/X11R6/LessTif/Motif1.2/lib $LDFLAGS"
- else
- CFLAGS=$OLD_CFLAGS
- CPPFLAGS=$OLD_CPPFLAGS
- fi
- fi
- ac_fn_c_check_header_mongrel "$LINENO" "Xm/BulletinB.h" "ac_cv_header_Xm_BulletinB_h" "$ac_includes_default"
-if test "x$ac_cv_header_Xm_BulletinB_h" = xyes; then :
-
-else
- as_fn_error $? "Motif toolkit requested but requirements not found." "$LINENO" 5
-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
- $as_echo "#define USE_TOOLKIT_SCROLL_BARS 1" >>confdefs.h
-
- HAVE_XAW3D=no
- USE_TOOLKIT_SCROLL_BARS=yes
- elif test "${HAVE_XAW3D}" = "yes" || test "${USE_X_TOOLKIT}" = "LUCID"; then
- $as_echo "#define USE_TOOLKIT_SCROLL_BARS 1" >>confdefs.h
-
- USE_TOOLKIT_SCROLL_BARS=yes
- fi
- elif test "${HAVE_GTK}" = "yes"; then
- $as_echo "#define USE_TOOLKIT_SCROLL_BARS 1" >>confdefs.h
-
- USE_TOOLKIT_SCROLL_BARS=yes
- elif test "${HAVE_NS}" = "yes"; then
- $as_echo "#define USE_TOOLKIT_SCROLL_BARS 1" >>confdefs.h
-
- USE_TOOLKIT_SCROLL_BARS=yes
- elif test "${HAVE_W32}" = "yes"; then
- $as_echo "#define USE_TOOLKIT_SCROLL_BARS 1" >>confdefs.h
-
- USE_TOOLKIT_SCROLL_BARS=yes
- fi
-fi
-
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #include <X11/Xlib.h>
- #include <X11/Xresource.h>
-int
-main ()
-{
-XIMProc callback;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- HAVE_XIM=yes
-
-$as_echo "#define HAVE_XIM 1" >>confdefs.h
-
-else
- HAVE_XIM=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-
-if test "${with_xim}" != "no"; then
-
-$as_echo "#define USE_XIM 1" >>confdefs.h
-
-fi
-
-
-if test "${HAVE_XIM}" != "no"; then
- late_CFLAGS=$CFLAGS
- if test "$GCC" = yes; then
- CFLAGS="$CFLAGS --pedantic-errors"
- fi
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_cv_arg6_star=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test "$emacs_cv_arg6_star" = yes; then
- $as_echo "#define XRegisterIMInstantiateCallback_arg6 XPointer*" >>confdefs.h
-
- else
- $as_echo "#define XRegisterIMInstantiateCallback_arg6 XPointer" >>confdefs.h
-
- fi
- CFLAGS=$late_CFLAGS
-fi
-
-### Start of font-backend (under any platform) section.
-# (nothing here yet -- this is a placeholder)
-### End of font-backend (under any platform) section.
-
-### Start of font-backend (under X11) section.
-if test "${HAVE_X11}" = "yes"; then
-
- succeeded=no
-
- 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
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for fontconfig >= 2.2.0" >&5
-$as_echo_n "checking for fontconfig >= 2.2.0... " >&6; }
-
- if $PKG_CONFIG --exists "fontconfig >= 2.2.0" 2>&5 &&
- FONTCONFIG_CFLAGS=`$PKG_CONFIG --cflags "fontconfig >= 2.2.0" 2>&5` &&
- FONTCONFIG_LIBS=`$PKG_CONFIG --libs "fontconfig >= 2.2.0" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- FONTCONFIG_CFLAGS=`$as_echo "$FONTCONFIG_CFLAGS" | sed -e "$edit_cflags"`
- FONTCONFIG_LIBS=`$as_echo "$FONTCONFIG_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$FONTCONFIG_CFLAGS' LIBS='$FONTCONFIG_LIBS'" >&5
-$as_echo "yes CFLAGS='$FONTCONFIG_CFLAGS' LIBS='$FONTCONFIG_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "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. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- FONTCONFIG_PKG_ERRORS=`($PKG_CONFIG --print-errors "fontconfig >= 2.2.0") 2>&1`
-
- 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
- HAVE_FC=yes
- else
- HAVE_FC=no
- fi
-
-
- ## Use -lXft if available, unless `--with-xft=no'.
- HAVE_XFT=maybe
- if test "${HAVE_FC}" = "no" || test "x${with_x}" = "xno"; then
- with_xft="no";
- fi
- if test "x${with_xft}" != "xno"; then
-
-
- succeeded=no
-
- 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
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for xft >= 0.13.0" >&5
-$as_echo_n "checking for xft >= 0.13.0... " >&6; }
-
- if $PKG_CONFIG --exists "xft >= 0.13.0" 2>&5 &&
- XFT_CFLAGS=`$PKG_CONFIG --cflags "xft >= 0.13.0" 2>&5` &&
- XFT_LIBS=`$PKG_CONFIG --libs "xft >= 0.13.0" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- XFT_CFLAGS=`$as_echo "$XFT_CFLAGS" | sed -e "$edit_cflags"`
- XFT_LIBS=`$as_echo "$XFT_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$XFT_CFLAGS' LIBS='$XFT_LIBS'" >&5
-$as_echo "yes CFLAGS='$XFT_CFLAGS' LIBS='$XFT_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "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. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- XFT_PKG_ERRORS=`($PKG_CONFIG --print-errors "xft >= 0.13.0") 2>&1`
-
- 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
-
- ## Because xftfont.c uses XRenderQueryExtension, we also
- ## need to link to -lXrender.
- HAVE_XRENDER=no
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XRenderQueryExtension in -lXrender" >&5
-$as_echo_n "checking for XRenderQueryExtension in -lXrender... " >&6; }
-if ${ac_cv_lib_Xrender_XRenderQueryExtension+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXrender $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 XRenderQueryExtension ();
-int
-main ()
-{
-return XRenderQueryExtension ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_Xrender_XRenderQueryExtension=yes
-else
- ac_cv_lib_Xrender_XRenderQueryExtension=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xrender_XRenderQueryExtension" >&5
-$as_echo "$ac_cv_lib_Xrender_XRenderQueryExtension" >&6; }
-if test "x$ac_cv_lib_Xrender_XRenderQueryExtension" = xyes; then :
- HAVE_XRENDER=yes
-fi
-
- if test "$HAVE_XFT" != no && test "$HAVE_XRENDER" != no; then
- OLD_CPPFLAGS="$CPPFLAGS"
- OLD_CFLAGS="$CFLAGS"
- OLD_LIBS="$LIBS"
- CPPFLAGS="$CPPFLAGS $XFT_CFLAGS"
- CFLAGS="$CFLAGS $XFT_CFLAGS"
- XFT_LIBS="-lXrender $XFT_LIBS"
- LIBS="$XFT_LIBS $LIBS"
- ac_fn_c_check_header_mongrel "$LINENO" "X11/Xft/Xft.h" "ac_cv_header_X11_Xft_Xft_h" "$ac_includes_default"
-if test "x$ac_cv_header_X11_Xft_Xft_h" = xyes; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XftFontOpen in -lXft" >&5
-$as_echo_n "checking for XftFontOpen in -lXft... " >&6; }
-if ${ac_cv_lib_Xft_XftFontOpen+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXft $XFT_LIBS $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_Xft_XftFontOpen=yes
-else
- ac_cv_lib_Xft_XftFontOpen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xft_XftFontOpen" >&5
-$as_echo "$ac_cv_lib_Xft_XftFontOpen" >&6; }
-if test "x$ac_cv_lib_Xft_XftFontOpen" = xyes; then :
- HAVE_XFT=yes
-fi
-
-fi
-
-
-
- if test "${HAVE_XFT}" = "yes"; then
-
-$as_echo "#define HAVE_XFT 1" >>confdefs.h
-
-
- C_SWITCH_X_SITE="$C_SWITCH_X_SITE $XFT_CFLAGS"
- else
- CPPFLAGS="$OLD_CPPFLAGS"
- CFLAGS="$OLD_CFLAGS"
- LIBS="$OLD_LIBS"
- fi # "${HAVE_XFT}" = "yes"
- fi # "$HAVE_XFT" != no
- fi # "x${with_xft}" != "xno"
-
- ## We used to allow building with FreeType and without Xft.
- ## However, the ftx font backend driver is not in good shape.
- if test "$HAVE_XFT" != "yes"; then
- HAVE_XFT=no
- HAVE_FREETYPE=no
- else
-
- succeeded=no
-
- 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
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for freetype2" >&5
-$as_echo_n "checking for freetype2... " >&6; }
-
- if $PKG_CONFIG --exists "freetype2" 2>&5 &&
- FREETYPE_CFLAGS=`$PKG_CONFIG --cflags "freetype2" 2>&5` &&
- FREETYPE_LIBS=`$PKG_CONFIG --libs "freetype2" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- FREETYPE_CFLAGS=`$as_echo "$FREETYPE_CFLAGS" | sed -e "$edit_cflags"`
- FREETYPE_LIBS=`$as_echo "$FREETYPE_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$FREETYPE_CFLAGS' LIBS='$FREETYPE_LIBS'" >&5
-$as_echo "yes CFLAGS='$FREETYPE_CFLAGS' LIBS='$FREETYPE_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "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. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- FREETYPE_PKG_ERRORS=`($PKG_CONFIG --print-errors "freetype2") 2>&1`
-
- 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
- HAVE_FREETYPE=yes
- else
- HAVE_FREETYPE=no
- fi
-
-
- test "$HAVE_FREETYPE" = "no" && as_fn_error $? "libxft requires libfreetype" "$LINENO" 5
- fi
-
- HAVE_LIBOTF=no
- if test "${HAVE_FREETYPE}" = "yes"; then
-
-$as_echo "#define HAVE_FREETYPE 1" >>confdefs.h
-
- if test "${with_libotf}" != "no"; then
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_LIBOTF=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for libotf" >&5
-$as_echo_n "checking for libotf... " >&6; }
-
- if $PKG_CONFIG --exists "libotf" 2>&5 &&
- LIBOTF_CFLAGS=`$PKG_CONFIG --cflags "libotf" 2>&5` &&
- LIBOTF_LIBS=`$PKG_CONFIG --libs "libotf" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- LIBOTF_CFLAGS=`$as_echo "$LIBOTF_CFLAGS" | sed -e "$edit_cflags"`
- LIBOTF_LIBS=`$as_echo "$LIBOTF_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$LIBOTF_CFLAGS' LIBS='$LIBOTF_LIBS'" >&5
-$as_echo "yes CFLAGS='$LIBOTF_CFLAGS' LIBS='$LIBOTF_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- LIBOTF_CFLAGS=""
- LIBOTF_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- LIBOTF_PKG_ERRORS=`($PKG_CONFIG --print-errors "libotf") 2>&1`
-
- 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
- HAVE_LIBOTF=yes
- else
- HAVE_LIBOTF=no
- fi
-
- if test "$HAVE_LIBOTF" = "yes"; then
-
-$as_echo "#define HAVE_LIBOTF 1" >>confdefs.h
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for OTF_get_variation_glyphs in -lotf" >&5
-$as_echo_n "checking for OTF_get_variation_glyphs in -lotf... " >&6; }
-if ${ac_cv_lib_otf_OTF_get_variation_glyphs+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lotf $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 OTF_get_variation_glyphs ();
-int
-main ()
-{
-return OTF_get_variation_glyphs ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_otf_OTF_get_variation_glyphs=yes
-else
- ac_cv_lib_otf_OTF_get_variation_glyphs=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_otf_OTF_get_variation_glyphs" >&5
-$as_echo "$ac_cv_lib_otf_OTF_get_variation_glyphs" >&6; }
-if test "x$ac_cv_lib_otf_OTF_get_variation_glyphs" = xyes; then :
- HAVE_OTF_GET_VARIATION_GLYPHS=yes
-else
- HAVE_OTF_GET_VARIATION_GLYPHS=no
-fi
-
- if test "${HAVE_OTF_GET_VARIATION_GLYPHS}" = "yes"; then
-
-$as_echo "#define HAVE_OTF_GET_VARIATION_GLYPHS 1" >>confdefs.h
-
- fi
- fi
- fi
- fi
-
- HAVE_M17N_FLT=no
- if test "${HAVE_LIBOTF}" = yes; then
- if test "${with_m17n_flt}" != "no"; then
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_M17N_FLT=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for m17n-flt" >&5
-$as_echo_n "checking for m17n-flt... " >&6; }
-
- if $PKG_CONFIG --exists "m17n-flt" 2>&5 &&
- M17N_FLT_CFLAGS=`$PKG_CONFIG --cflags "m17n-flt" 2>&5` &&
- M17N_FLT_LIBS=`$PKG_CONFIG --libs "m17n-flt" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- M17N_FLT_CFLAGS=`$as_echo "$M17N_FLT_CFLAGS" | sed -e "$edit_cflags"`
- M17N_FLT_LIBS=`$as_echo "$M17N_FLT_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$M17N_FLT_CFLAGS' LIBS='$M17N_FLT_LIBS'" >&5
-$as_echo "yes CFLAGS='$M17N_FLT_CFLAGS' LIBS='$M17N_FLT_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- M17N_FLT_CFLAGS=""
- M17N_FLT_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- M17N_FLT_PKG_ERRORS=`($PKG_CONFIG --print-errors "m17n-flt") 2>&1`
-
- 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
- HAVE_M17N_FLT=yes
- else
- HAVE_M17N_FLT=no
- fi
-
- if test "$HAVE_M17N_FLT" = "yes"; then
-
-$as_echo "#define HAVE_M17N_FLT 1" >>confdefs.h
-
- fi
- fi
- fi
-else
- HAVE_XFT=no
- HAVE_FREETYPE=no
- HAVE_LIBOTF=no
- HAVE_M17N_FLT=no
-fi
-
-### End of font-backend (under X11) section.
-
-
-
-
-
-
-
-
-
-
-### Use -lXpm if available, unless `--with-xpm=no'.
-HAVE_XPM=no
-LIBXPM=
-
-if test "${HAVE_W32}" = "yes"; then
- if test "${with_xpm}" != "no"; then
- SAVE_CPPFLAGS="$CPPFLAGS"
- SAVE_LDFLAGS="$LDFLAGS"
- CPPFLAGS="$CPPFLAGS -I/usr/include/noX"
- LDFLAGS="$LDFLAGS -L/usr/lib/noX"
- ac_fn_c_check_header_mongrel "$LINENO" "X11/xpm.h" "ac_cv_header_X11_xpm_h" "$ac_includes_default"
-if test "x$ac_cv_header_X11_xpm_h" = xyes; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XpmReadFileToImage in -lXpm" >&5
-$as_echo_n "checking for XpmReadFileToImage in -lXpm... " >&6; }
-if ${ac_cv_lib_Xpm_XpmReadFileToImage+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXpm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 XpmReadFileToImage ();
-int
-main ()
-{
-return XpmReadFileToImage ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_Xpm_XpmReadFileToImage=yes
-else
- ac_cv_lib_Xpm_XpmReadFileToImage=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xpm_XpmReadFileToImage" >&5
-$as_echo "$ac_cv_lib_Xpm_XpmReadFileToImage" >&6; }
-if test "x$ac_cv_lib_Xpm_XpmReadFileToImage" = xyes; then :
- HAVE_XPM=yes
-fi
-
-fi
-
-
- if test "${HAVE_XPM}" = "yes"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XpmReturnAllocPixels preprocessor define" >&5
-$as_echo_n "checking for XpmReturnAllocPixels preprocessor define... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include "X11/xpm.h"
-#ifndef XpmReturnAllocPixels
-no_return_alloc_pixels
-#endif
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "no_return_alloc_pixels" >/dev/null 2>&1; then :
- HAVE_XPM=no
-else
- HAVE_XPM=yes
-fi
-rm -f conftest*
-
-
- if test "${HAVE_XPM}" = "yes"; then
- REAL_CPPFLAGS="$REAL_CPPFLAGS -I/usr/include/noX"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- CPPFLAGS="$SAVE_CPPFLAGS"
- LDFLAGS="$SAVE_LDFLAGS"
- fi
- fi
- fi
-
- if test "${HAVE_XPM}" = "yes"; then
-
-$as_echo "#define HAVE_XPM 1" >>confdefs.h
-
- LIBXPM=-lXpm
- fi
-fi
-
-if test "${HAVE_X11}" = "yes"; then
- if test "${with_xpm}" != "no"; then
- ac_fn_c_check_header_mongrel "$LINENO" "X11/xpm.h" "ac_cv_header_X11_xpm_h" "$ac_includes_default"
-if test "x$ac_cv_header_X11_xpm_h" = xyes; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XpmReadFileToPixmap in -lXpm" >&5
-$as_echo_n "checking for XpmReadFileToPixmap in -lXpm... " >&6; }
-if ${ac_cv_lib_Xpm_XpmReadFileToPixmap+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lXpm -lX11 $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 XpmReadFileToPixmap ();
-int
-main ()
-{
-return XpmReadFileToPixmap ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_Xpm_XpmReadFileToPixmap=yes
-else
- ac_cv_lib_Xpm_XpmReadFileToPixmap=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_Xpm_XpmReadFileToPixmap" >&5
-$as_echo "$ac_cv_lib_Xpm_XpmReadFileToPixmap" >&6; }
-if test "x$ac_cv_lib_Xpm_XpmReadFileToPixmap" = xyes; then :
- HAVE_XPM=yes
-fi
-
-fi
-
-
- if test "${HAVE_XPM}" = "yes"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for XpmReturnAllocPixels preprocessor define" >&5
-$as_echo_n "checking for XpmReturnAllocPixels preprocessor define... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include "X11/xpm.h"
-#ifndef XpmReturnAllocPixels
-no_return_alloc_pixels
-#endif
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "no_return_alloc_pixels" >/dev/null 2>&1; then :
- HAVE_XPM=no
-else
- HAVE_XPM=yes
-fi
-rm -f conftest*
-
-
- if test "${HAVE_XPM}" = "yes"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- fi
- fi
- fi
-
- if test "${HAVE_XPM}" = "yes"; then
-
-$as_echo "#define HAVE_XPM 1" >>confdefs.h
-
- LIBXPM=-lXpm
- fi
-fi
-
-
-
-### Use -ljpeg if available, unless `--with-jpeg=no'.
-HAVE_JPEG=no
-LIBJPEG=
-if test "${HAVE_X11}" = "yes" || test "${HAVE_W32}" = "yes"; then
- if test "${with_jpeg}" != "no"; then
- ac_fn_c_check_header_mongrel "$LINENO" "jerror.h" "ac_cv_header_jerror_h" "$ac_includes_default"
-if test "x$ac_cv_header_jerror_h" = xyes; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for jpeg_destroy_compress in -ljpeg" >&5
-$as_echo_n "checking for jpeg_destroy_compress in -ljpeg... " >&6; }
-if ${ac_cv_lib_jpeg_jpeg_destroy_compress+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ljpeg $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 jpeg_destroy_compress ();
-int
-main ()
-{
-return jpeg_destroy_compress ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_jpeg_jpeg_destroy_compress=yes
-else
- ac_cv_lib_jpeg_jpeg_destroy_compress=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_jpeg_jpeg_destroy_compress" >&5
-$as_echo "$ac_cv_lib_jpeg_jpeg_destroy_compress" >&6; }
-if test "x$ac_cv_lib_jpeg_jpeg_destroy_compress" = xyes; then :
- HAVE_JPEG=yes
-fi
-
-fi
-
-
- fi
-
- if test "${HAVE_JPEG}" = "yes"; then
- $as_echo "#define HAVE_JPEG 1" >>confdefs.h
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <jpeglib.h>
- version=JPEG_LIB_VERSION
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "version= *(6[2-9]|[7-9][0-9])" >/dev/null 2>&1; then :
- $as_echo "#define HAVE_JPEG 1" >>confdefs.h
-
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: libjpeg found, but not version 6b or later" >&5
-$as_echo "$as_me: WARNING: libjpeg found, but not version 6b or later" >&2;}
- HAVE_JPEG=no
-fi
-rm -f conftest*
-
- fi
- if test "${HAVE_JPEG}" = "yes"; then
- LIBJPEG=-ljpeg
- fi
-fi
-
-
-### Use -lpng if available, unless `--with-png=no'.
-HAVE_PNG=no
-LIBPNG=
-if test "${HAVE_X11}" = "yes" || test "${HAVE_W32}" = "yes"; then
- if test "${with_png}" != "no"; then
- # Debian unstable as of July 2003 has multiple libpngs, and puts png.h
- # in /usr/include/libpng.
- for ac_header in png.h libpng/png.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
- break
-fi
-
-done
-
- if test "$ac_cv_header_png_h" = yes || test "$ac_cv_header_libpng_png_h" = yes ; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for png_get_channels in -lpng" >&5
-$as_echo_n "checking for png_get_channels in -lpng... " >&6; }
-if ${ac_cv_lib_png_png_get_channels+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lpng -lz -lm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 png_get_channels ();
-int
-main ()
-{
-return png_get_channels ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_png_png_get_channels=yes
-else
- ac_cv_lib_png_png_get_channels=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_png_png_get_channels" >&5
-$as_echo "$ac_cv_lib_png_png_get_channels" >&6; }
-if test "x$ac_cv_lib_png_png_get_channels" = xyes; then :
- HAVE_PNG=yes
-fi
-
- fi
- fi
-
- if test "${HAVE_PNG}" = "yes"; then
-
-$as_echo "#define HAVE_PNG 1" >>confdefs.h
-
- LIBPNG="-lpng -lz -lm"
-
- ac_fn_c_check_decl "$LINENO" "png_longjmp" "ac_cv_have_decl_png_longjmp" "#ifdef HAVE_LIBPNG_PNG_H
- # include <libpng/png.h>
- #else
- # include <png.h>
- #endif
-
-"
-if test "x$ac_cv_have_decl_png_longjmp" = xyes; then :
-
-else
-
-$as_echo "#define PNG_DEPSTRUCT /**/" >>confdefs.h
-
-fi
-
- fi
-fi
-
-
-### Use -ltiff if available, unless `--with-tiff=no'.
-HAVE_TIFF=no
-LIBTIFF=
-if test "${HAVE_X11}" = "yes" || test "${HAVE_W32}" = "yes"; then
- if test "${with_tiff}" != "no"; then
- ac_fn_c_check_header_mongrel "$LINENO" "tiffio.h" "ac_cv_header_tiffio_h" "$ac_includes_default"
-if test "x$ac_cv_header_tiffio_h" = xyes; then :
- tifflibs="-lz -lm"
- # At least one tiff package requires the jpeg library.
- if test "${HAVE_JPEG}" = yes; then tifflibs="-ljpeg $tifflibs"; fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for TIFFGetVersion in -ltiff" >&5
-$as_echo_n "checking for TIFFGetVersion in -ltiff... " >&6; }
-if ${ac_cv_lib_tiff_TIFFGetVersion+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ltiff $tifflibs $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 TIFFGetVersion ();
-int
-main ()
-{
-return TIFFGetVersion ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_tiff_TIFFGetVersion=yes
-else
- ac_cv_lib_tiff_TIFFGetVersion=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_tiff_TIFFGetVersion" >&5
-$as_echo "$ac_cv_lib_tiff_TIFFGetVersion" >&6; }
-if test "x$ac_cv_lib_tiff_TIFFGetVersion" = xyes; then :
- HAVE_TIFF=yes
-fi
-
-fi
-
-
- fi
-
- if test "${HAVE_TIFF}" = "yes"; then
-
-$as_echo "#define HAVE_TIFF 1" >>confdefs.h
-
- LIBTIFF=-ltiff
- fi
-fi
-
-
-### Use -lgif or -lungif if available, unless `--with-gif=no'.
-HAVE_GIF=no
-LIBGIF=
-if test "${HAVE_X11}" = "yes" && test "${with_gif}" != "no" \
- || test "${HAVE_W32}" = "yes"; then
- ac_fn_c_check_header_mongrel "$LINENO" "gif_lib.h" "ac_cv_header_gif_lib_h" "$ac_includes_default"
-if test "x$ac_cv_header_gif_lib_h" = xyes; then :
- # EGifPutExtensionLast only exists from version libungif-4.1.0b1.
-# Earlier versions can crash Emacs.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for EGifPutExtensionLast in -lgif" >&5
-$as_echo_n "checking for EGifPutExtensionLast in -lgif... " >&6; }
-if ${ac_cv_lib_gif_EGifPutExtensionLast+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lgif $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 EGifPutExtensionLast ();
-int
-main ()
-{
-return EGifPutExtensionLast ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_gif_EGifPutExtensionLast=yes
-else
- ac_cv_lib_gif_EGifPutExtensionLast=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_gif_EGifPutExtensionLast" >&5
-$as_echo "$ac_cv_lib_gif_EGifPutExtensionLast" >&6; }
-if test "x$ac_cv_lib_gif_EGifPutExtensionLast" = xyes; then :
- HAVE_GIF=yes
-else
- HAVE_GIF=maybe
-fi
-
-fi
-
-
-
- if test "$HAVE_GIF" = yes; then
- LIBGIF=-lgif
- elif test "$HAVE_GIF" = maybe; then
-# If gif_lib.h but no libgif, try libungif.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for EGifPutExtensionLast in -lungif" >&5
-$as_echo_n "checking for EGifPutExtensionLast in -lungif... " >&6; }
-if ${ac_cv_lib_ungif_EGifPutExtensionLast+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lungif $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 EGifPutExtensionLast ();
-int
-main ()
-{
-return EGifPutExtensionLast ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_ungif_EGifPutExtensionLast=yes
-else
- ac_cv_lib_ungif_EGifPutExtensionLast=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_ungif_EGifPutExtensionLast" >&5
-$as_echo "$ac_cv_lib_ungif_EGifPutExtensionLast" >&6; }
-if test "x$ac_cv_lib_ungif_EGifPutExtensionLast" = xyes; then :
- HAVE_GIF=yes
-else
- HAVE_GIF=no
-fi
-
- test "$HAVE_GIF" = yes && LIBGIF=-lungif
- fi
-
- if test "${HAVE_GIF}" = "yes"; then
-
-$as_echo "#define HAVE_GIF 1" >>confdefs.h
-
- fi
-fi
-
-
-if test "${HAVE_X11}" = "yes"; then
- MISSING=""
- WITH_NO=""
- test "${with_xpm}" != "no" && test "${HAVE_XPM}" != "yes" &&
- MISSING="libXpm" && WITH_NO="--with-xpm=no"
- test "${with_jpeg}" != "no" && test "${HAVE_JPEG}" != "yes" &&
- MISSING="$MISSING libjpeg" && WITH_NO="$WITH_NO --with-jpeg=no"
- test "${with_png}" != "no" && test "${HAVE_PNG}" != "yes" &&
- MISSING="$MISSING libpng" && WITH_NO="$WITH_NO --with-png=no"
- test "${with_gif}" != "no" && test "${HAVE_GIF}" != "yes" &&
- MISSING="$MISSING libgif/libungif" && WITH_NO="$WITH_NO --with-gif=no"
- test "${with_tiff}" != "no" && test "${HAVE_TIFF}" != "yes" &&
- MISSING="$MISSING libtiff" && WITH_NO="$WITH_NO --with-tiff=no"
-
- if test "X${MISSING}" != X; then
- as_fn_error $? "The following required libraries were not found:
- $MISSING
-Maybe some development libraries/packages are missing?
-If you don't want to link with them give
- $WITH_NO
-as options to configure" "$LINENO" 5
- fi
-fi
-
-### Use -lgpm if available, unless `--with-gpm=no'.
-HAVE_GPM=no
-LIBGPM=
-if test "${with_gpm}" != "no"; then
- ac_fn_c_check_header_mongrel "$LINENO" "gpm.h" "ac_cv_header_gpm_h" "$ac_includes_default"
-if test "x$ac_cv_header_gpm_h" = xyes; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Gpm_Open in -lgpm" >&5
-$as_echo_n "checking for Gpm_Open in -lgpm... " >&6; }
-if ${ac_cv_lib_gpm_Gpm_Open+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lgpm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 Gpm_Open ();
-int
-main ()
-{
-return Gpm_Open ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_gpm_Gpm_Open=yes
-else
- ac_cv_lib_gpm_Gpm_Open=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_gpm_Gpm_Open" >&5
-$as_echo "$ac_cv_lib_gpm_Gpm_Open" >&6; }
-if test "x$ac_cv_lib_gpm_Gpm_Open" = xyes; then :
- HAVE_GPM=yes
-fi
-
-fi
-
-
-
- if test "${HAVE_GPM}" = "yes"; then
-
-$as_echo "#define HAVE_GPM 1" >>confdefs.h
-
- LIBGPM=-lgpm
- fi
-fi
-
-
-
-
-
-
-GNUSTEP_CFLAGS=
-### Use NeXTstep API to implement GUI.
-if test "${HAVE_NS}" = "yes"; then
-
-$as_echo "#define HAVE_NS 1" >>confdefs.h
-
- if test "${NS_IMPL_COCOA}" = "yes"; then
-
-$as_echo "#define NS_IMPL_COCOA 1" >>confdefs.h
-
- fi
- if test "${NS_IMPL_GNUSTEP}" = "yes"; then
-
-$as_echo "#define NS_IMPL_GNUSTEP 1" >>confdefs.h
-
- # See also .m.o rule in Makefile.in */
- # FIXME: are all these flags really needed? Document here why. */
- GNUSTEP_CFLAGS="-D_REENTRANT -fPIC -fno-strict-aliasing -I${GNUSTEP_SYSTEM_HEADERS} ${GNUSTEP_LOCAL_HEADERS}"
- ## Extra CFLAGS applied to src/*.m files.
- GNU_OBJC_CFLAGS="$GNU_OBJC_CFLAGS -fgnu-runtime -Wno-import -fconstant-string-class=NSConstantString -DGNUSTEP_BASE_LIBRARY=1 -DGNU_GUI_LIBRARY=1 -DGNU_RUNTIME=1 -DGSWARN -DGSDIAGNOSE"
- fi
- # We also have mouse menus.
- HAVE_MENUS=yes
- OTHER_FILES=ns-app
-fi
-
-if test "${HAVE_W32}" = "yes"; then
- HAVE_MENUS=yes
-fi
-
-### Use session management (-lSM -lICE) if available
-HAVE_X_SM=no
-LIBXSM=
-if test "${HAVE_X11}" = "yes"; then
- ac_fn_c_check_header_mongrel "$LINENO" "X11/SM/SMlib.h" "ac_cv_header_X11_SM_SMlib_h" "$ac_includes_default"
-if test "x$ac_cv_header_X11_SM_SMlib_h" = xyes; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for SmcOpenConnection in -lSM" >&5
-$as_echo_n "checking for SmcOpenConnection in -lSM... " >&6; }
-if ${ac_cv_lib_SM_SmcOpenConnection+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lSM -lICE $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 SmcOpenConnection ();
-int
-main ()
-{
-return SmcOpenConnection ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_SM_SmcOpenConnection=yes
-else
- ac_cv_lib_SM_SmcOpenConnection=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_SM_SmcOpenConnection" >&5
-$as_echo "$ac_cv_lib_SM_SmcOpenConnection" >&6; }
-if test "x$ac_cv_lib_SM_SmcOpenConnection" = xyes; then :
- HAVE_X_SM=yes
-fi
-
-fi
-
-
-
- if test "${HAVE_X_SM}" = "yes"; then
-
-$as_echo "#define HAVE_X_SM 1" >>confdefs.h
-
- LIBXSM="-lSM -lICE"
- case "$LIBS" in
- *-lSM*) ;;
- *) LIBS="$LIBXSM $LIBS" ;;
- esac
- fi
-fi
-
-
-### Use libxml (-lxml2) if available
-HAVE_LIBXML2=no
-if test "${with_xml2}" != "no"; then
- ### I'm not sure what the version number should be, so I just guessed.
-
- succeeded=no
-
- if test "$PKG_CONFIG" = "no" ; then
- HAVE_LIBXML2=no
- else
- PKG_CONFIG_MIN_VERSION=0.9.0
- if $PKG_CONFIG --atleast-pkgconfig-version $PKG_CONFIG_MIN_VERSION; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for libxml-2.0 > 2.6.17" >&5
-$as_echo_n "checking for libxml-2.0 > 2.6.17... " >&6; }
-
- if $PKG_CONFIG --exists "libxml-2.0 > 2.6.17" 2>&5 &&
- LIBXML2_CFLAGS=`$PKG_CONFIG --cflags "libxml-2.0 > 2.6.17" 2>&5` &&
- LIBXML2_LIBS=`$PKG_CONFIG --libs "libxml-2.0 > 2.6.17" 2>&5`; then
- edit_cflags="
- s,///*,/,g
- s/^/ /
- s/ -I/ $isystem/g
- s/^ //
- "
- LIBXML2_CFLAGS=`$as_echo "$LIBXML2_CFLAGS" | sed -e "$edit_cflags"`
- LIBXML2_LIBS=`$as_echo "$LIBXML2_LIBS" | sed -e 's,///*,/,g'`
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes CFLAGS='$LIBXML2_CFLAGS' LIBS='$LIBXML2_LIBS'" >&5
-$as_echo "yes CFLAGS='$LIBXML2_CFLAGS' LIBS='$LIBXML2_LIBS'" >&6; }
- succeeded=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- LIBXML2_CFLAGS=""
- LIBXML2_LIBS=""
- ## If we have a custom action on failure, don't print errors, but
- ## do set a variable so people can do so. Do it in a subshell
- ## to capture any diagnostics in invoking pkg-config.
- LIBXML2_PKG_ERRORS=`($PKG_CONFIG --print-errors "libxml-2.0 > 2.6.17") 2>&1`
-
- 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
- HAVE_LIBXML2=yes
- else
- HAVE_LIBXML2=no
- fi
-
- if test "${HAVE_LIBXML2}" = "yes"; then
- LIBS="$LIBXML2_LIBS $LIBS"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for htmlReadMemory in -lxml2" >&5
-$as_echo_n "checking for htmlReadMemory in -lxml2... " >&6; }
-if ${ac_cv_lib_xml2_htmlReadMemory+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lxml2 $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 htmlReadMemory ();
-int
-main ()
-{
-return htmlReadMemory ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_xml2_htmlReadMemory=yes
-else
- ac_cv_lib_xml2_htmlReadMemory=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_xml2_htmlReadMemory" >&5
-$as_echo "$ac_cv_lib_xml2_htmlReadMemory" >&6; }
-if test "x$ac_cv_lib_xml2_htmlReadMemory" = xyes; then :
- HAVE_LIBXML2=yes
-else
- HAVE_LIBXML2=no
-fi
-
- if test "${HAVE_LIBXML2}" = "yes"; then
-
-$as_echo "#define HAVE_LIBXML2 1" >>confdefs.h
-
- else
- LIBXML2_LIBS=""
- LIBXML2_CFLAGS=""
- fi
- fi
-fi
-
-
-
-# If netdb.h doesn't declare h_errno, we must declare it by hand.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether netdb declares h_errno" >&5
-$as_echo_n "checking whether netdb declares h_errno... " >&6; }
-if ${emacs_cv_netdb_declares_h_errno+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <netdb.h>
-int
-main ()
-{
-return h_errno;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_netdb_declares_h_errno=yes
-else
- emacs_cv_netdb_declares_h_errno=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_netdb_declares_h_errno" >&5
-$as_echo "$emacs_cv_netdb_declares_h_errno" >&6; }
-if test $emacs_cv_netdb_declares_h_errno = yes; then
-
-$as_echo "#define HAVE_H_ERRNO 1" >>confdefs.h
-
-fi
-
-# sqrt and other floating-point functions such as fmod and frexp
-# are found in -lm on most systems.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for sqrt in -lm" >&5
-$as_echo_n "checking for sqrt in -lm... " >&6; }
-if ${ac_cv_lib_m_sqrt+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 sqrt ();
-int
-main ()
-{
-return sqrt ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_m_sqrt=yes
-else
- ac_cv_lib_m_sqrt=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_m_sqrt" >&5
-$as_echo "$ac_cv_lib_m_sqrt" >&6; }
-if test "x$ac_cv_lib_m_sqrt" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBM 1
-_ACEOF
-
- LIBS="-lm $LIBS"
-
-fi
-
-
-# Check for mail-locking functions in a "mail" library. Probably this should
-# have the same check as for liblockfile below.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for maillock in -lmail" >&5
-$as_echo_n "checking for maillock in -lmail... " >&6; }
-if ${ac_cv_lib_mail_maillock+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lmail $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 maillock ();
-int
-main ()
-{
-return maillock ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_mail_maillock=yes
-else
- ac_cv_lib_mail_maillock=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mail_maillock" >&5
-$as_echo "$ac_cv_lib_mail_maillock" >&6; }
-if test "x$ac_cv_lib_mail_maillock" = xyes; then :
- have_mail=yes
-else
- have_mail=no
-fi
-
-if test $have_mail = yes; then
- LIBS_MAIL=-lmail
- LIBS="$LIBS_MAIL $LIBS"
-
-$as_echo "#define HAVE_LIBMAIL 1" >>confdefs.h
-
-else
- LIBS_MAIL=
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for maillock in -llockfile" >&5
-$as_echo_n "checking for maillock in -llockfile... " >&6; }
-if ${ac_cv_lib_lockfile_maillock+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-llockfile $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 maillock ();
-int
-main ()
-{
-return maillock ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_lockfile_maillock=yes
-else
- ac_cv_lib_lockfile_maillock=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_lockfile_maillock" >&5
-$as_echo "$ac_cv_lib_lockfile_maillock" >&6; }
-if test "x$ac_cv_lib_lockfile_maillock" = xyes; then :
- have_lockfile=yes
-else
- have_lockfile=no
-fi
-
-if test $have_lockfile = yes; then
- LIBS_MAIL=-llockfile
- LIBS="$LIBS_MAIL $LIBS"
-
-$as_echo "#define HAVE_LIBLOCKFILE 1" >>confdefs.h
-
-else
-# If we have the shared liblockfile, assume we must use it for mail
-# locking (e.g. Debian). If we couldn't link against liblockfile
-# (no liblockfile.a installed), ensure that we don't need to.
- # Extract the first word of "liblockfile.so", so it can be a program name with args.
-set dummy liblockfile.so; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_liblockfile+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$liblockfile"; then
- ac_cv_prog_liblockfile="$liblockfile" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-as_dummy="/usr/lib:/lib:/usr/local/lib:$LD_LIBRARY_PATH"
-for as_dir in $as_dummy
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
- ac_cv_prog_liblockfile="yes"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- test -z "$ac_cv_prog_liblockfile" && ac_cv_prog_liblockfile="no"
-fi
-fi
-liblockfile=$ac_cv_prog_liblockfile
-if test -n "$liblockfile"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $liblockfile" >&5
-$as_echo "$liblockfile" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- if test $ac_cv_prog_liblockfile = yes; then
- as_fn_error $? "Shared liblockfile found but can't link against it.
-This probably means that movemail could lose mail.
-There may be a \`development' package to install containing liblockfile." "$LINENO" 5
- fi
-fi
-
-
-
-
-
-## Define MAIL_USE_FLOCK (or LOCKF) if the mailer uses flock (or lockf) to
-## interlock access to the mail spool. The alternative is a lock file named
-## /usr/spool/mail/$USER.lock.
-mail_lock=no
-case "$opsys" in
- aix4-2) mail_lock="lockf" ;;
-
- gnu|freebsd|netbsd|openbsd|darwin|irix6-5) mail_lock="flock" ;;
-
- ## On GNU/Linux systems, both methods are used by various mail programs.
- ## I assume most people are using newer mailers that have heard of flock.
- ## Change this if you need to.
- ## Debian contains a patch which says: ``On Debian/GNU/Linux systems,
- ## configure gets the right answers, and that means *NOT* using flock.
- ## Using flock is guaranteed to be the wrong thing. See Debian Policy
- ## for details.'' and then uses `#ifdef DEBIAN'. Unfortunately the
- ## Debian maintainer hasn't provided a clean fix for Emacs.
- ## movemail.c will use `maillock' when MAILDIR, HAVE_LIBMAIL and
- ## HAVE_MAILLOCK_H are defined, so the following appears to be the
- ## correct logic. -- fx
- ## We must check for HAVE_LIBLOCKFILE too, as movemail does.
- ## liblockfile is a Free Software replacement for libmail, used on
- ## Debian systems and elsewhere. -rfr.
- gnu-*)
- mail_lock="flock"
- if test $have_mail = yes || test $have_lockfile = yes; then
- test $ac_cv_header_maillock_h = yes && mail_lock=no
- fi
- ;;
-esac
-
-BLESSMAIL_TARGET=
-case "$mail_lock" in
- flock)
-$as_echo "#define MAIL_USE_FLOCK 1" >>confdefs.h
- ;;
-
- lockf)
-$as_echo "#define MAIL_USE_LOCKF 1" >>confdefs.h
- ;;
-
- *) BLESSMAIL_TARGET="need-blessmail" ;;
-esac
-
-
-
-for ac_func in gethostname \
-closedir getrusage get_current_dir_name \
-lrand48 setsid \
-fpathconf select euidaccess getpagesize setlocale \
-utimes getrlimit setrlimit setpgid getcwd shutdown getaddrinfo \
-__fpending strsignal setitimer \
-sendto recvfrom getsockname getpeername getifaddrs freeifaddrs \
-gai_strerror mkstemp getline getdelim fsync sync \
-difftime posix_memalign \
-getpwent endpwent getgrent endgrent \
-touchlock \
-cfmakeraw cfsetspeed copysign __executable_start
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
-
-if test $opsys = unixware; then
-
-$as_echo "#define BROKEN_GETWD 1" >>confdefs.h
-
-else
- for ac_func in getwd
-do :
- ac_fn_c_check_func "$LINENO" "getwd" "ac_cv_func_getwd"
-if test "x$ac_cv_func_getwd" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_GETWD 1
-_ACEOF
-
-fi
-done
-
-fi
-
-## Eric Backus <ericb@lsid.hp.com> says, HP-UX 9.x on HP 700 machines
-## has a broken `rint' in some library versions including math library
-## version number A.09.05.
-## You can fix the math library by installing patch number PHSS_4630.
-## But we can fix it more reliably for Emacs by just not using rint.
-## We also skip HAVE_RANDOM - see comments in src/conf_post.h.
-case $opsys in
- hpux*) : ;;
- *) for ac_func in random rint
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
- ;;
-esac
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for __builtin_unwind_init" >&5
-$as_echo_n "checking for __builtin_unwind_init... " >&6; }
-if ${emacs_cv_func___builtin_unwind_init+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-__builtin_unwind_init ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_func___builtin_unwind_init=yes
-else
- emacs_cv_func___builtin_unwind_init=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_func___builtin_unwind_init" >&5
-$as_echo "$emacs_cv_func___builtin_unwind_init" >&6; }
-if test $emacs_cv_func___builtin_unwind_init = yes; then
-
-$as_echo "#define HAVE___BUILTIN_UNWIND_INIT 1" >>confdefs.h
-
-fi
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for _LARGEFILE_SOURCE value needed for large files" >&5
-$as_echo_n "checking for _LARGEFILE_SOURCE value needed for large files... " >&6; }
-if ${ac_cv_sys_largefile_source+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- while :; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h> /* for off_t */
- #include <stdio.h>
-int
-main ()
-{
-int (*fp) (FILE *, off_t, int) = fseeko;
- return fseeko (stdin, 0, 0) && fp (stdin, 0, 0);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_sys_largefile_source=no; break
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#define _LARGEFILE_SOURCE 1
-#include <sys/types.h> /* for off_t */
- #include <stdio.h>
-int
-main ()
-{
-int (*fp) (FILE *, off_t, int) = fseeko;
- return fseeko (stdin, 0, 0) && fp (stdin, 0, 0);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_sys_largefile_source=1; break
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- ac_cv_sys_largefile_source=unknown
- break
-done
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_largefile_source" >&5
-$as_echo "$ac_cv_sys_largefile_source" >&6; }
-case $ac_cv_sys_largefile_source in #(
- no | unknown) ;;
- *)
-cat >>confdefs.h <<_ACEOF
-#define _LARGEFILE_SOURCE $ac_cv_sys_largefile_source
-_ACEOF
-;;
-esac
-rm -rf conftest*
-
-# We used to try defining _XOPEN_SOURCE=500 too, to work around a bug
-# in glibc 2.1.3, but that breaks too many other things.
-# If you want fseeko and ftello with glibc, upgrade to a fixed glibc.
-if test $ac_cv_sys_largefile_source != unknown; then
-
-$as_echo "#define HAVE_FSEEKO 1" >>confdefs.h
-
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether getpgrp requires zero arguments" >&5
-$as_echo_n "checking whether getpgrp requires zero arguments... " >&6; }
-if ${ac_cv_func_getpgrp_void+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # Use it with a single arg.
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$ac_includes_default
-int
-main ()
-{
-getpgrp (0);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_func_getpgrp_void=no
-else
- ac_cv_func_getpgrp_void=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_getpgrp_void" >&5
-$as_echo "$ac_cv_func_getpgrp_void" >&6; }
-if test $ac_cv_func_getpgrp_void = yes; then
-
-$as_echo "#define GETPGRP_VOID 1" >>confdefs.h
-
-fi
-
-
-# UNIX98 PTYs.
-for ac_func in grantpt
-do :
- ac_fn_c_check_func "$LINENO" "grantpt" "ac_cv_func_grantpt"
-if test "x$ac_cv_func_grantpt" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_GRANTPT 1
-_ACEOF
-
-fi
-done
-
-
-# PTY-related GNU extensions.
-for ac_func in getpt posix_openpt
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
-
-# Check this now, so that we will NOT find the above functions in ncurses.
-# That is because we have not set up to link ncurses in lib-src.
-# It's better to believe a function is not available
-# than to expect to find it in ncurses.
-# Also we need tputs and friends to be able to build at all.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing tputs" >&5
-$as_echo_n "checking for library containing tputs... " >&6; }
-# Run a test program that contains a call to tputs, a call that is
-# never executed. This tests whether a pre-'main' dynamic linker
-# works with the library. It's too much trouble to actually call
-# tputs in the test program, due to portability hassles. When
-# cross-compiling, assume the test program will run if it links.
-
-# Maybe curses should be tried earlier?
-# See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=9736#35
-for tputs_library in '' tinfo ncurses terminfo termcap curses; do
- OLIBS=$LIBS
- if test -z "$tputs_library"; then
- LIBS_TERMCAP=
- msg='none required'
- else
- LIBS_TERMCAP=-l$tputs_library
- msg=$LIBS_TERMCAP
- LIBS="$LIBS_TERMCAP $LIBS"
- fi
- if test "$cross_compiling" = yes; then :
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- extern void tputs (const char *, int, int (*)(int));
- int main (int argc, char **argv)
- {
- if (argc == 10000)
- tputs (argv[0], 0, 0);
- return 0;
- }
-
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
-else
- msg=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- extern void tputs (const char *, int, int (*)(int));
- int main (int argc, char **argv)
- {
- if (argc == 10000)
- tputs (argv[0], 0, 0);
- return 0;
- }
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
-
-else
- msg=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- LIBS=$OLIBS
- if test "X$msg" != Xno; then
- break
- fi
-done
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $msg" >&5
-$as_echo "$msg" >&6; }
-if test "X$msg" = Xno; then
- as_fn_error $? "The required function \`tputs' was not found in any library.
-The following libraries were tried (in order):
- libtinfo, libncurses, libterminfo, libtermcap, libcurses
-Please try installing whichever of these libraries is most appropriate
-for your system, together with its header files.
-For example, a libncurses-dev(el) or similar package." "$LINENO" 5
-fi
-
-## Use termcap instead of terminfo?
-## Only true for: freebsd < 40000, ms-w32, msdos, netbsd < 599002500.
-TERMINFO=yes
-## FIXME? In the cases below where we unconditionally set
-## LIBS_TERMCAP="-lncurses", this overrides LIBS_TERMCAP = -ltinfo,
-## if that was found above to have tputs.
-## Should we use the gnu* logic everywhere?
-case "$opsys" in
- ## darwin: Prevents crashes when running Emacs in Terminal.app under 10.2.
- ## The ncurses library has been moved out of the System framework in
- ## Mac OS X 10.2. So if configure detects it, set the command-line
- ## option to use it.
- darwin) LIBS_TERMCAP="-lncurses" ;;
-
- gnu*) test -z "$LIBS_TERMCAP" && LIBS_TERMCAP="-lncurses" ;;
-
- freebsd)
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether FreeBSD is new enough to use terminfo" >&5
-$as_echo_n "checking whether FreeBSD is new enough to use terminfo... " >&6; }
- if ${emacs_cv_freebsd_terminfo+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <osreldate.h>
-int
-main ()
-{
-#if __FreeBSD_version < 400000
-fail;
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_freebsd_terminfo=yes
-else
- emacs_cv_freebsd_terminfo=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_freebsd_terminfo" >&5
-$as_echo "$emacs_cv_freebsd_terminfo" >&6; }
-
- if test $emacs_cv_freebsd_terminfo = yes; then
- LIBS_TERMCAP="-lncurses"
- else
- TERMINFO=no
- LIBS_TERMCAP="-ltermcap"
- fi
- ;;
-
- netbsd)
- if test "x$LIBS_TERMCAP" != "x-lterminfo"; then
- TERMINFO=no
- LIBS_TERMCAP="-ltermcap"
- fi
- ;;
-
- openbsd) LIBS_TERMCAP="-lncurses" ;;
-
- ## hpux: Make sure we get select from libc rather than from libcurses
- ## because libcurses on HPUX 10.10 has a broken version of select.
- ## We used to use -lc -lcurses, but this may be cleaner.
- ## FIXME? But TERMINFO = yes on hpux (it used to be explicitly
- # set that way, now it uses the default). Isn't this a contradiction?
- hpux*) LIBS_TERMCAP="-ltermcap" ;;
-
-esac
-
-TERMCAP_OBJ=tparam.o
-if test $TERMINFO = yes; then
-
-$as_echo "#define TERMINFO 1" >>confdefs.h
-
- TERMCAP_OBJ=terminfo.o
-fi
-
-
-
-
-# Do we have res_init, for detecting changes in /etc/resolv.conf?
-# On Darwin, res_init appears not to be useful: see bug#562 and
-# http://lists.gnu.org/archive/html/emacs-devel/2007-11/msg01467.html
-resolv=no
-
-if test $opsys != darwin; then
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <netinet/in.h>
-#include <arpa/nameser.h>
-#include <resolv.h>
-int
-main ()
-{
-return res_init();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- have_res_init=yes
-else
- have_res_init=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- if test "$have_res_init" = no; then
- OLIBS="$LIBS"
- LIBS="$LIBS -lresolv"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for res_init with -lresolv" >&5
-$as_echo_n "checking for res_init with -lresolv... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <netinet/in.h>
-#include <arpa/nameser.h>
-#include <resolv.h>
-int
-main ()
-{
-return res_init();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- have_res_init=yes
-else
- have_res_init=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $have_res_init" >&5
-$as_echo "$have_res_init" >&6; }
- if test "$have_res_init" = yes ; then
- resolv=yes
- fi
- LIBS="$OLIBS"
- fi
-
- if test "$have_res_init" = yes; then
-
-$as_echo "#define HAVE_RES_INIT 1" >>confdefs.h
-
- fi
-fi
-# Do we need the Hesiod library to provide the support routines?
-LIBHESIOD=
-if test "$with_hesiod" != no ; then
- # Don't set $LIBS here -- see comments above. FIXME which comments?
- ac_fn_c_check_func "$LINENO" "res_send" "ac_cv_func_res_send"
-if test "x$ac_cv_func_res_send" = xyes; then :
-
-else
- ac_fn_c_check_func "$LINENO" "__res_send" "ac_cv_func___res_send"
-if test "x$ac_cv_func___res_send" = xyes; then :
-
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for res_send in -lresolv" >&5
-$as_echo_n "checking for res_send in -lresolv... " >&6; }
-if ${ac_cv_lib_resolv_res_send+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lresolv $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 res_send ();
-int
-main ()
-{
-return res_send ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_resolv_res_send=yes
-else
- ac_cv_lib_resolv_res_send=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_resolv_res_send" >&5
-$as_echo "$ac_cv_lib_resolv_res_send" >&6; }
-if test "x$ac_cv_lib_resolv_res_send" = xyes; then :
- resolv=yes
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for __res_send in -lresolv" >&5
-$as_echo_n "checking for __res_send in -lresolv... " >&6; }
-if ${ac_cv_lib_resolv___res_send+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lresolv $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 __res_send ();
-int
-main ()
-{
-return __res_send ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_resolv___res_send=yes
-else
- ac_cv_lib_resolv___res_send=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_resolv___res_send" >&5
-$as_echo "$ac_cv_lib_resolv___res_send" >&6; }
-if test "x$ac_cv_lib_resolv___res_send" = xyes; then :
- resolv=yes
-fi
-
-fi
-
-fi
-
-fi
-
- if test "$resolv" = yes ; then
- RESOLVLIB=-lresolv
- else
- RESOLVLIB=
- fi
- ac_fn_c_check_func "$LINENO" "hes_getmailhost" "ac_cv_func_hes_getmailhost"
-if test "x$ac_cv_func_hes_getmailhost" = xyes; then :
-
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for hes_getmailhost in -lhesiod" >&5
-$as_echo_n "checking for hes_getmailhost in -lhesiod... " >&6; }
-if ${ac_cv_lib_hesiod_hes_getmailhost+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lhesiod $RESOLVLIB $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 hes_getmailhost ();
-int
-main ()
-{
-return hes_getmailhost ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_hesiod_hes_getmailhost=yes
-else
- ac_cv_lib_hesiod_hes_getmailhost=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_hesiod_hes_getmailhost" >&5
-$as_echo "$ac_cv_lib_hesiod_hes_getmailhost" >&6; }
-if test "x$ac_cv_lib_hesiod_hes_getmailhost" = xyes; then :
- hesiod=yes
-else
- :
-fi
-
-fi
-
-
- if test x"$hesiod" = xyes; then
-
-$as_echo "#define HAVE_LIBHESIOD 1" >>confdefs.h
-
- LIBHESIOD=-lhesiod
- fi
-fi
-
-
-# Do we need libresolv (due to res_init or Hesiod)?
-if test "$resolv" = yes && test $opsys != darwin; then
-
-$as_echo "#define HAVE_LIBRESOLV 1" >>confdefs.h
-
- LIBRESOLV=-lresolv
-else
- LIBRESOLV=
-fi
-
-
-# These tell us which Kerberos-related libraries to use.
-COM_ERRLIB=
-CRYPTOLIB=
-KRB5LIB=
-DESLIB=
-KRB4LIB=
-
-if test "${with_kerberos}" != no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for com_err in -lcom_err" >&5
-$as_echo_n "checking for com_err in -lcom_err... " >&6; }
-if ${ac_cv_lib_com_err_com_err+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lcom_err $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 com_err ();
-int
-main ()
-{
-return com_err ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_com_err_com_err=yes
-else
- ac_cv_lib_com_err_com_err=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_com_err_com_err" >&5
-$as_echo "$ac_cv_lib_com_err_com_err" >&6; }
-if test "x$ac_cv_lib_com_err_com_err" = xyes; then :
- have_com_err=yes
-else
- have_com_err=no
-fi
-
- if test $have_com_err = yes; then
- COM_ERRLIB=-lcom_err
- LIBS="$COM_ERRLIB $LIBS"
-
-$as_echo "#define HAVE_LIBCOM_ERR 1" >>confdefs.h
-
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for mit_des_cbc_encrypt in -lcrypto" >&5
-$as_echo_n "checking for mit_des_cbc_encrypt in -lcrypto... " >&6; }
-if ${ac_cv_lib_crypto_mit_des_cbc_encrypt+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lcrypto $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 mit_des_cbc_encrypt ();
-int
-main ()
-{
-return mit_des_cbc_encrypt ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_crypto_mit_des_cbc_encrypt=yes
-else
- ac_cv_lib_crypto_mit_des_cbc_encrypt=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_crypto_mit_des_cbc_encrypt" >&5
-$as_echo "$ac_cv_lib_crypto_mit_des_cbc_encrypt" >&6; }
-if test "x$ac_cv_lib_crypto_mit_des_cbc_encrypt" = xyes; then :
- have_crypto=yes
-else
- have_crypto=no
-fi
-
- if test $have_crypto = yes; then
- CRYPTOLIB=-lcrypto
- LIBS="$CRYPTOLIB $LIBS"
-
-$as_echo "#define HAVE_LIBCRYPTO 1" >>confdefs.h
-
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for mit_des_cbc_encrypt in -lk5crypto" >&5
-$as_echo_n "checking for mit_des_cbc_encrypt in -lk5crypto... " >&6; }
-if ${ac_cv_lib_k5crypto_mit_des_cbc_encrypt+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lk5crypto $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 mit_des_cbc_encrypt ();
-int
-main ()
-{
-return mit_des_cbc_encrypt ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_k5crypto_mit_des_cbc_encrypt=yes
-else
- ac_cv_lib_k5crypto_mit_des_cbc_encrypt=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_k5crypto_mit_des_cbc_encrypt" >&5
-$as_echo "$ac_cv_lib_k5crypto_mit_des_cbc_encrypt" >&6; }
-if test "x$ac_cv_lib_k5crypto_mit_des_cbc_encrypt" = xyes; then :
- have_k5crypto=yes
-else
- have_k5crypto=no
-fi
-
- if test $have_k5crypto = yes; then
- CRYPTOLIB=-lk5crypto
- LIBS="$CRYPTOLIB $LIBS"
-
-$as_echo "#define HAVE_LIBK5CRYPTO 1" >>confdefs.h
-
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for krb5_init_context in -lkrb5" >&5
-$as_echo_n "checking for krb5_init_context in -lkrb5... " >&6; }
-if ${ac_cv_lib_krb5_krb5_init_context+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lkrb5 $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 krb5_init_context ();
-int
-main ()
-{
-return krb5_init_context ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_krb5_krb5_init_context=yes
-else
- ac_cv_lib_krb5_krb5_init_context=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_krb5_krb5_init_context" >&5
-$as_echo "$ac_cv_lib_krb5_krb5_init_context" >&6; }
-if test "x$ac_cv_lib_krb5_krb5_init_context" = xyes; then :
- have_krb5=yes
-else
- have_krb5=no
-fi
-
- if test $have_krb5=yes; then
- KRB5LIB=-lkrb5
- LIBS="$KRB5LIB $LIBS"
-
-$as_echo "#define HAVE_LIBKRB5 1" >>confdefs.h
-
- fi
- if test "${with_kerberos5}" = no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for des_cbc_encrypt in -ldes425" >&5
-$as_echo_n "checking for des_cbc_encrypt in -ldes425... " >&6; }
-if ${ac_cv_lib_des425_des_cbc_encrypt+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldes425 $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 des_cbc_encrypt ();
-int
-main ()
-{
-return des_cbc_encrypt ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_des425_des_cbc_encrypt=yes
-else
- ac_cv_lib_des425_des_cbc_encrypt=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_des425_des_cbc_encrypt" >&5
-$as_echo "$ac_cv_lib_des425_des_cbc_encrypt" >&6; }
-if test "x$ac_cv_lib_des425_des_cbc_encrypt" = xyes; then :
- have_des425=yes
-else
- have_des425=no
-fi
-
- if test $have_des425 = yes; then
- DESLIB=-ldes425
- LIBS="$DESLIB $LIBS"
-
-$as_echo "#define HAVE_LIBDES425 1" >>confdefs.h
-
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for des_cbc_encrypt in -ldes" >&5
-$as_echo_n "checking for des_cbc_encrypt in -ldes... " >&6; }
-if ${ac_cv_lib_des_des_cbc_encrypt+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldes $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 des_cbc_encrypt ();
-int
-main ()
-{
-return des_cbc_encrypt ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_des_des_cbc_encrypt=yes
-else
- ac_cv_lib_des_des_cbc_encrypt=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_des_des_cbc_encrypt" >&5
-$as_echo "$ac_cv_lib_des_des_cbc_encrypt" >&6; }
-if test "x$ac_cv_lib_des_des_cbc_encrypt" = xyes; then :
- have_des=yes
-else
- have_des=no
-fi
-
- if test $have_des = yes; then
- DESLIB=-ldes
- LIBS="$DESLIB $LIBS"
-
-$as_echo "#define HAVE_LIBDES 1" >>confdefs.h
-
- fi
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for krb_get_cred in -lkrb4" >&5
-$as_echo_n "checking for krb_get_cred in -lkrb4... " >&6; }
-if ${ac_cv_lib_krb4_krb_get_cred+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lkrb4 $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 krb_get_cred ();
-int
-main ()
-{
-return krb_get_cred ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_krb4_krb_get_cred=yes
-else
- ac_cv_lib_krb4_krb_get_cred=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_krb4_krb_get_cred" >&5
-$as_echo "$ac_cv_lib_krb4_krb_get_cred" >&6; }
-if test "x$ac_cv_lib_krb4_krb_get_cred" = xyes; then :
- have_krb4=yes
-else
- have_krb4=no
-fi
-
- if test $have_krb4 = yes; then
- KRB4LIB=-lkrb4
- LIBS="$KRB4LIB $LIBS"
-
-$as_echo "#define HAVE_LIBKRB4 1" >>confdefs.h
-
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for krb_get_cred in -lkrb" >&5
-$as_echo_n "checking for krb_get_cred in -lkrb... " >&6; }
-if ${ac_cv_lib_krb_krb_get_cred+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lkrb $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 krb_get_cred ();
-int
-main ()
-{
-return krb_get_cred ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_krb_krb_get_cred=yes
-else
- ac_cv_lib_krb_krb_get_cred=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_krb_krb_get_cred" >&5
-$as_echo "$ac_cv_lib_krb_krb_get_cred" >&6; }
-if test "x$ac_cv_lib_krb_krb_get_cred" = xyes; then :
- have_krb=yes
-else
- have_krb=no
-fi
-
- if test $have_krb = yes; then
- KRB4LIB=-lkrb
- LIBS="$KRB4LIB $LIBS"
-
-$as_echo "#define HAVE_LIBKRB 1" >>confdefs.h
-
- fi
- fi
- fi
-
- if test "${with_kerberos5}" != no; then
- for ac_header in krb5.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "krb5.h" "ac_cv_header_krb5_h" "$ac_includes_default"
-if test "x$ac_cv_header_krb5_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_KRB5_H 1
-_ACEOF
- ac_fn_c_check_member "$LINENO" "krb5_error" "text" "ac_cv_member_krb5_error_text" "#include <krb5.h>
-"
-if test "x$ac_cv_member_krb5_error_text" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_KRB5_ERROR_TEXT 1
-_ACEOF
-
-
-fi
-ac_fn_c_check_member "$LINENO" "krb5_error" "e_text" "ac_cv_member_krb5_error_e_text" "#include <krb5.h>
-"
-if test "x$ac_cv_member_krb5_error_e_text" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_KRB5_ERROR_E_TEXT 1
-_ACEOF
-
-
-fi
-
-fi
-
-done
-
- else
- for ac_header in des.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "des.h" "ac_cv_header_des_h" "$ac_includes_default"
-if test "x$ac_cv_header_des_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_DES_H 1
-_ACEOF
-
-else
- for ac_header in kerberosIV/des.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "kerberosIV/des.h" "ac_cv_header_kerberosIV_des_h" "$ac_includes_default"
-if test "x$ac_cv_header_kerberosIV_des_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_KERBEROSIV_DES_H 1
-_ACEOF
-
-else
- for ac_header in kerberos/des.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "kerberos/des.h" "ac_cv_header_kerberos_des_h" "$ac_includes_default"
-if test "x$ac_cv_header_kerberos_des_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_KERBEROS_DES_H 1
-_ACEOF
-
-fi
-
-done
-
-fi
-
-done
-
-fi
-
-done
-
- for ac_header in krb.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "krb.h" "ac_cv_header_krb_h" "$ac_includes_default"
-if test "x$ac_cv_header_krb_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_KRB_H 1
-_ACEOF
-
-else
- for ac_header in kerberosIV/krb.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "kerberosIV/krb.h" "ac_cv_header_kerberosIV_krb_h" "$ac_includes_default"
-if test "x$ac_cv_header_kerberosIV_krb_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_KERBEROSIV_KRB_H 1
-_ACEOF
-
-else
- for ac_header in kerberos/krb.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "kerberos/krb.h" "ac_cv_header_kerberos_krb_h" "$ac_includes_default"
-if test "x$ac_cv_header_kerberos_krb_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_KERBEROS_KRB_H 1
-_ACEOF
-
-fi
-
-done
-
-fi
-
-done
-
-fi
-
-done
-
- fi
- for ac_header in com_err.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "com_err.h" "ac_cv_header_com_err_h" "$ac_includes_default"
-if test "x$ac_cv_header_com_err_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_COM_ERR_H 1
-_ACEOF
-
-fi
-
-done
-
-fi
-
-
-
-
-
-
-
-
-
-
- for ac_func in $ac_func_list
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether localtime caches TZ" >&5
-$as_echo_n "checking whether localtime caches TZ... " >&6; }
-if ${emacs_cv_localtime_cache+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test x$ac_cv_func_tzset = xyes; then
-if test "$cross_compiling" = yes; then :
- # If we have tzset, assume the worst when cross-compiling.
-emacs_cv_localtime_cache=yes
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <time.h>
-char TZ_GMT0[] = "TZ=GMT0";
-char TZ_PST8[] = "TZ=PST8";
-main()
-{
- time_t now = time ((time_t *) 0);
- int hour_GMT0, hour_unset;
- if (putenv (TZ_GMT0) != 0)
- exit (1);
- hour_GMT0 = localtime (&now)->tm_hour;
- unsetenv("TZ");
- hour_unset = localtime (&now)->tm_hour;
- if (putenv (TZ_PST8) != 0)
- exit (1);
- if (localtime (&now)->tm_hour == hour_GMT0)
- exit (1);
- unsetenv("TZ");
- if (localtime (&now)->tm_hour != hour_unset)
- exit (1);
- exit (0);
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- emacs_cv_localtime_cache=no
-else
- emacs_cv_localtime_cache=yes
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-else
- # If we lack tzset, report that localtime does not cache TZ,
- # since we can't invalidate the cache if we don't have tzset.
- emacs_cv_localtime_cache=no
-fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_localtime_cache" >&5
-$as_echo "$emacs_cv_localtime_cache" >&6; }
-if test $emacs_cv_localtime_cache = yes; then
-
-$as_echo "#define LOCALTIME_CACHE 1" >>confdefs.h
-
-fi
-
-ok_so_far=yes
-ac_fn_c_check_func "$LINENO" "socket" "ac_cv_func_socket"
-if test "x$ac_cv_func_socket" = xyes; then :
-
-else
- ok_so_far=no
-fi
-
-if test $ok_so_far = yes; then
- ac_fn_c_check_header_mongrel "$LINENO" "netinet/in.h" "ac_cv_header_netinet_in_h" "$ac_includes_default"
-if test "x$ac_cv_header_netinet_in_h" = xyes; then :
-
-else
- ok_so_far=no
-fi
-
-
-fi
-if test $ok_so_far = yes; then
- ac_fn_c_check_header_mongrel "$LINENO" "arpa/inet.h" "ac_cv_header_arpa_inet_h" "$ac_includes_default"
-if test "x$ac_cv_header_arpa_inet_h" = xyes; then :
-
-else
- ok_so_far=no
-fi
-
-
-fi
-if test $ok_so_far = yes; then
-
-$as_echo "#define HAVE_INET_SOCKETS 1" >>confdefs.h
-
-fi
-
-if test -f /usr/lpp/X11/bin/smt.exp; then
-
-$as_echo "#define HAVE_AIX_SMT_EXP 1" >>confdefs.h
-
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether system supports dynamic ptys" >&5
-$as_echo_n "checking whether system supports dynamic ptys... " >&6; }
-if test -d /dev/pts && ls -d /dev/ptmx > /dev/null 2>&1 ; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-
-$as_echo "#define HAVE_DEV_PTMX 1" >>confdefs.h
-
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-case $canonical in
- *-solaris2.4 | *-solaris2.4.*)
- : ${ac_cv_func_vfork_works=no};;
-esac
-
-ac_fn_c_check_type "$LINENO" "pid_t" "ac_cv_type_pid_t" "$ac_includes_default"
-if test "x$ac_cv_type_pid_t" = xyes; then :
-
-else
-
-cat >>confdefs.h <<_ACEOF
-#define pid_t int
-_ACEOF
-
-fi
-
-for ac_header in vfork.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "vfork.h" "ac_cv_header_vfork_h" "$ac_includes_default"
-if test "x$ac_cv_header_vfork_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_VFORK_H 1
-_ACEOF
-
-fi
-
-done
-
-for ac_func in fork vfork
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
-if test "x$ac_cv_func_fork" = xyes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working fork" >&5
-$as_echo_n "checking for working fork... " >&6; }
-if ${ac_cv_func_fork_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- ac_cv_func_fork_works=cross
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$ac_includes_default
-int
-main ()
-{
-
- /* By Ruediger Kuhlmann. */
- return fork () < 0;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- ac_cv_func_fork_works=yes
-else
- ac_cv_func_fork_works=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_fork_works" >&5
-$as_echo "$ac_cv_func_fork_works" >&6; }
-
-else
- ac_cv_func_fork_works=$ac_cv_func_fork
-fi
-if test "x$ac_cv_func_fork_works" = xcross; then
- case $host in
- *-*-amigaos* | *-*-msdosdjgpp*)
- # Override, as these systems have only a dummy fork() stub
- ac_cv_func_fork_works=no
- ;;
- *)
- ac_cv_func_fork_works=yes
- ;;
- esac
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: result $ac_cv_func_fork_works guessed because of cross compilation" >&5
-$as_echo "$as_me: WARNING: result $ac_cv_func_fork_works guessed because of cross compilation" >&2;}
-fi
-ac_cv_func_vfork_works=$ac_cv_func_vfork
-if test "x$ac_cv_func_vfork" = xyes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working vfork" >&5
-$as_echo_n "checking for working vfork... " >&6; }
-if ${ac_cv_func_vfork_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- ac_cv_func_vfork_works=cross
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-/* Thanks to Paul Eggert for this test. */
-$ac_includes_default
-#include <sys/wait.h>
-#ifdef HAVE_VFORK_H
-# include <vfork.h>
-#endif
-/* On some sparc systems, changes by the child to local and incoming
- argument registers are propagated back to the parent. The compiler
- is told about this with #include <vfork.h>, but some compilers
- (e.g. gcc -O) don't grok <vfork.h>. Test for this by using a
- static variable whose address is put into a register that is
- clobbered by the vfork. */
-static void
-#ifdef __cplusplus
-sparc_address_test (int arg)
-# else
-sparc_address_test (arg) int arg;
-#endif
-{
- static pid_t child;
- if (!child) {
- child = vfork ();
- if (child < 0) {
- perror ("vfork");
- _exit(2);
- }
- if (!child) {
- arg = getpid();
- write(-1, "", 0);
- _exit (arg);
- }
- }
-}
-
-int
-main ()
-{
- pid_t parent = getpid ();
- pid_t child;
-
- sparc_address_test (0);
-
- child = vfork ();
-
- if (child == 0) {
- /* Here is another test for sparc vfork register problems. This
- test uses lots of local variables, at least as many local
- variables as main has allocated so far including compiler
- temporaries. 4 locals are enough for gcc 1.40.3 on a Solaris
- 4.1.3 sparc, but we use 8 to be safe. A buggy compiler should
- reuse the register of parent for one of the local variables,
- since it will think that parent can't possibly be used any more
- in this routine. Assigning to the local variable will thus
- munge parent in the parent process. */
- pid_t
- p = getpid(), p1 = getpid(), p2 = getpid(), p3 = getpid(),
- p4 = getpid(), p5 = getpid(), p6 = getpid(), p7 = getpid();
- /* Convince the compiler that p..p7 are live; otherwise, it might
- use the same hardware register for all 8 local variables. */
- if (p != p1 || p != p2 || p != p3 || p != p4
- || p != p5 || p != p6 || p != p7)
- _exit(1);
-
- /* On some systems (e.g. IRIX 3.3), vfork doesn't separate parent
- from child file descriptors. If the child closes a descriptor
- before it execs or exits, this munges the parent's descriptor
- as well. Test for this by closing stdout in the child. */
- _exit(close(fileno(stdout)) != 0);
- } else {
- int status;
- struct stat st;
-
- while (wait(&status) != child)
- ;
- return (
- /* Was there some problem with vforking? */
- child < 0
-
- /* Did the child fail? (This shouldn't happen.) */
- || status
-
- /* Did the vfork/compiler bug occur? */
- || parent != getpid()
-
- /* Did the file descriptor bug occur? */
- || fstat(fileno(stdout), &st) != 0
- );
- }
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- ac_cv_func_vfork_works=yes
-else
- ac_cv_func_vfork_works=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_vfork_works" >&5
-$as_echo "$ac_cv_func_vfork_works" >&6; }
-
-fi;
-if test "x$ac_cv_func_fork_works" = xcross; then
- ac_cv_func_vfork_works=$ac_cv_func_vfork
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: result $ac_cv_func_vfork_works guessed because of cross compilation" >&5
-$as_echo "$as_me: WARNING: result $ac_cv_func_vfork_works guessed because of cross compilation" >&2;}
-fi
-
-if test "x$ac_cv_func_vfork_works" = xyes; then
-
-$as_echo "#define HAVE_WORKING_VFORK 1" >>confdefs.h
-
-else
-
-$as_echo "#define vfork fork" >>confdefs.h
-
-fi
-if test "x$ac_cv_func_fork_works" = xyes; then
-
-$as_echo "#define HAVE_WORKING_FORK 1" >>confdefs.h
-
-fi
-
-
-for ac_func in snprintf
-do :
- ac_fn_c_check_func "$LINENO" "snprintf" "ac_cv_func_snprintf"
-if test "x$ac_cv_func_snprintf" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_SNPRINTF 1
-_ACEOF
-
-fi
-done
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for nl_langinfo and CODESET" >&5
-$as_echo_n "checking for nl_langinfo and CODESET... " >&6; }
-if ${emacs_cv_langinfo_codeset+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <langinfo.h>
-int
-main ()
-{
-char* cs = nl_langinfo(CODESET);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_langinfo_codeset=yes
-else
- emacs_cv_langinfo_codeset=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_langinfo_codeset" >&5
-$as_echo "$emacs_cv_langinfo_codeset" >&6; }
-if test $emacs_cv_langinfo_codeset = yes; then
-
-$as_echo "#define HAVE_LANGINFO_CODESET 1" >>confdefs.h
-
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for mbstate_t" >&5
-$as_echo_n "checking for mbstate_t... " >&6; }
-if ${ac_cv_type_mbstate_t+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$ac_includes_default
-# include <wchar.h>
-int
-main ()
-{
-mbstate_t x; return sizeof x;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_type_mbstate_t=yes
-else
- ac_cv_type_mbstate_t=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_mbstate_t" >&5
-$as_echo "$ac_cv_type_mbstate_t" >&6; }
- if test $ac_cv_type_mbstate_t = yes; then
-
-$as_echo "#define HAVE_MBSTATE_T 1" >>confdefs.h
-
- else
-
-$as_echo "#define mbstate_t int" >>confdefs.h
-
- fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C restricted array declarations" >&5
-$as_echo_n "checking for C restricted array declarations... " >&6; }
-if ${emacs_cv_c_restrict_arr+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-void fred (int x[__restrict]);
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_cv_c_restrict_arr=yes
-else
- emacs_cv_c_restrict_arr=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_c_restrict_arr" >&5
-$as_echo "$emacs_cv_c_restrict_arr" >&6; }
-if test "$emacs_cv_c_restrict_arr" = yes; then
-
-$as_echo "#define __restrict_arr __restrict" >>confdefs.h
-
-fi
-
-
-
-$as_echo "#define AMPERSAND_FULL_NAME 1" >>confdefs.h
-
-
-
-$as_echo "#define CLASH_DETECTION 1" >>confdefs.h
-
-
-## Note: PTYs are broken on darwin <6. Use at your own risk.
-
-$as_echo "#define HAVE_PTYS 1" >>confdefs.h
-
-
-
-$as_echo "#define HAVE_SOCKETS 1" >>confdefs.h
-
-
-
-
-
-$as_echo "#define NULL_DEVICE \"/dev/null\"" >>confdefs.h
-
-
-
-$as_echo "#define SEPCHAR ':'" >>confdefs.h
-
-
-
-$as_echo "#define subprocesses 1" >>confdefs.h
-
-
-
-$as_echo "#define USER_FULL_NAME pw->pw_gecos" >>confdefs.h
-
-
-
-
-$as_echo "#define DIRECTORY_SEP '/'" >>confdefs.h
-
-
-
-
-
-$as_echo "#define IS_DEVICE_SEP(_c_) 0" >>confdefs.h
-
-
-
-$as_echo "#define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP)" >>confdefs.h
-
-
-
-$as_echo "#define IS_ANY_SEP(_c_) (IS_DIRECTORY_SEP (_c_))" >>confdefs.h
-
-
-
-
-
-case $opsys in
- aix4-2)
- if test x$ac_cv_lib_Xmu_XmuConvertStandardSelection != xyes; then
- $as_echo "#define NO_EDITRES 1" >>confdefs.h
-
- fi
- ;;
-
- hpux*)
- $as_echo "#define NO_EDITRES 1" >>confdefs.h
-
- ;;
-esac
-
-
-case $opsys in
- irix6-5 | sol2* | unixware )
-
-$as_echo "#define NSIG_MINIMUM 32" >>confdefs.h
-
- ;;
-esac
-
-emacs_broken_SIGIO=no
-
-case $opsys in
- hpux* | irix6-5 | openbsd | sol2* | unixware )
- emacs_broken_SIGIO=yes
- ;;
-
- aix4-2)
-
-$as_echo "#define BROKEN_GET_CURRENT_DIR_NAME 1" >>confdefs.h
-
- ;;
-
- freebsd)
-
-$as_echo "#define BROKEN_PTY_READ_AFTER_EAGAIN 1" >>confdefs.h
-
- ;;
-esac
-
-case $opsys in
- gnu-* | sol2-10 )
-
-$as_echo "#define HAVE_PROCFS 1" >>confdefs.h
-
- ;;
-esac
-
-case $opsys in
- darwin | freebsd | netbsd | openbsd )
-
-$as_echo "#define DONT_REOPEN_PTY 1" >>confdefs.h
-
- ;;
-esac
-
-case $opsys in
- netbsd | openbsd) sound_device="/dev/audio" ;;
- *) sound_device="/dev/dsp" ;;
-esac
-
-
-cat >>confdefs.h <<_ACEOF
-#define DEFAULT_SOUND_DEVICE "$sound_device"
-_ACEOF
-
-
-
-case $opsys in
- darwin | gnu-linux | gnu-kfreebsd )
-
-$as_echo "#define INTERRUPT_INPUT 1" >>confdefs.h
-
- ;;
-esac
-
-
-case $opsys in
- cygwin|gnu|gnu-linux|gnu-kfreebsd|irix6-5|freebsd|netbsd|openbsd)
-
-$as_echo "#define NARROWPROTO 1" >>confdefs.h
-
- ;;
-esac
-
-
-
-
-
-
-
-
-case $opsys in
- aix4-2 )
- $as_echo "#define PTY_ITERATION int c; for (c = 0; !c ; c++)" >>confdefs.h
-
- $as_echo "#define PTY_NAME_SPRINTF strcpy (pty_name, \"/dev/ptc\");" >>confdefs.h
-
- $as_echo "#define PTY_TTY_NAME_SPRINTF strcpy (pty_name, ttyname (fd));" >>confdefs.h
-
- ;;
-
- cygwin )
- $as_echo "#define PTY_ITERATION int i; for (i = 0; i < 1; i++)" >>confdefs.h
-
- $as_echo "#define PTY_OPEN do { int dummy; sigset_t blocked, procmask; sigemptyset (&blocked); sigaddset (&blocked, SIGCHLD); pthread_sigmask (SIG_BLOCK, &blocked, &procmask); if (-1 == openpty (&fd, &dummy, pty_name, 0, 0)) fd = -1; pthread_sigmask (SIG_SETMASK, &procmask, 0); if (fd >= 0) emacs_close (dummy); } while (0)" >>confdefs.h
-
- $as_echo "#define PTY_NAME_SPRINTF /**/" >>confdefs.h
-
- $as_echo "#define PTY_TTY_NAME_SPRINTF /**/" >>confdefs.h
-
- ;;
-
- darwin )
- $as_echo "#define PTY_ITERATION int i; for (i = 0; i < 1; i++)" >>confdefs.h
-
- $as_echo "#define FIRST_PTY_LETTER 'p'" >>confdefs.h
-
- $as_echo "#define PTY_OPEN do { int slave; if (openpty (&fd, &slave, pty_name, NULL, NULL) == -1) fd = -1; else emacs_close (slave); } while (0)" >>confdefs.h
-
- $as_echo "#define PTY_NAME_SPRINTF /**/" >>confdefs.h
-
- $as_echo "#define PTY_TTY_NAME_SPRINTF /**/" >>confdefs.h
-
- ;;
-
- gnu | openbsd )
- $as_echo "#define FIRST_PTY_LETTER 'p'" >>confdefs.h
-
- ;;
-
- gnu-linux | gnu-kfreebsd | freebsd | netbsd )
- if test "x$ac_cv_func_grantpt" = xyes; then
-
-$as_echo "#define UNIX98_PTYS 1" >>confdefs.h
-
- $as_echo "#define PTY_ITERATION int i; for (i = 0; i < 1; i++)" >>confdefs.h
-
- $as_echo "#define PTY_TTY_NAME_SPRINTF { char *ptyname = 0; sigset_t blocked; sigemptyset (&blocked); sigaddset (&blocked, SIGCHLD); pthread_sigmask (SIG_BLOCK, &blocked, 0); if (grantpt (fd) != -1 && unlockpt (fd) != -1) ptyname = ptsname(fd); pthread_sigmask (SIG_UNBLOCK, &blocked, 0); if (!ptyname) { close (fd); return -1; } snprintf (pty_name, sizeof pty_name, \"%s\", ptyname); }" >>confdefs.h
-
- if test "x$ac_cv_func_posix_openpt" = xyes; then
- $as_echo "#define PTY_OPEN fd = posix_openpt (O_RDWR | O_NOCTTY)" >>confdefs.h
-
- $as_echo "#define PTY_NAME_SPRINTF /**/" >>confdefs.h
-
- elif test "x$ac_cv_func_getpt" = xyes; then
- $as_echo "#define PTY_OPEN fd = getpt ()" >>confdefs.h
-
- $as_echo "#define PTY_NAME_SPRINTF /**/" >>confdefs.h
-
- else
- $as_echo "#define PTY_NAME_SPRINTF strcpy (pty_name, \"/dev/ptmx\");" >>confdefs.h
-
- fi
- else
- $as_echo "#define FIRST_PTY_LETTER 'p'" >>confdefs.h
-
- fi
- ;;
-
- hpux*)
- $as_echo "#define FIRST_PTY_LETTER 'p'" >>confdefs.h
-
- $as_echo "#define PTY_NAME_SPRINTF sprintf (pty_name, \"/dev/ptym/pty%c%x\", c, i);" >>confdefs.h
-
- $as_echo "#define PTY_TTY_NAME_SPRINTF sprintf (pty_name, \"/dev/pty/tty%c%x\", c, i);" >>confdefs.h
-
- ;;
-
- irix6-5 )
- $as_echo "#define PTY_ITERATION /**/" >>confdefs.h
-
- $as_echo "#define FIRST_PTY_LETTER 'q'" >>confdefs.h
-
- $as_echo "#define PTY_OPEN { struct sigaction ocstat, cstat; struct stat stb; char * name; sigemptyset(&cstat.sa_mask); cstat.sa_handler = SIG_DFL; cstat.sa_flags = 0; sigaction(SIGCLD, &cstat, &ocstat); name = _getpty (&fd, O_RDWR | O_NDELAY, 0600, 0); sigaction(SIGCLD, &ocstat, (struct sigaction *)0); if (name == 0) return -1; if (fd < 0) return -1; if (fstat (fd, &stb) < 0) return -1; strcpy (pty_name, name); }" >>confdefs.h
-
- $as_echo "#define PTY_NAME_SPRINTF /**/" >>confdefs.h
-
- $as_echo "#define PTY_TTY_NAME_SPRINTF /**/" >>confdefs.h
-
- ;;
-
- sol2* )
- $as_echo "#define PTY_TTY_NAME_SPRINTF { char *ptsname (int), *ptyname; int grantpt_result; sigset_t blocked; sigemptyset (&blocked); sigaddset (&blocked, SIGCLD); pthread_sigmask (SIG_BLOCK, &blocked, 0); grantpt_result = grantpt (fd); pthread_sigmask (SIG_UNBLOCK, &blocked, 0); if (grantpt_result == -1 || unlockpt (fd) == -1 || !(ptyname = ptsname (fd))) { emacs_close (fd); return -1; } snprintf (pty_name, sizeof pty_name, \"%s\", ptyname); }" >>confdefs.h
-
- ;;
-
- unixware )
- $as_echo "#define PTY_TTY_NAME_SPRINTF { char *ptsname (int), *ptyname; int grantpt_result; sigset_t blocked; sigemptyset (&blocked); sigaddset (&blocked, SIGCLD); pthread_sigmask (SIG_BLOCK, &blocked, 0); grantpt_result = grantpt (fd); pthread_sigmask (SIG_UNBLOCK, &blocked, 0); if (grantpt_result == -1) fatal(\"could not grant slave pty\"); if (unlockpt(fd) == -1) fatal(\"could not unlock slave pty\"); if (!(ptyname = ptsname(fd))) fatal (\"could not enable slave pty\"); snprintf (pty_name, sizeof pty_name, \"%s\", ptyname); }" >>confdefs.h
-
- ;;
-esac
-
-
-case $opsys in
- sol2* | unixware )
- $as_echo "#define FIRST_PTY_LETTER 'z'" >>confdefs.h
-
- $as_echo "#define PTY_NAME_SPRINTF strcpy (pty_name, \"/dev/ptmx\");" >>confdefs.h
-
-
-$as_echo "#define SETUP_SLAVE_PTY if (ioctl (xforkin, I_PUSH, \"ptem\") == -1) fatal (\"ioctl I_PUSH ptem\"); if (ioctl (xforkin, I_PUSH, \"ldterm\") == -1) fatal (\"ioctl I_PUSH ldterm\"); if (ioctl (xforkin, I_PUSH, \"ttcompat\") == -1) fatal (\"ioctl I_PUSH ttcompat\");" >>confdefs.h
-
- ;;
-esac
-
-
-
-
-case $opsys in
- aix4-2 | cygwin | gnu | irix6-5 | freebsd | netbsd | openbsd | darwin )
- $as_echo "#define SIGNALS_VIA_CHARACTERS 1" >>confdefs.h
-
- ;;
-
- gnu-linux | gnu-kfreebsd )
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for signals via characters" >&5
-$as_echo_n "checking for signals via characters... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <linux/version.h>
-#if LINUX_VERSION_CODE < 0x20400
-# error "Linux version too old"
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- emacs_signals_via_chars=yes
-else
- emacs_signals_via_chars=no
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_signals_via_chars" >&5
-$as_echo "$emacs_signals_via_chars" >&6; }
- test $emacs_signals_via_chars = yes && $as_echo "#define SIGNALS_VIA_CHARACTERS 1" >>confdefs.h
-
- ;;
-esac
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C library" >&5
-$as_echo_n "checking whether we are using the GNU C library... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <features.h>
-#ifndef __GNU_LIBRARY__
-# error "this is not the GNU C library"
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- emacs_glibc=yes
-else
- emacs_glibc=no
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_glibc" >&5
-$as_echo "$emacs_glibc" >&6; }
-
-if test $emacs_glibc = yes; then
-
- emacs_pending_output=unknown
-
- case $opsys in
- gnu | gnu-linux | gnu-kfreebsd )
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of pending output formalism" >&5
-$as_echo_n "checking for style of pending output formalism... " >&6; }
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <stdio.h>
-#if !defined (_IO_STDIO_H) && !defined (_STDIO_USES_IOSTREAM)
-# error "stdio definitions not found"
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- emacs_pending_output=new
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
- if test $emacs_pending_output = unknown; then
- case $opsys in
- gnu-linux | gnu-kfreebsd)
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <stdio.h>
-#ifndef __UCLIBC__
-# error "not using uclibc"
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- emacs_pending_output=uclibc
-else
- emacs_pending_output=old
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
- ;;
- esac
- fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_pending_output" >&5
-$as_echo "$emacs_pending_output" >&6; }
-
- case $emacs_pending_output in
- new)
- $as_echo "#define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_IO_write_ptr - (FILE)->_IO_write_base)" >>confdefs.h
-
- ;;
- uclibc)
- $as_echo "#define PENDING_OUTPUT_COUNT(FILE) ((FILE)->__bufpos - (FILE)->__bufstart)" >>confdefs.h
-
- ;;
- old)
- $as_echo "#define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_pptr - (FILE)->_pbase)" >>confdefs.h
-
- ;;
- esac
- ;;
- esac
- if test $emacs_pending_output = unknown; then
- $as_echo "#define PENDING_OUTPUT_COUNT(FILE) ((FILE)->__bufp - (FILE)->__buffer)" >>confdefs.h
-
- fi
-
-else
- case $opsys in
- cygwin | darwin | freebsd | netbsd | openbsd )
- $as_echo "#define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_p - (FILE)->_bf._base)" >>confdefs.h
-
- ;;
-
- unixware)
- $as_echo "#define PENDING_OUTPUT_COUNT(FILE) ((FILE)->__ptr - (FILE)->__base)" >>confdefs.h
-
- ;;
-
- *)
- if test x$ac_cv_header_stdio_ext_h = xyes && \
- test x$ac_cv_func___fpending = xyes; then
- $as_echo "#define PENDING_OUTPUT_COUNT(FILE) __fpending (FILE)" >>confdefs.h
-
-
-$as_echo "#define DISPNEW_NEEDS_STDIO_EXT 1" >>confdefs.h
-
- else
- $as_echo "#define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_ptr - (FILE)->_base)" >>confdefs.h
-
- fi
- ;;
- esac
-fi
-
-
-
-
-case $opsys in
- gnu)
- $as_echo "#define DATA_START ({ extern int data_start; (char *) &data_start; })" >>confdefs.h
-
- ;;
-
- aix*)
- $as_echo "#define DATA_START 0x20000000" >>confdefs.h
-
- $as_echo "#define DATA_SEG_BITS 0x20000000" >>confdefs.h
-
- ;;
- hpux*)
- $as_echo "#define DATA_START 0x40000000" >>confdefs.h
-
- $as_echo "#define DATA_SEG_BITS 0x40000000" >>confdefs.h
-
- ;;
- irix6-5)
- $as_echo "#define DATA_START 0x10000000" >>confdefs.h
-
- $as_echo "#define DATA_SEG_BITS 0x10000000" >>confdefs.h
-
- ;;
-esac
-
-
-
-
-
-case $opsys in
- darwin) $as_echo "#define TAB3 OXTABS" >>confdefs.h
- ;;
-
- gnu | freebsd | netbsd | openbsd )
-
-$as_echo "#define TABDLY OXTABS" >>confdefs.h
-
- $as_echo "#define TAB3 OXTABS" >>confdefs.h
-
- ;;
-
- gnu-linux | gnu-kfreebsd )
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#ifndef __i386__
-# error "not i386"
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- $as_echo "#define ULIMIT_BREAK_VALUE (32*1024*1024)" >>confdefs.h
-
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#ifndef __ia64__
-# error "not ia64"
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-$as_echo "#define GC_MARK_SECONDARY_STACK() do { extern void *__libc_ia64_register_backing_store_base; __builtin_ia64_flushrs (); mark_memory (__libc_ia64_register_backing_store_base, __builtin_ia64_bsp ());} while (0)" >>confdefs.h
-
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
- ;;
-
- hpux*)
-
-$as_echo "#define RUN_TIME_REMAP 1" >>confdefs.h
-
- ;;
-
- irix6-5)
- $as_echo "#define ULIMIT_BREAK_VALUE 0x14000000" >>confdefs.h
-
- ;;
-esac
-
-
-
-
-
-
-
-case $opsys in
- hpux* | unixware)
- $as_echo "#define GC_MARK_STACK GC_USE_GCPROS_AS_BEFORE" >>confdefs.h
-
- ;;
-
- gnu-linux | gnu-kfreebsd )
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#if defined __i386__ || defined __sparc__ || defined __mc68000__ \
- || defined __alpha__ || defined __mips__ || defined __s390__ \
- || defined __arm__ || defined __powerpc__ || defined __amd64__ \
- || defined __ia64__ || defined __sh__
-/* ok */
-#else
-# error "setjmp not known to work on this arch"
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- $as_echo "#define GC_SETJMP_WORKS 1" >>confdefs.h
-
-else
- $as_echo "#define GC_MARK_STACK GC_USE_GCPROS_AS_BEFORE" >>confdefs.h
-
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
- ;;
-esac
-
-
-if test x$GCC = xyes; then
- $as_echo "#define GC_SETJMP_WORKS 1" >>confdefs.h
-
-else
- case $opsys in
- freebsd | netbsd | openbsd | irix6-5 | sol2* )
- $as_echo "#define GC_SETJMP_WORKS 1" >>confdefs.h
-
- ;;
- esac
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for _setjmp" >&5
-$as_echo_n "checking for _setjmp... " >&6; }
-if ${emacs_cv_func__setjmp+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <setjmp.h>
-
-int
-main ()
-{
-jmp_buf j;
- if (! _setjmp (j))
- _longjmp (j, 1);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_func__setjmp=yes
-else
- emacs_cv_func__setjmp=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_func__setjmp" >&5
-$as_echo "$emacs_cv_func__setjmp" >&6; }
-if test $emacs_cv_func__setjmp = yes; then
-
-$as_echo "#define HAVE__SETJMP 1" >>confdefs.h
-
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sigsetjmp" >&5
-$as_echo_n "checking for sigsetjmp... " >&6; }
-if ${emacs_cv_func_sigsetjmp+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <setjmp.h>
-
-int
-main ()
-{
-sigjmp_buf j;
- if (! sigsetjmp (j, 1))
- siglongjmp (j, 1);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- emacs_cv_func_sigsetjmp=yes
-else
- emacs_cv_func_sigsetjmp=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_func_sigsetjmp" >&5
-$as_echo "$emacs_cv_func_sigsetjmp" >&6; }
- if test $emacs_cv_func_sigsetjmp = yes; then
-
-$as_echo "#define HAVE_SIGSETJMP 1" >>confdefs.h
-
- fi
-fi
-
-case $opsys in
- sol2* | unixware )
-
-$as_echo "#define TIOCSIGSEND TIOCSIGNAL" >>confdefs.h
-
- ;;
-esac
-
-
-case $opsys in
- hpux* | sol2* )
-
-$as_echo "#define XOS_NEEDS_TIME_H 1" >>confdefs.h
-
- ;;
-esac
-
-
-
-
-
-
-
-
-
-
-case $opsys in
- aix4-2)
- $as_echo "#define USG /**/" >>confdefs.h
-
- $as_echo "#define USG5 /**/" >>confdefs.h
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#ifndef _AIX
-# error "_AIX not defined"
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
-
-$as_echo "#define _AIX /**/" >>confdefs.h
-
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
- ;;
-
- cygwin)
-
-$as_echo "#define CYGWIN 1" >>confdefs.h
-
- ;;
-
- darwin)
- $as_echo "#define BSD4_2 /**/" >>confdefs.h
-
- $as_echo "#define BSD_SYSTEM /**/" >>confdefs.h
-
-
-$as_echo "#define DARWIN_OS /**/" >>confdefs.h
-
- ;;
-
- freebsd)
- $as_echo "#define BSD4_2 /**/" >>confdefs.h
-
-
-$as_echo "#define BSD_SYSTEM_AHB 1" >>confdefs.h
-
- ;;
-
- gnu | netbsd | openbsd )
- $as_echo "#define BSD4_2 /**/" >>confdefs.h
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#ifndef BSD_SYSTEM
-# error "BSD_SYSTEM not defined"
-#endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
- $as_echo "#define BSD_SYSTEM 43" >>confdefs.h
-
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
- ;;
-
- gnu-linux | gnu-kfreebsd )
- $as_echo "#define USG /**/" >>confdefs.h
-
-
-$as_echo "#define GNU_LINUX /**/" >>confdefs.h
-
- ;;
-
- hpux*)
- $as_echo "#define USG /**/" >>confdefs.h
-
- $as_echo "#define USG5 /**/" >>confdefs.h
-
-
-$as_echo "#define HPUX /**/" >>confdefs.h
-
- ;;
-
- irix6-5)
- $as_echo "#define USG /**/" >>confdefs.h
-
- $as_echo "#define USG5 /**/" >>confdefs.h
-
- $as_echo "#define USG5_4 /**/" >>confdefs.h
-
-
-$as_echo "#define IRIX6_5 /**/" >>confdefs.h
-
- ;;
-
- sol2*)
- $as_echo "#define USG /**/" >>confdefs.h
-
- $as_echo "#define USG5 /**/" >>confdefs.h
-
- $as_echo "#define USG5_4 /**/" >>confdefs.h
-
-
-$as_echo "#define SOLARIS2 /**/" >>confdefs.h
-
- ;;
-
- unixware)
- $as_echo "#define USG /**/" >>confdefs.h
-
- $as_echo "#define USG5 /**/" >>confdefs.h
-
- $as_echo "#define USG5_4 /**/" >>confdefs.h
-
- ;;
-esac
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for usable FIONREAD" >&5
-$as_echo_n "checking for usable FIONREAD... " >&6; }
-if ${emacs_cv_usable_FIONREAD+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- case $opsys in
- aix4-2)
- emacs_cv_usable_FIONREAD=no
- ;;
-
- *)
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- #include <sys/ioctl.h>
- #ifdef USG5_4
- # include <sys/filio.h>
- #endif
-
-int
-main ()
-{
-int foo = ioctl (0, FIONREAD, &foo);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_cv_usable_FIONREAD=yes
-else
- emacs_cv_usable_FIONREAD=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ;;
- esac
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_usable_FIONREAD" >&5
-$as_echo "$emacs_cv_usable_FIONREAD" >&6; }
-if test $emacs_cv_usable_FIONREAD = yes; then
-
-$as_echo "#define USABLE_FIONREAD 1" >>confdefs.h
-
-
- if test $emacs_broken_SIGIO = no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for usable SIGIO" >&5
-$as_echo_n "checking for usable SIGIO... " >&6; }
-if ${emacs_cv_usable_SIGIO+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <fcntl.h>
- #include <signal.h>
-
-int
-main ()
-{
-int foo = SIGIO | F_SETFL | FASYNC;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- emacs_cv_usable_SIGIO=yes
-else
- emacs_cv_usable_SIGIO=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $emacs_cv_usable_SIGIO" >&5
-$as_echo "$emacs_cv_usable_SIGIO" >&6; }
- if test $emacs_cv_usable_SIGIO = yes; then
-
-$as_echo "#define USABLE_SIGIO 1" >>confdefs.h
-
- fi
- fi
-fi
-
-
-case $opsys in
- cygwin)
-
-$as_echo "#define G_SLICE_ALWAYS_MALLOC 1" >>confdefs.h
-
- ;;
-
- hpux11)
-
-$as_echo "#define USG_SUBTTY_WORKS 1" >>confdefs.h
-
- ;;
-
- irix6-5)
-
-$as_echo "#define PREFER_VSUSP 1" >>confdefs.h
-
-
-$as_echo "#define SETPGRP_RELEASES_CTTY 1" >>confdefs.h
-
- ;;
-
- sol2-10)
-
-$as_echo "#define _STRUCTURED_PROC 1" >>confdefs.h
-
- ;;
-esac
-
-# Set up the CFLAGS for real compilation, so we can substitute it.
-CFLAGS="$REAL_CFLAGS"
-CPPFLAGS="$REAL_CPPFLAGS"
-
-## Hack to detect a buggy GCC version.
-if test "x$GCC" = xyes \
- && test x"`$CC --version 2> /dev/null | grep 'gcc.* 4.5.0'`" != x \
- && test x"`echo $CFLAGS | grep '\-O[23]'`" != x \
- && test x"`echo $CFLAGS | grep '\-fno-optimize-sibling-calls'`" = x; then
- as_fn_error $? "GCC 4.5.0 has problems compiling Emacs; see etc/PROBLEMS'." "$LINENO" 5
-fi
-
-version=$PACKAGE_VERSION
-
-copyright="Copyright (C) 2013 Free Software Foundation, Inc."
-
-cat >>confdefs.h <<_ACEOF
-#define COPYRIGHT "$copyright"
-_ACEOF
-
-
-
-### Specify what sort of things we'll be editing into Makefile and config.h.
-### Use configuration here uncanonicalized to avoid exceeding size limits.
-
-
-## Unused?
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-## FIXME? Nothing uses @LD_SWITCH_X_SITE@.
-## src/Makefile.in did add LD_SWITCH_X_SITE (as a cpp define) to the
-## end of LIBX_BASE, but nothing ever set it.
-
-
-
-
-## Used in lwlib/Makefile.in.
-
-
-
-
-
-
-
-
-if test -n "${term_header}"; then
-
-cat >>confdefs.h <<_ACEOF
-#define TERM_HEADER "${term_header}"
-_ACEOF
-
-fi
-
-
-cat >>confdefs.h <<_ACEOF
-#define EMACS_CONFIGURATION "${canonical}"
-_ACEOF
-
-
-cat >>confdefs.h <<_ACEOF
-#define EMACS_CONFIG_OPTIONS "${ac_configure_args}"
-_ACEOF
-
-
-
-XMENU_OBJ=
-XOBJ=
-FONT_OBJ=
-if test "${HAVE_X_WINDOWS}" = "yes" ; then
-
-$as_echo "#define HAVE_X_WINDOWS 1" >>confdefs.h
-
- XMENU_OBJ=xmenu.o
- XOBJ="xterm.o xfns.o xselect.o xrdb.o xsmfns.o xsettings.o xgselect.o"
- FONT_OBJ=xfont.o
- if test "$HAVE_XFT" = "yes"; then
- FONT_OBJ="$FONT_OBJ ftfont.o xftfont.o ftxfont.o"
- elif test "$HAVE_FREETYPE" = "yes"; then
- FONT_OBJ="$FONT_OBJ ftfont.o ftxfont.o"
- fi
-
-fi
-
-
-
-
-WIDGET_OBJ=
-MOTIF_LIBW=
-if test "${USE_X_TOOLKIT}" != "none" ; then
- WIDGET_OBJ=widget.o
-
-$as_echo "#define USE_X_TOOLKIT 1" >>confdefs.h
-
- if test "${USE_X_TOOLKIT}" = "LUCID"; then
-
-$as_echo "#define USE_LUCID 1" >>confdefs.h
-
- elif test "${USE_X_TOOLKIT}" = "MOTIF"; then
-
-$as_echo "#define USE_MOTIF 1" >>confdefs.h
-
- MOTIF_LIBW=-lXm
- case "$opsys" in
- gnu-linux)
- ## Paul Abrahams <abrahams at equinox.shaysnet.com> says this is needed.
- MOTIF_LIBW="$MOTIF_LIBW -lXpm"
- ;;
-
- unixware)
- ## Richard Anthony Ryan <ryanr at ellingtn.ftc.nrcs.usda.gov>
- ## says -lXimp is needed in UNIX_SV ... 4.2 1.1.2.
- MOTIF_LIBW="MOTIF_LIBW -lXimp"
- ;;
-
- aix4-2)
- ## olson@mcs.anl.gov says -li18n is needed by -lXm.
- MOTIF_LIBW="$MOTIF_LIBW -li18n"
- ;;
- esac
- MOTIF_LIBW="$MOTIF_LIBW $LIBXP"
- fi
-fi
-
-
-TOOLKIT_LIBW=
-case "$USE_X_TOOLKIT" in
- MOTIF) TOOLKIT_LIBW="$MOTIF_LIBW" ;;
- LUCID) TOOLKIT_LIBW="$LUCID_LIBW" ;;
- none) test "x$HAVE_GTK" = "xyes" && TOOLKIT_LIBW="$GTK_LIBS" ;;
-esac
-
-
-if test "$USE_X_TOOLKIT" = "none"; then
- LIBXT_OTHER="\$(LIBXSM)"
- OLDXMENU_TARGET="really-oldXMenu"
-else
- LIBXT_OTHER="\$(LIBXMU) -lXt \$(LIBXTR6) -lXext"
- OLDXMENU_TARGET="really-lwlib"
-fi
-
-
-## The X Menu stuff is present in the X10 distribution, but missing
-## from X11. If we have X10, just use the installed library;
-## otherwise, use our own copy.
-if test "${HAVE_X11}" = "yes" ; then
-
-$as_echo "#define HAVE_X11 1" >>confdefs.h
-
-
- if test "$USE_X_TOOLKIT" = "none"; then
- OLDXMENU="\${oldXMenudir}/libXMenu11.a"
- else
- OLDXMENU="\${lwlibdir}/liblw.a"
- fi
- LIBXMENU="\$(OLDXMENU)"
- LIBX_OTHER="\$(LIBXT) \$(LIBX_EXTRA)"
- OLDXMENU_DEPS="\${OLDXMENU} ../src/\${OLDXMENU}"
-else
- ## For a syntactically valid Makefile; not actually used for anything.
- ## See comments in src/Makefile.in.
- OLDXMENU=nothing
- ## FIXME This case (!HAVE_X11 && HAVE_X_WINDOWS) is no longer possible(?).
- if test "${HAVE_X_WINDOWS}" = "yes"; then
- LIBXMENU="-lXMenu"
- else
- LIBXMENU=
- fi
- LIBX_OTHER=
- OLDXMENU_DEPS=
-fi
-
-if test "$HAVE_GTK" = "yes" || test "$HAVE_MENUS" != "yes"; then
- OLDXMENU_TARGET=
- OLDXMENU=nothing
- LIBXMENU=
- OLDXMENU_DEPS=
-fi
-
-
-
-
-
-
-
-if test "${HAVE_MENUS}" = "yes" ; then
-
-$as_echo "#define HAVE_MENUS 1" >>confdefs.h
-
-fi
-
-if test "${GNU_MALLOC}" = "yes" ; then
-
-$as_echo "#define GNU_MALLOC 1" >>confdefs.h
-
-fi
-
-RALLOC_OBJ=
-if test "${REL_ALLOC}" = "yes" ; then
-
-$as_echo "#define REL_ALLOC 1" >>confdefs.h
-
-
- test "$system_malloc" != "yes" && RALLOC_OBJ=ralloc.o
-fi
-
-
-if test "$opsys" = "cygwin"; then
- CYGWIN_OBJ="sheap.o cygw32.o"
- ## Cygwin differs because of its unexec().
- PRE_ALLOC_OBJ=
- POST_ALLOC_OBJ=lastfile.o
-else
- CYGWIN_OBJ=
- PRE_ALLOC_OBJ=lastfile.o
- POST_ALLOC_OBJ=
-fi
-
-
-
-
-# Configure gnulib. Although this does not affect CFLAGS or LIBS permanently.
-# it temporarily reverts them to their pre-pkg-config values,
-# because gnulib needs to work with both src (which uses the
-# pkg-config stuff) and lib-src (which does not). For example, gnulib
-# may need to determine whether LIB_CLOCK_GETTIME should contain -lrt,
-# and it therefore needs to run in an environment where LIBS does not
-# already contain -lrt merely because 'pkg-config --libs' printed '-lrt'
-# for some package unrelated to lib-src.
-SAVE_CFLAGS=$CFLAGS
-SAVE_LIBS=$LIBS
-CFLAGS=$pre_PKG_CONFIG_CFLAGS
-LIBS="$LIB_PTHREAD $pre_PKG_CONFIG_LIBS"
-
-
-
-
-
-
-
-
-
-
-
- LIBC_FATAL_STDERR_=1
- export LIBC_FATAL_STDERR_
-
-
-# The Ultrix 4.2 mips builtin alloca declared by alloca.h only works
-# for constant arguments. Useless!
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for working alloca.h" >&5
-$as_echo_n "checking for working alloca.h... " >&6; }
-if ${ac_cv_working_alloca_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <alloca.h>
-int
-main ()
-{
-char *p = (char *) alloca (2 * sizeof (int));
- if (p) return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_working_alloca_h=yes
-else
- ac_cv_working_alloca_h=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_working_alloca_h" >&5
-$as_echo "$ac_cv_working_alloca_h" >&6; }
-if test $ac_cv_working_alloca_h = yes; then
-
-$as_echo "#define HAVE_ALLOCA_H 1" >>confdefs.h
-
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for alloca" >&5
-$as_echo_n "checking for alloca... " >&6; }
-if ${ac_cv_func_alloca_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __GNUC__
-# define alloca __builtin_alloca
-#else
-# ifdef _MSC_VER
-# include <malloc.h>
-# define alloca _alloca
-# else
-# ifdef HAVE_ALLOCA_H
-# include <alloca.h>
-# else
-# ifdef _AIX
- #pragma alloca
-# else
-# ifndef alloca /* predefined by HP cc +Olibcalls */
-void *alloca (size_t);
-# endif
-# endif
-# endif
-# endif
-#endif
-
-int
-main ()
-{
-char *p = (char *) alloca (1);
- if (p) return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_func_alloca_works=yes
-else
- ac_cv_func_alloca_works=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_alloca_works" >&5
-$as_echo "$ac_cv_func_alloca_works" >&6; }
-
-if test $ac_cv_func_alloca_works = yes; then
-
-$as_echo "#define HAVE_ALLOCA 1" >>confdefs.h
-
-else
- # The SVR3 libPW and SVR4 libucb both contain incompatible functions
-# that cause trouble. Some versions do not even contain alloca or
-# contain a buggy version. If you still want to use their alloca,
-# use ar to extract alloca.o from them instead of compiling alloca.c.
-
-
-
-
-
-ALLOCA=\${LIBOBJDIR}alloca.$ac_objext
-
-$as_echo "#define C_ALLOCA 1" >>confdefs.h
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether \`alloca.c' needs Cray hooks" >&5
-$as_echo_n "checking whether \`alloca.c' needs Cray hooks... " >&6; }
-if ${ac_cv_os_cray+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#if defined CRAY && ! defined CRAY2
-webecray
-#else
-wenotbecray
-#endif
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "webecray" >/dev/null 2>&1; then :
- ac_cv_os_cray=yes
-else
- ac_cv_os_cray=no
-fi
-rm -f conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_os_cray" >&5
-$as_echo "$ac_cv_os_cray" >&6; }
-if test $ac_cv_os_cray = yes; then
- for ac_func in _getb67 GETB67 getb67; do
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
-
-cat >>confdefs.h <<_ACEOF
-#define CRAY_STACKSEG_END $ac_func
-_ACEOF
-
- break
-fi
-
- done
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking stack direction for C alloca" >&5
-$as_echo_n "checking stack direction for C alloca... " >&6; }
-if ${ac_cv_c_stack_direction+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- ac_cv_c_stack_direction=0
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$ac_includes_default
-int
-find_stack_direction (int *addr, int depth)
-{
- int dir, dummy = 0;
- if (! addr)
- addr = &dummy;
- *addr = addr < &dummy ? 1 : addr == &dummy ? 0 : -1;
- dir = depth ? find_stack_direction (addr, depth - 1) : 0;
- return dir + dummy;
-}
-
-int
-main (int argc, char **argv)
-{
- return find_stack_direction (0, argc + !argv + 20) < 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- ac_cv_c_stack_direction=1
-else
- ac_cv_c_stack_direction=-1
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_stack_direction" >&5
-$as_echo "$ac_cv_c_stack_direction" >&6; }
-cat >>confdefs.h <<_ACEOF
-#define STACK_DIRECTION $ac_cv_c_stack_direction
-_ACEOF
-
-
-fi
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether byte ordering is bigendian" >&5
-$as_echo_n "checking whether byte ordering is bigendian... " >&6; }
-if ${ac_cv_c_bigendian+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_c_bigendian=unknown
- # See if we're dealing with a universal compiler.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifndef __APPLE_CC__
- not a universal capable compiler
- #endif
- typedef int dummy;
-
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
- # Check for potential -arch flags. It is not universal unless
- # there are at least two -arch flags with different values.
- ac_arch=
- ac_prev=
- for ac_word in $CC $CFLAGS $CPPFLAGS $LDFLAGS; do
- if test -n "$ac_prev"; then
- case $ac_word in
- i?86 | x86_64 | ppc | ppc64)
- if test -z "$ac_arch" || test "$ac_arch" = "$ac_word"; then
- ac_arch=$ac_word
- else
- ac_cv_c_bigendian=universal
- break
- fi
- ;;
- esac
- ac_prev=
- elif test "x$ac_word" = "x-arch"; then
- ac_prev=arch
- fi
- done
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test $ac_cv_c_bigendian = unknown; then
- # See if sys/param.h defines the BYTE_ORDER macro.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- #include <sys/param.h>
-
-int
-main ()
-{
-#if ! (defined BYTE_ORDER && defined BIG_ENDIAN \
- && defined LITTLE_ENDIAN && BYTE_ORDER && BIG_ENDIAN \
- && LITTLE_ENDIAN)
- bogus endian macros
- #endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- # It does; now see whether it defined to BIG_ENDIAN or not.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- #include <sys/param.h>
-
-int
-main ()
-{
-#if BYTE_ORDER != BIG_ENDIAN
- not big endian
- #endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_c_bigendian=yes
-else
- ac_cv_c_bigendian=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- fi
- if test $ac_cv_c_bigendian = unknown; then
- # See if <limits.h> defines _LITTLE_ENDIAN or _BIG_ENDIAN (e.g., Solaris).
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <limits.h>
-
-int
-main ()
-{
-#if ! (defined _LITTLE_ENDIAN || defined _BIG_ENDIAN)
- bogus endian macros
- #endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- # It does; now see whether it defined to _BIG_ENDIAN or not.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <limits.h>
-
-int
-main ()
-{
-#ifndef _BIG_ENDIAN
- not big endian
- #endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_c_bigendian=yes
-else
- ac_cv_c_bigendian=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- fi
- if test $ac_cv_c_bigendian = unknown; then
- # Compile a test program.
- if test "$cross_compiling" = yes; then :
- # Try to guess by grepping values from an object file.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-short int ascii_mm[] =
- { 0x4249, 0x4765, 0x6E44, 0x6961, 0x6E53, 0x7953, 0 };
- short int ascii_ii[] =
- { 0x694C, 0x5454, 0x656C, 0x6E45, 0x6944, 0x6E61, 0 };
- int use_ascii (int i) {
- return ascii_mm[i] + ascii_ii[i];
- }
- short int ebcdic_ii[] =
- { 0x89D3, 0xE3E3, 0x8593, 0x95C5, 0x89C4, 0x9581, 0 };
- short int ebcdic_mm[] =
- { 0xC2C9, 0xC785, 0x95C4, 0x8981, 0x95E2, 0xA8E2, 0 };
- int use_ebcdic (int i) {
- return ebcdic_mm[i] + ebcdic_ii[i];
- }
- extern int foo;
-
-int
-main ()
-{
-return use_ascii (foo) == use_ebcdic (foo);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- if grep BIGenDianSyS conftest.$ac_objext >/dev/null; then
- ac_cv_c_bigendian=yes
- fi
- if grep LiTTleEnDian conftest.$ac_objext >/dev/null ; then
- if test "$ac_cv_c_bigendian" = unknown; then
- ac_cv_c_bigendian=no
- else
- # finding both strings is unlikely to happen, but who knows?
- ac_cv_c_bigendian=unknown
- fi
- fi
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$ac_includes_default
-int
-main ()
-{
-
- /* Are we little or big endian? From Harbison&Steele. */
- union
- {
- long int l;
- char c[sizeof (long int)];
- } u;
- u.l = 1;
- return u.c[sizeof (long int) - 1] == 1;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- ac_cv_c_bigendian=no
-else
- ac_cv_c_bigendian=yes
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_bigendian" >&5
-$as_echo "$ac_cv_c_bigendian" >&6; }
- case $ac_cv_c_bigendian in #(
- yes)
- $as_echo "#define WORDS_BIGENDIAN 1" >>confdefs.h
-;; #(
- no)
- ;; #(
- universal)
-
-$as_echo "#define AC_APPLE_UNIVERSAL_BUILD 1" >>confdefs.h
-
- ;; #(
- *)
- as_fn_error $? "unknown endianness
- presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5 ;;
- esac
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for inline" >&5
-$as_echo_n "checking for inline... " >&6; }
-if ${ac_cv_c_inline+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_c_inline=no
-for ac_kw in inline __inline__ __inline; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifndef __cplusplus
-typedef int foo_t;
-static $ac_kw foo_t static_foo () {return 0; }
-$ac_kw foo_t foo () {return 0; }
-#endif
-
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_c_inline=$ac_kw
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- test "$ac_cv_c_inline" != no && break
-done
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_inline" >&5
-$as_echo "$ac_cv_c_inline" >&6; }
-
-case $ac_cv_c_inline in
- inline | yes) ;;
- *)
- case $ac_cv_c_inline in
- no) ac_val=;;
- *) ac_val=$ac_cv_c_inline;;
- esac
- cat >>confdefs.h <<_ACEOF
-#ifndef __cplusplus
-#define inline $ac_val
-#endif
-_ACEOF
- ;;
-esac
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether strtold conforms to C99" >&5
-$as_echo_n "checking whether strtold conforms to C99... " >&6; }
-if ${gl_cv_func_c99_strtold+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-/* On HP-UX before 11.23, strtold returns a struct instead of
- long double. Reject implementations like that, by requiring
- compatibility with the C99 prototype. */
- #include <stdlib.h>
- static long double (*p) (char const *, char **) = strtold;
- static long double
- test (char const *nptr, char **endptr)
- {
- long double r;
- r = strtold (nptr, endptr);
- return r;
- }
-int
-main ()
-{
-return test ("1.0", NULL) != 1 || p ("1.0", NULL) != 1;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- gl_cv_func_c99_strtold=yes
-else
- gl_cv_func_c99_strtold=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_c99_strtold" >&5
-$as_echo "$gl_cv_func_c99_strtold" >&6; }
- if test $gl_cv_func_c99_strtold = yes; then
-
-$as_echo "#define HAVE_C99_STRTOLD 1" >>confdefs.h
-
- fi
-
-
- GNULIB_CHDIR=0;
- GNULIB_CHOWN=0;
- GNULIB_CLOSE=0;
- GNULIB_DUP=0;
- GNULIB_DUP2=0;
- GNULIB_DUP3=0;
- GNULIB_ENVIRON=0;
- GNULIB_EUIDACCESS=0;
- GNULIB_FACCESSAT=0;
- GNULIB_FCHDIR=0;
- GNULIB_FCHOWNAT=0;
- GNULIB_FDATASYNC=0;
- GNULIB_FSYNC=0;
- GNULIB_FTRUNCATE=0;
- GNULIB_GETCWD=0;
- GNULIB_GETDOMAINNAME=0;
- GNULIB_GETDTABLESIZE=0;
- GNULIB_GETGROUPS=0;
- GNULIB_GETHOSTNAME=0;
- GNULIB_GETLOGIN=0;
- GNULIB_GETLOGIN_R=0;
- GNULIB_GETPAGESIZE=0;
- GNULIB_GETUSERSHELL=0;
- GNULIB_GROUP_MEMBER=0;
- GNULIB_ISATTY=0;
- GNULIB_LCHOWN=0;
- GNULIB_LINK=0;
- GNULIB_LINKAT=0;
- GNULIB_LSEEK=0;
- GNULIB_PIPE=0;
- GNULIB_PIPE2=0;
- GNULIB_PREAD=0;
- GNULIB_PWRITE=0;
- GNULIB_READ=0;
- GNULIB_READLINK=0;
- GNULIB_READLINKAT=0;
- GNULIB_RMDIR=0;
- GNULIB_SETHOSTNAME=0;
- GNULIB_SLEEP=0;
- GNULIB_SYMLINK=0;
- GNULIB_SYMLINKAT=0;
- GNULIB_TTYNAME_R=0;
- GNULIB_UNISTD_H_NONBLOCKING=0;
- GNULIB_UNISTD_H_SIGPIPE=0;
- GNULIB_UNLINK=0;
- GNULIB_UNLINKAT=0;
- GNULIB_USLEEP=0;
- GNULIB_WRITE=0;
- HAVE_CHOWN=1;
- HAVE_DUP2=1;
- HAVE_DUP3=1;
- HAVE_EUIDACCESS=1;
- HAVE_FACCESSAT=1;
- HAVE_FCHDIR=1;
- HAVE_FCHOWNAT=1;
- HAVE_FDATASYNC=1;
- HAVE_FSYNC=1;
- HAVE_FTRUNCATE=1;
- HAVE_GETDTABLESIZE=1;
- HAVE_GETGROUPS=1;
- HAVE_GETHOSTNAME=1;
- HAVE_GETLOGIN=1;
- HAVE_GETPAGESIZE=1;
- HAVE_GROUP_MEMBER=1;
- HAVE_LCHOWN=1;
- HAVE_LINK=1;
- HAVE_LINKAT=1;
- HAVE_PIPE=1;
- HAVE_PIPE2=1;
- HAVE_PREAD=1;
- HAVE_PWRITE=1;
- HAVE_READLINK=1;
- HAVE_READLINKAT=1;
- HAVE_SETHOSTNAME=1;
- HAVE_SLEEP=1;
- HAVE_SYMLINK=1;
- HAVE_SYMLINKAT=1;
- HAVE_UNLINKAT=1;
- HAVE_USLEEP=1;
- HAVE_DECL_ENVIRON=1;
- HAVE_DECL_FCHDIR=1;
- HAVE_DECL_FDATASYNC=1;
- HAVE_DECL_GETDOMAINNAME=1;
- HAVE_DECL_GETLOGIN_R=1;
- HAVE_DECL_GETPAGESIZE=1;
- HAVE_DECL_GETUSERSHELL=1;
- HAVE_DECL_SETHOSTNAME=1;
- HAVE_DECL_TTYNAME_R=1;
- HAVE_OS_H=0;
- HAVE_SYS_PARAM_H=0;
- REPLACE_CHOWN=0;
- REPLACE_CLOSE=0;
- REPLACE_DUP=0;
- REPLACE_DUP2=0;
- REPLACE_FCHOWNAT=0;
- REPLACE_FTRUNCATE=0;
- REPLACE_GETCWD=0;
- REPLACE_GETDOMAINNAME=0;
- REPLACE_GETLOGIN_R=0;
- REPLACE_GETGROUPS=0;
- REPLACE_GETPAGESIZE=0;
- REPLACE_ISATTY=0;
- REPLACE_LCHOWN=0;
- REPLACE_LINK=0;
- REPLACE_LINKAT=0;
- REPLACE_LSEEK=0;
- REPLACE_PREAD=0;
- REPLACE_PWRITE=0;
- REPLACE_READ=0;
- REPLACE_READLINK=0;
- REPLACE_RMDIR=0;
- REPLACE_SLEEP=0;
- REPLACE_SYMLINK=0;
- REPLACE_TTYNAME_R=0;
- REPLACE_UNLINK=0;
- REPLACE_UNLINKAT=0;
- REPLACE_USLEEP=0;
- REPLACE_WRITE=0;
- UNISTD_H_HAVE_WINSOCK2_H=0;
- UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS=0;
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if environ is properly declared" >&5
-$as_echo_n "checking if environ is properly declared... " >&6; }
- if ${gt_cv_var_environ_declaration+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#if HAVE_UNISTD_H
- #include <unistd.h>
- #endif
- /* mingw, BeOS, Haiku declare environ in <stdlib.h>, not in <unistd.h>. */
- #include <stdlib.h>
-
- extern struct { int foo; } environ;
-int
-main ()
-{
-environ.foo = 1;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gt_cv_var_environ_declaration=no
-else
- gt_cv_var_environ_declaration=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_cv_var_environ_declaration" >&5
-$as_echo "$gt_cv_var_environ_declaration" >&6; }
- if test $gt_cv_var_environ_declaration = yes; then
-
-$as_echo "#define HAVE_ENVIRON_DECL 1" >>confdefs.h
-
- fi
-
-
- if test $gt_cv_var_environ_declaration != yes; then
- HAVE_DECL_ENVIRON=0
- fi
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for st_dm_mode in struct stat" >&5
-$as_echo_n "checking for st_dm_mode in struct stat... " >&6; }
-if ${ac_cv_struct_st_dm_mode+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <sys/types.h>
-#include <sys/stat.h>
-int
-main ()
-{
-struct stat s; s.st_dm_mode;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_struct_st_dm_mode=yes
-else
- ac_cv_struct_st_dm_mode=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_struct_st_dm_mode" >&5
-$as_echo "$ac_cv_struct_st_dm_mode" >&6; }
-
- if test $ac_cv_struct_st_dm_mode = yes; then
-
-$as_echo "#define HAVE_ST_DM_MODE 1" >>confdefs.h
-
- fi
-
-
-ac_fn_c_check_decl "$LINENO" "strmode" "ac_cv_have_decl_strmode" "$ac_includes_default"
-if test "x$ac_cv_have_decl_strmode" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_STRMODE $ac_have_decl
-_ACEOF
-
-
- GNULIB__EXIT=0;
- GNULIB_ATOLL=0;
- GNULIB_CALLOC_POSIX=0;
- GNULIB_CANONICALIZE_FILE_NAME=0;
- GNULIB_GETLOADAVG=0;
- GNULIB_GETSUBOPT=0;
- GNULIB_GRANTPT=0;
- GNULIB_MALLOC_POSIX=0;
- GNULIB_MBTOWC=0;
- GNULIB_MKDTEMP=0;
- GNULIB_MKOSTEMP=0;
- GNULIB_MKOSTEMPS=0;
- GNULIB_MKSTEMP=0;
- GNULIB_MKSTEMPS=0;
- GNULIB_POSIX_OPENPT=0;
- GNULIB_PTSNAME=0;
- GNULIB_PTSNAME_R=0;
- GNULIB_PUTENV=0;
- GNULIB_RANDOM=0;
- GNULIB_RANDOM_R=0;
- GNULIB_REALLOC_POSIX=0;
- GNULIB_REALPATH=0;
- GNULIB_RPMATCH=0;
- GNULIB_SETENV=0;
- GNULIB_STRTOD=0;
- GNULIB_STRTOLL=0;
- GNULIB_STRTOULL=0;
- GNULIB_SYSTEM_POSIX=0;
- GNULIB_UNLOCKPT=0;
- GNULIB_UNSETENV=0;
- GNULIB_WCTOMB=0;
- HAVE__EXIT=1;
- HAVE_ATOLL=1;
- HAVE_CANONICALIZE_FILE_NAME=1;
- HAVE_DECL_GETLOADAVG=1;
- HAVE_GETSUBOPT=1;
- HAVE_GRANTPT=1;
- HAVE_MKDTEMP=1;
- HAVE_MKOSTEMP=1;
- HAVE_MKOSTEMPS=1;
- HAVE_MKSTEMP=1;
- HAVE_MKSTEMPS=1;
- HAVE_POSIX_OPENPT=1;
- HAVE_PTSNAME=1;
- HAVE_PTSNAME_R=1;
- HAVE_RANDOM=1;
- HAVE_RANDOM_H=1;
- HAVE_RANDOM_R=1;
- HAVE_REALPATH=1;
- HAVE_RPMATCH=1;
- HAVE_SETENV=1;
- HAVE_DECL_SETENV=1;
- HAVE_STRTOD=1;
- HAVE_STRTOLL=1;
- HAVE_STRTOULL=1;
- HAVE_STRUCT_RANDOM_DATA=1;
- HAVE_SYS_LOADAVG_H=0;
- HAVE_UNLOCKPT=1;
- HAVE_DECL_UNSETENV=1;
- REPLACE_CALLOC=0;
- REPLACE_CANONICALIZE_FILE_NAME=0;
- REPLACE_MALLOC=0;
- REPLACE_MBTOWC=0;
- REPLACE_MKSTEMP=0;
- REPLACE_PTSNAME=0;
- REPLACE_PTSNAME_R=0;
- REPLACE_PUTENV=0;
- REPLACE_RANDOM_R=0;
- REPLACE_REALLOC=0;
- REPLACE_REALPATH=0;
- REPLACE_SETENV=0;
- REPLACE_STRTOD=0;
- REPLACE_UNSETENV=0;
- REPLACE_WCTOMB=0;
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the preprocessor supports include_next" >&5
-$as_echo_n "checking whether the preprocessor supports include_next... " >&6; }
-if ${gl_cv_have_include_next+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- rm -rf conftestd1a conftestd1b conftestd2
- mkdir conftestd1a conftestd1b conftestd2
- cat <<EOF > conftestd1a/conftest.h
-#define DEFINED_IN_CONFTESTD1
-#include_next <conftest.h>
-#ifdef DEFINED_IN_CONFTESTD2
-int foo;
-#else
-#error "include_next doesn't work"
-#endif
-EOF
- cat <<EOF > conftestd1b/conftest.h
-#define DEFINED_IN_CONFTESTD1
-#include <stdio.h>
-#include_next <conftest.h>
-#ifdef DEFINED_IN_CONFTESTD2
-int foo;
-#else
-#error "include_next doesn't work"
-#endif
-EOF
- cat <<EOF > conftestd2/conftest.h
-#ifndef DEFINED_IN_CONFTESTD1
-#error "include_next test doesn't work"
-#endif
-#define DEFINED_IN_CONFTESTD2
-EOF
- gl_save_CPPFLAGS="$CPPFLAGS"
- CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1b -Iconftestd2"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <conftest.h>
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_have_include_next=yes
-else
- CPPFLAGS="$gl_save_CPPFLAGS -Iconftestd1a -Iconftestd2"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <conftest.h>
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_have_include_next=buggy
-else
- gl_cv_have_include_next=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- CPPFLAGS="$gl_save_CPPFLAGS"
- rm -rf conftestd1a conftestd1b conftestd2
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_have_include_next" >&5
-$as_echo "$gl_cv_have_include_next" >&6; }
- PRAGMA_SYSTEM_HEADER=
- if test $gl_cv_have_include_next = yes; then
- INCLUDE_NEXT=include_next
- INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next
- if test -n "$GCC"; then
- PRAGMA_SYSTEM_HEADER='#pragma GCC system_header'
- fi
- else
- if test $gl_cv_have_include_next = buggy; then
- INCLUDE_NEXT=include
- INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include_next
- else
- INCLUDE_NEXT=include
- INCLUDE_NEXT_AS_FIRST_DIRECTIVE=include
- fi
- fi
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether system header files limit the line length" >&5
-$as_echo_n "checking whether system header files limit the line length... " >&6; }
-if ${gl_cv_pragma_columns+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#ifdef __TANDEM
-choke me
-#endif
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "choke me" >/dev/null 2>&1; then :
- gl_cv_pragma_columns=yes
-else
- gl_cv_pragma_columns=no
-fi
-rm -f conftest*
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_pragma_columns" >&5
-$as_echo "$gl_cv_pragma_columns" >&6; }
- if test $gl_cv_pragma_columns = yes; then
- PRAGMA_COLUMNS="#pragma COLUMNS 10000"
- else
- PRAGMA_COLUMNS=
- fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_getopt_h='<'getopt.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <getopt.h>" >&5
-$as_echo_n "checking absolute name of <getopt.h>... " >&6; }
-if ${gl_cv_next_getopt_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test $ac_cv_header_getopt_h = yes; then
-
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <getopt.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'getopt.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_getopt_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
- else
- gl_cv_next_getopt_h='<'getopt.h'>'
- fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_getopt_h" >&5
-$as_echo "$gl_cv_next_getopt_h" >&6; }
- fi
- NEXT_GETOPT_H=$gl_cv_next_getopt_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'getopt.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_getopt_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_GETOPT_H=$gl_next_as_first_directive
-
-
-
-
- if test $ac_cv_header_getopt_h = yes; then
- HAVE_GETOPT_H=1
- else
- HAVE_GETOPT_H=0
- fi
-
-
- gl_replace_getopt=
-
- if test -z "$gl_replace_getopt" && test $gl_getopt_required = GNU; then
- for ac_header in getopt.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "getopt.h" "ac_cv_header_getopt_h" "$ac_includes_default"
-if test "x$ac_cv_header_getopt_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_GETOPT_H 1
-_ACEOF
-
-else
- gl_replace_getopt=yes
-fi
-
-done
-
- fi
-
- if test -z "$gl_replace_getopt" && test $gl_getopt_required = GNU; then
- for ac_func in getopt_long_only
-do :
- ac_fn_c_check_func "$LINENO" "getopt_long_only" "ac_cv_func_getopt_long_only"
-if test "x$ac_cv_func_getopt_long_only" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_GETOPT_LONG_ONLY 1
-_ACEOF
-
-else
- gl_replace_getopt=yes
-fi
-done
-
- fi
-
- if test -z "$gl_replace_getopt"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether getopt is POSIX compatible" >&5
-$as_echo_n "checking whether getopt is POSIX compatible... " >&6; }
-if ${gl_cv_func_getopt_posix+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test $cross_compiling = no; then
- if test "$cross_compiling" = yes; then :
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot run test program while cross compiling
-See \`config.log' for more details" "$LINENO" 5; }
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <unistd.h>
-#include <stdlib.h>
-#include <string.h>
-
-int
-main ()
-{
- static char program[] = "program";
- static char a[] = "-a";
- static char foo[] = "foo";
- static char bar[] = "bar";
- char *argv[] = { program, a, foo, bar, NULL };
- int c;
-
- c = getopt (4, argv, "ab");
- if (!(c == 'a'))
- return 1;
- c = getopt (4, argv, "ab");
- if (!(c == -1))
- return 2;
- if (!(optind == 2))
- return 3;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_getopt_posix=maybe
-else
- gl_cv_func_getopt_posix=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- if test $gl_cv_func_getopt_posix = maybe; then
- if test "$cross_compiling" = yes; then :
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot run test program while cross compiling
-See \`config.log' for more details" "$LINENO" 5; }
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <unistd.h>
-#include <stdlib.h>
-#include <string.h>
-
-int
-main ()
-{
- static char program[] = "program";
- static char donald[] = "donald";
- static char p[] = "-p";
- static char billy[] = "billy";
- static char duck[] = "duck";
- static char a[] = "-a";
- static char bar[] = "bar";
- char *argv[] = { program, donald, p, billy, duck, a, bar, NULL };
- int c;
-
- c = getopt (7, argv, "+abp:q:");
- if (!(c == -1))
- return 4;
- if (!(strcmp (argv[0], "program") == 0))
- return 5;
- if (!(strcmp (argv[1], "donald") == 0))
- return 6;
- if (!(strcmp (argv[2], "-p") == 0))
- return 7;
- if (!(strcmp (argv[3], "billy") == 0))
- return 8;
- if (!(strcmp (argv[4], "duck") == 0))
- return 9;
- if (!(strcmp (argv[5], "-a") == 0))
- return 10;
- if (!(strcmp (argv[6], "bar") == 0))
- return 11;
- if (!(optind == 1))
- return 12;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_getopt_posix=maybe
-else
- gl_cv_func_getopt_posix=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- fi
- if test $gl_cv_func_getopt_posix = maybe; then
- if test "$cross_compiling" = yes; then :
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot run test program while cross compiling
-See \`config.log' for more details" "$LINENO" 5; }
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <unistd.h>
-#include <stdlib.h>
-#include <string.h>
-
-int
-main ()
-{
- static char program[] = "program";
- static char ab[] = "-ab";
- char *argv[3] = { program, ab, NULL };
- if (getopt (2, argv, "ab:") != 'a')
- return 13;
- if (getopt (2, argv, "ab:") != '?')
- return 14;
- if (optopt != 'b')
- return 15;
- if (optind != 2)
- return 16;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_getopt_posix=yes
-else
- gl_cv_func_getopt_posix=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- fi
- else
- case "$host_os" in
- darwin* | aix* | mingw*) gl_cv_func_getopt_posix="guessing no";;
- *) gl_cv_func_getopt_posix="guessing yes";;
- esac
- fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_getopt_posix" >&5
-$as_echo "$gl_cv_func_getopt_posix" >&6; }
- case "$gl_cv_func_getopt_posix" in
- *no) gl_replace_getopt=yes ;;
- esac
- fi
-
- if test -z "$gl_replace_getopt" && test $gl_getopt_required = GNU; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working GNU getopt function" >&5
-$as_echo_n "checking for working GNU getopt function... " >&6; }
-if ${gl_cv_func_getopt_gnu+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # Even with POSIXLY_CORRECT, the GNU extension of leading '-' in the
- # optstring is necessary for programs like m4 that have POSIX-mandated
- # semantics for supporting options interspersed with files.
- # Also, since getopt_long is a GNU extension, we require optind=0.
- # Bash ties 'set -o posix' to a non-exported POSIXLY_CORRECT;
- # so take care to revert to the correct (non-)export state.
- gl_awk_probe='BEGIN { if ("POSIXLY_CORRECT" in ENVIRON) print "x" }'
- case ${POSIXLY_CORRECT+x}`$AWK "$gl_awk_probe" </dev/null` in
- xx) gl_had_POSIXLY_CORRECT=exported ;;
- x) gl_had_POSIXLY_CORRECT=yes ;;
- *) gl_had_POSIXLY_CORRECT= ;;
- esac
- POSIXLY_CORRECT=1
- export POSIXLY_CORRECT
- if test "$cross_compiling" = yes; then :
- gl_cv_func_getopt_gnu="guessing no"
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <getopt.h>
- #include <stddef.h>
- #include <string.h>
-
-#include <stdlib.h>
-#if defined __MACH__ && defined __APPLE__
-/* Avoid a crash on Mac OS X. */
-#include <mach/mach.h>
-#include <mach/mach_error.h>
-#include <mach/thread_status.h>
-#include <mach/exception.h>
-#include <mach/task.h>
-#include <pthread.h>
-/* The exception port on which our thread listens. */
-static mach_port_t our_exception_port;
-/* The main function of the thread listening for exceptions of type
- EXC_BAD_ACCESS. */
-static void *
-mach_exception_thread (void *arg)
-{
- /* Buffer for a message to be received. */
- struct {
- mach_msg_header_t head;
- mach_msg_body_t msgh_body;
- char data[1024];
- } msg;
- mach_msg_return_t retval;
- /* Wait for a message on the exception port. */
- retval = mach_msg (&msg.head, MACH_RCV_MSG | MACH_RCV_LARGE, 0, sizeof (msg),
- our_exception_port, MACH_MSG_TIMEOUT_NONE, MACH_PORT_NULL);
- if (retval != MACH_MSG_SUCCESS)
- abort ();
- exit (1);
-}
-static void
-nocrash_init (void)
-{
- mach_port_t self = mach_task_self ();
- /* Allocate a port on which the thread shall listen for exceptions. */
- if (mach_port_allocate (self, MACH_PORT_RIGHT_RECEIVE, &our_exception_port)
- == KERN_SUCCESS) {
- /* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/mach_port_insert_right.html. */
- if (mach_port_insert_right (self, our_exception_port, our_exception_port,
- MACH_MSG_TYPE_MAKE_SEND)
- == KERN_SUCCESS) {
- /* The exceptions we want to catch. Only EXC_BAD_ACCESS is interesting
- for us. */
- exception_mask_t mask = EXC_MASK_BAD_ACCESS;
- /* Create the thread listening on the exception port. */
- pthread_attr_t attr;
- pthread_t thread;
- if (pthread_attr_init (&attr) == 0
- && pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED) == 0
- && pthread_create (&thread, &attr, mach_exception_thread, NULL) == 0) {
- pthread_attr_destroy (&attr);
- /* Replace the exception port info for these exceptions with our own.
- Note that we replace the exception port for the entire task, not only
- for a particular thread. This has the effect that when our exception
- port gets the message, the thread specific exception port has already
- been asked, and we don't need to bother about it.
- See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/task_set_exception_ports.html. */
- task_set_exception_ports (self, mask, our_exception_port,
- EXCEPTION_DEFAULT, MACHINE_THREAD_STATE);
- }
- }
- }
-}
-#elif (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
-/* Avoid a crash on native Windows. */
-#define WIN32_LEAN_AND_MEAN
-#include <windows.h>
-#include <winerror.h>
-static LONG WINAPI
-exception_filter (EXCEPTION_POINTERS *ExceptionInfo)
-{
- switch (ExceptionInfo->ExceptionRecord->ExceptionCode)
- {
- case EXCEPTION_ACCESS_VIOLATION:
- case EXCEPTION_IN_PAGE_ERROR:
- case EXCEPTION_STACK_OVERFLOW:
- case EXCEPTION_GUARD_PAGE:
- case EXCEPTION_PRIV_INSTRUCTION:
- case EXCEPTION_ILLEGAL_INSTRUCTION:
- case EXCEPTION_DATATYPE_MISALIGNMENT:
- case EXCEPTION_ARRAY_BOUNDS_EXCEEDED:
- case EXCEPTION_NONCONTINUABLE_EXCEPTION:
- exit (1);
- }
- return EXCEPTION_CONTINUE_SEARCH;
-}
-static void
-nocrash_init (void)
-{
- SetUnhandledExceptionFilter ((LPTOP_LEVEL_EXCEPTION_FILTER) exception_filter);
-}
-#else
-/* Avoid a crash on POSIX systems. */
-#include <signal.h>
-/* A POSIX signal handler. */
-static void
-exception_handler (int sig)
-{
- exit (1);
-}
-static void
-nocrash_init (void)
-{
-#ifdef SIGSEGV
- signal (SIGSEGV, exception_handler);
-#endif
-#ifdef SIGBUS
- signal (SIGBUS, exception_handler);
-#endif
-}
-#endif
-
-
-int
-main ()
-{
-
- int result = 0;
-
- nocrash_init();
-
- /* This code succeeds on glibc 2.8, OpenBSD 4.0, Cygwin, mingw,
- and fails on Mac OS X 10.5, AIX 5.2, HP-UX 11, IRIX 6.5,
- OSF/1 5.1, Solaris 10. */
- {
- static char conftest[] = "conftest";
- static char plus[] = "-+";
- char *argv[3] = { conftest, plus, NULL };
- opterr = 0;
- if (getopt (2, argv, "+a") != '?')
- result |= 1;
- }
- /* This code succeeds on glibc 2.8, mingw,
- and fails on Mac OS X 10.5, OpenBSD 4.0, AIX 5.2, HP-UX 11,
- IRIX 6.5, OSF/1 5.1, Solaris 10, Cygwin 1.5.x. */
- {
- static char program[] = "program";
- static char p[] = "-p";
- static char foo[] = "foo";
- static char bar[] = "bar";
- char *argv[] = { program, p, foo, bar, NULL };
-
- optind = 1;
- if (getopt (4, argv, "p::") != 'p')
- result |= 2;
- else if (optarg != NULL)
- result |= 4;
- else if (getopt (4, argv, "p::") != -1)
- result |= 6;
- else if (optind != 2)
- result |= 8;
- }
- /* This code succeeds on glibc 2.8 and fails on Cygwin 1.7.0. */
- {
- static char program[] = "program";
- static char foo[] = "foo";
- static char p[] = "-p";
- char *argv[] = { program, foo, p, NULL };
- optind = 0;
- if (getopt (3, argv, "-p") != 1)
- result |= 16;
- else if (getopt (3, argv, "-p") != 'p')
- result |= 16;
- }
- /* This code fails on glibc 2.11. */
- {
- static char program[] = "program";
- static char b[] = "-b";
- static char a[] = "-a";
- char *argv[] = { program, b, a, NULL };
- optind = opterr = 0;
- if (getopt (3, argv, "+:a:b") != 'b')
- result |= 32;
- else if (getopt (3, argv, "+:a:b") != ':')
- result |= 32;
- }
- /* This code dumps core on glibc 2.14. */
- {
- static char program[] = "program";
- static char w[] = "-W";
- static char dummy[] = "dummy";
- char *argv[] = { program, w, dummy, NULL };
- optind = opterr = 1;
- if (getopt (3, argv, "W;") != 'W')
- result |= 64;
- }
- return result;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_getopt_gnu=yes
-else
- gl_cv_func_getopt_gnu=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- case $gl_had_POSIXLY_CORRECT in
- exported) ;;
- yes) { POSIXLY_CORRECT=; unset POSIXLY_CORRECT;}; POSIXLY_CORRECT=1 ;;
- *) { POSIXLY_CORRECT=; unset POSIXLY_CORRECT;} ;;
- esac
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_getopt_gnu" >&5
-$as_echo "$gl_cv_func_getopt_gnu" >&6; }
- if test "$gl_cv_func_getopt_gnu" != yes; then
- gl_replace_getopt=yes
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working GNU getopt_long function" >&5
-$as_echo_n "checking for working GNU getopt_long function... " >&6; }
-if ${gl_cv_func_getopt_long_gnu+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- openbsd*) gl_cv_func_getopt_long_gnu="guessing no";;
- *) gl_cv_func_getopt_long_gnu="guessing yes";;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <getopt.h>
- #include <stddef.h>
- #include <string.h>
-
-int
-main ()
-{
-static const struct option long_options[] =
- {
- { "xtremely-",no_argument, NULL, 1003 },
- { "xtra", no_argument, NULL, 1001 },
- { "xtreme", no_argument, NULL, 1002 },
- { "xtremely", no_argument, NULL, 1003 },
- { NULL, 0, NULL, 0 }
- };
- /* This code fails on OpenBSD 5.0. */
- {
- static char program[] = "program";
- static char xtremel[] = "--xtremel";
- char *argv[] = { program, xtremel, NULL };
- int option_index;
- optind = 1; opterr = 0;
- if (getopt_long (2, argv, "", long_options, &option_index) != 1003)
- return 1;
- }
- return 0;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_getopt_long_gnu=yes
-else
- gl_cv_func_getopt_long_gnu=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_getopt_long_gnu" >&5
-$as_echo "$gl_cv_func_getopt_long_gnu" >&6; }
- case "$gl_cv_func_getopt_long_gnu" in
- *yes) ;;
- *) gl_replace_getopt=yes ;;
- esac
- fi
- fi
-
-
-
-
-
-
- REPLACE_GETOPT=0
- if test -n "$gl_replace_getopt"; then
- REPLACE_GETOPT=1
- fi
-
- if test $REPLACE_GETOPT = 1; then
-
- GETOPT_H=getopt.h
-
-$as_echo "#define __GETOPT_PREFIX rpl_" >>confdefs.h
-
-
-
- fi
-
-ac_fn_c_check_decl "$LINENO" "getenv" "ac_cv_have_decl_getenv" "$ac_includes_default"
-if test "x$ac_cv_have_decl_getenv" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_GETENV $ac_have_decl
-_ACEOF
-
-:
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C/C++ restrict keyword" >&5
-$as_echo_n "checking for C/C++ restrict keyword... " >&6; }
-if ${ac_cv_c_restrict+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_c_restrict=no
- # The order here caters to the fact that C++ does not require restrict.
- for ac_kw in __restrict __restrict__ _Restrict restrict; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-typedef int * int_ptr;
- int foo (int_ptr $ac_kw ip) {
- return ip[0];
- }
-int
-main ()
-{
-int s[1];
- int * $ac_kw t = s;
- t[0] = 0;
- return foo(t)
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_c_restrict=$ac_kw
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- test "$ac_cv_c_restrict" != no && break
- done
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_restrict" >&5
-$as_echo "$ac_cv_c_restrict" >&6; }
-
- case $ac_cv_c_restrict in
- restrict) ;;
- no) $as_echo "#define restrict /**/" >>confdefs.h
- ;;
- *) cat >>confdefs.h <<_ACEOF
-#define restrict $ac_cv_c_restrict
-_ACEOF
- ;;
- esac
-
-
- GNULIB_GETTIMEOFDAY=0;
- HAVE_GETTIMEOFDAY=1;
- HAVE_STRUCT_TIMEVAL=1;
- HAVE_SYS_TIME_H=1;
- REPLACE_GETTIMEOFDAY=0;
- REPLACE_STRUCT_TIMEVAL=0;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_sys_time_h='<'sys/time.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <sys/time.h>" >&5
-$as_echo_n "checking absolute name of <sys/time.h>... " >&6; }
-if ${gl_cv_next_sys_time_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test $ac_cv_header_sys_time_h = yes; then
-
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/time.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'sys/time.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_sys_time_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
- else
- gl_cv_next_sys_time_h='<'sys/time.h'>'
- fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_sys_time_h" >&5
-$as_echo "$gl_cv_next_sys_time_h" >&6; }
- fi
- NEXT_SYS_TIME_H=$gl_cv_next_sys_time_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'sys/time.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_sys_time_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_SYS_TIME_H=$gl_next_as_first_directive
-
-
-
-
-
- if test $ac_cv_header_sys_time_h != yes; then
- HAVE_SYS_TIME_H=0
- fi
-
-
-
-
-
- if test $ac_cv_header_sys_socket_h != yes; then
- for ac_header in winsock2.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "winsock2.h" "ac_cv_header_winsock2_h" "$ac_includes_default"
-if test "x$ac_cv_header_winsock2_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_WINSOCK2_H 1
-_ACEOF
-
-fi
-
-done
-
- fi
- if test "$ac_cv_header_winsock2_h" = yes; then
- HAVE_WINSOCK2_H=1
- UNISTD_H_HAVE_WINSOCK2_H=1
- SYS_IOCTL_H_HAVE_WINSOCK2_H=1
- else
- HAVE_WINSOCK2_H=0
- fi
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct timeval" >&5
-$as_echo_n "checking for struct timeval... " >&6; }
-if ${gl_cv_sys_struct_timeval+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#if HAVE_SYS_TIME_H
- #include <sys/time.h>
- #endif
- #include <time.h>
- #if HAVE_WINSOCK2_H
- # include <winsock2.h>
- #endif
-
-int
-main ()
-{
-static struct timeval x; x.tv_sec = x.tv_usec;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_sys_struct_timeval=yes
-else
- gl_cv_sys_struct_timeval=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_timeval" >&5
-$as_echo "$gl_cv_sys_struct_timeval" >&6; }
- if test $gl_cv_sys_struct_timeval != yes; then
- HAVE_STRUCT_TIMEVAL=0
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for wide-enough struct timeval.tv_sec member" >&5
-$as_echo_n "checking for wide-enough struct timeval.tv_sec member... " >&6; }
-if ${gl_cv_sys_struct_timeval_tv_sec+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#if HAVE_SYS_TIME_H
- #include <sys/time.h>
- #endif
- #include <time.h>
- #if HAVE_WINSOCK2_H
- # include <winsock2.h>
- #endif
-
-int
-main ()
-{
-static struct timeval x;
- typedef int verify_tv_sec_type[
- sizeof (time_t) <= sizeof x.tv_sec ? 1 : -1
- ];
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_sys_struct_timeval_tv_sec=yes
-else
- gl_cv_sys_struct_timeval_tv_sec=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_timeval_tv_sec" >&5
-$as_echo "$gl_cv_sys_struct_timeval_tv_sec" >&6; }
- if test $gl_cv_sys_struct_timeval_tv_sec != yes; then
- REPLACE_STRUCT_TIMEVAL=1
- fi
- fi
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for unsigned long long int" >&5
-$as_echo_n "checking for unsigned long long int... " >&6; }
-if ${ac_cv_type_unsigned_long_long_int+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_type_unsigned_long_long_int=yes
- if test "x${ac_cv_prog_cc_c99-no}" = xno; then
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- /* For now, do not test the preprocessor; as of 2007 there are too many
- implementations with broken preprocessors. Perhaps this can
- be revisited in 2012. In the meantime, code should not expect
- #if to work with literals wider than 32 bits. */
- /* Test literals. */
- long long int ll = 9223372036854775807ll;
- long long int nll = -9223372036854775807LL;
- unsigned long long int ull = 18446744073709551615ULL;
- /* Test constant expressions. */
- typedef int a[((-9223372036854775807LL < 0 && 0 < 9223372036854775807ll)
- ? 1 : -1)];
- typedef int b[(18446744073709551615ULL <= (unsigned long long int) -1
- ? 1 : -1)];
- int i = 63;
-int
-main ()
-{
-/* Test availability of runtime routines for shift and division. */
- long long int llmax = 9223372036854775807ll;
- unsigned long long int ullmax = 18446744073709551615ull;
- return ((ll << 63) | (ll >> 63) | (ll < i) | (ll > i)
- | (llmax / ll) | (llmax % ll)
- | (ull << 63) | (ull >> 63) | (ull << i) | (ull >> i)
- | (ullmax / ull) | (ullmax % ull));
- ;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
-else
- ac_cv_type_unsigned_long_long_int=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_unsigned_long_long_int" >&5
-$as_echo "$ac_cv_type_unsigned_long_long_int" >&6; }
- if test $ac_cv_type_unsigned_long_long_int = yes; then
-
-$as_echo "#define HAVE_UNSIGNED_LONG_LONG_INT 1" >>confdefs.h
-
- fi
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for long long int" >&5
-$as_echo_n "checking for long long int... " >&6; }
-if ${ac_cv_type_long_long_int+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_type_long_long_int=yes
- if test "x${ac_cv_prog_cc_c99-no}" = xno; then
- ac_cv_type_long_long_int=$ac_cv_type_unsigned_long_long_int
- if test $ac_cv_type_long_long_int = yes; then
- if test "$cross_compiling" = yes; then :
- :
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <limits.h>
- #ifndef LLONG_MAX
- # define HALF \
- (1LL << (sizeof (long long int) * CHAR_BIT - 2))
- # define LLONG_MAX (HALF - 1 + HALF)
- #endif
-int
-main ()
-{
-long long int n = 1;
- int i;
- for (i = 0; ; i++)
- {
- long long int m = n << i;
- if (m >> i != n)
- return 1;
- if (LLONG_MAX / 2 < m)
- break;
- }
- return 0;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
-
-else
- ac_cv_type_long_long_int=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- fi
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_long_long_int" >&5
-$as_echo "$ac_cv_type_long_long_int" >&6; }
- if test $ac_cv_type_long_long_int = yes; then
-
-$as_echo "#define HAVE_LONG_LONG_INT 1" >>confdefs.h
-
- fi
-
-
-
-
-
-
- gl_cv_c_multiarch=no
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifndef __APPLE_CC__
- not a universal capable compiler
- #endif
- typedef int dummy;
-
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
- arch=
- prev=
- for word in ${CC} ${CFLAGS} ${CPPFLAGS} ${LDFLAGS}; do
- if test -n "$prev"; then
- case $word in
- i?86 | x86_64 | ppc | ppc64)
- if test -z "$arch" || test "$arch" = "$word"; then
- arch="$word"
- else
- gl_cv_c_multiarch=yes
- fi
- ;;
- esac
- prev=
- else
- if test "x$word" = "x-arch"; then
- prev=arch
- fi
- fi
- done
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test $gl_cv_c_multiarch = yes; then
- APPLE_UNIVERSAL_BUILD=1
- else
- APPLE_UNIVERSAL_BUILD=0
- fi
-
-
-
-
-
- if test $ac_cv_type_long_long_int = yes; then
- HAVE_LONG_LONG_INT=1
- else
- HAVE_LONG_LONG_INT=0
- fi
-
-
- if test $ac_cv_type_unsigned_long_long_int = yes; then
- HAVE_UNSIGNED_LONG_LONG_INT=1
- else
- HAVE_UNSIGNED_LONG_LONG_INT=0
- fi
-
-
-
- if test $ac_cv_header_wchar_h = yes; then
- HAVE_WCHAR_H=1
- else
- HAVE_WCHAR_H=0
- fi
-
-
- if test $ac_cv_header_inttypes_h = yes; then
- HAVE_INTTYPES_H=1
- else
- HAVE_INTTYPES_H=0
- fi
-
-
- if test $ac_cv_header_sys_types_h = yes; then
- HAVE_SYS_TYPES_H=1
- else
- HAVE_SYS_TYPES_H=0
- fi
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_stdint_h='<'stdint.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <stdint.h>" >&5
-$as_echo_n "checking absolute name of <stdint.h>... " >&6; }
-if ${gl_cv_next_stdint_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test $ac_cv_header_stdint_h = yes; then
-
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdint.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'stdint.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_stdint_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
- else
- gl_cv_next_stdint_h='<'stdint.h'>'
- fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stdint_h" >&5
-$as_echo "$gl_cv_next_stdint_h" >&6; }
- fi
- NEXT_STDINT_H=$gl_cv_next_stdint_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'stdint.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_stdint_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_STDINT_H=$gl_next_as_first_directive
-
-
-
-
- if test $ac_cv_header_stdint_h = yes; then
- HAVE_STDINT_H=1
- else
- HAVE_STDINT_H=0
- fi
-
-
- if test $ac_cv_header_stdint_h = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stdint.h conforms to C99" >&5
-$as_echo_n "checking whether stdint.h conforms to C99... " >&6; }
-if ${gl_cv_header_working_stdint_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- gl_cv_header_working_stdint_h=no
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-
-#define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */
-#include <stdint.h>
-/* Dragonfly defines WCHAR_MIN, WCHAR_MAX only in <wchar.h>. */
-#if !(defined WCHAR_MIN && defined WCHAR_MAX)
-#error "WCHAR_MIN, WCHAR_MAX not defined in <stdint.h>"
-#endif
-
-
- /* BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
- included before <wchar.h>. */
- #include <stddef.h>
- #include <signal.h>
- #if HAVE_WCHAR_H
- # include <stdio.h>
- # include <time.h>
- # include <wchar.h>
- #endif
-
-
-#ifdef INT8_MAX
-int8_t a1 = INT8_MAX;
-int8_t a1min = INT8_MIN;
-#endif
-#ifdef INT16_MAX
-int16_t a2 = INT16_MAX;
-int16_t a2min = INT16_MIN;
-#endif
-#ifdef INT32_MAX
-int32_t a3 = INT32_MAX;
-int32_t a3min = INT32_MIN;
-#endif
-#ifdef INT64_MAX
-int64_t a4 = INT64_MAX;
-int64_t a4min = INT64_MIN;
-#endif
-#ifdef UINT8_MAX
-uint8_t b1 = UINT8_MAX;
-#else
-typedef int b1[(unsigned char) -1 != 255 ? 1 : -1];
-#endif
-#ifdef UINT16_MAX
-uint16_t b2 = UINT16_MAX;
-#endif
-#ifdef UINT32_MAX
-uint32_t b3 = UINT32_MAX;
-#endif
-#ifdef UINT64_MAX
-uint64_t b4 = UINT64_MAX;
-#endif
-int_least8_t c1 = INT8_C (0x7f);
-int_least8_t c1max = INT_LEAST8_MAX;
-int_least8_t c1min = INT_LEAST8_MIN;
-int_least16_t c2 = INT16_C (0x7fff);
-int_least16_t c2max = INT_LEAST16_MAX;
-int_least16_t c2min = INT_LEAST16_MIN;
-int_least32_t c3 = INT32_C (0x7fffffff);
-int_least32_t c3max = INT_LEAST32_MAX;
-int_least32_t c3min = INT_LEAST32_MIN;
-int_least64_t c4 = INT64_C (0x7fffffffffffffff);
-int_least64_t c4max = INT_LEAST64_MAX;
-int_least64_t c4min = INT_LEAST64_MIN;
-uint_least8_t d1 = UINT8_C (0xff);
-uint_least8_t d1max = UINT_LEAST8_MAX;
-uint_least16_t d2 = UINT16_C (0xffff);
-uint_least16_t d2max = UINT_LEAST16_MAX;
-uint_least32_t d3 = UINT32_C (0xffffffff);
-uint_least32_t d3max = UINT_LEAST32_MAX;
-uint_least64_t d4 = UINT64_C (0xffffffffffffffff);
-uint_least64_t d4max = UINT_LEAST64_MAX;
-int_fast8_t e1 = INT_FAST8_MAX;
-int_fast8_t e1min = INT_FAST8_MIN;
-int_fast16_t e2 = INT_FAST16_MAX;
-int_fast16_t e2min = INT_FAST16_MIN;
-int_fast32_t e3 = INT_FAST32_MAX;
-int_fast32_t e3min = INT_FAST32_MIN;
-int_fast64_t e4 = INT_FAST64_MAX;
-int_fast64_t e4min = INT_FAST64_MIN;
-uint_fast8_t f1 = UINT_FAST8_MAX;
-uint_fast16_t f2 = UINT_FAST16_MAX;
-uint_fast32_t f3 = UINT_FAST32_MAX;
-uint_fast64_t f4 = UINT_FAST64_MAX;
-#ifdef INTPTR_MAX
-intptr_t g = INTPTR_MAX;
-intptr_t gmin = INTPTR_MIN;
-#endif
-#ifdef UINTPTR_MAX
-uintptr_t h = UINTPTR_MAX;
-#endif
-intmax_t i = INTMAX_MAX;
-uintmax_t j = UINTMAX_MAX;
-
-#include <limits.h> /* for CHAR_BIT */
-#define TYPE_MINIMUM(t) \
- ((t) ((t) 0 < (t) -1 ? (t) 0 : ~ TYPE_MAXIMUM (t)))
-#define TYPE_MAXIMUM(t) \
- ((t) ((t) 0 < (t) -1 \
- ? (t) -1 \
- : ((((t) 1 << (sizeof (t) * CHAR_BIT - 2)) - 1) * 2 + 1)))
-struct s {
- int check_PTRDIFF:
- PTRDIFF_MIN == TYPE_MINIMUM (ptrdiff_t)
- && PTRDIFF_MAX == TYPE_MAXIMUM (ptrdiff_t)
- ? 1 : -1;
- /* Detect bug in FreeBSD 6.0 / ia64. */
- int check_SIG_ATOMIC:
- SIG_ATOMIC_MIN == TYPE_MINIMUM (sig_atomic_t)
- && SIG_ATOMIC_MAX == TYPE_MAXIMUM (sig_atomic_t)
- ? 1 : -1;
- int check_SIZE: SIZE_MAX == TYPE_MAXIMUM (size_t) ? 1 : -1;
- int check_WCHAR:
- WCHAR_MIN == TYPE_MINIMUM (wchar_t)
- && WCHAR_MAX == TYPE_MAXIMUM (wchar_t)
- ? 1 : -1;
- /* Detect bug in mingw. */
- int check_WINT:
- WINT_MIN == TYPE_MINIMUM (wint_t)
- && WINT_MAX == TYPE_MAXIMUM (wint_t)
- ? 1 : -1;
-
- /* Detect bugs in glibc 2.4 and Solaris 10 stdint.h, among others. */
- int check_UINT8_C:
- (-1 < UINT8_C (0)) == (-1 < (uint_least8_t) 0) ? 1 : -1;
- int check_UINT16_C:
- (-1 < UINT16_C (0)) == (-1 < (uint_least16_t) 0) ? 1 : -1;
-
- /* Detect bugs in OpenBSD 3.9 stdint.h. */
-#ifdef UINT8_MAX
- int check_uint8: (uint8_t) -1 == UINT8_MAX ? 1 : -1;
-#endif
-#ifdef UINT16_MAX
- int check_uint16: (uint16_t) -1 == UINT16_MAX ? 1 : -1;
-#endif
-#ifdef UINT32_MAX
- int check_uint32: (uint32_t) -1 == UINT32_MAX ? 1 : -1;
-#endif
-#ifdef UINT64_MAX
- int check_uint64: (uint64_t) -1 == UINT64_MAX ? 1 : -1;
-#endif
- int check_uint_least8: (uint_least8_t) -1 == UINT_LEAST8_MAX ? 1 : -1;
- int check_uint_least16: (uint_least16_t) -1 == UINT_LEAST16_MAX ? 1 : -1;
- int check_uint_least32: (uint_least32_t) -1 == UINT_LEAST32_MAX ? 1 : -1;
- int check_uint_least64: (uint_least64_t) -1 == UINT_LEAST64_MAX ? 1 : -1;
- int check_uint_fast8: (uint_fast8_t) -1 == UINT_FAST8_MAX ? 1 : -1;
- int check_uint_fast16: (uint_fast16_t) -1 == UINT_FAST16_MAX ? 1 : -1;
- int check_uint_fast32: (uint_fast32_t) -1 == UINT_FAST32_MAX ? 1 : -1;
- int check_uint_fast64: (uint_fast64_t) -1 == UINT_FAST64_MAX ? 1 : -1;
- int check_uintptr: (uintptr_t) -1 == UINTPTR_MAX ? 1 : -1;
- int check_uintmax: (uintmax_t) -1 == UINTMAX_MAX ? 1 : -1;
- int check_size: (size_t) -1 == SIZE_MAX ? 1 : -1;
-};
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- if test "$cross_compiling" = yes; then :
- gl_cv_header_working_stdint_h=yes
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-
-#define _GL_JUST_INCLUDE_SYSTEM_STDINT_H 1 /* work if build isn't clean */
-#include <stdint.h>
-
-
- /* BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
- included before <wchar.h>. */
- #include <stddef.h>
- #include <signal.h>
- #if HAVE_WCHAR_H
- # include <stdio.h>
- # include <time.h>
- # include <wchar.h>
- #endif
-
-
-#include <stdio.h>
-#include <string.h>
-#define MVAL(macro) MVAL1(macro)
-#define MVAL1(expression) #expression
-static const char *macro_values[] =
- {
-#ifdef INT8_MAX
- MVAL (INT8_MAX),
-#endif
-#ifdef INT16_MAX
- MVAL (INT16_MAX),
-#endif
-#ifdef INT32_MAX
- MVAL (INT32_MAX),
-#endif
-#ifdef INT64_MAX
- MVAL (INT64_MAX),
-#endif
-#ifdef UINT8_MAX
- MVAL (UINT8_MAX),
-#endif
-#ifdef UINT16_MAX
- MVAL (UINT16_MAX),
-#endif
-#ifdef UINT32_MAX
- MVAL (UINT32_MAX),
-#endif
-#ifdef UINT64_MAX
- MVAL (UINT64_MAX),
-#endif
- NULL
- };
-
-int
-main ()
-{
-
- const char **mv;
- for (mv = macro_values; *mv != NULL; mv++)
- {
- const char *value = *mv;
- /* Test whether it looks like a cast expression. */
- if (strncmp (value, "((unsigned int)"/*)*/, 15) == 0
- || strncmp (value, "((unsigned short)"/*)*/, 17) == 0
- || strncmp (value, "((unsigned char)"/*)*/, 16) == 0
- || strncmp (value, "((int)"/*)*/, 6) == 0
- || strncmp (value, "((signed short)"/*)*/, 15) == 0
- || strncmp (value, "((signed char)"/*)*/, 14) == 0)
- return mv - macro_values + 1;
- }
- return 0;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_header_working_stdint_h=yes
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_working_stdint_h" >&5
-$as_echo "$gl_cv_header_working_stdint_h" >&6; }
- fi
- if test "$gl_cv_header_working_stdint_h" = yes; then
- STDINT_H=
- else
- for ac_header in sys/inttypes.h sys/bitypes.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-
-done
-
- if test $ac_cv_header_sys_inttypes_h = yes; then
- HAVE_SYS_INTTYPES_H=1
- else
- HAVE_SYS_INTTYPES_H=0
- fi
-
- if test $ac_cv_header_sys_bitypes_h = yes; then
- HAVE_SYS_BITYPES_H=1
- else
- HAVE_SYS_BITYPES_H=0
- fi
-
-
-
-
- if test $APPLE_UNIVERSAL_BUILD = 0; then
-
-
- for gltype in ptrdiff_t size_t ; do
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for bit size of $gltype" >&5
-$as_echo_n "checking for bit size of $gltype... " >&6; }
-if eval \${gl_cv_bitsizeof_${gltype}+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if ac_fn_c_compute_int "$LINENO" "sizeof ($gltype) * CHAR_BIT" "result" "
- /* BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
- included before <wchar.h>. */
- #include <stddef.h>
- #include <signal.h>
- #if HAVE_WCHAR_H
- # include <stdio.h>
- # include <time.h>
- # include <wchar.h>
- #endif
-
-#include <limits.h>"; then :
-
-else
- result=unknown
-fi
-
- eval gl_cv_bitsizeof_${gltype}=\$result
-
-fi
-eval ac_res=\$gl_cv_bitsizeof_${gltype}
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval result=\$gl_cv_bitsizeof_${gltype}
- if test $result = unknown; then
- result=0
- fi
- GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
- cat >>confdefs.h <<_ACEOF
-#define BITSIZEOF_${GLTYPE} $result
-_ACEOF
-
- eval BITSIZEOF_${GLTYPE}=\$result
- done
-
-
- fi
-
-
- for gltype in sig_atomic_t wchar_t wint_t ; do
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for bit size of $gltype" >&5
-$as_echo_n "checking for bit size of $gltype... " >&6; }
-if eval \${gl_cv_bitsizeof_${gltype}+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if ac_fn_c_compute_int "$LINENO" "sizeof ($gltype) * CHAR_BIT" "result" "
- /* BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
- included before <wchar.h>. */
- #include <stddef.h>
- #include <signal.h>
- #if HAVE_WCHAR_H
- # include <stdio.h>
- # include <time.h>
- # include <wchar.h>
- #endif
-
-#include <limits.h>"; then :
-
-else
- result=unknown
-fi
-
- eval gl_cv_bitsizeof_${gltype}=\$result
-
-fi
-eval ac_res=\$gl_cv_bitsizeof_${gltype}
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval result=\$gl_cv_bitsizeof_${gltype}
- if test $result = unknown; then
- result=0
- fi
- GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
- cat >>confdefs.h <<_ACEOF
-#define BITSIZEOF_${GLTYPE} $result
-_ACEOF
-
- eval BITSIZEOF_${GLTYPE}=\$result
- done
-
-
-
-
- for gltype in sig_atomic_t wchar_t wint_t ; do
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $gltype is signed" >&5
-$as_echo_n "checking whether $gltype is signed... " >&6; }
-if eval \${gl_cv_type_${gltype}_signed+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- /* BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
- included before <wchar.h>. */
- #include <stddef.h>
- #include <signal.h>
- #if HAVE_WCHAR_H
- # include <stdio.h>
- # include <time.h>
- # include <wchar.h>
- #endif
-
- int verify[2 * (($gltype) -1 < ($gltype) 0) - 1];
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- result=yes
-else
- result=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- eval gl_cv_type_${gltype}_signed=\$result
-
-fi
-eval ac_res=\$gl_cv_type_${gltype}_signed
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval result=\$gl_cv_type_${gltype}_signed
- GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
- if test "$result" = yes; then
- cat >>confdefs.h <<_ACEOF
-#define HAVE_SIGNED_${GLTYPE} 1
-_ACEOF
-
- eval HAVE_SIGNED_${GLTYPE}=1
- else
- eval HAVE_SIGNED_${GLTYPE}=0
- fi
- done
-
-
- gl_cv_type_ptrdiff_t_signed=yes
- gl_cv_type_size_t_signed=no
- if test $APPLE_UNIVERSAL_BUILD = 0; then
-
-
- for gltype in ptrdiff_t size_t ; do
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $gltype integer literal suffix" >&5
-$as_echo_n "checking for $gltype integer literal suffix... " >&6; }
-if eval \${gl_cv_type_${gltype}_suffix+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- eval gl_cv_type_${gltype}_suffix=no
- eval result=\$gl_cv_type_${gltype}_signed
- if test "$result" = yes; then
- glsufu=
- else
- glsufu=u
- fi
- for glsuf in "$glsufu" ${glsufu}l ${glsufu}ll ${glsufu}i64; do
- case $glsuf in
- '') gltype1='int';;
- l) gltype1='long int';;
- ll) gltype1='long long int';;
- i64) gltype1='__int64';;
- u) gltype1='unsigned int';;
- ul) gltype1='unsigned long int';;
- ull) gltype1='unsigned long long int';;
- ui64)gltype1='unsigned __int64';;
- esac
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- /* BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
- included before <wchar.h>. */
- #include <stddef.h>
- #include <signal.h>
- #if HAVE_WCHAR_H
- # include <stdio.h>
- # include <time.h>
- # include <wchar.h>
- #endif
-
- extern $gltype foo;
- extern $gltype1 foo;
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval gl_cv_type_${gltype}_suffix=\$glsuf
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- eval result=\$gl_cv_type_${gltype}_suffix
- test "$result" != no && break
- done
-fi
-eval ac_res=\$gl_cv_type_${gltype}_suffix
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
- eval result=\$gl_cv_type_${gltype}_suffix
- test "$result" = no && result=
- eval ${GLTYPE}_SUFFIX=\$result
- cat >>confdefs.h <<_ACEOF
-#define ${GLTYPE}_SUFFIX $result
-_ACEOF
-
- done
-
-
- fi
-
-
- for gltype in sig_atomic_t wchar_t wint_t ; do
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $gltype integer literal suffix" >&5
-$as_echo_n "checking for $gltype integer literal suffix... " >&6; }
-if eval \${gl_cv_type_${gltype}_suffix+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- eval gl_cv_type_${gltype}_suffix=no
- eval result=\$gl_cv_type_${gltype}_signed
- if test "$result" = yes; then
- glsufu=
- else
- glsufu=u
- fi
- for glsuf in "$glsufu" ${glsufu}l ${glsufu}ll ${glsufu}i64; do
- case $glsuf in
- '') gltype1='int';;
- l) gltype1='long int';;
- ll) gltype1='long long int';;
- i64) gltype1='__int64';;
- u) gltype1='unsigned int';;
- ul) gltype1='unsigned long int';;
- ull) gltype1='unsigned long long int';;
- ui64)gltype1='unsigned __int64';;
- esac
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- /* BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
- included before <wchar.h>. */
- #include <stddef.h>
- #include <signal.h>
- #if HAVE_WCHAR_H
- # include <stdio.h>
- # include <time.h>
- # include <wchar.h>
- #endif
-
- extern $gltype foo;
- extern $gltype1 foo;
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval gl_cv_type_${gltype}_suffix=\$glsuf
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- eval result=\$gl_cv_type_${gltype}_suffix
- test "$result" != no && break
- done
-fi
-eval ac_res=\$gl_cv_type_${gltype}_suffix
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'`
- eval result=\$gl_cv_type_${gltype}_suffix
- test "$result" = no && result=
- eval ${GLTYPE}_SUFFIX=\$result
- cat >>confdefs.h <<_ACEOF
-#define ${GLTYPE}_SUFFIX $result
-_ACEOF
-
- done
-
-
-
- if test $BITSIZEOF_WINT_T -lt 32; then
- BITSIZEOF_WINT_T=32
- fi
-
- STDINT_H=stdint.h
- fi
-
- if test -n "$STDINT_H"; then
- GL_GENERATE_STDINT_H_TRUE=
- GL_GENERATE_STDINT_H_FALSE='#'
-else
- GL_GENERATE_STDINT_H_TRUE='#'
- GL_GENERATE_STDINT_H_FALSE=
-fi
-
-
-
-
-
- GNULIB_IMAXABS=0;
- GNULIB_IMAXDIV=0;
- GNULIB_STRTOIMAX=0;
- GNULIB_STRTOUMAX=0;
- HAVE_DECL_IMAXABS=1;
- HAVE_DECL_IMAXDIV=1;
- HAVE_DECL_STRTOIMAX=1;
- HAVE_DECL_STRTOUMAX=1;
- REPLACE_STRTOIMAX=0;
- INT32_MAX_LT_INTMAX_MAX=1;
- INT64_MAX_EQ_LONG_MAX='defined _LP64';
- PRI_MACROS_BROKEN=0;
- PRIPTR_PREFIX=__PRIPTR_PREFIX;
- UINT32_MAX_LT_UINTMAX_MAX=1;
- UINT64_MAX_EQ_ULONG_MAX='defined _LP64';
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_inttypes_h='<'inttypes.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <inttypes.h>" >&5
-$as_echo_n "checking absolute name of <inttypes.h>... " >&6; }
-if ${gl_cv_next_inttypes_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test $ac_cv_header_inttypes_h = yes; then
-
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <inttypes.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'inttypes.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_inttypes_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
- else
- gl_cv_next_inttypes_h='<'inttypes.h'>'
- fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_inttypes_h" >&5
-$as_echo "$gl_cv_next_inttypes_h" >&6; }
- fi
- NEXT_INTTYPES_H=$gl_cv_next_inttypes_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'inttypes.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_inttypes_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_INTTYPES_H=$gl_next_as_first_directive
-
-
-
-
-
-
-
-
-
-
-
- case "$host_os" in
- mingw*)
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for 64-bit off_t" >&5
-$as_echo_n "checking for 64-bit off_t... " >&6; }
-if ${gl_cv_type_off_t_64+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- int verify_off_t_size[sizeof (off_t) >= 8 ? 1 : -1];
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_type_off_t_64=yes
-else
- gl_cv_type_off_t_64=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_type_off_t_64" >&5
-$as_echo "$gl_cv_type_off_t_64" >&6; }
- if test $gl_cv_type_off_t_64 = no; then
- WINDOWS_64_BIT_OFF_T=1
- else
- WINDOWS_64_BIT_OFF_T=0
- fi
- WINDOWS_64_BIT_ST_SIZE=1
- ;;
- *)
- WINDOWS_64_BIT_OFF_T=0
- WINDOWS_64_BIT_ST_SIZE=0
- ;;
- esac
-
-
- GNULIB_FCHMODAT=0;
- GNULIB_FSTAT=0;
- GNULIB_FSTATAT=0;
- GNULIB_FUTIMENS=0;
- GNULIB_LCHMOD=0;
- GNULIB_LSTAT=0;
- GNULIB_MKDIRAT=0;
- GNULIB_MKFIFO=0;
- GNULIB_MKFIFOAT=0;
- GNULIB_MKNOD=0;
- GNULIB_MKNODAT=0;
- GNULIB_STAT=0;
- GNULIB_UTIMENSAT=0;
- HAVE_FCHMODAT=1;
- HAVE_FSTATAT=1;
- HAVE_FUTIMENS=1;
- HAVE_LCHMOD=1;
- HAVE_LSTAT=1;
- HAVE_MKDIRAT=1;
- HAVE_MKFIFO=1;
- HAVE_MKFIFOAT=1;
- HAVE_MKNOD=1;
- HAVE_MKNODAT=1;
- HAVE_UTIMENSAT=1;
- REPLACE_FSTAT=0;
- REPLACE_FSTATAT=0;
- REPLACE_FUTIMENS=0;
- REPLACE_LSTAT=0;
- REPLACE_MKDIR=0;
- REPLACE_MKFIFO=0;
- REPLACE_MKNOD=0;
- REPLACE_STAT=0;
- REPLACE_UTIMENSAT=0;
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether lstat correctly handles trailing slash" >&5
-$as_echo_n "checking whether lstat correctly handles trailing slash... " >&6; }
-if ${gl_cv_func_lstat_dereferences_slashed_symlink+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- rm -f conftest.sym conftest.file
- echo >conftest.file
- if test "$as_ln_s" = "ln -s" && ln -s conftest.file conftest.sym; then
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- # Guess yes on glibc systems.
- *-gnu*) gl_cv_func_lstat_dereferences_slashed_symlink="guessing yes" ;;
- # If we don't know, assume the worst.
- *) gl_cv_func_lstat_dereferences_slashed_symlink="guessing no" ;;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$ac_includes_default
-int
-main ()
-{
-struct stat sbuf;
- /* Linux will dereference the symlink and fail, as required by
- POSIX. That is better in the sense that it means we will not
- have to compile and use the lstat wrapper. */
- return lstat ("conftest.sym/", &sbuf) == 0;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_lstat_dereferences_slashed_symlink=yes
-else
- gl_cv_func_lstat_dereferences_slashed_symlink=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- else
- # If the 'ln -s' command failed, then we probably don't even
- # have an lstat function.
- gl_cv_func_lstat_dereferences_slashed_symlink="guessing no"
- fi
- rm -f conftest.sym conftest.file
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_lstat_dereferences_slashed_symlink" >&5
-$as_echo "$gl_cv_func_lstat_dereferences_slashed_symlink" >&6; }
- case "$gl_cv_func_lstat_dereferences_slashed_symlink" in
- *yes)
-
-cat >>confdefs.h <<_ACEOF
-#define LSTAT_FOLLOWS_SLASHED_SYMLINK 1
-_ACEOF
-
- ;;
- esac
-
-
- GNULIB_MKTIME=0;
- GNULIB_NANOSLEEP=0;
- GNULIB_STRPTIME=0;
- GNULIB_TIMEGM=0;
- GNULIB_TIME_R=0;
- HAVE_DECL_LOCALTIME_R=1;
- HAVE_NANOSLEEP=1;
- HAVE_STRPTIME=1;
- HAVE_TIMEGM=1;
- REPLACE_LOCALTIME_R=GNULIB_PORTCHECK;
- REPLACE_MKTIME=GNULIB_PORTCHECK;
- REPLACE_NANOSLEEP=GNULIB_PORTCHECK;
- REPLACE_TIMEGM=GNULIB_PORTCHECK;
-
-
-
-
- GNULIB_PSELECT=0;
- GNULIB_SELECT=0;
- HAVE_PSELECT=1;
- REPLACE_PSELECT=0;
- REPLACE_SELECT=0;
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether <sys/select.h> is self-contained" >&5
-$as_echo_n "checking whether <sys/select.h> is self-contained... " >&6; }
-if ${gl_cv_header_sys_select_h_selfcontained+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/select.h>
-int
-main ()
-{
-struct timeval b;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_header_sys_select_h_selfcontained=yes
-else
- gl_cv_header_sys_select_h_selfcontained=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test $gl_cv_header_sys_select_h_selfcontained = yes; then
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/select.h>
-int
-main ()
-{
-int memset; int bzero;
- ;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/select.h>
-int
-main ()
-{
-
- #undef memset
- #define memset nonexistent_memset
- extern
- #ifdef __cplusplus
- "C"
- #endif
- void *memset (void *, int, unsigned long);
- #undef bzero
- #define bzero nonexistent_bzero
- extern
- #ifdef __cplusplus
- "C"
- #endif
- void bzero (void *, unsigned long);
- fd_set fds;
- FD_ZERO (&fds);
-
- ;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
-else
- gl_cv_header_sys_select_h_selfcontained=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_sys_select_h_selfcontained" >&5
-$as_echo "$gl_cv_header_sys_select_h_selfcontained" >&6; }
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_sys_select_h='<'sys/select.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <sys/select.h>" >&5
-$as_echo_n "checking absolute name of <sys/select.h>... " >&6; }
-if ${gl_cv_next_sys_select_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test $ac_cv_header_sys_select_h = yes; then
-
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/select.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'sys/select.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_sys_select_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
- else
- gl_cv_next_sys_select_h='<'sys/select.h'>'
- fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_sys_select_h" >&5
-$as_echo "$gl_cv_next_sys_select_h" >&6; }
- fi
- NEXT_SYS_SELECT_H=$gl_cv_next_sys_select_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'sys/select.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_sys_select_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_SYS_SELECT_H=$gl_next_as_first_directive
-
-
-
-
- if test $ac_cv_header_sys_select_h = yes; then
- HAVE_SYS_SELECT_H=1
- else
- HAVE_SYS_SELECT_H=0
- fi
-
-
-
-
-
- if test $ac_cv_header_sys_socket_h != yes; then
- for ac_header in winsock2.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "winsock2.h" "ac_cv_header_winsock2_h" "$ac_includes_default"
-if test "x$ac_cv_header_winsock2_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_WINSOCK2_H 1
-_ACEOF
-
-fi
-
-done
-
- fi
- if test "$ac_cv_header_winsock2_h" = yes; then
- HAVE_WINSOCK2_H=1
- UNISTD_H_HAVE_WINSOCK2_H=1
- SYS_IOCTL_H_HAVE_WINSOCK2_H=1
- else
- HAVE_WINSOCK2_H=0
- fi
-
-
-
-
-
-
-
-
- GNULIB_PTHREAD_SIGMASK=0;
- GNULIB_RAISE=0;
- GNULIB_SIGNAL_H_SIGPIPE=0;
- GNULIB_SIGPROCMASK=0;
- GNULIB_SIGACTION=0;
- HAVE_POSIX_SIGNALBLOCKING=1;
- HAVE_PTHREAD_SIGMASK=1;
- HAVE_RAISE=1;
- HAVE_SIGSET_T=1;
- HAVE_SIGINFO_T=1;
- HAVE_SIGACTION=1;
- HAVE_STRUCT_SIGACTION_SA_SIGACTION=1;
-
- HAVE_TYPE_VOLATILE_SIG_ATOMIC_T=1;
-
- HAVE_SIGHANDLER_T=1;
- REPLACE_PTHREAD_SIGMASK=0;
- REPLACE_RAISE=0;
-
-
-
-
-
-
-
- ac_fn_c_check_type "$LINENO" "sigset_t" "ac_cv_type_sigset_t" "
- #include <signal.h>
- /* Mingw defines sigset_t not in <signal.h>, but in <sys/types.h>. */
- #include <sys/types.h>
-
-"
-if test "x$ac_cv_type_sigset_t" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_SIGSET_T 1
-_ACEOF
-
-gl_cv_type_sigset_t=yes
-else
- gl_cv_type_sigset_t=no
-fi
-
- if test $gl_cv_type_sigset_t != yes; then
- HAVE_SIGSET_T=0
- fi
-
-
-
- if test $ac_cv_header_sys_socket_h = no; then
- for ac_header in ws2tcpip.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "ws2tcpip.h" "ac_cv_header_ws2tcpip_h" "$ac_includes_default"
-if test "x$ac_cv_header_ws2tcpip_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_WS2TCPIP_H 1
-_ACEOF
-
-fi
-
-done
-
- fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for stdbool.h that conforms to C99" >&5
-$as_echo_n "checking for stdbool.h that conforms to C99... " >&6; }
-if ${ac_cv_header_stdbool_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #include <stdbool.h>
- #ifndef bool
- "error: bool is not defined"
- #endif
- #ifndef false
- "error: false is not defined"
- #endif
- #if false
- "error: false is not 0"
- #endif
- #ifndef true
- "error: true is not defined"
- #endif
- #if true != 1
- "error: true is not 1"
- #endif
- #ifndef __bool_true_false_are_defined
- "error: __bool_true_false_are_defined is not defined"
- #endif
-
- struct s { _Bool s: 1; _Bool t; } s;
-
- char a[true == 1 ? 1 : -1];
- char b[false == 0 ? 1 : -1];
- char c[__bool_true_false_are_defined == 1 ? 1 : -1];
- char d[(bool) 0.5 == true ? 1 : -1];
- /* See body of main program for 'e'. */
- char f[(_Bool) 0.0 == false ? 1 : -1];
- char g[true];
- char h[sizeof (_Bool)];
- char i[sizeof s.t];
- enum { j = false, k = true, l = false * true, m = true * 256 };
- /* The following fails for
- HP aC++/ANSI C B3910B A.05.55 [Dec 04 2003]. */
- _Bool n[m];
- char o[sizeof n == m * sizeof n[0] ? 1 : -1];
- char p[-1 - (_Bool) 0 < 0 && -1 - (bool) 0 < 0 ? 1 : -1];
- /* Catch a bug in an HP-UX C compiler. See
- http://gcc.gnu.org/ml/gcc-patches/2003-12/msg02303.html
- http://lists.gnu.org/archive/html/bug-coreutils/2005-11/msg00161.html
- */
- _Bool q = true;
- _Bool *pq = &q;
-
-int
-main ()
-{
-
- bool e = &s;
- *pq |= q;
- *pq |= ! q;
- /* Refer to every declared value, to avoid compiler optimizations. */
- return (!a + !b + !c + !d + !e + !f + !g + !h + !i + !!j + !k + !!l
- + !m + !n + !o + !p + !q + !pq);
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_header_stdbool_h=yes
-else
- ac_cv_header_stdbool_h=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdbool_h" >&5
-$as_echo "$ac_cv_header_stdbool_h" >&6; }
- ac_fn_c_check_type "$LINENO" "_Bool" "ac_cv_type__Bool" "$ac_includes_default"
-if test "x$ac_cv_type__Bool" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE__BOOL 1
-_ACEOF
-
-
-fi
-
-
-
- REPLACE_NULL=0;
- HAVE_WCHAR_T=1;
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for wchar_t" >&5
-$as_echo_n "checking for wchar_t... " >&6; }
-if ${gt_cv_c_wchar_t+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stddef.h>
- wchar_t foo = (wchar_t)'\0';
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gt_cv_c_wchar_t=yes
-else
- gt_cv_c_wchar_t=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_cv_c_wchar_t" >&5
-$as_echo "$gt_cv_c_wchar_t" >&6; }
- if test $gt_cv_c_wchar_t = yes; then
-
-$as_echo "#define HAVE_WCHAR_T 1" >>confdefs.h
-
- fi
-
-
- GNULIB_DPRINTF=0;
- GNULIB_FCLOSE=0;
- GNULIB_FDOPEN=0;
- GNULIB_FFLUSH=0;
- GNULIB_FGETC=0;
- GNULIB_FGETS=0;
- GNULIB_FOPEN=0;
- GNULIB_FPRINTF=0;
- GNULIB_FPRINTF_POSIX=0;
- GNULIB_FPURGE=0;
- GNULIB_FPUTC=0;
- GNULIB_FPUTS=0;
- GNULIB_FREAD=0;
- GNULIB_FREOPEN=0;
- GNULIB_FSCANF=0;
- GNULIB_FSEEK=0;
- GNULIB_FSEEKO=0;
- GNULIB_FTELL=0;
- GNULIB_FTELLO=0;
- GNULIB_FWRITE=0;
- GNULIB_GETC=0;
- GNULIB_GETCHAR=0;
- GNULIB_GETDELIM=0;
- GNULIB_GETLINE=0;
- GNULIB_OBSTACK_PRINTF=0;
- GNULIB_OBSTACK_PRINTF_POSIX=0;
- GNULIB_PCLOSE=0;
- GNULIB_PERROR=0;
- GNULIB_POPEN=0;
- GNULIB_PRINTF=0;
- GNULIB_PRINTF_POSIX=0;
- GNULIB_PUTC=0;
- GNULIB_PUTCHAR=0;
- GNULIB_PUTS=0;
- GNULIB_REMOVE=0;
- GNULIB_RENAME=0;
- GNULIB_RENAMEAT=0;
- GNULIB_SCANF=0;
- GNULIB_SNPRINTF=0;
- GNULIB_SPRINTF_POSIX=0;
- GNULIB_STDIO_H_NONBLOCKING=0;
- GNULIB_STDIO_H_SIGPIPE=0;
- GNULIB_TMPFILE=0;
- GNULIB_VASPRINTF=0;
- GNULIB_VFSCANF=0;
- GNULIB_VSCANF=0;
- GNULIB_VDPRINTF=0;
- GNULIB_VFPRINTF=0;
- GNULIB_VFPRINTF_POSIX=0;
- GNULIB_VPRINTF=0;
- GNULIB_VPRINTF_POSIX=0;
- GNULIB_VSNPRINTF=0;
- GNULIB_VSPRINTF_POSIX=0;
- HAVE_DECL_FPURGE=1;
- HAVE_DECL_FSEEKO=1;
- HAVE_DECL_FTELLO=1;
- HAVE_DECL_GETDELIM=1;
- HAVE_DECL_GETLINE=1;
- HAVE_DECL_OBSTACK_PRINTF=1;
- HAVE_DECL_SNPRINTF=1;
- HAVE_DECL_VSNPRINTF=1;
- HAVE_DPRINTF=1;
- HAVE_FSEEKO=1;
- HAVE_FTELLO=1;
- HAVE_PCLOSE=1;
- HAVE_POPEN=1;
- HAVE_RENAMEAT=1;
- HAVE_VASPRINTF=1;
- HAVE_VDPRINTF=1;
- REPLACE_DPRINTF=0;
- REPLACE_FCLOSE=0;
- REPLACE_FDOPEN=0;
- REPLACE_FFLUSH=0;
- REPLACE_FOPEN=0;
- REPLACE_FPRINTF=0;
- REPLACE_FPURGE=0;
- REPLACE_FREOPEN=0;
- REPLACE_FSEEK=0;
- REPLACE_FSEEKO=0;
- REPLACE_FTELL=0;
- REPLACE_FTELLO=0;
- REPLACE_GETDELIM=0;
- REPLACE_GETLINE=0;
- REPLACE_OBSTACK_PRINTF=0;
- REPLACE_PERROR=0;
- REPLACE_POPEN=0;
- REPLACE_PRINTF=0;
- REPLACE_REMOVE=0;
- REPLACE_RENAME=0;
- REPLACE_RENAMEAT=0;
- REPLACE_SNPRINTF=0;
- REPLACE_SPRINTF=0;
- REPLACE_STDIO_READ_FUNCS=0;
- REPLACE_STDIO_WRITE_FUNCS=0;
- REPLACE_TMPFILE=0;
- REPLACE_VASPRINTF=0;
- REPLACE_VDPRINTF=0;
- REPLACE_VFPRINTF=0;
- REPLACE_VPRINTF=0;
- REPLACE_VSNPRINTF=0;
- REPLACE_VSPRINTF=0;
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether struct tm is in sys/time.h or time.h" >&5
-$as_echo_n "checking whether struct tm is in sys/time.h or time.h... " >&6; }
-if ${ac_cv_struct_tm+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
-#include <time.h>
-
-int
-main ()
-{
-struct tm tm;
- int *p = &tm.tm_sec;
- return !p;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_struct_tm=time.h
-else
- ac_cv_struct_tm=sys/time.h
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_struct_tm" >&5
-$as_echo "$ac_cv_struct_tm" >&6; }
-if test $ac_cv_struct_tm = sys/time.h; then
-
-$as_echo "#define TM_IN_SYS_TIME 1" >>confdefs.h
-
-fi
-
-ac_fn_c_check_member "$LINENO" "struct tm" "tm_zone" "ac_cv_member_struct_tm_tm_zone" "#include <sys/types.h>
-#include <$ac_cv_struct_tm>
-
-"
-if test "x$ac_cv_member_struct_tm_tm_zone" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_TM_TM_ZONE 1
-_ACEOF
-
-
-fi
-
-if test "$ac_cv_member_struct_tm_tm_zone" = yes; then
-
-$as_echo "#define HAVE_TM_ZONE 1" >>confdefs.h
-
-else
- ac_fn_c_check_decl "$LINENO" "tzname" "ac_cv_have_decl_tzname" "#include <time.h>
-"
-if test "x$ac_cv_have_decl_tzname" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_TZNAME $ac_have_decl
-_ACEOF
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for tzname" >&5
-$as_echo_n "checking for tzname... " >&6; }
-if ${ac_cv_var_tzname+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <time.h>
-#if !HAVE_DECL_TZNAME
-extern char *tzname[];
-#endif
-
-int
-main ()
-{
-return tzname[0][0];
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_var_tzname=yes
-else
- ac_cv_var_tzname=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_var_tzname" >&5
-$as_echo "$ac_cv_var_tzname" >&6; }
- if test $ac_cv_var_tzname = yes; then
-
-$as_echo "#define HAVE_TZNAME 1" >>confdefs.h
-
- fi
-fi
-
-
- ac_fn_c_check_member "$LINENO" "struct tm" "tm_gmtoff" "ac_cv_member_struct_tm_tm_gmtoff" "#include <time.h>
-"
-if test "x$ac_cv_member_struct_tm_tm_gmtoff" = xyes; then :
-
-$as_echo "#define HAVE_TM_GMTOFF 1" >>confdefs.h
-
-fi
-
-
-
-
-ac_fn_c_check_decl "$LINENO" "strtoimax" "ac_cv_have_decl_strtoimax" "$ac_includes_default"
-if test "x$ac_cv_have_decl_strtoimax" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_STRTOIMAX $ac_have_decl
-_ACEOF
-
-
-
-ac_fn_c_check_decl "$LINENO" "strtoumax" "ac_cv_have_decl_strtoumax" "$ac_includes_default"
-if test "x$ac_cv_have_decl_strtoumax" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_STRTOUMAX $ac_have_decl
-_ACEOF
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stat file-mode macros are broken" >&5
-$as_echo_n "checking whether stat file-mode macros are broken... " >&6; }
-if ${ac_cv_header_stat_broken+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
-#include <sys/stat.h>
-
-#if defined S_ISBLK && defined S_IFDIR
-extern char c1[S_ISBLK (S_IFDIR) ? -1 : 1];
-#endif
-
-#if defined S_ISBLK && defined S_IFCHR
-extern char c2[S_ISBLK (S_IFCHR) ? -1 : 1];
-#endif
-
-#if defined S_ISLNK && defined S_IFREG
-extern char c3[S_ISLNK (S_IFREG) ? -1 : 1];
-#endif
-
-#if defined S_ISSOCK && defined S_IFREG
-extern char c4[S_ISSOCK (S_IFREG) ? -1 : 1];
-#endif
-
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_header_stat_broken=no
-else
- ac_cv_header_stat_broken=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stat_broken" >&5
-$as_echo "$ac_cv_header_stat_broken" >&6; }
-if test $ac_cv_header_stat_broken = yes; then
-
-$as_echo "#define STAT_MACROS_BROKEN 1" >>confdefs.h
-
-fi
-
-
-
-ac_fn_c_check_type "$LINENO" "mode_t" "ac_cv_type_mode_t" "$ac_includes_default"
-if test "x$ac_cv_type_mode_t" = xyes; then :
-
-else
-
-cat >>confdefs.h <<_ACEOF
-#define mode_t int
-_ACEOF
-
-fi
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct timespec in <time.h>" >&5
-$as_echo_n "checking for struct timespec in <time.h>... " >&6; }
-if ${gl_cv_sys_struct_timespec_in_time_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <time.h>
-
-int
-main ()
-{
-static struct timespec x; x.tv_sec = x.tv_nsec;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_sys_struct_timespec_in_time_h=yes
-else
- gl_cv_sys_struct_timespec_in_time_h=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_timespec_in_time_h" >&5
-$as_echo "$gl_cv_sys_struct_timespec_in_time_h" >&6; }
-
- TIME_H_DEFINES_STRUCT_TIMESPEC=0
- SYS_TIME_H_DEFINES_STRUCT_TIMESPEC=0
- PTHREAD_H_DEFINES_STRUCT_TIMESPEC=0
- if test $gl_cv_sys_struct_timespec_in_time_h = yes; then
- TIME_H_DEFINES_STRUCT_TIMESPEC=1
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct timespec in <sys/time.h>" >&5
-$as_echo_n "checking for struct timespec in <sys/time.h>... " >&6; }
-if ${gl_cv_sys_struct_timespec_in_sys_time_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/time.h>
-
-int
-main ()
-{
-static struct timespec x; x.tv_sec = x.tv_nsec;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_sys_struct_timespec_in_sys_time_h=yes
-else
- gl_cv_sys_struct_timespec_in_sys_time_h=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_timespec_in_sys_time_h" >&5
-$as_echo "$gl_cv_sys_struct_timespec_in_sys_time_h" >&6; }
- if test $gl_cv_sys_struct_timespec_in_sys_time_h = yes; then
- SYS_TIME_H_DEFINES_STRUCT_TIMESPEC=1
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct timespec in <pthread.h>" >&5
-$as_echo_n "checking for struct timespec in <pthread.h>... " >&6; }
-if ${gl_cv_sys_struct_timespec_in_pthread_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <pthread.h>
-
-int
-main ()
-{
-static struct timespec x; x.tv_sec = x.tv_nsec;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_sys_struct_timespec_in_pthread_h=yes
-else
- gl_cv_sys_struct_timespec_in_pthread_h=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_timespec_in_pthread_h" >&5
-$as_echo "$gl_cv_sys_struct_timespec_in_pthread_h" >&6; }
- if test $gl_cv_sys_struct_timespec_in_pthread_h = yes; then
- PTHREAD_H_DEFINES_STRUCT_TIMESPEC=1
- fi
- fi
- fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_time_h='<'time.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <time.h>" >&5
-$as_echo_n "checking absolute name of <time.h>... " >&6; }
-if ${gl_cv_next_time_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <time.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'time.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_time_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_time_h" >&5
-$as_echo "$gl_cv_next_time_h" >&6; }
- fi
- NEXT_TIME_H=$gl_cv_next_time_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'time.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_time_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_TIME_H=$gl_next_as_first_directive
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the utimes function works" >&5
-$as_echo_n "checking whether the utimes function works... " >&6; }
-if ${gl_cv_func_working_utimes+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test "$cross_compiling" = yes; then :
- gl_cv_func_working_utimes=no
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <sys/time.h>
-#include <time.h>
-#include <unistd.h>
-#include <stdlib.h>
-#include <stdio.h>
-#include <utime.h>
-
-static int
-inorder (time_t a, time_t b, time_t c)
-{
- return a <= b && b <= c;
-}
-
-int
-main ()
-{
- int result = 0;
- char const *file = "conftest.utimes";
- static struct timeval timeval[2] = {{9, 10}, {999999, 999999}};
-
- /* Test whether utimes() essentially works. */
- {
- struct stat sbuf;
- FILE *f = fopen (file, "w");
- if (f == NULL)
- result |= 1;
- else if (fclose (f) != 0)
- result |= 1;
- else if (utimes (file, timeval) != 0)
- result |= 2;
- else if (lstat (file, &sbuf) != 0)
- result |= 1;
- else if (!(sbuf.st_atime == timeval[0].tv_sec
- && sbuf.st_mtime == timeval[1].tv_sec))
- result |= 4;
- if (unlink (file) != 0)
- result |= 1;
- }
-
- /* Test whether utimes() with a NULL argument sets the file's timestamp
- to the current time. Use 'fstat' as well as 'time' to
- determine the "current" time, to accommodate NFS file systems
- if there is a time skew between the host and the NFS server. */
- {
- int fd = open (file, O_WRONLY|O_CREAT, 0644);
- if (fd < 0)
- result |= 1;
- else
- {
- time_t t0, t2;
- struct stat st0, st1, st2;
- if (time (&t0) == (time_t) -1)
- result |= 1;
- else if (fstat (fd, &st0) != 0)
- result |= 1;
- else if (utimes (file, timeval) != 0)
- result |= 2;
- else if (utimes (file, NULL) != 0)
- result |= 8;
- else if (fstat (fd, &st1) != 0)
- result |= 1;
- else if (write (fd, "\n", 1) != 1)
- result |= 1;
- else if (fstat (fd, &st2) != 0)
- result |= 1;
- else if (time (&t2) == (time_t) -1)
- result |= 1;
- else
- {
- int m_ok_POSIX = inorder (t0, st1.st_mtime, t2);
- int m_ok_NFS = inorder (st0.st_mtime, st1.st_mtime, st2.st_mtime);
- if (! (st1.st_atime == st1.st_mtime))
- result |= 16;
- if (! (m_ok_POSIX || m_ok_NFS))
- result |= 32;
- }
- if (close (fd) != 0)
- result |= 1;
- }
- if (unlink (file) != 0)
- result |= 1;
- }
-
- /* Test whether utimes() with a NULL argument works on read-only files. */
- {
- int fd = open (file, O_WRONLY|O_CREAT, 0444);
- if (fd < 0)
- result |= 1;
- else if (close (fd) != 0)
- result |= 1;
- else if (utimes (file, NULL) != 0)
- result |= 64;
- if (unlink (file) != 0)
- result |= 1;
- }
-
- return result;
-}
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_working_utimes=yes
-else
- gl_cv_func_working_utimes=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_working_utimes" >&5
-$as_echo "$gl_cv_func_working_utimes" >&6; }
-
- if test $gl_cv_func_working_utimes = yes; then
-
-$as_echo "#define HAVE_WORKING_UTIMES 1" >>confdefs.h
-
- fi
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct utimbuf" >&5
-$as_echo_n "checking for struct utimbuf... " >&6; }
-if ${gl_cv_sys_struct_utimbuf+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#if HAVE_SYS_TIME_H
- #include <sys/time.h>
- #endif
- #include <time.h>
- #ifdef HAVE_UTIME_H
- #include <utime.h>
- #endif
-
-int
-main ()
-{
-static struct utimbuf x; x.actime = x.modtime;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_sys_struct_utimbuf=yes
-else
- gl_cv_sys_struct_utimbuf=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_utimbuf" >&5
-$as_echo "$gl_cv_sys_struct_utimbuf" >&6; }
-
- if test $gl_cv_sys_struct_utimbuf = yes; then
-
-$as_echo "#define HAVE_STRUCT_UTIMBUF 1" >>confdefs.h
-
- fi
-
-
-
-
-
-
-
-
-
-
-
-
- if false; then
- GL_COND_LIBTOOL_TRUE=
- GL_COND_LIBTOOL_FALSE='#'
-else
- GL_COND_LIBTOOL_TRUE='#'
- GL_COND_LIBTOOL_FALSE=
-fi
-
- gl_cond_libtool=false
- gl_libdeps=
- gl_ltlibdeps=
- gl_m4_base='m4'
-
-
-
-
-
-
-
-
-
- gl_source_base='lib'
-
-
- if test $ac_cv_func_alloca_works = no; then
- :
- fi
-
- # Define an additional variable used in the Makefile substitution.
- if test $ac_cv_working_alloca_h = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for alloca as a compiler built-in" >&5
-$as_echo_n "checking for alloca as a compiler built-in... " >&6; }
-if ${gl_cv_rpl_alloca+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#if defined __GNUC__ || defined _AIX || defined _MSC_VER
- Need own alloca
-#endif
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "Need own alloca" >/dev/null 2>&1; then :
- gl_cv_rpl_alloca=yes
-else
- gl_cv_rpl_alloca=no
-fi
-rm -f conftest*
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_rpl_alloca" >&5
-$as_echo "$gl_cv_rpl_alloca" >&6; }
- if test $gl_cv_rpl_alloca = yes; then
-
-$as_echo "#define HAVE_ALLOCA 1" >>confdefs.h
-
- ALLOCA_H=alloca.h
- else
- ALLOCA_H=
- fi
- else
- ALLOCA_H=alloca.h
- fi
-
- if test -n "$ALLOCA_H"; then
- GL_GENERATE_ALLOCA_H_TRUE=
- GL_GENERATE_ALLOCA_H_FALSE='#'
-else
- GL_GENERATE_ALLOCA_H_TRUE='#'
- GL_GENERATE_ALLOCA_H_FALSE=
-fi
-
-
-
-
-
-
- # Solaris 2.5.1 needs -lposix4 to get the clock_gettime function.
- # Solaris 7 prefers the library name -lrt to the obsolescent name -lposix4.
-
- # Save and restore LIBS so e.g., -lrt, isn't added to it. Otherwise, *all*
- # programs in the package would end up linked with that potentially-shared
- # library, inducing unnecessary run-time overhead.
- LIB_CLOCK_GETTIME=
-
- gl_saved_libs=$LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing clock_gettime" >&5
-$as_echo_n "checking for library containing clock_gettime... " >&6; }
-if ${ac_cv_search_clock_gettime+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_func_search_save_LIBS=$LIBS
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 clock_gettime ();
-int
-main ()
-{
-return clock_gettime ();
- ;
- return 0;
-}
-_ACEOF
-for ac_lib in '' rt posix4; do
- if test -z "$ac_lib"; then
- ac_res="none required"
- else
- ac_res=-l$ac_lib
- LIBS="-l$ac_lib $ac_func_search_save_LIBS"
- fi
- if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_search_clock_gettime=$ac_res
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext
- if ${ac_cv_search_clock_gettime+:} false; then :
- break
-fi
-done
-if ${ac_cv_search_clock_gettime+:} false; then :
-
-else
- ac_cv_search_clock_gettime=no
-fi
-rm conftest.$ac_ext
-LIBS=$ac_func_search_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_clock_gettime" >&5
-$as_echo "$ac_cv_search_clock_gettime" >&6; }
-ac_res=$ac_cv_search_clock_gettime
-if test "$ac_res" != no; then :
- test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
- test "$ac_cv_search_clock_gettime" = "none required" ||
- LIB_CLOCK_GETTIME=$ac_cv_search_clock_gettime
-fi
-
- for ac_func in clock_gettime clock_settime
-do :
- as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
-ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-done
-
- LIBS=$gl_saved_libs
-
-
-
-
- :
-
-
-
-
- :
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-$as_echo "#define HAVE_DUP2 1" >>confdefs.h
-
-
- if test $HAVE_DUP2 = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether dup2 works" >&5
-$as_echo_n "checking whether dup2 works... " >&6; }
-if ${gl_cv_func_dup2_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- mingw*) # on this platform, dup2 always returns 0 for success
- gl_cv_func_dup2_works="guessing no" ;;
- cygwin*) # on cygwin 1.5.x, dup2(1,1) returns 0
- gl_cv_func_dup2_works="guessing no" ;;
- linux*) # On linux between 2008-07-27 and 2009-05-11, dup2 of a
- # closed fd may yield -EBADF instead of -1 / errno=EBADF.
- gl_cv_func_dup2_works="guessing no" ;;
- freebsd*) # on FreeBSD 6.1, dup2(1,1000000) gives EMFILE, not EBADF.
- gl_cv_func_dup2_works="guessing no" ;;
- haiku*) # on Haiku alpha 2, dup2(1, 1) resets FD_CLOEXEC.
- gl_cv_func_dup2_works="guessing no" ;;
- *) gl_cv_func_dup2_works="guessing yes" ;;
- esac
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #include <unistd.h>
-#include <fcntl.h>
-#include <errno.h>
-int
-main ()
-{
-int result = 0;
-#ifdef FD_CLOEXEC
- if (fcntl (1, F_SETFD, FD_CLOEXEC) == -1)
- result |= 1;
-#endif
- if (dup2 (1, 1) == 0)
- result |= 2;
-#ifdef FD_CLOEXEC
- if (fcntl (1, F_GETFD) != FD_CLOEXEC)
- result |= 4;
-#endif
- close (0);
- if (dup2 (0, 0) != -1)
- result |= 8;
- /* Many gnulib modules require POSIX conformance of EBADF. */
- if (dup2 (2, 1000000) == -1 && errno != EBADF)
- result |= 16;
- return result;
-
- ;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_dup2_works=yes
-else
- gl_cv_func_dup2_works=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_dup2_works" >&5
-$as_echo "$gl_cv_func_dup2_works" >&6; }
- case "$gl_cv_func_dup2_works" in
- *yes) ;;
- *)
- REPLACE_DUP2=1
- ;;
- esac
- fi
-
-
- if test $HAVE_DUP2 = 0 || test $REPLACE_DUP2 = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS dup2.$ac_objext"
-
-
- fi
-
-
-
-
-
- GNULIB_DUP2=1
-
-
-
-
-
-
-
-
-
-
-
- GNULIB_ENVIRON=1
-
-
-
-
-
-
-
-
- LIB_EXECINFO=''
- EXECINFO_H='execinfo.h'
-
- if test $ac_cv_header_execinfo_h = yes; then
- gl_saved_libs=$LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing backtrace_symbols_fd" >&5
-$as_echo_n "checking for library containing backtrace_symbols_fd... " >&6; }
-if ${ac_cv_search_backtrace_symbols_fd+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_func_search_save_LIBS=$LIBS
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 backtrace_symbols_fd ();
-int
-main ()
-{
-return backtrace_symbols_fd ();
- ;
- return 0;
-}
-_ACEOF
-for ac_lib in '' execinfo; do
- if test -z "$ac_lib"; then
- ac_res="none required"
- else
- ac_res=-l$ac_lib
- LIBS="-l$ac_lib $ac_func_search_save_LIBS"
- fi
- if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_search_backtrace_symbols_fd=$ac_res
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext
- if ${ac_cv_search_backtrace_symbols_fd+:} false; then :
- break
-fi
-done
-if ${ac_cv_search_backtrace_symbols_fd+:} false; then :
-
-else
- ac_cv_search_backtrace_symbols_fd=no
-fi
-rm conftest.$ac_ext
-LIBS=$ac_func_search_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_backtrace_symbols_fd" >&5
-$as_echo "$ac_cv_search_backtrace_symbols_fd" >&6; }
-ac_res=$ac_cv_search_backtrace_symbols_fd
-if test "$ac_res" != no; then :
- test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
- test "$ac_cv_search_backtrace_symbols_fd" = "none required" ||
- LIB_EXECINFO=$ac_cv_search_backtrace_symbols_fd
-fi
-
- LIBS=$gl_saved_libs
- test "$ac_cv_search_backtrace_symbols_fd" = no || EXECINFO_H=''
- fi
-
- if test -n "$EXECINFO_H"; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS execinfo.$ac_objext"
-
- fi
-
-
-
- if test -n "$EXECINFO_H"; then
- GL_GENERATE_EXECINFO_H_TRUE=
- GL_GENERATE_EXECINFO_H_FALSE='#'
-else
- GL_GENERATE_EXECINFO_H_TRUE='#'
- GL_GENERATE_EXECINFO_H_FALSE=
-fi
-
-
-
-
-
-
-
-
-
-# Persuade glibc <stdlib.h> to declare getloadavg().
-
-
-gl_save_LIBS=$LIBS
-
-# getloadvg is present in libc on glibc >= 2.2, Mac OS X, FreeBSD >= 2.0,
-# NetBSD >= 0.9, OpenBSD >= 2.0, Solaris >= 7.
-HAVE_GETLOADAVG=1
-ac_fn_c_check_func "$LINENO" "getloadavg" "ac_cv_func_getloadavg"
-if test "x$ac_cv_func_getloadavg" = xyes; then :
-
-else
- gl_func_getloadavg_done=no
-
- # Some systems with -lutil have (and need) -lkvm as well, some do not.
- # On Solaris, -lkvm requires nlist from -lelf, so check that first
- # to get the right answer into the cache.
- # For kstat on solaris, we need to test for libelf and libkvm to force the
- # definition of SVR4 below.
- if test $gl_func_getloadavg_done = no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for elf_begin in -lelf" >&5
-$as_echo_n "checking for elf_begin in -lelf... " >&6; }
-if ${ac_cv_lib_elf_elf_begin+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lelf $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 elf_begin ();
-int
-main ()
-{
-return elf_begin ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_elf_elf_begin=yes
-else
- ac_cv_lib_elf_elf_begin=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_elf_elf_begin" >&5
-$as_echo "$ac_cv_lib_elf_elf_begin" >&6; }
-if test "x$ac_cv_lib_elf_elf_begin" = xyes; then :
- LIBS="-lelf $LIBS"
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for kvm_open in -lkvm" >&5
-$as_echo_n "checking for kvm_open in -lkvm... " >&6; }
-if ${ac_cv_lib_kvm_kvm_open+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lkvm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 kvm_open ();
-int
-main ()
-{
-return kvm_open ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_kvm_kvm_open=yes
-else
- ac_cv_lib_kvm_kvm_open=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_kvm_kvm_open" >&5
-$as_echo "$ac_cv_lib_kvm_kvm_open" >&6; }
-if test "x$ac_cv_lib_kvm_kvm_open" = xyes; then :
- LIBS="-lkvm $LIBS"
-fi
-
- # Check for the 4.4BSD definition of getloadavg.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for getloadavg in -lutil" >&5
-$as_echo_n "checking for getloadavg in -lutil... " >&6; }
-if ${ac_cv_lib_util_getloadavg+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lutil $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 getloadavg ();
-int
-main ()
-{
-return getloadavg ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_util_getloadavg=yes
-else
- ac_cv_lib_util_getloadavg=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_util_getloadavg" >&5
-$as_echo "$ac_cv_lib_util_getloadavg" >&6; }
-if test "x$ac_cv_lib_util_getloadavg" = xyes; then :
- LIBS="-lutil $LIBS" gl_func_getloadavg_done=yes
-fi
-
- fi
-
- if test $gl_func_getloadavg_done = no; then
- # There is a commonly available library for RS/6000 AIX.
- # Since it is not a standard part of AIX, it might be installed locally.
- gl_getloadavg_LIBS=$LIBS
- LIBS="-L/usr/local/lib $LIBS"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for getloadavg in -lgetloadavg" >&5
-$as_echo_n "checking for getloadavg in -lgetloadavg... " >&6; }
-if ${ac_cv_lib_getloadavg_getloadavg+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lgetloadavg $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 getloadavg ();
-int
-main ()
-{
-return getloadavg ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_getloadavg_getloadavg=yes
-else
- ac_cv_lib_getloadavg_getloadavg=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_getloadavg_getloadavg" >&5
-$as_echo "$ac_cv_lib_getloadavg_getloadavg" >&6; }
-if test "x$ac_cv_lib_getloadavg_getloadavg" = xyes; then :
- LIBS="-lgetloadavg $LIBS" gl_func_getloadavg_done=yes
-else
- LIBS=$gl_getloadavg_LIBS
-fi
-
- fi
-
- # Set up the replacement function if necessary.
- if test $gl_func_getloadavg_done = no; then
- HAVE_GETLOADAVG=0
-
- # Solaris has libkstat which does not require root.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for kstat_open in -lkstat" >&5
-$as_echo_n "checking for kstat_open in -lkstat... " >&6; }
-if ${ac_cv_lib_kstat_kstat_open+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lkstat $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 kstat_open ();
-int
-main ()
-{
-return kstat_open ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_kstat_kstat_open=yes
-else
- ac_cv_lib_kstat_kstat_open=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_kstat_kstat_open" >&5
-$as_echo "$ac_cv_lib_kstat_kstat_open" >&6; }
-if test "x$ac_cv_lib_kstat_kstat_open" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBKSTAT 1
-_ACEOF
-
- LIBS="-lkstat $LIBS"
-
-fi
-
- test $ac_cv_lib_kstat_kstat_open = yes && gl_func_getloadavg_done=yes
-
- # AIX has libperfstat which does not require root
- if test $gl_func_getloadavg_done = no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for perfstat_cpu_total in -lperfstat" >&5
-$as_echo_n "checking for perfstat_cpu_total in -lperfstat... " >&6; }
-if ${ac_cv_lib_perfstat_perfstat_cpu_total+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lperfstat $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 perfstat_cpu_total ();
-int
-main ()
-{
-return perfstat_cpu_total ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_perfstat_perfstat_cpu_total=yes
-else
- ac_cv_lib_perfstat_perfstat_cpu_total=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_perfstat_perfstat_cpu_total" >&5
-$as_echo "$ac_cv_lib_perfstat_perfstat_cpu_total" >&6; }
-if test "x$ac_cv_lib_perfstat_perfstat_cpu_total" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBPERFSTAT 1
-_ACEOF
-
- LIBS="-lperfstat $LIBS"
-
-fi
-
- test $ac_cv_lib_perfstat_perfstat_cpu_total = yes && gl_func_getloadavg_done=yes
- fi
-
- if test $gl_func_getloadavg_done = no; then
- ac_fn_c_check_header_mongrel "$LINENO" "sys/dg_sys_info.h" "ac_cv_header_sys_dg_sys_info_h" "$ac_includes_default"
-if test "x$ac_cv_header_sys_dg_sys_info_h" = xyes; then :
- gl_func_getloadavg_done=yes
-
-$as_echo "#define DGUX 1" >>confdefs.h
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dg_sys_info in -ldgc" >&5
-$as_echo_n "checking for dg_sys_info in -ldgc... " >&6; }
-if ${ac_cv_lib_dgc_dg_sys_info+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldgc $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 dg_sys_info ();
-int
-main ()
-{
-return dg_sys_info ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dgc_dg_sys_info=yes
-else
- ac_cv_lib_dgc_dg_sys_info=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dgc_dg_sys_info" >&5
-$as_echo "$ac_cv_lib_dgc_dg_sys_info" >&6; }
-if test "x$ac_cv_lib_dgc_dg_sys_info" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBDGC 1
-_ACEOF
-
- LIBS="-ldgc $LIBS"
-
-fi
-
-fi
-
-
- fi
- fi
-fi
-
-
-if test "x$gl_save_LIBS" = x; then
- GETLOADAVG_LIBS=$LIBS
-else
- GETLOADAVG_LIBS=`echo "$LIBS" | sed "s!$gl_save_LIBS!!"`
-fi
-LIBS=$gl_save_LIBS
-
-
-# Test whether the system declares getloadavg. Solaris has the function
-# but declares it in <sys/loadavg.h>, not <stdlib.h>.
-for ac_header in sys/loadavg.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "sys/loadavg.h" "ac_cv_header_sys_loadavg_h" "$ac_includes_default"
-if test "x$ac_cv_header_sys_loadavg_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_SYS_LOADAVG_H 1
-_ACEOF
-
-fi
-
-done
-
-if test $ac_cv_header_sys_loadavg_h = yes; then
- HAVE_SYS_LOADAVG_H=1
-else
- HAVE_SYS_LOADAVG_H=0
-fi
-ac_fn_c_check_decl "$LINENO" "getloadavg" "ac_cv_have_decl_getloadavg" "#if HAVE_SYS_LOADAVG_H
- # include <sys/loadavg.h>
- #endif
- #include <stdlib.h>
-"
-if test "x$ac_cv_have_decl_getloadavg" = xyes; then :
-
-else
- HAVE_DECL_GETLOADAVG=0
-fi
-
-
- if test $HAVE_GETLOADAVG = 0; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS getloadavg.$ac_objext"
-
-
-# Figure out what our getloadavg.c needs.
-
-
-
-# On HPUX9, an unprivileged user can get load averages this way.
-if test $gl_func_getloadavg_done = no; then
- for ac_func in pstat_getdynamic
-do :
- ac_fn_c_check_func "$LINENO" "pstat_getdynamic" "ac_cv_func_pstat_getdynamic"
-if test "x$ac_cv_func_pstat_getdynamic" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_PSTAT_GETDYNAMIC 1
-_ACEOF
- gl_func_getloadavg_done=yes
-fi
-done
-
-fi
-
-# We cannot check for <dwarf.h>, because Solaris 2 does not use dwarf (it
-# uses stabs), but it is still SVR4. We cannot check for <elf.h> because
-# Irix 4.0.5F has the header but not the library.
-if test $gl_func_getloadavg_done = no && test "$ac_cv_lib_elf_elf_begin" = yes \
- && test "$ac_cv_lib_kvm_kvm_open" = yes; then
- gl_func_getloadavg_done=yes
-
-$as_echo "#define SVR4 1" >>confdefs.h
-
-fi
-
-if test $gl_func_getloadavg_done = no; then
- ac_fn_c_check_header_mongrel "$LINENO" "inq_stats/cpustats.h" "ac_cv_header_inq_stats_cpustats_h" "$ac_includes_default"
-if test "x$ac_cv_header_inq_stats_cpustats_h" = xyes; then :
- gl_func_getloadavg_done=yes
-
-$as_echo "#define UMAX 1" >>confdefs.h
-
-
-$as_echo "#define UMAX4_3 1" >>confdefs.h
-
-fi
-
-
-fi
-
-if test $gl_func_getloadavg_done = no; then
- ac_fn_c_check_header_mongrel "$LINENO" "sys/cpustats.h" "ac_cv_header_sys_cpustats_h" "$ac_includes_default"
-if test "x$ac_cv_header_sys_cpustats_h" = xyes; then :
- gl_func_getloadavg_done=yes; $as_echo "#define UMAX 1" >>confdefs.h
-
-fi
-
-
-fi
-
-if test $gl_func_getloadavg_done = no; then
- for ac_header in mach/mach.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "mach/mach.h" "ac_cv_header_mach_mach_h" "$ac_includes_default"
-if test "x$ac_cv_header_mach_mach_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_MACH_MACH_H 1
-_ACEOF
-
-fi
-
-done
-
-fi
-
-for ac_header in nlist.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "nlist.h" "ac_cv_header_nlist_h" "$ac_includes_default"
-if test "x$ac_cv_header_nlist_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_NLIST_H 1
-_ACEOF
- ac_fn_c_check_member "$LINENO" "struct nlist" "n_un.n_name" "ac_cv_member_struct_nlist_n_un_n_name" "#include <nlist.h>
-"
-if test "x$ac_cv_member_struct_nlist_n_un_n_name" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_NLIST_N_UN_N_NAME 1
-_ACEOF
-
-
-fi
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <nlist.h>
-int
-main ()
-{
-struct nlist x;
- #ifdef HAVE_STRUCT_NLIST_N_UN_N_NAME
- x.n_un.n_name = "";
- #else
- x.n_name = "";
- #endif
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
-$as_echo "#define N_NAME_POINTER 1" >>confdefs.h
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-
-done
-
- fi
-
-
-
-
-
- GNULIB_GETLOADAVG=1
-
-
-
-
-
-
-
-
-
-
- if test $REPLACE_GETOPT = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS getopt.$ac_objext"
-
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS getopt1.$ac_objext"
-
-
-
-
- GNULIB_GL_UNISTD_H_GETOPT=1
- fi
-
-
-
-
-
-
-
- REPLACE_GETOPT=0
- if test -n "$gl_replace_getopt"; then
- REPLACE_GETOPT=1
- fi
-
- if test $REPLACE_GETOPT = 1; then
-
- GETOPT_H=getopt.h
-
-$as_echo "#define __GETOPT_PREFIX rpl_" >>confdefs.h
-
-
-
- fi
-
- if test $REPLACE_GETOPT = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS getopt.$ac_objext"
-
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS getopt1.$ac_objext"
-
-
-
-
- GNULIB_GL_UNISTD_H_GETOPT=1
- fi
-
-
-
-
-
-
-
-
-
-
-
-
- gl_gettimeofday_timezone=void
- if test $ac_cv_func_gettimeofday != yes; then
- HAVE_GETTIMEOFDAY=0
- else
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether gettimeofday clobbers localtime buffer" >&5
-$as_echo_n "checking whether gettimeofday clobbers localtime buffer... " >&6; }
-if ${gl_cv_func_gettimeofday_clobber+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- # When cross-compiling:
- case "$host_os" in
- # Guess all is fine on glibc systems.
- *-gnu*) gl_cv_func_gettimeofday_clobber="guessing no" ;;
- # If we don't know, assume the worst.
- *) gl_cv_func_gettimeofday_clobber="guessing yes" ;;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <string.h>
- #include <sys/time.h>
- #include <time.h>
- #include <stdlib.h>
-
-int
-main ()
-{
-
- time_t t = 0;
- struct tm *lt;
- struct tm saved_lt;
- struct timeval tv;
- lt = localtime (&t);
- saved_lt = *lt;
- gettimeofday (&tv, NULL);
- return memcmp (lt, &saved_lt, sizeof (struct tm)) != 0;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_gettimeofday_clobber=no
-else
- gl_cv_func_gettimeofday_clobber=yes
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_gettimeofday_clobber" >&5
-$as_echo "$gl_cv_func_gettimeofday_clobber" >&6; }
-
- case "$gl_cv_func_gettimeofday_clobber" in
- *yes)
- REPLACE_GETTIMEOFDAY=1
-
-
-$as_echo "#define gmtime rpl_gmtime" >>confdefs.h
-
-
-$as_echo "#define localtime rpl_localtime" >>confdefs.h
-
-
-
-$as_echo "#define GETTIMEOFDAY_CLOBBERS_LOCALTIME 1" >>confdefs.h
-
- ;;
- esac
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gettimeofday with POSIX signature" >&5
-$as_echo_n "checking for gettimeofday with POSIX signature... " >&6; }
-if ${gl_cv_func_gettimeofday_posix_signature+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/time.h>
- struct timeval c;
- int gettimeofday (struct timeval *restrict, void *restrict);
-
-int
-main ()
-{
-/* glibc uses struct timezone * rather than the POSIX void *
- if _GNU_SOURCE is defined. However, since the only portable
- use of gettimeofday uses NULL as the second parameter, and
- since the glibc definition is actually more typesafe, it is
- not worth wrapping this to get a compliant signature. */
- int (*f) (struct timeval *restrict, void *restrict)
- = gettimeofday;
- int x = f (&c, 0);
- return !(x | c.tv_sec | c.tv_usec);
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_func_gettimeofday_posix_signature=yes
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/time.h>
-int gettimeofday (struct timeval *restrict, struct timezone *restrict);
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_func_gettimeofday_posix_signature=almost
-else
- gl_cv_func_gettimeofday_posix_signature=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_gettimeofday_posix_signature" >&5
-$as_echo "$gl_cv_func_gettimeofday_posix_signature" >&6; }
- if test $gl_cv_func_gettimeofday_posix_signature = almost; then
- gl_gettimeofday_timezone='struct timezone'
- elif test $gl_cv_func_gettimeofday_posix_signature != yes; then
- REPLACE_GETTIMEOFDAY=1
- fi
- if test $REPLACE_STRUCT_TIMEVAL = 1; then
- REPLACE_GETTIMEOFDAY=1
- fi
-
- fi
-
-cat >>confdefs.h <<_ACEOF
-#define GETTIMEOFDAY_TIMEZONE $gl_gettimeofday_timezone
-_ACEOF
-
-
- if test $HAVE_GETTIMEOFDAY = 0 || test $REPLACE_GETTIMEOFDAY = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS gettimeofday.$ac_objext"
-
-
- for ac_header in sys/timeb.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "sys/timeb.h" "ac_cv_header_sys_timeb_h" "$ac_includes_default"
-if test "x$ac_cv_header_sys_timeb_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_SYS_TIMEB_H 1
-_ACEOF
-
-fi
-
-done
-
- for ac_func in _ftime
-do :
- ac_fn_c_check_func "$LINENO" "_ftime" "ac_cv_func__ftime"
-if test "x$ac_cv_func__ftime" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE__FTIME 1
-_ACEOF
-
-fi
-done
-
-
- fi
-
-
-
-
-
- GNULIB_GETTIMEOFDAY=1
-
-
-
-
-
-
-
-
-
-
- if test $ac_cv_func_lstat = yes; then
-
- case "$gl_cv_func_lstat_dereferences_slashed_symlink" in
- *no)
- REPLACE_LSTAT=1
- ;;
- esac
- else
- HAVE_LSTAT=0
- fi
-
- if test $REPLACE_LSTAT = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS lstat.$ac_objext"
-
-
-
- :
-
- fi
-
-
-
-
-
- GNULIB_LSTAT=1
-
-
-
-
-
-
-
-
-
-
-
- if test $APPLE_UNIVERSAL_BUILD = 1; then
- # A universal build on Apple Mac OS X platforms.
- # The test result would be 'yes' in 32-bit mode and 'no' in 64-bit mode.
- # But we need a configuration result that is valid in both modes.
- gl_cv_func_working_mktime=no
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working mktime" >&5
-$as_echo_n "checking for working mktime... " >&6; }
-if ${gl_cv_func_working_mktime+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- gl_cv_func_working_mktime=no
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-/* Test program from Paul Eggert and Tony Leneis. */
-#include <limits.h>
-#include <stdlib.h>
-#include <time.h>
-
-#ifdef HAVE_UNISTD_H
-# include <unistd.h>
-#endif
-
-#ifndef HAVE_ALARM
-# define alarm(X) /* empty */
-#endif
-
-/* Work around redefinition to rpl_putenv by other config tests. */
-#undef putenv
-
-static time_t time_t_max;
-static time_t time_t_min;
-
-/* Values we'll use to set the TZ environment variable. */
-static char *tz_strings[] = {
- (char *) 0, "TZ=GMT0", "TZ=JST-9",
- "TZ=EST+3EDT+2,M10.1.0/00:00:00,M2.3.0/00:00:00"
-};
-#define N_STRINGS (sizeof (tz_strings) / sizeof (tz_strings[0]))
-
-/* Return 0 if mktime fails to convert a date in the spring-forward gap.
- Based on a problem report from Andreas Jaeger. */
-static int
-spring_forward_gap ()
-{
- /* glibc (up to about 1998-10-07) failed this test. */
- struct tm tm;
-
- /* Use the portable POSIX.1 specification "TZ=PST8PDT,M4.1.0,M10.5.0"
- instead of "TZ=America/Vancouver" in order to detect the bug even
- on systems that don't support the Olson extension, or don't have the
- full zoneinfo tables installed. */
- putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
-
- tm.tm_year = 98;
- tm.tm_mon = 3;
- tm.tm_mday = 5;
- tm.tm_hour = 2;
- tm.tm_min = 0;
- tm.tm_sec = 0;
- tm.tm_isdst = -1;
- return mktime (&tm) != (time_t) -1;
-}
-
-static int
-mktime_test1 (time_t now)
-{
- struct tm *lt;
- return ! (lt = localtime (&now)) || mktime (lt) == now;
-}
-
-static int
-mktime_test (time_t now)
-{
- return (mktime_test1 (now)
- && mktime_test1 ((time_t) (time_t_max - now))
- && mktime_test1 ((time_t) (time_t_min + now)));
-}
-
-static int
-irix_6_4_bug ()
-{
- /* Based on code from Ariel Faigon. */
- struct tm tm;
- tm.tm_year = 96;
- tm.tm_mon = 3;
- tm.tm_mday = 0;
- tm.tm_hour = 0;
- tm.tm_min = 0;
- tm.tm_sec = 0;
- tm.tm_isdst = -1;
- mktime (&tm);
- return tm.tm_mon == 2 && tm.tm_mday == 31;
-}
-
-static int
-bigtime_test (int j)
-{
- struct tm tm;
- time_t now;
- tm.tm_year = tm.tm_mon = tm.tm_mday = tm.tm_hour = tm.tm_min = tm.tm_sec = j;
- now = mktime (&tm);
- if (now != (time_t) -1)
- {
- struct tm *lt = localtime (&now);
- if (! (lt
- && lt->tm_year == tm.tm_year
- && lt->tm_mon == tm.tm_mon
- && lt->tm_mday == tm.tm_mday
- && lt->tm_hour == tm.tm_hour
- && lt->tm_min == tm.tm_min
- && lt->tm_sec == tm.tm_sec
- && lt->tm_yday == tm.tm_yday
- && lt->tm_wday == tm.tm_wday
- && ((lt->tm_isdst < 0 ? -1 : 0 < lt->tm_isdst)
- == (tm.tm_isdst < 0 ? -1 : 0 < tm.tm_isdst))))
- return 0;
- }
- return 1;
-}
-
-static int
-year_2050_test ()
-{
- /* The correct answer for 2050-02-01 00:00:00 in Pacific time,
- ignoring leap seconds. */
- unsigned long int answer = 2527315200UL;
-
- struct tm tm;
- time_t t;
- tm.tm_year = 2050 - 1900;
- tm.tm_mon = 2 - 1;
- tm.tm_mday = 1;
- tm.tm_hour = tm.tm_min = tm.tm_sec = 0;
- tm.tm_isdst = -1;
-
- /* Use the portable POSIX.1 specification "TZ=PST8PDT,M4.1.0,M10.5.0"
- instead of "TZ=America/Vancouver" in order to detect the bug even
- on systems that don't support the Olson extension, or don't have the
- full zoneinfo tables installed. */
- putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
-
- t = mktime (&tm);
-
- /* Check that the result is either a failure, or close enough
- to the correct answer that we can assume the discrepancy is
- due to leap seconds. */
- return (t == (time_t) -1
- || (0 < t && answer - 120 <= t && t <= answer + 120));
-}
-
-int
-main ()
-{
- int result = 0;
- time_t t, delta;
- int i, j;
- int time_t_signed_magnitude = (time_t) ~ (time_t) 0 < (time_t) -1;
- int time_t_signed = ! ((time_t) 0 < (time_t) -1);
-
- /* This test makes some buggy mktime implementations loop.
- Give up after 60 seconds; a mktime slower than that
- isn't worth using anyway. */
- alarm (60);
-
- time_t_max = (! time_t_signed
- ? (time_t) -1
- : ((((time_t) 1 << (sizeof (time_t) * CHAR_BIT - 2)) - 1)
- * 2 + 1));
- time_t_min = (! time_t_signed
- ? (time_t) 0
- : time_t_signed_magnitude
- ? ~ (time_t) 0
- : ~ time_t_max);
-
- delta = time_t_max / 997; /* a suitable prime number */
- for (i = 0; i < N_STRINGS; i++)
- {
- if (tz_strings[i])
- putenv (tz_strings[i]);
-
- for (t = 0; t <= time_t_max - delta && (result & 1) == 0; t += delta)
- if (! mktime_test (t))
- result |= 1;
- if ((result & 2) == 0
- && ! (mktime_test ((time_t) 1)
- && mktime_test ((time_t) (60 * 60))
- && mktime_test ((time_t) (60 * 60 * 24))))
- result |= 2;
-
- for (j = 1; (result & 4) == 0; j <<= 1)
- {
- if (! bigtime_test (j))
- result |= 4;
- if (INT_MAX / 2 < j)
- break;
- }
- if ((result & 8) == 0 && ! bigtime_test (INT_MAX))
- result |= 8;
- }
- if (! irix_6_4_bug ())
- result |= 16;
- if (! spring_forward_gap ())
- result |= 32;
- if (! year_2050_test ())
- result |= 64;
- return result;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_working_mktime=yes
-else
- gl_cv_func_working_mktime=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_working_mktime" >&5
-$as_echo "$gl_cv_func_working_mktime" >&6; }
-
- if test $gl_cv_func_working_mktime = no; then
- REPLACE_MKTIME=1
- else
- REPLACE_MKTIME=0
- fi
-
- if test $REPLACE_MKTIME = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS mktime.$ac_objext"
-
- :
- fi
-
-
-
-
-
- GNULIB_MKTIME=1
-
-
-
-
-
-
-
-
-
-
-
- if test $ac_cv_func_pselect = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether signature of pselect conforms to POSIX" >&5
-$as_echo_n "checking whether signature of pselect conforms to POSIX... " >&6; }
-if ${gl_cv_sig_pselect+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/select.h>
-
-int
-main ()
-{
-int (*p) (int, fd_set *, fd_set *, fd_set *restrict,
- struct timespec const *restrict,
- sigset_t const *restrict) = pselect;
- return !p;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- gl_cv_sig_pselect=yes
-else
- gl_cv_sig_pselect=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sig_pselect" >&5
-$as_echo "$gl_cv_sig_pselect" >&6; }
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pselect detects invalid fds" >&5
-$as_echo_n "checking whether pselect detects invalid fds... " >&6; }
-if ${gl_cv_func_pselect_detects_ebadf+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test "$cross_compiling" = yes; then :
-
- case "$host_os" in
- # Guess yes on glibc systems.
- *-gnu*) gl_cv_func_pselect_detects_ebadf="guessing yes" ;;
- # If we don't know, assume the worst.
- *) gl_cv_func_pselect_detects_ebadf="guessing no" ;;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <sys/types.h>
-#include <sys/time.h>
-#if HAVE_SYS_SELECT_H
-# include <sys/select.h>
-#endif
-#include <unistd.h>
-#include <errno.h>
-
-int
-main ()
-{
-
- fd_set set;
- dup2(0, 16);
- FD_ZERO(&set);
- FD_SET(16, &set);
- close(16);
- struct timespec timeout;
- timeout.tv_sec = 0;
- timeout.tv_nsec = 5000;
- return pselect (17, &set, NULL, NULL, &timeout, NULL) != -1 || errno != EBADF;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_pselect_detects_ebadf=yes
-else
- gl_cv_func_pselect_detects_ebadf=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_pselect_detects_ebadf" >&5
-$as_echo "$gl_cv_func_pselect_detects_ebadf" >&6; }
- case $gl_cv_func_pselect_detects_ebadf in
- *yes) ;;
- *) REPLACE_PSELECT=1 ;;
- esac
- fi
-
- if test $ac_cv_func_pselect = no || test $gl_cv_sig_pselect = no; then
- REPLACE_PSELECT=1
- fi
-
- if test $HAVE_PSELECT = 0 || test $REPLACE_PSELECT = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS pselect.$ac_objext"
-
- fi
-
-
-
-
-
- GNULIB_PSELECT=1
-
-
-
-
-
-
-
-
-
- LIB_PTHREAD_SIGMASK=
-
-
-
-
- if test "$gl_threads_api" = posix; then
- if test $ac_cv_func_pthread_sigmask = yes; then
- :
- else
- if test -n "$LIBMULTITHREAD"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pthread_sigmask in $LIBMULTITHREAD" >&5
-$as_echo_n "checking for pthread_sigmask in $LIBMULTITHREAD... " >&6; }
-if ${gl_cv_func_pthread_sigmask_in_LIBMULTITHREAD+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- gl_save_LIBS="$LIBS"
- LIBS="$LIBS $LIBMULTITHREAD"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <pthread.h>
- #include <signal.h>
-
-int
-main ()
-{
-return pthread_sigmask (0, (sigset_t *) 0, (sigset_t *) 0);
- ;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- gl_cv_func_pthread_sigmask_in_LIBMULTITHREAD=yes
-else
- gl_cv_func_pthread_sigmask_in_LIBMULTITHREAD=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LIBS="$gl_save_LIBS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_pthread_sigmask_in_LIBMULTITHREAD" >&5
-$as_echo "$gl_cv_func_pthread_sigmask_in_LIBMULTITHREAD" >&6; }
- if test $gl_cv_func_pthread_sigmask_in_LIBMULTITHREAD = yes; then
- LIB_PTHREAD_SIGMASK="$LIBMULTITHREAD"
- else
- HAVE_PTHREAD_SIGMASK=0
- fi
- else
- HAVE_PTHREAD_SIGMASK=0
- fi
- fi
- else
- if test $ac_cv_func_pthread_sigmask = yes; then
- REPLACE_PTHREAD_SIGMASK=1
- else
- HAVE_PTHREAD_SIGMASK=0
- fi
- fi
-
-
-
-
- if test $HAVE_PTHREAD_SIGMASK = 1; then
-
-
- if test -z "$LIB_PTHREAD_SIGMASK"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pthread_sigmask works without -lpthread" >&5
-$as_echo_n "checking whether pthread_sigmask works without -lpthread... " >&6; }
-if ${gl_cv_func_pthread_sigmask_in_libc_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test "$cross_compiling" = yes; then :
-
- case "$host_os" in
- freebsd* | hpux* | solaris | solaris2.[2-9]*)
- gl_cv_func_pthread_sigmask_in_libc_works="guessing no";;
- *)
- gl_cv_func_pthread_sigmask_in_libc_works="guessing yes";;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <pthread.h>
-#include <signal.h>
-#include <stddef.h>
-int main ()
-{
- sigset_t set;
- sigemptyset (&set);
- return pthread_sigmask (1729, &set, NULL) != 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_pthread_sigmask_in_libc_works=no
-else
- gl_cv_func_pthread_sigmask_in_libc_works=yes
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_pthread_sigmask_in_libc_works" >&5
-$as_echo "$gl_cv_func_pthread_sigmask_in_libc_works" >&6; }
- case "$gl_cv_func_pthread_sigmask_in_libc_works" in
- *no)
- REPLACE_PTHREAD_SIGMASK=1
-
-$as_echo "#define PTHREAD_SIGMASK_INEFFECTIVE 1" >>confdefs.h
-
- ;;
- esac
- fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pthread_sigmask returns error numbers" >&5
-$as_echo_n "checking whether pthread_sigmask returns error numbers... " >&6; }
-if ${gl_cv_func_pthread_sigmask_return_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- gl_save_LIBS="$LIBS"
- LIBS="$LIBS $LIB_PTHREAD_SIGMASK"
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- cygwin*)
- gl_cv_func_pthread_sigmask_return_works="guessing no";;
- *)
- gl_cv_func_pthread_sigmask_return_works="guessing yes";;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <pthread.h>
-#include <signal.h>
-#include <stddef.h>
-int main ()
-{
- sigset_t set;
- sigemptyset (&set);
- if (pthread_sigmask (1729, &set, NULL) == -1)
- return 1;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_pthread_sigmask_return_works=yes
-else
- gl_cv_func_pthread_sigmask_return_works=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- LIBS="$gl_save_LIBS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_pthread_sigmask_return_works" >&5
-$as_echo "$gl_cv_func_pthread_sigmask_return_works" >&6; }
- case "$gl_cv_func_pthread_sigmask_return_works" in
- *no)
- REPLACE_PTHREAD_SIGMASK=1
-
-$as_echo "#define PTHREAD_SIGMASK_FAILS_WITH_ERRNO 1" >>confdefs.h
-
- ;;
- esac
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether pthread_sigmask unblocks signals correctly" >&5
-$as_echo_n "checking whether pthread_sigmask unblocks signals correctly... " >&6; }
-if ${gl_cv_func_pthread_sigmask_unblock_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- case "$host_os" in
- irix*)
- gl_cv_func_pthread_sigmask_unblock_works="guessing no";;
- *)
- gl_cv_func_pthread_sigmask_unblock_works="guessing yes";;
- esac
- gl_save_LIBS="$LIBS"
- LIBS="$LIBS $LIBMULTITHREAD"
- if test "$cross_compiling" = yes; then :
- :
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <pthread.h>
-#include <signal.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <unistd.h>
-static volatile int sigint_occurred;
-static void
-sigint_handler (int sig)
-{
- sigint_occurred++;
-}
-int main ()
-{
- sigset_t set;
- int pid = getpid ();
- char command[80];
- signal (SIGINT, sigint_handler);
- sigemptyset (&set);
- sigaddset (&set, SIGINT);
- if (!(pthread_sigmask (SIG_BLOCK, &set, NULL) == 0))
- return 1;
- sprintf (command, "sh -c 'sleep 1; kill -%d %d' &", SIGINT, pid);
- if (!(system (command) == 0))
- return 2;
- sleep (2);
- if (!(sigint_occurred == 0))
- return 3;
- if (!(pthread_sigmask (SIG_UNBLOCK, &set, NULL) == 0))
- return 4;
- if (!(sigint_occurred == 1)) /* This fails on IRIX. */
- return 5;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- :
-else
- gl_cv_func_pthread_sigmask_unblock_works=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- LIBS="$gl_save_LIBS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_pthread_sigmask_unblock_works" >&5
-$as_echo "$gl_cv_func_pthread_sigmask_unblock_works" >&6; }
- case "$gl_cv_func_pthread_sigmask_unblock_works" in
- *no)
- REPLACE_PTHREAD_SIGMASK=1
-
-$as_echo "#define PTHREAD_SIGMASK_UNBLOCK_BUG 1" >>confdefs.h
-
- ;;
- esac
- fi
-
- if test $HAVE_PTHREAD_SIGMASK = 0 || test $REPLACE_PTHREAD_SIGMASK = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS pthread_sigmask.$ac_objext"
-
-
- if test $HAVE_PTHREAD_SIGMASK = 1; then
-
-$as_echo "#define HAVE_PTHREAD_SIGMASK 1" >>confdefs.h
-
- fi
-
- fi
-
-
-
-
-
- GNULIB_PTHREAD_SIGMASK=1
-
-
-
-
-
-
-
-
- if test $ac_cv_func_readlink = no; then
- HAVE_READLINK=0
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether readlink signature is correct" >&5
-$as_echo_n "checking whether readlink signature is correct... " >&6; }
-if ${gl_cv_decl_readlink_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <unistd.h>
- /* Cause compilation failure if original declaration has wrong type. */
- ssize_t readlink (const char *, char *, size_t);
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_decl_readlink_works=yes
-else
- gl_cv_decl_readlink_works=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_decl_readlink_works" >&5
-$as_echo "$gl_cv_decl_readlink_works" >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether readlink handles trailing slash correctly" >&5
-$as_echo_n "checking whether readlink handles trailing slash correctly... " >&6; }
-if ${gl_cv_func_readlink_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # We have readlink, so assume ln -s works.
- ln -s conftest.no-such conftest.link
- ln -s conftest.link conftest.lnk2
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- # Guess yes on glibc systems.
- *-gnu*) gl_cv_func_readlink_works="guessing yes" ;;
- # If we don't know, assume the worst.
- *) gl_cv_func_readlink_works="guessing no" ;;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <unistd.h>
-
-int
-main ()
-{
-char buf[20];
- return readlink ("conftest.lnk2/", buf, sizeof buf) != -1;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_readlink_works=yes
-else
- gl_cv_func_readlink_works=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- rm -f conftest.link conftest.lnk2
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_readlink_works" >&5
-$as_echo "$gl_cv_func_readlink_works" >&6; }
- case "$gl_cv_func_readlink_works" in
- *yes)
- if test "$gl_cv_decl_readlink_works" != yes; then
- REPLACE_READLINK=1
- fi
- ;;
- *)
-
-$as_echo "#define READLINK_TRAILING_SLASH_BUG 1" >>confdefs.h
-
- REPLACE_READLINK=1
- ;;
- esac
- fi
-
- if test $HAVE_READLINK = 0 || test $REPLACE_READLINK = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS readlink.$ac_objext"
-
-
- :
-
- fi
-
-
-
-
-
- GNULIB_READLINK=1
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_signal_h='<'signal.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <signal.h>" >&5
-$as_echo_n "checking absolute name of <signal.h>... " >&6; }
-if ${gl_cv_next_signal_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <signal.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'signal.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_signal_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_signal_h" >&5
-$as_echo "$gl_cv_next_signal_h" >&6; }
- fi
- NEXT_SIGNAL_H=$gl_cv_next_signal_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'signal.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_signal_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_SIGNAL_H=$gl_next_as_first_directive
-
-
-
-
-
-# AIX declares sig_atomic_t to already include volatile, and C89 compilers
-# then choke on 'volatile sig_atomic_t'. C99 requires that it compile.
- ac_fn_c_check_type "$LINENO" "volatile sig_atomic_t" "ac_cv_type_volatile_sig_atomic_t" "
-#include <signal.h>
-
-"
-if test "x$ac_cv_type_volatile_sig_atomic_t" = xyes; then :
-
-else
- HAVE_TYPE_VOLATILE_SIG_ATOMIC_T=0
-fi
-
-
-
-
-
-
-
- ac_fn_c_check_type "$LINENO" "sighandler_t" "ac_cv_type_sighandler_t" "
-#include <signal.h>
-
-"
-if test "x$ac_cv_type_sighandler_t" = xyes; then :
-
-else
- HAVE_SIGHANDLER_T=0
-fi
-
-
-
-
- ac_fn_c_check_type "$LINENO" "socklen_t" "ac_cv_type_socklen_t" "
-/* <sys/types.h> is not needed according to POSIX, but the
- <sys/socket.h> in i386-unknown-freebsd4.10 and
- powerpc-apple-darwin5.5 required it. */
-#include <sys/types.h>
-#if HAVE_SYS_SOCKET_H
-# include <sys/socket.h>
-#elif HAVE_WS2TCPIP_H
-# include <ws2tcpip.h>
-#endif
-
-"
-if test "x$ac_cv_type_socklen_t" = xyes; then :
-
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for socklen_t equivalent" >&5
-$as_echo_n "checking for socklen_t equivalent... " >&6; }
- if ${gl_cv_socklen_t_equiv+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- # Systems have either "struct sockaddr *" or
- # "void *" as the second argument to getpeername
- gl_cv_socklen_t_equiv=
- for arg2 in "struct sockaddr" void; do
- for t in int size_t "unsigned int" "long int" "unsigned long int"; do
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
- #include <sys/socket.h>
-
- int getpeername (int, $arg2 *, $t *);
-int
-main ()
-{
-$t len;
- getpeername (0, 0, &len);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_socklen_t_equiv="$t"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- test "$gl_cv_socklen_t_equiv" != "" && break
- done
- test "$gl_cv_socklen_t_equiv" != "" && break
- done
-
-fi
-
- if test "$gl_cv_socklen_t_equiv" = ""; then
- as_fn_error $? "Cannot find a type to use in place of socklen_t" "$LINENO" 5
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_socklen_t_equiv" >&5
-$as_echo "$gl_cv_socklen_t_equiv" >&6; }
-
-cat >>confdefs.h <<_ACEOF
-#define socklen_t $gl_cv_socklen_t_equiv
-_ACEOF
-
-fi
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ssize_t" >&5
-$as_echo_n "checking for ssize_t... " >&6; }
-if ${gt_cv_ssize_t+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/types.h>
-int
-main ()
-{
-int x = sizeof (ssize_t *) + sizeof (ssize_t);
- return !x;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gt_cv_ssize_t=yes
-else
- gt_cv_ssize_t=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gt_cv_ssize_t" >&5
-$as_echo "$gt_cv_ssize_t" >&6; }
- if test $gt_cv_ssize_t = no; then
-
-$as_echo "#define ssize_t int" >>confdefs.h
-
- fi
-
-
-
-
-
- ac_fn_c_check_member "$LINENO" "struct stat" "st_atim.tv_nsec" "ac_cv_member_struct_stat_st_atim_tv_nsec" "#include <sys/types.h>
- #include <sys/stat.h>
-"
-if test "x$ac_cv_member_struct_stat_st_atim_tv_nsec" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_STAT_ST_ATIM_TV_NSEC 1
-_ACEOF
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether struct stat.st_atim is of type struct timespec" >&5
-$as_echo_n "checking whether struct stat.st_atim is of type struct timespec... " >&6; }
-if ${ac_cv_typeof_struct_stat_st_atim_is_struct_timespec+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
- #include <sys/types.h>
- #include <sys/stat.h>
- #if HAVE_SYS_TIME_H
- # include <sys/time.h>
- #endif
- #include <time.h>
- struct timespec ts;
- struct stat st;
-
-int
-main ()
-{
-
- st.st_atim = ts;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_typeof_struct_stat_st_atim_is_struct_timespec=yes
-else
- ac_cv_typeof_struct_stat_st_atim_is_struct_timespec=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_typeof_struct_stat_st_atim_is_struct_timespec" >&5
-$as_echo "$ac_cv_typeof_struct_stat_st_atim_is_struct_timespec" >&6; }
- if test $ac_cv_typeof_struct_stat_st_atim_is_struct_timespec = yes; then
-
-$as_echo "#define TYPEOF_STRUCT_STAT_ST_ATIM_IS_STRUCT_TIMESPEC 1" >>confdefs.h
-
- fi
-else
- ac_fn_c_check_member "$LINENO" "struct stat" "st_atimespec.tv_nsec" "ac_cv_member_struct_stat_st_atimespec_tv_nsec" "#include <sys/types.h>
- #include <sys/stat.h>
-"
-if test "x$ac_cv_member_struct_stat_st_atimespec_tv_nsec" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_STAT_ST_ATIMESPEC_TV_NSEC 1
-_ACEOF
-
-
-else
- ac_fn_c_check_member "$LINENO" "struct stat" "st_atimensec" "ac_cv_member_struct_stat_st_atimensec" "#include <sys/types.h>
- #include <sys/stat.h>
-"
-if test "x$ac_cv_member_struct_stat_st_atimensec" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_STAT_ST_ATIMENSEC 1
-_ACEOF
-
-
-else
- ac_fn_c_check_member "$LINENO" "struct stat" "st_atim.st__tim.tv_nsec" "ac_cv_member_struct_stat_st_atim_st__tim_tv_nsec" "#include <sys/types.h>
- #include <sys/stat.h>
-"
-if test "x$ac_cv_member_struct_stat_st_atim_st__tim_tv_nsec" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_STAT_ST_ATIM_ST__TIM_TV_NSEC 1
-_ACEOF
-
-
-fi
-
-fi
-
-fi
-
-fi
-
-
-
-
-
- ac_fn_c_check_member "$LINENO" "struct stat" "st_birthtimespec.tv_nsec" "ac_cv_member_struct_stat_st_birthtimespec_tv_nsec" "#include <sys/types.h>
- #include <sys/stat.h>
-"
-if test "x$ac_cv_member_struct_stat_st_birthtimespec_tv_nsec" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC_TV_NSEC 1
-_ACEOF
-
-
-else
- ac_fn_c_check_member "$LINENO" "struct stat" "st_birthtimensec" "ac_cv_member_struct_stat_st_birthtimensec" "#include <sys/types.h>
- #include <sys/stat.h>
-"
-if test "x$ac_cv_member_struct_stat_st_birthtimensec" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_STAT_ST_BIRTHTIMENSEC 1
-_ACEOF
-
-
-else
- ac_fn_c_check_member "$LINENO" "struct stat" "st_birthtim.tv_nsec" "ac_cv_member_struct_stat_st_birthtim_tv_nsec" "#include <sys/types.h>
- #include <sys/stat.h>
-"
-if test "x$ac_cv_member_struct_stat_st_birthtim_tv_nsec" = xyes; then :
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_STRUCT_STAT_ST_BIRTHTIM_TV_NSEC 1
-_ACEOF
-
-
-fi
-
-fi
-
-fi
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working stdalign.h" >&5
-$as_echo_n "checking for working stdalign.h... " >&6; }
-if ${gl_cv_header_working_stdalign_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdalign.h>
- #include <stddef.h>
-
- /* Test that alignof yields a result consistent with offsetof.
- This catches GCC bug 52023
- <http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52023>. */
- #ifdef __cplusplus
- template <class t> struct alignof_helper { char a; t b; };
- # define ao(type) offsetof (alignof_helper<type>, b)
- #else
- # define ao(type) offsetof (struct { char a; type b; }, b)
- #endif
- char test_double[ao (double) % _Alignof (double) == 0 ? 1 : -1];
- char test_long[ao (long int) % _Alignof (long int) == 0 ? 1 : -1];
- char test_alignof[alignof (double) == _Alignof (double) ? 1 : -1];
-
- /* Test _Alignas only on platforms where gnulib can help. */
- #if \
- (__GNUC__ || __IBMC__ || __IBMCPP__ \
- || 0x5110 <= __SUNPRO_C || 1300 <= _MSC_VER)
- int alignas (8) alignas_int = 1;
- char test_alignas[_Alignof (alignas_int) == 8 ? 1 : -1];
- #endif
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_header_working_stdalign_h=yes
-else
- gl_cv_header_working_stdalign_h=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_working_stdalign_h" >&5
-$as_echo "$gl_cv_header_working_stdalign_h" >&6; }
-
- if test $gl_cv_header_working_stdalign_h = yes; then
- STDALIGN_H=''
- else
- STDALIGN_H='stdalign.h'
- fi
-
-
- if test -n "$STDALIGN_H"; then
- GL_GENERATE_STDALIGN_H_TRUE=
- GL_GENERATE_STDALIGN_H_FALSE='#'
-else
- GL_GENERATE_STDALIGN_H_TRUE='#'
- GL_GENERATE_STDALIGN_H_FALSE=
-fi
-
-
-
- STDARG_H=''
- NEXT_STDARG_H='<stdarg.h>'
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for va_copy" >&5
-$as_echo_n "checking for va_copy... " >&6; }
- if ${gl_cv_func_va_copy+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdarg.h>
-int
-main ()
-{
-
-#ifndef va_copy
-void (*func) (va_list, va_list) = va_copy;
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_func_va_copy=yes
-else
- gl_cv_func_va_copy=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_va_copy" >&5
-$as_echo "$gl_cv_func_va_copy" >&6; }
- if test $gl_cv_func_va_copy = no; then
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#if defined _AIX && !defined __GNUC__
- AIX vaccine
- #endif
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "vaccine" >/dev/null 2>&1; then :
- gl_aixcc=yes
-else
- gl_aixcc=no
-fi
-rm -f conftest*
-
- if test $gl_aixcc = yes; then
- STDARG_H=stdarg.h
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_stdarg_h='<'stdarg.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <stdarg.h>" >&5
-$as_echo_n "checking absolute name of <stdarg.h>... " >&6; }
-if ${gl_cv_next_stdarg_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdarg.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'stdarg.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_stdarg_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stdarg_h" >&5
-$as_echo "$gl_cv_next_stdarg_h" >&6; }
- fi
- NEXT_STDARG_H=$gl_cv_next_stdarg_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'stdarg.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_stdarg_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_STDARG_H=$gl_next_as_first_directive
-
-
-
-
- if test "$gl_cv_next_stdarg_h" = '""'; then
- gl_cv_next_stdarg_h='"///usr/include/stdarg.h"'
- NEXT_STDARG_H="$gl_cv_next_stdarg_h"
- fi
- else
-
- saved_as_echo_n="$as_echo_n"
- as_echo_n=':'
- if ${gl_cv_func___va_copy+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdarg.h>
-int
-main ()
-{
-
-#ifndef __va_copy
-error, bail out
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_func___va_copy=yes
-else
- gl_cv_func___va_copy=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-
- as_echo_n="$saved_as_echo_n"
-
- if test $gl_cv_func___va_copy = yes; then
-
-$as_echo "#define va_copy __va_copy" >>confdefs.h
-
- else
-
-
-$as_echo "#define va_copy gl_va_copy" >>confdefs.h
-
- fi
- fi
- fi
-
- if test -n "$STDARG_H"; then
- GL_GENERATE_STDARG_H_TRUE=
- GL_GENERATE_STDARG_H_FALSE='#'
-else
- GL_GENERATE_STDARG_H_TRUE='#'
- GL_GENERATE_STDARG_H_FALSE=
-fi
-
-
-
-
-
-
- # Define two additional variables used in the Makefile substitution.
-
- if test "$ac_cv_header_stdbool_h" = yes; then
- STDBOOL_H=''
- else
- STDBOOL_H='stdbool.h'
- fi
-
- if test -n "$STDBOOL_H"; then
- GL_GENERATE_STDBOOL_H_TRUE=
- GL_GENERATE_STDBOOL_H_FALSE='#'
-else
- GL_GENERATE_STDBOOL_H_TRUE='#'
- GL_GENERATE_STDBOOL_H_FALSE=
-fi
-
-
- if test "$ac_cv_type__Bool" = yes; then
- HAVE__BOOL=1
- else
- HAVE__BOOL=0
- fi
-
-
-
-
-
- STDDEF_H=
- if test $gt_cv_c_wchar_t = no; then
- HAVE_WCHAR_T=0
- STDDEF_H=stddef.h
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether NULL can be used in arbitrary expressions" >&5
-$as_echo_n "checking whether NULL can be used in arbitrary expressions... " >&6; }
-if ${gl_cv_decl_null_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stddef.h>
- int test[2 * (sizeof NULL == sizeof (void *)) -1];
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_decl_null_works=yes
-else
- gl_cv_decl_null_works=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_decl_null_works" >&5
-$as_echo "$gl_cv_decl_null_works" >&6; }
- if test $gl_cv_decl_null_works = no; then
- REPLACE_NULL=1
- STDDEF_H=stddef.h
- fi
-
- if test -n "$STDDEF_H"; then
- GL_GENERATE_STDDEF_H_TRUE=
- GL_GENERATE_STDDEF_H_FALSE='#'
-else
- GL_GENERATE_STDDEF_H_TRUE='#'
- GL_GENERATE_STDDEF_H_FALSE=
-fi
-
- if test -n "$STDDEF_H"; then
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_stddef_h='<'stddef.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <stddef.h>" >&5
-$as_echo_n "checking absolute name of <stddef.h>... " >&6; }
-if ${gl_cv_next_stddef_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stddef.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'stddef.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_stddef_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stddef_h" >&5
-$as_echo "$gl_cv_next_stddef_h" >&6; }
- fi
- NEXT_STDDEF_H=$gl_cv_next_stddef_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'stddef.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_stddef_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_STDDEF_H=$gl_next_as_first_directive
-
-
-
-
- fi
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_stdio_h='<'stdio.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <stdio.h>" >&5
-$as_echo_n "checking absolute name of <stdio.h>... " >&6; }
-if ${gl_cv_next_stdio_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdio.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'stdio.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_stdio_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stdio_h" >&5
-$as_echo "$gl_cv_next_stdio_h" >&6; }
- fi
- NEXT_STDIO_H=$gl_cv_next_stdio_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'stdio.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_stdio_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_STDIO_H=$gl_next_as_first_directive
-
-
-
-
-
- GNULIB_FSCANF=1
-
-
-cat >>confdefs.h <<_ACEOF
-#define GNULIB_FSCANF 1
-_ACEOF
-
-
- GNULIB_SCANF=1
-
-
-cat >>confdefs.h <<_ACEOF
-#define GNULIB_SCANF 1
-_ACEOF
-
-
- GNULIB_FGETC=1
- GNULIB_GETC=1
- GNULIB_GETCHAR=1
- GNULIB_FGETS=1
- GNULIB_FREAD=1
-
-
- GNULIB_FPRINTF=1
- GNULIB_PRINTF=1
- GNULIB_VFPRINTF=1
- GNULIB_VPRINTF=1
- GNULIB_FPUTC=1
- GNULIB_PUTC=1
- GNULIB_PUTCHAR=1
- GNULIB_FPUTS=1
- GNULIB_PUTS=1
- GNULIB_FWRITE=1
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_stdlib_h='<'stdlib.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <stdlib.h>" >&5
-$as_echo_n "checking absolute name of <stdlib.h>... " >&6; }
-if ${gl_cv_next_stdlib_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdlib.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'stdlib.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_stdlib_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stdlib_h" >&5
-$as_echo "$gl_cv_next_stdlib_h" >&6; }
- fi
- NEXT_STDLIB_H=$gl_cv_next_stdlib_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'stdlib.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_stdlib_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_STDLIB_H=$gl_next_as_first_directive
-
-
-
-
-
-
-
-
-
- # This defines (or not) HAVE_TZNAME and HAVE_TM_ZONE.
-
-
-
-
-
-
-
-$as_echo "#define my_strftime nstrftime" >>confdefs.h
-
-
-
-
-
-
-
-
- if test "$ac_cv_have_decl_strtoimax" != yes; then
- HAVE_DECL_STRTOIMAX=0
- fi
-
- if test $ac_cv_func_strtoimax = yes; then
- HAVE_STRTOIMAX=1
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether strtoimax works" >&5
-$as_echo_n "checking whether strtoimax works... " >&6; }
-if ${gl_cv_func_strtoimax+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- # Guess no on AIX 5.
- aix5*) gl_cv_func_strtoimax="guessing no" ;;
- # Guess yes otherwise.
- *) gl_cv_func_strtoimax="guessing yes" ;;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <errno.h>
-#include <string.h>
-#include <inttypes.h>
-int main ()
-{
- if (sizeof (intmax_t) > sizeof (int))
- {
- const char *s = "4294967295";
- char *p;
- intmax_t res;
- errno = 0;
- res = strtoimax (s, &p, 10);
- if (p != s + strlen (s))
- return 1;
- if (errno != 0)
- return 2;
- if (res != (intmax_t) 65535 * (intmax_t) 65537)
- return 3;
- }
- else
- {
- const char *s = "2147483647";
- char *p;
- intmax_t res;
- errno = 0;
- res = strtoimax (s, &p, 10);
- if (p != s + strlen (s))
- return 1;
- if (errno != 0)
- return 2;
- if (res != 2147483647)
- return 3;
- }
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_strtoimax=yes
-else
- gl_cv_func_strtoimax=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_strtoimax" >&5
-$as_echo "$gl_cv_func_strtoimax" >&6; }
- case "$gl_cv_func_strtoimax" in
- *no) REPLACE_STRTOIMAX=1 ;;
- esac
- else
- HAVE_STRTOIMAX=0
- fi
-
- if test $HAVE_STRTOIMAX = 0 || test $REPLACE_STRTOIMAX = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS strtoimax.$ac_objext"
-
-
- ac_fn_c_check_decl "$LINENO" "strtoll" "ac_cv_have_decl_strtoll" "$ac_includes_default"
-if test "x$ac_cv_have_decl_strtoll" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_STRTOLL $ac_have_decl
-_ACEOF
-
-
-
- fi
-
-
-
-
-
- GNULIB_STRTOIMAX=1
-
-
-
-
-
-
-
-
-
- if test "$ac_cv_have_decl_strtoumax" != yes; then
- HAVE_DECL_STRTOUMAX=0
- fi
-
- if test $ac_cv_func_strtoumax = no; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS strtoumax.$ac_objext"
-
-
- ac_fn_c_check_decl "$LINENO" "strtoull" "ac_cv_have_decl_strtoull" "$ac_includes_default"
-if test "x$ac_cv_have_decl_strtoull" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_STRTOULL $ac_have_decl
-_ACEOF
-
-
-
- fi
-
-
-
-
-
- GNULIB_STRTOUMAX=1
-
-
-
-
-
-
-
- if test $ac_cv_func_symlink = no; then
- HAVE_SYMLINK=0
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether symlink handles trailing slash correctly" >&5
-$as_echo_n "checking whether symlink handles trailing slash correctly... " >&6; }
-if ${gl_cv_func_symlink_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- # Guess yes on glibc systems.
- *-gnu*) gl_cv_func_symlink_works="guessing yes" ;;
- # If we don't know, assume the worst.
- *) gl_cv_func_symlink_works="guessing no" ;;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <unistd.h>
-
-int
-main ()
-{
-int result = 0;
- if (!symlink ("a", "conftest.link/"))
- result |= 1;
- if (symlink ("conftest.f", "conftest.lnk2"))
- result |= 2;
- else if (!symlink ("a", "conftest.lnk2/"))
- result |= 4;
- return result;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_symlink_works=yes
-else
- gl_cv_func_symlink_works=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- rm -f conftest.f conftest.link conftest.lnk2
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_symlink_works" >&5
-$as_echo "$gl_cv_func_symlink_works" >&6; }
- case "$gl_cv_func_symlink_works" in
- *yes) ;;
- *)
- REPLACE_SYMLINK=1
- ;;
- esac
- fi
-
- if test $HAVE_SYMLINK = 0 || test $REPLACE_SYMLINK = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS symlink.$ac_objext"
-
- fi
-
-
-
-
-
- GNULIB_SYMLINK=1
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether <sys/select.h> is self-contained" >&5
-$as_echo_n "checking whether <sys/select.h> is self-contained... " >&6; }
-if ${gl_cv_header_sys_select_h_selfcontained+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/select.h>
-int
-main ()
-{
-struct timeval b;
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_header_sys_select_h_selfcontained=yes
-else
- gl_cv_header_sys_select_h_selfcontained=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- if test $gl_cv_header_sys_select_h_selfcontained = yes; then
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/select.h>
-int
-main ()
-{
-int memset; int bzero;
- ;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/select.h>
-int
-main ()
-{
-
- #undef memset
- #define memset nonexistent_memset
- extern
- #ifdef __cplusplus
- "C"
- #endif
- void *memset (void *, int, unsigned long);
- #undef bzero
- #define bzero nonexistent_bzero
- extern
- #ifdef __cplusplus
- "C"
- #endif
- void bzero (void *, unsigned long);
- fd_set fds;
- FD_ZERO (&fds);
-
- ;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
-else
- gl_cv_header_sys_select_h_selfcontained=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_sys_select_h_selfcontained" >&5
-$as_echo "$gl_cv_header_sys_select_h_selfcontained" >&6; }
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_sys_select_h='<'sys/select.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <sys/select.h>" >&5
-$as_echo_n "checking absolute name of <sys/select.h>... " >&6; }
-if ${gl_cv_next_sys_select_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test $ac_cv_header_sys_select_h = yes; then
-
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/select.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'sys/select.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_sys_select_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
- else
- gl_cv_next_sys_select_h='<'sys/select.h'>'
- fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_sys_select_h" >&5
-$as_echo "$gl_cv_next_sys_select_h" >&6; }
- fi
- NEXT_SYS_SELECT_H=$gl_cv_next_sys_select_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'sys/select.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_sys_select_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_SYS_SELECT_H=$gl_next_as_first_directive
-
-
-
-
- if test $ac_cv_header_sys_select_h = yes; then
- HAVE_SYS_SELECT_H=1
- else
- HAVE_SYS_SELECT_H=0
- fi
-
-
-
-
-
- if test $ac_cv_header_sys_socket_h != yes; then
- for ac_header in winsock2.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "winsock2.h" "ac_cv_header_winsock2_h" "$ac_includes_default"
-if test "x$ac_cv_header_winsock2_h" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_WINSOCK2_H 1
-_ACEOF
-
-fi
-
-done
-
- fi
- if test "$ac_cv_header_winsock2_h" = yes; then
- HAVE_WINSOCK2_H=1
- UNISTD_H_HAVE_WINSOCK2_H=1
- SYS_IOCTL_H_HAVE_WINSOCK2_H=1
- else
- HAVE_WINSOCK2_H=0
- fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_sys_stat_h='<'sys/stat.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <sys/stat.h>" >&5
-$as_echo_n "checking absolute name of <sys/stat.h>... " >&6; }
-if ${gl_cv_next_sys_stat_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test $ac_cv_header_sys_stat_h = yes; then
-
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/stat.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'sys/stat.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_sys_stat_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
- else
- gl_cv_next_sys_stat_h='<'sys/stat.h'>'
- fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_sys_stat_h" >&5
-$as_echo "$gl_cv_next_sys_stat_h" >&6; }
- fi
- NEXT_SYS_STAT_H=$gl_cv_next_sys_stat_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'sys/stat.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_sys_stat_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_SYS_STAT_H=$gl_next_as_first_directive
-
-
-
-
-
-
-
-
-
-
-
- if test $WINDOWS_64_BIT_ST_SIZE = 1; then
-
-$as_echo "#define _GL_WINDOWS_64_BIT_ST_SIZE 1" >>confdefs.h
-
- fi
-
- ac_fn_c_check_type "$LINENO" "nlink_t" "ac_cv_type_nlink_t" "#include <sys/types.h>
- #include <sys/stat.h>
-"
-if test "x$ac_cv_type_nlink_t" = xyes; then :
-
-else
-
-$as_echo "#define nlink_t int" >>confdefs.h
-
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ac_fn_c_check_decl "$LINENO" "localtime_r" "ac_cv_have_decl_localtime_r" "#include <time.h>
-"
-if test "x$ac_cv_have_decl_localtime_r" = xyes; then :
- ac_have_decl=1
-else
- ac_have_decl=0
-fi
-
-cat >>confdefs.h <<_ACEOF
-#define HAVE_DECL_LOCALTIME_R $ac_have_decl
-_ACEOF
-
- if test $ac_cv_have_decl_localtime_r = no; then
- HAVE_DECL_LOCALTIME_R=0
- fi
-
-
- if test $ac_cv_func_localtime_r = yes; then
- HAVE_LOCALTIME_R=1
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether localtime_r is compatible with its POSIX signature" >&5
-$as_echo_n "checking whether localtime_r is compatible with its POSIX signature... " >&6; }
-if ${gl_cv_time_r_posix+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <time.h>
-int
-main ()
-{
-/* We don't need to append 'restrict's to the argument types,
- even though the POSIX signature has the 'restrict's,
- since C99 says they can't affect type compatibility. */
- struct tm * (*ptr) (time_t const *, struct tm *) = localtime_r;
- if (ptr) return 0;
- /* Check the return type is a pointer.
- On HP-UX 10 it is 'int'. */
- *localtime_r (0, 0);
- ;
- return 0;
-}
-
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- gl_cv_time_r_posix=yes
-else
- gl_cv_time_r_posix=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_time_r_posix" >&5
-$as_echo "$gl_cv_time_r_posix" >&6; }
- if test $gl_cv_time_r_posix = yes; then
- REPLACE_LOCALTIME_R=0
- else
- REPLACE_LOCALTIME_R=1
- fi
- else
- HAVE_LOCALTIME_R=0
- fi
-
- if test $HAVE_LOCALTIME_R = 0 || test $REPLACE_LOCALTIME_R = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS time_r.$ac_objext"
-
-
- :
-
- fi
-
-
-
-
-
- GNULIB_TIME_R=1
-
-
-
-
-
-
-
-
-
-
- LIB_TIMER_TIME=
-
- gl_saved_libs=$LIBS
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing timer_settime" >&5
-$as_echo_n "checking for library containing timer_settime... " >&6; }
-if ${ac_cv_search_timer_settime+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- ac_func_search_save_LIBS=$LIBS
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* 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 timer_settime ();
-int
-main ()
-{
-return timer_settime ();
- ;
- return 0;
-}
-_ACEOF
-for ac_lib in '' rt posix4; do
- if test -z "$ac_lib"; then
- ac_res="none required"
- else
- ac_res=-l$ac_lib
- LIBS="-l$ac_lib $ac_func_search_save_LIBS"
- fi
- if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_search_timer_settime=$ac_res
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext
- if ${ac_cv_search_timer_settime+:} false; then :
- break
-fi
-done
-if ${ac_cv_search_timer_settime+:} false; then :
-
-else
- ac_cv_search_timer_settime=no
-fi
-rm conftest.$ac_ext
-LIBS=$ac_func_search_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_timer_settime" >&5
-$as_echo "$ac_cv_search_timer_settime" >&6; }
-ac_res=$ac_cv_search_timer_settime
-if test "$ac_res" != no; then :
- test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
- test "$ac_cv_search_timer_settime" = "none required" ||
- LIB_TIMER_TIME=$ac_cv_search_timer_settime
-fi
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <features.h>
-#ifdef __GNU_LIBRARY__
- #if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 2) || (__GLIBC__ > 2)) \
- && !defined __UCLIBC__
- Thread emulation available
- #endif
-#endif
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "Thread" >/dev/null 2>&1; then :
- LIB_TIMER_TIME="$LIB_TIMER_TIME $LIBMULTITHREAD"
-fi
-rm -f conftest*
-
- for ac_func in timer_settime
-do :
- ac_fn_c_check_func "$LINENO" "timer_settime" "ac_cv_func_timer_settime"
-if test "x$ac_cv_func_timer_settime" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_TIMER_SETTIME 1
-_ACEOF
-
-fi
-done
-
- LIBS=$gl_saved_libs
-
- :
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $gl_cv_have_include_next = yes; then
- gl_cv_next_unistd_h='<'unistd.h'>'
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking absolute name of <unistd.h>" >&5
-$as_echo_n "checking absolute name of <unistd.h>... " >&6; }
-if ${gl_cv_next_unistd_h+:} false; then :
- $as_echo_n "(cached) " >&6
-else
-
- if test $ac_cv_header_unistd_h = yes; then
-
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <unistd.h>
-
-_ACEOF
- case "$host_os" in
- aix*) gl_absname_cpp="$ac_cpp -C" ;;
- *) gl_absname_cpp="$ac_cpp" ;;
- esac
-
- case "$host_os" in
- mingw*)
- gl_dirsep_regex='[/\\]'
- ;;
- *)
- gl_dirsep_regex='\/'
- ;;
- esac
- gl_make_literal_regex_sed='s,[]$^\\.*/[],\\&,g'
-
- gl_header_literal_regex=`echo 'unistd.h' \
- | sed -e "$gl_make_literal_regex_sed"`
- gl_absolute_header_sed="/${gl_dirsep_regex}${gl_header_literal_regex}/"'{
- s/.*"\(.*'"${gl_dirsep_regex}${gl_header_literal_regex}"'\)".*/\1/
- s|^/[^/]|//&|
- p
- q
- }'
- gl_cv_next_unistd_h='"'`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 |
- sed -n "$gl_absolute_header_sed"`'"'
- else
- gl_cv_next_unistd_h='<'unistd.h'>'
- fi
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_unistd_h" >&5
-$as_echo "$gl_cv_next_unistd_h" >&6; }
- fi
- NEXT_UNISTD_H=$gl_cv_next_unistd_h
-
- if test $gl_cv_have_include_next = yes || test $gl_cv_have_include_next = buggy; then
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include_next'
- gl_next_as_first_directive='<'unistd.h'>'
- else
- # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include'
- gl_next_as_first_directive=$gl_cv_next_unistd_h
- fi
- NEXT_AS_FIRST_DIRECTIVE_UNISTD_H=$gl_next_as_first_directive
-
-
-
-
- if test $ac_cv_header_unistd_h = yes; then
- HAVE_UNISTD_H=1
- else
- HAVE_UNISTD_H=0
- fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- if test $ac_cv_func_futimens = no && test $ac_cv_func_futimesat = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether futimesat handles NULL file" >&5
-$as_echo_n "checking whether futimesat handles NULL file... " >&6; }
-if ${gl_cv_func_futimesat_works+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- touch conftest.file
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- # Guess yes on glibc systems.
- *-gnu*) gl_cv_func_futimesat_works="guessing yes" ;;
- # If we don't know, assume the worst.
- *) gl_cv_func_futimesat_works="guessing no" ;;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#include <stddef.h>
-#include <sys/times.h>
-#include <fcntl.h>
-
-int
-main ()
-{
- int fd = open ("conftest.file", O_RDWR);
- if (fd < 0) return 1;
- if (futimesat (fd, NULL, NULL)) return 2;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_futimesat_works=yes
-else
- gl_cv_func_futimesat_works=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- rm -f conftest.file
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_futimesat_works" >&5
-$as_echo "$gl_cv_func_futimesat_works" >&6; }
- case "$gl_cv_func_futimesat_works" in
- *yes) ;;
- *)
-
-$as_echo "#define FUTIMESAT_NULL_BUG 1" >>confdefs.h
-
- ;;
- esac
- fi
-
- gl_gnulib_enabled_dosname=false
- gl_gnulib_enabled_be453cec5eecf5731a274f2de7f2db36=false
- gl_gnulib_enabled_pathmax=false
- gl_gnulib_enabled_stat=false
- gl_gnulib_enabled_strtoll=false
- gl_gnulib_enabled_strtoull=false
- gl_gnulib_enabled_verify=false
- func_gl_gnulib_m4code_dosname ()
- {
- if ! $gl_gnulib_enabled_dosname; then
- gl_gnulib_enabled_dosname=true
- fi
- }
- func_gl_gnulib_m4code_be453cec5eecf5731a274f2de7f2db36 ()
- {
- if ! $gl_gnulib_enabled_be453cec5eecf5731a274f2de7f2db36; then
-
-
- gl_gnulib_enabled_be453cec5eecf5731a274f2de7f2db36=true
- fi
- }
- func_gl_gnulib_m4code_pathmax ()
- {
- if ! $gl_gnulib_enabled_pathmax; then
-
-
-
- gl_gnulib_enabled_pathmax=true
- fi
- }
- func_gl_gnulib_m4code_stat ()
- {
- if ! $gl_gnulib_enabled_stat; then
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stat handles trailing slashes on directories" >&5
-$as_echo_n "checking whether stat handles trailing slashes on directories... " >&6; }
-if ${gl_cv_func_stat_dir_slash+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- case $host_os in
- mingw*) gl_cv_func_stat_dir_slash="guessing no";;
- *) gl_cv_func_stat_dir_slash="guessing yes";;
- esac
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/stat.h>
-
-int
-main ()
-{
-struct stat st; return stat (".", &st) != stat ("./", &st);
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_stat_dir_slash=yes
-else
- gl_cv_func_stat_dir_slash=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_stat_dir_slash" >&5
-$as_echo "$gl_cv_func_stat_dir_slash" >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stat handles trailing slashes on files" >&5
-$as_echo_n "checking whether stat handles trailing slashes on files... " >&6; }
-if ${gl_cv_func_stat_file_slash+:} false; then :
- $as_echo_n "(cached) " >&6
-else
- touch conftest.tmp
- # Assume that if we have lstat, we can also check symlinks.
- if test $ac_cv_func_lstat = yes; then
- ln -s conftest.tmp conftest.lnk
- fi
- if test "$cross_compiling" = yes; then :
- case "$host_os" in
- # Guess yes on glibc systems.
- *-gnu*) gl_cv_func_stat_file_slash="guessing yes" ;;
- # If we don't know, assume the worst.
- *) gl_cv_func_stat_file_slash="guessing no" ;;
- esac
-
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <sys/stat.h>
-
-int
-main ()
-{
-int result = 0;
- struct stat st;
- if (!stat ("conftest.tmp/", &st))
- result |= 1;
-#if HAVE_LSTAT
- if (!stat ("conftest.lnk/", &st))
- result |= 2;
-#endif
- return result;
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
- gl_cv_func_stat_file_slash=yes
-else
- gl_cv_func_stat_file_slash=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
- rm -f conftest.tmp conftest.lnk
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_stat_file_slash" >&5
-$as_echo "$gl_cv_func_stat_file_slash" >&6; }
- case $gl_cv_func_stat_dir_slash in
- *no) REPLACE_STAT=1
-
-$as_echo "#define REPLACE_FUNC_STAT_DIR 1" >>confdefs.h
-;;
- esac
- case $gl_cv_func_stat_file_slash in
- *no) REPLACE_STAT=1
-
-$as_echo "#define REPLACE_FUNC_STAT_FILE 1" >>confdefs.h
-;;
- esac
-
- if test $REPLACE_STAT = 1; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS stat.$ac_objext"
-
-
-
- :
-
- fi
-
-
-
-
-
- GNULIB_STAT=1
-
-
-
-
-
- gl_gnulib_enabled_stat=true
- if test $REPLACE_STAT = 1; then
- func_gl_gnulib_m4code_dosname
- fi
- if test $REPLACE_STAT = 1; then
- func_gl_gnulib_m4code_pathmax
- fi
- if test $REPLACE_STAT = 1; then
- func_gl_gnulib_m4code_verify
- fi
- fi
- }
- func_gl_gnulib_m4code_strtoll ()
- {
- if ! $gl_gnulib_enabled_strtoll; then
-
-
-
- if test "$ac_cv_type_long_long_int" = yes; then
- for ac_func in strtoll
-do :
- ac_fn_c_check_func "$LINENO" "strtoll" "ac_cv_func_strtoll"
-if test "x$ac_cv_func_strtoll" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_STRTOLL 1
-_ACEOF
-
-fi
-done
-
- if test $ac_cv_func_strtoll = no; then
- HAVE_STRTOLL=0
- fi
- fi
-
- if test $HAVE_STRTOLL = 0; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS strtoll.$ac_objext"
-
-
- :
-
- fi
-
-
-
-
-
- GNULIB_STRTOLL=1
-
-
-
-
-
- gl_gnulib_enabled_strtoll=true
- fi
- }
- func_gl_gnulib_m4code_strtoull ()
- {
- if ! $gl_gnulib_enabled_strtoull; then
-
-
-
- if test "$ac_cv_type_unsigned_long_long_int" = yes; then
- for ac_func in strtoull
-do :
- ac_fn_c_check_func "$LINENO" "strtoull" "ac_cv_func_strtoull"
-if test "x$ac_cv_func_strtoull" = xyes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_STRTOULL 1
-_ACEOF
-
-fi
-done
-
- if test $ac_cv_func_strtoull = no; then
- HAVE_STRTOULL=0
- fi
- fi
-
- if test $HAVE_STRTOULL = 0; then
-
-
-
-
-
-
-
-
- gl_LIBOBJS="$gl_LIBOBJS strtoull.$ac_objext"
-
-
- :
-
- fi
-
-
-
-
-
- GNULIB_STRTOULL=1
-
-
-
-
-
- gl_gnulib_enabled_strtoull=true
- fi
- }
- func_gl_gnulib_m4code_verify ()
- {
- if ! $gl_gnulib_enabled_verify; then
- gl_gnulib_enabled_verify=true
- fi
- }
- if test $REPLACE_GETOPT = 1; then
- func_gl_gnulib_m4code_be453cec5eecf5731a274f2de7f2db36
- fi
- if test $REPLACE_LSTAT = 1; then
- func_gl_gnulib_m4code_dosname
- fi
- if test $REPLACE_LSTAT = 1; then
- func_gl_gnulib_m4code_stat
- fi
- if test $HAVE_READLINK = 0 || test $REPLACE_READLINK = 1; then
- func_gl_gnulib_m4code_stat
- fi
- if { test $HAVE_STRTOIMAX = 0 || test $REPLACE_STRTOIMAX = 1; } && test $ac_cv_type_long_long_int = yes; then
- func_gl_gnulib_m4code_strtoll
- fi
- if test $HAVE_STRTOIMAX = 0 || test $REPLACE_STRTOIMAX = 1; then
- func_gl_gnulib_m4code_verify
- fi
- if test $ac_cv_func_strtoumax = no && test $ac_cv_type_unsigned_long_long_int = yes; then
- func_gl_gnulib_m4code_strtoull
- fi
- if test $ac_cv_func_strtoumax = no; then
- func_gl_gnulib_m4code_verify
- fi
-
- if $gl_gnulib_enabled_dosname; then
- gl_GNULIB_ENABLED_dosname_TRUE=
- gl_GNULIB_ENABLED_dosname_FALSE='#'
-else
- gl_GNULIB_ENABLED_dosname_TRUE='#'
- gl_GNULIB_ENABLED_dosname_FALSE=
-fi
-
- if $gl_gnulib_enabled_be453cec5eecf5731a274f2de7f2db36; then
- gl_GNULIB_ENABLED_be453cec5eecf5731a274f2de7f2db36_TRUE=
- gl_GNULIB_ENABLED_be453cec5eecf5731a274f2de7f2db36_FALSE='#'
-else
- gl_GNULIB_ENABLED_be453cec5eecf5731a274f2de7f2db36_TRUE='#'
- gl_GNULIB_ENABLED_be453cec5eecf5731a274f2de7f2db36_FALSE=
-fi
-
- if $gl_gnulib_enabled_pathmax; then
- gl_GNULIB_ENABLED_pathmax_TRUE=
- gl_GNULIB_ENABLED_pathmax_FALSE='#'
-else
- gl_GNULIB_ENABLED_pathmax_TRUE='#'
- gl_GNULIB_ENABLED_pathmax_FALSE=
-fi
-
- if $gl_gnulib_enabled_stat; then
- gl_GNULIB_ENABLED_stat_TRUE=
- gl_GNULIB_ENABLED_stat_FALSE='#'
-else
- gl_GNULIB_ENABLED_stat_TRUE='#'
- gl_GNULIB_ENABLED_stat_FALSE=
-fi
-
- if $gl_gnulib_enabled_strtoll; then
- gl_GNULIB_ENABLED_strtoll_TRUE=
- gl_GNULIB_ENABLED_strtoll_FALSE='#'
-else
- gl_GNULIB_ENABLED_strtoll_TRUE='#'
- gl_GNULIB_ENABLED_strtoll_FALSE=
-fi
-
- if $gl_gnulib_enabled_strtoull; then
- gl_GNULIB_ENABLED_strtoull_TRUE=
- gl_GNULIB_ENABLED_strtoull_FALSE='#'
-else
- gl_GNULIB_ENABLED_strtoull_TRUE='#'
- gl_GNULIB_ENABLED_strtoull_FALSE=
-fi
-
- if $gl_gnulib_enabled_verify; then
- gl_GNULIB_ENABLED_verify_TRUE=
- gl_GNULIB_ENABLED_verify_FALSE='#'
-else
- gl_GNULIB_ENABLED_verify_TRUE='#'
- gl_GNULIB_ENABLED_verify_FALSE=
-fi
-
- # End of code from modules
-
-
-
-
-
-
-
-
-
- gltests_libdeps=
- gltests_ltlibdeps=
-
-
-
-
-
-
-
-
-
- gl_source_base='tests'
- gltests_WITNESS=IN_`echo "${PACKAGE-$PACKAGE_TARNAME}" | LC_ALL=C tr abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ | LC_ALL=C sed -e 's/[^A-Z0-9_]/_/g'`_GNULIB_TESTS
-
- gl_module_indicator_condition=$gltests_WITNESS
-
-
-
-
-
-
-
-
-
-
- LIBGNU_LIBDEPS="$gl_libdeps"
-
- LIBGNU_LTLIBDEPS="$gl_ltlibdeps"
-
-
-CFLAGS=$SAVE_CFLAGS
-LIBS=$SAVE_LIBS
-
-case "$opsys" in
- aix4-2) LD_SWITCH_SYSTEM_TEMACS="-Wl,-bnodelcsect" ;;
-
- darwin)
- ## The -headerpad option tells ld (see man page) to leave room at the
- ## end of the header for adding load commands. Needed for dumping.
- ## 0x690 is the total size of 30 segment load commands (at 56
- ## each); under Cocoa 31 commands are required.
- if test "$HAVE_NS" = "yes"; then
- libs_nsgui="-framework AppKit"
- headerpad_extra=6C8
- else
- libs_nsgui=
- headerpad_extra=690
- fi
- LD_SWITCH_SYSTEM_TEMACS="-fno-pie -prebind $libs_nsgui -Xlinker -headerpad -Xlinker $headerpad_extra"
-
- ## This is here because src/Makefile.in did some extra fiddling around
- ## with LD_SWITCH_SYSTEM. The cpp logic was:
- ## #ifndef LD_SWITCH_SYSTEM
- ## #if !defined (__GNUC__) && ((defined (BSD_SYSTEM) && !defined (COFF)))
- ## Since all the *bsds define LD_SWITCH_SYSTEM, this simplifies to:
- ## not using gcc, darwin.
- ## Because this was done in src/Makefile.in, the resulting part of
- ## LD_SWITCH_SYSTEM was not used in configure (ie, in ac_link).
- ## It therefore seems cleaner to put this in LD_SWITCH_SYSTEM_TEMACS,
- ## rather than LD_SWITCH_SYSTEM.
- test "x$LD_SWITCH_SYSTEM" = "x" && test "x$GCC" != "xyes" && \
- LD_SWITCH_SYSTEM_TEMACS="-X $LD_SWITCH_SYSTEM_TEMACS"
- ;;
-
- ## LD_SWITCH_X_SITE_RPATH is a -rpath option saying where to
- ## find X at run-time.
- ## When handled by cpp, this was in LD_SWITCH_SYSTEM. However, at the
- ## point where configure sourced the s/*.h file, LD_SWITCH_X_SITE_RPATH
- ## had not yet been defined and was expanded to null. Hence LD_SWITCH_SYSTEM
- ## had different values in configure (in ac_link) and src/Makefile.in.
- ## It seems clearer therefore to put this piece in LD_SWITCH_SYSTEM_TEMACS.
- gnu*) LD_SWITCH_SYSTEM_TEMACS="\$(LD_SWITCH_X_SITE_RPATH)" ;;
-
- *) LD_SWITCH_SYSTEM_TEMACS= ;;
-esac
-
-
-
-
-LD_FIRSTFLAG=
-ORDINARY_LINK=
-case "$opsys" in
- ## gnu: GNU needs its own crt0.
- aix4-2|cygwin|darwin|gnu|hpux*|irix6-5|sol2*|unixware) ORDINARY_LINK=yes ;;
-
- ## On post 1.3 releases of NetBSD, gcc -nostdlib also clears the
- ## library search parth, i.e. it won't search /usr/lib for libc and
- ## friends. Using -nostartfiles instead avoids this problem, and
- ## will also work on earlier NetBSD releases.
- netbsd|openbsd) LD_FIRSTFLAG="-nostartfiles" ;;
-
- ## powerpc*: NAKAJI Hiroyuki <nakaji@tutrp.tut.ac.jp> says
- ## MkLinux/LinuxPPC needs this.
- ## s390x-* only supports opsys = gnu-linux so it can be added here.
- gnu-*)
- case "$canonical" in
- powerpc*|s390x-*) LD_FIRSTFLAG="-nostdlib" ;;
- esac
- ;;
-esac
-
-
-if test "x$ORDINARY_LINK" = "xyes"; then
-
- LD_FIRSTFLAG=""
-
-$as_echo "#define ORDINARY_LINK 1" >>confdefs.h
-
-
-## The system files defining neither ORDINARY_LINK nor LD_FIRSTFLAG are:
-## freebsd, gnu-* not on powerpc*|s390x*.
-elif test "x$GCC" = "xyes" && test "x$LD_FIRSTFLAG" = "x"; then
-
- ## Versions of GCC >= 2.0 put their library, libgcc.a, in obscure
- ## places that are difficult to figure out at make time. Fortunately,
- ## these same versions allow you to pass arbitrary flags on to the
- ## linker, so there is no reason not to use it as a linker.
- ##
- ## Well, it is not quite perfect. The "-nostdlib" keeps GCC from
- ## searching for libraries in its internal directories, so we have to
- ## ask GCC explicitly where to find libgcc.a (LIB_GCC below).
- LD_FIRSTFLAG="-nostdlib"
-fi
-
-## FIXME? What setting of EDIT_LDFLAGS should this have?
-test "$NS_IMPL_GNUSTEP" = "yes" && LD_FIRSTFLAG="-rdynamic"
-
-
-
-
-## FIXME? The logic here is not precisely the same as that above.
-## There is no check here for a pre-defined LD_FIRSTFLAG.
-## Should we only be setting LIB_GCC if LD ~ -nostdlib?
-LIB_GCC=
-if test "x$GCC" = "xyes" && test "x$ORDINARY_LINK" != "xyes"; then
-
- case "$opsys" in
- freebsd|netbsd|openbsd) LIB_GCC= ;;
-
- gnu-*)
- ## armin76@gentoo.org reported that the lgcc_s flag is necessary to
- ## build on ARM EABI under GNU/Linux. (Bug#5518)
- case $host_cpu in
- arm*)
- LIB_GCC="-lgcc_s"
- ;;
- *)
- ## FIXME? s/gnu-linux.h used to define LIB_GCC as below, then
- ## immediately undefine it again and redefine it to empty.
- ## Was the C_SWITCH_X_SITE part really necessary?
-## LIB_GCC=`$CC $C_SWITCH_X_SITE -print-libgcc-file-name`
- LIB_GCC=
- ;;
- esac
- ;;
-
- ## Ask GCC where to find libgcc.a.
- *) LIB_GCC=`$CC -print-libgcc-file-name 2> /dev/null` ;;
- esac
-fi
-
-## Common for all window systems
-if test "$window_system" != "none"; then
-
-$as_echo "#define HAVE_WINDOW_SYSTEM 1" >>confdefs.h
-
-
-$as_echo "#define HAVE_MOUSE 1" >>confdefs.h
-
- WINDOW_SYSTEM_OBJ="fontset.o fringe.o image.o"
-fi
-
-
-
-
-
-#### Report on what we decided to do.
-#### Report GTK as a toolkit, even if it doesn't use Xt.
-#### It makes printing result more understandable as using GTK sets
-#### toolkit_scroll_bars to yes by default.
-if test "${HAVE_GTK}" = "yes"; then
- USE_X_TOOLKIT="$USE_GTK_TOOLKIT"
-fi
-
-echo "
-Configured for \`${canonical}'.
-
- Where should the build process find the source code? ${srcdir}
- What compiler should emacs be built with? ${CC} ${CFLAGS}
- Should Emacs use the GNU version of malloc? ${GNU_MALLOC}${GNU_MALLOC_reason}
- Should Emacs use a relocating allocator for buffers? ${REL_ALLOC}
- Should Emacs use mmap(2) for buffer allocation? $use_mmap_for_buffers
- What window system should Emacs use? ${window_system}
- What toolkit should Emacs use? ${USE_X_TOOLKIT}"
-
-if test -n "${x_includes}"; then
-echo " Where do we find X Windows header files? ${x_includes}"
-else
-echo " Where do we find X Windows header files? Standard dirs"
-fi
-if test -n "${x_libraries}"; then
-echo " Where do we find X Windows libraries? ${x_libraries}"
-else
-echo " Where do we find X Windows libraries? Standard dirs"
-fi
-
-echo " Does Emacs use -lXaw3d? ${HAVE_XAW3D}"
-echo " Does Emacs use -lXpm? ${HAVE_XPM}"
-echo " Does Emacs use -ljpeg? ${HAVE_JPEG}"
-echo " Does Emacs use -ltiff? ${HAVE_TIFF}"
-echo " Does Emacs use a gif library? ${HAVE_GIF} $LIBGIF"
-echo " Does Emacs use -lpng? ${HAVE_PNG}"
-echo " Does Emacs use -lrsvg-2? ${HAVE_RSVG}"
-echo " Does Emacs use imagemagick? ${HAVE_IMAGEMAGICK}"
-
-echo " Does Emacs use -lgpm? ${HAVE_GPM}"
-echo " Does Emacs use -ldbus? ${HAVE_DBUS}"
-echo " Does Emacs use -lgconf? ${HAVE_GCONF}"
-echo " Does Emacs use GSettings? ${HAVE_GSETTINGS}"
-echo " Does Emacs use -lselinux? ${HAVE_LIBSELINUX}"
-echo " Does Emacs use -lgnutls? ${HAVE_GNUTLS}"
-echo " Does Emacs use -lxml2? ${HAVE_LIBXML2}"
-
-echo " Does Emacs use -lfreetype? ${HAVE_FREETYPE}"
-echo " Does Emacs use -lm17n-flt? ${HAVE_M17N_FLT}"
-echo " Does Emacs use -lotf? ${HAVE_LIBOTF}"
-echo " Does Emacs use -lxft? ${HAVE_XFT}"
-
-echo " Does Emacs use toolkit scroll bars? ${USE_TOOLKIT_SCROLL_BARS}"
-echo
-
-if test -n "${EMACSDATA}"; then
- echo " Environment variable EMACSDATA set to: $EMACSDATA"
-fi
-if test -n "${EMACSDOC}"; then
- echo " Environment variable EMACSDOC set to: $EMACSDOC"
-fi
-
-echo
-
-if test "$HAVE_NS" = "yes"; then
- echo
- echo "You must run \"${MAKE-make} install\" in order to test the built application.
-The installed application will go to nextstep/Emacs.app and can be
-run or moved from there."
- if test "$EN_NS_SELF_CONTAINED" = "yes"; then
- echo "The application will be fully self-contained."
- else
- echo "The lisp resources for the application will be installed under ${prefix}.
-You may need to run \"${MAKE-make} install\" with sudo. The application will fail
-to run if these resources are not installed."
- fi
- echo
-fi
-
-if test "${opsys}" = "cygwin"; then
- case `uname -r` in
- 1.5.*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: building Emacs on Cygwin 1.5 is not supported." >&5
-$as_echo "$as_me: WARNING: building Emacs on Cygwin 1.5 is not supported." >&2;}
- echo
- ;;
- esac
-fi
-
-# Remove any trailing slashes in these variables.
-test "${prefix}" != NONE &&
- prefix=`echo "${prefix}" | sed 's,\([^/]\)/*$,\1,'`
-test "${exec_prefix}" != NONE &&
- exec_prefix=`echo "${exec_prefix}" | sed 's,\([^/]\)/*$,\1,'`
-
-if test "$HAVE_NS" = "yes"; then
- if test "$NS_IMPL_GNUSTEP" = yes; then
- ac_config_files="$ac_config_files nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist:nextstep/templates/Info-gnustep.plist.in nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop:nextstep/templates/Emacs.desktop.in"
-
- else
- ac_config_files="$ac_config_files nextstep/Cocoa/Emacs.base/Contents/Info.plist:nextstep/templates/Info.plist.in nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings:nextstep/templates/InfoPlist.strings.in"
-
- fi
-fi
-
-SUBDIR_MAKEFILES="lib/Makefile lib-src/Makefile oldXMenu/Makefile doc/emacs/Makefile doc/misc/Makefile doc/lispintro/Makefile doc/lispref/Makefile src/Makefile lwlib/Makefile lisp/Makefile leim/Makefile nextstep/Makefile"
-
-ac_config_files="$ac_config_files Makefile lib/Makefile lib-src/Makefile oldXMenu/Makefile doc/emacs/Makefile doc/misc/Makefile doc/lispintro/Makefile doc/lispref/Makefile src/Makefile lwlib/Makefile lisp/Makefile leim/Makefile nextstep/Makefile"
-
-
-opt_makefile=test/automated/Makefile
-
-if test -f $srcdir/${opt_makefile}.in; then
- SUBDIR_MAKEFILES="$SUBDIR_MAKEFILES $opt_makefile"
- ac_config_files="$ac_config_files test/automated/Makefile"
-
-fi
-
-
-opt_makefile=admin/unidata/Makefile
-
-if test -f $srcdir/${opt_makefile}.in; then
- SUBDIR_MAKEFILES="$SUBDIR_MAKEFILES $opt_makefile"
- ac_config_files="$ac_config_files admin/unidata/Makefile"
-
-fi
-
-
-SUBDIR_MAKEFILES_IN=`echo " ${SUBDIR_MAKEFILES}" | sed -e 's| | $(srcdir)/|g' -e 's|Makefile|Makefile.in|g'`
-
-
-
-ac_config_commands="$ac_config_commands mkdirs"
-
-
-ac_config_commands="$ac_config_commands epaths"
-
-
-ac_config_commands="$ac_config_commands gdbinit"
-
-
-cat >confcache <<\_ACEOF
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs, see configure's option --config-cache.
-# It is not useful on other systems. If it contains results you don't
-# want to keep, you may remove or edit it.
-#
-# config.status only pays attention to the cache file if you give it
-# the --recheck option to rerun configure.
-#
-# `ac_cv_env_foo' variables (set or unset) will be overridden when
-# loading this file, other *unset* `ac_cv_foo' will be assigned the
-# following values.
-
-_ACEOF
-
-# The following way of writing the cache mishandles newlines in values,
-# but we know of no workaround that is simple, portable, and efficient.
-# So, we kill variables containing newlines.
-# Ultrix sh set writes to stderr and can't be redirected directly,
-# and sets the high bit in the cache file unless we assign to the vars.
-(
- for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
-
- (set) 2>&1 |
- case $as_nl`(ac_space=' '; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- # `set' does not quote correctly, so add quotes: double-quote
- # substitution turns \\\\ into \\, and sed turns \\ into \.
- sed -n \
- "s/'/'\\\\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
- ;; #(
- *)
- # `set' quotes correctly as required by POSIX, so do not add quotes.
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-) |
- sed '
- /^ac_cv_env_/b end
- t clear
- :clear
- s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
- t end
- s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
- :end' >>confcache
-if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
- if test -w "$cache_file"; then
- if test "x$cache_file" != "x/dev/null"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
-$as_echo "$as_me: updating cache $cache_file" >&6;}
- if test ! -f "$cache_file" || test -h "$cache_file"; then
- cat confcache >"$cache_file"
- else
- case $cache_file in #(
- */* | ?:*)
- mv -f confcache "$cache_file"$$ &&
- mv -f "$cache_file"$$ "$cache_file" ;; #(
- *)
- mv -f confcache "$cache_file" ;;
- esac
- fi
- fi
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
-$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
- fi
-fi
-rm -f confcache
-
-test "x$prefix" = xNONE && prefix=$ac_default_prefix
-# Let make expand exec_prefix.
-test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
-
-DEFS=-DHAVE_CONFIG_H
-
-ac_libobjs=
-ac_ltlibobjs=
-U=
-for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue
- # 1. Remove the extension, and $U if already installed.
- ac_script='s/\$U\././;s/\.o$//;s/\.obj$//'
- ac_i=`$as_echo "$ac_i" | sed "$ac_script"`
- # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR
- # will be set to the directory where LIBOBJS objects are built.
- as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext"
- as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo'
-done
-LIBOBJS=$ac_libobjs
-
-LTLIBOBJS=$ac_ltlibobjs
-
-
- if test -n "$EXEEXT"; then
- am__EXEEXT_TRUE=
- am__EXEEXT_FALSE='#'
-else
- am__EXEEXT_TRUE='#'
- am__EXEEXT_FALSE=
-fi
-
-if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then
- as_fn_error $? "conditional \"AMDEP\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then
- as_fn_error $? "conditional \"am__fastdepCC\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${GL_COND_LIBTOOL_TRUE}" && test -z "${GL_COND_LIBTOOL_FALSE}"; then
- as_fn_error $? "conditional \"GL_COND_LIBTOOL\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${GL_GENERATE_ALLOCA_H_TRUE}" && test -z "${GL_GENERATE_ALLOCA_H_FALSE}"; then
- as_fn_error $? "conditional \"GL_GENERATE_ALLOCA_H\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-
-if test -z "${GL_GENERATE_EXECINFO_H_TRUE}" && test -z "${GL_GENERATE_EXECINFO_H_FALSE}"; then
- as_fn_error $? "conditional \"GL_GENERATE_EXECINFO_H\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${GL_GENERATE_STDINT_H_TRUE}" && test -z "${GL_GENERATE_STDINT_H_FALSE}"; then
- as_fn_error $? "conditional \"GL_GENERATE_STDINT_H\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${GL_GENERATE_STDALIGN_H_TRUE}" && test -z "${GL_GENERATE_STDALIGN_H_FALSE}"; then
- as_fn_error $? "conditional \"GL_GENERATE_STDALIGN_H\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${GL_GENERATE_STDARG_H_TRUE}" && test -z "${GL_GENERATE_STDARG_H_FALSE}"; then
- as_fn_error $? "conditional \"GL_GENERATE_STDARG_H\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${GL_GENERATE_STDBOOL_H_TRUE}" && test -z "${GL_GENERATE_STDBOOL_H_FALSE}"; then
- as_fn_error $? "conditional \"GL_GENERATE_STDBOOL_H\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${GL_GENERATE_STDDEF_H_TRUE}" && test -z "${GL_GENERATE_STDDEF_H_FALSE}"; then
- as_fn_error $? "conditional \"GL_GENERATE_STDDEF_H\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${gl_GNULIB_ENABLED_dosname_TRUE}" && test -z "${gl_GNULIB_ENABLED_dosname_FALSE}"; then
- as_fn_error $? "conditional \"gl_GNULIB_ENABLED_dosname\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${gl_GNULIB_ENABLED_be453cec5eecf5731a274f2de7f2db36_TRUE}" && test -z "${gl_GNULIB_ENABLED_be453cec5eecf5731a274f2de7f2db36_FALSE}"; then
- as_fn_error $? "conditional \"gl_GNULIB_ENABLED_be453cec5eecf5731a274f2de7f2db36\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${gl_GNULIB_ENABLED_pathmax_TRUE}" && test -z "${gl_GNULIB_ENABLED_pathmax_FALSE}"; then
- as_fn_error $? "conditional \"gl_GNULIB_ENABLED_pathmax\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${gl_GNULIB_ENABLED_stat_TRUE}" && test -z "${gl_GNULIB_ENABLED_stat_FALSE}"; then
- as_fn_error $? "conditional \"gl_GNULIB_ENABLED_stat\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${gl_GNULIB_ENABLED_strtoll_TRUE}" && test -z "${gl_GNULIB_ENABLED_strtoll_FALSE}"; then
- as_fn_error $? "conditional \"gl_GNULIB_ENABLED_strtoll\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${gl_GNULIB_ENABLED_strtoull_TRUE}" && test -z "${gl_GNULIB_ENABLED_strtoull_FALSE}"; then
- as_fn_error $? "conditional \"gl_GNULIB_ENABLED_strtoull\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${gl_GNULIB_ENABLED_verify_TRUE}" && test -z "${gl_GNULIB_ENABLED_verify_FALSE}"; then
- as_fn_error $? "conditional \"gl_GNULIB_ENABLED_verify\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-
- gl_libobjs=
- gl_ltlibobjs=
- if test -n "$gl_LIBOBJS"; then
- # Remove the extension.
- sed_drop_objext='s/\.o$//;s/\.obj$//'
- for i in `for i in $gl_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do
- gl_libobjs="$gl_libobjs $i.$ac_objext"
- gl_ltlibobjs="$gl_ltlibobjs $i.lo"
- done
- fi
- gl_LIBOBJS=$gl_libobjs
-
- gl_LTLIBOBJS=$gl_ltlibobjs
-
-
-
- gltests_libobjs=
- gltests_ltlibobjs=
- if test -n "$gltests_LIBOBJS"; then
- # Remove the extension.
- sed_drop_objext='s/\.o$//;s/\.obj$//'
- for i in `for i in $gltests_LIBOBJS; do echo "$i"; done | sed -e "$sed_drop_objext" | sort | uniq`; do
- gltests_libobjs="$gltests_libobjs $i.$ac_objext"
- gltests_ltlibobjs="$gltests_ltlibobjs $i.lo"
- done
- fi
- gltests_LIBOBJS=$gltests_libobjs
-
- gltests_LTLIBOBJS=$gltests_ltlibobjs
-
-
-
-: "${CONFIG_STATUS=./config.status}"
-ac_write_fail=0
-ac_clean_files_save=$ac_clean_files
-ac_clean_files="$ac_clean_files $CONFIG_STATUS"
-{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5
-$as_echo "$as_me: creating $CONFIG_STATUS" >&6;}
-as_write_fail=0
-cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1
-#! $SHELL
-# Generated by $as_me.
-# Run this file to recreate the current configuration.
-# Compiler output produced by configure, useful for debugging
-# configure, is in config.log if it exists.
-
-debug=false
-ac_cs_recheck=false
-ac_cs_silent=false
-
-SHELL=\${CONFIG_SHELL-$SHELL}
-export SHELL
-_ASEOF
-cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '${1+"$@"}'='"$@"'
- setopt NO_GLOB_SUBST
-else
- case `(set -o) 2>/dev/null` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-
-
-as_nl='
-'
-export as_nl
-# Printing a long string crashes Solaris 7 /usr/bin/printf.
-as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-# Prefer a ksh shell builtin over an external printf program on Solaris,
-# but without wasting forks for bash or zsh.
-if test -z "$BASH_VERSION$ZSH_VERSION" \
- && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='print -r --'
- as_echo_n='print -rn --'
-elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='printf %s\n'
- as_echo_n='printf %s'
-else
- if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
- as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
- as_echo_n='/usr/ucb/echo -n'
- else
- as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
- as_echo_n_body='eval
- arg=$1;
- case $arg in #(
- *"$as_nl"*)
- expr "X$arg" : "X\\(.*\\)$as_nl";
- arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
- esac;
- expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
- '
- export as_echo_n_body
- as_echo_n='sh -c $as_echo_n_body as_echo'
- fi
- export as_echo_body
- as_echo='sh -c $as_echo_body as_echo'
-fi
-
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
- (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
- PATH_SEPARATOR=';'
- }
-fi
-
-
-# IFS
-# We need space, tab and new line, in precisely that order. Quoting is
-# there to prevent editors from complaining about space-tab.
-# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-# splitting by setting IFS to empty value.)
-IFS=" "" $as_nl"
-
-# Find who we are. Look in the path if we contain no directory separator.
-as_myself=
-case $0 in #((
- *[\\/]* ) as_myself=$0 ;;
- *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
- as_myself=$0
-fi
-if test ! -f "$as_myself"; then
- $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
- exit 1
-fi
-
-# Unset variables that we do not need and which cause bugs (e.g. in
-# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
-# suppresses any "Segmentation fault" message there. '((' could
-# trigger a bug in pdksh 5.2.14.
-for as_var in BASH_ENV ENV MAIL MAILPATH
-do eval test x\${$as_var+set} = xset \
- && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# NLS nuisances.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# CDPATH.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-
-# as_fn_error STATUS ERROR [LINENO LOG_FD]
-# ----------------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with STATUS, using 1 if that was 0.
-as_fn_error ()
-{
- as_status=$1; test $as_status -eq 0 && as_status=1
- if test "$4"; then
- as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
- fi
- $as_echo "$as_me: error: $2" >&2
- as_fn_exit $as_status
-} # as_fn_error
-
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
- return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
- set +e
- as_fn_set_status $1
- exit $1
-} # as_fn_exit
-
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
- { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
- eval 'as_fn_append ()
- {
- eval $1+=\$2
- }'
-else
- as_fn_append ()
- {
- eval $1=\$$1\$2
- }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
- eval 'as_fn_arith ()
- {
- as_val=$(( $* ))
- }'
-else
- as_fn_arith ()
- {
- as_val=`expr "$@" || test $? -eq 1`
- }
-fi # as_fn_arith
-
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
- test "X`expr 00001 : '.*\(...\)'`" = X001; then
- as_expr=expr
-else
- as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
- as_basename=basename
-else
- as_basename=false
-fi
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
- as_dirname=dirname
-else
- as_dirname=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
- X"$0" : 'X\(//\)$' \| \
- X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$0" |
- sed '/^.*\/\([^/][^/]*\)\/*$/{
- s//\1/
- q
- }
- /^X\/\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\/\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
- case `echo 'xy\c'` in
- *c*) ECHO_T=' ';; # ECHO_T is single tab character.
- xy) ECHO_C='\c';;
- *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
- ECHO_T=' ';;
- esac;;
-*)
- ECHO_N='-n';;
-esac
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
- rm -f conf$$.dir/conf$$.file
-else
- rm -f conf$$.dir
- mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
- if ln -s conf$$.file conf$$ 2>/dev/null; then
- as_ln_s='ln -s'
- # ... but there are two gotchas:
- # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
- # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -pR'.
- ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -pR'
- elif ln conf$$.file conf$$ 2>/dev/null; then
- as_ln_s=ln
- else
- as_ln_s='cp -pR'
- fi
-else
- as_ln_s='cp -pR'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
- case $as_dir in #(
- -*) as_dir=./$as_dir;;
- esac
- test -d "$as_dir" || eval $as_mkdir_p || {
- as_dirs=
- while :; do
- case $as_dir in #(
- *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
- *) as_qdir=$as_dir;;
- esac
- as_dirs="'$as_qdir' $as_dirs"
- as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_dir" : 'X\(//\)[^/]' \| \
- X"$as_dir" : 'X\(//\)$' \| \
- X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_dir" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- test -d "$as_dir" && break
- done
- test -z "$as_dirs" || eval "mkdir $as_dirs"
- } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-if mkdir -p . 2>/dev/null; then
- as_mkdir_p='mkdir -p "$as_dir"'
-else
- test -d ./-p && rmdir ./-p
- as_mkdir_p=false
-fi
-
-
-# as_fn_executable_p FILE
-# -----------------------
-# Test if FILE is an executable regular file.
-as_fn_executable_p ()
-{
- test -f "$1" && test -x "$1"
-} # as_fn_executable_p
-as_test_x='test -x'
-as_executable_p=as_fn_executable_p
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-
-exec 6>&1
-## ----------------------------------- ##
-## Main body of $CONFIG_STATUS script. ##
-## ----------------------------------- ##
-_ASEOF
-test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# Save the log message, to keep $0 and so on meaningful, and to
-# report actual input values of CONFIG_FILES etc. instead of their
-# values after options handling.
-ac_log="
-This file was extended by emacs $as_me 24.3, which was
-generated by GNU Autoconf 2.69. Invocation command line was
-
- CONFIG_FILES = $CONFIG_FILES
- CONFIG_HEADERS = $CONFIG_HEADERS
- CONFIG_LINKS = $CONFIG_LINKS
- CONFIG_COMMANDS = $CONFIG_COMMANDS
- $ $0 $@
-
-on `(hostname || uname -n) 2>/dev/null | sed 1q`
-"
-
-_ACEOF
-
-case $ac_config_files in *"
-"*) set x $ac_config_files; shift; ac_config_files=$*;;
-esac
-
-case $ac_config_headers in *"
-"*) set x $ac_config_headers; shift; ac_config_headers=$*;;
-esac
-
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-# Files that config.status was made for.
-config_files="$ac_config_files"
-config_headers="$ac_config_headers"
-config_commands="$ac_config_commands"
-
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-ac_cs_usage="\
-\`$as_me' instantiates files and other configuration actions
-from templates according to the current configuration. Unless the files
-and actions are specified as TAGs, all are instantiated by default.
-
-Usage: $0 [OPTION]... [TAG]...
-
- -h, --help print this help, then exit
- -V, --version print version number and configuration settings, then exit
- --config print configuration, then exit
- -q, --quiet, --silent
- do not print progress messages
- -d, --debug don't remove temporary files
- --recheck update $as_me by reconfiguring in the same conditions
- --file=FILE[:TEMPLATE]
- instantiate the configuration file FILE
- --header=FILE[:TEMPLATE]
- instantiate the configuration header FILE
-
-Configuration files:
-$config_files
-
-Configuration headers:
-$config_headers
-
-Configuration commands:
-$config_commands
-
-Report bugs to the package provider."
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
-ac_cs_version="\\
-emacs config.status 24.3
-configured by $0, generated by GNU Autoconf 2.69,
- with options \\"\$ac_cs_config\\"
-
-Copyright (C) 2012 Free Software Foundation, Inc.
-This config.status script is free software; the Free Software Foundation
-gives unlimited permission to copy, distribute and modify it."
-
-ac_pwd='$ac_pwd'
-srcdir='$srcdir'
-INSTALL='$INSTALL'
-MKDIR_P='$MKDIR_P'
-AWK='$AWK'
-test -n "\$AWK" || AWK=awk
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# The default lists apply if the user does not specify any file.
-ac_need_defaults=:
-while test $# != 0
-do
- case $1 in
- --*=?*)
- ac_option=`expr "X$1" : 'X\([^=]*\)='`
- ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
- ac_shift=:
- ;;
- --*=)
- ac_option=`expr "X$1" : 'X\([^=]*\)='`
- ac_optarg=
- ac_shift=:
- ;;
- *)
- ac_option=$1
- ac_optarg=$2
- ac_shift=shift
- ;;
- esac
-
- case $ac_option in
- # Handling of the options.
- -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
- ac_cs_recheck=: ;;
- --version | --versio | --versi | --vers | --ver | --ve | --v | -V )
- $as_echo "$ac_cs_version"; exit ;;
- --config | --confi | --conf | --con | --co | --c )
- $as_echo "$ac_cs_config"; exit ;;
- --debug | --debu | --deb | --de | --d | -d )
- debug=: ;;
- --file | --fil | --fi | --f )
- $ac_shift
- case $ac_optarg in
- *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
- '') as_fn_error $? "missing file argument" ;;
- esac
- as_fn_append CONFIG_FILES " '$ac_optarg'"
- ac_need_defaults=false;;
- --header | --heade | --head | --hea )
- $ac_shift
- case $ac_optarg in
- *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
- esac
- as_fn_append CONFIG_HEADERS " '$ac_optarg'"
- ac_need_defaults=false;;
- --he | --h)
- # Conflict between --help and --header
- as_fn_error $? "ambiguous option: \`$1'
-Try \`$0 --help' for more information.";;
- --help | --hel | -h )
- $as_echo "$ac_cs_usage"; exit ;;
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil | --si | --s)
- ac_cs_silent=: ;;
-
- # This is an error.
- -*) as_fn_error $? "unrecognized option: \`$1'
-Try \`$0 --help' for more information." ;;
-
- *) as_fn_append ac_config_targets " $1"
- ac_need_defaults=false ;;
-
- esac
- shift
-done
-
-ac_configure_extra_args=
-
-if $ac_cs_silent; then
- exec 6>/dev/null
- ac_configure_extra_args="$ac_configure_extra_args --silent"
-fi
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-if \$ac_cs_recheck; then
- set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion
- shift
- \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6
- CONFIG_SHELL='$SHELL'
- export CONFIG_SHELL
- exec "\$@"
-fi
-
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-exec 5>>config.log
-{
- echo
- sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
-## Running $as_me. ##
-_ASBOX
- $as_echo "$ac_log"
-} >&5
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-#
-# INIT-COMMANDS
-#
-AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"
-GCC="$GCC" CPPFLAGS="$CPPFLAGS"
-
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-
-# Handling of arguments.
-for ac_config_target in $ac_config_targets
-do
- case $ac_config_target in
- "src/config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/config.h:src/config.in" ;;
- "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;;
- "nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist") CONFIG_FILES="$CONFIG_FILES nextstep/GNUstep/Emacs.base/Resources/Info-gnustep.plist:nextstep/templates/Info-gnustep.plist.in" ;;
- "nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop") CONFIG_FILES="$CONFIG_FILES nextstep/GNUstep/Emacs.base/Resources/Emacs.desktop:nextstep/templates/Emacs.desktop.in" ;;
- "nextstep/Cocoa/Emacs.base/Contents/Info.plist") CONFIG_FILES="$CONFIG_FILES nextstep/Cocoa/Emacs.base/Contents/Info.plist:nextstep/templates/Info.plist.in" ;;
- "nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings") CONFIG_FILES="$CONFIG_FILES nextstep/Cocoa/Emacs.base/Contents/Resources/English.lproj/InfoPlist.strings:nextstep/templates/InfoPlist.strings.in" ;;
- "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;;
- "lib/Makefile") CONFIG_FILES="$CONFIG_FILES lib/Makefile" ;;
- "lib-src/Makefile") CONFIG_FILES="$CONFIG_FILES lib-src/Makefile" ;;
- "oldXMenu/Makefile") CONFIG_FILES="$CONFIG_FILES oldXMenu/Makefile" ;;
- "doc/emacs/Makefile") CONFIG_FILES="$CONFIG_FILES doc/emacs/Makefile" ;;
- "doc/misc/Makefile") CONFIG_FILES="$CONFIG_FILES doc/misc/Makefile" ;;
- "doc/lispintro/Makefile") CONFIG_FILES="$CONFIG_FILES doc/lispintro/Makefile" ;;
- "doc/lispref/Makefile") CONFIG_FILES="$CONFIG_FILES doc/lispref/Makefile" ;;
- "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;;
- "lwlib/Makefile") CONFIG_FILES="$CONFIG_FILES lwlib/Makefile" ;;
- "lisp/Makefile") CONFIG_FILES="$CONFIG_FILES lisp/Makefile" ;;
- "leim/Makefile") CONFIG_FILES="$CONFIG_FILES leim/Makefile" ;;
- "nextstep/Makefile") CONFIG_FILES="$CONFIG_FILES nextstep/Makefile" ;;
- "test/automated/Makefile") CONFIG_FILES="$CONFIG_FILES test/automated/Makefile" ;;
- "admin/unidata/Makefile") CONFIG_FILES="$CONFIG_FILES admin/unidata/Makefile" ;;
- "mkdirs") CONFIG_COMMANDS="$CONFIG_COMMANDS mkdirs" ;;
- "epaths") CONFIG_COMMANDS="$CONFIG_COMMANDS epaths" ;;
- "gdbinit") CONFIG_COMMANDS="$CONFIG_COMMANDS gdbinit" ;;
-
- *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
- esac
-done
-
-
-# If the user did not use the arguments to specify the items to instantiate,
-# then the envvar interface is used. Set only those that are not.
-# We use the long form for the default assignment because of an extremely
-# bizarre bug on SunOS 4.1.3.
-if $ac_need_defaults; then
- test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files
- test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers
- test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands
-fi
-
-# Have a temporary directory for convenience. Make it in the build tree
-# simply because there is no reason against having it here, and in addition,
-# creating and moving files from /tmp can sometimes cause problems.
-# Hook for its removal unless debugging.
-# Note that there is a small window in which the directory will not be cleaned:
-# after its creation but before its name has been assigned to `$tmp'.
-$debug ||
-{
- tmp= ac_tmp=
- trap 'exit_status=$?
- : "${ac_tmp:=$tmp}"
- { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status
-' 0
- trap 'as_fn_exit 1' 1 2 13 15
-}
-# Create a (secure) tmp directory for tmp files.
-
-{
- tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
- test -d "$tmp"
-} ||
-{
- tmp=./conf$$-$RANDOM
- (umask 077 && mkdir "$tmp")
-} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
-ac_tmp=$tmp
-
-# Set up the scripts for CONFIG_FILES section.
-# No need to generate them if there are no CONFIG_FILES.
-# This happens for instance with `./config.status config.h'.
-if test -n "$CONFIG_FILES"; then
-
-if $AWK 'BEGIN { getline <"/dev/null" }' </dev/null 2>/dev/null; then
- ac_cs_awk_getline=:
- ac_cs_awk_pipe_init=
- ac_cs_awk_read_file='
- while ((getline aline < (F[key])) > 0)
- print(aline)
- close(F[key])'
- ac_cs_awk_pipe_fini=
-else
- ac_cs_awk_getline=false
- ac_cs_awk_pipe_init="print \"cat <<'|#_!!_#|' &&\""
- ac_cs_awk_read_file='
- print "|#_!!_#|"
- print "cat " F[key] " &&"
- '$ac_cs_awk_pipe_init
- # The final `:' finishes the AND list.
- ac_cs_awk_pipe_fini='END { print "|#_!!_#|"; print ":" }'
-fi
-ac_cr=`echo X | tr X '\015'`
-# On cygwin, bash can eat \r inside `` if the user requested igncr.
-# But we know of no other shell where ac_cr would be empty at this
-# point, so we can use a bashism as a fallback.
-if test "x$ac_cr" = x; then
- eval ac_cr=\$\'\\r\'
-fi
-ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
-if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
- ac_cs_awk_cr='\\r'
-else
- ac_cs_awk_cr=$ac_cr
-fi
-
-echo 'BEGIN {' >"$ac_tmp/subs1.awk" &&
-_ACEOF
-
-# Create commands to substitute file output variables.
-{
- echo "cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1" &&
- echo 'cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK &&' &&
- echo "$ac_subst_files" | sed 's/.*/F["&"]="$&"/' &&
- echo "_ACAWK" &&
- echo "_ACEOF"
-} >conf$$files.sh &&
-. ./conf$$files.sh ||
- as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-rm -f conf$$files.sh
-
-{
- echo "cat >conf$$subs.awk <<_ACEOF" &&
- echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' &&
- echo "_ACEOF"
-} >conf$$subs.sh ||
- as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'`
-ac_delim='%!_!# '
-for ac_last_try in false false false false false :; do
- . ./conf$$subs.sh ||
- as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-
- ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
- if test $ac_delim_n = $ac_delim_num; then
- break
- elif $ac_last_try; then
- as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
- else
- ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
- fi
-done
-rm -f conf$$subs.sh
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK &&
-_ACEOF
-sed -n '
-h
-s/^/S["/; s/!.*/"]=/
-p
-g
-s/^[^!]*!//
-:repl
-t repl
-s/'"$ac_delim"'$//
-t delim
-:nl
-h
-s/\(.\{148\}\)..*/\1/
-t more1
-s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/
-p
-n
-b repl
-:more1
-s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-p
-g
-s/.\{148\}//
-t nl
-:delim
-h
-s/\(.\{148\}\)..*/\1/
-t more2
-s/["\\]/\\&/g; s/^/"/; s/$/"/
-p
-b
-:more2
-s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-p
-g
-s/.\{148\}//
-t delim
-' <conf$$subs.awk | sed '
-/^[^""]/{
- N
- s/\n//
-}
-' >>$CONFIG_STATUS || ac_write_fail=1
-rm -f conf$$subs.awk
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-_ACAWK
-cat >>"\$ac_tmp/subs1.awk" <<_ACAWK &&
- for (key in S) S_is_set[key] = 1
- FS = "\a"
- \$ac_cs_awk_pipe_init
-}
-{
- line = $ 0
- nfields = split(line, field, "@")
- substed = 0
- len = length(field[1])
- for (i = 2; i < nfields; i++) {
- key = field[i]
- keylen = length(key)
- if (S_is_set[key]) {
- value = S[key]
- line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3)
- len += length(value) + length(field[++i])
- substed = 1
- } else
- len += 1 + keylen
- }
- if (nfields == 3 && !substed) {
- key = field[2]
- if (F[key] != "" && line ~ /^[ ]*@.*@[ ]*$/) {
- \$ac_cs_awk_read_file
- next
- }
- }
- print line
-}
-\$ac_cs_awk_pipe_fini
-_ACAWK
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
- sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
-else
- cat
-fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \
- || as_fn_error $? "could not setup config files machinery" "$LINENO" 5
-_ACEOF
-
-# VPATH may cause trouble with some makes, so we remove sole $(srcdir),
-# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and
-# trailing colons and then remove the whole line if VPATH becomes empty
-# (actually we leave an empty line to preserve line numbers).
-if test "x$srcdir" = x.; then
- ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{
-h
-s///
-s/^/:/
-s/[ ]*$/:/
-s/:\$(srcdir):/:/g
-s/:\${srcdir}:/:/g
-s/:@srcdir@:/:/g
-s/^:*//
-s/:*$//
-x
-s/\(=[ ]*\).*/\1/
-G
-s/\n//
-s/^[^=]*=[ ]*$//
-}'
-fi
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-fi # test -n "$CONFIG_FILES"
-
-# Set up the scripts for CONFIG_HEADERS section.
-# No need to generate them if there are no CONFIG_HEADERS.
-# This happens for instance with `./config.status Makefile'.
-if test -n "$CONFIG_HEADERS"; then
-cat >"$ac_tmp/defines.awk" <<\_ACAWK ||
-BEGIN {
-_ACEOF
-
-# Transform confdefs.h into an awk script `defines.awk', embedded as
-# here-document in config.status, that substitutes the proper values into
-# config.h.in to produce config.h.
-
-# Create a delimiter string that does not exist in confdefs.h, to ease
-# handling of long lines.
-ac_delim='%!_!# '
-for ac_last_try in false false :; do
- ac_tt=`sed -n "/$ac_delim/p" confdefs.h`
- if test -z "$ac_tt"; then
- break
- elif $ac_last_try; then
- as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5
- else
- ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
- fi
-done
-
-# For the awk script, D is an array of macro values keyed by name,
-# likewise P contains macro parameters if any. Preserve backslash
-# newline sequences.
-
-ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]*
-sed -n '
-s/.\{148\}/&'"$ac_delim"'/g
-t rset
-:rset
-s/^[ ]*#[ ]*define[ ][ ]*/ /
-t def
-d
-:def
-s/\\$//
-t bsnl
-s/["\\]/\\&/g
-s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\
-D["\1"]=" \3"/p
-s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p
-d
-:bsnl
-s/["\\]/\\&/g
-s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\
-D["\1"]=" \3\\\\\\n"\\/p
-t cont
-s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p
-t cont
-d
-:cont
-n
-s/.\{148\}/&'"$ac_delim"'/g
-t clear
-:clear
-s/\\$//
-t bsnlc
-s/["\\]/\\&/g; s/^/"/; s/$/"/p
-d
-:bsnlc
-s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p
-b cont
-' <confdefs.h | sed '
-s/'"$ac_delim"'/"\\\
-"/g' >>$CONFIG_STATUS || ac_write_fail=1
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
- for (key in D) D_is_set[key] = 1
- FS = "\a"
-}
-/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ {
- line = \$ 0
- split(line, arg, " ")
- if (arg[1] == "#") {
- defundef = arg[2]
- mac1 = arg[3]
- } else {
- defundef = substr(arg[1], 2)
- mac1 = arg[2]
- }
- split(mac1, mac2, "(") #)
- macro = mac2[1]
- prefix = substr(line, 1, index(line, defundef) - 1)
- if (D_is_set[macro]) {
- # Preserve the white space surrounding the "#".
- print prefix "define", macro P[macro] D[macro]
- next
- } else {
- # Replace #undef with comments. This is necessary, for example,
- # in the case of _POSIX_SOURCE, which is predefined and required
- # on some systems where configure will not decide to define it.
- if (defundef == "undef") {
- print "/*", prefix defundef, macro, "*/"
- next
- }
- }
-}
-{ print }
-_ACAWK
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
- as_fn_error $? "could not setup config headers machinery" "$LINENO" 5
-fi # test -n "$CONFIG_HEADERS"
-
-
-eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS"
-shift
-for ac_tag
-do
- case $ac_tag in
- :[FHLC]) ac_mode=$ac_tag; continue;;
- esac
- case $ac_mode$ac_tag in
- :[FHL]*:*);;
- :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;;
- :[FH]-) ac_tag=-:-;;
- :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
- esac
- ac_save_IFS=$IFS
- IFS=:
- set x $ac_tag
- IFS=$ac_save_IFS
- shift
- ac_file=$1
- shift
-
- case $ac_mode in
- :L) ac_source=$1;;
- :[FH])
- ac_file_inputs=
- for ac_f
- do
- case $ac_f in
- -) ac_f="$ac_tmp/stdin";;
- *) # Look for the file first in the build tree, then in the source tree
- # (if the path is not absolute). The absolute path cannot be DOS-style,
- # because $ac_f cannot contain `:'.
- test -f "$ac_f" ||
- case $ac_f in
- [\\/$]*) false;;
- *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
- esac ||
- as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;;
- esac
- case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
- as_fn_append ac_file_inputs " '$ac_f'"
- done
-
- # Let's still pretend it is `configure' which instantiates (i.e., don't
- # use $as_me), people would be surprised to read:
- # /* config.h. Generated by config.status. */
- configure_input='Generated from '`
- $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'
- `' by configure.'
- if test x"$ac_file" != x-; then
- configure_input="$ac_file. $configure_input"
- { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5
-$as_echo "$as_me: creating $ac_file" >&6;}
- fi
- # Neutralize special characters interpreted by sed in replacement strings.
- case $configure_input in #(
- *\&* | *\|* | *\\* )
- ac_sed_conf_input=`$as_echo "$configure_input" |
- sed 's/[\\\\&|]/\\\\&/g'`;; #(
- *) ac_sed_conf_input=$configure_input;;
- esac
-
- case $ac_tag in
- *:-:* | *:-) cat >"$ac_tmp/stdin" \
- || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;;
- esac
- ;;
- esac
-
- ac_dir=`$as_dirname -- "$ac_file" ||
-$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$ac_file" : 'X\(//\)[^/]' \| \
- X"$ac_file" : 'X\(//\)$' \| \
- X"$ac_file" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$ac_file" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- as_dir="$ac_dir"; as_fn_mkdir_p
- ac_builddir=.
-
-case "$ac_dir" in
-.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-*)
- ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
- # A ".." for each directory in $ac_dir_suffix.
- ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
- case $ac_top_builddir_sub in
- "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
- *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
- esac ;;
-esac
-ac_abs_top_builddir=$ac_pwd
-ac_abs_builddir=$ac_pwd$ac_dir_suffix
-# for backward compatibility:
-ac_top_builddir=$ac_top_build_prefix
-
-case $srcdir in
- .) # We are building in place.
- ac_srcdir=.
- ac_top_srcdir=$ac_top_builddir_sub
- ac_abs_top_srcdir=$ac_pwd ;;
- [\\/]* | ?:[\\/]* ) # Absolute name.
- ac_srcdir=$srcdir$ac_dir_suffix;
- ac_top_srcdir=$srcdir
- ac_abs_top_srcdir=$srcdir ;;
- *) # Relative name.
- ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
- ac_top_srcdir=$ac_top_build_prefix$srcdir
- ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-esac
-ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-
-
- case $ac_mode in
- :F)
- #
- # CONFIG_FILE
- #
-
- case $INSTALL in
- [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;;
- *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;;
- esac
- ac_MKDIR_P=$MKDIR_P
- case $MKDIR_P in
- [\\/$]* | ?:[\\/]* ) ;;
- */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;;
- esac
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# If the template does not know about datarootdir, expand it.
-# FIXME: This hack should be removed a few years after 2.60.
-ac_datarootdir_hack=; ac_datarootdir_seen=
-ac_sed_dataroot='
-/datarootdir/ {
- p
- q
-}
-/@datadir@/p
-/@docdir@/p
-/@infodir@/p
-/@localedir@/p
-/@mandir@/p'
-case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
-*datarootdir*) ac_datarootdir_seen=yes;;
-*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5
-$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;}
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
- ac_datarootdir_hack='
- s&@datadir@&$datadir&g
- s&@docdir@&$docdir&g
- s&@infodir@&$infodir&g
- s&@localedir@&$localedir&g
- s&@mandir@&$mandir&g
- s&\\\${datarootdir}&$datarootdir&g' ;;
-esac
-_ACEOF
-
-# Neutralize VPATH when `$srcdir' = `.'.
-# Shell code in configure.ac might set extrasub.
-# FIXME: do we really want to maintain this feature?
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-ac_sed_extra="$ac_vpsub
-$extrasub
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-:t
-/@[a-zA-Z_][a-zA-Z_0-9]*@/!b
-s|@configure_input@|$ac_sed_conf_input|;t t
-s&@top_builddir@&$ac_top_builddir_sub&;t t
-s&@top_build_prefix@&$ac_top_build_prefix&;t t
-s&@srcdir@&$ac_srcdir&;t t
-s&@abs_srcdir@&$ac_abs_srcdir&;t t
-s&@top_srcdir@&$ac_top_srcdir&;t t
-s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t
-s&@builddir@&$ac_builddir&;t t
-s&@abs_builddir@&$ac_abs_builddir&;t t
-s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
-s&@INSTALL@&$ac_INSTALL&;t t
-s&@MKDIR_P@&$ac_MKDIR_P&;t t
-$ac_datarootdir_hack
-"
-eval sed \"\$ac_sed_extra\" "$ac_file_inputs" |
-if $ac_cs_awk_getline; then
- $AWK -f "$ac_tmp/subs.awk"
-else
- $AWK -f "$ac_tmp/subs.awk" | $SHELL
-fi \
- >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5
-
-test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
- { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } &&
- { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \
- "$ac_tmp/out"`; test -z "$ac_out"; } &&
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined. Please make sure it is defined" >&5
-$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined. Please make sure it is defined" >&2;}
-
- rm -f "$ac_tmp/stdin"
- case $ac_file in
- -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";;
- *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";;
- esac \
- || as_fn_error $? "could not create $ac_file" "$LINENO" 5
- ;;
- :H)
- #
- # CONFIG_HEADER
- #
- if test x"$ac_file" != x-; then
- {
- $as_echo "/* $configure_input */" \
- && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs"
- } >"$ac_tmp/config.h" \
- || as_fn_error $? "could not create $ac_file" "$LINENO" 5
- if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5
-$as_echo "$as_me: $ac_file is unchanged" >&6;}
- else
- rm -f "$ac_file"
- mv "$ac_tmp/config.h" "$ac_file" \
- || as_fn_error $? "could not create $ac_file" "$LINENO" 5
- fi
- else
- $as_echo "/* $configure_input */" \
- && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \
- || as_fn_error $? "could not create -" "$LINENO" 5
- fi
-# Compute "$ac_file"'s index in $config_headers.
-_am_arg="$ac_file"
-_am_stamp_count=1
-for _am_header in $config_headers :; do
- case $_am_header in
- $_am_arg | $_am_arg:* )
- break ;;
- * )
- _am_stamp_count=`expr $_am_stamp_count + 1` ;;
- esac
-done
-echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" ||
-$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$_am_arg" : 'X\(//\)[^/]' \| \
- X"$_am_arg" : 'X\(//\)$' \| \
- X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$_am_arg" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`/stamp-h$_am_stamp_count
- ;;
-
- :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5
-$as_echo "$as_me: executing $ac_file commands" >&6;}
- ;;
- esac
-
-
- case $ac_file$ac_mode in
- "depfiles":C) test x"$AMDEP_TRUE" != x"" || {
- # Autoconf 2.62 quotes --file arguments for eval, but not when files
- # are listed without --file. Let's play safe and only enable the eval
- # if we detect the quoting.
- case $CONFIG_FILES in
- *\'*) eval set x "$CONFIG_FILES" ;;
- *) set x $CONFIG_FILES ;;
- esac
- shift
- for mf
- do
- # Strip MF so we end up with the name of the file.
- mf=`echo "$mf" | sed -e 's/:.*$//'`
- # Check whether this is an Automake generated Makefile or not.
- # We used to match only the files named `Makefile.in', but
- # some people rename them; so instead we look at the file content.
- # Grep'ing the first line is not enough: some people post-process
- # each Makefile.in and add a new line on top of each file to say so.
- # Grep'ing the whole file is not good either: AIX grep has a line
- # limit of 2048, but all sed's we know have understand at least 4000.
- if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then
- dirpart=`$as_dirname -- "$mf" ||
-$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$mf" : 'X\(//\)[^/]' \| \
- X"$mf" : 'X\(//\)$' \| \
- X"$mf" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$mf" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- else
- continue
- fi
- # Extract the definition of DEPDIR, am__include, and am__quote
- # from the Makefile without running `make'.
- DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"`
- test -z "$DEPDIR" && continue
- am__include=`sed -n 's/^am__include = //p' < "$mf"`
- test -z "am__include" && continue
- am__quote=`sed -n 's/^am__quote = //p' < "$mf"`
- # When using ansi2knr, U may be empty or an underscore; expand it
- U=`sed -n 's/^U = //p' < "$mf"`
- # Find all dependency output files, they are included files with
- # $(DEPDIR) in their names. We invoke sed twice because it is the
- # simplest approach to changing $(DEPDIR) to its actual value in the
- # expansion.
- for file in `sed -n "
- s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \
- sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do
- # Make sure the directory exists.
- test -f "$dirpart/$file" && continue
- fdir=`$as_dirname -- "$file" ||
-$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$file" : 'X\(//\)[^/]' \| \
- X"$file" : 'X\(//\)$' \| \
- X"$file" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$file" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- as_dir=$dirpart/$fdir; as_fn_mkdir_p
- # echo "creating $dirpart/$file"
- echo '# dummy' > "$dirpart/$file"
- done
- done
-}
- ;;
- "mkdirs":C)
-for dir in etc lisp ; do
- test -d ${dir} || mkdir ${dir}
-done
- ;;
- "epaths":C)
-echo creating src/epaths.h
-${MAKE-make} MAKEFILE_NAME=do-not-make-Makefile epaths-force
- ;;
- "gdbinit":C)
-if test ! -f src/.gdbinit && test -f $srcdir/src/.gdbinit; then
- echo creating src/.gdbinit
- echo source $srcdir/src/.gdbinit > src/.gdbinit
-fi
- ;;
-
- esac
-done # for ac_tag
-
-
-as_fn_exit 0
-_ACEOF
-ac_clean_files=$ac_clean_files_save
-
-test $ac_write_fail = 0 ||
- as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5
-
-
-# configure is writing to config.log, and then calls config.status.
-# config.status does its own redirection, appending to config.log.
-# Unfortunately, on DOS this fails, as config.log is still kept open
-# by configure, so config.status won't be able to write to it; its
-# output is simply discarded. So we exec the FD to /dev/null,
-# effectively closing config.log, so it can be properly (re)opened and
-# appended to by config.status. When coming back to configure, we
-# need to make the FD available again.
-if test "$no_create" != yes; then
- ac_cs_success=:
- ac_config_status_args=
- test "$silent" = yes &&
- ac_config_status_args="$ac_config_status_args --quiet"
- exec 5>/dev/null
- $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false
- exec 5>>config.log
- # Use ||, not &&, to avoid exiting from the if with $? = 1, which
- # would make configure fail if this is the last instruction.
- $ac_cs_success || as_fn_exit 1
-fi
-if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5
-$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;}
-fi
-
--- /dev/null
+DOC
+DOC-*
+icons/
--- /dev/null
+*.elc
+leim-list.el
--- /dev/null
+4Corner.el
+ARRAY30.el
+CCDOSPY.el
+CTLau-b5.el
+CTLau.el
+ECDICT.el
+ETZY.el
+PY-b5.el
+PY.el
+Punct-b5.el
+Punct.el
+QJ-b5.el
+QJ.el
+SW.el
+TONEPY.el
+ZIRANMA.el
+ZOZY.el
+quick-b5.el
+quick-cns.el
+tsang-b5.el
+tsang-cns.el
+
--- /dev/null
+DOC
+ctags.c
+stamp_BLD
+echolisp.tmp
+
+oo/
+oo-spd/
--- /dev/null
+*.elc
+*-loaddefs.el
+loaddefs.el
+subdirs.el
+finder-inf.el
+cus-load.el
+++ /dev/null
-;;; calc-loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (math-read-if math-remove-dashes calc-match-user-syntax
-;;;;;; calc-check-user-syntax math-read-token math-find-user-tokens
-;;;;;; math-build-parse-table math-read-expr-list math-read-exprs
-;;;;;; math-read-preprocess-string calcDigit-edit calcDigit-algebraic
-;;;;;; calc-alg-digit-entry calc-do-alg-entry calc-alg-entry calc-algebraic-entry
-;;;;;; calc-auto-algebraic-entry calc-do-calc-eval calc-do-quick-calc)
-;;;;;; "calc-aent" "calc-aent.el" "d0cc05ccd24bbc2892b54a5f40ae6a68")
-;;; Generated autoloads from calc-aent.el
-
-(autoload 'calc-do-quick-calc "calc-aent" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'calc-do-calc-eval "calc-aent" "\
-
-
-\(fn STR SEPARATOR ARGS)" nil nil)
-
-(autoload 'calc-auto-algebraic-entry "calc-aent" "\
-
-
-\(fn &optional PREFIX)" t nil)
-
-(autoload 'calc-algebraic-entry "calc-aent" "\
-
-
-\(fn &optional PREFIX AUTO)" t nil)
-
-(autoload 'calc-alg-entry "calc-aent" "\
-
-
-\(fn &optional INITIAL PROMPT)" nil nil)
-
-(autoload 'calc-do-alg-entry "calc-aent" "\
-
-
-\(fn &optional INITIAL PROMPT NO-NORMALIZE HISTORY)" nil nil)
-
-(autoload 'calc-alg-digit-entry "calc-aent" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'calcDigit-algebraic "calc-aent" "\
-
-
-\(fn)" t nil)
-
-(autoload 'calcDigit-edit "calc-aent" "\
-
-
-\(fn)" t nil)
-
-(autoload 'math-read-preprocess-string "calc-aent" "\
-Replace some substrings of STR by Calc equivalents.
-
-\(fn STR)" nil nil)
-
-(autoload 'math-read-exprs "calc-aent" "\
-
-
-\(fn MATH-EXP-STR)" nil nil)
-
-(autoload 'math-read-expr-list "calc-aent" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'math-build-parse-table "calc-aent" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'math-find-user-tokens "calc-aent" "\
-
-
-\(fn P)" nil nil)
-
-(autoload 'math-read-token "calc-aent" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'calc-check-user-syntax "calc-aent" "\
-
-
-\(fn &optional X PREC)" nil nil)
-
-(autoload 'calc-match-user-syntax "calc-aent" "\
-
-
-\(fn P &optional TERM)" nil nil)
-
-(autoload 'math-remove-dashes "calc-aent" "\
-
-
-\(fn X)" nil nil)
-
-(autoload 'math-read-if "calc-aent" "\
-
-
-\(fn COND OP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (calc-do-embedded-activate) "calc-embed" "calc-embed.el"
-;;;;;; "e8ec5b310e3794d2bd006417c05712b3")
-;;; Generated autoloads from calc-embed.el
-
-(autoload 'calc-do-embedded-activate "calc-embed" "\
-
-
-\(fn CALC-EMBED-ARG CBUF)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (report-calc-bug math-read-radix-digit math-ipow
-;;;;;; math-pow math-mod math-do-working calcFunc-inv math-imod
-;;;;;; math-floor math-trunc math-reject-arg math-div2-bignum math-div2
-;;;;;; math-evenp math-posp math-looks-negp math-negp math-zerop
-;;;;;; math-concat calc-temp-minibuffer-message calcDigit-letter
-;;;;;; calc-shift-Y-prefix-help calc-missing-key calc-num-prefix-name
-;;;;;; calc-transpose-lines calc-roll-up calc-roll-down calc-pop-above
-;;;;;; calc-over calc-percent calc-inv calc-mod calc-power calc-last-args-stub
-;;;;;; calc-record-list calc-do-refresh calc-roll-up-stack calc-roll-down-stack
-;;;;;; math-constp calc-record-why calc-do-handle-whys calc-help
-;;;;;; calc-info-summary calc-tutorial calc-info-goto-node calc-info
-;;;;;; another-calc calc-other-window calc-big-or-small calc-dispatch-help)
-;;;;;; "calc-misc" "calc-misc.el" "c9ed5f405b89c532880ee54481f58534")
-;;; Generated autoloads from calc-misc.el
-
-(autoload 'calc-dispatch-help "calc-misc" "\
-C-x* is a prefix key sequence; follow it with one of these letters:
-
-For turning Calc on and off:
- C calc. Start the Calculator in a window at the bottom of the screen.
- O calc-other-window. Start the Calculator but don't select its window.
- B calc-big-or-small. Control whether to use the full Emacs screen for Calc.
- Q quick-calc. Use the Calculator in the minibuffer.
- K calc-keypad. Start the Calculator in keypad mode (X window system only).
- E calc-embedded. Use the Calculator on a formula in this editing buffer.
- J calc-embedded-select. Like E, but select appropriate half of => or :=.
- W calc-embedded-word. Like E, but activate a single word, i.e., a number.
- Z calc-user-invocation. Invoke Calc in the way you defined with `Z I' cmd.
- X calc-quit. Turn Calc off.
-
-For moving data into and out of Calc:
- G calc-grab-region. Grab the region defined by mark and point into Calc.
- R calc-grab-rectangle. Grab the rectangle defined by mark, point into Calc.
- : calc-grab-sum-down. Grab a rectangle and sum the columns.
- _ calc-grab-sum-across. Grab a rectangle and sum the rows.
- Y calc-copy-to-buffer. Copy a value from the stack into the editing buffer.
-
-For use with Embedded mode:
- A calc-embedded-activate. Find and activate all :='s and =>'s in buffer.
- D calc-embedded-duplicate. Make a copy of this formula and select it.
- F calc-embedded-new-formula. Insert a new formula at current point.
- N calc-embedded-next. Advance cursor to next known formula in buffer.
- P calc-embedded-previous. Advance cursor to previous known formula.
- U calc-embedded-update-formula. Re-evaluate formula at point.
- ` calc-embedded-edit. Use calc-edit to edit formula at point.
-
-Documentation:
- I calc-info. Read the Calculator manual in the Emacs Info system.
- T calc-tutorial. Run the Calculator Tutorial using the Emacs Info system.
- S calc-summary. Read the Summary from the Calculator manual in Info.
-
-Miscellaneous:
- L calc-load-everything. Load all parts of the Calculator into memory.
- M read-kbd-macro. Read a region of keystroke names as a keyboard macro.
- 0 (zero) calc-reset. Reset Calc stack and modes to default state.
-
-Press `*' twice (`C-x * *') to turn Calc on or off using the same
-Calc user interface as before (either C-x * C or C-x * K; initially C-x * C).
-
-\(fn ARG)" t nil)
-
-(autoload 'calc-big-or-small "calc-misc" "\
-Toggle Calc between full-screen and regular mode.
-
-\(fn ARG)" t nil)
-
-(autoload 'calc-other-window "calc-misc" "\
-Invoke the Calculator in another window.
-
-\(fn &optional INTERACTIVE)" t nil)
-
-(autoload 'another-calc "calc-misc" "\
-Create another, independent Calculator buffer.
-
-\(fn)" t nil)
-
-(autoload 'calc-info "calc-misc" "\
-Run the Emacs Info system on the Calculator documentation.
-
-\(fn)" t nil)
-
-(autoload 'calc-info-goto-node "calc-misc" "\
-Go to a node in the Calculator info documentation.
-
-\(fn NODE)" t nil)
-
-(autoload 'calc-tutorial "calc-misc" "\
-Run the Emacs Info system on the Calculator Tutorial.
-
-\(fn)" t nil)
-
-(autoload 'calc-info-summary "calc-misc" "\
-Run the Emacs Info system on the Calculator Summary.
-
-\(fn)" t nil)
-
-(autoload 'calc-help "calc-misc" "\
-
-
-\(fn)" t nil)
-
-(autoload 'calc-do-handle-whys "calc-misc" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'calc-record-why "calc-misc" "\
-
-
-\(fn &rest STUFF)" nil nil)
-
-(autoload 'math-constp "calc-misc" "\
-
-
-\(fn A)" nil nil)
-
-(autoload 'calc-roll-down-stack "calc-misc" "\
-
-
-\(fn N &optional M)" nil nil)
-
-(autoload 'calc-roll-up-stack "calc-misc" "\
-
-
-\(fn N &optional M)" nil nil)
-
-(autoload 'calc-do-refresh "calc-misc" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'calc-record-list "calc-misc" "\
-
-
-\(fn VALS &optional PREFIX)" nil nil)
-
-(autoload 'calc-last-args-stub "calc-misc" "\
-
-
-\(fn ARG)" t nil)
-
-(autoload 'calc-power "calc-misc" "\
-
-
-\(fn ARG)" t nil)
-
-(autoload 'calc-mod "calc-misc" "\
-
-
-\(fn ARG)" t nil)
-
-(autoload 'calc-inv "calc-misc" "\
-
-
-\(fn ARG)" t nil)
-
-(autoload 'calc-percent "calc-misc" "\
-
-
-\(fn)" t nil)
-
-(autoload 'calc-over "calc-misc" "\
-
-
-\(fn N)" t nil)
-
-(autoload 'calc-pop-above "calc-misc" "\
-
-
-\(fn N)" t nil)
-
-(autoload 'calc-roll-down "calc-misc" "\
-
-
-\(fn N)" t nil)
-
-(autoload 'calc-roll-up "calc-misc" "\
-
-
-\(fn N)" t nil)
-
-(autoload 'calc-transpose-lines "calc-misc" "\
-Transpose previous line and current line.
-With argument ARG, move previous line past ARG lines.
-With argument 0, switch line point is in with line mark is in.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'calc-num-prefix-name "calc-misc" "\
-
-
-\(fn N)" nil nil)
-
-(autoload 'calc-missing-key "calc-misc" "\
-This is a placeholder for a command which needs to be loaded from calc-ext.
-When this key is used, calc-ext (the Calculator extensions module) will be
-loaded and the keystroke automatically re-typed.
-
-\(fn N)" t nil)
-
-(autoload 'calc-shift-Y-prefix-help "calc-misc" "\
-
-
-\(fn)" t nil)
-
-(autoload 'calcDigit-letter "calc-misc" "\
-
-
-\(fn)" t nil)
-
-(autoload 'calc-temp-minibuffer-message "calc-misc" "\
-
-
-\(fn M)" nil nil)
-
-(autoload 'math-concat "calc-misc" "\
-
-
-\(fn V1 V2)" nil nil)
-
-(autoload 'math-zerop "calc-misc" "\
-
-
-\(fn A)" nil nil)
-
-(autoload 'math-negp "calc-misc" "\
-
-
-\(fn A)" nil nil)
-
-(autoload 'math-looks-negp "calc-misc" "\
-
-
-\(fn A)" nil nil)
-
-(autoload 'math-posp "calc-misc" "\
-
-
-\(fn A)" nil nil)
-
-(defalias 'math-fixnump 'integerp)
-
-(defalias 'math-fixnatnump 'natnump)
-
-(autoload 'math-evenp "calc-misc" "\
-
-
-\(fn A)" nil nil)
-
-(autoload 'math-div2 "calc-misc" "\
-
-
-\(fn A)" nil nil)
-
-(autoload 'math-div2-bignum "calc-misc" "\
-
-
-\(fn A)" nil nil)
-
-(autoload 'math-reject-arg "calc-misc" "\
-
-
-\(fn &optional A P OPTION)" nil nil)
-
-(autoload 'math-trunc "calc-misc" "\
-
-
-\(fn A &optional MATH-TRUNC-PREC)" nil nil)
-
-(defalias 'calcFunc-trunc 'math-trunc)
-
-(autoload 'math-floor "calc-misc" "\
-
-
-\(fn A &optional MATH-FLOOR-PREC)" nil nil)
-
-(defalias 'calcFunc-floor 'math-floor)
-
-(autoload 'math-imod "calc-misc" "\
-
-
-\(fn A B)" nil nil)
-
-(autoload 'calcFunc-inv "calc-misc" "\
-
-
-\(fn M)" nil nil)
-
-(autoload 'math-do-working "calc-misc" "\
-
-
-\(fn MSG ARG)" nil nil)
-
-(autoload 'math-mod "calc-misc" "\
-
-
-\(fn A B)" nil nil)
-
-(autoload 'math-pow "calc-misc" "\
-
-
-\(fn A B)" nil nil)
-
-(autoload 'math-ipow "calc-misc" "\
-
-
-\(fn A N)" nil nil)
-
-(autoload 'math-read-radix-digit "calc-misc" "\
-
-
-\(fn DIG)" nil nil)
-
-(autoload 'report-calc-bug "calc-misc" "\
-Report a bug in Calc, the GNU Emacs calculator.
-Prompts for bug subject. Leaves you in a mail buffer.
-
-\(fn)" t nil)
-
-(defalias 'calc-report-bug 'report-calc-bug)
-
-;;;***
-\f
-;;;### (autoloads (calc-yank) "calc-yank" "calc-yank.el" "9c057926e990941673f13bb4c68e8b5e")
-;;; Generated autoloads from calc-yank.el
-
-(autoload 'calc-yank "calc-yank" "\
-
-
-\(fn)" t nil)
-
-;;;***
-\f
-(provide 'calc-loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; calc-loaddefs.el ends here
+++ /dev/null
-;;; cal-loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (diary-bahai-insert-yearly-entry diary-bahai-insert-monthly-entry
-;;;;;; diary-bahai-insert-entry calendar-bahai-goto-date calendar-bahai-print-date
-;;;;;; calendar-bahai-date-string) "cal-bahai" "cal-bahai.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from cal-bahai.el
-
-(autoload 'calendar-bahai-date-string "cal-bahai" "\
-String of Bahá'í date of Gregorian DATE.
-Defaults to today's date if DATE is not given.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-bahai-print-date "cal-bahai" "\
-Show the Bahá'í calendar equivalent of the selected date.
-
-\(fn)" t nil)
-
-(autoload 'calendar-bahai-goto-date "cal-bahai" "\
-Move cursor to Bahá'í date DATE; echo Bahá'í date unless NOECHO is non-nil.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-(autoload 'diary-bahai-insert-entry "cal-bahai" "\
-Insert a diary entry.
-For the Bahá'í date corresponding to the date indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(autoload 'diary-bahai-insert-monthly-entry "cal-bahai" "\
-Insert a monthly diary entry.
-For the day of the Bahá'í month corresponding to the date indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(autoload 'diary-bahai-insert-yearly-entry "cal-bahai" "\
-Insert an annual diary entry.
-For the day of the Bahá'í year corresponding to the date indicated by point.
-Prefix argument ARG will make the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-chinese-goto-date calendar-chinese-print-date
-;;;;;; calendar-chinese-date-string) "cal-china" "cal-china.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-china.el
-
-(autoload 'calendar-chinese-date-string "cal-china" "\
-String of Chinese date of Gregorian DATE.
-Defaults to today's date if DATE is not given.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-chinese-print-date "cal-china" "\
-Show the Chinese date equivalents of date.
-
-\(fn)" t nil)
-
-(autoload 'calendar-chinese-goto-date "cal-china" "\
-Move cursor to Chinese date DATE.
-Echo Chinese date unless NOECHO is non-nil.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-ethiopic-goto-date calendar-ethiopic-print-date
-;;;;;; calendar-ethiopic-date-string calendar-coptic-goto-date calendar-coptic-print-date
-;;;;;; calendar-coptic-date-string) "cal-coptic" "cal-coptic.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-coptic.el
-
-(autoload 'calendar-coptic-date-string "cal-coptic" "\
-String of Coptic date of Gregorian DATE.
-Returns the empty string if DATE is pre-Coptic calendar.
-Defaults to today's date if DATE is not given.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-coptic-print-date "cal-coptic" "\
-Show the Coptic calendar equivalent of the selected date.
-
-\(fn)" t nil)
-
-(autoload 'calendar-coptic-goto-date "cal-coptic" "\
-Move cursor to Coptic date DATE.
-Echo Coptic date unless NOECHO is t.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-(autoload 'calendar-ethiopic-date-string "cal-coptic" "\
-String of Ethiopic date of Gregorian DATE.
-Returns the empty string if DATE is pre-Ethiopic calendar.
-Defaults to today's date if DATE is not given.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-ethiopic-print-date "cal-coptic" "\
-Show the Ethiopic calendar equivalent of the selected date.
-
-\(fn)" t nil)
-
-(autoload 'calendar-ethiopic-goto-date "cal-coptic" "\
-Move cursor to Ethiopic date DATE.
-Echo Ethiopic date unless NOECHO is t.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-french-goto-date calendar-french-print-date
-;;;;;; calendar-french-date-string) "cal-french" "cal-french.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-french.el
-
-(autoload 'calendar-french-date-string "cal-french" "\
-String of French Revolutionary date of Gregorian DATE.
-Returns the empty string if DATE is pre-French Revolutionary.
-Defaults to today's date if DATE is not given.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-french-print-date "cal-french" "\
-Show the French Revolutionary calendar equivalent of the selected date.
-
-\(fn)" t nil)
-
-(autoload 'calendar-french-goto-date "cal-french" "\
-Move cursor to French Revolutionary date DATE.
-Echo French Revolutionary date unless NOECHO is non-nil.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-hebrew-insert-yearly-entry diary-hebrew-insert-monthly-entry
-;;;;;; diary-hebrew-insert-entry calendar-hebrew-goto-date calendar-hebrew-print-date
-;;;;;; calendar-hebrew-date-string) "cal-hebrew" "cal-hebrew.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-hebrew.el
-
-(autoload 'calendar-hebrew-date-string "cal-hebrew" "\
-String of Hebrew date before sunset of Gregorian DATE.
-Defaults to today's date if DATE is not given.
-Driven by the variable `calendar-date-display-form'.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-hebrew-print-date "cal-hebrew" "\
-Show the Hebrew calendar equivalent of the date under the cursor.
-
-\(fn)" t nil)
-
-(autoload 'calendar-hebrew-goto-date "cal-hebrew" "\
-Move cursor to Hebrew DATE; echo Hebrew date unless NOECHO is non-nil.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-(autoload 'diary-hebrew-insert-entry "cal-hebrew" "\
-Insert a diary entry for the Hebrew date at point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(autoload 'diary-hebrew-insert-monthly-entry "cal-hebrew" "\
-Insert a monthly diary entry.
-For the day of the Hebrew month corresponding to the date indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(autoload 'diary-hebrew-insert-yearly-entry "cal-hebrew" "\
-Insert an annual diary entry.
-For the day of the Hebrew year corresponding to the date indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (cal-html-cursor-year cal-html-cursor-month) "cal-html"
-;;;;;; "cal-html.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-html.el
-
-(autoload 'cal-html-cursor-month "cal-html" "\
-Write an HTML calendar file for numeric MONTH of four-digit YEAR.
-The output directory DIR is created if necessary. Interactively,
-MONTH and YEAR are taken from the calendar cursor position, or from
-the position specified by EVENT. Note that any existing output files
-are overwritten.
-
-\(fn MONTH YEAR DIR &optional EVENT)" t nil)
-
-(autoload 'cal-html-cursor-year "cal-html" "\
-Write HTML calendar files (index and monthly pages) for four-digit YEAR.
-The output directory DIR is created if necessary. Interactively,
-YEAR is taken from the calendar cursor position, or from the position
-specified by EVENT. Note that any existing output files are overwritten.
-
-\(fn YEAR DIR &optional EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-islamic-insert-yearly-entry diary-islamic-insert-monthly-entry
-;;;;;; diary-islamic-insert-entry calendar-islamic-goto-date calendar-islamic-print-date
-;;;;;; calendar-islamic-date-string) "cal-islam" "cal-islam.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-islam.el
-
-(autoload 'calendar-islamic-date-string "cal-islam" "\
-String of Islamic date before sunset of Gregorian DATE.
-Returns the empty string if DATE is pre-Islamic.
-Defaults to today's date if DATE is not given.
-Driven by the variable `calendar-date-display-form'.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-islamic-print-date "cal-islam" "\
-Show the Islamic calendar equivalent of the date under the cursor.
-
-\(fn)" t nil)
-
-(autoload 'calendar-islamic-goto-date "cal-islam" "\
-Move cursor to Islamic DATE; echo Islamic date unless NOECHO is non-nil.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-(autoload 'diary-islamic-insert-entry "cal-islam" "\
-Insert a diary entry.
-For the Islamic date corresponding to the date indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(autoload 'diary-islamic-insert-monthly-entry "cal-islam" "\
-Insert a monthly diary entry.
-For the day of the Islamic month corresponding to the date indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(autoload 'diary-islamic-insert-yearly-entry "cal-islam" "\
-Insert an annual diary entry.
-For the day of the Islamic year corresponding to the date indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-iso-goto-week calendar-iso-goto-date
-;;;;;; calendar-iso-print-date calendar-iso-date-string calendar-iso-from-absolute)
-;;;;;; "cal-iso" "cal-iso.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-iso.el
-
-(autoload 'calendar-iso-from-absolute "cal-iso" "\
-Compute the `ISO commercial date' corresponding to the absolute DATE.
-The ISO year corresponds approximately to the Gregorian year, but weeks
-start on Monday and end on Sunday. The first week of the ISO year is the
-first such week in which at least 4 days are in a year. The ISO commercial
-date has the form (week day year) in which week is in the range 1..52 and
-day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 = Sunday). The
-absolute date is the number of days elapsed since the (imaginary) Gregorian
-date Sunday, December 31, 1 BC.
-
-\(fn DATE)" nil nil)
-
-(autoload 'calendar-iso-date-string "cal-iso" "\
-String of ISO date of Gregorian DATE, default today.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-iso-print-date "cal-iso" "\
-Show equivalent ISO date for the date under the cursor.
-
-\(fn)" t nil)
-
-(autoload 'calendar-iso-goto-date "cal-iso" "\
-Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-(autoload 'calendar-iso-goto-week "cal-iso" "\
-Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil.
-Interactively, goes to the first day of the specified week.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-astro-goto-day-number calendar-astro-print-day-number
-;;;;;; calendar-astro-date-string calendar-astro-from-absolute calendar-astro-to-absolute
-;;;;;; calendar-julian-goto-date calendar-julian-print-date calendar-julian-date-string
-;;;;;; calendar-julian-from-absolute) "cal-julian" "cal-julian.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-julian.el
-
-(autoload 'calendar-julian-from-absolute "cal-julian" "\
-Compute the Julian (month day year) corresponding to the absolute DATE.
-The absolute date is the number of days elapsed since the (imaginary)
-Gregorian date Sunday, December 31, 1 BC.
-
-\(fn DATE)" nil nil)
-
-(autoload 'calendar-julian-date-string "cal-julian" "\
-String of Julian date of Gregorian DATE.
-Defaults to today's date if DATE is not given.
-Driven by the variable `calendar-date-display-form'.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-julian-print-date "cal-julian" "\
-Show the Julian calendar equivalent of the date under the cursor.
-
-\(fn)" t nil)
-
-(autoload 'calendar-julian-goto-date "cal-julian" "\
-Move cursor to Julian DATE; echo Julian date unless NOECHO is non-nil.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-(autoload 'calendar-astro-to-absolute "cal-julian" "\
-Absolute date of astronomical (Julian) day number D.
-
-\(fn D)" nil nil)
-
-(autoload 'calendar-astro-from-absolute "cal-julian" "\
-Astronomical (Julian) day number of absolute date D.
-
-\(fn D)" nil nil)
-
-(autoload 'calendar-astro-date-string "cal-julian" "\
-String of astronomical (Julian) day number after noon UTC of Gregorian DATE.
-Defaults to today's date if DATE is not given.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-astro-print-day-number "cal-julian" "\
-Show astronomical (Julian) day number after noon UTC on cursor date.
-
-\(fn)" t nil)
-
-(autoload 'calendar-astro-goto-day-number "cal-julian" "\
-Move cursor to astronomical (Julian) DAYNUMBER.
-Echo astronomical (Julian) day number unless NOECHO is non-nil.
-
-\(fn DAYNUMBER &optional NOECHO)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-mayan-goto-long-count-date calendar-mayan-previous-round-date
-;;;;;; calendar-mayan-next-round-date calendar-mayan-previous-tzolkin-date
-;;;;;; calendar-mayan-next-tzolkin-date calendar-mayan-previous-haab-date
-;;;;;; calendar-mayan-next-haab-date calendar-mayan-print-date calendar-mayan-date-string)
-;;;;;; "cal-mayan" "cal-mayan.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-mayan.el
-
-(autoload 'calendar-mayan-date-string "cal-mayan" "\
-String of Mayan date of Gregorian DATE; default today.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-mayan-print-date "cal-mayan" "\
-Show the Mayan long count, tzolkin, and haab equivalents of date.
-
-\(fn)" t nil)
-
-(autoload 'calendar-mayan-next-haab-date "cal-mayan" "\
-Move cursor to next instance of Mayan HAAB-DATE.
-Echo Mayan date unless NOECHO is non-nil.
-
-\(fn HAAB-DATE &optional NOECHO)" t nil)
-
-(autoload 'calendar-mayan-previous-haab-date "cal-mayan" "\
-Move cursor to previous instance of Mayan HAAB-DATE.
-Echo Mayan date unless NOECHO is non-nil.
-
-\(fn HAAB-DATE &optional NOECHO)" t nil)
-
-(autoload 'calendar-mayan-next-tzolkin-date "cal-mayan" "\
-Move cursor to next instance of Mayan TZOLKIN-DATE.
-Echo Mayan date unless NOECHO is non-nil.
-
-\(fn TZOLKIN-DATE &optional NOECHO)" t nil)
-
-(autoload 'calendar-mayan-previous-tzolkin-date "cal-mayan" "\
-Move cursor to previous instance of Mayan TZOLKIN-DATE.
-Echo Mayan date unless NOECHO is non-nil.
-
-\(fn TZOLKIN-DATE &optional NOECHO)" t nil)
-
-(autoload 'calendar-mayan-next-round-date "cal-mayan" "\
-Move cursor to next instance of Mayan TZOLKIN-DATE HAAB-DATE combination.
-Echo Mayan date unless NOECHO is non-nil.
-
-\(fn TZOLKIN-DATE HAAB-DATE &optional NOECHO)" t nil)
-
-(autoload 'calendar-mayan-previous-round-date "cal-mayan" "\
-Move to previous instance of Mayan TZOLKIN-DATE HAAB-DATE combination.
-Echo Mayan date unless NOECHO is non-nil.
-
-\(fn TZOLKIN-DATE HAAB-DATE &optional NOECHO)" t nil)
-
-(autoload 'calendar-mayan-goto-long-count-date "cal-mayan" "\
-Move cursor to Mayan long count DATE.
-Echo Mayan date unless NOECHO is non-nil.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-goto-day-of-year calendar-goto-date calendar-end-of-year
-;;;;;; calendar-beginning-of-year calendar-end-of-month calendar-beginning-of-month
-;;;;;; calendar-end-of-week calendar-beginning-of-week calendar-backward-week
-;;;;;; calendar-forward-week calendar-backward-day calendar-forward-day
-;;;;;; calendar-scroll-right-three-months calendar-scroll-toolkit-scroll
-;;;;;; calendar-scroll-left-three-months calendar-scroll-right calendar-scroll-left
-;;;;;; calendar-backward-year calendar-backward-month calendar-forward-year
-;;;;;; calendar-forward-month calendar-goto-today calendar-cursor-to-visible-date
-;;;;;; calendar-cursor-to-nearest-date) "cal-move" "cal-move.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-move.el
-
-(autoload 'calendar-cursor-to-nearest-date "cal-move" "\
-Move the cursor to the closest date.
-The position of the cursor is unchanged if it is already on a date.
-Returns the list (month day year) giving the cursor position.
-
-\(fn)" nil nil)
-
-(autoload 'calendar-cursor-to-visible-date "cal-move" "\
-Move the cursor to DATE that is on the screen.
-
-\(fn DATE)" nil nil)
-
-(autoload 'calendar-goto-today "cal-move" "\
-Reposition the calendar window so the current date is visible.
-
-\(fn)" t nil)
-
-(autoload 'calendar-forward-month "cal-move" "\
-Move the cursor forward ARG months.
-Movement is backward if ARG is negative.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-forward-year "cal-move" "\
-Move the cursor forward by ARG years.
-Movement is backward if ARG is negative.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-backward-month "cal-move" "\
-Move the cursor backward by ARG months.
-Movement is forward if ARG is negative.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-backward-year "cal-move" "\
-Move the cursor backward ARG years.
-Movement is forward is ARG is negative.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-scroll-left "cal-move" "\
-Scroll the displayed calendar left by ARG months.
-If ARG is negative the calendar is scrolled right. Maintains the relative
-position of the cursor with respect to the calendar as well as possible.
-EVENT is an event like `last-nonmenu-event'.
-
-\(fn &optional ARG EVENT)" t nil)
-
-(autoload 'calendar-scroll-right "cal-move" "\
-Scroll the displayed calendar window right by ARG months.
-If ARG is negative the calendar is scrolled left. Maintains the relative
-position of the cursor with respect to the calendar as well as possible.
-EVENT is an event like `last-nonmenu-event'.
-
-\(fn &optional ARG EVENT)" t nil)
-
-(autoload 'calendar-scroll-left-three-months "cal-move" "\
-Scroll the displayed calendar window left by 3*ARG months.
-If ARG is negative the calendar is scrolled right. Maintains the relative
-position of the cursor with respect to the calendar as well as possible.
-EVENT is an event like `last-nonmenu-event'.
-
-\(fn ARG &optional EVENT)" t nil)
-
-(autoload 'calendar-scroll-toolkit-scroll "cal-move" "\
-Function to scroll the calendar after a toolkit scroll-bar click.
-
-\(fn EVENT)" t nil)
-
-(autoload 'calendar-scroll-right-three-months "cal-move" "\
-Scroll the displayed calendar window right by 3*ARG months.
-If ARG is negative the calendar is scrolled left. Maintains the relative
-position of the cursor with respect to the calendar as well as possible.
-EVENT is an event like `last-nonmenu-event'.
-
-\(fn ARG &optional EVENT)" t nil)
-
-(autoload 'calendar-forward-day "cal-move" "\
-Move the cursor forward ARG days.
-Moves backward if ARG is negative.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-backward-day "cal-move" "\
-Move the cursor back ARG days.
-Moves forward if ARG is negative.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-forward-week "cal-move" "\
-Move the cursor forward ARG weeks.
-Moves backward if ARG is negative.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-backward-week "cal-move" "\
-Move the cursor back ARG weeks.
-Moves forward if ARG is negative.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-beginning-of-week "cal-move" "\
-Move the cursor back ARG calendar-week-start-day's.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-end-of-week "cal-move" "\
-Move the cursor forward ARG calendar-week-start-day+6's.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-beginning-of-month "cal-move" "\
-Move the cursor backward ARG month beginnings.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-end-of-month "cal-move" "\
-Move the cursor forward ARG month ends.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-beginning-of-year "cal-move" "\
-Move the cursor backward ARG year beginnings.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-end-of-year "cal-move" "\
-Move the cursor forward ARG year beginnings.
-
-\(fn ARG)" t nil)
-
-(autoload 'calendar-goto-date "cal-move" "\
-Move cursor to DATE.
-
-\(fn DATE)" t nil)
-
-(autoload 'calendar-goto-day-of-year "cal-move" "\
-Move cursor to YEAR, DAY number; echo DAY/YEAR unless NOECHO is non-nil.
-Negative DAY counts backward from end of year.
-
-\(fn YEAR DAY &optional NOECHO)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-persian-goto-date calendar-persian-print-date
-;;;;;; calendar-persian-date-string) "cal-persia" "cal-persia.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-persia.el
-
-(autoload 'calendar-persian-date-string "cal-persia" "\
-String of Persian date of Gregorian DATE, default today.
-
-\(fn &optional DATE)" nil nil)
-
-(autoload 'calendar-persian-print-date "cal-persia" "\
-Show the Persian calendar equivalent of the selected date.
-
-\(fn)" t nil)
-
-(autoload 'calendar-persian-goto-date "cal-persia" "\
-Move cursor to Persian date DATE.
-Echo Persian date unless NOECHO is non-nil.
-
-\(fn DATE &optional NOECHO)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (cal-tex-cursor-day cal-tex-cursor-filofax-daily
-;;;;;; cal-tex-cursor-filofax-week cal-tex-cursor-filofax-2week
-;;;;;; cal-tex-cursor-week2-summary cal-tex-cursor-week-monday cal-tex-cursor-week-iso
-;;;;;; cal-tex-cursor-week2 cal-tex-cursor-week cal-tex-cursor-month
-;;;;;; cal-tex-cursor-month-landscape cal-tex-cursor-filofax-year
-;;;;;; cal-tex-cursor-year-landscape cal-tex-cursor-year) "cal-tex"
-;;;;;; "cal-tex.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-tex.el
-
-(autoload 'cal-tex-cursor-year "cal-tex" "\
-Make a buffer with LaTeX commands for the year cursor is on.
-Optional prefix argument N specifies number of years.
-Optional EVENT indicates a buffer position to use instead of point.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-year-landscape "cal-tex" "\
-Make a buffer with LaTeX commands for the year cursor is on.
-Optional prefix argument N specifies number of years.
-Optional EVENT indicates a buffer position to use instead of point.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-filofax-year "cal-tex" "\
-Make a Filofax one page yearly calendar of year indicated by cursor.
-Optional prefix argument N specifies number of years.
-Optional EVENT indicates a buffer position to use instead of point.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-month-landscape "cal-tex" "\
-Make a LaTeX calendar buffer for the month the cursor is on.
-Optional prefix argument N specifies number of months to be
-produced (default 1). The output is in landscape format, one
-month to a page. It shows holiday and diary entries if
-`cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil.
-Optional EVENT indicates a buffer position to use instead of point.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-month "cal-tex" "\
-Make a LaTeX calendar buffer for the month the cursor is on.
-Optional prefix argument N specifies number of months to be
-produced (default 1). The calendar is condensed onto one page.
-It shows holiday and diary entries if `cal-tex-holidays' and
-`cal-tex-diary', respectively, are non-nil. Optional EVENT
-indicates a buffer position to use instead of point.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-week "cal-tex" "\
-Make a one page LaTeX calendar for one week, showing hours of the day.
-There are two columns; with 8-12am in the first and 1-5pm in the second.
-It shows holidays if `cal-tex-holidays' is non-nil.
-It does not show diary entries.
-
-The optional prefix argument N specifies a number of weeks (default 1).
-
-By default, the calendar is for the week at point; the optional
-argument EVENT specifies a different buffer position.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-week2 "cal-tex" "\
-Make a two page LaTeX calendar for one week, showing hours of the day.
-There are two columns; with 8-12am in the first and 1-5pm in the second.
-It shows holidays if `cal-tex-holidays' is non-nil.
-It does not show diary entries.
-
-The optional prefix argument N specifies a number of weeks (default 1).
-
-By default, the calendar is for the week at point; the optional
-argument EVENT specifies a different buffer position.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-week-iso "cal-tex" "\
-Make a one page LaTeX calendar for one week, in the ISO-style.
-It does not show hours of the day.
-It shows holidays if `cal-tex-holidays' is non-nil.
-It shows diary entries if `cal-tex-diary' is non-nil.
-
-The optional prefix argument N specifies a number of weeks (default 1).
-
-By default, the calendar is for the week at point; the optional
-argument EVENT specifies a different buffer position.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-week-monday "cal-tex" "\
-Make a one page LaTeX calendar for one week, showing hours of the day.
-There are two columns; with M-W in the first and T-S in the second.
-It shows the hours 8-12am and 1-5pm.
-It shows holidays if `cal-tex-holidays' is non-nil.
-It does not show diary entries.
-
-The optional prefix argument N specifies a number of weeks (default 1).
-
-By default, the calendar is for the week at point; the optional
-argument EVENT specifies a different buffer position.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-week2-summary "cal-tex" "\
-Make a two page LaTeX calendar for one week, with optional diary entries.
-It does not show hours of the day.
-It shows holidays if `cal-tex-holidays' is non-nil.
-It shows diary entries if `cal-tex-diary' is non-nil.
-
-The optional prefix argument N specifies a number of weeks (default 1).
-
-By default, the calendar is for the week at point; the optional
-argument EVENT specifies a different buffer position.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-filofax-2week "cal-tex" "\
-Two-weeks-at-a-glance Filofax style calendar for week cursor is in.
-Optional prefix argument N specifies number of weeks (default 1).
-The calendar shows holiday and diary entries if
-`cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil.
-Optional EVENT indicates a buffer position to use instead of point.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-filofax-week "cal-tex" "\
-One-week-at-a-glance Filofax style calendar for week indicated by cursor.
-Optional prefix argument N specifies number of weeks (default 1),
-starting on Mondays. The calendar shows holiday and diary entries
-if `cal-tex-holidays' and `cal-tex-diary', respectively, are non-nil.
-Optional EVENT indicates a buffer position to use instead of point.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-filofax-daily "cal-tex" "\
-Day-per-page Filofax style calendar for week indicated by cursor.
-Optional prefix argument N specifies number of weeks (default 1),
-starting on Mondays. The calendar shows holiday and diary
-entries if `cal-tex-holidays' and `cal-tex-diary', respectively,
-are non-nil. Pages are ruled if `cal-tex-rules' is non-nil.
-Optional EVENT indicates a buffer position to use instead of point.
-
-\(fn &optional N EVENT)" t nil)
-
-(autoload 'cal-tex-cursor-day "cal-tex" "\
-Make a buffer with LaTeX commands for the day cursor is on.
-Optional prefix argument N specifies number of days. The calendar shows
-the hours between `cal-tex-daily-start' and `cal-tex-daily-end', using
-the 24-hour clock if `cal-tex-24' is non-nil. Optional EVENT indicates
-a buffer position to use instead of point.
-
-\(fn &optional N EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-two-frame-setup calendar-only-one-frame-setup
-;;;;;; calendar-one-frame-setup calendar-frame-setup) "cal-x" "cal-x.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-x.el
-
-(autoload 'calendar-frame-setup "cal-x" "\
-Display the calendar, and optionally the diary, in a separate frame.
-CONFIG should be one of:
-`calendar-only' - just the calendar, no diary
-`one-frame' - calendar and diary in a single frame
-`two-frames' - calendar and diary each in a separate frame
-
-If CONFIG has any other value, or if the display is not capable of
-multiple frames, then `calendar-basic-setup' is called.
-
-If PROMPT is non-nil, prompt for the month and year to use.
-
-\(fn CONFIG &optional PROMPT)" nil nil)
-
-(autoload 'calendar-one-frame-setup "cal-x" "\
-Display calendar and diary in a single dedicated frame.
-See `calendar-frame-setup' for more information.
-
-\(fn &optional PROMPT)" nil nil)
-
-(make-obsolete 'calendar-one-frame-setup 'calendar-frame-setup "23.1")
-
-(autoload 'calendar-only-one-frame-setup "cal-x" "\
-Display calendar in a dedicated frame.
-See `calendar-frame-setup' for more information.
-
-\(fn &optional PROMPT)" nil nil)
-
-(make-obsolete 'calendar-only-one-frame-setup 'calendar-frame-setup "23.1")
-
-(autoload 'calendar-two-frame-setup "cal-x" "\
-Display calendar and diary in separate, dedicated frames.
-See `calendar-frame-setup' for more information.
-
-\(fn &optional PROMPT)" nil nil)
-
-(make-obsolete 'calendar-two-frame-setup 'calendar-frame-setup "23.1")
-
-;;;***
-\f
-;;;### (autoloads (diary-font-lock-keywords diary-insert-cyclic-entry
-;;;;;; diary-insert-block-entry diary-insert-anniversary-entry diary-insert-yearly-entry
-;;;;;; diary-insert-monthly-entry diary-insert-weekly-entry diary-insert-entry
-;;;;;; diary-make-entry diary-mark-entries diary-show-all-entries
-;;;;;; diary-view-other-diary-entries diary-view-entries diary-set-maybe-redraw
-;;;;;; diary-live-p) "diary-lib" "diary-lib.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from diary-lib.el
-
-(autoload 'diary-live-p "diary-lib" "\
-Return non-nil if the diary is being displayed.
-
-\(fn)" nil nil)
-
-(autoload 'diary-set-maybe-redraw "diary-lib" "\
-Set SYMBOL's value to VALUE, and redraw the diary if necessary.
-Redraws the diary if it is being displayed (note this is not the same as
-just visiting the `diary-file'), and SYMBOL's value is to be changed.
-
-\(fn SYMBOL VALUE)" nil nil)
-
-(autoload 'diary-view-entries "diary-lib" "\
-Prepare and display a buffer with diary entries.
-Searches the file named in `diary-file' for entries that match
-ARG days starting with the date indicated by the cursor position
-in the displayed three-month calendar.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'diary-view-other-diary-entries "diary-lib" "\
-Prepare and display buffer of diary entries from an alternative diary file.
-Searches for entries that match ARG days, starting with the date indicated
-by the cursor position in the displayed three-month calendar.
-DFILE specifies the file to use as the diary file.
-
-\(fn ARG DFILE)" t nil)
-
-(define-obsolete-function-alias 'view-other-diary-entries 'diary-view-other-diary-entries "23.1")
-
-(autoload 'diary-show-all-entries "diary-lib" "\
-Show all of the diary entries in the diary file.
-This function gets rid of the selective display of the diary file so that
-all entries, not just some, are visible. If there is no diary buffer, one
-is created.
-
-\(fn)" t nil)
-
-(autoload 'diary-mark-entries "diary-lib" "\
-Mark days in the calendar window that have diary entries.
-Marks each entry in the diary that is visible in the calendar window.
-
-After marking the entries, runs `diary-nongregorian-marking-hook'
-for the main diary file, and each included file. For example,
-this is the appropriate hook to process Islamic entries in all
-diary files. Next `diary-mark-entries-hook' runs, for the main diary
-file only. If not using include files, there is no difference between
-these two hooks.
-
-If the optional argument REDRAW is non-nil (which is the case
-interactively, for example) then this first removes any existing diary
-marks. This is intended to deal with deleted diary entries.
-
-\(fn &optional REDRAW)" t nil)
-
-(define-obsolete-function-alias 'mark-diary-entries 'diary-mark-entries "23.1")
-
-(autoload 'diary-make-entry "diary-lib" "\
-Insert a diary entry STRING which may be NONMARKING in FILE.
-If omitted, NONMARKING defaults to nil and FILE defaults to
-`diary-file'.
-
-\(fn STRING &optional NONMARKING FILE)" nil nil)
-
-(define-obsolete-function-alias 'make-diary-entry 'diary-make-entry "23.1")
-
-(autoload 'diary-insert-entry "diary-lib" "\
-Insert a diary entry for the date indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG &optional EVENT)" t nil)
-
-(define-obsolete-function-alias 'insert-diary-entry 'diary-insert-entry "23.1")
-
-(autoload 'diary-insert-weekly-entry "diary-lib" "\
-Insert a weekly diary entry for the day of the week indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(define-obsolete-function-alias 'insert-weekly-diary-entry 'diary-insert-weekly-entry "23.1")
-
-(autoload 'diary-insert-monthly-entry "diary-lib" "\
-Insert a monthly diary entry for the day of the month indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(define-obsolete-function-alias 'insert-monthly-diary-entry 'diary-insert-monthly-entry "23.1")
-
-(autoload 'diary-insert-yearly-entry "diary-lib" "\
-Insert an annual diary entry for the day of the year indicated by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(define-obsolete-function-alias 'insert-yearly-diary-entry 'diary-insert-yearly-entry "23.1")
-
-(autoload 'diary-insert-anniversary-entry "diary-lib" "\
-Insert an anniversary diary entry for the date given by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(define-obsolete-function-alias 'insert-anniversary-diary-entry 'diary-insert-anniversary-entry "23.1")
-
-(autoload 'diary-insert-block-entry "diary-lib" "\
-Insert a block diary entry for the days between the point and marked date.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(define-obsolete-function-alias 'insert-block-diary-entry 'diary-insert-block-entry "23.1")
-
-(autoload 'diary-insert-cyclic-entry "diary-lib" "\
-Insert a cyclic diary entry starting at the date given by point.
-Prefix argument ARG makes the entry nonmarking.
-
-\(fn ARG)" t nil)
-
-(define-obsolete-function-alias 'insert-cyclic-diary-entry 'diary-insert-cyclic-entry "23.1")
-
-(autoload 'diary-font-lock-keywords "diary-lib" "\
-Return a value for the variable `diary-font-lock-keywords'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-mark-holidays calendar-cursor-holidays
-;;;;;; calendar-list-holidays) "holidays" "holidays.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from holidays.el
-
-(autoload 'calendar-list-holidays "holidays" "\
-Create a buffer containing the holidays for the current calendar window.
-The holidays are those in the list `calendar-notable-days'.
-Returns non-nil if any holidays are found.
-If EVENT is non-nil, it's an event indicating the buffer position to
-use instead of point.
-
-\(fn &optional EVENT)" t nil)
-
-(autoload 'calendar-cursor-holidays "holidays" "\
-Find holidays for the date specified by the cursor in the calendar window.
-Optional DATE is a list (month day year) to use instead of the
-cursor position. EVENT specifies a buffer position to use for a date.
-
-\(fn &optional DATE EVENT)" t nil)
-
-(autoload 'calendar-mark-holidays "holidays" "\
-Mark notable days in the calendar window.
-If EVENT is non-nil, it's an event indicating the buffer position to
-use instead of point.
-
-\(fn &optional EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-lunar-phases) "lunar" "lunar.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from lunar.el
-
-(autoload 'calendar-lunar-phases "lunar" "\
-Create a buffer with the lunar phases for the current calendar window.
-If EVENT is non-nil, it's an event indicating the buffer position to
-use instead of point.
-
-\(fn &optional EVENT)" t nil)
-
-(define-obsolete-function-alias 'calendar-phases-of-moon 'calendar-lunar-phases "23.1")
-
-;;;***
-\f
-;;;### (autoloads (calendar-sunrise-sunset-month calendar-sunrise-sunset)
-;;;;;; "solar" "solar.el" (20707 18685 911514 0))
-;;; Generated autoloads from solar.el
-
-(autoload 'calendar-sunrise-sunset "solar" "\
-Local time of sunrise and sunset for date under cursor.
-Accurate to a few seconds.
-
-\(fn &optional EVENT)" t nil)
-
-(autoload 'calendar-sunrise-sunset-month "solar" "\
-Local time of sunrise and sunset for month under cursor or at EVENT.
-
-\(fn &optional EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil nil ("appt.el" "cal-dst.el" "cal-menu.el" "calendar.el"
-;;;;;; "icalendar.el" "parse-time.el" "time-date.el" "timeclock.el"
-;;;;;; "todo-mode.el") (20793 40498 550881 724000))
-
-;;;***
-\f
-(provide 'cal-loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; cal-loaddefs.el ends here
+++ /dev/null
-;;; diary-loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (diary-bahai-date diary-bahai-mark-entries calendar-bahai-mark-date-pattern
-;;;;;; diary-bahai-list-entries) "cal-bahai" "cal-bahai.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from cal-bahai.el
-
-(autoload 'diary-bahai-list-entries "cal-bahai" "\
-Add any Bahá'í date entries from the diary file to `diary-entries-list'.
-Bahá'í date diary entries must be prefaced by `diary-bahai-entry-symbol'
-\(normally a `B'). The same diary date forms govern the style of the
-Bahá'í calendar entries, except that the Bahá'í month names cannot be
-abbreviated. The Bahá'í months are numbered from 1 to 19 with Bahá being
-1 and 19 being `Alá. If a Bahá'í date diary entry begins with
-`diary-nonmarking-symbol', the entry will appear in the diary listing, but
-will not be marked in the calendar. This function is provided for use with
-`diary-nongregorian-listing-hook'.
-
-\(fn)" nil nil)
-
-(autoload 'calendar-bahai-mark-date-pattern "cal-bahai" "\
-Mark dates in calendar window that conform to Bahá'í date MONTH/DAY/YEAR.
-A value of 0 in any position is a wildcard. Optional argument COLOR is
-passed to `calendar-mark-visible-date' as MARK.
-
-\(fn MONTH DAY YEAR &optional COLOR)" nil nil)
-
-(autoload 'diary-bahai-mark-entries "cal-bahai" "\
-Mark days in the calendar window that have Bahá'í date diary entries.
-Marks each entry in `diary-file' (or included files) visible in the calendar
-window. See `diary-bahai-list-entries' for more information.
-
-\(fn)" nil nil)
-
-(autoload 'diary-bahai-date "cal-bahai" "\
-Bahá'í calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-chinese-date) "cal-china" "cal-china.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-china.el
-
-(autoload 'diary-chinese-date "cal-china" "\
-Chinese calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-ethiopic-date diary-coptic-date) "cal-coptic"
-;;;;;; "cal-coptic.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-coptic.el
-
-(autoload 'diary-coptic-date "cal-coptic" "\
-Coptic calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-(autoload 'diary-ethiopic-date "cal-coptic" "\
-Ethiopic calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-french-date) "cal-french" "cal-french.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-french.el
-
-(autoload 'diary-french-date "cal-french" "\
-French calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-hebrew-sabbath-candles diary-hebrew-parasha
-;;;;;; diary-hebrew-rosh-hodesh diary-hebrew-yahrzeit diary-hebrew-omer
-;;;;;; diary-hebrew-birthday diary-hebrew-date diary-hebrew-mark-entries
-;;;;;; calendar-hebrew-mark-date-pattern diary-hebrew-list-entries)
-;;;;;; "cal-hebrew" "cal-hebrew.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-hebrew.el
-
-(autoload 'diary-hebrew-list-entries "cal-hebrew" "\
-Add any Hebrew date entries from the diary file to `diary-entries-list'.
-Hebrew date diary entries must be prefaced by `diary-hebrew-entry-symbol'
-\(normally an `H'). The same diary date forms govern the style
-of the Hebrew calendar entries, except that the Hebrew month
-names cannot be abbreviated. The Hebrew months are numbered
-from 1 to 13 with Nisan being 1, 12 being Adar I and 13 being
-Adar II; you must use `Adar I' if you want Adar of a common
-Hebrew year. If a Hebrew date diary entry begins with
-`diary-nonmarking-symbol', the entry will appear in the diary
-listing, but will not be marked in the calendar. This function
-is provided for use with `diary-nongregorian-listing-hook'.
-
-\(fn)" nil nil)
-
-(define-obsolete-function-alias 'list-hebrew-diary-entries 'diary-hebrew-list-entries "23.1")
-
-(autoload 'calendar-hebrew-mark-date-pattern "cal-hebrew" "\
-Mark dates in calendar window that conform to Hebrew date MONTH/DAY/YEAR.
-A value of 0 in any position is a wildcard. Optional argument COLOR is
-passed to `calendar-mark-visible-date' as MARK.
-
-\(fn MONTH DAY YEAR &optional COLOR)" nil nil)
-
-(define-obsolete-function-alias 'mark-hebrew-calendar-date-pattern 'calendar-hebrew-mark-date-pattern "23.1")
-
-(autoload 'diary-hebrew-mark-entries "cal-hebrew" "\
-Mark days in the calendar window that have Hebrew date diary entries.
-Marks each entry in `diary-file' (or included files) visible in the calendar
-window. See `list-hebrew-diary-entries' for more information.
-
-\(fn)" nil nil)
-
-(define-obsolete-function-alias 'mark-hebrew-diary-entries 'diary-hebrew-mark-entries "23.1")
-
-(define-obsolete-function-alias 'insert-hebrew-diary-entry 'diary-hebrew-insert-entry "23.1")
-
-(define-obsolete-function-alias 'insert-monthly-hebrew-diary-entry 'diary-hebrew-insert-monthly-entry "23.1")
-
-(define-obsolete-function-alias 'insert-yearly-hebrew-diary-entry 'diary-hebrew-insert-yearly-entry "23.1")
-
-(autoload 'diary-hebrew-date "cal-hebrew" "\
-Hebrew calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-(autoload 'diary-hebrew-birthday "cal-hebrew" "\
-Hebrew birthday diary entry.
-Entry applies if date is birthdate (MONTH DAY YEAR), or the day before.
-The order of the input parameters changes according to
-`calendar-date-style' (e.g. to DAY MONTH YEAR in the European style).
-
-Assumes the associated diary entry is the name of the person.
-
-Although the date of birth is specified by the *civil* calendar,
-this function determines the proper Hebrew calendar birthday.
-If the optional argument AFTER-SUNSET is non-nil, this means the
-birth occurred after local sunset on the given civil date.
-In this case, the following civil date corresponds to the Hebrew birthday.
-
-\(fn MONTH DAY YEAR &optional AFTER-SUNSET)" nil nil)
-
-(autoload 'diary-hebrew-omer "cal-hebrew" "\
-Omer count diary entry.
-Entry applies if date is within 50 days after Passover.
-
-An optional parameter MARK specifies a face or single-character string to
-use when highlighting the day in the calendar.
-
-\(fn &optional MARK)" nil nil)
-
-(define-obsolete-function-alias 'diary-omer 'diary-hebrew-omer "23.1")
-
-(autoload 'diary-hebrew-yahrzeit "cal-hebrew" "\
-Yahrzeit diary entry--entry applies if date is Yahrzeit or the day before.
-Parameters are DEATH-MONTH, DEATH-DAY, DEATH-YEAR; the diary
-entry is assumed to be the name of the person. Although the date
-of death is specified by the civil calendar, the proper Hebrew
-calendar Yahrzeit is determined.
-
-If the death occurred after local sunset on the given civil date,
-the following civil date corresponds to the Hebrew date of
-death--set the optional parameter AFTER-SUNSET non-nil in this case.
-
-The order of the input parameters changes according to `calendar-date-style'
-\(e.g. to DEATH-DAY, DEATH-MONTH, DEATH-YEAR in the European style).
-
-An optional parameter MARK specifies a face or single-character string to
-use when highlighting the day in the calendar.
-
-\(fn DEATH-MONTH DEATH-DAY DEATH-YEAR &optional MARK AFTER-SUNSET)" nil nil)
-
-(define-obsolete-function-alias 'diary-yahrzeit 'diary-hebrew-yahrzeit "23.1")
-
-(autoload 'diary-hebrew-rosh-hodesh "cal-hebrew" "\
-Rosh Hodesh diary entry.
-Entry applies if date is Rosh Hodesh, the day before, or the Saturday before.
-
-An optional parameter MARK specifies a face or single-character string to
-use when highlighting the day in the calendar.
-
-\(fn &optional MARK)" nil nil)
-
-(define-obsolete-function-alias 'diary-rosh-hodesh 'diary-hebrew-rosh-hodesh "23.1")
-
-(autoload 'diary-hebrew-parasha "cal-hebrew" "\
-Parasha diary entry--entry applies if date is a Saturday.
-An optional parameter MARK specifies a face or single-character string to
-use when highlighting the day in the calendar.
-
-\(fn &optional MARK)" nil nil)
-
-(autoload 'diary-hebrew-sabbath-candles "cal-hebrew" "\
-Local time of candle lighting diary entry--applies if date is a Friday.
-No diary entry if there is no sunset on that date. Uses
-`diary-hebrew-sabbath-candles-minutes'.
-
-An optional parameter MARK specifies a face or single-character string to
-use when highlighting the day in the calendar.
-
-\(fn &optional MARK)" nil nil)
-
-(define-obsolete-function-alias 'diary-sabbath-candles 'diary-hebrew-sabbath-candles "23.1")
-
-;;;***
-\f
-;;;### (autoloads (diary-islamic-date diary-islamic-mark-entries
-;;;;;; calendar-islamic-mark-date-pattern diary-islamic-list-entries)
-;;;;;; "cal-islam" "cal-islam.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-islam.el
-
-(autoload 'diary-islamic-list-entries "cal-islam" "\
-Add any Islamic date entries from the diary file to `diary-entries-list'.
-Islamic date diary entries must be prefaced by `diary-islamic-entry-symbol'
-\(normally an `I'). The same `diary-date-forms' govern the style
-of the Islamic calendar entries, except that the Islamic month
-names cannot be abbreviated. The Islamic months are numbered
-from 1 to 12 with Muharram being 1 and 12 being Dhu al-Hijjah.
-If an Islamic date diary entry begins with `diary-nonmarking-symbol',
-the entry will appear in the diary listing, but will not be
-marked in the calendar. This function is provided for use with
-`diary-nongregorian-listing-hook'.
-
-\(fn)" nil nil)
-
-(autoload 'calendar-islamic-mark-date-pattern "cal-islam" "\
-Mark dates in calendar window that conform to Islamic date MONTH/DAY/YEAR.
-A value of 0 in any position is a wildcard. Optional argument COLOR is
-passed to `calendar-mark-visible-date' as MARK.
-
-\(fn MONTH DAY YEAR &optional COLOR)" nil nil)
-
-(autoload 'diary-islamic-mark-entries "cal-islam" "\
-Mark days in the calendar window that have Islamic date diary entries.
-Marks each entry in `diary-file' (or included files) visible in the calendar
-window. See `diary-islamic-list-entries' for more information.
-
-\(fn)" nil nil)
-
-(autoload 'diary-islamic-date "cal-islam" "\
-Islamic calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-iso-date) "cal-iso" "cal-iso.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from cal-iso.el
-
-(autoload 'diary-iso-date "cal-iso" "\
-ISO calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-astro-day-number diary-julian-date) "cal-julian"
-;;;;;; "cal-julian.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-julian.el
-
-(autoload 'diary-julian-date "cal-julian" "\
-Julian calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-(autoload 'diary-astro-day-number "cal-julian" "\
-Astronomical (Julian) day number diary entry.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-mayan-date) "cal-mayan" "cal-mayan.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from cal-mayan.el
-
-(autoload 'diary-mayan-date "cal-mayan" "\
-Show the Mayan long count, haab, and tzolkin dates as a diary entry.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-persian-date) "cal-persia" "cal-persia.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cal-persia.el
-
-(autoload 'diary-persian-date "cal-persia" "\
-Persian calendar equivalent of date diary entry.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar-check-holidays calendar-holiday-list)
-;;;;;; "holidays" "holidays.el" (20707 18685 911514 0))
-;;; Generated autoloads from holidays.el
-
-(autoload 'calendar-holiday-list "holidays" "\
-Form the list of holidays that occur on dates in the calendar window.
-The holidays are those in the list `calendar-holidays'.
-
-\(fn)" nil nil)
-
-(autoload 'calendar-check-holidays "holidays" "\
-Check the list of holidays for any that occur on DATE.
-DATE is a list (month day year). This function considers the
-holidays from the list `calendar-holidays', and returns a list of
-strings describing those holidays that apply on DATE, or nil if none do.
-
-\(fn DATE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-lunar-phases) "lunar" "lunar.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from lunar.el
-
-(autoload 'diary-lunar-phases "lunar" "\
-Moon phases diary entry.
-An optional parameter MARK specifies a face or single-character string to
-use when highlighting the day in the calendar.
-
-\(fn &optional MARK)" nil nil)
-
-(define-obsolete-function-alias 'diary-phases-of-moon 'diary-lunar-phases "23.1")
-
-;;;***
-\f
-;;;### (autoloads (diary-sunrise-sunset) "solar" "solar.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from solar.el
-
-(autoload 'diary-sunrise-sunset "solar" "\
-Local time of sunrise and sunset as a diary entry.
-Accurate to a few seconds.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil nil ("appt.el" "cal-dst.el" "cal-html.el" "cal-loaddefs.el"
-;;;;;; "cal-menu.el" "cal-move.el" "cal-tex.el" "cal-x.el" "calendar.el"
-;;;;;; "diary-lib.el" "icalendar.el" "parse-time.el" "time-date.el"
-;;;;;; "timeclock.el" "todo-mode.el") (20793 40498 750271 676000))
-
-;;;***
-\f
-(provide 'diary-loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; diary-loaddefs.el ends here
+++ /dev/null
-;;; hol-loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (holiday-bahai-ridvan holiday-bahai-new-year holiday-bahai)
-;;;;;; "cal-bahai" "cal-bahai.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-bahai.el
-
-(autoload 'holiday-bahai "cal-bahai" "\
-Holiday on MONTH, DAY (Bahá'í) called STRING.
-If MONTH, DAY (Bahá'í) is visible in the current calendar window,
-returns the corresponding Gregorian date in the form of the
-list (((month day year) STRING)). Otherwise, returns nil.
-
-\(fn MONTH DAY STRING)" nil nil)
-
-(autoload 'holiday-bahai-new-year "cal-bahai" "\
-Holiday entry for the Bahá'í New Year, if visible in the calendar window.
-
-\(fn)" nil nil)
-
-(autoload 'holiday-bahai-ridvan "cal-bahai" "\
-Holidays related to Ridvan, as visible in the calendar window.
-Only considers the first, ninth, and twelfth days, unless ALL or
-`calendar-bahai-all-holidays-flag' is non-nil.
-
-\(fn &optional ALL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (holiday-chinese holiday-chinese-winter-solstice
-;;;;;; holiday-chinese-qingming holiday-chinese-new-year) "cal-china"
-;;;;;; "cal-china.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-china.el
-
-(autoload 'holiday-chinese-new-year "cal-china" "\
-Date of Chinese New Year, if visible in calendar.
-Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
-
-\(fn)" nil nil)
-
-(autoload 'holiday-chinese-qingming "cal-china" "\
-Date of Chinese Qingming Festival, if visible in calendar.
-Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
-
-\(fn)" nil nil)
-
-(autoload 'holiday-chinese-winter-solstice "cal-china" "\
-Date of Chinese winter solstice, if visible in calendar.
-Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
-
-\(fn)" nil nil)
-
-(autoload 'holiday-chinese "cal-china" "\
-Holiday on Chinese MONTH, DAY called STRING.
-If MONTH, DAY (Chinese) is visible, returns the corresponding
-Gregorian date as the list (((month day year) STRING)).
-Returns nil if it is not visible in the current calendar window.
-
-\(fn MONTH DAY STRING)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (holiday-hebrew-misc holiday-hebrew-tisha-b-av
-;;;;;; holiday-hebrew-passover holiday-hebrew-hanukkah holiday-hebrew-rosh-hashanah
-;;;;;; holiday-hebrew) "cal-hebrew" "cal-hebrew.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from cal-hebrew.el
-
-(autoload 'holiday-hebrew "cal-hebrew" "\
-Holiday on MONTH, DAY (Hebrew) called STRING.
-If MONTH, DAY (Hebrew) is visible, the value returned is corresponding
-Gregorian date in the form of the list (((month day year) STRING)). Returns
-nil if it is not visible in the current calendar window.
-
-\(fn MONTH DAY STRING)" nil nil)
-
-(autoload 'holiday-hebrew-rosh-hashanah "cal-hebrew" "\
-List of dates related to Rosh Hashanah, as visible in calendar window.
-Shows only the major holidays, unless `calendar-hebrew-all-holidays-flag'
-or ALL is non-nil.
-
-\(fn &optional ALL)" nil nil)
-
-(define-obsolete-function-alias 'holiday-rosh-hashanah-etc 'holiday-hebrew-rosh-hashanah "23.1")
-
-(autoload 'holiday-hebrew-hanukkah "cal-hebrew" "\
-List of dates related to Hanukkah, as visible in calendar window.
-Shows only Hanukkah, unless `calendar-hebrew-all-holidays-flag' or ALL
-is non-nil.
-
-\(fn &optional ALL)" nil nil)
-
-(define-obsolete-function-alias 'holiday-hanukkah 'holiday-hebrew-hanukkah "23.1")
-
-(autoload 'holiday-hebrew-passover "cal-hebrew" "\
-List of dates related to Passover, as visible in calendar window.
-Shows only the major holidays, unless `calendar-hebrew-all-holidays-flag'
-or ALL is non-nil.
-
-\(fn &optional ALL)" nil nil)
-
-(define-obsolete-function-alias 'holiday-passover-etc 'holiday-hebrew-passover "23.1")
-
-(autoload 'holiday-hebrew-tisha-b-av "cal-hebrew" "\
-List of dates around Tisha B'Av, as visible in calendar window.
-
-\(fn)" nil nil)
-
-(define-obsolete-function-alias 'holiday-tisha-b-av-etc 'holiday-hebrew-tisha-b-av "23.1")
-
-(autoload 'holiday-hebrew-misc "cal-hebrew" "\
-Miscellaneous Hebrew holidays, if visible in calendar window.
-Includes: Tal Umatar, Tzom Teveth, Tu B'Shevat, Shabbat Shirah, and
-Kiddush HaHamah.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (holiday-islamic-new-year holiday-islamic) "cal-islam"
-;;;;;; "cal-islam.el" (20707 18685 911514 0))
-;;; Generated autoloads from cal-islam.el
-
-(autoload 'holiday-islamic "cal-islam" "\
-Holiday on MONTH, DAY (Islamic) called STRING.
-If MONTH, DAY (Islamic) is visible, returns the corresponding
-Gregorian date as the list (((month day year) STRING)).
-Returns nil if it is not visible in the current calendar window.
-
-\(fn MONTH DAY STRING)" nil nil)
-
-(autoload 'holiday-islamic-new-year "cal-islam" "\
-Holiday entry for the Islamic New Year, if visible in the calendar window.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (holiday-julian) "cal-julian" "cal-julian.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from cal-julian.el
-
-(autoload 'holiday-julian "cal-julian" "\
-Holiday on MONTH, DAY (Julian) called STRING.
-If MONTH, DAY (Julian) is visible, the value returned is corresponding
-Gregorian date in the form of the list (((month day year) STRING)). Returns
-nil if it is not visible in the current calendar window.
-
-\(fn MONTH DAY STRING)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (solar-equinoxes-solstices) "solar" "solar.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from solar.el
-
-(autoload 'solar-equinoxes-solstices "solar" "\
-Local date and time of equinoxes and solstices, if visible in the calendar.
-Requires floating point.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil nil ("appt.el" "cal-coptic.el" "cal-dst.el"
-;;;;;; "cal-french.el" "cal-html.el" "cal-iso.el" "cal-loaddefs.el"
-;;;;;; "cal-mayan.el" "cal-menu.el" "cal-move.el" "cal-persia.el"
-;;;;;; "cal-tex.el" "cal-x.el" "calendar.el" "diary-lib.el" "diary-loaddefs.el"
-;;;;;; "holidays.el" "icalendar.el" "lunar.el" "parse-time.el" "time-date.el"
-;;;;;; "timeclock.el" "todo-mode.el") (20793 40499 276229 696000))
-
-;;;***
-\f
-(provide 'hol-loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; hol-loaddefs.el ends here
+++ /dev/null
-;;; loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (ede-cpp-root-project-root) "ede/cpp-root" "cpp-root.el"
-;;;;;; "390335e8b40807bcc7dd6b9ecfbbb786")
-;;; Generated autoloads from cpp-root.el
-
-(autoload 'ede-cpp-root-project-root "ede/cpp-root" "\
-Get the root directory for DIR.
-
-\(fn &optional DIR)" nil nil)
-
-(ede-add-project-autoload (ede-project-autoload "cpp-root" :name "CPP ROOT" :file 'ede-cpp-root :proj-file 'ede-cpp-root-project-file-for-dir :proj-root 'ede-cpp-root-project-root :load-type 'ede-cpp-root-load :class-sym 'ede-cpp-root :new-p nil :safe-p t) 'unique)
-
-;;;***
-\f
-;;;### (autoloads (ede-project-sort-targets ede-customize-current-target
-;;;;;; ede-customize-project) "ede/custom" "custom.el" "856181c6583938388b9fa46720cb2b25")
-;;; Generated autoloads from custom.el
-
-(autoload 'ede-customize-project "ede/custom" "\
-Edit fields of the current project through EIEIO & Custom.
-
-\(fn)" t nil)
-
-(defalias 'customize-project 'ede-customize-project)
-
-(autoload 'ede-customize-current-target "ede/custom" "\
-Edit fields of the current target through EIEIO & Custom.
-
-\(fn)" t nil)
-
-(defalias 'customize-target 'ede-customize-current-target)
-
-(autoload 'ede-project-sort-targets "ede/custom" "\
-Create a custom-like buffer for sorting targets of current project.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ede-emacs-project-root) "ede/emacs" "emacs.el"
-;;;;;; "314cd162c83d80b4e3e58e70e5298438")
-;;; Generated autoloads from emacs.el
-
-(autoload 'ede-emacs-project-root "ede/emacs" "\
-Get the root directory for DIR.
-
-\(fn &optional DIR)" nil nil)
-
-(ede-add-project-autoload (ede-project-autoload "emacs" :name "EMACS ROOT" :file 'ede/emacs :proj-file "src/emacs.c" :proj-root-dirmatch "emacs[^/]*" :proj-root 'ede-emacs-project-root :load-type 'ede-emacs-load :class-sym 'ede-emacs-project :new-p nil :safe-p t) 'unique)
-
-;;;***
-\f
-;;;### (autoloads (ede-find-file) "ede/files" "files.el" "feaabd59d89f91d8c0a2684a5c1094de")
-;;; Generated autoloads from files.el
-
-(autoload 'ede-find-file "ede/files" "\
-Find FILE in project. FILE can be specified without a directory.
-There is no completion at the prompt. FILE is searched for within
-the current EDE project.
-
-\(fn FILE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ede-enable-generic-projects) "ede/generic" "generic.el"
-;;;;;; "f8cee9b06faf0fbfd680e27f27cd0a86")
-;;; Generated autoloads from generic.el
-
-(autoload 'ede-enable-generic-projects "ede/generic" "\
-Enable generic project loaders.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ede-linux-load ede-linux-project-root) "ede/linux"
-;;;;;; "linux.el" "1dffda7f812a76dc23f1bddb1b75b0ba")
-;;; Generated autoloads from linux.el
-
-(autoload 'ede-linux-project-root "ede/linux" "\
-Get the root directory for DIR.
-
-\(fn &optional DIR)" nil nil)
-
-(autoload 'ede-linux-load "ede/linux" "\
-Return an Linux Project object if there is a match.
-Return nil if there isn't one.
-Argument DIR is the directory it is created for.
-ROOTPROJ is nil, since there is only one project.
-
-\(fn DIR &optional ROOTPROJ)" nil nil)
-
-(ede-add-project-autoload (ede-project-autoload "linux" :name "LINUX ROOT" :file 'ede/linux :proj-file "scripts/ver_linux" :proj-root-dirmatch "linux[^/]*" :proj-root 'ede-linux-project-root :load-type 'ede-linux-load :class-sym 'ede-linux-project :new-p nil :safe-p t) 'unique)
-
-;;;***
-\f
-;;;### (autoloads (ede-enable-locate-on-project) "ede/locate" "locate.el"
-;;;;;; "75746759e62640f3ca35db80d57481dc")
-;;; Generated autoloads from locate.el
-
-(autoload 'ede-enable-locate-on-project "ede/locate" "\
-Enable an EDE locate feature on PROJECT.
-Attempt to guess which project locate style to use
-based on `ede-locate-setup-options'.
-
-\(fn &optional PROJECT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ede-make-check-version) "ede/make" "make.el" "84364d952d6bc626c1a605a7e823c3cb")
-;;; Generated autoloads from make.el
-
-(autoload 'ede-make-check-version "ede/make" "\
-Check the version of GNU Make installed.
-The check passes if the MAKE version is no high enough, or if it
-is not GNU make.
-If NOERROR is non-nil, return t for success, nil for failure.
-If NOERROR is nil, then throw an error on failure. Return t otherwise.
-
-\(fn &optional NOERROR)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ede-speedbar-file-setup) "ede/speedbar" "speedbar.el"
-;;;;;; "ac8d088844e4cfc7ec3aa18e85f395d1")
-;;; Generated autoloads from speedbar.el
-
-(autoload 'ede-speedbar-file-setup "ede/speedbar" "\
-Setup some keybindings in the Speedbar File display.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (ede-vc-project-directory ede-upload-html-documentation
-;;;;;; ede-upload-distribution ede-edit-web-page ede-web-browse-home)
-;;;;;; "ede/system" "system.el" "af9b58fc58b806c47ac6eebb05f595dd")
-;;; Generated autoloads from system.el
-
-(autoload 'ede-web-browse-home "ede/system" "\
-Browse the home page of the current project.
-
-\(fn)" t nil)
-
-(autoload 'ede-edit-web-page "ede/system" "\
-Edit the web site for this project.
-
-\(fn)" t nil)
-
-(autoload 'ede-upload-distribution "ede/system" "\
-Upload the current distribution to the correct location.
-Use /user@ftp.site.com: file names for FTP sites.
-Download tramp, and use /r:machine: for names on remote sites w/out FTP access.
-
-\(fn)" t nil)
-
-(autoload 'ede-upload-html-documentation "ede/system" "\
-Upload the current distributions documentation as HTML.
-Use /user@ftp.site.com: file names for FTP sites.
-Download tramp, and use /r:machine: for names on remote sites w/out FTP access.
-
-\(fn)" t nil)
-
-(autoload 'ede-vc-project-directory "ede/system" "\
-Run `vc-dir' on the current project.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ede-update-version) "ede/util" "util.el" "7694c70ea28eab86440b482cf66e8f73")
-;;; Generated autoloads from util.el
-
-(autoload 'ede-update-version "ede/util" "\
-Update the current projects main version number.
-Argument NEWVERSION is the version number to use in the current project.
-
-\(fn NEWVERSION)" t nil)
-
-;;;***
-\f
-(provide 'loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; loaddefs.el ends here
+++ /dev/null
-;;; loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (semantic-analyze-current-context) "semantic/analyze"
-;;;;;; "analyze.el" "2af49632a953e0d0bf64841971b03347")
-;;; Generated autoloads from analyze.el
-
-(autoload 'semantic-analyze-current-context "semantic/analyze" "\
-Analyze the current context at optional POSITION.
-If called interactively, display interesting information about POSITION
-in a separate buffer.
-Returns an object based on symbol `semantic-analyze-context'.
-
-This function can be overridden with the symbol `analyze-context'.
-When overriding this function, your override will be called while
-cursor is at POSITION. In addition, your function will not be called
-if a cached copy of the return object is found.
-
-\(fn &optional POSITION)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-analyze-possible-completions semantic-analyze-type-constants)
-;;;;;; "semantic/analyze/complete" "analyze/complete.el" "44a4d253e631ee63d9b9de54f208dc5d")
-;;; Generated autoloads from analyze/complete.el
-
-(autoload 'semantic-analyze-type-constants "semantic/analyze/complete" "\
-For the tag TYPE, return any constant symbols of TYPE.
-Used as options when completing.
-
-\(fn TYPE)" nil nil)
-
-(autoload 'semantic-analyze-possible-completions "semantic/analyze/complete" "\
-Return a list of semantic tags which are possible completions.
-CONTEXT is either a position (such as point), or a precalculated
-context. Passing in a context is useful if the caller also needs
-to access parts of the analysis.
-The remaining FLAGS arguments are passed to the mode specific completion engine.
-Bad flags should be ignored by modes that don't use them.
-See `semantic-analyze-possible-completions-default' for details on the default FLAGS.
-
-Completions run through the following filters:
- * Elements currently in scope
- * Constants currently in scope
- * Elements match the :prefix in the CONTEXT.
- * Type of the completion matches the type of the context.
-Context type matching can identify the following:
- * No specific type
- * Assignment into a variable of some type.
- * Argument to a function with type constraints.
-When called interactively, displays the list of possible completions
-in a buffer.
-
-\(fn CONTEXT &rest FLAGS)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-analyze-proto-impl-toggle semantic-analyze-current-tag)
-;;;;;; "semantic/analyze/refs" "analyze/refs.el" "49a8dbd5d4dfba2c05441503a37b53b1")
-;;; Generated autoloads from analyze/refs.el
-
-(autoload 'semantic-analyze-current-tag "semantic/analyze/refs" "\
-Analyze the tag under point.
-
-\(fn)" t nil)
-
-(autoload 'semantic-analyze-proto-impl-toggle "semantic/analyze/refs" "\
-Toggle between the implementation, and a prototype of tag under point.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-bovinate-stream) "semantic/bovine" "bovine.el"
-;;;;;; "7a236d2e55e9fe21eba305e37c3651f2")
-;;; Generated autoloads from bovine.el
-
-(autoload 'semantic-bovinate-stream "semantic/bovine" "\
-Bovinate STREAM, starting at the first NONTERMINAL rule.
-Use `bovine-toplevel' if NONTERMINAL is not provided.
-This is the core routine for converting a stream into a table.
-Return the list (STREAM SEMANTIC-STREAM) where STREAM are those
-elements of STREAM that have not been used. SEMANTIC-STREAM is the
-list of semantic tokens found.
-
-\(fn STREAM &optional NONTERMINAL)" nil nil)
-
-(defalias 'semantic-parse-stream-default 'semantic-bovinate-stream)
-
-;;;***
-\f
-;;;### (autoloads (semantic-c-add-preprocessor-symbol semantic-default-c-setup)
-;;;;;; "semantic/bovine/c" "bovine/c.el" "bba379c395ddcd6152eccd893e7f5567")
-;;; Generated autoloads from bovine/c.el
-
-(autoload 'semantic-default-c-setup "semantic/bovine/c" "\
-Set up a buffer for semantic parsing of the C language.
-
-\(fn)" nil nil)
-
-(autoload 'semantic-c-add-preprocessor-symbol "semantic/bovine/c" "\
-Add a preprocessor symbol SYM with a REPLACEMENT value.
-
-\(fn SYM REPLACEMENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-gcc-setup) "semantic/bovine/gcc" "bovine/gcc.el"
-;;;;;; "f62b1a6af84859d858af3401d017b54d")
-;;; Generated autoloads from bovine/gcc.el
-
-(autoload 'semantic-gcc-setup "semantic/bovine/gcc" "\
-Setup Semantic C/C++ parsing based on GCC output.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-default-make-setup) "semantic/bovine/make"
-;;;;;; "bovine/make.el" "99e5df38c7bbb3f344c67e3f57e4c8e5")
-;;; Generated autoloads from bovine/make.el
-
-(autoload 'semantic-default-make-setup "semantic/bovine/make" "\
-Set up a Makefile buffer for parsing with semantic.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-default-scheme-setup) "semantic/bovine/scm"
-;;;;;; "bovine/scm.el" "3e635163c7361d0e0954f054141365a1")
-;;; Generated autoloads from bovine/scm.el
-
-(autoload 'semantic-default-scheme-setup "semantic/bovine/scm" "\
-Setup hook function for Emacs Lisp files and Semantic.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-complete-inline-project semantic-complete-self-insert
-;;;;;; semantic-complete-analyze-inline-idle semantic-complete-analyze-inline
-;;;;;; semantic-complete-analyze-and-replace semantic-complete-jump-local-members
-;;;;;; semantic-complete-jump semantic-complete-jump-local semantic-displayor-tooltip-initial-max-tags
-;;;;;; semantic-displayor-tooltip-mode) "semantic/complete" "complete.el"
-;;;;;; "d93584c80e037d1d577cd7446f4aae8d")
-;;; Generated autoloads from complete.el
-
-(defvar semantic-displayor-tooltip-mode 'standard "\
-Mode for the tooltip inline completion.
-
-Standard: Show only `semantic-displayor-tooltip-initial-max-tags'
-number of completions initially. Pressing TAB will show the
-extended set.
-
-Quiet: Only show completions when we have narrowed all
-possibilities down to a maximum of
-`semantic-displayor-tooltip-initial-max-tags' tags. Pressing TAB
-multiple times will also show completions.
-
-Verbose: Always show all completions available.
-
-The absolute maximum number of completions for all mode is
-determined through `semantic-displayor-tooltip-max-tags'.")
-
-(custom-autoload 'semantic-displayor-tooltip-mode "semantic/complete" t)
-
-(defvar semantic-displayor-tooltip-initial-max-tags 5 "\
-Maximum number of tags to be displayed initially.
-See doc-string of `semantic-displayor-tooltip-mode' for details.")
-
-(custom-autoload 'semantic-displayor-tooltip-initial-max-tags "semantic/complete" t)
-
-(autoload 'semantic-complete-jump-local "semantic/complete" "\
-Jump to a local semantic symbol.
-
-\(fn)" t nil)
-
-(autoload 'semantic-complete-jump "semantic/complete" "\
-Jump to a semantic symbol.
-
-\(fn)" t nil)
-
-(autoload 'semantic-complete-jump-local-members "semantic/complete" "\
-Jump to a semantic symbol.
-
-\(fn)" t nil)
-
-(autoload 'semantic-complete-analyze-and-replace "semantic/complete" "\
-Perform prompt completion to do in buffer completion.
-`semantic-analyze-possible-completions' is used to determine the
-possible values.
-The minibuffer is used to perform the completion.
-The result is inserted as a replacement of the text that was there.
-
-\(fn)" t nil)
-
-(autoload 'semantic-complete-analyze-inline "semantic/complete" "\
-Perform prompt completion to do in buffer completion.
-`semantic-analyze-possible-completions' is used to determine the
-possible values.
-The function returns immediately, leaving the buffer in a mode that
-will perform the completion.
-Configure `semantic-complete-inline-analyzer-displayor-class' to change
-how completion options are displayed.
-
-\(fn)" t nil)
-
-(autoload 'semantic-complete-analyze-inline-idle "semantic/complete" "\
-Perform prompt completion to do in buffer completion.
-`semantic-analyze-possible-completions' is used to determine the
-possible values.
-The function returns immediately, leaving the buffer in a mode that
-will perform the completion.
-Configure `semantic-complete-inline-analyzer-idle-displayor-class'
-to change how completion options are displayed.
-
-\(fn)" t nil)
-
-(autoload 'semantic-complete-self-insert "semantic/complete" "\
-Like `self-insert-command', but does completion afterwards.
-ARG is passed to `self-insert-command'. If ARG is nil,
-use `semantic-complete-analyze-inline' to complete.
-
-\(fn ARG)" t nil)
-
-(autoload 'semantic-complete-inline-project "semantic/complete" "\
-Perform inline completion for any symbol in the current project.
-`semantic-analyze-possible-completions' is used to determine the
-possible values.
-The function returns immediately, leaving the buffer in a mode that
-will perform the completion.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-ctxt-current-mode) "semantic/ctxt" "ctxt.el"
-;;;;;; "15e43412cdd96706f29f0024a34ea8f9")
-;;; Generated autoloads from ctxt.el
-
-(autoload 'semantic-ctxt-current-mode "semantic/ctxt" "\
-Return the major mode active at POINT.
-POINT defaults to the value of point in current buffer.
-You should override this function in multiple mode buffers to
-determine which major mode apply at point.
-
-\(fn &optional POINT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semanticdb-file-table-object) "semantic/db" "db.el"
-;;;;;; "540f52a8b5a76c42f1c9539a5037e604")
-;;; Generated autoloads from db.el
-
-(defvar semanticdb-current-database nil "\
-For a given buffer, this is the currently active database.")
-
-(defvar semanticdb-current-table nil "\
-For a given buffer, this is the currently active database table.")
-
-(autoload 'semanticdb-file-table-object "semantic/db" "\
-Return a semanticdb table belonging to FILE, make it up to date.
-If file has database tags available in the database, return it.
-If file does not have tags available, and DONTLOAD is nil,
-then load the tags for FILE, and create a new table object for it.
-DONTLOAD does not affect the creation of new database objects.
-
-\(fn FILE &optional DONTLOAD)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semanticdb-project-database-file) "semantic/db-file"
-;;;;;; "db-file.el" "ecfacda9797e02e780f15db282c94320")
-;;; Generated autoloads from db-file.el
-
-(eieio-defclass-autoload 'semanticdb-project-database-file '(semanticdb-project-database eieio-persistent) "semantic/db-file" "Database of file tables saved to disk.")
-
-;;;***
-\f
-;;;### (autoloads (semanticdb-find-tags-by-class semanticdb-find-tags-for-completion
-;;;;;; semanticdb-find-tags-by-name-regexp semanticdb-find-tags-by-name
-;;;;;; semanticdb-find-result-nth-in-buffer semanticdb-find-result-nth
-;;;;;; semanticdb-find-result-length semanticdb-strip-find-results
-;;;;;; semanticdb-find-adebug-lost-includes semanticdb-find-test-translate-path
-;;;;;; semanticdb-find-table-for-include semanticdb-find-translate-path
-;;;;;; semanticdb-find-default-throttle) "semantic/db-find" "db-find.el"
-;;;;;; "2d5bf7d2679998d2884095ee4b1eca91")
-;;; Generated autoloads from db-find.el
-
-(defvar semanticdb-find-default-throttle '(local project unloaded system recursive) "\
-The default throttle for `semanticdb-find' routines.
-The throttle controls how detailed the list of database
-tables is for a symbol lookup. The value is a list with
-the following keys:
- `file' - The file the search is being performed from.
- This option is here for completeness only, and
- is assumed to always be on.
- `local' - Tables from the same local directory are included.
- This includes files directly referenced by a file name
- which might be in a different directory.
- `project' - Tables from the same local project are included
- If `project' is specified, then `local' is assumed.
- `unloaded' - If a table is not in memory, load it. If it is not cached
- on disk either, get the source, parse it, and create
- the table.
- `system' - Tables from system databases. These are specifically
- tables from system header files, or language equivalent.
- `recursive' - For include based searches, includes tables referenced
- by included files.
- `omniscience' - Included system databases which are omniscience, or
- somehow know everything. Omniscience databases are found
- in `semanticdb-project-system-databases'.
- The Emacs Lisp system DB is an omniscience database.")
-
-(custom-autoload 'semanticdb-find-default-throttle "semantic/db-find" t)
-
-(autoload 'semanticdb-find-translate-path "semantic/db-find" "\
-Translate PATH into a list of semantic tables.
-Path translation involves identifying the PATH input argument
-in one of the following ways:
- nil - Take the current buffer, and use its include list
- buffer - Use that buffer's include list.
- filename - Use that file's include list. If the file is not
- in a buffer, see of there is a semanticdb table for it. If
- not, read that file into a buffer.
- tag - Get that tag's buffer of file file. See above.
- table - Search that table, and its include list.
- find result - Search the results of a previous find.
-
-In addition, once the base path is found, there is the possibility of
-each added table adding yet more tables to the path, so this routine
-can return a lengthy list.
-
-If argument BRUTISH is non-nil, then instead of using the include
-list, use all tables found in the parent project of the table
-identified by translating PATH. Such searches use brute force to
-scan every available table.
-
-The return value is a list of objects of type `semanticdb-table' or
-their children. In the case of passing in a find result, the result
-is returned unchanged.
-
-This routine uses `semanticdb-find-table-for-include' to translate
-specific include tags into a semanticdb table.
-
-Note: When searching using a non-brutish method, the list of
-included files will be cached between runs. Database-references
-are used to track which files need to have their include lists
-refreshed when things change. See `semanticdb-ref-test'.
-
-Note for overloading: If you opt to overload this function for your
-major mode, and your routine takes a long time, be sure to call
-
- (semantic-throw-on-input 'your-symbol-here)
-
-so that it can be called from the idle work handler.
-
-\(fn PATH BRUTISH)" nil nil)
-
-(autoload 'semanticdb-find-table-for-include "semantic/db-find" "\
-For a single INCLUDETAG found in TABLE, find a `semanticdb-table' object
-INCLUDETAG is a semantic TAG of class 'include.
-TABLE is a semanticdb table that identifies where INCLUDETAG came from.
-TABLE is optional if INCLUDETAG has an overlay of :filename attribute.
-
-\(fn INCLUDETAG &optional TABLE)" nil nil)
-
-(autoload 'semanticdb-find-test-translate-path "semantic/db-find" "\
-Call and output results of `semanticdb-find-translate-path'.
-With ARG non-nil, specify a BRUTISH translation.
-See `semanticdb-find-default-throttle' and `semanticdb-project-roots'
-for details on how this list is derived.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'semanticdb-find-adebug-lost-includes "semantic/db-find" "\
-Translate the current path, then display the lost includes.
-Examines the variable `semanticdb-find-lost-includes'.
-
-\(fn)" t nil)
-
-(autoload 'semanticdb-strip-find-results "semantic/db-find" "\
-Strip a semanticdb search RESULTS to exclude objects.
-This makes it appear more like the results of a `semantic-find-' call.
-Optional FIND-FILE-MATCH loads all files associated with RESULTS
-into buffers. This has the side effect of enabling `semantic-tag-buffer' to
-return a value.
-If FIND-FILE-MATCH is 'name, then only the filename is stored
-in each tag instead of loading each file into a buffer.
-If the input RESULTS are not going to be used again, and if
-FIND-FILE-MATCH is nil, you can use `semanticdb-fast-strip-find-results'
-instead.
-
-\(fn RESULTS &optional FIND-FILE-MATCH)" nil nil)
-
-(autoload 'semanticdb-find-result-length "semantic/db-find" "\
-Number of tags found in RESULT.
-
-\(fn RESULT)" nil nil)
-
-(autoload 'semanticdb-find-result-nth "semantic/db-find" "\
-In RESULT, return the Nth search result.
-This is a 0 based search result, with the first match being element 0.
-
-The returned value is a cons cell: (TAG . TABLE) where TAG
-is the tag at the Nth position. TABLE is the semanticdb table where
-the TAG was found. Sometimes TABLE can be nil.
-
-\(fn RESULT N)" nil nil)
-
-(autoload 'semanticdb-find-result-nth-in-buffer "semantic/db-find" "\
-In RESULT, return the Nth search result.
-Like `semanticdb-find-result-nth', except that only the TAG
-is returned, and the buffer it is found it will be made current.
-If the result tag has no position information, the originating buffer
-is still made current.
-
-\(fn RESULT N)" nil nil)
-
-(autoload 'semanticdb-find-tags-by-name "semantic/db-find" "\
-Search for all tags matching NAME on PATH.
-See `semanticdb-find-translate-path' for details on PATH.
-FIND-FILE-MATCH indicates that any time a match is found, the file
-associated with that tag should be loaded into a buffer.
-
-\(fn NAME &optional PATH FIND-FILE-MATCH)" nil nil)
-
-(autoload 'semanticdb-find-tags-by-name-regexp "semantic/db-find" "\
-Search for all tags matching REGEXP on PATH.
-See `semanticdb-find-translate-path' for details on PATH.
-FIND-FILE-MATCH indicates that any time a match is found, the file
-associated with that tag should be loaded into a buffer.
-
-\(fn REGEXP &optional PATH FIND-FILE-MATCH)" nil nil)
-
-(autoload 'semanticdb-find-tags-for-completion "semantic/db-find" "\
-Search for all tags matching PREFIX on PATH.
-See `semanticdb-find-translate-path' for details on PATH.
-FIND-FILE-MATCH indicates that any time a match is found, the file
-associated with that tag should be loaded into a buffer.
-
-\(fn PREFIX &optional PATH FIND-FILE-MATCH)" nil nil)
-
-(autoload 'semanticdb-find-tags-by-class "semantic/db-find" "\
-Search for all tags of CLASS on PATH.
-See `semanticdb-find-translate-path' for details on PATH.
-FIND-FILE-MATCH indicates that any time a match is found, the file
-associated with that tag should be loaded into a buffer.
-
-\(fn CLASS &optional PATH FIND-FILE-MATCH)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semanticdb-enable-gnu-global-databases) "semantic/db-global"
-;;;;;; "db-global.el" "884cb85331fac4b472b83415918e9868")
-;;; Generated autoloads from db-global.el
-
-(autoload 'semanticdb-enable-gnu-global-databases "semantic/db-global" "\
-Enable the use of the GNU Global SemanticDB back end for all files of MODE.
-This will add an instance of a GNU Global database to each buffer
-in a GNU Global supported hierarchy.
-
-Two sanity checks are performed to assure (a) that GNU global program exists
-and (b) that the GNU global program version is compatibility with the database
-version. If optional NOERROR is nil, then an error may be signalled on version
-mismatch. If NOERROR is not nil, then no error will be signaled. Instead
-return value will indicate success or failure with non-nil or nil respective
-values.
-
-\(fn MODE &optional NOERROR)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (global-semanticdb-minor-mode semanticdb-minor-mode-p)
-;;;;;; "semantic/db-mode" "db-mode.el" "118c69ec555ed67ae074566d5e09437e")
-;;; Generated autoloads from db-mode.el
-
-(autoload 'semanticdb-minor-mode-p "semantic/db-mode" "\
-Return non-nil if `semanticdb-minor-mode' is active.
-
-\(fn)" nil nil)
-
-(defvar global-semanticdb-minor-mode nil "\
-Non-nil if Global-Semanticdb minor mode is enabled.
-See the command `global-semanticdb-minor-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-semanticdb-minor-mode'.")
-
-(custom-autoload 'global-semanticdb-minor-mode "semantic/db-mode" nil)
-
-(autoload 'global-semanticdb-minor-mode "semantic/db-mode" "\
-Toggle Semantic DB mode.
-With ARG, turn Semantic DB mode on if ARG is positive, off otherwise.
-
-In Semantic DB mode, Semantic parsers store results in a
-database, which can be saved for future Emacs sessions.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semanticdb-typecache-find semanticdb-database-typecache
-;;;;;; semanticdb-typecache) "semantic/db-typecache" "db-typecache.el"
-;;;;;; "74f0006cfde8826ff37cf80587dcad23")
-;;; Generated autoloads from db-typecache.el
-
-(eieio-defclass-autoload 'semanticdb-typecache 'nil "semantic/db-typecache" "Structure for maintaining a typecache.")
-
-(eieio-defclass-autoload 'semanticdb-database-typecache '(semanticdb-abstract-db-cache) "semantic/db-typecache" "Structure for maintaining a typecache.")
-
-(autoload 'semanticdb-typecache-find "semantic/db-typecache" "\
-Search the typecache for TYPE in PATH.
-If type is a string, split the string, and search for the parts.
-If type is a list, treat the type as a pre-split string.
-PATH can be nil for the current buffer, or a semanticdb table.
-FIND-FILE-MATCH is non-nil to force all found tags to be loaded into a buffer.
-
-\(fn TYPE &optional PATH FIND-FILE-MATCH)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "semantic/debug" "debug.el" "c708ca44f240343d3a0a5e6e604b73ef")
-;;; Generated autoloads from debug.el
-
-(defvar semantic-debug-parser-source nil "\
-For any buffer, the file name (no path) of the parser.
-This would be a parser for a specific language, not the source
-to one of the parser generators.")
-
-(make-variable-buffer-local 'semantic-debug-parser-source)
-
-(defvar semantic-debug-parser-class nil "\
-Class to create when building a debug parser object.")
-
-(make-variable-buffer-local 'semantic-debug-parser-class)
-
-;;;***
-\f
-;;;### (autoloads (semantic-decoration-unparsed-include-do-reset
-;;;;;; semantic-decoration-include-visit) "semantic/decorate/include"
-;;;;;; "decorate/include.el" "18ecd50e0f9009bcb411858fff005800")
-;;; Generated autoloads from decorate/include.el
-
-(autoload 'semantic-decoration-include-visit "semantic/decorate/include" "\
-Visit the included file at point.
-
-\(fn)" t nil)
-
-(autoload 'semantic-decoration-unparsed-include-do-reset "semantic/decorate/include" "\
-Do a reset of unparsed includes in the current buffer.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (global-semantic-decoration-mode) "semantic/decorate/mode"
-;;;;;; "decorate/mode.el" "9e4e266461dbc83f0da3fdb06d2e9c15")
-;;; Generated autoloads from decorate/mode.el
-
-(defvar global-semantic-decoration-mode nil "\
-Non-nil if Global-Semantic-Decoration mode is enabled.
-See the command `global-semantic-decoration-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-semantic-decoration-mode'.")
-
-(custom-autoload 'global-semantic-decoration-mode "semantic/decorate/mode" nil)
-
-(autoload 'global-semantic-decoration-mode "semantic/decorate/mode" "\
-Toggle global use of option `semantic-decoration-mode'.
-Decoration mode turns on all active decorations as specified
-by `semantic-decoration-styles'.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-customize-system-include-path semantic-reset-system-include
-;;;;;; semantic-remove-system-include semantic-add-system-include)
-;;;;;; "semantic/dep" "dep.el" "7bc067756058a6bf82b50ec54eb56e68")
-;;; Generated autoloads from dep.el
-
-(autoload 'semantic-add-system-include "semantic/dep" "\
-Add a system include DIR to path for MODE.
-Modifies a mode-local version of `semantic-dependency-system-include-path'.
-
-Changes made by this function are not persistent.
-
-\(fn DIR &optional MODE)" t nil)
-
-(autoload 'semantic-remove-system-include "semantic/dep" "\
-Add a system include DIR to path for MODE.
-Modifies a mode-local version of`semantic-dependency-system-include-path'.
-
-Changes made by this function are not persistent.
-
-\(fn DIR &optional MODE)" t nil)
-
-(autoload 'semantic-reset-system-include "semantic/dep" "\
-Reset the system include list to empty for MODE.
-Modifies a mode-local version of
-`semantic-dependency-system-include-path'.
-
-\(fn &optional MODE)" t nil)
-
-(autoload 'semantic-customize-system-include-path "semantic/dep" "\
-Customize the include path for this `major-mode'.
-To create a customizable include path for a major MODE, use the
-macro `defcustom-mode-local-semantic-dependency-system-include-path'.
-
-\(fn &optional MODE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-documentation-for-tag) "semantic/doc"
-;;;;;; "doc.el" "10cd8ac906ac9fe3d5fe30be0ed2cb2d")
-;;; Generated autoloads from doc.el
-
-(autoload 'semantic-documentation-for-tag "semantic/doc" "\
-Find documentation from TAG and return it as a clean string.
-TAG might have DOCUMENTATION set in it already. If not, there may be
-some documentation in a comment preceding TAG's definition which we
-can look for. When appropriate, this can be overridden by a language specific
-enhancement.
-Optional argument NOSNARF means to only return the lexical analyzer token for it.
-If nosnarf if 'lex, then only return the lex token.
-
-\(fn &optional TAG NOSNARF)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-edits-incremental-parser semantic-change-function)
-;;;;;; "semantic/edit" "edit.el" "9fdd04a1ad136e6f92a8067105ca6ed2")
-;;; Generated autoloads from edit.el
-
-(autoload 'semantic-change-function "semantic/edit" "\
-Provide a mechanism for semantic tag management.
-Argument START, END, and LENGTH specify the bounds of the change.
-
-\(fn START END LENGTH)" nil nil)
-
-(autoload 'semantic-edits-incremental-parser "semantic/edit" "\
-Incrementally reparse the current buffer.
-Incremental parser allows semantic to only reparse those sections of
-the buffer that have changed. This function depends on
-`semantic-edits-change-function-handle-changes' setting up change
-overlays in the current buffer. Those overlays are analyzed against
-the semantic cache to see what needs to be changed.
-
-\(fn)" nil nil)
-
-(defalias 'semantic-parse-changes-default 'semantic-edits-incremental-parser)
-
-;;;***
-\f
-;;;### (autoloads (semantic-find-tags-included semantic-find-tags-by-scope-protection
-;;;;;; semantic-find-first-tag-by-name semantic-current-tag-parent
-;;;;;; semantic-current-tag semantic-find-tag-parent-by-overlay
-;;;;;; semantic-find-tag-by-overlay-prev semantic-find-tag-by-overlay-next
-;;;;;; semantic-find-tag-by-overlay-in-region semantic-find-tag-by-overlay)
-;;;;;; "semantic/find" "find.el" "d539cc97e8cb66b178fbe5426605cd81")
-;;; Generated autoloads from find.el
-
-(autoload 'semantic-find-tag-by-overlay "semantic/find" "\
-Find all tags covering POSITIONORMARKER by using overlays.
-If POSITIONORMARKER is nil, use the current point.
-Optional BUFFER is used if POSITIONORMARKER is a number, otherwise the current
-buffer is used. This finds all tags covering the specified position
-by checking for all overlays covering the current spot. They are then sorted
-from largest to smallest via the start location.
-
-\(fn &optional POSITIONORMARKER BUFFER)" nil nil)
-
-(autoload 'semantic-find-tag-by-overlay-in-region "semantic/find" "\
-Find all tags which exist in whole or in part between START and END.
-Uses overlays to determine position.
-Optional BUFFER argument specifies the buffer to use.
-
-\(fn START END &optional BUFFER)" nil nil)
-
-(autoload 'semantic-find-tag-by-overlay-next "semantic/find" "\
-Find the next tag after START in BUFFER.
-If START is in an overlay, find the tag which starts next,
-not the current tag.
-
-\(fn &optional START BUFFER)" nil nil)
-
-(autoload 'semantic-find-tag-by-overlay-prev "semantic/find" "\
-Find the next tag before START in BUFFER.
-If START is in an overlay, find the tag which starts next,
-not the current tag.
-
-\(fn &optional START BUFFER)" nil nil)
-
-(autoload 'semantic-find-tag-parent-by-overlay "semantic/find" "\
-Find the parent of TAG by overlays.
-Overlays are a fast way of finding this information for active buffers.
-
-\(fn TAG)" nil nil)
-
-(autoload 'semantic-current-tag "semantic/find" "\
-Return the current tag in the current buffer.
-If there are more than one in the same location, return the
-smallest tag. Return nil if there is no tag here.
-
-\(fn)" nil nil)
-
-(autoload 'semantic-current-tag-parent "semantic/find" "\
-Return the current tags parent in the current buffer.
-A tag's parent would be a containing structure, such as a type
-containing a field. Return nil if there is no parent.
-
-\(fn)" nil nil)
-
-(autoload 'semantic-find-first-tag-by-name "semantic/find" "\
-Find the first tag with NAME in TABLE.
-NAME is a string.
-TABLE is a semantic tags table. See `semantic-something-to-tag-table'.
-This routine uses `assoc' to quickly find the first matching entry.
-
-\(fn NAME &optional TABLE)" nil nil)
-
-(autoload 'semantic-find-tags-by-scope-protection "semantic/find" "\
-Find all tags accessible by SCOPEPROTECTION.
-SCOPEPROTECTION is a symbol which can be returned by the method
-`semantic-tag-protection'. A hard-coded order is used to determine a match.
-PARENT is a tag representing the PARENT slot needed for
-`semantic-tag-protection'.
-TABLE is a list of tags (a subset of PARENT members) to scan. If TABLE is nil,
-the type members of PARENT are used.
-See `semantic-tag-protected-p' for details on which tags are returned.
-
-\(fn SCOPEPROTECTION PARENT &optional TABLE)" nil nil)
-
-(autoload 'semantic-find-tags-included "semantic/find" "\
-Find all tags in TABLE that are of the 'include class.
-TABLE is a tag table. See `semantic-something-to-tag-table'.
-
-\(fn &optional TABLE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-format-tag-concise-prototype semantic-format-tag-prototype
-;;;;;; semantic-format-tag-summarize semantic-format-tag-name) "semantic/format"
-;;;;;; "format.el" "8154f2ce6ed14c11b962fc7eacd11453")
-;;; Generated autoloads from format.el
-
-(autoload 'semantic-format-tag-name "semantic/format" "\
-Return the name string describing TAG.
-The name is the shortest possible representation.
-Optional argument PARENT is the parent type if TAG is a detail.
-Optional argument COLOR means highlight the prototype with font-lock colors.
-
-\(fn TAG &optional PARENT COLOR)" nil nil)
-
-(autoload 'semantic-format-tag-summarize "semantic/format" "\
-Summarize TAG in a reasonable way.
-Optional argument PARENT is the parent type if TAG is a detail.
-Optional argument COLOR means highlight the prototype with font-lock colors.
-
-\(fn TAG &optional PARENT COLOR)" nil nil)
-
-(autoload 'semantic-format-tag-prototype "semantic/format" "\
-Return a prototype for TAG.
-This function should be overloaded, though it need not be used.
-This is because it can be used to create code by language independent
-tools.
-Optional argument PARENT is the parent type if TAG is a detail.
-Optional argument COLOR means highlight the prototype with font-lock colors.
-
-\(fn TAG &optional PARENT COLOR)" nil nil)
-
-(autoload 'semantic-format-tag-concise-prototype "semantic/format" "\
-Return a concise prototype for TAG.
-Optional argument PARENT is the parent type if TAG is a detail.
-Optional argument COLOR means highlight the prototype with font-lock colors.
-
-\(fn TAG &optional PARENT COLOR)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-default-html-setup) "semantic/html" "html.el"
-;;;;;; "57af792cac3545f740d934870011585e")
-;;; Generated autoloads from html.el
-
-(autoload 'semantic-default-html-setup "semantic/html" "\
-Set up a buffer for parsing of HTML files.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-ia-describe-class semantic-ia-show-doc
-;;;;;; semantic-ia-fast-mouse-jump semantic-ia-fast-jump semantic-ia-show-variants
-;;;;;; semantic-ia-show-summary semantic-ia-complete-tip semantic-ia-complete-symbol-menu
-;;;;;; semantic-ia-complete-symbol) "semantic/ia" "ia.el" "9c0894ca0f132524fdab9a6e907fd081")
-;;; Generated autoloads from ia.el
-
-(autoload 'semantic-ia-complete-symbol "semantic/ia" "\
-Complete the current symbol at POS.
-If POS is nil, default to point.
-Completion options are calculated with `semantic-analyze-possible-completions'.
-
-\(fn &optional POS)" t nil)
-
-(autoload 'semantic-ia-complete-symbol-menu "semantic/ia" "\
-Complete the current symbol via a menu based at POINT.
-Completion options are calculated with `semantic-analyze-possible-completions'.
-
-\(fn POINT)" t nil)
-
-(autoload 'semantic-ia-complete-tip "semantic/ia" "\
-Pop up a tooltip for completion at POINT.
-
-\(fn POINT)" t nil)
-
-(autoload 'semantic-ia-show-summary "semantic/ia" "\
-Display a summary for the symbol under POINT.
-
-\(fn POINT)" t nil)
-
-(autoload 'semantic-ia-show-variants "semantic/ia" "\
-Display a list of all variants for the symbol under POINT.
-
-\(fn POINT)" t nil)
-
-(autoload 'semantic-ia-fast-jump "semantic/ia" "\
-Jump to the tag referred to by the code at POINT.
-Uses `semantic-analyze-current-context' output to identify an accurate
-origin of the code at point.
-
-\(fn POINT)" t nil)
-
-(autoload 'semantic-ia-fast-mouse-jump "semantic/ia" "\
-Jump to the tag referred to by the point clicked on.
-See `semantic-ia-fast-jump' for details on how it works.
- This command is meant to be bound to a mouse event.
-
-\(fn EVT)" t nil)
-
-(autoload 'semantic-ia-show-doc "semantic/ia" "\
-Display the code-level documentation for the symbol at POINT.
-
-\(fn POINT)" t nil)
-
-(autoload 'semantic-ia-describe-class "semantic/ia" "\
-Display all known parts for the datatype TYPENAME.
-If the type in question is a class, all methods and other accessible
-parts of the parent classes are displayed.
-
-\(fn TYPENAME)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-speedbar-analysis) "semantic/ia-sb" "ia-sb.el"
-;;;;;; "38b0223a5c7313337be26c7b14c73d6f")
-;;; Generated autoloads from ia-sb.el
-
-(autoload 'semantic-speedbar-analysis "semantic/ia-sb" "\
-Start Speedbar in semantic analysis mode.
-The analyzer displays information about the current context, plus a smart
-list of possible completions.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (global-semantic-idle-scheduler-mode semantic-idle-scheduler-mode)
-;;;;;; "semantic/idle" "idle.el" "2f4b51b76eab7e242e5bd1c5f999f9dd")
-;;; Generated autoloads from idle.el
-
-(autoload 'semantic-idle-scheduler-mode "semantic/idle" "\
-Minor mode to auto parse buffer following a change.
-When this mode is off, a buffer is only rescanned for tokens when
-some command requests the list of available tokens. When idle-scheduler
-is enabled, Emacs periodically checks to see if the buffer is out of
-date, and reparses while the user is idle (not typing.)
-
-With prefix argument ARG, turn on if positive, otherwise off. The
-minor mode can be turned on only if semantic feature is available and
-the current buffer was set up for parsing. Return non-nil if the
-minor mode is enabled.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-semantic-idle-scheduler-mode nil "\
-Non-nil if Global-Semantic-Idle-Scheduler mode is enabled.
-See the command `global-semantic-idle-scheduler-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-semantic-idle-scheduler-mode'.")
-
-(custom-autoload 'global-semantic-idle-scheduler-mode "semantic/idle" nil)
-
-(autoload 'global-semantic-idle-scheduler-mode "semantic/idle" "\
-Toggle global use of option `semantic-idle-scheduler-mode'.
-The idle scheduler will automatically reparse buffers in idle time,
-and then schedule other jobs setup with `semantic-idle-scheduler-add'.
-If ARG is positive or nil, enable, if it is negative, disable.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-create-imenu-index semantic-imenu-expand-type-members
-;;;;;; semantic-imenu-bucketize-file semantic-imenu-summary-function)
-;;;;;; "semantic/imenu" "imenu.el" "f266140ffee1d7000efd88b5eba51a18")
-;;; Generated autoloads from imenu.el
-
-(defvar semantic-imenu-summary-function 'semantic-format-tag-abbreviate "\
-*Function to use when creating items in Imenu.
-Some useful functions are found in `semantic-format-tag-functions'.")
-
-(custom-autoload 'semantic-imenu-summary-function "semantic/imenu" t)
-
-(defvar semantic-imenu-bucketize-file t "\
-*Non-nil if tags in a file are to be grouped into buckets.")
-
-(custom-autoload 'semantic-imenu-bucketize-file "semantic/imenu" t)
-
-(defvar semantic-imenu-expand-type-members t "\
-*Non-nil if types should have submenus with members in them.")
-
-(custom-autoload 'semantic-imenu-expand-type-members "semantic/imenu" t)
-
-(defvar semantic-imenu-expandable-tag-classes '(type) "\
-List of expandable tag classes.
-Tags of those classes will be given submenu with children.
-By default, a `type' has interesting children. In Texinfo, however, a
-`section' has interesting children.")
-
-(autoload 'semantic-create-imenu-index "semantic/imenu" "\
-Create an imenu index for any buffer which supports Semantic.
-Uses the output of the Semantic parser to create the index.
-Optional argument STREAM is an optional stream of tags used to create menus.
-
-\(fn &optional STREAM)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-lex) "semantic/lex" "lex.el" "74a8a08bddea2b46e07e49dd5ee905e2")
-;;; Generated autoloads from lex.el
-
-(autoload 'semantic-lex "semantic/lex" "\
-Lexically analyze text in the current buffer between START and END.
-Optional argument DEPTH indicates at what level to scan over entire
-lists. The last argument, LENGTH specifies that `semantic-lex'
-should only return LENGTH tokens. The return value is a token stream.
-Each element is a list, such of the form
- (symbol start-expression . end-expression)
-where SYMBOL denotes the token type.
-See `semantic-lex-tokens' variable for details on token types. END
-does not mark the end of the text scanned, only the end of the
-beginning of text scanned. Thus, if a string extends past END, the
-end of the return token will be larger than END. To truly restrict
-scanning, use `narrow-to-region'.
-
-\(fn START END &optional DEPTH LENGTH)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-lex-spp-table-write-slot-value) "semantic/lex-spp"
-;;;;;; "lex-spp.el" "87180b7d660a9384a987378057662632")
-;;; Generated autoloads from lex-spp.el
-
-(autoload 'semantic-lex-spp-table-write-slot-value "semantic/lex-spp" "\
-Write out the VALUE of a slot for EIEIO.
-The VALUE is a spp lexical table.
-
-\(fn VALUE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (global-semantic-mru-bookmark-mode) "semantic/mru-bookmark"
-;;;;;; "mru-bookmark.el" "c088dd47aaec4c002897fc506266fa26")
-;;; Generated autoloads from mru-bookmark.el
-
-(defvar global-semantic-mru-bookmark-mode nil "\
-Non-nil if Global-Semantic-Mru-Bookmark mode is enabled.
-See the command `global-semantic-mru-bookmark-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-semantic-mru-bookmark-mode'.")
-
-(custom-autoload 'global-semantic-mru-bookmark-mode "semantic/mru-bookmark" nil)
-
-(autoload 'global-semantic-mru-bookmark-mode "semantic/mru-bookmark" "\
-Toggle global use of option `semantic-mru-bookmark-mode'.
-If ARG is positive or nil, enable, if it is negative, disable.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-calculate-scope) "semantic/scope" "scope.el"
-;;;;;; "b469c4d54fa7220d5020919624cbdc50")
-;;; Generated autoloads from scope.el
-
-(autoload 'semantic-calculate-scope "semantic/scope" "\
-Calculate the scope at POINT.
-If POINT is not provided, then use the current location of point.
-The class returned from the scope calculation is variable
-`semantic-scope-cache'.
-
-\(fn &optional POINT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (senator-transpose-tags-down senator-transpose-tags-up
-;;;;;; senator-copy-tag-to-register senator-yank-tag senator-kill-tag
-;;;;;; senator-copy-tag senator-go-to-up-reference senator-previous-tag
-;;;;;; senator-next-tag senator-step-at-start-end-tag-classes senator-step-at-tag-classes)
-;;;;;; "semantic/senator" "senator.el" "7ff453cdf89a91c3baaef97b981cb4be")
-;;; Generated autoloads from senator.el
-
-(defvar senator-step-at-tag-classes nil "\
-List of tag classes recognized by Senator's navigation commands.
-A tag class is a symbol, such as `variable', `function', or `type'.
-
-As a special exception, if the value is nil, Senator's navigation
-commands recognize all tag classes.")
-
-(custom-autoload 'senator-step-at-tag-classes "semantic/senator" t)
-
-(make-variable-buffer-local 'senator-step-at-tag-classes)
-
-(defvar senator-step-at-start-end-tag-classes nil "\
-List of tag classes at which Senator's navigation commands should stop.
-A tag class is a symbol, such as `variable', `function', or `type'.
-The navigation commands stop at the start and end of each tag
-class in this list, provided the tag class is recognized (see
-`senator-step-at-tag-classes').
-
-As a special exception, if the value is nil, the navigation
-commands stop at the beginning of every tag.
-
-If t, the navigation commands stop at the start and end of any
-tag, where possible.")
-
-(custom-autoload 'senator-step-at-start-end-tag-classes "semantic/senator" t)
-
-(make-variable-buffer-local 'senator-step-at-start-end-tag-classes)
-
-(autoload 'senator-next-tag "semantic/senator" "\
-Navigate to the next Semantic tag.
-Return the tag or nil if at end of buffer.
-
-\(fn)" t nil)
-
-(autoload 'senator-previous-tag "semantic/senator" "\
-Navigate to the previous Semantic tag.
-Return the tag or nil if at beginning of buffer.
-
-\(fn)" t nil)
-
-(autoload 'senator-go-to-up-reference "semantic/senator" "\
-Move up one reference from the current TAG.
-A \"reference\" could be any interesting feature of TAG.
-In C++, a function may have a 'parent' which is non-local.
-If that parent which is only a reference in the function tag
-is found, we can jump to it.
-Some tags such as includes have other reference features.
-
-\(fn &optional TAG)" t nil)
-
-(autoload 'senator-copy-tag "semantic/senator" "\
-Take the current tag, and place it in the tag ring.
-
-\(fn)" t nil)
-
-(autoload 'senator-kill-tag "semantic/senator" "\
-Take the current tag, place it in the tag ring, and kill it.
-Killing the tag removes the text for that tag, and places it into
-the kill ring. Retrieve that text with \\[yank].
-
-\(fn)" t nil)
-
-(autoload 'senator-yank-tag "semantic/senator" "\
-Yank a tag from the tag ring.
-The form the tag takes is different depending on where it is being
-yanked to.
-
-\(fn)" t nil)
-
-(autoload 'senator-copy-tag-to-register "semantic/senator" "\
-Copy the current tag into REGISTER.
-Optional argument KILL-FLAG will delete the text of the tag to the
-kill ring.
-
-\(fn REGISTER &optional KILL-FLAG)" t nil)
-
-(autoload 'senator-transpose-tags-up "semantic/senator" "\
-Transpose the current tag, and the preceding tag.
-
-\(fn)" t nil)
-
-(autoload 'senator-transpose-tags-down "semantic/senator" "\
-Transpose the current tag, and the following tag.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-tag-external-member-parent semantic-flatten-tags-table)
-;;;;;; "semantic/sort" "sort.el" "56cc425f78191d79424279ff61f24c2c")
-;;; Generated autoloads from sort.el
-
-(autoload 'semantic-flatten-tags-table "semantic/sort" "\
-Flatten the tags table TABLE.
-All tags in TABLE, and all components of top level tags
-in TABLE will appear at the top level of list.
-Tags promoted to the top of the list will still appear
-unmodified as components of their parent tags.
-
-\(fn &optional TABLE)" nil nil)
-
-(autoload 'semantic-tag-external-member-parent "semantic/sort" "\
-Return a parent for TAG when TAG is an external member.
-TAG is an external member if it is defined at a toplevel and
-has some sort of label defining a parent. The parent return will
-be a string.
-
-The default behavior, if not overridden with
-`tag-member-parent' gets the 'parent extra
-specifier of TAG.
-
-If this function is overridden, use
-`semantic-tag-external-member-parent-default' to also
-include the default behavior, and merely extend your own.
-
-\(fn TAG)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-symref-find-text semantic-symref-find-file-references-by-name
-;;;;;; semantic-symref-find-tags-by-completion semantic-symref-find-tags-by-regexp
-;;;;;; semantic-symref-find-tags-by-name semantic-symref-find-references-by-name)
-;;;;;; "semantic/symref" "symref.el" "b09faca854169c69e14c72f67b9a26f8")
-;;; Generated autoloads from symref.el
-
-(autoload 'semantic-symref-find-references-by-name "semantic/symref" "\
-Find a list of references to NAME in the current project.
-Optional SCOPE specifies which file set to search. Defaults to 'project.
-Refers to `semantic-symref-tool', to determine the reference tool to use
-for the current buffer.
-Returns an object of class `semantic-symref-result'.
-TOOL-RETURN is an optional symbol, which will be assigned the tool used
-to perform the search. This was added for use by a test harness.
-
-\(fn NAME &optional SCOPE TOOL-RETURN)" t nil)
-
-(autoload 'semantic-symref-find-tags-by-name "semantic/symref" "\
-Find a list of tags by NAME in the current project.
-Optional SCOPE specifies which file set to search. Defaults to 'project.
-Refers to `semantic-symref-tool', to determine the reference tool to use
-for the current buffer.
-Returns an object of class `semantic-symref-result'.
-
-\(fn NAME &optional SCOPE)" t nil)
-
-(autoload 'semantic-symref-find-tags-by-regexp "semantic/symref" "\
-Find a list of references to NAME in the current project.
-Optional SCOPE specifies which file set to search. Defaults to 'project.
-Refers to `semantic-symref-tool', to determine the reference tool to use
-for the current buffer.
-Returns an object of class `semantic-symref-result'.
-
-\(fn NAME &optional SCOPE)" t nil)
-
-(autoload 'semantic-symref-find-tags-by-completion "semantic/symref" "\
-Find a list of references to NAME in the current project.
-Optional SCOPE specifies which file set to search. Defaults to 'project.
-Refers to `semantic-symref-tool', to determine the reference tool to use
-for the current buffer.
-Returns an object of class `semantic-symref-result'.
-
-\(fn NAME &optional SCOPE)" t nil)
-
-(autoload 'semantic-symref-find-file-references-by-name "semantic/symref" "\
-Find a list of references to NAME in the current project.
-Optional SCOPE specifies which file set to search. Defaults to 'project.
-Refers to `semantic-symref-tool', to determine the reference tool to use
-for the current buffer.
-Returns an object of class `semantic-symref-result'.
-
-\(fn NAME &optional SCOPE)" t nil)
-
-(autoload 'semantic-symref-find-text "semantic/symref" "\
-Find a list of occurrences of TEXT in the current project.
-TEXT is a regexp formatted for use with egrep.
-Optional SCOPE specifies which file set to search. Defaults to 'project.
-Refers to `semantic-symref-tool', to determine the reference tool to use
-for the current buffer.
-Returns an object of class `semantic-symref-result'.
-
-\(fn TEXT &optional SCOPE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-symref-tool-cscope) "semantic/symref/cscope"
-;;;;;; "symref/cscope.el" "22f112c6bd920497aabfe98ed34011c7")
-;;; Generated autoloads from symref/cscope.el
-
-(eieio-defclass-autoload 'semantic-symref-tool-cscope '(semantic-symref-tool-baseclass) "semantic/symref/cscope" "A symref tool implementation using CScope.\nThe CScope command can be used to generate lists of tags in a way\nsimilar to that of `grep'. This tool will parse the output to generate\nthe hit list.\n\nSee the function `cedet-cscope-search' for more details.")
-
-;;;***
-\f
-;;;### (autoloads (semantic-symref-tool-global) "semantic/symref/global"
-;;;;;; "symref/global.el" "92163d1626dc26b29f3dfe9ffde60948")
-;;; Generated autoloads from symref/global.el
-
-(eieio-defclass-autoload 'semantic-symref-tool-global '(semantic-symref-tool-baseclass) "semantic/symref/global" "A symref tool implementation using GNU Global.\nThe GNU Global command can be used to generate lists of tags in a way\nsimilar to that of `grep'. This tool will parse the output to generate\nthe hit list.\n\nSee the function `cedet-gnu-global-search' for more details.")
-
-;;;***
-\f
-;;;### (autoloads (semantic-symref-tool-grep) "semantic/symref/grep"
-;;;;;; "symref/grep.el" "3c4fded67e7e75aa84d96c0b33ec563d")
-;;; Generated autoloads from symref/grep.el
-
-(eieio-defclass-autoload 'semantic-symref-tool-grep '(semantic-symref-tool-baseclass) "semantic/symref/grep" "A symref tool implementation using grep.\nThis tool uses EDE to find he root of the project, then executes\nfind-grep in the project. The output is parsed for hits\nand those hits returned.")
-
-;;;***
-\f
-;;;### (autoloads (semantic-symref-tool-idutils) "semantic/symref/idutils"
-;;;;;; "symref/idutils.el" "cf142ab124074d31e32c897de2f6bfe1")
-;;; Generated autoloads from symref/idutils.el
-
-(eieio-defclass-autoload 'semantic-symref-tool-idutils '(semantic-symref-tool-baseclass) "semantic/symref/idutils" "A symref tool implementation using ID Utils.\nThe udutils command set can be used to generate lists of tags in a way\nsimilar to that of `grep'. This tool will parse the output to generate\nthe hit list.\n\nSee the function `cedet-idutils-search' for more details.")
-
-;;;***
-\f
-;;;### (autoloads (semantic-symref-regexp semantic-symref-symbol
-;;;;;; semantic-symref) "semantic/symref/list" "symref/list.el"
-;;;;;; "d408916c24a8d37bef2bc9a2925c4ea7")
-;;; Generated autoloads from symref/list.el
-
-(autoload 'semantic-symref "semantic/symref/list" "\
-Find references to the current tag.
-This command uses the currently configured references tool within the
-current project to find references to the current tag. The
-references are organized by file and the name of the function
-they are used in.
-Display the references in `semantic-symref-results-mode'.
-
-\(fn)" t nil)
-
-(autoload 'semantic-symref-symbol "semantic/symref/list" "\
-Find references to the symbol SYM.
-This command uses the currently configured references tool within the
-current project to find references to the input SYM. The
-references are organized by file and the name of the function
-they are used in.
-Display the references in `semantic-symref-results-mode'.
-
-\(fn SYM)" t nil)
-
-(autoload 'semantic-symref-regexp "semantic/symref/list" "\
-Find references to the a symbol regexp SYM.
-This command uses the currently configured references tool within the
-current project to find references to the input SYM. The
-references are the organized by file and the name of the function
-they are used in.
-Display the references in`semantic-symref-results-mode'.
-
-\(fn SYM)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-tag-components) "semantic/tag" "tag.el"
-;;;;;; "6f9c5c0e4638e2cf7f913f7d61a7ff3d")
-;;; Generated autoloads from tag.el
-
-(autoload 'semantic-tag-components "semantic/tag" "\
-Return a list of components for TAG.
-A Component is a part of TAG which itself may be a TAG.
-Examples include the elements of a structure in a
-tag of class `type, or the list of arguments to a
-tag of class 'function.
-
-\(fn TAG)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-dependency-tag-file semantic-go-to-tag)
-;;;;;; "semantic/tag-file" "tag-file.el" "d6ed698e3736b0e71e23c8d8eccd3b7d")
-;;; Generated autoloads from tag-file.el
-
-(autoload 'semantic-go-to-tag "semantic/tag-file" "\
-Go to the location of TAG.
-TAG may be a stripped element, in which case PARENT specifies a
-parent tag that has position information.
-PARENT can also be a `semanticdb-table' object.
-
-\(fn TAG &optional PARENT)" nil nil)
-
-(autoload 'semantic-dependency-tag-file "semantic/tag-file" "\
-Find the filename represented from TAG.
-Depends on `semantic-dependency-include-path' for searching. Always searches
-`.' first, then searches additional paths.
-
-\(fn &optional TAG)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-tag-prototype-p) "semantic/tag-ls" "tag-ls.el"
-;;;;;; "5006320cc9ffd87ceb50dba31524ae31")
-;;; Generated autoloads from tag-ls.el
-
-(autoload 'semantic-tag-prototype-p "semantic/tag-ls" "\
-Return non nil if TAG is a prototype.
-For some languages, such as C, a prototype is a declaration of
-something without an implementation.
-
-\(fn TAG)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-tag-write-list-slot-value) "semantic/tag-write"
-;;;;;; "tag-write.el" "14bbea4f1262c16c8b98ade71ad82b56")
-;;; Generated autoloads from tag-write.el
-
-(autoload 'semantic-tag-write-list-slot-value "semantic/tag-write" "\
-Write out the VALUE of a slot for EIEIO.
-The VALUE is a list of tags.
-
-\(fn VALUE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-default-texi-setup) "semantic/texi" "texi.el"
-;;;;;; "122d6e815ca6e24b13b5bb523a49df19")
-;;; Generated autoloads from texi.el
-
-(autoload 'semantic-default-texi-setup "semantic/texi" "\
-Set up a buffer for parsing of Texinfo files.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (semantic-highlight-func-mode global-semantic-highlight-func-mode
-;;;;;; semantic-stickyfunc-mode global-semantic-stickyfunc-mode
-;;;;;; semantic-show-parser-state-mode global-semantic-show-parser-state-mode
-;;;;;; semantic-show-unmatched-syntax-mode global-semantic-show-unmatched-syntax-mode
-;;;;;; semantic-highlight-edits-mode global-semantic-highlight-edits-mode)
-;;;;;; "semantic/util-modes" "util-modes.el" "77d87e5b3a38b2110c5be2ce36d74979")
-;;; Generated autoloads from util-modes.el
-
-(defvar global-semantic-highlight-edits-mode nil "\
-Non-nil if Global-Semantic-Highlight-Edits mode is enabled.
-See the command `global-semantic-highlight-edits-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-semantic-highlight-edits-mode'.")
-
-(custom-autoload 'global-semantic-highlight-edits-mode "semantic/util-modes" nil)
-
-(autoload 'global-semantic-highlight-edits-mode "semantic/util-modes" "\
-Toggle global use of option `semantic-highlight-edits-mode'.
-If ARG is positive or nil, enable, if it is negative, disable.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'semantic-highlight-edits-mode "semantic/util-modes" "\
-Minor mode for highlighting changes made in a buffer.
-Changes are tracked by semantic so that the incremental parser can work
-properly.
-This mode will highlight those changes as they are made, and clear them
-when the incremental parser accounts for those edits.
-With prefix argument ARG, turn on if positive, otherwise off. The
-minor mode can be turned on only if semantic feature is available and
-the current buffer was set up for parsing. Return non-nil if the
-minor mode is enabled.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-semantic-show-unmatched-syntax-mode nil "\
-Non-nil if Global-Semantic-Show-Unmatched-Syntax mode is enabled.
-See the command `global-semantic-show-unmatched-syntax-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-semantic-show-unmatched-syntax-mode'.")
-
-(custom-autoload 'global-semantic-show-unmatched-syntax-mode "semantic/util-modes" nil)
-
-(autoload 'global-semantic-show-unmatched-syntax-mode "semantic/util-modes" "\
-Toggle global use of option `semantic-show-unmatched-syntax-mode'.
-If ARG is positive or nil, enable, if it is negative, disable.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'semantic-show-unmatched-syntax-mode "semantic/util-modes" "\
-Minor mode to highlight unmatched lexical syntax tokens.
-When a parser executes, some elements in the buffer may not match any
-parser rules. These text characters are considered unmatched syntax.
-Often time, the display of unmatched syntax can expose coding
-problems before the compiler is run.
-
-With prefix argument ARG, turn on if positive, otherwise off. The
-minor mode can be turned on only if semantic feature is available and
-the current buffer was set up for parsing. Return non-nil if the
-minor mode is enabled.
-
-\\{semantic-show-unmatched-syntax-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-semantic-show-parser-state-mode nil "\
-Non-nil if Global-Semantic-Show-Parser-State mode is enabled.
-See the command `global-semantic-show-parser-state-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-semantic-show-parser-state-mode'.")
-
-(custom-autoload 'global-semantic-show-parser-state-mode "semantic/util-modes" nil)
-
-(autoload 'global-semantic-show-parser-state-mode "semantic/util-modes" "\
-Toggle global use of option `semantic-show-parser-state-mode'.
-If ARG is positive or nil, enable, if it is negative, disable.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'semantic-show-parser-state-mode "semantic/util-modes" "\
-Minor mode for displaying parser cache state in the modeline.
-The cache can be in one of three states. They are
-Up to date, Partial reparse needed, and Full reparse needed.
-The state is indicated in the modeline with the following characters:
- `-' -> The cache is up to date.
- `!' -> The cache requires a full update.
- `~' -> The cache needs to be incrementally parsed.
- `%' -> The cache is not currently parsable.
- `@' -> Auto-parse in progress (not set here.)
-With prefix argument ARG, turn on if positive, otherwise off. The
-minor mode can be turned on only if semantic feature is available and
-the current buffer was set up for parsing. Return non-nil if the
-minor mode is enabled.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-semantic-stickyfunc-mode nil "\
-Non-nil if Global-Semantic-Stickyfunc mode is enabled.
-See the command `global-semantic-stickyfunc-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-semantic-stickyfunc-mode'.")
-
-(custom-autoload 'global-semantic-stickyfunc-mode "semantic/util-modes" nil)
-
-(autoload 'global-semantic-stickyfunc-mode "semantic/util-modes" "\
-Toggle global use of option `semantic-stickyfunc-mode'.
-If ARG is positive or nil, enable, if it is negative, disable.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'semantic-stickyfunc-mode "semantic/util-modes" "\
-Minor mode to show the title of a tag in the header line.
-Enables/disables making the header line of functions sticky.
-A function (or other tag class specified by
-`semantic-stickyfunc-sticky-classes') has a header line, meaning the
-first line which describes the rest of the construct. This first
-line is what is displayed in the header line.
-
-With prefix argument ARG, turn on if positive, otherwise off. The
-minor mode can be turned on only if semantic feature is available and
-the current buffer was set up for parsing. Return non-nil if the
-minor mode is enabled.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-semantic-highlight-func-mode nil "\
-Non-nil if Global-Semantic-Highlight-Func mode is enabled.
-See the command `global-semantic-highlight-func-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-semantic-highlight-func-mode'.")
-
-(custom-autoload 'global-semantic-highlight-func-mode "semantic/util-modes" nil)
-
-(autoload 'global-semantic-highlight-func-mode "semantic/util-modes" "\
-Toggle global use of option `semantic-highlight-func-mode'.
-If ARG is positive or nil, enable, if it is negative, disable.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'semantic-highlight-func-mode "semantic/util-modes" "\
-Minor mode to highlight the first line of the current tag.
-Enables/disables making the current function's first line light up.
-A function (or other tag class specified by
-`semantic-stickyfunc-sticky-classes') is highlighted, meaning the
-first line which describes the rest of the construct.
-
-See `semantic-stickyfunc-mode' for putting a function in the
-header line. This mode recycles the stickyfunc configuration
-classes list.
-
-With prefix argument ARG, turn on if positive, otherwise off. The
-minor mode can be turned on only if semantic feature is available and
-the current buffer was set up for parsing. Return non-nil if the
-minor mode is enabled.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (wisent-java-default-setup) "semantic/wisent/java-tags"
-;;;;;; "wisent/java-tags.el" "22ac21aa1cac200b7dc8f881096be0c1")
-;;; Generated autoloads from wisent/java-tags.el
-
-(autoload 'wisent-java-default-setup "semantic/wisent/java-tags" "\
-Hook run to setup Semantic in `java-mode'.
-Use the alternate LALR(1) parser.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (wisent-javascript-setup-parser) "semantic/wisent/javascript"
-;;;;;; "wisent/javascript.el" "dd992c38af65372cafe96d1ef8770f04")
-;;; Generated autoloads from wisent/javascript.el
-
-(autoload 'wisent-javascript-setup-parser "semantic/wisent/javascript" "\
-Setup buffer for parse.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (wisent-python-default-setup) "semantic/wisent/python"
-;;;;;; "wisent/python.el" "eb88038b5123e3924ad68ac0205f59e3")
-;;; Generated autoloads from wisent/python.el
-
-(autoload 'wisent-python-default-setup "semantic/wisent/python" "\
-Setup buffer for parse.
-
-\(fn)" nil nil)
-
-(add-hook 'python-mode-hook 'wisent-python-default-setup)
-
-;;;***
-\f
-(provide 'loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; loaddefs.el ends here
+++ /dev/null
-;;; loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (srecode-compile-templates) "srecode/compile" "compile.el"
-;;;;;; "2d261f30633cd0531cff672d41985709")
-;;; Generated autoloads from compile.el
-
-(autoload 'srecode-compile-templates "srecode/compile" "\
-Compile a semantic recode template file into a mode-local variable.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-semantic-handle-:cpp srecode-semantic-handle-:c)
-;;;;;; "srecode/cpp" "cpp.el" "4c682179181a6583270f221ddcfd04c7")
-;;; Generated autoloads from cpp.el
-
-(autoload 'srecode-semantic-handle-:c "srecode/cpp" "\
-Add macros into the dictionary DICT based on the current c file.
-Adds the following:
-FILENAME_SYMBOL - filename converted into a C compat symbol.
-HEADER - Shown section if in a header file.
-
-\(fn DICT)" nil nil)
-
-(autoload 'srecode-semantic-handle-:cpp "srecode/cpp" "\
-Add macros into the dictionary DICT based on the current c file.
-Calls `srecode-semantic-handle-:c.
-Also adds the following:
- - nothing -
-
-\(fn DICT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-document-insert-group-comments srecode-document-insert-variable-one-line-comment
-;;;;;; srecode-document-insert-function-comment srecode-document-insert-comment)
-;;;;;; "srecode/document" "document.el" "b47b2eeaebf7b6a7a0d1517328bb6c3e")
-;;; Generated autoloads from document.el
-
-(autoload 'srecode-document-insert-comment "srecode/document" "\
-Insert some comments.
-Whack any comments that may be in the way and replace them.
-If the region is active, then insert group function comments.
-If the cursor is in a comment, figure out what kind of comment it is
- and replace it.
-If the cursor is in a function, insert a function comment.
-If the cursor is on a one line prototype, then insert post-fcn comments.
-
-\(fn)" t nil)
-
-(autoload 'srecode-document-insert-function-comment "srecode/document" "\
-Insert or replace a function comment.
-FCN-IN is the Semantic tag of the function to add a comment too.
-If FCN-IN is not provided, the current tag is used instead.
-It is assumed that the comment occurs just in front of FCN-IN.
-
-\(fn &optional FCN-IN)" t nil)
-
-(autoload 'srecode-document-insert-variable-one-line-comment "srecode/document" "\
-Insert or replace a variable comment.
-VAR-IN is the Semantic tag of the function to add a comment too.
-If VAR-IN is not provided, the current tag is used instead.
-It is assumed that the comment occurs just after VAR-IN.
-
-\(fn &optional VAR-IN)" t nil)
-
-(autoload 'srecode-document-insert-group-comments "srecode/document" "\
-Insert group comments around the active between BEG and END.
-If the region includes only parts of some tags, expand out
-to the beginning and end of the tags on the region.
-If there is only one tag in the region, complain.
-
-\(fn BEG END)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-semantic-handle-:el-custom srecode-semantic-handle-:el)
-;;;;;; "srecode/el" "el.el" "02539749de19a548025da9cc393cb6f6")
-;;; Generated autoloads from el.el
-
-(autoload 'srecode-semantic-handle-:el "srecode/el" "\
-Add macros into the dictionary DICT based on the current Emacs Lisp file.
-Adds the following:
- PRENAME - The common name prefix of this file.
-
-\(fn DICT)" nil nil)
-
-(autoload 'srecode-semantic-handle-:el-custom "srecode/el" "\
-Add macros into the dictionary DICT based on the current Emacs Lisp file.
-Adds the following:
- GROUP - The 'defgroup' name we guess you want for variables.
- FACEGROUP - The `defgroup' name you might want for faces.
-
-\(fn DICT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-insert-prototype-expansion) "srecode/expandproto"
-;;;;;; "expandproto.el" "f8f65f4b6b200fad201b6351506d06b2")
-;;; Generated autoloads from expandproto.el
-
-(autoload 'srecode-insert-prototype-expansion "srecode/expandproto" "\
-Insert get/set methods for the current class.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-insert-getset) "srecode/getset" "getset.el"
-;;;;;; "ab91e8f25e333439b43fc13b87f7ca3b")
-;;; Generated autoloads from getset.el
-
-(autoload 'srecode-insert-getset "srecode/getset" "\
-Insert get/set methods for the current class.
-CLASS-IN is the semantic tag of the class to update.
-FIELD-IN is the semantic tag, or string name, of the field to add.
-If you do not specify CLASS-IN or FIELD-IN then a class and field
-will be derived.
-
-\(fn &optional CLASS-IN FIELD-IN)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-insert) "srecode/insert" "insert.el" "3d82c87da2b0f72d126892569569e31a")
-;;; Generated autoloads from insert.el
-
-(autoload 'srecode-insert "srecode/insert" "\
-Insert the template TEMPLATE-NAME into the current buffer at point.
-DICT-ENTRIES are additional dictionary values to add.
-
-\(fn TEMPLATE-NAME &rest DICT-ENTRIES)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-semantic-handle-:java) "srecode/java"
-;;;;;; "java.el" "3dfb90097a1dcf4a8e87051c9099a5e2")
-;;; Generated autoloads from java.el
-
-(autoload 'srecode-semantic-handle-:java "srecode/java" "\
-Add macros into the dictionary DICT based on the current java file.
-Adds the following:
-FILENAME_AS_PACKAGE - file/dir converted into a java package name.
-FILENAME_AS_CLASS - file converted to a Java class name.
-
-\(fn DICT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-get-maps) "srecode/map" "map.el" "db427c1786ebca66a157e2d24ca199d7")
-;;; Generated autoloads from map.el
-
-(autoload 'srecode-get-maps "srecode/map" "\
-Get a list of maps relevant to the current buffer.
-Optional argument RESET forces a reset of the current map.
-
-\(fn &optional RESET)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (global-srecode-minor-mode srecode-minor-mode)
-;;;;;; "srecode/mode" "mode.el" "ae6dfe267c910140da8fda04183e5d09")
-;;; Generated autoloads from mode.el
-
-(autoload 'srecode-minor-mode "srecode/mode" "\
-Toggle srecode minor mode.
-With prefix argument ARG, turn on if positive, otherwise off. The
-minor mode can be turned on only if semantic feature is available and
-the current buffer was set up for parsing. Return non-nil if the
-minor mode is enabled.
-
-\\{srecode-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-srecode-minor-mode nil "\
-Non-nil if Global-Srecode minor mode is enabled.
-See the command `global-srecode-minor-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-srecode-minor-mode'.")
-
-(custom-autoload 'global-srecode-minor-mode "srecode/mode" nil)
-
-(autoload 'global-srecode-minor-mode "srecode/mode" "\
-Toggle global use of srecode minor mode.
-If ARG is positive or nil, enable, if it is negative, disable.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-template-setup-parser) "srecode/template"
-;;;;;; "template.el" "a7276a3d2105930a82d4c8fa4ac162b2")
-;;; Generated autoloads from template.el
-
-(autoload 'srecode-template-setup-parser "srecode/template" "\
-Setup buffer for parse.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-semantic-handle-:texitag srecode-semantic-handle-:texi)
-;;;;;; "srecode/texi" "texi.el" "9d85fb5fa19cd423d3f9b566c074cee0")
-;;; Generated autoloads from texi.el
-
-(autoload 'srecode-semantic-handle-:texi "srecode/texi" "\
-Add macros into the dictionary DICT based on the current texinfo file.
-Adds the following:
- LEVEL - chapter, section, subsection, etc
- NEXTLEVEL - One below level
-
-\(fn DICT)" nil nil)
-
-(autoload 'srecode-semantic-handle-:texitag "srecode/texi" "\
-Add macros into the dictionary DICT based on the current :tag file.
-Adds the following:
- TAGDOC - Texinfo formatted doc string for :tag.
-
-\(fn DICT)" nil nil)
-
-;;;***
-\f
-(provide 'loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; loaddefs.el ends here
+++ /dev/null
-;;; cus-load.el --- automatically extracted custom dependencies
-;;
-;;; Code:
-
-(put 'avoid 'custom-loads '(avoid))
-(put 'crisp 'custom-loads '(crisp))
-(put 'perl 'custom-loads '(perl-mode))
-(put 'emerge 'custom-loads '(emerge))
-(put 'sh-script 'custom-loads '(sh-script))
-(put 'keyboard 'custom-loads '(chistory keypad kmacro type-break))
-(put 'tildify 'custom-loads '(tildify))
-(put 'org-protocol 'custom-loads '(org-protocol))
-(put 'spam-crm114 'custom-loads '(spam))
-(put 'org-export-tables 'custom-loads '(org-exp org-html))
-(put 'erc-services 'custom-loads '(erc-services))
-(put 'vhdl-project 'custom-loads '(vhdl-mode))
-(put 'unix 'custom-loads '(proced rlogin shell))
-(put 'multimedia 'custom-loads '(doc-view image-dired mm-decode mpc thumbs))
-(put 'woman-formatting 'custom-loads '(woman))
-(put 'eudc-ph 'custom-loads '(eudc-vars))
-(put 'org-export-latex 'custom-loads '(org-beamer org-latex org org-exp))
-(put 'proced 'custom-loads '(proced))
-(put 'vc-git 'custom-loads '(vc-git))
-(put 'table 'custom-loads '(table))
-(put 'gnus-summary 'custom-loads '(gnus-sum gnus))
-(put 'spam-stat 'custom-loads '(spam-stat))
-(put 'comint-completion 'custom-loads '(comint))
-(put 'pcmpl-cvs 'custom-loads '(pcmpl-cvs))
-(put 'SQL 'custom-loads '(sql))
-(put 'ruby 'custom-loads '(ruby-mode))
-(put 'custom-magic-faces 'custom-loads '(cus-edit))
-(put 'erc-fill 'custom-loads '(erc-fill))
-(put 'nroff 'custom-loads '(nroff-mode))
-(put 'gnus-summary-choose 'custom-loads '(gnus-sum))
-(put 'pcmpl-unix 'custom-loads '(pcmpl-unix))
-(put 'org-link-store 'custom-loads '(org org-gnus org-id))
-(put 'archive 'custom-loads '(arc-mode))
-(put 'gnus-cache 'custom-loads '(gnus-cache gnus))
-(put 'org-agenda-skip 'custom-loads '(org-agenda org))
-(put 'semantic-symref 'custom-loads '("list"))
-(put 'gnus-extract-archive 'custom-loads '(gnus-uu))
-(put 'cperl-autoinsert-details 'custom-loads '(cperl-mode))
-(put 'ielm 'custom-loads '(ielm))
-(put 'debug 'custom-loads '(debug))
-(put 'reftex-finding-files 'custom-loads '(reftex-vars))
-(put 'erc-ibuffer 'custom-loads '(erc-ibuffer))
-(put 'hideshow 'custom-loads '(hideshow))
-(put 'gnus-demon 'custom-loads '(gnus-demon))
-(put 'imenu 'custom-loads '(imenu "imenu"))
-(put 'eshell-hist 'custom-loads '(em-hist))
-(put 'ps-print-headers 'custom-loads '(ps-print))
-(put 'debugger 'custom-loads '(debug))
-(put 'latin1-display 'custom-loads '(latin1-disp))
-(put 'eshell-util 'custom-loads '(esh-util))
-(put 'doc-view 'custom-loads '(doc-view))
-(put 'password 'custom-loads '(password-cache))
-(put 'rmail-reply 'custom-loads '(rmail))
-(put 'eshell-alias 'custom-loads '(em-alias))
-(put 'artist-text 'custom-loads '(artist))
-(put 'spam-report 'custom-loads '(spam-report))
-(put 'nnmail-duplicate 'custom-loads '(nnmail))
-(put 'message-mail 'custom-loads '(message))
-(put 'prolog-indentation 'custom-loads '(prolog))
-(put 'uce 'custom-loads '(uce))
-(put 'games 'custom-loads '(5x5 bubbles decipher dunnet fortune gametree gomoku handwrite hanoi landmark mpuz pong solitaire spook tetris yow))
-(put 'eshell-unix 'custom-loads '(em-unix))
-(put 'org-babel 'custom-loads '(ob-R ob-exp ob-js ob-lisp org ob-lob ob-maxima ob ob-picolisp ob-tangle ob-scheme ob-sh ob-ditaa org-exp-blocks ob-plantuml org-src))
-(put 'bubbles 'custom-loads '(bubbles))
-(put 'gnus-group-visual 'custom-loads '(gnus-group gnus))
-(put 'widget-browse 'custom-loads '(wid-browse))
-(put 'org-appearance 'custom-loads '(org org-faces))
-(put 'woman-faces 'custom-loads '(woman))
-(put 'gnus-article-hiding 'custom-loads '(gnus-cite gnus-art gnus-sum))
-(put 'whitespace 'custom-loads '(whitespace))
-(put 'tree-widget 'custom-loads '(tree-widget))
-(put 'srecode 'custom-loads '("document" "cpp" "expandproto" "fields" "insert" "map" "mode" "srt-mode"))
-(put 'allout-developer 'custom-loads '(allout))
-(put 'org-properties 'custom-loads '(org))
-(put 'reftex-defining-label-environments 'custom-loads '(reftex-vars))
-(put 'ido 'custom-loads '(ido))
-(put 'ecomplete 'custom-loads '(ecomplete))
-(put 'tpu 'custom-loads '("tpu-extras" tpu-edt))
-(put 'org-bbdb-anniversaries 'custom-loads '(org-bbdb))
-(put 'f90 'custom-loads '(f90))
-(put 'nnmail-procmail 'custom-loads '(nnmail))
-(put 'uniquify 'custom-loads '(uniquify))
-(put 'reftex-making-and-inserting-labels 'custom-loads '(reftex-vars))
-(put 'tramp 'custom-loads '(tramp tramp-gvfs tramp-sh tramp-cache tramp-smb))
-(put 'cperl-help-system 'custom-loads '(cperl-mode))
-(put 'calendar-chinese 'custom-loads '(cal-china))
-(put 'abbrev 'custom-loads '(dabbrev expand hippie-exp quickurl))
-(put 'sieve 'custom-loads '(sieve-mode sieve))
-(put 'calendar-tex 'custom-loads '(cal-tex))
-(put 'mode-line 'custom-loads '(time))
-(put 'rcirc 'custom-loads '(rcirc))
-(put 'erc-buffers 'custom-loads '(erc))
-(put 'erc-quit-and-part 'custom-loads '(erc))
-(put 'f90-indent 'custom-loads '(f90))
-(put 'gnus-group-select 'custom-loads '(gnus-sum gnus gnus-group))
-(put 'ps-print-horizontal 'custom-loads '(ps-print))
-(put 'gnus-start-server 'custom-loads '(gnus-start))
-(put 'gomoku 'custom-loads '(gomoku))
-(put 'org-agenda-match-view 'custom-loads '(org-agenda))
-(put 'programming 'custom-loads '(cus-edit))
-(put 'gnus-agent 'custom-loads '(gnus gnus-agent))
-(put 'org-agenda 'custom-loads '(org-agenda org))
-(put 'eshell-ext 'custom-loads '(esh-ext))
-(put 'gnus-summary-tree 'custom-loads '(gnus-salt))
-(put 'supercite-hooks 'custom-loads '(supercite))
-(put 'cperl 'custom-loads '(cperl-mode))
-(put 'semantic 'custom-loads '("mru-bookmark" "mode" "c" "complete" semantic "edit" "grammar" "util-modes" "idle" "imenu" "lex" "lex-spp" "grep" "list" "db" "senator" "wisent"))
-(put 'relax-ng 'custom-loads '(rng-valid rng-nxml rng-loc))
-(put 'hashcash 'custom-loads '(hashcash))
-(put 'ld-script 'custom-loads '(ld-script))
-(put 'rst-adjust 'custom-loads '(rst))
-(put 'ffap 'custom-loads '(ffap))
-(put 'tmm 'custom-loads '(tmm))
-(put 'ps-print-color 'custom-loads '(ps-print))
-(put 'reftex-citation-support 'custom-loads '(reftex-vars))
-(put 'nnmail-split 'custom-loads '(nndiary nnmail))
-(put 'browse-url 'custom-loads '(browse-url))
-(put 'vc-arch 'custom-loads '(vc-arch))
-(put 'tls 'custom-loads '(tls))
-(put 'ediff-highlighting 'custom-loads '(ediff-init))
-(put 'faces 'custom-loads '(cus-edit cwarn dired gnus hi-lock hilit-chg message paren proced ps-print rcirc rst speedbar wid-edit woman))
-(put 'ls-lisp 'custom-loads '(ls-lisp))
-(put 'org-export-odt 'custom-loads '(org-odt))
-(put 'cfengine 'custom-loads '(cfengine))
-(put 'align 'custom-loads '(align))
-(put 'nnmail 'custom-loads '(nnmail))
-(put 'erc-lurker 'custom-loads '(erc))
-(put 'ps-print 'custom-loads '(ps-print))
-(put 'supercite-attr 'custom-loads '(supercite))
-(put 'eudc-ldap 'custom-loads '(eudc-vars))
-(put 'org-mac-flagged-mail 'custom-loads '(org-mac-message))
-(put 'dframe 'custom-loads '(dframe))
-(put 'viper-highlighting 'custom-loads '(viper-init))
-(put 'lisp 'custom-loads '(advice bytecomp checkdoc edebug eldoc elp ert find-func gmm-utils ielm inf-lisp "cl-indent" shadow pp profiler re-builder unsafep scheme testcover trace warnings xscheme))
-(put 'customize 'custom-loads '(cus-edit wid-edit))
-(put 'idlwave-misc 'custom-loads '(idlwave))
-(put 'message-various 'custom-loads '(message))
-(put 'jka-compr 'custom-loads '(jka-compr))
-(put 'filesets 'custom-loads '(filesets))
-(put 'term 'custom-loads '(terminal term))
-(put 'emulations 'custom-loads '(crisp cua-base edt tpu-edt vip viper))
-(put 'erc-replace 'custom-loads '(erc-replace))
-(put 'erc-control-characters 'custom-loads '(erc-goodies))
-(put 'org-link 'custom-loads '(org org-ctags org-mac-message org-mew org-wl))
-(put 'printing 'custom-loads '(printing))
-(put 'nndiary 'custom-loads '(nndiary))
-(put 'org-export-ascii 'custom-loads '(org-ascii))
-(put 'eshell-script 'custom-loads '(em-script))
-(put 'lazy-highlight 'custom-loads '(ispell))
-(put 'sort 'custom-loads '(sort))
-(put 'org-agenda-todo-list 'custom-loads '(org-agenda))
-(put 'menu 'custom-loads '(cus-edit tmm))
-(put 'octave 'custom-loads '(octave-mod octave-inf))
-(put 'enriched 'custom-loads '(enriched))
-(put 'gnus-score-files 'custom-loads '(gnus-score gnus))
-(put 'midnight 'custom-loads '(midnight))
-(put 'org-lparse 'custom-loads '(org-lparse))
-(put 'linum 'custom-loads '(linum))
-(put 'bibtex 'custom-loads '(bibtex bibtex-style))
-(put 'vhdl-highlight-faces 'custom-loads '(vhdl-mode))
-(put 'gnus-summary-sort 'custom-loads '(gnus-sum))
-(put 'allout-widgets-developer 'custom-loads '(allout-widgets))
-(put 'spam 'custom-loads '(spam))
-(put 'ebnf-displacement 'custom-loads '(ebnf2ps))
-(put 'semanticdb 'custom-loads '("db-file" "db-ebrowse" "db"))
-(put 'isearchb 'custom-loads '(isearchb))
-(put 'view 'custom-loads '(calendar view))
-(put 'ldap 'custom-loads '(ldap))
-(put 'data 'custom-loads '(arc-mode conf-mode dns-mode doc-view epg-config forms generic-x hexl remember saveplace snmp-mode sort tar-mode time-stamp timeclock))
-(put 'woman 'custom-loads '(woman))
-(put 'message-insertion 'custom-loads '(message))
-(put 'org-table-calculation 'custom-loads '(org-table))
-(put 'gnus-diary 'custom-loads '(gnus-diary nndiary))
-(put 'tex 'custom-loads '(bibtex tex-mode reftex-vars))
-(put 'trace 'custom-loads '(trace))
-(put 'widget-faces 'custom-loads '(wid-edit))
-(put 'feedmail-headers 'custom-loads '(feedmail))
-(put 'idlwave-online-help 'custom-loads '(idlw-help))
-(put 'ebnf-except 'custom-loads '(ebnf2ps))
-(put 'org-capture 'custom-loads '(org-capture org-datetree org))
-(put 'data-debug 'custom-loads '(data-debug))
-(put 'org-export-htmlize 'custom-loads '(org-html))
-(put 'gnus-sync 'custom-loads '(gnus-sync))
-(put 'org-feed 'custom-loads '(org-feed))
-(put 'ogonek 'custom-loads '(ogonek))
-(put 'document 'custom-loads '("document"))
-(put 'gravatar 'custom-loads '(gravatar))
-(put 'development 'custom-loads '(cus-edit))
-(put 'ansi-colors 'custom-loads '(ansi-color))
-(put 'eshell-term 'custom-loads '(em-term))
-(put 'postscript 'custom-loads '(ebnf2ps printing ps-print))
-(put 'timeclock 'custom-loads '(timeclock))
-(put 'windmove 'custom-loads '(windmove))
-(put 'environment 'custom-loads '(dired cus-edit "dos-vars" ebnf2ps w32-vars))
-(put 'vc-rcs 'custom-loads '(vc-rcs))
-(put 'bib 'custom-loads '(bib-mode))
-(put 'mail-extr 'custom-loads '(mail-extr))
-(put 'cperl-faces 'custom-loads '(cperl-mode))
-(put 'gnus-summary-various 'custom-loads '(gnus-sum))
-(put 'gnus-extract-view 'custom-loads '(gnus-sum gnus-uu))
-(put 'gnus-cite 'custom-loads '(gnus-cite gnus-msg))
-(put 'idlwave-shell-general-setup 'custom-loads '(idlw-shell idlwave))
-(put 'starttls 'custom-loads '(starttls))
-(put 'wdired 'custom-loads '(wdired))
-(put 'erc-match 'custom-loads '(erc-match))
-(put 'net-utils 'custom-loads '(net-utils gnutls))
-(put 'tcl 'custom-loads '(tcl))
-(put 'idlwave-code-formatting 'custom-loads '(idlwave))
-(put 'widgets 'custom-loads '(tree-widget wid-browse wid-edit))
-(put 'mpuz 'custom-loads '(mpuz))
-(put 'gnus-newsrc 'custom-loads '(gnus-start))
-(put 'cedet 'custom-loads '(cedet-cscope cedet-global cedet-idutils))
-(put 'emacs-lock 'custom-loads '(emacs-lock))
-(put 'url-history 'custom-loads '(url-history))
-(put 'footnote 'custom-loads '(footnote))
-(put 'ebnf-syntactic 'custom-loads '(ebnf2ps))
-(put 'follow 'custom-loads '(follow))
-(put 'external 'custom-loads '(bib-mode browse-url epg-config locate man ebnf2ps cus-edit server))
-(put 'erc-notifications 'custom-loads '(erc-desktop-notifications))
-(put 'tar 'custom-loads '(tar-mode))
-(put 'ps-print-background 'custom-loads '(ps-print))
-(put 'gud 'custom-loads '(gdb-mi gud))
-(put 'yow 'custom-loads '(yow))
-(put 'ispell 'custom-loads '(flyspell ispell))
-(put 'ebnf-optimization 'custom-loads '(ebnf2ps))
-(put 'message-interface 'custom-loads '(message))
-(put 'msb 'custom-loads '(msb))
-(put 'quickurl 'custom-loads '(quickurl))
-(put 'tex-file 'custom-loads '(tex-mode))
-(put 'nxml 'custom-loads '(nxml-mode nxml-outln rng-valid))
-(put 'vhdl-style 'custom-loads '(vhdl-mode))
-(put 'file-cache 'custom-loads '(filecache))
-(put 'rcirc-faces 'custom-loads '(rcirc))
-(put 'reftex-viewing-cross-references 'custom-loads '(reftex-vars))
-(put 'pcl-cvs 'custom-loads '(pcvs-defs pcvs-info pcvs pcvs-parse cvs-status log-edit log-view))
-(put 'tempo 'custom-loads '(tempo))
-(put 'elide-head 'custom-loads '(elide-head))
-(put 'image-dired 'custom-loads '(image-dired))
-(put 'eudc 'custom-loads '(eudc-vars))
-(put 'gnus-outlook-deuglify 'custom-loads '(deuglify))
-(put 'w32 'custom-loads '(dos-w32 w32-vars))
-(put 'rmail-output 'custom-loads '(rmailout))
-(put 'socks 'custom-loads '(socks))
-(put 'scheme 'custom-loads '(cmuscheme scheme))
-(put 'editing 'custom-loads '(cus-edit electric))
-(put 'apropos 'custom-loads '(apropos))
-(put 'viper-hooks 'custom-loads '(viper-init))
-(put 'dunnet 'custom-loads '(dunnet))
-(put 'asm 'custom-loads '(asm-mode))
-(put 'mail-abbrev 'custom-loads '(mailabbrev))
-(put 'org-entities 'custom-loads '(org-entities))
-(put 'rmail-retrieve 'custom-loads '(rmail))
-(put 'erc-paranoia 'custom-loads '(erc))
-(put 'viper 'custom-loads '(viper-init viper-ex viper viper-mous viper-keym viper-macs viper-util))
-(put 'org-latex 'custom-loads '(org))
-(put 'erc-ignore 'custom-loads '(erc))
-(put 'mpc 'custom-loads '(mpc))
-(put 'recentf 'custom-loads '(recentf))
-(put 'gnus-group 'custom-loads '(gnus gnus-group gnus-topic))
-(put 'info-lookup 'custom-loads '(info-look))
-(put 'org-table 'custom-loads '(org org-table))
-(put 'gdb-non-stop 'custom-loads '(gdb-mi))
-(put 'vhdl-highlight 'custom-loads '(vhdl-mode))
-(put 'holidays 'custom-loads '(calendar holidays))
-(put 'org-table-editing 'custom-loads '(org-table org))
-(put 'newsticker-plainview 'custom-loads '(newst-plainview))
-(put 'delphi 'custom-loads '(delphi))
-(put 'matching 'custom-loads '(bookmark completion ffap imenu))
-(put 'allout-encryption 'custom-loads '(allout))
-(put 'netrc 'custom-loads '(netrc))
-(put 'mime-security 'custom-loads '(gnus-art mm-decode mm-encode mml-smime mml2015))
-(put 'eshell-glob 'custom-loads '(em-glob))
-(put 'speedbar 'custom-loads '(rmail "sb" speedbar sb-image))
-(put 'refer 'custom-loads '(refer))
-(put 'terminal 'custom-loads '(terminal))
-(put 'etags 'custom-loads '(etags speedbar))
-(put 'allout-widgets 'custom-loads '(allout-widgets))
-(put 'newsticker-plainview-hooks 'custom-loads '(newst-plainview))
-(put 'viper-mouse 'custom-loads '(viper-mous))
-(put 'dos-fns 'custom-loads '(dos-w32 "dos-vars"))
-(put 'gmm 'custom-loads '(gmm-utils))
-(put 'gnus-extract-post 'custom-loads '(gnus-uu))
-(put 'message-headers 'custom-loads '(message))
-(put 'font-lock 'custom-loads '(hi-lock prolog))
-(put 'gnus-score-decay 'custom-loads '(gnus-score))
-(put 'rst-toc 'custom-loads '(rst))
-(put 'org-ctags 'custom-loads '(org-ctags))
-(put 'grep 'custom-loads '(grep))
-(put 'ediff-mult 'custom-loads '(ediff-mult))
-(put 're-builder 'custom-loads '(re-builder))
-(put 'org-progress 'custom-loads '(org-clock org org-habit))
-(put 'ps-print-zebra 'custom-loads '(ps-print))
-(put 'emacs 'custom-loads '(cus-edit))
-(put 'erc-page 'custom-loads '(erc-page))
-(put 'gnus-score-adapt 'custom-loads '(gnus-score gnus))
-(put 'shr 'custom-loads '(shr shr-color))
-(put 'chistory 'custom-loads '(chistory))
-(put 'url-cookie 'custom-loads '(url-cookie))
-(put 'icon 'custom-loads '(icon))
-(put 'metamail 'custom-loads '(metamail))
-(put 'gnus-score-kill 'custom-loads '(gnus gnus-kill))
-(put 'convenience 'custom-loads '(cus-edit autoinsert autorevert bs completion cua-base dabbrev emacs-lock ffap filecache filesets follow hippie-exp hl-line ibuffer ido imenu iswitchb kmacro linum master org-protocol repeat reveal ruler-mode speedbar vcursor whitespace windmove))
-(put 'wisent 'custom-loads '("wisent" "comp"))
-(put 'ediff 'custom-loads '(ediff-init ediff-diff ediff-mult ediff-ptch ediff ediff-wind))
-(put 'org-priorities 'custom-loads '(org))
-(put 'org-export-general 'custom-loads '(org-exp org-exp-blocks))
-(put 'pong 'custom-loads '(pong))
-(put 'gnus-message 'custom-loads '(gnus-msg gnus-draft gnus message))
-(put 'ps-print-font 'custom-loads '(ps-print ps-mule))
-(put 'erc-scripts 'custom-loads '(erc))
-(put 'gnus-delay 'custom-loads '(gnus-delay))
-(put 'erc-notify 'custom-loads '(erc-notify))
-(put 'verilog-mode-auto 'custom-loads '(verilog-mode))
-(put 'feedmail-misc 'custom-loads '(feedmail))
-(put 'rmail-edit 'custom-loads '(rmailedit))
-(put 'gametree 'custom-loads '(gametree))
-(put 'hardware 'custom-loads '(battery))
-(put 'news 'custom-loads '(binhex canlock gnus message mm-decode spam spam-report supercite uudecode))
-(put 'pop3 'custom-loads '(pop3))
-(put 'gnus-exit 'custom-loads '(gnus-group gnus))
-(put 'erc-speedbar 'custom-loads '(erc-speedbar))
-(put 'org-freemind 'custom-loads '(org-freemind))
-(put 'verilog-mode 'custom-loads '(verilog-mode))
-(put 'org-agenda-daily/weekly 'custom-loads '(org-agenda org-faces org))
-(put 'erc-truncate 'custom-loads '(erc-truncate))
-(put 'ses 'custom-loads '(ses))
-(put 'eshell-banner 'custom-loads '(em-banner))
-(put 'LaTeX 'custom-loads '(reftex-vars))
-(put 'vhdl 'custom-loads '(vhdl-mode))
-(put 'picture 'custom-loads '(picture))
-(put 'gnus-article-emphasis 'custom-loads '(gnus-art))
-(put 'mouse 'custom-loads '(artist avoid goto-addr cus-edit msb strokes))
-(put 'prolog 'custom-loads '(prolog))
-(put 'bookmark 'custom-loads '(man bookmark))
-(put 'icalendar 'custom-loads '(icalendar))
-(put 'lisp-shadow 'custom-loads '(shadow))
-(put 'diary 'custom-loads '(calendar diary-lib cal-hebrew))
-(put 'cperl-speed 'custom-loads '(cperl-mode))
-(put 'viper-search 'custom-loads '(viper-init))
-(put 'nnmairix 'custom-loads '(nnmairix))
-(put 'extensions 'custom-loads '(data-debug ede eldoc ido page-ext srecode time-stamp wid-edit xesam))
-(put 'nnmail-retrieve 'custom-loads '(nnmail))
-(put 'save-place 'custom-loads '(saveplace))
-(put 'rst 'custom-loads '(rst))
-(put 'remote-compile 'custom-loads '(rcompile))
-(put 'org-cycle 'custom-loads '(org))
-(put 'BibTeX 'custom-loads '(bibtex))
-(put 'snmp 'custom-loads '(snmp-mode))
-(put 'org-faces 'custom-loads '(org-faces org org-footnote org-habit))
-(put 'newsticker-faces 'custom-loads '(newst-plainview newst-reader))
-(put 'supercite 'custom-loads '(supercite))
-(put 'i18n 'custom-loads '(ccl double iso-ascii latin1-disp cus-edit ogonek url-vars))
-(put 'org-export-html 'custom-loads '(org-agenda org-html org-exp org-jsinfo))
-(put 'vhdl-comment 'custom-loads '(vhdl-mode))
-(put 'internal 'custom-loads '(cus-edit))
-(put 'outlines 'custom-loads '(allout org outline))
-(put 'vhdl-align 'custom-loads '(vhdl-mode))
-(put 'maint 'custom-loads '(elint emacsbug gulp lisp-mnt))
-(put 'nnmail-various 'custom-loads '(nnmail))
-(put 'reftex-label-support 'custom-loads '(reftex-vars))
-(put 'eldoc 'custom-loads '(eldoc))
-(put 'reftex-referencing-labels 'custom-loads '(reftex-vars))
-(put 'hanoi 'custom-loads '(hanoi))
-(put 'reftex-index-support 'custom-loads '(reftex-vars))
-(put 'prolog-inferior 'custom-loads '(prolog))
-(put 'modula2 'custom-loads '(modula2))
-(put 'gdb 'custom-loads '(gdb-mi))
-(put 'gnus-picon 'custom-loads '(gnus-art gnus-picon))
-(put 'url-gateway 'custom-loads '(url-gw))
-(put 'which-func 'custom-loads '(which-func))
-(put 'rmail 'custom-loads '(rmail rmailmm rmail-spam-filter))
-(put 'man 'custom-loads '(man))
-(put 'strokes 'custom-loads '(strokes))
-(put 'pcmpl-gnu 'custom-loads '(pcmpl-gnu))
-(put 'completion 'custom-loads '(completion iswitchb))
-(put 'org-babel-tangle 'custom-loads '(ob-tangle))
-(put 'eshell-module 'custom-loads '(em-alias em-banner em-basic em-cmpl em-dirs em-glob em-hist em-ls esh-module em-pred em-prompt em-rebind em-script em-smart em-term em-unix em-xtra))
-(put 'eieio 'custom-loads '(chart eieio-custom))
-(put 'PostScript 'custom-loads '(ps-mode))
-(put 'rmail-files 'custom-loads '(rmail))
-(put 'reftex 'custom-loads '(reftex-vars))
-(put 'lpr 'custom-loads '(lpr))
-(put 'ada 'custom-loads '(ada-xref ada-mode))
-(put 'hippie-expand 'custom-loads '(hippie-exp))
-(put 'hi-lock 'custom-loads '(hi-lock))
-(put 'viper-misc 'custom-loads '(viper viper-init viper-cmd))
-(put 'gnus-group-new 'custom-loads '(gnus-start))
-(put 'gnus-thread 'custom-loads '(gnus-sum gnus-group))
-(put 'time-stamp 'custom-loads '(time-stamp))
-(put 'paren-matching 'custom-loads '(paren))
-(put 'vhdl-template 'custom-loads '(vhdl-mode))
-(put 'soap-client 'custom-loads '(soap-client))
-(put 'dns-mode 'custom-loads '(dns-mode))
-(put 'checkdoc 'custom-loads '(checkdoc))
-(put 'refbib 'custom-loads '(refbib))
-(put 'org-agenda-line-format 'custom-loads '(org-agenda))
-(put 'hl-line 'custom-loads '(hl-line))
-(put 'gnus-article-buttons 'custom-loads '(gnus-art))
-(put 'eshell-var 'custom-loads '(esh-var))
-(put 'archive-zoo 'custom-loads '(arc-mode))
-(put 'ediff-ptch 'custom-loads '(ediff-ptch))
-(put 'calendar-html 'custom-loads '(cal-html))
-(put 'gnus-article-various 'custom-loads '(gnus-art gnus-sum))
-(put 'uudecode 'custom-loads '(uudecode))
-(put 'vhdl-print 'custom-loads '(vhdl-mode))
-(put 'winner 'custom-loads '(winner))
-(put 'iswitchb 'custom-loads '(isearchb iswitchb))
-(put 'erc-dcc 'custom-loads '(erc-dcc erc-xdcc))
-(put 'lisp-indent 'custom-loads '("cl-indent"))
-(put 'basic-faces 'custom-loads '(cus-edit shadowfile))
-(put 'change-log 'custom-loads '(add-log))
-(put 'org-mobile 'custom-loads '(org-mobile))
-(put 'processes 'custom-loads '(sql ansi-color comint compile executable cus-edit flyspell grep gud metamail pcomplete proced rcompile rlogin shell socks term))
-(put 'table-hooks 'custom-loads '(table))
-(put 'sieve-manage 'custom-loads '(sieve-manage))
-(put 'mm-url 'custom-loads '(mm-url))
-(put 'org-export-docbook 'custom-loads '(org-docbook))
-(put 'custom-browse 'custom-loads '(cus-edit))
-(put 'desktop 'custom-loads '(desktop))
-(put 'mode-line-faces 'custom-loads '(time cus-edit))
-(put 'org-bibtex 'custom-loads '(org-bibtex))
-(put 'ange-ftp 'custom-loads '(ange-ftp))
-(put 'spook 'custom-loads '(spook))
-(put 'mule 'custom-loads '(descr-text kkc latexenc))
-(put 'org-time 'custom-loads '(org org-timer))
-(put 'kmacro 'custom-loads '(edmacro kmacro))
-(put 'gnus-summary-pick 'custom-loads '(gnus-salt))
-(put 'fill 'custom-loads '(align longlines refill))
-(put 'org-agenda-time-grid 'custom-loads '(org-agenda))
-(put 'ebnf-special 'custom-loads '(ebnf2ps))
-(put 'proced-faces 'custom-loads '(proced))
-(put 'flyspell 'custom-loads '(flyspell))
-(put 'double 'custom-loads '(double))
-(put 'dabbrev 'custom-loads '(dabbrev))
-(put 'octave-inferior 'custom-loads '(octave-mod octave-inf))
-(put 'erc-server 'custom-loads '(erc-backend))
-(put 'font-lock-highlighting-faces 'custom-loads '(vera-mode verilog-mode))
-(put 'gnus-article-signature 'custom-loads '(gnus-art))
-(put 'paren-showing-faces 'custom-loads '(paren))
-(put 'calendar-faces 'custom-loads '(calendar diary-lib))
-(put 'mime 'custom-loads '(mailcap mm-bodies mm-util mm-encode rfc1843 smime))
-(put 'gnus-score 'custom-loads '(gnus))
-(put 'org-inlinetask 'custom-loads '(org-inlinetask))
-(put 'message-news 'custom-loads '(message))
-(put 'shadow 'custom-loads '(shadowfile))
-(put 'gnus-server-visual 'custom-loads '(gnus-srvr))
-(put 'gnus-article-treat 'custom-loads '(gnus-art))
-(put 'ezimage 'custom-loads '(ezimage))
-(put 'semantic-imenu 'custom-loads '("imenu"))
-(put 'pulse 'custom-loads '(pulse))
-(put 'savehist 'custom-loads '(savehist))
-(put 'gnus-article-washing 'custom-loads '(gnus-art))
-(put 'erc-netsplit 'custom-loads '(erc-netsplit))
-(put 'org-footnote 'custom-loads '(org-footnote))
-(put 'org-export-taskjuggler 'custom-loads '(org-taskjuggler))
-(put 'widget-documentation 'custom-loads '(wid-edit))
-(put 'archive-zip 'custom-loads '(arc-mode))
-(put 'vhdl-compose 'custom-loads '(vhdl-mode))
-(put 'gnus-topic 'custom-loads '(gnus-topic))
-(put 'smerge 'custom-loads '(smerge-mode))
-(put 'gnus-extract 'custom-loads '(gnus-uu gnus))
-(put 'tooltip 'custom-loads '(gud))
-(put 'sh-indentation 'custom-loads '(sh-script))
-(put 'ps-print-vertical 'custom-loads '(ps-print))
-(put 'reftex-fontification-configurations 'custom-loads '(reftex-vars))
-(put 'pascal 'custom-loads '(pascal))
-(put 'network 'custom-loads '(gssapi))
-(put 'gnus-score-various 'custom-loads '(gnus-score gnus))
-(put 'ruler-mode 'custom-loads '(ruler-mode))
-(put 'erc-pcomplete 'custom-loads '(erc-pcomplete))
-(put 'gnus-asynchronous 'custom-loads '(gnus-async))
-(put 'plstore 'custom-loads '(plstore))
-(put 'org-refile 'custom-loads '(org))
-(put 'forms 'custom-loads '(forms))
-(put 'pcmpl-rpm 'custom-loads '(pcmpl-rpm))
-(put 'vc-cvs 'custom-loads '(vc-cvs))
-(put 'org-structure 'custom-loads '(org org-inlinetask org-list))
-(put 'auto-revert 'custom-loads '(autorevert))
-(put 'nxml-faces 'custom-loads '(nxml-mode nxml-outln))
-(put 'vhdl-menu 'custom-loads '(vhdl-mode))
-(put 'pcomplete 'custom-loads '(em-cmpl pcmpl-cvs pcmpl-gnu pcmpl-linux pcmpl-rpm pcomplete))
-(put 'fortran 'custom-loads '(fortran))
-(put 'ebnf-non-terminal 'custom-loads '(ebnf2ps))
-(put 'org-todo 'custom-loads '(org org-clock org-faces))
-(put 'org-mew 'custom-loads '(org-mew))
-(put 'org-bbdb 'custom-loads '(org-bbdb))
-(put 'eudc-bbdb 'custom-loads '(eudc-vars))
-(put 'elint 'custom-loads '(elint))
-(put 'cmuscheme 'custom-loads '(cmuscheme))
-(put 'eshell-cmd 'custom-loads '(esh-cmd))
-(put 'ebnf2ps 'custom-loads '(ebnf2ps))
-(put 'message-faces 'custom-loads '(message))
-(put 'executable 'custom-loads '(executable))
-(put 'applications 'custom-loads '(calc calculator calendar doc-view erc eshell cus-edit htmlfontify ispell mpc newst-backend package rcirc ses))
-(put 'compilation 'custom-loads '(compile))
-(put 'info 'custom-loads '(info))
-(put 'gnus-group-foreign 'custom-loads '(gnus-group gnus-msg))
-(put 'ediff-vers 'custom-loads '(ediff-vers))
-(put 'sgml 'custom-loads '(sgml-mode))
-(put 'nnmail-expire 'custom-loads '(nnmail))
-(put 'display 'custom-loads '(face-remap))
-(put 'newsticker-miscellaneous 'custom-loads '(newst-backend))
-(put 'org-crypt 'custom-loads '(org-crypt))
-(put 'remember 'custom-loads '(remember))
-(put 'spam-bsfilter 'custom-loads '(spam))
-(put 'erc-stamp 'custom-loads '(erc-stamp))
-(put 'verilog-mode-actions 'custom-loads '(verilog-mode))
-(put 'dired-keys 'custom-loads '(dired-x))
-(put 'conf 'custom-loads '(conf-mode))
-(put 'handwrite 'custom-loads '(handwrite))
-(put 'srecode-cpp 'custom-loads '("cpp"))
-(put 'supercite-cite 'custom-loads '(supercite))
-(put 'flymake 'custom-loads '(flymake))
-(put 'allout 'custom-loads '(allout allout-widgets))
-(put 'gnus-server 'custom-loads '(gnus-srvr gnus gnus-int nnheader))
-(put 'feedmail-debug 'custom-loads '(feedmail))
-(put 'comm 'custom-loads '(ange-ftp browse-url bug-reference dig eudc-vars goto-addr gravatar ldap net-utils netrc tls tramp url-vars xesam))
-(put 'gnus-threading 'custom-loads '(gnus-sum))
-(put 'rlogin 'custom-loads '(rlogin))
-(put 'ert 'custom-loads '(ert))
-(put 'url-file 'custom-loads '(url-cache url-cookie url-vars))
-(put 'semantic-faces 'custom-loads '("complete" "include" "mode" "util-modes" "senator" "fields"))
-(put 'newsticker-hooks 'custom-loads '(newst-backend newst-plainview))
-(put 'reftex-optimizations-for-large-documents 'custom-loads '(reftex-vars))
-(put 'message-sending 'custom-loads '(message))
-(put 'todo 'custom-loads '(todo-mode))
-(put 'idlwave-abbrev-and-indent-action 'custom-loads '(idlwave))
-(put 'PostScript-interaction 'custom-loads '(ps-mode))
-(put 'mailalias 'custom-loads '(mailalias))
-(put 'smie 'custom-loads '(smie))
-(put 'bs-appearance 'custom-loads '(bs))
-(put 'org-agenda-export 'custom-loads '(org-agenda))
-(put 'server 'custom-loads '(server))
-(put 'emacsbug 'custom-loads '(emacsbug))
-(put 'erc 'custom-loads '(erc-autoaway erc-join erc erc-button erc-capab erc-goodies erc-dcc erc-ezbounce erc-fill erc-ibuffer erc-identd erc-log erc-match erc-netsplit erc-networks erc-desktop-notifications erc-notify erc-page erc-pcomplete erc-replace erc-services erc-sound erc-speedbar erc-stamp erc-track erc-truncate))
-(put 'org-wl 'custom-loads '(org-wl))
-(put 'url-mime 'custom-loads '(url-vars))
-(put 'landmark 'custom-loads '(landmark))
-(put 'gnus-windows 'custom-loads '(gnus-win))
-(put 'hexl 'custom-loads '(hexl))
-(put 'vhdl-header 'custom-loads '(vhdl-mode))
-(put 'vhdl-compile 'custom-loads '(vhdl-mode))
-(put 'gnus-group-levels 'custom-loads '(gnus-start gnus gnus-group))
-(put 'help-at-pt 'custom-loads '(help-at-pt))
-(put 'org-imenu-and-speedbar 'custom-loads '(org))
-(put 'smtpmail 'custom-loads '(smtpmail))
-(put 'epg 'custom-loads '(epa epg-config))
-(put 'gnus-gravatar 'custom-loads '(gnus-gravatar))
-(put 'vhdl-sequential-process 'custom-loads '(vhdl-mode))
-(put 'gnus-art 'custom-loads '(gnus-art gnus-html))
-(put 'epa 'custom-loads '(epa))
-(put 'mail-hist 'custom-loads '(mail-hist))
-(put 'message 'custom-loads '(footnote message mml mml-sec))
-(put 'rmail-headers 'custom-loads '(rmail undigest))
-(put 'gnus-article-headers 'custom-loads '(gnus-art gnus-sum gnus-fun))
-(put 'abbrev-mode 'custom-loads '(mailabbrev))
-(put 'recentf-filters 'custom-loads '(recentf))
-(put 'eshell-mode 'custom-loads '(esh-mode))
-(put 'makefile 'custom-loads '(make-mode))
-(put 'org-mouse 'custom-loads '(org-mouse))
-(put 'ebrowse-faces 'custom-loads '(ebrowse))
-(put 'spam-bogofilter 'custom-loads '(spam))
-(put 'mail-source 'custom-loads '(mail-source nndiary pop3))
-(put 'ebnf-shape 'custom-loads '(ebnf2ps))
-(put 'erc-capab 'custom-loads '(erc-capab))
-(put 'mime-display 'custom-loads '(flow-fill mm-decode mm-view))
-(put 'calendar-dst 'custom-loads '(cal-dst))
-(put 'gnus-notifications 'custom-loads '(gnus-notifications))
-(put 'dired 'custom-loads '(dired dired-aux dired-x find-dired ls-lisp wdired))
-(put 'reveal 'custom-loads '(reveal))
-(put 'custom-menu 'custom-loads '(cus-edit))
-(put 'nnmail-prepare 'custom-loads '(nnmail))
-(put 'smime 'custom-loads '(smime))
-(put 'paren-showing 'custom-loads '(paren))
-(put 'wp 'custom-loads '(bib-mode delim-col ebnf2ps enriched lpr nroff-mode outline picture printing ps-print refbib refer rng-valid rst table cus-edit tildify view))
-(put 'senator 'custom-loads '("senator"))
-(put 'newsticker 'custom-loads '(newst-backend newst-reader newst-ticker))
-(put 'elp 'custom-loads '(elp))
-(put 'archive-7z 'custom-loads '(arc-mode))
-(put 'vhdl-model 'custom-loads '(vhdl-mode))
-(put 'gnus-article-saving 'custom-loads '(gnus gnus-art))
-(put 'idlwave-shell-highlighting-and-faces 'custom-loads '(idlw-shell))
-(put 'org-agenda-custom-commands 'custom-loads '(org-agenda))
-(put 'gnus-various 'custom-loads '(gnus-util gnus-sum gnus))
-(put 'feedmail-spray 'custom-loads '(feedmail))
-(put 'ebrowse-member 'custom-loads '(ebrowse))
-(put 'dired-x 'custom-loads '(dired-x))
-(put 'inferior-lisp 'custom-loads '(inf-lisp))
-(put 'binhex 'custom-loads '(binhex))
-(put 'archive-arc 'custom-loads '(arc-mode))
-(put 'vc 'custom-loads '(log-edit vc vc-annotate vc-arch vc-bzr vc-dispatcher vc-cvs vc-dir vc-git vc-hg vc-mtn vc-rcs vc-sccs vc-svn))
-(put 'erc-faces 'custom-loads '(erc-goodies erc erc-button erc-capab erc-match erc-stamp))
-(put 'advice 'custom-loads '(advice))
-(put 'vc-bzr 'custom-loads '(vc-bzr))
-(put 'calendar 'custom-loads '(appt calendar cal-x cal-china cal-dst cal-html solar cal-tex diary-lib holidays icalendar lunar midnight org todo-mode))
-(put 'locate 'custom-loads '(locate))
-(put 'goto-address 'custom-loads '(goto-addr))
-(put 'org-clock 'custom-loads '(org-agenda org-clock))
-(put 'vhdl-port 'custom-loads '(vhdl-mode))
-(put 'multi-isearch 'custom-loads '(misearch))
-(put 'ebnf-repeat 'custom-loads '(ebnf2ps))
-(put 'allout-keybindings 'custom-loads '(allout))
-(put 'spam-spamoracle 'custom-loads '(spam))
-(put 'woman-interface 'custom-loads '(woman))
-(put 'gnus-summary-exit 'custom-loads '(gnus-sum gnus))
-(put 'mspools 'custom-loads '(mspools))
-(put 'ps-print-page 'custom-loads '(ps-print))
-(put 'gnus-charset 'custom-loads '(gnus gnus-group gnus-sum))
-(put 'bibtex-autokey 'custom-loads '(bibtex))
-(put 'erc-button 'custom-loads '(erc-button))
-(put 'htmlfontify 'custom-loads '(htmlfontify))
-(put 'erc-networks 'custom-loads '(erc-networks))
-(put 'artist 'custom-loads '(artist))
-(put 'log-edit 'custom-loads '(log-edit))
-(put 'sh 'custom-loads '(sh-script))
-(put 'gnus-summary-visual 'custom-loads '(gnus-sum))
-(put '5x5 'custom-loads '(5x5))
-(put 'cperl-indentation-details 'custom-loads '(cperl-mode))
-(put 'newsticker-headline-processing 'custom-loads '(newst-backend))
-(put 'dirtrack 'custom-loads '(dirtrack))
-(put 'smiley 'custom-loads '(smiley))
-(put 'calendar-hooks 'custom-loads '(cal-x calendar))
-(put 'ebnf-terminal 'custom-loads '(ebnf2ps))
-(put 'makeinfo 'custom-loads '(makeinfo))
-(put 'rst-indent 'custom-loads '(rst))
-(put 'pages 'custom-loads '(page-ext))
-(put 'org-keywords 'custom-loads '(org))
-(put 'gnus-visual 'custom-loads '(gnus-art gnus-gravatar gnus smiley))
-(put 'idlwave-completion 'custom-loads '(idlwave))
-(put 'speedbar-faces 'custom-loads '(speedbar vhdl-mode))
-(put 'ibuffer 'custom-loads '(ibuffer ibuf-ext))
-(put 'generic-x 'custom-loads '(generic-x))
-(put 'epa-file 'custom-loads '(epa-file))
-(put 'gnus-files 'custom-loads '(gnus nnmail))
-(put 'cperl-affected-by-hairy 'custom-loads '(cperl-mode))
-(put 'find-dired 'custom-loads '(find-dired))
-(put 'archive-lzh 'custom-loads '(arc-mode))
-(put 'two-column 'custom-loads '(two-column))
-(put 'ediff-merge 'custom-loads '(ediff-init ediff-merg))
-(put 'org-sparse-trees 'custom-loads '(org))
-(put 'speedbar-vc 'custom-loads '(speedbar))
-(put 'eshell-basic 'custom-loads '(em-basic))
-(put 'meta-font 'custom-loads '(meta-mode))
-(put 'bytecomp 'custom-loads '(bytecomp))
-(put 'pp 'custom-loads '(pp))
-(put 'vera 'custom-loads '(vera-mode))
-(put 'gnus-undo 'custom-loads '(gnus-undo))
-(put 'shell-directories 'custom-loads '(shell))
-(put 'compare-windows 'custom-loads '(compare-w))
-(put 'diff-mode 'custom-loads '(diff-mode))
-(put 'ps-print-miscellany 'custom-loads '(ps-bdf ps-print))
-(put 'gulp 'custom-loads '(gulp))
-(put 'help 'custom-loads '(apropos cus-edit ehelp help-at-pt help-fns help-mode info info-look man help-macro tutorial woman))
-(put 'lisp-mnt 'custom-loads '(lisp-mnt))
-(put 'type-break 'custom-loads '(type-break))
-(put 'idlwave 'custom-loads '(idlwave idlw-help idlw-shell))
-(put 'erc-track 'custom-loads '(erc-track))
-(put 'spam-ifile 'custom-loads '(spam))
-(put 'edt 'custom-loads '(edt))
-(put 'eshell-ls 'custom-loads '(em-ls))
-(put 'erc-spelling 'custom-loads '(erc-spelling))
-(put 'erc-sound 'custom-loads '(erc-sound))
-(put 'gnus-fun 'custom-loads '(gnus-fun))
-(put 'auth-source 'custom-loads '(auth-source))
-(put 'bug-reference 'custom-loads '(bug-reference))
-(put 'ede 'custom-loads '(ede "locate" "make" "base" "project-am" "linux"))
-(put 'fortran-comment 'custom-loads '(fortran))
-(put 'newsticker-retrieval 'custom-loads '(newst-backend))
-(put 'electricity 'custom-loads '(electric))
-(put 'org-id 'custom-loads '(org org-id))
-(put 'ediff-window 'custom-loads '(ediff-wind ediff-help))
-(put 'profiler 'custom-loads '(profiler))
-(put 'idlwave-documentation 'custom-loads '(idlwave))
-(put 'org-export 'custom-loads '(org-ascii org-docbook org-exp org-html org-icalendar org-latex org-odt org-taskjuggler))
-(put 'eshell 'custom-loads '(esh-arg eshell esh-cmd esh-ext esh-io esh-mode esh-module esh-opt esh-proc esh-util esh-var))
-(put 'ps-print-n-up 'custom-loads '(ps-print))
-(put 'org-habit 'custom-loads '(org-habit))
-(put 'prolog-font-lock 'custom-loads '(prolog))
-(put 'custom-buffer 'custom-loads '(cus-edit cus-theme))
-(put 'simula 'custom-loads '(simula))
-(put 'spam-spamassassin 'custom-loads '(spam))
-(put 'eshell-io 'custom-loads '(esh-io))
-(put 'copyright 'custom-loads '(copyright))
-(put 'eshell-rebind 'custom-loads '(em-rebind))
-(put 'gnus-start 'custom-loads '(gnus-int gnus-start gnus gnus-group gnus-util nnheader))
-(put 'gnus-meta 'custom-loads '(gnus-util gnus))
-(put 'newsticker-treeview 'custom-loads '(newst-treeview))
-(put 'tex-run 'custom-loads '(tex-mode))
-(put 'rmail-mime 'custom-loads '(rmailmm))
-(put 'imap 'custom-loads '(imap))
-(put 'antlr 'custom-loads '(antlr-mode))
-(put 'gnus-duplicate 'custom-loads '(gnus-dup))
-(put 'js 'custom-loads '(js))
-(put 'epa-faces 'custom-loads '(epa))
-(put 'org-attach 'custom-loads '(org-attach))
-(put 'fortran-indent 'custom-loads '(fortran))
-(put 'gnus-bookmark 'custom-loads '(gnus-bookmark))
-(put 'image 'custom-loads '(iimage image-mode image-file))
-(put 'm4 'custom-loads '(m4-mode))
-(put 'project-am 'custom-loads '("project-am"))
-(put 'org-completion 'custom-loads '(org))
-(put 'eshell-smart 'custom-loads '(em-smart))
-(put 'cwarn 'custom-loads '(cwarn))
-(put 'appt 'custom-loads '(appt))
-(put 'rmail-summary 'custom-loads '(rmail rmailsum))
-(put 'iso-ascii 'custom-loads '(iso-ascii))
-(put 'log-view 'custom-loads '(log-view))
-(put 'vip 'custom-loads '(vip))
-(put 'testcover 'custom-loads '(testcover))
-(put 'gnus-article 'custom-loads '(gnus-art gnus-cite))
-(put 'message-forwarding 'custom-loads '(message))
-(put 'newsticker-ticker 'custom-loads '(newst-ticker))
-(put 'gnus-group-icons 'custom-loads '(gnus-group))
-(put 'ediff-diff 'custom-loads '(ediff-diff))
-(put 'solitaire 'custom-loads '(solitaire))
-(put 'reftex-miscellaneous-configurations 'custom-loads '(reftex-vars))
-(put 'gnus 'custom-loads '(auth-source gnus gnus-art gnus-async gnus-bookmark gnus-delay gnus-demon gnus-diary gnus-dup gnus-eform gnus-uu gnus-notifications deuglify gnus-sieve gnus-sync gnus-undo gnus-win mail-source mm-url nnir nnmail nnmairix nntp spam-stat))
-(put 'gnus-registry 'custom-loads '(gnus-registry))
-(put 'idlwave-external-programs 'custom-loads '(idlwave))
-(put 'battery 'custom-loads '(battery))
-(put 'iimage 'custom-loads '(iimage))
-(put 'gnus-summary-maneuvering 'custom-loads '(gnus-sum))
-(put 'calculator 'custom-loads '(calculator))
-(put 'vhdl-misc 'custom-loads '(vhdl-mode))
-(put 'org-export-icalendar 'custom-loads '(org-icalendar))
-(put 'canlock 'custom-loads '(canlock))
-(put 'org-infojs 'custom-loads '(org-jsinfo))
-(put 'gnus-edit-form 'custom-loads '(gnus-eform))
-(put 'vc-svn 'custom-loads '(vc-svn))
-(put 'reftex-table-of-contents-browser 'custom-loads '(reftex-vars))
-(put 'newsticker-reader 'custom-loads '(newst-reader newst-plainview newst-treeview))
-(put 'ff 'custom-loads '(find-file))
-(put 'ps-print-face 'custom-loads '(ps-print))
-(put 'tools 'custom-loads '(calculator add-log compare-w compile copyright diff diff-mode ebrowse ede ediff elide-head emerge etags flymake gdb-mi glasses grep gud make-mode pcvs-defs "project-am" "linux" rcompile semantic sieve smerge-mode soap-client speedbar srecode tempo vc which-func))
-(put 'eshell-arg 'custom-loads '(esh-arg))
-(put 'gnus-group-various 'custom-loads '(gnus-group gnus-start gnus))
-(put 'org-table-settings 'custom-loads '(org-table))
-(put 'erc-autojoin 'custom-loads '(erc-join))
-(put 'prolog-keyboard 'custom-loads '(prolog))
-(put 'gdb-buffers 'custom-loads '(gdb-mi))
-(put 'vc-sccs 'custom-loads '(vc-sccs))
-(put 'tetris 'custom-loads '(tetris))
-(put 'feedmail 'custom-loads '(feedmail))
-(put 'editing-basics 'custom-loads '(cua-base))
-(put 'org-edit-structure 'custom-loads '(org org-src))
-(put 'org-agenda-search-view 'custom-loads '(org-agenda))
-(put 'vc-hg 'custom-loads '(vc-hg))
-(put 'nntp 'custom-loads '(nntp))
-(put 'feedmail-queue 'custom-loads '(feedmail))
-(put 'ediff-hook 'custom-loads '(ediff-init ediff-mult))
-(put 'org-publish 'custom-loads '(org-publish))
-(put 'display-time 'custom-loads '(time))
-(put 'dig 'custom-loads '(dig net-utils))
-(put 'semantic-modes 'custom-loads '("mru-bookmark"))
-(put 'org-link-follow 'custom-loads '(org org-mhe))
-(put 'frames 'custom-loads '(desktop ediff-wind imenu two-column))
-(put 'org-beamer 'custom-loads '(org-beamer))
-(put 'gnus-score-default 'custom-loads '(gnus-sum gnus-score))
-(put 'org-remember 'custom-loads '(org org-remember))
-(put 'vhdl-naming 'custom-loads '(vhdl-mode))
-(put 'vhdl-speedbar 'custom-loads '(vhdl-mode))
-(put 'gnus-summary-marks 'custom-loads '(gnus-sum gnus))
-(put 'bs 'custom-loads '(bs))
-(put 'rst-faces 'custom-loads '(rst))
-(put 'vc-mtn 'custom-loads '(vc-mtn))
-(put 'eshell-proc 'custom-loads '(esh-proc))
-(put 'viper-ex 'custom-loads '(viper-ex))
-(put 'erc-query 'custom-loads '(erc))
-(put 'idlwave-shell-command-setup 'custom-loads '(idlw-shell))
-(put 'isearch 'custom-loads '(misearch))
-(put 'expand 'custom-loads '(expand))
-(put 'glasses 'custom-loads '(glasses))
-(put 'erc-server-hooks 'custom-loads '(erc))
-(put 'erc-hooks 'custom-loads '(erc erc-netsplit))
-(put 'warnings 'custom-loads '(warnings))
-(put 'python 'custom-loads '(python))
-(put 'org-startup 'custom-loads '(org))
-(put 'url 'custom-loads '(url-vars url url-cookie url-gw url-handlers url-history url-irc url-news url-nfs url-queue))
-(put 'idlwave-routine-info 'custom-loads '(idlwave))
-(put 'erc-display 'custom-loads '(erc erc-goodies))
-(put 'highlight-changes 'custom-loads '(hilit-chg))
-(put 'terminals 'custom-loads '(terminal))
-(put 'gnus-sieve 'custom-loads '(gnus-sieve))
-(put 'eshell-dirs 'custom-loads '(em-dirs))
-(put 'org-tags 'custom-loads '(org org-faces))
-(put 'shell 'custom-loads '(dirtrack shell terminal))
-(put 'mairix 'custom-loads '(mairix))
-(put 'mailcap 'custom-loads '(mailcap))
-(put 'org-clocktable 'custom-loads '(org-clock))
-(put 'mail 'custom-loads '(binhex time ecomplete emacsbug eudc-vars feedmail fortune gnus gnus-dired hashcash imap mail-utils mail-extr mail-hist mailalias mailclient mairix message metamail mm-decode mspools pop3 rmail sendmail shr sieve-manage smtpmail spam spam-report starttls supercite uce uudecode))
-(put 'windows 'custom-loads '(follow windmove winner))
-(put 'hi-lock-faces 'custom-loads '(hi-lock))
-(put 'vcursor 'custom-loads '(vcursor))
-(put 'org-export-translation 'custom-loads '(org-latex org-exp org))
-(put 'find-function 'custom-loads '(find-func))
-(put 'xesam 'custom-loads '(xesam))
-(put 'c-macro 'custom-loads '(cmacexp))
-(put 'edebug 'custom-loads '(edebug))
-(put 'rmail-spam-filter 'custom-loads '(rmail-spam-filter))
-(put 'gnus-summary-mail 'custom-loads '(gnus-sum))
-(put 'eshell-prompt 'custom-loads '(em-prompt))
-(put 'org 'custom-loads '(org org-attach ob org-capture org-pcomplete org-crypt org-entities org-exp org-feed org-footnote org-freemind org-id org-indent org-mobile org-mouse org-protocol org-publish org-remember))
-(put 'files 'custom-loads '(ange-ftp autoinsert autorevert cus-edit dired filecache latexenc plstore recentf shadowfile tramp uniquify))
-(put 'url-cache 'custom-loads '(url-vars url-cache))
-(put 'url-hairy 'custom-loads '(url-vars url-util))
-(put 'org-indent 'custom-loads '(org-indent))
-(put 'fortune 'custom-loads '(fortune))
-(put 'cua 'custom-loads '(cua-base))
-(put 'project-linux 'custom-loads '("linux"))
-(put 'gnus-summary-format 'custom-loads '(gnus-diary gnus gnus-sum))
-(put 'org-agenda-windows 'custom-loads '(org-agenda org))
-(put 'electric-help 'custom-loads '(ehelp))
-(put 'dired-mark 'custom-loads '(dired))
-(put 'languages 'custom-loads '(ps-mode sql ada-mode antlr-mode asm-mode cus-edit cfengine cperl-mode css-mode dcl-mode delphi f90 fortran hideshow icon idlwave info-look js ld-script m4-mode meta-mode modula2 nxml-mode octave-mod pascal perl-mode prolog python rng-valid ruby-mode sgml-mode sh-script sieve simula smie tcl vera-mode verilog-mode vhdl-mode))
-(put 'gnus-group-listing 'custom-loads '(gnus-group))
-(put 'gnutls 'custom-loads '(gnutls))
-(put 'org-table-import-export 'custom-loads '(org-table))
-(put 'css 'custom-loads '(css-mode))
-(put 'minibuffer 'custom-loads '(icomplete minibuf-eldef savehist))
-(put 'org-agenda-column-view 'custom-loads '(org-agenda))
-(put 'comint 'custom-loads '(comint))
-(put 'c 'custom-loads '("cc-vars" cc-fonts "cc-guess" cmacexp cpp hideif "c"))
-(put 'fortune-signature 'custom-loads '(fortune))
-(put 'supercite-frames 'custom-loads '(supercite))
-(put 'widget-button 'custom-loads '(wid-edit))
-(put 'gnus-format 'custom-loads '(gnus-spec))
-(put 'prolog-other 'custom-loads '(prolog))
-(put 'dcl 'custom-loads '(dcl-mode))
-(put 'leim 'custom-loads '(quail))
-(put 'PostScript-edit 'custom-loads '(ps-mode))
-(put 'hide-ifdef 'custom-loads '(hideif))
-(put 'find-file 'custom-loads '(find-file))
-(put 'ebrowse-tree 'custom-loads '(ebrowse))
-(put 'erc-identd 'custom-loads '(erc-identd))
-(put 'tex-view 'custom-loads '(tex-mode))
-(put 'columns 'custom-loads '(delim-col))
-(put 'org-agenda-sorting 'custom-loads '(org-agenda))
-(put 'sendmail 'custom-loads '(sendmail))
-(put 'thumbs 'custom-loads '(thumbs))
-(put 'gnus-dribble-file 'custom-loads '(gnus-start))
-(put 'org-agenda-startup 'custom-loads '(org-agenda))
-(put 'eshell-cmpl 'custom-loads '(em-cmpl))
-(put 'gnus-article-mime 'custom-loads '(gnus-sum gnus-art mm-uu))
-(put 'vhdl-testbench 'custom-loads '(vhdl-mode))
-(put 'erc-ezbounce 'custom-loads '(erc-ezbounce))
-(put 'org-plain-lists 'custom-loads '(org-list))
-(put 'cpp 'custom-loads '(cpp))
-(put 'ps-print-printer 'custom-loads '(lpr ps-print))
-(put 'message-buffers 'custom-loads '(message))
-(put 'xscheme 'custom-loads '(xscheme))
-(put 'ebrowse 'custom-loads '(ebrowse))
-(put 'org-export-pdf 'custom-loads '(org-latex))
-(put 'custom-faces 'custom-loads '(cus-edit eieio-custom))
-(put 'package 'custom-loads '(package-x package))
-(put 'erc-autoaway 'custom-loads '(erc-autoaway))
-(put 'ebnf-production 'custom-loads '(ebnf2ps))
-(put 'gnus-score-expire 'custom-loads '(gnus-kill gnus-score))
-(put 'longlines 'custom-loads '(longlines))
-(put 'icomplete 'custom-loads '(icomplete))
-(put 'erc-mode-line-and-header 'custom-loads '(erc))
-(put 'vhdl-mode 'custom-loads '(vhdl-mode))
-(put 'diff 'custom-loads '(diff diff-mode))
-(put 'texinfo 'custom-loads '(informat "document" texinfo))
-(put 'gnus-article-highlight 'custom-loads '(gnus-art))
-(put 'nnmail-files 'custom-loads '(nnmail))
-(put 'calc 'custom-loads '(calc))
-(put 'nnir 'custom-loads '(nnir))
-(put 'org-archive 'custom-loads '(org org-archive org-exp))
-(put 'local 'custom-loads '(holidays))
-(put 'docs 'custom-loads '(info makeinfo texinfo))
-(put 'erc-log 'custom-loads '(erc-log))
-(put 'auto-insert 'custom-loads '(autoinsert))
-(put 'dired-faces 'custom-loads '(dired))
-(put 'verilog-mode-indent 'custom-loads '(verilog-mode))
-(put 'decipher 'custom-loads '(decipher))
-(put 'eshell-pred 'custom-loads '(em-pred))
-;; These are for handling :version. We need to have a minimum of
-;; information so `customize-changed-options' could do its job.
-
-;; For groups we set `custom-version', `group-documentation' and
-;; `custom-tag' (which are shown in the customize buffer), so we
-;; don't have to load the file containing the group.
-
-;; `custom-versions-load-alist' is an alist that has as car a version
-;; number and as elts the files that have variables or faces that
-;; contain that version. These files should be loaded before showing
-;; the customization buffer that `customize-changed-options'
-;; generates.
-
-;; This macro is used so we don't modify the information about
-;; variables and groups if it's already set. (We don't know when
-;; cus-load.el is going to be loaded and at that time some of the
-;; files might be loaded and some others might not).
-(defmacro custom-put-if-not (symbol propname value)
- `(unless (get ,symbol ,propname)
- (put ,symbol ,propname ,value)))
-
-(custom-put-if-not 'tildify 'custom-version "21.1")
-(custom-put-if-not 'tildify 'group-documentation "Add hard spaces or other text fragments to text buffers.")
-(custom-put-if-not 'org-protocol 'custom-version "22.1")
-(custom-put-if-not 'org-protocol 'group-documentation "Intercept calls from emacsclient to trigger custom actions.
-
-This is done by advising `server-visit-files' to scan the list of filenames
-for `org-protocol-the-protocol' and sub-protocols defined in
-`org-protocol-protocol-alist' and `org-protocol-protocol-alist-default'.")
-(custom-put-if-not 'vc-git 'custom-version "24.1")
-(custom-put-if-not 'vc-git 'group-documentation "VC Git backend.")
-(custom-put-if-not 'table 'custom-version "22.1")
-(custom-put-if-not 'table 'group-documentation "Text based table manipulation utilities.")
-(custom-put-if-not 'table 'custom-tag "Table")
-(custom-put-if-not 'spam-stat 'custom-version "22.1")
-(custom-put-if-not 'spam-stat 'group-documentation "Statistical spam detection for Emacs.
-Use the functions to build a dictionary of words and their statistical
-distribution in spam and non-spam mails. Then use a function to determine
-whether a buffer contains spam or not.")
-(custom-put-if-not 'SQL 'custom-version "20.4")
-(custom-put-if-not 'SQL 'group-documentation "Running a SQL interpreter from within Emacs buffers.")
-(custom-put-if-not 'ps-print-headers 'custom-version "20")
-(custom-put-if-not 'ps-print-headers 'group-documentation "Headers & footers layout.")
-(custom-put-if-not 'ps-print-headers 'custom-tag "Header & Footer")
-(custom-put-if-not 'doc-view 'custom-version "22.2")
-(custom-put-if-not 'doc-view 'group-documentation "In-buffer viewer for PDF, PostScript and DVI files.")
-(custom-put-if-not 'whitespace 'custom-version "23.1")
-(custom-put-if-not 'whitespace 'group-documentation "Visualize blanks (TAB, (HARD) SPACE and NEWLINE).")
-(custom-put-if-not 'tree-widget 'custom-version "22.1")
-(custom-put-if-not 'tree-widget 'group-documentation "Customization support for the Tree Widget library.")
-(custom-put-if-not 'ido 'custom-version "22.1")
-(custom-put-if-not 'ido 'group-documentation "Switch between files using substrings.")
-(custom-put-if-not 'tramp 'custom-version "22.1")
-(custom-put-if-not 'tramp 'group-documentation "Edit remote files with a combination of ssh, scp, etc.")
-(custom-put-if-not 'sieve 'custom-version "22.1")
-(custom-put-if-not 'sieve 'group-documentation "Manage sieve scripts.")
-(custom-put-if-not 'rcirc 'custom-version "22.1")
-(custom-put-if-not 'rcirc 'group-documentation "Simple IRC client.")
-(custom-put-if-not 'ps-print-horizontal 'custom-version "20")
-(custom-put-if-not 'ps-print-horizontal 'group-documentation "Horizontal page layout.")
-(custom-put-if-not 'ps-print-horizontal 'custom-tag "Horizontal")
-(custom-put-if-not 'cperl 'custom-version "20.3")
-(custom-put-if-not 'cperl 'group-documentation "Major mode for editing Perl code.")
-(custom-put-if-not 'rst-adjust 'custom-version "21.1")
-(custom-put-if-not 'rst-adjust 'group-documentation "Settings for adjustment and cycling of section title adornments.")
-(custom-put-if-not 'ps-print-color 'custom-version "20")
-(custom-put-if-not 'ps-print-color 'group-documentation "Color customization.")
-(custom-put-if-not 'ps-print-color 'custom-tag "Color")
-(custom-put-if-not 'vc-arch 'custom-version "24.1")
-(custom-put-if-not 'vc-arch 'group-documentation "VC Arch backend.")
-(custom-put-if-not 'ls-lisp 'custom-version "21.1")
-(custom-put-if-not 'ls-lisp 'group-documentation "Emulate the ls program completely in Emacs Lisp.")
-(custom-put-if-not 'org-export-odt 'custom-version "24.1")
-(custom-put-if-not 'org-export-odt 'group-documentation "Options specific for ODT export of Org-mode files.")
-(custom-put-if-not 'org-export-odt 'custom-tag "Org Export ODT")
-(custom-put-if-not 'align 'custom-version "21.1")
-(custom-put-if-not 'align 'group-documentation "Align text to a specific column, by regexp.")
-(custom-put-if-not 'erc-lurker 'custom-version "24.3")
-(custom-put-if-not 'erc-lurker 'group-documentation "Hide specified message types sent by lurkers")
-(custom-put-if-not 'ps-print 'custom-version "20")
-(custom-put-if-not 'ps-print 'group-documentation "PostScript generator for Emacs.")
-(custom-put-if-not 'filesets 'custom-version "22.1")
-(custom-put-if-not 'filesets 'group-documentation "The fileset swapper.")
-(custom-put-if-not 'printing 'custom-version "22.1")
-(custom-put-if-not 'printing 'group-documentation "Printing Utilities group.")
-(custom-put-if-not 'printing 'custom-tag "Printing Utilities")
-(custom-put-if-not 'nndiary 'custom-version "22.1")
-(custom-put-if-not 'nndiary 'group-documentation "The Gnus Diary back end.")
-(custom-put-if-not 'midnight 'custom-version "20.3")
-(custom-put-if-not 'midnight 'group-documentation "Run something every day at midnight.")
-(custom-put-if-not 'ebnf-displacement 'custom-version "20")
-(custom-put-if-not 'ebnf-displacement 'group-documentation "Displacement customization.")
-(custom-put-if-not 'ebnf-displacement 'custom-tag "Displacement")
-(custom-put-if-not 'ldap 'custom-version "21.1")
-(custom-put-if-not 'ldap 'group-documentation "Lightweight Directory Access Protocol.")
-(custom-put-if-not 'gnus-diary 'custom-version "22.1")
-(custom-put-if-not 'gnus-diary 'group-documentation "Utilities on top of the nndiary back end for Gnus.")
-(custom-put-if-not 'ebnf-except 'custom-version "20")
-(custom-put-if-not 'ebnf-except 'group-documentation "Except customization.")
-(custom-put-if-not 'ebnf-except 'custom-tag "Except")
-(custom-put-if-not 'gnus-sync 'custom-version "24.1")
-(custom-put-if-not 'gnus-sync 'group-documentation "The Gnus synchronization facility.")
-(custom-put-if-not 'gravatar 'custom-version "24.1")
-(custom-put-if-not 'gravatar 'group-documentation "Gravatar.")
-(custom-put-if-not 'ansi-colors 'custom-version "21.1")
-(custom-put-if-not 'ansi-colors 'group-documentation "Translating SGR control sequences to faces.
-This translation effectively colorizes strings and regions based upon
-SGR control sequences embedded in the text. SGR (Select Graphic
-Rendition) control sequences are defined in section 8.3.117 of the
-ECMA-48 standard (identical to ISO/IEC 6429), which is freely available
-as a PDF file <URL:http://www.ecma.ch/ecma1/STAND/ECMA-048.HTM>.")
-(custom-put-if-not 'postscript 'custom-version "20")
-(custom-put-if-not 'postscript 'group-documentation "Printing with PostScript")
-(custom-put-if-not 'postscript 'custom-tag "PostScript")
-(custom-put-if-not 'windmove 'custom-version "21.1")
-(custom-put-if-not 'windmove 'group-documentation "Directional selection of windows in a frame.")
-(custom-put-if-not 'vc-rcs 'custom-version "24.1")
-(custom-put-if-not 'vc-rcs 'group-documentation "VC RCS backend.")
-(custom-put-if-not 'starttls 'custom-version "21.1")
-(custom-put-if-not 'starttls 'group-documentation "Support for `Transport Layer Security' protocol.")
-(custom-put-if-not 'net-utils 'custom-version "20.3")
-(custom-put-if-not 'net-utils 'group-documentation "Network utility functions.")
-(custom-put-if-not 'emacs-lock 'custom-version "24.1")
-(custom-put-if-not 'emacs-lock 'group-documentation "Emacs-Lock mode.")
-(custom-put-if-not 'footnote 'custom-version "21.1")
-(custom-put-if-not 'footnote 'group-documentation "Support for footnotes in mail and news messages.")
-(custom-put-if-not 'ebnf-syntactic 'custom-version "20")
-(custom-put-if-not 'ebnf-syntactic 'group-documentation "Syntactic customization.")
-(custom-put-if-not 'ebnf-syntactic 'custom-tag "Syntactic")
-(custom-put-if-not 'erc-notifications 'custom-version "24.3")
-(custom-put-if-not 'erc-notifications 'group-documentation "Send notifications on PRIVMSG or mentions.")
-(custom-put-if-not 'ps-print-background 'custom-version "20")
-(custom-put-if-not 'ps-print-background 'group-documentation "Background customization.")
-(custom-put-if-not 'ps-print-background 'custom-tag "Background")
-(custom-put-if-not 'ebnf-optimization 'custom-version "20")
-(custom-put-if-not 'ebnf-optimization 'group-documentation "Optimization customization.")
-(custom-put-if-not 'ebnf-optimization 'custom-tag "Optimization")
-(custom-put-if-not 'quickurl 'custom-version "21.1")
-(custom-put-if-not 'quickurl 'group-documentation "Insert a URL based on text at point in buffer.")
-(custom-put-if-not 'pcl-cvs 'custom-version "21.1")
-(custom-put-if-not 'pcl-cvs 'group-documentation "Special support for the CVS versioning system.")
-(custom-put-if-not 'elide-head 'custom-version "21.1")
-(custom-put-if-not 'elide-head 'group-documentation "Eliding copyright headers and the like in source files.")
-(custom-put-if-not 'eudc 'custom-version "21.1")
-(custom-put-if-not 'eudc 'group-documentation "Emacs Unified Directory Client.")
-(custom-put-if-not 'gnus-outlook-deuglify 'custom-version "22.1")
-(custom-put-if-not 'gnus-outlook-deuglify 'group-documentation "Deuglify articles generated by broken user agents like MS Outlook (Express).")
-(custom-put-if-not 'w32 'custom-version "22.1")
-(custom-put-if-not 'w32 'group-documentation "MS-Windows specific features.")
-(custom-put-if-not 'socks 'custom-version "22.2")
-(custom-put-if-not 'socks 'group-documentation "SOCKS Support")
-(custom-put-if-not 'recentf 'custom-version "21.1")
-(custom-put-if-not 'recentf 'group-documentation "Maintain a menu of recently opened files.")
-(custom-put-if-not 'gdb-non-stop 'custom-version "23.2")
-(custom-put-if-not 'gdb-non-stop 'group-documentation "GDB non-stop debugging settings")
-(custom-put-if-not 'delphi 'custom-version "21.1")
-(custom-put-if-not 'delphi 'group-documentation "Major mode for editing Delphi source in Emacs.")
-(custom-put-if-not 'gmm 'custom-version "22.1")
-(custom-put-if-not 'gmm 'group-documentation "Utility functions for Gnus, Message and MML.")
-(custom-put-if-not 'rst-toc 'custom-version "21.1")
-(custom-put-if-not 'rst-toc 'group-documentation "Settings for reStructuredText table of contents.")
-(custom-put-if-not 'ps-print-zebra 'custom-version "20")
-(custom-put-if-not 'ps-print-zebra 'group-documentation "Zebra customization.")
-(custom-put-if-not 'ps-print-zebra 'custom-tag "Zebra")
-(custom-put-if-not 'shr 'custom-version "24.1")
-(custom-put-if-not 'shr 'group-documentation "Simple HTML Renderer")
-(custom-put-if-not 'ps-print-font 'custom-version "20")
-(custom-put-if-not 'ps-print-font 'group-documentation "Fonts customization.")
-(custom-put-if-not 'ps-print-font 'custom-tag "Font")
-(custom-put-if-not 'gnus-delay 'custom-version "22.1")
-(custom-put-if-not 'gnus-delay 'group-documentation "Arrange for sending postings later.")
-(custom-put-if-not 'gametree 'custom-version "20.3")
-(custom-put-if-not 'gametree 'group-documentation "Manage game analysis trees in Emacs.")
-(custom-put-if-not 'verilog-mode 'custom-version "22.2")
-(custom-put-if-not 'verilog-mode 'group-documentation "Major mode for Verilog source code.")
-(custom-put-if-not 'ses 'custom-version "21.1")
-(custom-put-if-not 'ses 'group-documentation "Simple Emacs Spreadsheet.")
-(custom-put-if-not 'ses 'custom-tag "SES")
-(custom-put-if-not 'rst 'custom-version "23.1")
-(custom-put-if-not 'rst 'group-documentation "Support for reStructuredText documents.")
-(custom-put-if-not 'snmp 'custom-version "20.4")
-(custom-put-if-not 'snmp 'group-documentation "Mode for editing SNMP MIB files.")
-(custom-put-if-not 'gdb 'custom-version "23.2")
-(custom-put-if-not 'gdb 'group-documentation "GDB graphical interface")
-(custom-put-if-not 'soap-client 'custom-version "24.1")
-(custom-put-if-not 'soap-client 'group-documentation "Access SOAP web services from Emacs.")
-(custom-put-if-not 'checkdoc 'custom-version "20.3")
-(custom-put-if-not 'checkdoc 'group-documentation "Support for doc string checking in Emacs Lisp.")
-(custom-put-if-not 'kmacro 'custom-version "22.1")
-(custom-put-if-not 'kmacro 'group-documentation "Simplified keyboard macro user interface.")
-(custom-put-if-not 'ebnf-special 'custom-version "20")
-(custom-put-if-not 'ebnf-special 'group-documentation "Special customization.")
-(custom-put-if-not 'ebnf-special 'custom-tag "Special")
-(custom-put-if-not 'master 'custom-version "22.1")
-(custom-put-if-not 'master 'group-documentation "Support for master/slave relationships between buffers.")
-(custom-put-if-not 'paren-showing-faces 'custom-version "22.1")
-(custom-put-if-not 'paren-showing-faces 'group-documentation "Group for faces of Show Paren mode.")
-(custom-put-if-not 'savehist 'custom-version "22.1")
-(custom-put-if-not 'savehist 'group-documentation "Save minibuffer history.")
-(custom-put-if-not 'ps-print-vertical 'custom-version "20")
-(custom-put-if-not 'ps-print-vertical 'group-documentation "Vertical page layout.")
-(custom-put-if-not 'ps-print-vertical 'custom-tag "Vertical")
-(custom-put-if-not 'ruler-mode 'custom-version "22.1")
-(custom-put-if-not 'ruler-mode 'group-documentation "Display a ruler in the header line.")
-(custom-put-if-not 'plstore 'custom-version "24.1")
-(custom-put-if-not 'plstore 'group-documentation "Searchable, partially encrypted, persistent plist store")
-(custom-put-if-not 'vc-cvs 'custom-version "24.1")
-(custom-put-if-not 'vc-cvs 'group-documentation "VC CVS backend.")
-(custom-put-if-not 'pcomplete 'custom-version "21.1")
-(custom-put-if-not 'pcomplete 'group-documentation "Programmable completion.")
-(custom-put-if-not 'ebnf-non-terminal 'custom-version "20")
-(custom-put-if-not 'ebnf-non-terminal 'group-documentation "Non-Terminal customization.")
-(custom-put-if-not 'ebnf-non-terminal 'custom-tag "Non-Terminal")
-(custom-put-if-not 'ebnf2ps 'custom-version "20")
-(custom-put-if-not 'ebnf2ps 'group-documentation "Translate an EBNF to a syntactic chart on PostScript.")
-(custom-put-if-not 'conf 'custom-version "22.1")
-(custom-put-if-not 'conf 'group-documentation "Configuration files.")
-(custom-put-if-not 'flymake 'custom-version "23.1")
-(custom-put-if-not 'flymake 'group-documentation "Universal on-the-fly syntax checker.")
-(custom-put-if-not 'todo 'custom-version "21.1")
-(custom-put-if-not 'todo 'group-documentation "Maintain a list of todo items.")
-(custom-put-if-not 'help-at-pt 'custom-version "22.1")
-(custom-put-if-not 'help-at-pt 'group-documentation "Features for displaying local help.")
-(custom-put-if-not 'epg 'custom-version "23.1")
-(custom-put-if-not 'epg 'group-documentation "Interface to the GNU Privacy Guard (GnuPG).")
-(custom-put-if-not 'epg 'custom-tag "EasyPG")
-(custom-put-if-not 'epa 'custom-version "23.1")
-(custom-put-if-not 'epa 'group-documentation "The EasyPG Assistant")
-(custom-put-if-not 'mail-source 'custom-version "21.1")
-(custom-put-if-not 'mail-source 'group-documentation "The mail-fetching library.")
-(custom-put-if-not 'ebnf-shape 'custom-version "20")
-(custom-put-if-not 'ebnf-shape 'group-documentation "Shapes customization.")
-(custom-put-if-not 'ebnf-shape 'custom-tag "Shape")
-(custom-put-if-not 'mime-display 'custom-version "21.1")
-(custom-put-if-not 'mime-display 'group-documentation "Display of MIME in mail and news articles.")
-(custom-put-if-not 'gnus-notifications 'custom-version "24.3")
-(custom-put-if-not 'gnus-notifications 'group-documentation "Send notifications on new message in Gnus.")
-(custom-put-if-not 'rst-compile 'custom-version "21.1")
-(custom-put-if-not 'rst-compile 'group-documentation "Settings for support of conversion of reStructuredText
-document with \\[rst-compile].")
-(custom-put-if-not 'inferior-lisp 'custom-version "22.1")
-(custom-put-if-not 'inferior-lisp 'group-documentation "Run an outside Lisp in an Emacs buffer.")
-(custom-put-if-not 'vc-bzr 'custom-version "22.2")
-(custom-put-if-not 'vc-bzr 'group-documentation "VC Bazaar (bzr) backend.")
-(custom-put-if-not 'multi-isearch 'custom-version "23.1")
-(custom-put-if-not 'multi-isearch 'group-documentation "Using isearch to search through multiple buffers.")
-(custom-put-if-not 'ebnf-repeat 'custom-version "20")
-(custom-put-if-not 'ebnf-repeat 'group-documentation "Repeat customization.")
-(custom-put-if-not 'ebnf-repeat 'custom-tag "Repeat")
-(custom-put-if-not 'ps-print-page 'custom-version "20")
-(custom-put-if-not 'ps-print-page 'group-documentation "Page customization.")
-(custom-put-if-not 'ps-print-page 'custom-tag "Page")
-(custom-put-if-not 'gnus-charset 'custom-version "21.1")
-(custom-put-if-not 'gnus-charset 'group-documentation "Group character set issues.")
-(custom-put-if-not 'log-edit 'custom-version "21.1")
-(custom-put-if-not 'log-edit 'group-documentation "Major mode for editing RCS and CVS commit messages.")
-(custom-put-if-not 'ebnf-terminal 'custom-version "20")
-(custom-put-if-not 'ebnf-terminal 'group-documentation "Terminal customization.")
-(custom-put-if-not 'ebnf-terminal 'custom-tag "Terminal")
-(custom-put-if-not 'ibuffer 'custom-version "22.1")
-(custom-put-if-not 'ibuffer 'group-documentation "Advanced replacement for `buffer-menu'.
-Ibuffer lets you operate on buffers in a Dired-like way,
-with the ability to sort, mark by regular expression,
-and filter displayed buffers by various criteria.")
-(custom-put-if-not 'generic-x 'custom-version "20.3")
-(custom-put-if-not 'generic-x 'group-documentation "A collection of generic modes.")
-(custom-put-if-not 'vera 'custom-version "22.2")
-(custom-put-if-not 'vera 'group-documentation "Customizations for Vera Mode.")
-(custom-put-if-not 'diff-mode 'custom-version "21.1")
-(custom-put-if-not 'diff-mode 'group-documentation "Major mode for viewing/editing diffs.")
-(custom-put-if-not 'ps-print-miscellany 'custom-version "20")
-(custom-put-if-not 'ps-print-miscellany 'group-documentation "Miscellany customization.")
-(custom-put-if-not 'ps-print-miscellany 'custom-tag "Miscellany")
-(custom-put-if-not 'auth-source 'custom-version "23.1")
-(custom-put-if-not 'auth-source 'group-documentation "Authentication sources.")
-(custom-put-if-not 'profiler 'custom-version "24.3")
-(custom-put-if-not 'profiler 'group-documentation "Emacs profiler.")
-(custom-put-if-not 'eshell 'custom-version "21.1")
-(custom-put-if-not 'eshell 'group-documentation "Command shell implemented entirely in Emacs Lisp.
-It invokes no external processes beyond those requested by the
-user, and is intended to be a functional replacement for command
-shells such as bash, zsh, rc, 4dos.")
-(custom-put-if-not 'ps-print-n-up 'custom-version "20")
-(custom-put-if-not 'ps-print-n-up 'group-documentation "N-up customization.")
-(custom-put-if-not 'ps-print-n-up 'custom-tag "N-Up")
-(custom-put-if-not 'imap 'custom-version "21.1")
-(custom-put-if-not 'imap 'group-documentation "Low-level IMAP issues.")
-(custom-put-if-not 'epa-faces 'custom-version "23.1")
-(custom-put-if-not 'epa-faces 'group-documentation "Faces for epa-mode.")
-(custom-put-if-not 'cwarn 'custom-version "21.1")
-(custom-put-if-not 'cwarn 'group-documentation "Highlight suspicious C and C++ constructions.")
-(custom-put-if-not 'testcover 'custom-version "21.1")
-(custom-put-if-not 'testcover 'group-documentation "Code-coverage tester.")
-(custom-put-if-not 'gnus-registry 'custom-version "22.1")
-(custom-put-if-not 'gnus-registry 'group-documentation "Article Registry.")
-(custom-put-if-not 'iimage 'custom-version "22.1")
-(custom-put-if-not 'iimage 'group-documentation "Support for inline images.")
-(custom-put-if-not 'calculator 'custom-version "21.1")
-(custom-put-if-not 'calculator 'group-documentation "Simple Emacs calculator.")
-(custom-put-if-not 'vc-svn 'custom-version "24.1")
-(custom-put-if-not 'vc-svn 'group-documentation "VC Subversion (svn) backend.")
-(custom-put-if-not 'ps-print-face 'custom-version "20")
-(custom-put-if-not 'ps-print-face 'group-documentation "Faces customization.")
-(custom-put-if-not 'ps-print-face 'custom-tag "PS Faces")
-(custom-put-if-not 'gdb-buffers 'custom-version "23.2")
-(custom-put-if-not 'gdb-buffers 'group-documentation "GDB buffers")
-(custom-put-if-not 'vc-sccs 'custom-version "24.1")
-(custom-put-if-not 'vc-sccs 'group-documentation "VC SCCS backend.")
-(custom-put-if-not 'vc-hg 'custom-version "24.1")
-(custom-put-if-not 'vc-hg 'group-documentation "VC Mercurial (hg) backend.")
-(custom-put-if-not 'bs 'custom-version "21.1")
-(custom-put-if-not 'bs 'group-documentation "Buffer Selection: Maintaining buffers by buffer menu.")
-(custom-put-if-not 'rst-faces 'custom-version "21.1")
-(custom-put-if-not 'rst-faces 'group-documentation "Faces used in Rst Mode.")
-(custom-put-if-not 'vc-mtn 'custom-version "24.1")
-(custom-put-if-not 'vc-mtn 'group-documentation "VC Monotone (mtn) backend.")
-(custom-put-if-not 'glasses 'custom-version "21.1")
-(custom-put-if-not 'glasses 'group-documentation "Make unreadable code likeThis(one) readable.")
-(custom-put-if-not 'warnings 'custom-version "22.1")
-(custom-put-if-not 'warnings 'group-documentation "Log and display warnings.")
-(custom-put-if-not 'python 'custom-version "24.3")
-(custom-put-if-not 'python 'group-documentation "Python Language's flying circus support for Emacs.")
-(custom-put-if-not 'url 'custom-version "22.1")
-(custom-put-if-not 'url 'group-documentation "Uniform Resource Locator tool.")
-(custom-put-if-not 'mailcap 'custom-version "21.1")
-(custom-put-if-not 'mailcap 'group-documentation "Definition of viewers for MIME types.")
-(custom-put-if-not 'xesam 'custom-version "23.1")
-(custom-put-if-not 'xesam 'group-documentation "Xesam compatible interface to search engines.")
-(custom-put-if-not 'fortune 'custom-version "21.1")
-(custom-put-if-not 'fortune 'group-documentation "Settings for fortune.")
-(custom-put-if-not 'cua 'custom-version "22.1")
-(custom-put-if-not 'cua 'group-documentation "Emulate CUA key bindings including C-x and C-c.")
-(custom-put-if-not 'project-linux 'custom-version "24.3")
-(custom-put-if-not 'project-linux 'group-documentation "File and tag browser frame.")
-(custom-put-if-not 'electric-help 'custom-version "21.1")
-(custom-put-if-not 'electric-help 'group-documentation "Electric help facility.")
-(custom-put-if-not 'gnutls 'custom-version "24.1")
-(custom-put-if-not 'gnutls 'group-documentation "Emacs interface to the GnuTLS library.")
-(custom-put-if-not 'thumbs 'custom-version "22.1")
-(custom-put-if-not 'thumbs 'group-documentation "Thumbnails previewer.")
-(custom-put-if-not 'ps-print-printer 'custom-version "20")
-(custom-put-if-not 'ps-print-printer 'group-documentation "Printer customization.")
-(custom-put-if-not 'ps-print-printer 'custom-tag "Printer")
-(custom-put-if-not 'package 'custom-version "24.1")
-(custom-put-if-not 'package 'group-documentation "Manager for Emacs Lisp packages.")
-(custom-put-if-not 'ebnf-production 'custom-version "20")
-(custom-put-if-not 'ebnf-production 'group-documentation "Production customization.")
-(custom-put-if-not 'ebnf-production 'custom-tag "Production")
-
-(defvar custom-versions-load-alist '(("20.3.3" "dos-vars") ("21.2" mm-util) ("24.2" which-func) ("20.4" hilit-chg crisp sh-script compile) ("19.29" time-stamp) ("23.4" ede) ("20.8" sql) ("21.3" sql gnus-agent ange-ftp) ("22" ps-print ebnf2ps) ("22.3" message) ("20.1" time-stamp) ("20.3" xscheme etags browse-url dabbrev sendmail vcursor uce msb compile hexl which-func avoid find-func paren add-log debug ffap rmail cus-edit diary-lib vc) ("23.3" diary-lib rmail desktop rmailsum calendar) ("20" ebnf2ps ps-print) ("23.2" bytecomp comint rmailmm rmail diary-lib desktop lunar mm-encode elint doc-view gnus-sum calendar gnus-group help-fns dired ansi-color tramp-gvfs auth-source message gdb-mi) ("24.3" perl-mode cus-edit ediff-wind icalendar gnus-picon em-term rcirc erc-backend avoid org-id message ido proced "complete" sh-script calc bug-reference tramp ffap emacs-lock pcmpl-gnu minibuf-eldef nnmail verilog-mode apropos org-datetree compile sql debug gnus-sync wdired erc-match org-capture hexl executable pcmpl-rpm cal-html which-func calendar diff-mode flymake server vhdl-mode org org-latex erc-button reftex-vars smerge-mode allout gdb-mi org-agenda man gnus-msg tramp-smb) ("22.2" gnus-sum bibtex-style mail-source sql dired gdb-mi find-dired tls desktop css-mode vc-mtn vc-hg) ("21.1" strokes dabbrev ezimage sgml-mode cal-hebrew sendmail ange-ftp gnus-group gnus-start vc-cvs debug vc-rcs net-utils vc-sccs smtpmail vc server browse-url message paren wid-edit fortran rmailedit find-func ps-print hideshow sb-image gnus-sum cperl-mode latin1-disp gnus-art gnus-agent nnmail rmail add-log flyspell etags cus-edit) ("22.1" uudecode calendar comint dabbrev add-log tcl latin1-disp imap gnus-delay mml2015 ange-ftp gnus-srvr hi-lock view mail-source descr-text fortran allout ielm smime mail-extr rmail gnus-util shadowfile cal-dst gnus-score hl-line sh-script bookmark glasses cus-edit gnus-int locate diary-lib ispell vc-svn gnus-msg landmark diff-mode mm-view cal-tex gnus-fun vc-cvs find-func gnus-cite starttls flow-fill mm-uu gnus-start make-mode generic-x info deuglify keypad sendmail spam desktop mm-url sql autorevert pop3 gnus-spec ffap grep mml gnus time sgml-mode gnus-win mml-sec tex-mode iswitchb gnus-art compile imenu warnings dired gdb-mi server vc gnus-sum tls binhex gnus-group mm-decode message compare-w nnmail mm-util gnus-agent) ("23.1" f90 gnus-dired informat smiley gnus-msg fortran bibtex vc-cvs mml spam-report rmailmm woman server misearch vc-git gnus-util vc-mtn hideif info ffap allout smime filesets gnus-score gnus copyright dired-aux fortune browse-url nnmail icomplete compile vc-hg cus-edit checkdoc vc-arch view gnus-bookmark tex-mode rmail mm-uu gdb-mi face-remap sendmail net-utils nnmairix pcmpl-unix gnus-draft tls calendar time holidays pop3 gnus-art descr-text gnus-sum imap mm-decode gnus-group message) ("24.1" ob-exp em-smart ob-lisp vc-sccs mm-view gnus-msg cc-fonts server org-gnus org-src esh-ext shr em-rebind rmail esh-mode url-cache org-archive org-freemind pcmpl-unix vc-svn em-unix gnus-srvr vc-bzr org-docbook woman dirtrack smiley esh-io em-cmpl copyright em-ls ob-R tramp org-exp-blocks ob-lob js esh-var saveplace em-dirs image-mode em-script vc-git gnus-registry flyspell calendar doc-view org-faces em-pred mm-decode netrc ob-plantuml mml2015 gssapi org-attach mml electric vc-hg gnus log-edit package-x diary-lib gnus-group pop3 cus-edit gnus-art dired-x auth-source org-ctags org-habit "cl-indent" url-queue browse-url hl-line org-publish ob-ditaa em-hist compile esh-proc esh-arg battery org-capture org-clock gnus-int ange-ftp vc org-timer gnus-gravatar erc-backend ob-picolisp org-crypt em-term ido gnus-async ob-js gnus-util comint gnus-start allout feedmail "cc-guess" etags org-taskjuggler cus-theme verilog-mode appt esh-cmd emacs-lock org-inlinetask em-prompt org-wl em-banner glasses org-table esh-util org-html gnus-picon org-beamer org-mobile arc-mode vc-cvs em-glob man ibuffer org-list allout-widgets erc-join ob-scheme org-exp "cc-vars" ob-tangle gnus-html org-agenda ses calc smtpmail ob sendmail find-dired org-entities sql org-icalendar message em-alias org nnir package bibtex org-bibtex rcirc gnus-sum org-latex vc-rcs sieve-manage org-odt info rst f90 prolog))
- "For internal use by custom.")
-\f
-(provide 'cus-load)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; cus-load.el ends here
--- /dev/null
+esh-groups.el
+
+++ /dev/null
-;;; esh-groups.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads nil "em-alias" "em-alias.el" "9fd98060cf826aaf8696ab31a593655a")
-;;; Generated autoloads from em-alias.el
-
-(defgroup eshell-alias nil "\
-Command aliases allow for easy definition of alternate commands." :tag "Command aliases" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-banner" "em-banner.el" "6d884e8632e35c85076a353b0f82a2cc")
-;;; Generated autoloads from em-banner.el
-
-(defgroup eshell-banner nil "\
-This sample module displays a welcome banner at login.
-It exists so that others wishing to create their own Eshell extension
-modules may have a simple template to begin with." :tag "Login banner" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-basic" "em-basic.el" "93372087c94e9468af0961b16ed987fa")
-;;; Generated autoloads from em-basic.el
-
-(defgroup eshell-basic nil "\
-The \"basic\" code provides a set of convenience functions which
-are traditionally considered shell builtins. Since all of the
-functionality provided by them is accessible through Lisp, they are
-not really builtins at all, but offer a command-oriented way to do the
-same thing." :tag "Basic shell commands" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-cmpl" "em-cmpl.el" "34d248ff68f0fe56a8e9f507ae599c5f")
-;;; Generated autoloads from em-cmpl.el
-
-(defgroup eshell-cmpl nil "\
-This module provides a programmable completion function bound to
-the TAB key, which allows for completing command names, file names,
-variable names, arguments, etc." :tag "Argument completion" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-dirs" "em-dirs.el" "ab62432a3529d47841acbe18dfc3da7d")
-;;; Generated autoloads from em-dirs.el
-
-(defgroup eshell-dirs nil "\
-Directory navigation involves changing directories, examining the
-current directory, maintaining a directory stack, and also keeping
-track of a history of the last directory locations the user was in.
-Emacs does provide standard Lisp definitions of `pwd' and `cd', but
-they lack somewhat in feel from the typical shell equivalents." :tag "Directory navigation" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-glob" "em-glob.el" "a0ebd90d3149c2aae1254c45de9af499")
-;;; Generated autoloads from em-glob.el
-
-(defgroup eshell-glob nil "\
-This module provides extended globbing syntax, similar what is used
-by zsh for filename generation." :tag "Extended filename globbing" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-hist" "em-hist.el" "e0ca2bf7b25e5596246c0fd8fd3a6a3f")
-;;; Generated autoloads from em-hist.el
-
-(defgroup eshell-hist nil "\
-This module provides command history management." :tag "History list management" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-ls" "em-ls.el" "c7b48e4e9e87d3448bd897073b338b46")
-;;; Generated autoloads from em-ls.el
-
-(defgroup eshell-ls nil "\
-This module implements the \"ls\" utility fully in Lisp. If it is
-passed any unrecognized command switches, it will revert to the
-operating system's version. This version of \"ls\" uses text
-properties to colorize its output based on the setting of
-`eshell-ls-use-colors'." :tag "Implementation of `ls' in Lisp" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-pred" "em-pred.el" "5a4512813e27d293a28e430d5b12e271")
-;;; Generated autoloads from em-pred.el
-
-(defgroup eshell-pred nil "\
-This module allows for predicates to be applied to globbing
-patterns (similar to zsh), in addition to string modifiers which can
-be applied either to globbing results, variable references, or just
-ordinary strings." :tag "Value modifiers and predicates" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-prompt" "em-prompt.el" "ad2347a6abca17eb6a0a91f3ad155d3b")
-;;; Generated autoloads from em-prompt.el
-
-(defgroup eshell-prompt nil "\
-This module provides command prompts, and navigation between them,
-as is common with most shells." :tag "Command prompts" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-rebind" "em-rebind.el" "8c4b7969ce6a254ecebb5a680e38d046")
-;;; Generated autoloads from em-rebind.el
-
-(defgroup eshell-rebind nil "\
-This module allows for special keybindings that only take effect
-while the point is in a region of input text. By default, it binds
-C-a to move to the beginning of the input text (rather than just the
-beginning of the line), and C-p and C-n to move through the input
-history, C-u kills the current input text, etc. It also, if
-`eshell-confine-point-to-input' is non-nil, does not allow certain
-commands to cause the point to leave the input area, such as
-`backward-word', `previous-line', etc. This module intends to mimic
-the behavior of normal shells while the user editing new input text." :tag "Rebind keys at input" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-script" "em-script.el" "1b1419ce3fdc7b1b48ae30ed445f9630")
-;;; Generated autoloads from em-script.el
-
-(defgroup eshell-script nil "\
-This module allows for the execution of files containing Eshell
-commands, as a script file." :tag "Running script files." :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-smart" "em-smart.el" "941fb40fefca7f6f1622c44d228cbad7")
-;;; Generated autoloads from em-smart.el
-
-(defgroup eshell-smart nil "\
-This module combines the facility of normal, modern shells with
-some of the edit/review concepts inherent in the design of Plan 9's
-9term. See the docs for more details.
-
-Most likely you will have to turn this option on and play around with
-it to get a real sense of how it works." :tag "Smart display of output" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-term" "em-term.el" "6d12f3e509735ea3b239ab3515580a27")
-;;; Generated autoloads from em-term.el
-
-(defgroup eshell-term nil "\
-This module causes visual commands (e.g., 'vi') to be executed by
-the `term' package, which comes with Emacs. This package handles most
-of the ANSI control codes, allowing curses-based applications to run
-within an Emacs window. The variable `eshell-visual-commands' defines
-which commands are considered visual in nature." :tag "Running visual commands" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-unix" "em-unix.el" "85ca8582a174136a514888c7d8dde406")
-;;; Generated autoloads from em-unix.el
-
-(defgroup eshell-unix nil "\
-This module defines many of the more common UNIX utilities as
-aliases implemented in Lisp. These include mv, ln, cp, rm, etc. If
-the user passes arguments which are too complex, or are unrecognized
-by the Lisp variant, the external version will be called (if
-available). The only reason not to use them would be because they are
-usually much slower. But in several cases their tight integration
-with Eshell makes them more versatile than their traditional cousins
-\(such as being able to use `kill' to kill Eshell background processes
-by name)." :tag "UNIX commands in Lisp" :group (quote eshell-module))
-
-;;;***
-\f
-;;;### (autoloads nil "em-xtra" "em-xtra.el" "ec7cb12d5bc0fca01c3ef4adde78a568")
-;;; Generated autoloads from em-xtra.el
-
-(defgroup eshell-xtra nil "\
-This module defines some extra alias functions which are entirely
-optional. They can be viewed as samples for how to write Eshell alias
-functions, or as aliases which make some of Emacs's behavior more
-naturally accessible within Emacs." :tag "Extra alias functions" :group (quote eshell-module))
-
-;;;***
-\f
-(provide 'esh-groups)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; esh-groups.el ends here
+++ /dev/null
-;;; finder-inf.el --- automatically extracted keyword-to-package mapping
-;;
-;;; Code:
-
-(setq package--builtins '(
- (5x5 . [nil nil "simple little puzzle game"])
- (ada-mode . [nil nil "major-mode for editing Ada sources"])
- (add-log . [nil nil "change log maintenance commands for Emacs"])
- (align . [nil nil "align text to a specific column, by regexp"])
- (allout . [(2 3) nil "extensive outline mode for use alone and with other modes"])
- (allout-widgets . [(1 0) nil "Visually highlight allout outline structure."])
- (ange-ftp . [nil nil "transparent FTP support for GNU Emacs"])
- (animate . [nil nil "make text dance"])
- (ansi-color . [(3 4 2) nil "translate ANSI escape sequences into faces"])
- (antlr-mode . [(2 2 3) nil "major mode for ANTLR grammar files"])
- (arc-mode . [nil nil "simple editing of archives"])
- (array . [nil nil "array editing commands for GNU Emacs"])
- (artist . [(1 2 6) nil "draw ascii graphics with your mouse"])
- (asm-mode . [nil nil "mode for editing assembler code"])
- (autoarg . [nil nil "make digit keys supply prefix args"])
- (autoconf . [nil nil "mode for editing Autoconf configure.ac files"])
- (autoinsert . [nil nil "automatic mode-dependent insertion of text into new files"])
- (autorevert . [nil nil "revert buffers when files on disk change"])
- (avl-tree . [nil nil "balanced binary trees, AVL-trees"])
- (avoid . [nil nil "make mouse pointer stay out of the way of editing"])
- (battery . [nil nil "display battery status information"])
- (benchmark . [nil nil "support for benchmarking code"])
- (bib-mode . [nil nil "major mode for editing bib files"])
- (bibtex . [nil nil "BibTeX mode for GNU Emacs"])
- (bibtex-style . [nil nil "Major mode for BibTeX Style files"])
- (bindat . [nil nil "binary data structure packing and unpacking."])
- (binhex . [nil nil "decode BinHex-encoded text"])
- (blackbox . [nil nil "blackbox game in Emacs Lisp"])
- (bookmark . [nil nil "set bookmarks, maybe annotate them, jump to them later"])
- (browse-url . [nil nil "pass a URL to a WWW browser"])
- (bs . [(1 17) nil "menu for selecting and displaying buffers"])
- (bubbles . [nil nil "Puzzle game for Emacs"])
- (bug-reference . [nil nil "buttonize bug references"])
- (calc . [nil nil "the GNU Emacs calculator"])
- (calculator . [nil nil "a [not so] simple calculator for Emacs"])
- (calendar . [nil nil "calendar functions"])
- (cap-words . [nil nil "minor mode for motion in CapitalizedWordIdentifiers"])
- (cc-guess . [nil nil "guess indentation values by scanning existing code"])
- (cc-mode . [nil nil "major mode for editing C and similar languages"])
- (cdl . [nil nil "Common Data Language (CDL) utility functions for GNU Emacs"])
- (cedet . [(2 0) nil "Setup CEDET environment"])
- (cfengine . [(1 1) nil "mode for editing Cfengine files"])
- (chart . [(0 2) nil "Draw charts (bar charts, etc)"])
- (check-declare . [nil nil "Check declare-function statements"])
- (checkdoc . [(0 6 2) nil "check documentation strings for style requirements"])
- (chistory . [nil nil "list command history"])
- (cl . [nil nil "Compatibility aliases for the old CL library."])
- (cl-lib . [(1 0) nil "Common Lisp extensions for Emacs"])
- (cmacexp . [nil nil "expand C macros in a region"])
- (cmuscheme . [nil nil "Scheme process in a buffer. Adapted from tea.el"])
- (color . [nil nil "Color manipulation library"])
- (compare-w . [nil nil "compare text between windows for Emacs"])
- (compile . [nil nil "run compiler as inferior of Emacs, parse error messages"])
- (completion . [nil nil "dynamic word-completion code"])
- (conf-mode . [nil nil "Simple major mode for editing conf/ini/properties files"])
- (cookie1 . [nil nil "retrieve random phrases from fortune cookie files"])
- (copyright . [nil nil "update the copyright notice in current buffer"])
- (cperl-mode . [nil nil "Perl code editing commands for Emacs"])
- (cpp . [nil nil "highlight or hide text according to cpp conditionals"])
- (crisp . [nil nil "CRiSP/Brief Emacs emulator"])
- (crm . [nil nil "read multiple strings with completion"])
- (css-mode . [nil nil "Major mode to edit CSS files"])
- (cua-base . [nil nil "emulate CUA key bindings"])
- (cvs-status . [nil nil "major mode for browsing `cvs status' output"])
- (cwarn . [(1 3 1) nil "highlight suspicious C and C++ constructions"])
- (dabbrev . [nil nil "dynamic abbreviation package"])
- (dbus . [nil nil "Elisp bindings for D-Bus."])
- (dcl-mode . [nil nil "major mode for editing DCL command files"])
- (debug . [nil nil "debuggers and related commands for Emacs"])
- (decipher . [nil nil "cryptanalyze monoalphabetic substitution ciphers"])
- (delim-col . [(2 1) nil "prettify all columns in a region or rectangle"])
- (delphi . [nil nil "major mode for editing Delphi source (Object Pascal) in Emacs"])
- (delsel . [nil nil "delete selection if you insert"])
- (descr-text . [nil nil "describe text mode"])
- (desktop . [nil nil "save partial status of Emacs when killed"])
- (dframe . [nil nil "dedicate frame support modes"])
- (diary-lib . [nil nil "diary functions"])
- (diff . [nil nil "run `diff'"])
- (diff-mode . [nil nil "a mode for viewing/editing context diffs"])
- (dig . [nil nil "Domain Name System dig interface"])
- (dirtrack . [nil nil "Directory Tracking by watching the prompt"])
- (disass . [nil nil "disassembler for compiled Emacs Lisp code"])
- (dissociate . [nil nil "scramble text amusingly for Emacs"])
- (dns . [nil nil "Domain Name Service lookups"])
- (dns-mode . [nil nil "a mode for viewing/editing Domain Name System master files"])
- (doc-view . [nil nil "View PDF/PostScript/DVI files in Emacs"])
- (doctor . [nil nil "psychological help for frustrated users"])
- (double . [nil nil "support for keyboard remapping with double clicking"])
- (dunnet . [(2 1) nil "text adventure for Emacs"])
- (ebnf2ps . [(4 4) nil "translate an EBNF to a syntactic chart on PostScript"])
- (ebrowse . [nil nil "Emacs C++ class browser & tags facility"])
- (ebuff-menu . [nil nil "electric-buffer-list mode"])
- (echistory . [nil nil "Electric Command History Mode"])
- (ede . [(1 2) nil "Emacs Development Environment gloss"])
- (edebug . [nil nil "a source-level debugger for Emacs Lisp"])
- (ediff . [(2 81 4) nil "a comprehensive visual interface to diff & patch"])
- (edmacro . [(2 1) nil "keyboard macro editor"])
- (edt . [nil nil "enhanced EDT keypad mode emulation for GNU Emacs"])
- (ehelp . [nil nil "bindings for electric-help mode"])
- (eieio . [(1 4) nil "Enhanced Implementation of Emacs Interpreted Objects"])
- (eldoc . [nil nil "show function arglist or variable docstring in echo area"])
- (electric . [nil nil "window maker and Command loop for `electric' modes"])
- (elide-head . [nil nil "hide headers in files"])
- (elint . [nil nil "Lint Emacs Lisp"])
- (elp . [nil nil "Emacs Lisp Profiler"])
- (emacs . [nil nil "abbrev mode commands for Emacs"])
- (emacs-lock . [nil nil "protect buffers against killing or exiting"])
- (emerge . [nil nil "merge diffs under Emacs control"])
- (enriched . [nil nil "read and save files in text/enriched format"])
- (epa . [nil nil "the EasyPG Assistant"])
- (epg . [(1 0 0) nil "the EasyPG Library"])
- (erc . [(5 3) nil "An Emacs Internet Relay Chat client"])
- (ert . [nil nil "Emacs Lisp Regression Testing"])
- (ert-x . [nil nil "Staging area for experimental extensions to ERT"])
- (eshell . [(2 4 2) nil "the Emacs command shell"])
- (etags . [nil nil "etags facility for Emacs"])
- (eudc . [nil nil "Emacs Unified Directory Client"])
- (ewoc . [nil nil "utility to maintain a view of a list of objects in a buffer"])
- (executable . [nil nil "base functionality for executable interpreter scripts"])
- (expand . [nil nil "make abbreviations more usable"])
- (ezimage . [nil nil "Generalized Image management"])
- (f90 . [nil nil "Fortran-90 mode (free format)"])
- (face-remap . [nil nil "Functions for managing `face-remapping-alist'"])
- (feedmail . [(11) nil "assist other email packages to massage outgoing messages"])
- (ffap . [nil nil "find file (or url) at point"])
- (filecache . [nil nil "find files using a pre-loaded cache"])
- (filesets . [nil nil "handle group of files"])
- (find-cmd . [(0 6) nil "Build a valid find(1) command with sexps"])
- (find-dired . [nil nil "run a `find' command and dired the output"])
- (find-file . [nil nil "find a file corresponding to this one given a pattern"])
- (find-func . [nil nil "find the definition of the Emacs Lisp function near point"])
- (find-gc . [nil nil "detect functions that call the garbage collector"])
- (find-lisp . [nil nil "emulation of find in Emacs Lisp"])
- (finder . [(1 0) nil "topic & keyword-based code finder"])
- (flow-ctrl . [nil nil "help for lusers on cu(1) or ttys with wired-in ^S/^Q flow control"])
- (flymake . [(0 3) nil "a universal on-the-fly syntax checker"])
- (flyspell . [nil nil "on-the-fly spell checker"])
- (foldout . [(1 10) nil "folding extensions for outline-mode and outline-minor-mode"])
- (follow . [nil nil "synchronize windows showing the same buffer"])
- (footnote . [(0 19) nil "footnote support for message mode"])
- (format-spec . [nil nil "functions for formatting arbitrary formatting strings"])
- (forms . [nil nil "Forms mode: edit a file as a form to fill in"])
- (fortran . [nil nil "Fortran mode for GNU Emacs"])
- (fortune . [nil nil "use fortune to create signatures"])
- (gamegrid . [(1 2) nil "library for implementing grid-based games on Emacs"])
- (gametree . [nil nil "manage game analysis trees in Emacs"])
- (gdb-mi . [nil nil "User Interface for running GDB"])
- (glasses . [nil nil "make cantReadThis readable"])
- (gnus . [(5 13) nil "a newsreader for GNU Emacs"])
- (gnutls . [nil nil "Support SSL/TLS connections through GnuTLS"])
- (gomoku . [nil nil "Gomoku game between you and Emacs"])
- (goto-addr . [nil nil "click to browse URL or to send to e-mail address"])
- (grep . [nil nil "run `grep' and display the results"])
- (gs . [nil nil "interface to Ghostscript"])
- (gud . [nil nil "Grand Unified Debugger mode for running GDB and other debuggers"])
- (gulp . [nil nil "ask for updates for Lisp packages"])
- (handwrite . [nil nil "turns your emacs buffer into a handwritten document"])
- (hanoi . [nil nil "towers of hanoi in Emacs"])
- (hashcash . [nil nil "Add hashcash payments to email"])
- (help-at-pt . [nil nil "local help through the keyboard"])
- (hex-util . [nil nil "Functions to encode/decode hexadecimal string."])
- (hexl . [nil nil "edit a file in a hex dump format using the hexl filter"])
- (hi-lock . [nil nil "minor mode for interactive automatic highlighting"])
- (hideif . [nil nil "hides selected code within ifdef"])
- (hideshow . [nil nil "minor mode cmds to selectively display code/comment blocks"])
- (hilit-chg . [nil nil "minor mode displaying buffer changes with special face"])
- (hippie-exp . [(1 6) nil "expand text trying various ways to find its expansion"])
- (hl-line . [nil nil "highlight the current line"])
- (hmac-def . [nil nil "A macro for defining HMAC functions."])
- (hmac-md5 . [nil nil "Compute HMAC-MD5."])
- (htmlfontify . [(0 21) nil "htmlize a buffer/source tree with optional hyperlinks"])
- (ibuffer . [nil nil "operate on buffers like dired"])
- (icalendar . [(0 19) nil "iCalendar implementation"])
- (icomplete . [nil nil "minibuffer completion incremental feedback"])
- (icon . [nil nil "mode for editing Icon code"])
- (idlwave . [(6 1 22) nil "IDL editing mode for GNU Emacs"])
- (ido . [nil nil "interactively do things with buffers and files"])
- (ielm . [nil nil "interaction mode for Emacs Lisp"])
- (iimage . [nil nil "Inline image minor mode."])
- (image-dired . [(0 4 11) nil "use dired to browse and manipulate your images"])
- (image-file . [nil nil "support for visiting image files"])
- (imap . [nil nil "imap library"])
- (imenu . [nil nil "framework for mode-specific buffer indexes"])
- (inf-lisp . [nil nil "an inferior-lisp mode"])
- (info . [nil nil "info package for Emacs"])
- (info-look . [nil nil "major-mode-sensitive Info index lookup facility"])
- (info-xref . [(3) nil "check external references in an Info document"])
- (informat . [nil nil "info support functions package for Emacs"])
- (inversion . [(1 3) nil "When you need something in version XX.XX"])
- (isearchb . [(1 5) nil "a marriage between iswitchb and isearch"])
- (ispell . [nil nil "interface to International Ispell Versions 3.1 and 3.2"])
- (iswitchb . [nil nil "switch between buffers using substrings"])
- (jka-compr . [nil nil "reading/writing/loading compressed files"])
- (js . [(9) nil "Major mode for editing JavaScript"])
- (json . [(1 3) nil "JavaScript Object Notation parser / generator"])
- (kermit . [nil nil "additions to shell mode for use with kermit"])
- (keypad . [nil nil "simplified keypad bindings"])
- (kmacro . [nil nil "enhanced keyboard macros"])
- (landmark . [nil nil "neural-network robot that learns landmarks"])
- (ld-script . [nil nil "GNU linker script editing mode for Emacs"])
- (ldap . [nil nil "client interface to LDAP for Emacs"])
- (life . [nil nil "John Horton Conway's `Life' game for GNU Emacs"])
- (linum . [(0 9 24) nil "display line numbers in the left margin"])
- (lisp-mnt . [nil nil "utility functions for Emacs Lisp maintainers"])
- (loadhist . [nil nil "lisp functions for working with feature groups"])
- (locate . [nil nil "interface to the locate command"])
- (log-edit . [nil nil "Major mode for editing CVS commit messages"])
- (log-view . [nil nil "Major mode for browsing RCS/CVS/SCCS log output"])
- (longlines . [nil nil "automatically wrap long lines"])
- (lpr . [nil nil "print Emacs buffer on line printer"])
- (m4-mode . [nil nil "m4 code editing commands for Emacs"])
- (macroexp . [nil nil "Additional macro-expansion support"])
- (mail-utils . [nil nil "utility functions used both by rmail and rnews"])
- (mailabbrev . [nil nil "abbrev-expansion of mail aliases"])
- (mailalias . [nil nil "expand and complete mailing address aliases"])
- (mailclient . [nil nil "mail sending via system's mail client."])
- (mairix . [nil nil "Mairix interface for Emacs"])
- (make-mode . [nil nil "makefile editing commands for Emacs"])
- (makeinfo . [nil nil "run makeinfo conveniently"])
- (makesum . [nil nil "generate key binding summary for Emacs"])
- (man . [nil nil "browse UNIX manual pages"])
- (mantemp . [nil nil "create manual template instantiations from g++ 2.7.2 output"])
- (master . [(1 0 2) nil "make a buffer the master over another buffer"])
- (mb-depth . [nil nil "Indicate minibuffer-depth in prompt"])
- (md4 . [(1 0) nil "MD4 Message Digest Algorithm."])
- (meese . [nil nil "protect the impressionable young minds of America"])
- (meta-mode . [(1 0) nil "major mode for editing Metafont or MetaPost sources"])
- (metamail . [nil nil "Metamail interface for GNU Emacs"])
- (mh-e . [(8 3 1) nil "GNU Emacs interface to the MH mail system"])
- (midnight . [nil nil "run something every midnight, e.g., kill old buffers"])
- (minibuf-eldef . [nil nil "Only show defaults in prompts when applicable"])
- (misearch . [nil nil "isearch extensions for multi-buffer search"])
- (mixal-mode . [(0 1) nil "Major mode for the mix asm language."])
- (mode-local . [nil nil "Support for mode local facilities"])
- (modula2 . [nil nil "Modula-2 editing support package"])
- (morse . [nil nil "convert text to morse code and back"])
- (mouse-copy . [nil nil "one-click text copy and move"])
- (mouse-drag . [nil nil "use mouse-2 to do a new style of scrolling"])
- (mpc . [nil nil "A client for the Music Player Daemon"])
- (mpuz . [nil nil "multiplication puzzle for GNU Emacs"])
- (msb . [nil nil "customizable buffer-selection with multiple menus"])
- (mspools . [nil nil "show mail spools waiting to be read"])
- (net-utils . [nil nil "network functions"])
- (netrc . [nil nil ".netrc parsing functionality"])
- (network-stream . [nil nil "open network processes, possibly with encryption"])
- (newsticker . [(1 99) nil "A Newsticker for Emacs."])
- (notifications . [nil nil "Client interface to desktop notifications."])
- (novice . [nil nil "handling of disabled commands (\"novice mode\") for Emacs"])
- (nroff-mode . [nil nil "GNU Emacs major mode for editing nroff source"])
- (ntlm . [(1 0) nil "NTLM (NT LanManager) authentication support"])
- (nxml . [nil nil "XML encoding auto-detection"])
- (octave-mod . [nil nil "editing Octave source files under Emacs"])
- (org . [nil nil "Outline-based notes management and organizer"])
- (outline . [nil nil "outline mode commands for Emacs"])
- (package . [(1 0) nil "Simple package system for Emacs"])
- (page-ext . [nil nil "extended page handling commands"])
- (paren . [nil nil "highlight matching paren"])
- (parse-time . [nil nil "parsing time strings"])
- (pascal . [nil nil "major mode for editing pascal source in Emacs"])
- (password-cache . [nil nil "Read passwords, possibly using a password cache."])
- (pcase . [nil nil "ML-style pattern-matching macro for Elisp"])
- (pcomplete . [nil nil "programmable completion"])
- (pcvs . [nil nil "a front-end to CVS"])
- (perl-mode . [nil nil "Perl code editing commands for GNU Emacs"])
- (picture . [nil nil "\"Picture mode\" -- editing using quarter-plane screen model"])
- (po . [nil nil "basic support of PO translation files"])
- (pong . [nil nil "classical implementation of pong"])
- (pp . [nil nil "pretty printer for Emacs Lisp"])
- (printing . [(6 9 3) nil "printing utilities"])
- (proced . [nil nil "operate on system processes like dired"])
- (profiler . [nil nil "UI and helper functions for Emacs's native profiler"])
- (prolog . [nil nil "major mode for editing and running Prolog (and Mercury) code"])
- (ps-mode . [(1 1 8) nil "PostScript mode for GNU Emacs"])
- (ps-print . [(7 3 5) nil "print text from the buffer as PostScript"])
- (pulse . [(1 0) nil "Pulsing Overlays"])
- (python . [(0 24 2) nil "Python's flying circus support for Emacs"])
- (quickurl . [nil nil "insert a URL based on text at point in buffer"])
- (rcirc . [nil nil "default, simple IRC client."])
- (rcompile . [nil nil "run a compilation on a remote machine"])
- (re-builder . [nil nil "building Regexps with visual feedback"])
- (recentf . [nil nil "setup a menu of recently opened files"])
- (refbib . [nil nil "convert refer-style references to ones usable by Latex bib"])
- (refer . [nil nil "look up references in bibliography files"])
- (refill . [nil nil "`auto-fill' by refilling paragraphs on changes"])
- (reftex . [nil nil "minor mode for doing \\label, \\ref, \\cite, \\index in LaTeX"])
- (reftex-auc . [nil nil "RefTeX's interface to AUCTeX"])
- (reftex-cite . [nil nil "creating citations with RefTeX"])
- (reftex-dcr . [nil nil "viewing cross references and citations with RefTeX"])
- (reftex-global . [nil nil "operations on entire documents with RefTeX"])
- (reftex-index . [nil nil "index support with RefTeX"])
- (reftex-parse . [nil nil "parser functions for RefTeX"])
- (reftex-ref . [nil nil "code to create labels and references with RefTeX"])
- (reftex-sel . [nil nil "the selection modes for RefTeX"])
- (reftex-toc . [nil nil "RefTeX's table of contents mode"])
- (reftex-vars . [nil nil "configuration variables for RefTeX"])
- (regexp-opt . [nil nil "generate efficient regexps to match strings"])
- (regi . [(1 8) nil "REGular expression Interpreting engine"])
- (remember . [(2 0) nil "a mode for quickly jotting down things to remember"])
- (repeat . [(0 51) nil "convenient way to repeat the previous command"])
- (reporter . [nil nil "customizable bug reporting of lisp programs"])
- (reposition . [nil nil "center a Lisp function or comment on the screen"])
- (reveal . [nil nil "Automatically reveal hidden text at point"])
- (rfc2368 . [nil nil "support for rfc2368"])
- (rfc822 . [nil nil "hairy rfc822 parser for mail and news and suchlike"])
- (ring . [nil nil "handle rings of items"])
- (rlogin . [nil nil "remote login interface"])
- (rmail . [nil nil "main code of \"RMAIL\" mail reader for Emacs"])
- (rot13 . [nil nil "display a buffer in ROT13"])
- (rst . [nil nil "Mode for viewing and editing reStructuredText-documents."])
- (ruby-mode . [(1 2) nil "Major mode for editing Ruby files"])
- (ruler-mode . [(1 6) nil "display a ruler in the header line"])
- (rx . [nil nil "sexp notation for regular expressions"])
- (sasl . [nil nil "SASL client framework"])
- (savehist . [(24) nil "Save minibuffer history"])
- (saveplace . [nil nil "automatically save place in files"])
- (sb-image . [nil nil "Image management for speedbar"])
- (scheme . [nil nil "Scheme (and DSSSL) editing mode"])
- (scroll-all . [nil nil "scroll all buffers together minor mode"])
- (scroll-lock . [nil nil "Scroll lock scrolling."])
- (secrets . [nil nil "Client interface to gnome-keyring and kwallet."])
- (select . [nil nil "lisp portion of standard selection support"])
- (semantic . [(2 2) nil "Semantic buffer evaluator."])
- (sendmail . [nil nil "mail sending commands for Emacs"])
- (server . [nil nil "Lisp code for GNU Emacs running as server process"])
- (ses . [nil nil "Simple Emacs Spreadsheet"])
- (sgml-mode . [nil nil "SGML- and HTML-editing modes"])
- (sh-script . [(2 0 6) nil "shell-script editing commands for Emacs"])
- (shadow . [nil nil "locate Emacs Lisp file shadowings"])
- (shadowfile . [nil nil "automatic file copying"])
- (shell . [nil nil "specialized comint.el for running the shell"])
- (simula . [nil nil "SIMULA 87 code editing commands for Emacs"])
- (skeleton . [nil nil "Lisp language extension for writing statement skeletons"])
- (smerge-mode . [nil nil "Minor mode to resolve diff3 conflicts"])
- (smie . [nil nil "Simple Minded Indentation Engine"])
- (smtpmail . [nil nil "simple SMTP protocol (RFC 821) for sending mail"])
- (snake . [nil nil "implementation of Snake for Emacs"])
- (snmp-mode . [nil nil "SNMP & SNMPv2 MIB major mode"])
- (soap-client . [nil nil "Access SOAP web services from Emacs"])
- (socks . [nil nil "A Socks v5 Client for Emacs"])
- (solitaire . [nil nil "game of solitaire in Emacs Lisp"])
- (sort . [nil nil "commands to sort text in an Emacs buffer"])
- (soundex . [nil nil "implement Soundex algorithm"])
- (speedbar . [nil nil "quick access to files and tags in a frame"])
- (spook . [nil nil "spook phrase utility for overloading the NSA line eater"])
- (sql . [(3 1) nil "specialized comint.el for SQL interpreters"])
- (srecode . [(1 2) nil "Semantic buffer evaluator."])
- (strokes . [nil nil "control Emacs through mouse strokes"])
- (studly . [nil nil "StudlyCaps (tm)(r)(c)(xxx)"])
- (subword . [nil nil "Handling capitalized subwords in a nomenclature"])
- (supercite . [nil nil "minor mode for citing mail and news replies"])
- (syntax . [nil nil "helper functions to find syntactic context"])
- (t-mouse . [nil nil "mouse support within the text terminal"])
- (table . [nil nil "create and edit WYSIWYG text based embedded tables"])
- (tabulated-list . [nil nil "generic major mode for tabulated lists"])
- (talk . [nil nil "allow several users to talk to each other through Emacs"])
- (tar-mode . [nil nil "simple editing of tar files from GNU Emacs"])
- (tcl . [nil nil "Tcl code editing commands for Emacs"])
- (telnet . [nil nil "run a telnet session from within an Emacs buffer"])
- (tempo . [nil nil "Flexible template insertion"])
- (term . [nil nil "general command interpreter in a window stuff"])
- (terminal . [nil nil "terminal emulator for GNU Emacs"])
- (testcover . [nil nil "Visual code-coverage tool"])
- (tetris . [(2 1) nil "implementation of Tetris for Emacs"])
- (tex-mode . [nil nil "TeX, LaTeX, and SliTeX mode commands"])
- (texinfmt . [nil nil "format Texinfo files into Info files"])
- (texinfo . [nil nil "major mode for editing Texinfo files"])
- (texnfo-upd . [nil nil "utilities for updating nodes and menus in Texinfo files"])
- (thingatpt . [nil nil "get the `thing' at point"])
- (thumbs . [nil nil "Thumbnails previewer for images files"])
- (tildify . [(4 5) nil "adding hard spaces into texts"])
- (time . [nil nil "display time, load and mail indicator in mode line of Emacs"])
- (time-date . [nil nil "Date and time handling functions"])
- (time-stamp . [nil nil "Maintain last change time stamps in files edited by Emacs"])
- (timeclock . [(2 6 1) nil "mode for keeping track of how much you work"])
- (timezone . [nil nil "time zone package for GNU Emacs"])
- (tls . [nil nil "TLS/SSL support via wrapper around GnuTLS"])
- (tmm . [nil nil "text mode access to menu-bar"])
- (todo-mode . [nil nil "major mode for editing TODO list files"])
- (tpu-edt . [(4 5) nil "Emacs emulating TPU emulating EDT"])
- (tq . [nil nil "utility to maintain a transaction queue"])
- (trace . [nil nil "tracing facility for Emacs Lisp functions"])
- (tramp . [nil nil "Transparent Remote Access, Multiple Protocol"])
- (tree-widget . [nil nil "Tree widget"])
- (two-column . [nil nil "minor mode for editing of two-column text"])
- (type-break . [nil nil "encourage rests from typing at appropriate intervals"])
- (uce . [nil nil "facilitate reply to unsolicited commercial email"])
- (underline . [nil nil "insert/remove underlining (done by overstriking) in Emacs"])
- (undigest . [nil nil "digest-cracking support for the RMAIL mail reader"])
- (unrmail . [nil nil "convert Rmail Babyl files to mailbox files"])
- (unsafep . [nil nil "Determine whether a Lisp form is safe to evaluate"])
- (url . [nil nil "Uniform Resource Locator retrieval tool"])
- (uudecode . [nil nil "elisp native uudecode"])
- (vc . [nil nil "drive a version-control system from within Emacs"])
- (vcursor . [nil nil "manipulate an alternative (\"virtual\") cursor"])
- (vera-mode . [(2 28) nil "major mode for editing Vera files"])
- (verilog-mode . [nil nil "major mode for editing verilog source in Emacs"])
- (vhdl-mode . [nil nil "major mode for editing VHDL code"])
- (vi . [nil nil "major mode for emulating \"vi\" editor under GNU Emacs"])
- (view . [nil nil "peruse file or buffer without editing"])
- (vip . [nil nil "a VI Package for GNU Emacs"])
- (viper . [(3 14 1) nil "A full-featured Vi emulator for Emacs and XEmacs,"])
- (vt-control . [nil nil "Common VTxxx control functions"])
- (vt100-led . [nil nil "functions for LED control on VT-100 terminals & clones"])
- (w32-common-fns . [nil nil "Lisp routines for Windows and Cygwin-w32"])
- (warnings . [nil nil "log and display warnings"])
- (wdired . [(2 0) nil "Rename files editing their names in dired buffers"])
- (webjump . [nil nil "programmable Web hotlist"])
- (which-func . [nil nil "print current function in mode line"])
- (whitespace . [(13 2 2) nil "minor mode to visualize TAB, (HARD) SPACE, NEWLINE"])
- (windmove . [nil nil "directional window-selection routines"])
- (winner . [nil nil "Restore old window configurations"])
- (woman . [(0 551) nil "browse UN*X manual pages `wo (without) man'"])
- (ws-mode . [(0 7) nil "WordStar emulation mode for GNU Emacs"])
- (xesam . [nil nil "Xesam interface to search engines."])
- (xml . [nil nil "XML parser"])
- (xscheme . [nil nil "run MIT Scheme under Emacs"])
- (xt-mouse . [nil nil "support the mouse when emacs run in an xterm"])
- (yow . [nil nil "quote random zippyisms"])
- (zeroconf . [nil nil "Service browser using Avahi."])
- (zone . [nil nil "idle display hacks"])
-))
-
-(setq finder-keywords-hash
- #s(hash-table size 487 test eq rehash-size 1.5 rehash-threshold 0.8 data (abbrev (skeleton pcomplete emacs icomplete hippie-exp expand edmacro dabbrev completion autoarg) convenience (erc table picture emacs makeinfo flyspell calc keypad cua-base diff-mode compare-w winner windmove vcursor tmm ruler-mode repeat minibuf-eldef mb-depth longlines linum kmacro json iswitchb imenu ido ibuffer hippie-exp follow filesets filecache ffap ebuff-menu desktop delsel dabbrev completion chistory calculator bs autorevert autoinsert align) languages (erc sgml-mode smie emacs xscheme vhdl-mode verilog-mode vera-mode tcl sql simula sh-script scheme ruby-mode python ps-mode perl-mode pascal octave-mod modula2 mixal-mode meta-mode m4-mode ld-script js idlwave icon fortran flymake f90 executable delphi dcl-mode cwarn cperl-mode cfengine cc-mode cc-guess cap-words autoconf asm-mode antlr-mode ada-mode tempo skeleton paren info-look allout align) lisp (inversion cedet unsafep trace testcover tabulated-list smie shadow re-builder pp emacs macroexp ewoc ert elp elint eieio edebug debug checkdoc check-declare benchmark xscheme scheme inf-lisp hideshow strokes profiler isearchb ielm color cmuscheme align) outlines (org hideshow hideif reveal outline foldout elide-head allout allout-widgets) wp (handwrite underline two-column tildify emacs table sgml-mode refill picture page-ext nroff-mode ispell enriched org ebnf2ps whitespace ps-print printing longlines allout) pgp (gnus epg epa emacs allout) gnupg (gnus epg epa emacs allout) comm (url zeroconf webjump tramp tls telnet socks soap-client secrets rlogin rcirc net-utils ldap gnutls eudc dns dig dbus ange-ftp erc sgml-mode dns-mode bindat sql terminal talk shadowfile notifications master kermit ansi-color) processes (url eshell tramp rcompile erc bindat sql inf-lisp idlwave grep compile term shell server proced pcomplete emacs emacs-lock dirtrack cmuscheme ansi-color) terminals (tramp xt-mouse vt-control terminal ansi-color) services (ansi-color) help (emacs woman novice man makesum informat info info-look icomplete help-at-pt finder ehelp) files (url po compare-w wdired view emacs shadowfile recentf locate ffap doc-view arc-mode) archives (arc-mode) msdog (arc-mode) editing (hideshow dcl-mode arc-mode) major-mode (dcl-mode arc-mode) extensions (gnus cookie1 calc tq tabulated-list rx ring regi regexp-opt emacs ewoc eldoc cl cl-lib benchmark avl-tree type-break tree-widget thingatpt tempo strokes skeleton ido emacs-lock electric ehelp array) emulations (ws-mode viper vip vi tpu-edt edt cua-base crisp emacs hl-line delsel autoarg) mouse (goto-addr browse-url artist xt-mouse emacs thingatpt t-mouse strokes msb mouse-drag mouse-copy ffap avoid) hardware (zeroconf dbus vt100-led emacs flow-ctrl battery) internal (warnings syntax smie emacs disass select novice loadhist gs delim-col) bookmarks (saveplace bookmark) placeholders (saveplace bookmark) annotations (bookmark) tools (semantic xesam rcompile trace re-builder package ert elp eieio edebug debug copyright emacs check-declare vc smerge-mode log-view emerge ediff diff cvs-status add-log reporter mail-utils which-func make-mode hideshow gud grep glasses gdb-mi flymake etags ebrowse cpp compile bug-reference asm-mode time-stamp tempo speedbar skeleton sb-image imenu format-spec find-file ezimage elide-head dframe calculator) i18n (gnus emacs po double descr-text) data (gnus url snmp-mode timeclock remember page-ext bindat org xml whitespace jka-compr emacs hexl hex-util cdl) faces (gnus erc enriched m4-mode ld-script cwarn cpp emacs paren hl-line hilit-chg hi-lock face-remap descr-text color) color (color) hex (color) rgb (htmlfontify color) hsv (color) hsl (color) cie-lab (color) background (color) mule (emacs ps-print) multilingual (emacs descr-text) character\ composition (emacs) expand (dabbrev) completion (crm iswitchb dabbrev) unicode (emacs descr-text) file (dns-mode speedbar sb-image ezimage dframe) tags (semantic ebrowse speedbar sb-image ezimage dframe) dired (wdired emacs) window (emacs windmove follow) drag (emacs) drop (emacs) pdf (doc-view) ps (doc-view) dvi (doc-view) font (ps-print emacs) system-font (emacs) tool-bar-style (emacs) unix (telnet rlogin ispell emerge ediff diff sh-script make-mode gud gdb-mi executable cc-mode woman tar-mode sort proced emacs lpr locate find-lisp find-dired) mail (gnus fortune mairix imap goto-addr time-date mh-e unrmail undigest uce supercite smtpmail sendmail rmail rfc822 rfc2368 reporter mspools metamail mail-utils mailclient mailalias mailabbrev hashcash footnote feedmail emacs epa) message (gnus feedmail epa) face\ remapping (face-remap) display (hi-lock follow face-remap) user\ commands (face-remap) hypermedia (url xesam soap-client quickurl browse-url sgml-mode css-mode org emacs htmlfontify ffap) matching (regi re-builder thingatpt soundex misearch emacs hi-lock find-file ffap) filesets (filesets) c (hideshow hideif flymake cwarn cpp cmacexp cc-mode cc-guess emacs find-file) folding (foldout) minor-mode (hi-lock follow) frames (winner emacs talk hl-line) generic (emacs) comment (emacs) font-lock (emacs) colour (htmlfontify) html (gnus htmlfontify) markup (htmlfontify) etags (htmlfontify) buffer (msb ibuffer) multimedia (gnus metamail thumbs mpc emacs image-file image-dired iimage) docs (texnfo-upd texinfo texinfmt makeinfo lisp-mnt checkdoc info-xref) keyboard (keypad cua-base kmacro) md4 (md4) utilities (midnight) menu (erc msb) uncomment (emacs) desktop (notifications) notifications (notifications) password (secrets password-cache) cache (password-cache) passphrase (secrets password-cache) key (password-cache) print (handwrite ps-print printing) postscript (gnus handwrite ps-mode ebnf2ps ps-print printing) bdf (ps-print) multibyte (ps-print) vi (repeat) repeat (repeat) minibuffer (crm savehist emacs) scroll (scroll-all) crisp (crisp scroll-all) brief (crisp scroll-all) lock (scroll-all) spreadsheet (testcover ses) dijkstra (ses) gpm (t-mouse) linux (t-mouse) news (gnus newsticker netrc time-date uudecode supercite metamail mail-utils footnote binhex timezone) timers (type-break) virtual\ cursor (vcursor) environment (wdired) renaming (wdired) movement (windmove) xml (nxml xml) ada (ada-mode) project\ file (ada-mode) xref (ada-mode) antlr (antlr-mode) code\ generator (antlr-mode) awk (cc-mode) cc-mode (cc-mode) oop (cc-guess) perl (cperl-mode) dcl (dcl-mode) ebnf (ebnf2ps) c++ (hideshow ebrowse) fortran (org fortran f90) f90 (f90) java (conf-mode hideshow) comments (hideshow) blocks (hideshow) hiding (hideshow) javascript (js) g++ (mantemp) templates (mantemp) metafont (meta-mode) metapost (meta-mode) tex (tildify texnfo-upd texinfo texinfmt tex-mode reftex refbib bibtex bibtex-style org emacs meta-mode) knuth (mixal-mode) mix (mixal-mode) mixal (mixal-mode) asm (mixal-mode) mixvm (mixal-mode) the\ art\ of\ computer\ programming (mixal-mode) prolog (prolog) major (prolog) mode (prolog) sicstus (prolog) swi (prolog) mercury (prolog) ruby (ruby-mode) tcl (tcl) modes (tcl) vera (vera-mode) vhdl (vhdl-mode) mode-line (which-func) imenu (which-func) ccl (emacs) character\ set (emacs) coding-system (emacs) multibyte\ character (emacs) syntax (semantic mode-local emacs) category (emacs) fontset (emacs) isearch (emacs) iso (emacs) latin (emacs) japanese (emacs) kinsoku (emacs) coding\ system (emacs) latex (bibtex emacs) charset (emacs) diagnosis (emacs) input\ method (emacs) quail (emacs) tit (emacs) cxterm (emacs) normalization (emacs) binhex (gnus binhex) maint (texnfo-upd texinfo texinfmt gulp edebug debug copyright checkdoc check-declare emacs reporter) email (rmail feedmail) queue (feedmail) sendmail (feedmail) spray (feedmail) smtp (feedmail) draft (feedmail) hashcash (gnus hashcash) history (mail-utils) mime (gnus metamail) spam (gnus mh-e rmail) filter (rmail) rmail (rmail) uce (uce) unsolicited\ commercial\ email (uce) uudecode (gnus uudecode) literate\ programming (org) reproducible\ research (org) r (org) statistics (org) comint (org) js (org) accounting (org) babel\ language (org) maxima (org) scheme (ede org) interactive\ shell (org) shen (org) calendar (gnus todo-mode timeclock calendar icalendar diary-lib org) org (org) task (org) remember (org) org-mode (org) docbook (org) erc (org) irc (erc org) link (org) tables (org) plotting (org) emacsclient (org) taskjuggler (org) project\ planning (org) vc (ede url vc smerge-mode pcvs log-view log-edit emerge ediff diff diff-mode cvs-status compare-w add-log) pcl-cvs (pcvs log-edit cvs-status) cvs (smerge-mode pcvs log-view log-edit cvs-status) status (cvs-status) tree (avl-tree cvs-status) patch (diff-mode) diff (diff-mode) comparing (ediff) merging (ediff) patching (ediff) commit (log-edit) log (log-view log-edit) rcs (log-view) sccs (log-view) release\ management (pcvs) revision\ control (smerge-mode) merge (smerge-mode) diff3 (smerge-mode) conflict (smerge-mode) url (url erc vc) data\ structures (avl-tree) avl (avl-tree) oo (inversion cedet eieio chart) chart (chart) graph (chart) multiple\ elements (crm) debugging (elp) emacs-lisp (find-func) functions (find-func) variables (find-func) compiler (macroexp) macros (macroexp) strings (rx regexp-opt) regexps (rx regexp-opt) parsing (smie) indentation (smie) utility (unsafep testcover) safety (unsafep testcover) cua (cua-base) mark (cua-base) bib (refer refbib bib-mode) bibtex (bibtex) conf (conf-mode) ini (conf-mode) windows (conf-mode) dns (dig dns-mode) master (dns-mode) zone (dns-mode) soa (dns-mode) memory (remember) todo (todo-mode remember) pim (remember) text (tildify) sgml (tildify) burma (emacs) cham (emacs) chinese (emacs) cyrillic (emacs) czech (emacs) ethiopic (emacs) european (emacs) greek (emacs) korean (emacs) hanja (emacs) hebrew (emacs) indian (emacs) devanagari (emacs) khmer (emacs) lao (emacs) romanian (emacs) sinhala (emacs) slovak (emacs) tai\ viet (emacs) thai (emacs) word\ break (emacs) emacs (emacs) tibetan (emacs) vietnamese (emacs) holidays (calendar) util (time-date parse-time) chat (erc) client (erc) internet (erc) button (erc) regexp (nxml erc) logging (erc) timestamp (erc) hypertext (browse-url) bind (dig) dig (gnus dig) network (gnus network-stream net-utils dns) tls (gnus tls gnutls) ssl (gnus tls gnutls) encryption (gnutls) mh-e (goto-addr) www (webjump goto-addr) hmac (gnus hmac-md5 hmac-def) rfc2104 (gnus hmac-md5 hmac-def) hmac-md5 (hmac-md5) md5 (hmac-md5) keyed-md5 (hmac-md5) cram-md5 (sasl hmac-md5) searching (gnus mairix) rss (gnus newsticker) atom (newsticker) ntlm (sasl ntlm) sasl (sasl ntlm) digest-md5 (sasl) soap (soap-client) web-services (soap-client) firewalls (socks) gnutls (gnus tls) relaxng (nxml) games (zone yow tetris studly spook solitaire snake pong mpuz morse meese life landmark hanoi gomoku gametree gamegrid fortune dunnet doctor dissociate decipher cookie1 bubbles blackbox animate 5x5) puzzles (5x5) utils (fortune) cursive\ writing (handwrite) gomoku (landmark) neural\ network (landmark) adaptive\ search (landmark) chemotaxis (landmark) cancel-lock (gnus) sha1 (gnus) web (gnus) xpm (gnus) annotation (gnus) glyph (gnus) registry (gnus) synchronization (gnus) nntp (gnus) nnrss (gnus) external-body (gnus) partial (gnus) shar (gnus) forward (gnus) gnatsweb (gnus) gnus (gnus) s/mime (gnus) mml (gnus) ir (gnus) hz (gnus) hz+ (gnus) smime (gnus) x\.509 (gnus) pem (gnus) openssl (gnus) gmane (gnus) report (gnus) bogofilter (gnus) bbdb (gnus) dspam (gnus) whitelist (gnus) blacklist (gnus) spamassassin (gnus) bsfilter (gnus) ifile (gnus) stat (gnus) crm114 (gnus) spamoracle (gnus) yenc (gnus) project (ede semantic) make (ede semantic) codegeneration (srecode))))
-\f
-(provide 'finder-inf)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; finder-inf.el ends here
+++ /dev/null
-;;; loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best
-;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5"
-;;;;;; "play/5x5.el" (20707 18685 911514 0))
-;;; Generated autoloads from play/5x5.el
-
-(autoload '5x5 "5x5" "\
-Play 5x5.
-
-The object of 5x5 is very simple, by moving around the grid and flipping
-squares you must fill the grid.
-
-5x5 keyboard bindings are:
-\\<5x5-mode-map>
-Flip \\[5x5-flip-current]
-Move up \\[5x5-up]
-Move down \\[5x5-down]
-Move left \\[5x5-left]
-Move right \\[5x5-right]
-Start new game \\[5x5-new-game]
-New game with random grid \\[5x5-randomize]
-Random cracker \\[5x5-crack-randomly]
-Mutate current cracker \\[5x5-crack-mutating-current]
-Mutate best cracker \\[5x5-crack-mutating-best]
-Mutate xor cracker \\[5x5-crack-xor-mutate]
-Solve with Calc \\[5x5-solve-suggest]
-Rotate left Calc Solutions \\[5x5-solve-rotate-left]
-Rotate right Calc Solutions \\[5x5-solve-rotate-right]
-Quit current game \\[5x5-quit-game]
-
-\(fn &optional SIZE)" t nil)
-
-(autoload '5x5-crack-randomly "5x5" "\
-Attempt to crack 5x5 using random solutions.
-
-\(fn)" t nil)
-
-(autoload '5x5-crack-mutating-current "5x5" "\
-Attempt to crack 5x5 by mutating the current solution.
-
-\(fn)" t nil)
-
-(autoload '5x5-crack-mutating-best "5x5" "\
-Attempt to crack 5x5 by mutating the best solution.
-
-\(fn)" t nil)
-
-(autoload '5x5-crack-xor-mutate "5x5" "\
-Attempt to crack 5x5 by xoring the current and best solution.
-Mutate the result.
-
-\(fn)" t nil)
-
-(autoload '5x5-crack "5x5" "\
-Attempt to find a solution for 5x5.
-
-5x5-crack takes the argument BREEDER which should be a function that takes
-two parameters, the first will be a grid vector array that is the current
-solution and the second will be the best solution so far. The function
-should return a grid vector array that is the new solution.
-
-\(fn BREEDER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/ada-mode.el
-
-(autoload 'ada-add-extensions "ada-mode" "\
-Define SPEC and BODY as being valid extensions for Ada files.
-Going from body to spec with `ff-find-other-file' used these
-extensions.
-SPEC and BODY are two regular expressions that must match against
-the file name.
-
-\(fn SPEC BODY)" nil nil)
-
-(autoload 'ada-mode "ada-mode" "\
-Ada mode is the major mode for editing Ada code.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/ada-stmt.el
-
-(autoload 'ada-header "ada-stmt" "\
-Insert a descriptive header at the top of the file.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/ada-xref.el
-
-(autoload 'ada-find-file "ada-xref" "\
-Open FILENAME, from anywhere in the source path.
-Completion is available.
-
-\(fn FILENAME)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (change-log-merge add-log-current-defun 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" "vc/add-log.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/add-log.el
-
-(put 'change-log-default-name 'safe-local-variable 'string-or-null-p)
-
-(defvar add-log-current-defun-function nil "\
-If non-nil, function to guess name of surrounding function.
-It is used by `add-log-current-defun' in preference to built-in rules.
-Returns function's name as a string, or nil if outside a function.")
-
-(custom-autoload 'add-log-current-defun-function "add-log" t)
-
-(defvar add-log-full-name nil "\
-Full name of user, for inclusion in ChangeLog daily headers.
-This defaults to the value returned by the function `user-full-name'.")
-
-(custom-autoload 'add-log-full-name "add-log" t)
-
-(defvar add-log-mailing-address nil "\
-Email addresses of user, for inclusion in ChangeLog headers.
-This defaults to the value of `user-mail-address'. In addition to
-being a simple string, this value can also be a list. All elements
-will be recognized as referring to the same user; when creating a new
-ChangeLog entry, one element will be chosen at random.")
-
-(custom-autoload 'add-log-mailing-address "add-log" t)
-
-(autoload 'prompt-for-change-log-name "add-log" "\
-Prompt for a change log name.
-
-\(fn)" nil nil)
-
-(autoload 'find-change-log "add-log" "\
-Find a change log file for \\[add-change-log-entry] and return the name.
-
-Optional arg FILE-NAME specifies the file to use.
-If FILE-NAME is nil, use the value of `change-log-default-name'.
-If `change-log-default-name' is nil, behave as though it were 'ChangeLog'
-\(or whatever we use on this operating system).
-
-If `change-log-default-name' contains a leading directory component, then
-simply find it in the current directory. Otherwise, search in the current
-directory and its successive parents for a file so named.
-
-Once a file is found, `change-log-default-name' is set locally in the
-current buffer to the complete file name.
-Optional arg BUFFER-FILE overrides `buffer-file-name'.
-
-\(fn &optional FILE-NAME BUFFER-FILE)" nil nil)
-
-(autoload 'add-change-log-entry "add-log" "\
-Find change log file, and add an entry for today and an item for this file.
-Optional arg WHOAMI (interactive prefix) non-nil means prompt for user
-name and email (stored in `add-log-full-name' and `add-log-mailing-address').
-
-Second arg FILE-NAME is file name of the change log.
-If nil, use the value of `change-log-default-name'.
-
-Third arg OTHER-WINDOW non-nil means visit in other window.
-
-Fourth arg NEW-ENTRY non-nil means always create a new entry at the front;
-never append to an existing entry. Option `add-log-keep-changes-together'
-otherwise affects whether a new entry is created.
-
-Fifth arg PUT-NEW-ENTRY-ON-NEW-LINE non-nil means that if a new
-entry is created, put it on a new line by itself, do not put it
-after a comma on an existing line.
-
-Option `add-log-always-start-new-record' non-nil means always create a
-new record, even when the last record was made on the same date and by
-the same person.
-
-The change log file can start with a copyright notice and a copying
-permission notice. The first blank line indicates the end of these
-notices.
-
-Today's date is calculated according to `add-log-time-zone-rule' if
-non-nil, otherwise in local time.
-
-\(fn &optional WHOAMI FILE-NAME OTHER-WINDOW NEW-ENTRY PUT-NEW-ENTRY-ON-NEW-LINE)" t nil)
-
-(autoload 'add-change-log-entry-other-window "add-log" "\
-Find change log file in other window and add entry and item.
-This is just like `add-change-log-entry' except that it displays
-the change log file in another window.
-
-\(fn &optional WHOAMI FILE-NAME)" t nil)
-
-(autoload 'change-log-mode "add-log" "\
-Major mode for editing change logs; like Indented Text mode.
-Prevents numeric backups and sets `left-margin' to 8 and `fill-column' to 74.
-New log entries are usually made with \\[add-change-log-entry] or \\[add-change-log-entry-other-window].
-Each entry behaves as a paragraph, and the entries for one day as a page.
-Runs `change-log-mode-hook'.
-
-\\{change-log-mode-map}
-
-\(fn)" t nil)
-
-(defvar add-log-lisp-like-modes '(emacs-lisp-mode lisp-mode scheme-mode dsssl-mode lisp-interaction-mode) "\
-Modes that look like Lisp to `add-log-current-defun'.")
-
-(defvar add-log-c-like-modes '(c-mode c++-mode c++-c-mode objc-mode) "\
-Modes that look like C to `add-log-current-defun'.")
-
-(defvar add-log-tex-like-modes '(TeX-mode plain-TeX-mode LaTeX-mode tex-mode) "\
-Modes that look like TeX to `add-log-current-defun'.")
-
-(autoload 'add-log-current-defun "add-log" "\
-Return name of function definition point is in, or nil.
-
-Understands C, Lisp, LaTeX (\"functions\" are chapters, sections, ...),
-Texinfo (@node titles) and Perl.
-
-Other modes are handled by a heuristic that looks in the 10K before
-point for uppercase headings starting in the first column or
-identifiers followed by `:' or `='. See variables
-`add-log-current-defun-header-regexp' and
-`add-log-current-defun-function'.
-
-Has a preference of looking backwards.
-
-\(fn)" nil nil)
-
-(autoload 'change-log-merge "add-log" "\
-Merge the contents of change log file OTHER-LOG with this buffer.
-Both must be found in Change Log mode (since the merging depends on
-the appropriate motion commands). OTHER-LOG can be either a file name
-or a buffer.
-
-Entries are inserted in chronological order. Both the current and
-old-style time formats for entries are supported.
-
-\(fn OTHER-LOG)" t 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" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/advice.el
-
-(defvar ad-redefinition-action 'warn "\
-Defines what to do with redefinitions during Advice de/activation.
-Redefinition occurs if a previously activated function that already has an
-original definition associated with it gets redefined and then de/activated.
-In such a case we can either accept the current definition as the new
-original definition, discard the current definition and replace it with the
-old original, or keep it and raise an error. The values `accept', `discard',
-`error' or `warn' govern what will be done. `warn' is just like `accept' but
-it additionally prints a warning message. All other values will be
-interpreted as `error'.")
-
-(custom-autoload 'ad-redefinition-action "advice" t)
-
-(defvar ad-default-compilation-action 'maybe "\
-Defines whether to compile advised definitions during activation.
-A value of `always' will result in unconditional compilation, `never' will
-always avoid compilation, `maybe' will compile if the byte-compiler is already
-loaded, and `like-original' will compile if the original definition of the
-advised function is compiled or a built-in function. Every other value will
-be interpreted as `maybe'. This variable will only be considered if the
-COMPILE argument of `ad-activate' was supplied as nil.")
-
-(custom-autoload 'ad-default-compilation-action "advice" t)
-
-(autoload 'ad-enable-advice "advice" "\
-Enables the advice of FUNCTION with CLASS and NAME.
-
-\(fn FUNCTION CLASS NAME)" t nil)
-
-(autoload 'ad-disable-advice "advice" "\
-Disable the advice of FUNCTION with CLASS and NAME.
-
-\(fn FUNCTION CLASS NAME)" t nil)
-
-(autoload 'ad-add-advice "advice" "\
-Add a piece of ADVICE to FUNCTION's list of advices in CLASS.
-
-ADVICE has the form (NAME PROTECTED ENABLED DEFINITION), where
-NAME is the advice name; PROTECTED is a flag specifying whether
-to protect against non-local exits; ENABLED is a flag specifying
-whether to initially enable the advice; and DEFINITION has the
-form (advice . LAMBDA), where LAMBDA is a lambda expression.
-
-If FUNCTION already has a piece of advice with the same name,
-then POSITION is ignored, and the old advice is overwritten with
-the new one.
-
-If FUNCTION already has one or more pieces of advice of the
-specified CLASS, then POSITION determines where the new piece
-goes. POSITION can either be `first', `last' or a number (where
-0 corresponds to `first', and numbers outside the valid range are
-mapped to the closest extremal position).
-
-If FUNCTION was not advised already, its advice info will be
-initialized. Redefining a piece of advice whose name is part of
-the cache-id will clear the cache.
-
-See Info node `(elisp)Computed Advice' for detailed documentation.
-
-\(fn FUNCTION ADVICE CLASS POSITION)" nil nil)
-
-(autoload 'ad-activate "advice" "\
-Activate all the advice information of an advised FUNCTION.
-If FUNCTION has a proper original definition then an advised
-definition will be generated from FUNCTION's advice info and the
-definition of FUNCTION will be replaced with it. If a previously
-cached advised definition was available, it will be used.
-The optional COMPILE argument determines whether the resulting function
-or a compilable cached definition will be compiled. If it is negative
-no compilation will be performed, if it is positive or otherwise non-nil
-the resulting function will be compiled, if it is nil the behavior depends
-on the value of `ad-default-compilation-action' (which see).
-Activation of an advised function that has an advice info but no actual
-pieces of advice is equivalent to a call to `ad-unadvise'. Activation of
-an advised function that has actual pieces of advice but none of them are
-enabled is equivalent to a call to `ad-deactivate'. The current advised
-definition will always be cached for later usage.
-
-\(fn FUNCTION &optional COMPILE)" t nil)
-
-(autoload 'defadvice "advice" "\
-Define a piece of advice for FUNCTION (a symbol).
-The syntax of `defadvice' is as follows:
-
- (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...)
- [DOCSTRING] [INTERACTIVE-FORM]
- BODY...)
-
-FUNCTION ::= Name of the function to be advised.
-CLASS ::= `before' | `around' | `after' | `activation' | `deactivation'.
-NAME ::= Non-nil symbol that names this piece of advice.
-POSITION ::= `first' | `last' | NUMBER. Optional, defaults to `first',
- see also `ad-add-advice'.
-ARGLIST ::= An optional argument list to be used for the advised function
- instead of the argument list of the original. The first one found in
- before/around/after-advices will be used.
-FLAG ::= `protect'|`disable'|`activate'|`compile'|`preactivate'|`freeze'.
- All flags can be specified with unambiguous initial substrings.
-DOCSTRING ::= Optional documentation for this piece of advice.
-INTERACTIVE-FORM ::= Optional interactive form to be used for the advised
- function. The first one found in before/around/after-advices will be used.
-BODY ::= Any s-expression.
-
-Semantics of the various flags:
-`protect': The piece of advice will be protected against non-local exits in
-any code that precedes it. If any around-advice of a function is protected
-then automatically all around-advices will be protected (the complete onion).
-
-`activate': All advice of FUNCTION will be activated immediately if
-FUNCTION has been properly defined prior to this application of `defadvice'.
-
-`compile': In conjunction with `activate' specifies that the resulting
-advised function should be compiled.
-
-`disable': The defined advice will be disabled, hence, it will not be used
-during activation until somebody enables it.
-
-`preactivate': Preactivates the advised FUNCTION at macro-expansion/compile
-time. This generates a compiled advised definition according to the current
-advice state that will be used during activation if appropriate. Only use
-this if the `defadvice' gets actually compiled.
-
-`freeze': Expands the `defadvice' into a redefining `defun/defmacro' according
-to this particular single advice. No other advice information will be saved.
-Frozen advices cannot be undone, they behave like a hard redefinition of
-the advised function. `freeze' implies `activate' and `preactivate'. The
-documentation of the advised function can be dumped onto the `DOC' file
-during preloading.
-
-See Info node `(elisp)Advising Functions' for comprehensive documentation.
-usage: (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...)
- [DOCSTRING] [INTERACTIVE-FORM]
- BODY...)
-
-\(fn FUNCTION ARGS &rest BODY)" nil t)
-
-(put 'defadvice 'doc-string-elt '3)
-
-;;;***
-\f
-;;;### (autoloads (align-newline-and-indent align-unhighlight-rule
-;;;;;; align-highlight-rule align-current align-entire align-regexp
-;;;;;; align) "align" "align.el" (20707 18685 911514 0))
-;;; Generated autoloads from align.el
-
-(autoload 'align "align" "\
-Attempt to align a region based on a set of alignment rules.
-BEG and END mark the region. If BEG and END are specifically set to
-nil (this can only be done programmatically), the beginning and end of
-the current alignment section will be calculated based on the location
-of point, and the value of `align-region-separate' (or possibly each
-rule's `separate' attribute).
-
-If SEPARATE is non-nil, it overrides the value of
-`align-region-separate' for all rules, except those that have their
-`separate' attribute set.
-
-RULES and EXCLUDE-RULES, if either is non-nil, will replace the
-default rule lists defined in `align-rules-list' and
-`align-exclude-rules-list'. See `align-rules-list' for more details
-on the format of these lists.
-
-\(fn BEG END &optional SEPARATE RULES EXCLUDE-RULES)" t nil)
-
-(autoload 'align-regexp "align" "\
-Align the current region using an ad-hoc rule read from the minibuffer.
-BEG and END mark the limits of the region. This function will prompt
-for the REGEXP to align with. If no prefix arg was specified, you
-only need to supply the characters to be lined up and any preceding
-whitespace is replaced. If a prefix arg was specified, the full
-regexp with parenthesized whitespace should be supplied; it will also
-prompt for which parenthesis GROUP within REGEXP to modify, the amount
-of SPACING to use, and whether or not to REPEAT the rule throughout
-the line. See `align-rules-list' for more information about these
-options.
-
-For example, let's say you had a list of phone numbers, and wanted to
-align them so that the opening parentheses would line up:
-
- Fred (123) 456-7890
- Alice (123) 456-7890
- Mary-Anne (123) 456-7890
- Joe (123) 456-7890
-
-There is no predefined rule to handle this, but you could easily do it
-using a REGEXP like \"(\". All you would have to do is to mark the
-region, call `align-regexp' and type in that regular expression.
-
-\(fn BEG END REGEXP &optional GROUP SPACING REPEAT)" t nil)
-
-(autoload 'align-entire "align" "\
-Align the selected region as if it were one alignment section.
-BEG and END mark the extent of the region. If RULES or EXCLUDE-RULES
-is set to a list of rules (see `align-rules-list'), it can be used to
-override the default alignment rules that would have been used to
-align that section.
-
-\(fn BEG END &optional RULES EXCLUDE-RULES)" t nil)
-
-(autoload 'align-current "align" "\
-Call `align' on the current alignment section.
-This function assumes you want to align only the current section, and
-so saves you from having to specify the region. If RULES or
-EXCLUDE-RULES is set to a list of rules (see `align-rules-list'), it
-can be used to override the default alignment rules that would have
-been used to align that section.
-
-\(fn &optional RULES EXCLUDE-RULES)" t nil)
-
-(autoload 'align-highlight-rule "align" "\
-Highlight the whitespace which a given rule would have modified.
-BEG and END mark the extent of the region. TITLE identifies the rule
-that should be highlighted. If RULES or EXCLUDE-RULES is set to a
-list of rules (see `align-rules-list'), it can be used to override the
-default alignment rules that would have been used to identify the text
-to be colored.
-
-\(fn BEG END TITLE &optional RULES EXCLUDE-RULES)" t nil)
-
-(autoload 'align-unhighlight-rule "align" "\
-Remove any highlighting that was added by `align-highlight-rule'.
-
-\(fn)" t nil)
-
-(autoload 'align-newline-and-indent "align" "\
-A replacement function for `newline-and-indent', aligning as it goes.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (outlineify-sticky allout-mode allout-mode-p allout-auto-activation
-;;;;;; allout-setup allout-auto-activation-helper) "allout" "allout.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from allout.el
-
-(autoload 'allout-auto-activation-helper "allout" "\
-Institute `allout-auto-activation'.
-
-Intended to be used as the `allout-auto-activation' :set function.
-
-\(fn VAR VALUE)" nil nil)
-
-(autoload 'allout-setup "allout" "\
-Do fundamental Emacs session for allout auto-activation.
-
-Establishes allout processing as part of visiting a file if
-`allout-auto-activation' is non-nil, or removes it otherwise.
-
-The proper way to use this is through customizing the setting of
-`allout-auto-activation'.
-
-\(fn)" nil nil)
-
-(defvar allout-auto-activation nil "\
-Configure allout outline mode auto-activation.
-
-Control whether and how allout outline mode is automatically
-activated when files are visited with non-nil buffer-specific
-file variable `allout-layout'.
-
-When allout-auto-activation is \"On\" (t), allout mode is
-activated in buffers with non-nil `allout-layout', and the
-specified layout is applied.
-
-With value \"ask\", auto-mode-activation is enabled, and endorsement for
-performing auto-layout is asked of the user each time.
-
-With value \"activate\", only auto-mode-activation is enabled.
-Auto-layout is not.
-
-With value nil, inhibit any automatic allout-mode activation.")
-
-(custom-autoload 'allout-auto-activation "allout" nil)
-
-(put 'allout-use-hanging-indents 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
-
-(put 'allout-reindent-bodies 'safe-local-variable (lambda (x) (memq x '(nil t text force))))
-
-(put 'allout-show-bodies 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
-
-(put 'allout-header-prefix 'safe-local-variable 'stringp)
-
-(put 'allout-primary-bullet 'safe-local-variable 'stringp)
-
-(put 'allout-plain-bullets-string 'safe-local-variable 'stringp)
-
-(put 'allout-distinctive-bullets-string 'safe-local-variable 'stringp)
-
-(put 'allout-use-mode-specific-leader 'safe-local-variable (lambda (x) (or (memq x '(t nil allout-mode-leaders comment-start)) (stringp x))))
-
-(put 'allout-old-style-prefixes 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
-
-(put 'allout-stylish-prefixes 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
-
-(put 'allout-numbered-bullet 'safe-local-variable (if (fboundp 'string-or-null-p) 'string-or-null-p (lambda (x) (or (stringp x) (null x)))))
-
-(put 'allout-file-xref-bullet 'safe-local-variable (if (fboundp 'string-or-null-p) 'string-or-null-p (lambda (x) (or (stringp x) (null x)))))
-
-(put 'allout-presentation-padding 'safe-local-variable 'integerp)
-
-(put 'allout-layout 'safe-local-variable (lambda (x) (or (numberp x) (listp x) (memq x '(: * + -)))))
-
-(put 'allout-passphrase-verifier-string 'safe-local-variable 'stringp)
-
-(put 'allout-passphrase-hint-string 'safe-local-variable 'stringp)
-
-(autoload 'allout-mode-p "allout" "\
-Return t if `allout-mode' is active in current buffer.
-
-\(fn)" nil t)
-
-(autoload 'allout-mode "allout" "\
-Toggle Allout outline mode.
-With a prefix argument ARG, enable Allout outline mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-\\<allout-mode-map-value>
-Allout outline mode is a minor mode that provides extensive
-outline oriented formatting and manipulation. It enables
-structural editing of outlines, as well as navigation and
-exposure. It also is specifically aimed at accommodating
-syntax-sensitive text like programming languages. (For example,
-see the allout code itself, which is organized as an allout
-outline.)
-
-In addition to typical outline navigation and exposure, allout includes:
-
- - topic-oriented authoring, including keystroke-based topic creation,
- repositioning, promotion/demotion, cut, and paste
- - incremental search with dynamic exposure and reconcealment of hidden text
- - adjustable format, so programming code can be developed in outline-structure
- - easy topic encryption and decryption, symmetric or key-pair
- - \"Hot-spot\" operation, for single-keystroke maneuvering and exposure control
- - integral outline layout, for automatic initial exposure when visiting a file
- - independent extensibility, using comprehensive exposure and authoring hooks
-
-and many other features.
-
-Below is a description of the key bindings, and then description
-of special `allout-mode' features and terminology. See also the
-outline menubar additions for quick reference to many of the
-features. Customize `allout-auto-activation' to prepare your
-Emacs session for automatic activation of `allout-mode'.
-
-The bindings are those listed in `allout-prefixed-keybindings'
-and `allout-unprefixed-keybindings'. We recommend customizing
-`allout-command-prefix' to use just `\\C-c' as the command
-prefix, if the allout bindings don't conflict with any personal
-bindings you have on \\C-c. In any case, outline structure
-navigation and authoring is simplified by positioning the cursor
-on an item's bullet character, the \"hot-spot\" -- then you can
-invoke allout commands with just the un-prefixed,
-un-control-shifted command letters. This is described further in
-the HOT-SPOT Operation section.
-
- Exposure Control:
- ----------------
-\\[allout-hide-current-subtree] `allout-hide-current-subtree'
-\\[allout-show-children] `allout-show-children'
-\\[allout-show-current-subtree] `allout-show-current-subtree'
-\\[allout-show-current-entry] `allout-show-current-entry'
-\\[allout-show-all] `allout-show-all'
-
- Navigation:
- ----------
-\\[allout-next-visible-heading] `allout-next-visible-heading'
-\\[allout-previous-visible-heading] `allout-previous-visible-heading'
-\\[allout-up-current-level] `allout-up-current-level'
-\\[allout-forward-current-level] `allout-forward-current-level'
-\\[allout-backward-current-level] `allout-backward-current-level'
-\\[allout-end-of-entry] `allout-end-of-entry'
-\\[allout-beginning-of-current-entry] `allout-beginning-of-current-entry' (alternately, goes to hot-spot)
-\\[allout-beginning-of-line] `allout-beginning-of-line' -- like regular beginning-of-line, but
- if immediately repeated cycles to the beginning of the current item
- and then to the hot-spot (if `allout-beginning-of-line-cycles' is set).
-
-
- Topic Header Production:
- -----------------------
-\\[allout-open-sibtopic] `allout-open-sibtopic' Create a new sibling after current topic.
-\\[allout-open-subtopic] `allout-open-subtopic' ... an offspring of current topic.
-\\[allout-open-supertopic] `allout-open-supertopic' ... a sibling of the current topic's parent.
-
- Topic Level and Prefix Adjustment:
- ---------------------------------
-\\[allout-shift-in] `allout-shift-in' Shift current topic and all offspring deeper
-\\[allout-shift-out] `allout-shift-out' ... less deep
-\\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for
- current topic
-\\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and
- its offspring -- distinctive bullets are not changed, others
- are alternated according to nesting depth.
-\\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings --
- the offspring are not affected.
- With repeat count, revoke numbering.
-
- Topic-oriented Killing and Yanking:
- ----------------------------------
-\\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring.
-\\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring.
-\\[allout-kill-line] `allout-kill-line' Kill line, attending to outline structure.
-\\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it.
-\\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to
- depth of heading if yanking into bare topic
- heading (ie, prefix sans text).
-\\[allout-yank-pop] `allout-yank-pop' Is to `allout-yank' as `yank-pop' is to `yank'.
-
- Topic-oriented Encryption:
- -------------------------
-\\[allout-toggle-current-subtree-encryption] `allout-toggle-current-subtree-encryption'
- Encrypt/Decrypt topic content
-
- Misc commands:
- -------------
-M-x outlineify-sticky Activate outline mode for current buffer,
- and establish a default file-var setting
- for `allout-layout'.
-\\[allout-mark-topic] `allout-mark-topic'
-\\[allout-copy-exposed-to-buffer] `allout-copy-exposed-to-buffer'
- Duplicate outline, sans concealed text, to
- buffer with name derived from derived from that
- of current buffer -- \"*BUFFERNAME exposed*\".
-\\[allout-flatten-exposed-to-buffer] `allout-flatten-exposed-to-buffer'
- Like above 'copy-exposed', but convert topic
- prefixes to section.subsection... numeric
- format.
-\\[customize-variable] allout-auto-activation
- Prepare Emacs session for allout outline mode
- auto-activation.
-
- Topic Encryption
-
-Outline mode supports gpg encryption of topics, with support for
-symmetric and key-pair modes, and auto-encryption of topics
-pending encryption on save.
-
-Topics pending encryption are, by default, automatically
-encrypted during file saves, including checkpoint saves, to avoid
-exposing the plain text of encrypted topics in the file system.
-If the content of the topic containing the cursor was encrypted
-for a save, it is automatically decrypted for continued editing.
-
-NOTE: A few GnuPG v2 versions improperly preserve incorrect
-symmetric decryption keys, preventing entry of the correct key on
-subsequent decryption attempts until the cache times-out. That
-can take several minutes. (Decryption of other entries is not
-affected.) Upgrade your EasyPG version, if you can, and you can
-deliberately clear your gpg-agent's cache by sending it a '-HUP'
-signal.
-
-See `allout-toggle-current-subtree-encryption' function docstring
-and `allout-encrypt-unencrypted-on-saves' customization variable
-for details.
-
- HOT-SPOT Operation
-
-Hot-spot operation provides a means for easy, single-keystroke outline
-navigation and exposure control.
-
-When the text cursor is positioned directly on the bullet character of
-a topic, regular characters (a to z) invoke the commands of the
-corresponding allout-mode keymap control chars. For example, \"f\"
-would invoke the command typically bound to \"C-c<space>C-f\"
-\(\\[allout-forward-current-level] `allout-forward-current-level').
-
-Thus, by positioning the cursor on a topic bullet, you can
-execute the outline navigation and manipulation commands with a
-single keystroke. Regular navigation keys (eg, \\[forward-char], \\[next-line]) don't get
-this special translation, so you can use them to get out of the
-hot-spot and back to normal editing operation.
-
-In allout-mode, the normal beginning-of-line command (\\[allout-beginning-of-line]) is
-replaced with one that makes it easy to get to the hot-spot. If you
-repeat it immediately it cycles (if `allout-beginning-of-line-cycles'
-is set) to the beginning of the item and then, if you hit it again
-immediately, to the hot-spot. Similarly, `allout-beginning-of-current-entry'
-\(\\[allout-beginning-of-current-entry]) moves to the hot-spot when the cursor is already located
-at the beginning of the current entry.
-
- Extending Allout
-
-Allout exposure and authoring activities all have associated
-hooks, by which independent code can cooperate with allout
-without changes to the allout core. Here are key ones:
-
-`allout-mode-hook'
-`allout-mode-deactivate-hook' (deprecated)
-`allout-mode-off-hook'
-`allout-exposure-change-functions'
-`allout-structure-added-functions'
-`allout-structure-deleted-functions'
-`allout-structure-shifted-functions'
-`allout-after-copy-or-kill-hook'
-`allout-post-undo-hook'
-
- Terminology
-
-Topic hierarchy constituents -- TOPICS and SUBTOPICS:
-
-ITEM: A unitary outline element, including the HEADER and ENTRY text.
-TOPIC: An ITEM and any ITEMs contained within it, ie having greater DEPTH
- and with no intervening items of lower DEPTH than the container.
-CURRENT ITEM:
- The visible ITEM most immediately containing the cursor.
-DEPTH: The degree of nesting of an ITEM; it increases with containment.
- The DEPTH is determined by the HEADER PREFIX. The DEPTH is also
- called the:
-LEVEL: The same as DEPTH.
-
-ANCESTORS:
- Those ITEMs whose TOPICs contain an ITEM.
-PARENT: An ITEM's immediate ANCESTOR. It has a DEPTH one less than that
- of the ITEM.
-OFFSPRING:
- The ITEMs contained within an ITEM's TOPIC.
-SUBTOPIC:
- An OFFSPRING of its ANCESTOR TOPICs.
-CHILD:
- An immediate SUBTOPIC of its PARENT.
-SIBLINGS:
- TOPICs having the same PARENT and DEPTH.
-
-Topic text constituents:
-
-HEADER: The first line of an ITEM, include the ITEM PREFIX and HEADER
- text.
-ENTRY: The text content of an ITEM, before any OFFSPRING, but including
- the HEADER text and distinct from the ITEM PREFIX.
-BODY: Same as ENTRY.
-PREFIX: The leading text of an ITEM which distinguishes it from normal
- ENTRY text. Allout recognizes the outline structure according
- to the strict PREFIX format. It consists of a PREFIX-LEAD string,
- PREFIX-PADDING, and a BULLET. The BULLET might be followed by a
- number, indicating the ordinal number of the topic among its
- siblings, or an asterisk indicating encryption, plus an optional
- space. After that is the ITEM HEADER text, which is not part of
- the PREFIX.
-
- The relative length of the PREFIX determines the nesting DEPTH
- of the ITEM.
-PREFIX-LEAD:
- The string at the beginning of a HEADER PREFIX, by default a `.'.
- It can be customized by changing the setting of
- `allout-header-prefix' and then reinitializing `allout-mode'.
-
- When the PREFIX-LEAD is set to the comment-string of a
- programming language, outline structuring can be embedded in
- program code without interfering with processing of the text
- (by Emacs or the language processor) as program code. This
- setting happens automatically when allout mode is used in
- programming-mode buffers. See `allout-use-mode-specific-leader'
- docstring for more detail.
-PREFIX-PADDING:
- Spaces or asterisks which separate the PREFIX-LEAD and the
- bullet, determining the ITEM's DEPTH.
-BULLET: A character at the end of the ITEM PREFIX, it must be one of
- the characters listed on `allout-plain-bullets-string' or
- `allout-distinctive-bullets-string'. When creating a TOPIC,
- plain BULLETs are by default used, according to the DEPTH of the
- TOPIC. Choice among the distinctive BULLETs is offered when you
- provide a universal argument (\\[universal-argument]) to the
- TOPIC creation command, or when explicitly rebulleting a TOPIC. The
- significance of the various distinctive bullets is purely by
- convention. See the documentation for the above bullet strings for
- more details.
-EXPOSURE:
- The state of a TOPIC which determines the on-screen visibility
- of its OFFSPRING and contained ENTRY text.
-CONCEALED:
- TOPICs and ENTRY text whose EXPOSURE is inhibited. Concealed
- text is represented by \"...\" ellipses.
-
- CONCEALED TOPICs are effectively collapsed within an ANCESTOR.
-CLOSED: A TOPIC whose immediate OFFSPRING and body-text is CONCEALED.
-OPEN: A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be.
-
-\(fn &optional ARG)" t nil)
-
-(defalias 'outlinify-sticky 'outlineify-sticky)
-
-(autoload 'outlineify-sticky "allout" "\
-Activate outline mode and establish file var so it is started subsequently.
-
-See `allout-layout' and customization of `allout-auto-activation'
-for details on preparing Emacs for automatic allout activation.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (allout-widgets-mode allout-widgets-auto-activation
-;;;;;; allout-widgets-setup allout-widgets) "allout-widgets" "allout-widgets.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from allout-widgets.el
-
-(let ((loads (get 'allout-widgets 'custom-loads))) (if (member '"allout-widgets" loads) nil (put 'allout-widgets 'custom-loads (cons '"allout-widgets" loads))))
-
-(autoload 'allout-widgets-setup "allout-widgets" "\
-Commission or decommission allout-widgets-mode along with allout-mode.
-
-Meant to be used by customization of `allout-widgets-auto-activation'.
-
-\(fn VARNAME VALUE)" nil nil)
-
-(defvar allout-widgets-auto-activation nil "\
-Activate to enable allout icon graphics wherever allout mode is active.
-
-Also enable `allout-auto-activation' for this to take effect upon
-visiting an outline.
-
-When this is set you can disable allout widgets in select files
-by setting `allout-widgets-mode-inhibit'
-
-Instead of setting `allout-widgets-auto-activation' you can
-explicitly invoke `allout-widgets-mode' in allout buffers where
-you want allout widgets operation.
-
-See `allout-widgets-mode' for allout widgets mode features.")
-
-(custom-autoload 'allout-widgets-auto-activation "allout-widgets" nil)
-
-(put 'allout-widgets-mode-inhibit 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
-
-(autoload 'allout-widgets-mode "allout-widgets" "\
-Toggle Allout Widgets mode.
-With a prefix argument ARG, enable Allout Widgets mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Allout Widgets mode is an extension of Allout mode that provides
-graphical decoration of outline structure. It is meant to
-operate along with `allout-mode', via `allout-mode-hook'.
-
-The graphics include:
-
-- guide lines connecting item bullet-icons with those of their subitems.
-
-- icons for item bullets, varying to indicate whether or not the item
- has subitems, and if so, whether or not the item is expanded.
-
-- cue area between the bullet-icon and the start of the body headline,
- for item numbering, encryption indicator, and distinctive bullets.
-
-The bullet-icon and guide line graphics provide keybindings and mouse
-bindings for easy outline navigation and exposure control, extending
-outline hot-spot navigation (see `allout-mode').
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp"
-;;;;;; "net/ange-ftp.el" (20760 17829 498761 0))
-;;; Generated autoloads from net/ange-ftp.el
-
-(defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir)
-
-(autoload 'ange-ftp-reread-dir "ange-ftp" "\
-Reread remote directory DIR to update the directory cache.
-The implementation of remote FTP file names caches directory contents
-for speed. Therefore, when new remote files are created, Emacs
-may not know they exist. You can use this command to reread a specific
-directory, so that Emacs will know its current contents.
-
-\(fn &optional DIR)" t nil)
-
-(autoload 'ange-ftp-hook-function "ange-ftp" "\
-
-
-\(fn OPERATION &rest ARGS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (animate-birthday-present animate-sequence animate-string)
-;;;;;; "animate" "play/animate.el" (20707 18685 911514 0))
-;;; Generated autoloads from play/animate.el
-
-(autoload 'animate-string "animate" "\
-Display STRING animations starting at position VPOS, HPOS.
-The characters start at randomly chosen places,
-and all slide in parallel to their final positions,
-passing through `animate-n-steps' positions before the final ones.
-If HPOS is nil (or omitted), center the string horizontally
-in the current window.
-
-\(fn STRING VPOS &optional HPOS)" nil nil)
-
-(autoload 'animate-sequence "animate" "\
-Display animation strings from LIST-OF-STRING with buffer *Animation*.
-Strings will be separated from each other by SPACE lines.
- When the variable `animation-buffer-name' is non-nil display
-animation in the buffer named by variable's value, creating the
-buffer if one does not exist.
-
-\(fn LIST-OF-STRINGS SPACE)" nil nil)
-
-(autoload 'animate-birthday-present "animate" "\
-Return a birthday present in the buffer *Birthday-Present*.
-When optional arg NAME is non-nil or called-interactively, prompt for
-NAME of birthday present receiver and return a birthday present in
-the buffer *Birthday-Present-for-Name*.
-
-\(fn &optional NAME)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on)
-;;;;;; "ansi-color" "ansi-color.el" (20707 18685 911514 0))
-;;; Generated autoloads from ansi-color.el
-
-(autoload 'ansi-color-for-comint-mode-on "ansi-color" "\
-Set `ansi-color-for-comint-mode' to t.
-
-\(fn)" t nil)
-
-(autoload 'ansi-color-process-output "ansi-color" "\
-Maybe translate SGR control sequences of comint output into text properties.
-
-Depending on variable `ansi-color-for-comint-mode' the comint output is
-either not processed, SGR control sequences are filtered using
-`ansi-color-filter-region', or SGR control sequences are translated into
-text properties using `ansi-color-apply-on-region'.
-
-The comint output is assumed to lie between the marker
-`comint-last-output-start' and the process-mark.
-
-This is a good function to put in `comint-output-filter-functions'.
-
-\(fn IGNORED)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules)
-;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from progmodes/antlr-mode.el
-
-(autoload 'antlr-show-makefile-rules "antlr-mode" "\
-Show Makefile rules for all grammar files in the current directory.
-If the `major-mode' of the current buffer has the value `makefile-mode',
-the rules are directory inserted at point. Otherwise, a *Help* buffer
-is shown with the rules which are also put into the `kill-ring' for
-\\[yank].
-
-This command considers import/export vocabularies and grammar
-inheritance and provides a value for the \"-glib\" option if necessary.
-Customize variable `antlr-makefile-specification' for the appearance of
-the rules.
-
-If the file for a super-grammar cannot be determined, special file names
-are used according to variable `antlr-unknown-file-formats' and a
-commentary with value `antlr-help-unknown-file-text' is added. The
-*Help* buffer always starts with the text in `antlr-help-rules-intro'.
-
-\(fn)" t nil)
-
-(autoload 'antlr-mode "antlr-mode" "\
-Major mode for editing ANTLR grammar files.
-
-\(fn)" t nil)
-
-(autoload 'antlr-set-tabs "antlr-mode" "\
-Use ANTLR's convention for TABs according to `antlr-tab-offset-alist'.
-Used in `antlr-mode'. Also a useful function in `java-mode-hook'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (appt-activate appt-add) "appt" "calendar/appt.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from calendar/appt.el
-
-(autoload 'appt-add "appt" "\
-Add an appointment for today at TIME with message MSG.
-The time should be in either 24 hour format or am/pm format.
-Optional argument WARNTIME is an integer (or string) giving the number
-of minutes before the appointment at which to start warning.
-The default is `appt-message-warning-time'.
-
-\(fn TIME MSG &optional WARNTIME)" t nil)
-
-(autoload 'appt-activate "appt" "\
-Toggle checking of appointments.
-With optional numeric argument ARG, turn appointment checking on if
-ARG is positive, otherwise off.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (apropos-documentation apropos-value apropos-library
-;;;;;; apropos apropos-documentation-property apropos-command apropos-variable
-;;;;;; apropos-read-pattern) "apropos" "apropos.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from apropos.el
-
-(autoload 'apropos-read-pattern "apropos" "\
-Read an apropos pattern, either a word list or a regexp.
-Returns the user pattern, either a list of words which are matched
-literally, or a string which is used as a regexp to search for.
-
-SUBJECT is a string that is included in the prompt to identify what
-kind of objects to search.
-
-\(fn SUBJECT)" nil nil)
-
-(autoload 'apropos-variable "apropos" "\
-Show user variables that match PATTERN.
-PATTERN can be a word, a list of words (separated by spaces),
-or a regexp (using some regexp special characters). If it is a word,
-search for matches for that word as a substring. If it is a list of words,
-search for matches for any two (or more) of those words.
-
-With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also show
-normal variables.
-
-\(fn PATTERN &optional DO-ALL)" t nil)
-
-(defalias 'command-apropos 'apropos-command)
-
-(autoload 'apropos-command "apropos" "\
-Show commands (interactively callable functions) that match PATTERN.
-PATTERN can be a word, a list of words (separated by spaces),
-or a regexp (using some regexp special characters). If it is a word,
-search for matches for that word as a substring. If it is a list of words,
-search for matches for any two (or more) of those words.
-
-With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also show
-noninteractive functions.
-
-If VAR-PREDICATE is non-nil, show only variables, and only those that
-satisfy the predicate VAR-PREDICATE.
-
-When called from a Lisp program, a string PATTERN is used as a regexp,
-while a list of strings is used as a word list.
-
-\(fn PATTERN &optional DO-ALL VAR-PREDICATE)" t nil)
-
-(autoload 'apropos-documentation-property "apropos" "\
-Like (documentation-property SYMBOL PROPERTY RAW) but handle errors.
-
-\(fn SYMBOL PROPERTY RAW)" nil nil)
-
-(autoload 'apropos "apropos" "\
-Show all meaningful Lisp symbols whose names match PATTERN.
-Symbols are shown if they are defined as functions, variables, or
-faces, or if they have nonempty property lists.
-
-PATTERN can be a word, a list of words (separated by spaces),
-or a regexp (using some regexp special characters). If it is a word,
-search for matches for that word as a substring. If it is a list of words,
-search for matches for any two (or more) of those words.
-
-With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil,
-consider all symbols (if they match PATTERN).
-
-Returns list of symbols and documentation found.
-
-\(fn PATTERN &optional DO-ALL)" t nil)
-
-(autoload 'apropos-library "apropos" "\
-List the variables and functions defined by library FILE.
-FILE should be one of the libraries currently loaded and should
-thus be found in `load-history'. If `apropos-do-all' is non-nil,
-the output includes key-bindings of commands.
-
-\(fn FILE)" t nil)
-
-(autoload 'apropos-value "apropos" "\
-Show all symbols whose value's printed representation matches PATTERN.
-PATTERN can be a word, a list of words (separated by spaces),
-or a regexp (using some regexp special characters). If it is a word,
-search for matches for that word as a substring. If it is a list of words,
-search for matches for any two (or more) of those words.
-
-With \\[universal-argument] prefix, or if `apropos-do-all' is non-nil, also looks
-at function definitions (arguments, documentation and body) and at the
-names and values of properties.
-
-Returns list of symbols and values found.
-
-\(fn PATTERN &optional DO-ALL)" t nil)
-
-(autoload 'apropos-documentation "apropos" "\
-Show symbols whose documentation contains matches for PATTERN.
-PATTERN can be a word, a list of words (separated by spaces),
-or a regexp (using some regexp special characters). If it is a word,
-search for matches for that word as a substring. If it is a list of words,
-search for matches for any two (or more) of those words.
-
-Note that by default this command only searches in the file specified by
-`internal-doc-file-name'; i.e., the etc/DOC file. With \\[universal-argument] prefix,
-or if `apropos-do-all' is non-nil, it searches all currently defined
-documentation strings.
-
-Returns list of symbols and documentation found.
-
-\(fn PATTERN &optional DO-ALL)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from arc-mode.el
-
-(autoload 'archive-mode "arc-mode" "\
-Major mode for viewing an archive file in a dired-like way.
-You can move around using the usual cursor motion commands.
-Letters no longer insert themselves.
-Type `e' to pull a file out of the archive and into its own buffer;
-or click mouse-2 on the file's line in the archive mode buffer.
-
-If you edit a sub-file of this archive (as with the `e' command) and
-save it, the contents of that buffer will be saved back into the
-archive.
-
-\\{archive-mode-map}
-
-\(fn &optional FORCE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (array-mode) "array" "array.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from array.el
-
-(autoload 'array-mode "array" "\
-Major mode for editing arrays.
-
- Array mode is a specialized mode for editing arrays. An array is
-considered to be a two-dimensional set of strings. The strings are
-NOT recognized as integers or real numbers.
-
- The array MUST reside at the top of the buffer.
-
- TABs are not respected, and may be converted into spaces at any time.
-Setting the variable `array-respect-tabs' to non-nil will prevent TAB conversion,
-but will cause many functions to give errors if they encounter one.
-
- Upon entering array mode, you will be prompted for the values of
-several variables. Others will be calculated based on the values you
-supply. These variables are all local to the buffer. Other buffer
-in array mode may have different values assigned to the variables.
-The variables are:
-
-Variables you assign:
- array-max-row: The number of rows in the array.
- array-max-column: The number of columns in the array.
- array-columns-per-line: The number of columns in the array per line of buffer.
- array-field-width: The width of each field, in characters.
- array-rows-numbered: A logical variable describing whether to ignore
- row numbers in the buffer.
-
-Variables which are calculated:
- array-line-length: The number of characters in a buffer line.
- array-lines-per-row: The number of buffer lines used to display each row.
-
- The following commands are available (an asterisk indicates it may
-take a numeric prefix argument):
-
- * \\<array-mode-map>\\[array-forward-column] Move forward one column.
- * \\[array-backward-column] Move backward one column.
- * \\[array-next-row] Move down one row.
- * \\[array-previous-row] Move up one row.
-
- * \\[array-copy-forward] Copy the current field into the column to the right.
- * \\[array-copy-backward] Copy the current field into the column to the left.
- * \\[array-copy-down] Copy the current field into the row below.
- * \\[array-copy-up] Copy the current field into the row above.
-
- * \\[array-copy-column-forward] Copy the current column into the column to the right.
- * \\[array-copy-column-backward] Copy the current column into the column to the left.
- * \\[array-copy-row-down] Copy the current row into the row below.
- * \\[array-copy-row-up] Copy the current row into the row above.
-
- \\[array-fill-rectangle] Copy the field at mark into every cell with row and column
- between that of point and mark.
-
- \\[array-what-position] Display the current array row and column.
- \\[array-goto-cell] Go to a particular array cell.
-
- \\[array-make-template] Make a template for a new array.
- \\[array-reconfigure-rows] Reconfigure the array.
- \\[array-expand-rows] Expand the array (remove row numbers and
- newlines inside rows)
-
- \\[array-display-local-variables] Display the current values of local variables.
-
-Entering array mode calls the function `array-mode-hook'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from textmodes/artist.el
-
-(autoload 'artist-mode "artist" "\
-Toggle Artist mode.
-With argument ARG, turn Artist mode on if ARG is positive.
-Artist lets you draw lines, squares, rectangles and poly-lines,
-ellipses and circles with your mouse and/or keyboard.
-
-How to quit Artist mode
-
- Type \\[artist-mode-off] to quit artist-mode.
-
-
-How to submit a bug report
-
- Type \\[artist-submit-bug-report] to submit a bug report.
-
-
-Drawing with the mouse:
-
- mouse-2
- shift mouse-2 Pops up a menu where you can select what to draw with
- mouse-1, and where you can do some settings (described
- below).
-
- mouse-1
- shift mouse-1 Draws lines, rectangles or poly-lines, erases, cuts, copies
- or pastes:
-
- Operation Not shifted Shifted
- --------------------------------------------------------------
- Pen fill-char at point line from last point
- to new point
- --------------------------------------------------------------
- Line Line in any direction Straight line
- --------------------------------------------------------------
- Rectangle Rectangle Square
- --------------------------------------------------------------
- Poly-line Poly-line in any dir Straight poly-lines
- --------------------------------------------------------------
- Ellipses Ellipses Circles
- --------------------------------------------------------------
- Text Text (see thru) Text (overwrite)
- --------------------------------------------------------------
- Spray-can Spray-can Set size for spray
- --------------------------------------------------------------
- Erase Erase character Erase rectangle
- --------------------------------------------------------------
- Vaporize Erase single line Erase connected
- lines
- --------------------------------------------------------------
- Cut Cut rectangle Cut square
- --------------------------------------------------------------
- Copy Copy rectangle Copy square
- --------------------------------------------------------------
- Paste Paste Paste
- --------------------------------------------------------------
- Flood-fill Flood-fill Flood-fill
- --------------------------------------------------------------
-
- * Straight lines can only go horizontally, vertically
- or diagonally.
-
- * Poly-lines are drawn while holding mouse-1 down. When you
- release the button, the point is set. If you want a segment
- to be straight, hold down shift before pressing the
- mouse-1 button. Click mouse-2 or mouse-3 to stop drawing
- poly-lines.
-
- * See thru for text means that text already in the buffer
- will be visible through blanks in the text rendered, while
- overwrite means the opposite.
-
- * Vaporizing connected lines only vaporizes lines whose
- _endpoints_ are connected. See also the variable
- `artist-vaporize-fuzziness'.
-
- * Cut copies, then clears the rectangle/square.
-
- * When drawing lines or poly-lines, you can set arrows.
- See below under ``Arrows'' for more info.
-
- * The mode line shows the currently selected drawing operation.
- In addition, if it has an asterisk (*) at the end, you
- are currently drawing something.
-
- * Be patient when flood-filling -- large areas take quite
- some time to fill.
-
-
- mouse-3 Erases character under pointer
- shift mouse-3 Erases rectangle
-
-
-Settings
-
- Set fill Sets the character used when filling rectangles/squares
-
- Set line Sets the character used when drawing lines
-
- Erase char Sets the character used when erasing
-
- Rubber-banding Toggles rubber-banding
-
- Trimming Toggles trimming of line-endings (that is: when the shape
- is drawn, extraneous white-space at end of lines is removed)
-
- Borders Toggles the drawing of line borders around filled shapes
-
-
-Drawing with keys
-
- \\[artist-key-set-point] Does one of the following:
- For lines/rectangles/squares: sets the first/second endpoint
- For poly-lines: sets a point (use C-u \\[artist-key-set-point] to set last point)
- When erase characters: toggles erasing
- When cutting/copying: Sets first/last endpoint of rect/square
- When pasting: Pastes
-
- \\[artist-select-operation] Selects what to draw
-
- Move around with \\[artist-next-line], \\[artist-previous-line], \\[artist-forward-char] and \\[artist-backward-char].
-
- \\[artist-select-fill-char] Sets the character to use when filling
- \\[artist-select-line-char] Sets the character to use when drawing
- \\[artist-select-erase-char] Sets the character to use when erasing
- \\[artist-toggle-rubber-banding] Toggles rubber-banding
- \\[artist-toggle-trim-line-endings] Toggles trimming of line-endings
- \\[artist-toggle-borderless-shapes] Toggles borders on drawn shapes
-
-
-Arrows
-
- \\[artist-toggle-first-arrow] Sets/unsets an arrow at the beginning
- of the line/poly-line
-
- \\[artist-toggle-second-arrow] Sets/unsets an arrow at the end
- of the line/poly-line
-
-
-Selecting operation
-
- There are some keys for quickly selecting drawing operations:
-
- \\[artist-select-op-line] Selects drawing lines
- \\[artist-select-op-straight-line] Selects drawing straight lines
- \\[artist-select-op-rectangle] Selects drawing rectangles
- \\[artist-select-op-square] Selects drawing squares
- \\[artist-select-op-poly-line] Selects drawing poly-lines
- \\[artist-select-op-straight-poly-line] Selects drawing straight poly-lines
- \\[artist-select-op-ellipse] Selects drawing ellipses
- \\[artist-select-op-circle] Selects drawing circles
- \\[artist-select-op-text-see-thru] Selects rendering text (see thru)
- \\[artist-select-op-text-overwrite] Selects rendering text (overwrite)
- \\[artist-select-op-spray-can] Spray with spray-can
- \\[artist-select-op-spray-set-size] Set size for the spray-can
- \\[artist-select-op-erase-char] Selects erasing characters
- \\[artist-select-op-erase-rectangle] Selects erasing rectangles
- \\[artist-select-op-vaporize-line] Selects vaporizing single lines
- \\[artist-select-op-vaporize-lines] Selects vaporizing connected lines
- \\[artist-select-op-cut-rectangle] Selects cutting rectangles
- \\[artist-select-op-copy-rectangle] Selects copying rectangles
- \\[artist-select-op-paste] Selects pasting
- \\[artist-select-op-flood-fill] Selects flood-filling
-
-
-Variables
-
- This is a brief overview of the different variables. For more info,
- see the documentation for the variables (type \\[describe-variable] <variable> RET).
-
- artist-rubber-banding Interactively do rubber-banding or not
- artist-first-char What to set at first/second point...
- artist-second-char ...when not rubber-banding
- artist-interface-with-rect If cut/copy/paste should interface with rect
- artist-arrows The arrows to use when drawing arrows
- artist-aspect-ratio Character height-to-width for squares
- artist-trim-line-endings Trimming of line endings
- artist-flood-fill-right-border Right border when flood-filling
- artist-flood-fill-show-incrementally Update display while filling
- artist-pointer-shape Pointer shape to use while drawing
- artist-ellipse-left-char Character to use for narrow ellipses
- artist-ellipse-right-char Character to use for narrow ellipses
- artist-borderless-shapes If shapes should have borders
- artist-picture-compatibility Whether or not to be picture mode compatible
- artist-vaporize-fuzziness Tolerance when recognizing lines
- artist-spray-interval Seconds between repeated sprayings
- artist-spray-radius Size of the spray-area
- artist-spray-chars The spray-``color''
- artist-spray-new-chars Initial spray-``color''
-
-Hooks
-
- Turning the mode on or off runs `artist-mode-hook'.
-
-
-Keymap summary
-
-\\{artist-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from progmodes/asm-mode.el
-
-(autoload 'asm-mode "asm-mode" "\
-Major mode for editing typical assembler code.
-Features a private abbrev table and the following bindings:
-
-\\[asm-colon] outdent a preceding label, tab to next tab stop.
-\\[tab-to-tab-stop] tab to next tab stop.
-\\[asm-newline] newline, then tab to next tab stop.
-\\[asm-comment] smart placement of assembler comments.
-
-The character used for making comments is set by the variable
-`asm-comment-char' (which defaults to `?\\;').
-
-Alternatively, you may set this variable in `asm-mode-set-comment-hook',
-which is called near the beginning of mode initialization.
-
-Turning on Asm mode runs the hook `asm-mode-hook' at the end of initialization.
-
-Special commands:
-\\{asm-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (auth-source-cache-expiry) "auth-source" "gnus/auth-source.el"
-;;;;;; (20755 17565 391628 0))
-;;; Generated autoloads from gnus/auth-source.el
-
-(defvar auth-source-cache-expiry 7200 "\
-How many seconds passwords are cached, or nil to disable
-expiring. Overrides `password-cache-expiry' through a
-let-binding.")
-
-(custom-autoload 'auth-source-cache-expiry "auth-source" t)
-
-;;;***
-\f
-;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from autoarg.el
-
-(defvar autoarg-mode nil "\
-Non-nil if Autoarg mode is enabled.
-See the command `autoarg-mode' for a description of this minor mode.")
-
-(custom-autoload 'autoarg-mode "autoarg" nil)
-
-(autoload 'autoarg-mode "autoarg" "\
-Toggle Autoarg mode, a global minor mode.
-With a prefix argument ARG, enable Autoarg mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-\\<autoarg-mode-map>
-In Autoarg mode, digits are bound to `digit-argument', i.e. they
-supply prefix arguments as C-DIGIT and M-DIGIT normally do.
-Furthermore, C-DIGIT inserts DIGIT.
-\\[autoarg-terminate] terminates the prefix sequence and inserts
-the digits of the autoarg sequence into the buffer.
-Without a numeric prefix arg, the normal binding of \\[autoarg-terminate]
-is invoked, i.e. what it would be with Autoarg mode off.
-
-For example:
-`6 9 \\[autoarg-terminate]' inserts `69' into the buffer, as does `C-6 C-9'.
-`6 9 a' inserts 69 `a's into the buffer.
-`6 9 \\[autoarg-terminate] \\[autoarg-terminate]' inserts `69' into the buffer and
-then invokes the normal binding of \\[autoarg-terminate].
-`C-u \\[autoarg-terminate]' invokes the normal binding of \\[autoarg-terminate] four times.
-
-\\{autoarg-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(defvar autoarg-kp-mode nil "\
-Non-nil if Autoarg-Kp mode is enabled.
-See the command `autoarg-kp-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `autoarg-kp-mode'.")
-
-(custom-autoload 'autoarg-kp-mode "autoarg" nil)
-
-(autoload 'autoarg-kp-mode "autoarg" "\
-Toggle Autoarg-KP mode, a global minor mode.
-With a prefix argument ARG, enable Autoarg-KP mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-\\<autoarg-kp-mode-map>
-This is similar to `autoarg-mode' but rebinds the keypad keys
-`kp-1' etc. to supply digit arguments.
-
-\\{autoarg-kp-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/autoconf.el
-
-(autoload 'autoconf-mode "autoconf" "\
-Major mode for editing Autoconf configure.ac files.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert)
-;;;;;; "autoinsert" "autoinsert.el" (20707 18685 911514 0))
-;;; Generated autoloads from autoinsert.el
-
-(autoload 'auto-insert "autoinsert" "\
-Insert default contents into new files if variable `auto-insert' is non-nil.
-Matches the visited file name against the elements of `auto-insert-alist'.
-
-\(fn)" t nil)
-
-(autoload 'define-auto-insert "autoinsert" "\
-Associate CONDITION with (additional) ACTION in `auto-insert-alist'.
-Optional AFTER means to insert action after all existing actions for CONDITION,
-or if CONDITION had no actions, after all other CONDITIONs.
-
-\(fn CONDITION ACTION &optional AFTER)" nil nil)
-
-(defvar auto-insert-mode nil "\
-Non-nil if Auto-Insert mode is enabled.
-See the command `auto-insert-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `auto-insert-mode'.")
-
-(custom-autoload 'auto-insert-mode "autoinsert" nil)
-
-(autoload 'auto-insert-mode "autoinsert" "\
-Toggle Auto-insert mode, a global minor mode.
-With a prefix argument ARG, enable Auto-insert mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-When Auto-insert mode is enabled, when new files are created you can
-insert a template for the file depending on the mode of the buffer.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (batch-update-autoloads update-directory-autoloads
-;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/autoload.el
-
-(put 'generated-autoload-file 'safe-local-variable 'stringp)
-
-(put 'generated-autoload-load-name 'safe-local-variable 'stringp)
-
-(autoload 'update-file-autoloads "autoload" "\
-Update the autoloads for FILE.
-If prefix arg SAVE-AFTER is non-nil, save the buffer too.
-
-If FILE binds `generated-autoload-file' as a file-local variable,
-autoloads are written into that file. Otherwise, the autoloads
-file is determined by OUTFILE. If called interactively, prompt
-for OUTFILE; if called from Lisp with OUTFILE nil, use the
-existing value of `generated-autoload-file'.
-
-Return FILE if there was no autoload cookie in it, else nil.
-
-\(fn FILE &optional SAVE-AFTER OUTFILE)" t nil)
-
-(autoload 'update-directory-autoloads "autoload" "\
-Update autoload definitions for Lisp files in the directories DIRS.
-In an interactive call, you must give one argument, the name of a
-single directory. In a call from Lisp, you can supply multiple
-directories as separate arguments, but this usage is discouraged.
-
-The function does NOT recursively descend into subdirectories of the
-directory or directories specified.
-
-In an interactive call, prompt for a default output file for the
-autoload definitions, and temporarily bind the variable
-`generated-autoload-file' to this value. When called from Lisp,
-use the existing value of `generated-autoload-file'. If any Lisp
-file binds `generated-autoload-file' as a file-local variable,
-write its autoloads into the specified file instead.
-
-\(fn &rest DIRS)" t nil)
-
-(autoload 'batch-update-autoloads "autoload" "\
-Update loaddefs.el autoloads in batch mode.
-Calls `update-directory-autoloads' on the command line arguments.
-Definitions are written to `generated-autoload-file' (which
-should be non-nil).
-
-\(fn)" nil nil)
-
-;;;***
-\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" (20707 18685 911514 0))
-;;; Generated autoloads from autorevert.el
-
-(autoload 'auto-revert-mode "autorevert" "\
-Toggle reverting buffer when the file changes (Auto Revert mode).
-With a prefix argument ARG, enable Auto Revert mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Auto Revert mode is a minor mode that affects only the current
-buffer. When enabled, it reverts the buffer when the file on
-disk changes.
-
-Use `global-auto-revert-mode' to automatically revert all buffers.
-Use `auto-revert-tail-mode' if you know that the file will only grow
-without being changed in the part that is already in the buffer.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'turn-on-auto-revert-mode "autorevert" "\
-Turn on Auto-Revert Mode.
-
-This function is designed to be added to hooks, for example:
- (add-hook 'c-mode-hook 'turn-on-auto-revert-mode)
-
-\(fn)" nil nil)
-
-(autoload 'auto-revert-tail-mode "autorevert" "\
-Toggle reverting tail of buffer when the file grows.
-With a prefix argument ARG, enable Auto-Revert Tail mode if ARG
-is positive, and disable it otherwise. If called from Lisp,
-enable the mode if ARG is omitted or nil.
-
-When Auto Revert Tail mode is enabled, the tail of the file is
-constantly followed, as with the shell command `tail -f'. This
-means that whenever the file grows on disk (presumably because
-some background process is appending to it from time to time),
-this is reflected in the current buffer.
-
-You can edit the buffer and turn this mode off and on again as
-you please. But make sure the background process has stopped
-writing before you save the file!
-
-Use `auto-revert-mode' for changes other than appends!
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'turn-on-auto-revert-tail-mode "autorevert" "\
-Turn on Auto-Revert Tail mode.
-
-This function is designed to be added to hooks, for example:
- (add-hook 'my-logfile-mode-hook 'turn-on-auto-revert-tail-mode)
-
-\(fn)" nil nil)
-
-(defvar global-auto-revert-mode nil "\
-Non-nil if Global-Auto-Revert mode is enabled.
-See the command `global-auto-revert-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-auto-revert-mode'.")
-
-(custom-autoload 'global-auto-revert-mode "autorevert" nil)
-
-(autoload 'global-auto-revert-mode "autorevert" "\
-Toggle Global Auto Revert mode.
-With a prefix argument ARG, enable Global Auto Revert mode if ARG
-is positive, and disable it otherwise. If called from Lisp,
-enable the mode if ARG is omitted or nil.
-
-Global Auto Revert mode is a global minor mode that reverts any
-buffer associated with a file when the file changes on disk. Use
-`auto-revert-mode' to revert a particular buffer.
-
-If `global-auto-revert-non-file-buffers' is non-nil, this mode
-may also revert some non-file buffers, as described in the
-documentation of that variable. It ignores buffers with modes
-matching `global-auto-revert-ignore-modes', and buffers with a
-non-nil vale of `global-auto-revert-ignore-buffer'.
-
-This function calls the hook `global-auto-revert-mode-hook'.
-It displays the text that `global-auto-revert-mode-text'
-specifies in the mode line.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid"
-;;;;;; "avoid.el" (20707 18685 911514 0))
-;;; Generated autoloads from avoid.el
-
-(defvar mouse-avoidance-mode nil "\
-Activate Mouse Avoidance mode.
-See function `mouse-avoidance-mode' for possible values.
-Setting this variable directly does not take effect;
-use either \\[customize] or the function `mouse-avoidance-mode'.")
-
-(custom-autoload 'mouse-avoidance-mode "avoid" nil)
-
-(autoload 'mouse-avoidance-mode "avoid" "\
-Set Mouse Avoidance mode to MODE.
-MODE should be one of the symbols `banish', `exile', `jump', `animate',
-`cat-and-mouse', `proteus', or `none'.
-
-If MODE is nil, toggle mouse avoidance between `none' and `banish'
-modes. Positive numbers and symbols other than the above are treated
-as equivalent to `banish'; negative numbers and `-' are equivalent to `none'.
-
-Effects of the different modes:
- * banish: Move the mouse to the upper-right corner on any keypress.
- * exile: Move the mouse to the corner only if the cursor gets too close,
- and allow it to return once the cursor is out of the way.
- * jump: If the cursor gets too close to the mouse, displace the mouse
- a random distance & direction.
- * animate: As `jump', but shows steps along the way for illusion of motion.
- * cat-and-mouse: Same as `animate'.
- * proteus: As `animate', but changes the shape of the mouse pointer too.
-
-Whenever the mouse is moved, the frame is also raised.
-
-\(See `mouse-avoidance-threshold' for definition of \"too close\",
-and `mouse-avoidance-nudge-dist' and `mouse-avoidance-nudge-var' for
-definition of \"random distance\".)
-
-\(fn &optional MODE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (display-battery-mode battery) "battery" "battery.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from battery.el
- (put 'battery-mode-line-string 'risky-local-variable t)
-
-(autoload 'battery "battery" "\
-Display battery status information in the echo area.
-The text being displayed in the echo area is controlled by the variables
-`battery-echo-area-format' and `battery-status-function'.
-
-\(fn)" t nil)
-
-(defvar display-battery-mode nil "\
-Non-nil if Display-Battery mode is enabled.
-See the command `display-battery-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `display-battery-mode'.")
-
-(custom-autoload 'display-battery-mode "battery" nil)
-
-(autoload 'display-battery-mode "battery" "\
-Toggle battery status display in mode line (Display Battery mode).
-With a prefix argument ARG, enable Display Battery mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-The text displayed in the mode line is controlled by
-`battery-mode-line-format' and `battery-status-function'.
-The mode line is be updated every `battery-update-interval'
-seconds.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run)
-;;;;;; "benchmark" "emacs-lisp/benchmark.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from emacs-lisp/benchmark.el
-
-(autoload 'benchmark-run "benchmark" "\
-Time execution of FORMS.
-If REPETITIONS is supplied as a number, run forms that many times,
-accounting for the overhead of the resulting loop. Otherwise run
-FORMS once.
-Return a list of the total elapsed time for execution, the number of
-garbage collections that ran, and the time taken by garbage collection.
-See also `benchmark-run-compiled'.
-
-\(fn &optional REPETITIONS &rest FORMS)" nil t)
-
-(put 'benchmark-run 'lisp-indent-function '1)
-
-(autoload 'benchmark-run-compiled "benchmark" "\
-Time execution of compiled version of FORMS.
-This is like `benchmark-run', but what is timed is a funcall of the
-byte code obtained by wrapping FORMS in a `lambda' and compiling the
-result. The overhead of the `lambda's is accounted for.
-
-\(fn &optional REPETITIONS &rest FORMS)" nil t)
-
-(put 'benchmark-run-compiled 'lisp-indent-function '1)
-
-(autoload 'benchmark "benchmark" "\
-Print the time taken for REPETITIONS executions of FORM.
-Interactively, REPETITIONS is taken from the prefix arg.
-For non-interactive use see also `benchmark-run' and
-`benchmark-run-compiled'.
-
-\(fn REPETITIONS FORM)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (bibtex-search-entry bibtex-mode bibtex-initialize)
-;;;;;; "bibtex" "textmodes/bibtex.el" (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/bibtex.el
-
-(autoload 'bibtex-initialize "bibtex" "\
-(Re)Initialize BibTeX buffers.
-Visit the BibTeX files defined by `bibtex-files' and return a list
-of corresponding buffers.
-Initialize in these buffers `bibtex-reference-keys' if not yet set.
-List of BibTeX buffers includes current buffer if CURRENT is non-nil.
-If FORCE is non-nil, (re)initialize `bibtex-reference-keys' even if
-already set. If SELECT is non-nil interactively select a BibTeX buffer.
-When called interactively, FORCE is t, CURRENT is t if current buffer uses
-`bibtex-mode', and SELECT is t if current buffer does not use `bibtex-mode',
-
-\(fn &optional CURRENT FORCE SELECT)" t nil)
-
-(autoload 'bibtex-mode "bibtex" "\
-Major mode for editing BibTeX files.
-
-General information on working with BibTeX mode:
-
-Use commands such as \\<bibtex-mode-map>\\[bibtex-Book] to get a template for a specific entry.
-Then fill in all desired fields using \\[bibtex-next-field] to jump from field
-to field. After having filled in all desired fields in the entry, clean the
-new entry with the command \\[bibtex-clean-entry].
-
-Some features of BibTeX mode are available only by setting the variable
-`bibtex-maintain-sorted-entries' to non-nil. However, then BibTeX mode
-works only with buffers containing valid (syntactically correct) and sorted
-entries. This is usually the case, if you have created a buffer completely
-with BibTeX mode and finished every new entry with \\[bibtex-clean-entry].
-
-For third party BibTeX files, call the command \\[bibtex-convert-alien]
-to fully take advantage of all features of BibTeX mode.
-
-
-Special information:
-
-A command such as \\[bibtex-Book] outlines the fields for a BibTeX book entry.
-
-The names of optional fields start with the string OPT, and are thus ignored
-by BibTeX. The names of alternative fields from which only one is required
-start with the string ALT. The OPT or ALT string may be removed from
-the name of a field with \\[bibtex-remove-OPT-or-ALT].
-\\[bibtex-make-field] inserts a new field after the current one.
-\\[bibtex-kill-field] kills the current field entirely.
-\\[bibtex-yank] yanks the last recently killed field after the current field.
-\\[bibtex-remove-delimiters] removes the double-quotes or braces around the text of the current field.
-\\[bibtex-empty-field] replaces the text of the current field with the default \"\" or {}.
-\\[bibtex-find-text] moves point to the end of the current field.
-\\[completion-at-point] completes word fragment before point according to context.
-
-The command \\[bibtex-clean-entry] cleans the current entry, i.e. it removes OPT/ALT
-from the names of all non-empty optional or alternative fields, checks that
-no required fields are empty, and does some formatting dependent on the value
-of `bibtex-entry-format'. Furthermore, it can automatically generate a key
-for the BibTeX entry, see `bibtex-generate-autokey'.
-Note: some functions in BibTeX mode depend on entries being in a special
-format (all fields beginning on separate lines), so it is usually a bad
-idea to remove `realign' from `bibtex-entry-format'.
-
-BibTeX mode supports Imenu and hideshow minor mode (`hs-minor-mode').
-
-----------------------------------------------------------
-Entry to BibTeX mode calls the value of `bibtex-mode-hook'
-if that value is non-nil.
-
-\\{bibtex-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'bibtex-search-entry "bibtex" "\
-Move point to the beginning of BibTeX entry named KEY.
-Return position of entry if KEY is found or nil if not found.
-With GLOBAL non-nil, search KEY in `bibtex-files'. Otherwise the search
-is limited to the current buffer. Optional arg START is buffer position
-where the search starts. If it is nil, start search at beginning of buffer.
-If DISPLAY is non-nil, display the buffer containing KEY.
-Otherwise, use `set-buffer'.
-When called interactively, START is nil, DISPLAY is t.
-Also, GLOBAL is t if the current mode is not `bibtex-mode'
-or `bibtex-search-entry-globally' is non-nil.
-A prefix arg negates the value of `bibtex-search-entry-globally'.
-
-\(fn KEY &optional GLOBAL START DISPLAY)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (bibtex-style-mode) "bibtex-style" "textmodes/bibtex-style.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/bibtex-style.el
-
-(autoload 'bibtex-style-mode "bibtex-style" "\
-Major mode for editing BibTeX style files.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (binhex-decode-region binhex-decode-region-external
-;;;;;; binhex-decode-region-internal) "binhex" "mail/binhex.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mail/binhex.el
-
-(defconst binhex-begin-line "^:...............................................................$" "\
-Regular expression matching the start of a BinHex encoded region.")
-
-(autoload 'binhex-decode-region-internal "binhex" "\
-Binhex decode region between START and END without using an external program.
-If HEADER-ONLY is non-nil only decode header and return filename.
-
-\(fn START END &optional HEADER-ONLY)" t nil)
-
-(autoload 'binhex-decode-region-external "binhex" "\
-Binhex decode region between START and END using external decoder.
-
-\(fn START END)" t nil)
-
-(autoload 'binhex-decode-region "binhex" "\
-Binhex decode region between START and END.
-
-\(fn START END)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from play/blackbox.el
-
-(autoload 'blackbox "blackbox" "\
-Play blackbox.
-Optional prefix argument is the number of balls; the default is 4.
-
-What is blackbox?
-
-Blackbox is a game of hide and seek played on an 8 by 8 grid (the
-Blackbox). Your opponent (Emacs, in this case) has hidden several
-balls (usually 4) within this box. By shooting rays into the box and
-observing where they emerge it is possible to deduce the positions of
-the hidden balls. The fewer rays you use to find the balls, the lower
-your score.
-
-Overview of play:
-
-\\<blackbox-mode-map>To play blackbox, type \\[blackbox]. An optional prefix argument
-specifies the number of balls to be hidden in the box; the default is
-four.
-
-The cursor can be moved around the box with the standard cursor
-movement keys.
-
-To shoot a ray, move the cursor to the edge of the box and press SPC.
-The result will be determined and the playfield updated.
-
-You may place or remove balls in the box by moving the cursor into the
-box and pressing \\[bb-romp].
-
-When you think the configuration of balls you have placed is correct,
-press \\[bb-done]. You will be informed whether you are correct or
-not, and be given your score. Your score is the number of letters and
-numbers around the outside of the box plus five for each incorrectly
-placed ball. If you placed any balls incorrectly, they will be
-indicated with `x', and their actual positions indicated with `o'.
-
-Details:
-
-There are three possible outcomes for each ray you send into the box:
-
- Detour: the ray is deflected and emerges somewhere other than
- where you sent it in. On the playfield, detours are
- denoted by matching pairs of numbers -- one where the
- ray went in, and the other where it came out.
-
- Reflection: the ray is reflected and emerges in the same place
- it was sent in. On the playfield, reflections are
- denoted by the letter `R'.
-
- Hit: the ray strikes a ball directly and is absorbed. It does
- not emerge from the box. On the playfield, hits are
- denoted by the letter `H'.
-
-The rules for how balls deflect rays are simple and are best shown by
-example.
-
-As a ray approaches a ball it is deflected ninety degrees. Rays can
-be deflected multiple times. In the diagrams below, the dashes
-represent empty box locations and the letter `O' represents a ball.
-The entrance and exit points of each ray are marked with numbers as
-described under \"Detour\" above. Note that the entrance and exit
-points are always interchangeable. `*' denotes the path taken by the
-ray.
-
-Note carefully the relative positions of the ball and the ninety
-degree deflection it causes.
-
- 1
- - * - - - - - - - - - - - - - - - - - - - - - -
- - * - - - - - - - - - - - - - - - - - - - - - -
-1 * * - - - - - - - - - - - - - - - O - - - - O -
- - - O - - - - - - - O - - - - - - - * * * * - -
- - - - - - - - - - - - * * * * * 2 3 * * * - - * - -
- - - - - - - - - - - - * - - - - - - - O - * - -
- - - - - - - - - - - - * - - - - - - - - * * - -
- - - - - - - - - - - - * - - - - - - - - * - O -
- 2 3
-
-As mentioned above, a reflection occurs when a ray emerges from the same point
-it was sent in. This can happen in several ways:
-
-
- - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - O - - - - - O - O - - - - - - - - - - -
-R * * * * - - - - - - - * - - - - O - - - - - - -
- - - - - O - - - - - - * - - - - R - - - - - - - -
- - - - - - - - - - - - * - - - - - - - - - - - -
- - - - - - - - - - - - * - - - - - - - - - - - -
- - - - - - - - - R * * * * - - - - - - - - - - - -
- - - - - - - - - - - - - O - - - - - - - - - - -
-
-In the first example, the ray is deflected downwards by the upper
-ball, then left by the lower ball, and finally retraces its path to
-its point of origin. The second example is similar. The third
-example is a bit anomalous but can be rationalized by realizing the
-ray never gets a chance to get into the box. Alternatively, the ray
-can be thought of as being deflected downwards and immediately
-emerging from the box.
-
-A hit occurs when a ray runs straight into a ball:
-
- - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - O - - -
- - - - - - - - - - - - - O - - - H * * * * - - - -
- - - - - - - - - H * * * * O - - - - - - * - - - -
- - - - - - - - - - - - - O - - - - - - O - - - -
-H * * * O - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - -
-
-Be sure to compare the second example of a hit with the first example of
-a reflection.
-
-\(fn NUM)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (bookmark-bmenu-search bookmark-bmenu-list bookmark-load
-;;;;;; bookmark-save bookmark-write bookmark-delete bookmark-insert
-;;;;;; bookmark-rename bookmark-insert-location bookmark-relocate
-;;;;;; bookmark-jump-other-window bookmark-jump bookmark-set) "bookmark"
-;;;;;; "bookmark.el" (20707 18685 911514 0))
-;;; Generated autoloads from bookmark.el
- (define-key ctl-x-r-map "b" 'bookmark-jump)
- (define-key ctl-x-r-map "m" 'bookmark-set)
- (define-key ctl-x-r-map "l" 'bookmark-bmenu-list)
-
-(defvar bookmark-map (let ((map (make-sparse-keymap))) (define-key map "x" 'bookmark-set) (define-key map "m" 'bookmark-set) (define-key map "j" 'bookmark-jump) (define-key map "g" 'bookmark-jump) (define-key map "o" 'bookmark-jump-other-window) (define-key map "i" 'bookmark-insert) (define-key map "e" 'edit-bookmarks) (define-key map "f" 'bookmark-insert-location) (define-key map "r" 'bookmark-rename) (define-key map "d" 'bookmark-delete) (define-key map "l" 'bookmark-load) (define-key map "w" 'bookmark-write) (define-key map "s" 'bookmark-save) map) "\
-Keymap containing bindings to bookmark functions.
-It is not bound to any key by default: to bind it
-so that you have a bookmark prefix, just use `global-set-key' and bind a
-key of your choice to `bookmark-map'. All interactive bookmark
-functions have a binding in this keymap.")
- (fset 'bookmark-map bookmark-map)
-
-(autoload 'bookmark-set "bookmark" "\
-Set a bookmark named NAME at the current location.
-If name is nil, then prompt the user.
-
-With a prefix arg (non-nil NO-OVERWRITE), do not overwrite any
-existing bookmark that has the same name as NAME, but instead push the
-new bookmark onto the bookmark alist. The most recently set bookmark
-with name NAME is thus the one in effect at any given time, but the
-others are still there, should the user decide to delete the most
-recent one.
-
-To yank words from the text of the buffer and use them as part of the
-bookmark name, type C-w while setting a bookmark. Successive C-w's
-yank successive words.
-
-Typing C-u inserts (at the bookmark name prompt) the name of the last
-bookmark used in the document where the new bookmark is being set;
-this helps you use a single bookmark name to track progress through a
-large document. If there is no prior bookmark for this document, then
-C-u inserts an appropriate name based on the buffer or file.
-
-Use \\[bookmark-delete] to remove bookmarks (you give it a name and
-it removes only the first instance of a bookmark with that name from
-the list of bookmarks.)
-
-\(fn &optional NAME NO-OVERWRITE)" t nil)
-
-(autoload 'bookmark-jump "bookmark" "\
-Jump to bookmark BOOKMARK (a point in some file).
-You may have a problem using this function if the value of variable
-`bookmark-alist' is nil. If that happens, you need to load in some
-bookmarks. See help on function `bookmark-load' for more about
-this.
-
-If the file pointed to by BOOKMARK no longer exists, you will be asked
-if you wish to give the bookmark a new location, and `bookmark-jump'
-will then jump to the new location, as well as recording it in place
-of the old one in the permanent bookmark record.
-
-BOOKMARK is usually a bookmark name (a string). It can also be a
-bookmark record, but this is usually only done by programmatic callers.
-
-If DISPLAY-FUNC is non-nil, it is a function to invoke to display the
-bookmark. It defaults to `switch-to-buffer'. A typical value for
-DISPLAY-FUNC would be `switch-to-buffer-other-window'.
-
-\(fn BOOKMARK &optional DISPLAY-FUNC)" t nil)
-
-(autoload 'bookmark-jump-other-window "bookmark" "\
-Jump to BOOKMARK in another window. See `bookmark-jump' for more.
-
-\(fn BOOKMARK)" t nil)
-
-(autoload 'bookmark-relocate "bookmark" "\
-Relocate BOOKMARK-NAME to another file, reading file name with minibuffer.
-
-This makes an already existing bookmark point to that file, instead of
-the one it used to point at. Useful when a file has been renamed
-after a bookmark was set in it.
-
-\(fn BOOKMARK-NAME)" t nil)
-
-(autoload 'bookmark-insert-location "bookmark" "\
-Insert the name of the file associated with BOOKMARK-NAME.
-
-Optional second arg NO-HISTORY means don't record this in the
-minibuffer history list `bookmark-history'.
-
-\(fn BOOKMARK-NAME &optional NO-HISTORY)" t nil)
-
-(defalias 'bookmark-locate 'bookmark-insert-location)
-
-(autoload 'bookmark-rename "bookmark" "\
-Change the name of OLD-NAME bookmark to NEW-NAME name.
-If called from keyboard, prompt for OLD-NAME and NEW-NAME.
-If called from menubar, select OLD-NAME from a menu and prompt for NEW-NAME.
-
-If called from Lisp, prompt for NEW-NAME if only OLD-NAME was passed
-as an argument. If called with two strings, then no prompting is done.
-You must pass at least OLD-NAME when calling from Lisp.
-
-While you are entering the new name, consecutive C-w's insert
-consecutive words from the text of the buffer into the new bookmark
-name.
-
-\(fn OLD-NAME &optional NEW-NAME)" t nil)
-
-(autoload 'bookmark-insert "bookmark" "\
-Insert the text of the file pointed to by bookmark BOOKMARK-NAME.
-BOOKMARK-NAME is a bookmark name (a string), not a bookmark record.
-
-You may have a problem using this function if the value of variable
-`bookmark-alist' is nil. If that happens, you need to load in some
-bookmarks. See help on function `bookmark-load' for more about
-this.
-
-\(fn BOOKMARK-NAME)" t nil)
-
-(autoload 'bookmark-delete "bookmark" "\
-Delete BOOKMARK-NAME from the bookmark list.
-
-Removes only the first instance of a bookmark with that name. If
-there are one or more other bookmarks with the same name, they will
-not be deleted. Defaults to the \"current\" bookmark (that is, the
-one most recently used in this file, if any).
-Optional second arg BATCH means don't update the bookmark list buffer,
-probably because we were called from there.
-
-\(fn BOOKMARK-NAME &optional BATCH)" t nil)
-
-(autoload 'bookmark-write "bookmark" "\
-Write bookmarks to a file (reading the file name with the minibuffer).
-Don't use this in Lisp programs; use `bookmark-save' instead.
-
-\(fn)" t nil)
-
-(autoload 'bookmark-save "bookmark" "\
-Save currently defined bookmarks.
-Saves by default in the file defined by the variable
-`bookmark-default-file'. With a prefix arg, save it in file FILE
-\(second argument).
-
-If you are calling this from Lisp, the two arguments are PARG and
-FILE, and if you just want it to write to the default file, then
-pass no arguments. Or pass in nil and FILE, and it will save in FILE
-instead. If you pass in one argument, and it is non-nil, then the
-user will be interactively queried for a file to save in.
-
-When you want to load in the bookmarks from a file, use
-`bookmark-load', \\[bookmark-load]. That function will prompt you
-for a file, defaulting to the file defined by variable
-`bookmark-default-file'.
-
-\(fn &optional PARG FILE)" t nil)
-
-(autoload 'bookmark-load "bookmark" "\
-Load bookmarks from FILE (which must be in bookmark format).
-Appends loaded bookmarks to the front of the list of bookmarks. If
-optional second argument OVERWRITE is non-nil, existing bookmarks are
-destroyed. Optional third arg NO-MSG means don't display any messages
-while loading.
-
-If you load a file that doesn't contain a proper bookmark alist, you
-will corrupt Emacs's bookmark list. Generally, you should only load
-in files that were created with the bookmark functions in the first
-place. Your own personal bookmark file, `~/.emacs.bmk', is
-maintained automatically by Emacs; you shouldn't need to load it
-explicitly.
-
-If you load a file containing bookmarks with the same names as
-bookmarks already present in your Emacs, the new bookmarks will get
-unique numeric suffixes \"<2>\", \"<3>\", ... following the same
-method buffers use to resolve name collisions.
-
-\(fn FILE &optional OVERWRITE NO-MSG)" t nil)
-
-(autoload 'bookmark-bmenu-list "bookmark" "\
-Display a list of existing bookmarks.
-The list is displayed in a buffer named `*Bookmark List*'.
-The leftmost column displays a D if the bookmark is flagged for
-deletion, or > if it is flagged for displaying.
-
-\(fn)" t nil)
-
-(defalias 'list-bookmarks 'bookmark-bmenu-list)
-
-(defalias 'edit-bookmarks 'bookmark-bmenu-list)
-
-(autoload 'bookmark-bmenu-search "bookmark" "\
-Incremental search of bookmarks, hiding the non-matches as we go.
-
-\(fn)" t nil)
-
-(defvar menu-bar-bookmark-map (let ((map (make-sparse-keymap "Bookmark functions"))) (bindings--define-key map [load] '(menu-item "Load a Bookmark File..." bookmark-load :help "Load bookmarks from a bookmark file)")) (bindings--define-key map [write] '(menu-item "Save Bookmarks As..." bookmark-write :help "Write bookmarks to a file (reading the file name with the minibuffer)")) (bindings--define-key map [save] '(menu-item "Save Bookmarks" bookmark-save :help "Save currently defined bookmarks")) (bindings--define-key map [edit] '(menu-item "Edit Bookmark List" bookmark-bmenu-list :help "Display a list of existing bookmarks")) (bindings--define-key map [delete] '(menu-item "Delete Bookmark..." bookmark-delete :help "Delete a bookmark from the bookmark list")) (bindings--define-key map [rename] '(menu-item "Rename Bookmark..." bookmark-rename :help "Change the name of a bookmark")) (bindings--define-key map [locate] '(menu-item "Insert Location..." bookmark-locate :help "Insert the name of the file associated with a bookmark")) (bindings--define-key map [insert] '(menu-item "Insert Contents..." bookmark-insert :help "Insert the text of the file pointed to by a bookmark")) (bindings--define-key map [set] '(menu-item "Set Bookmark..." bookmark-set :help "Set a bookmark named inside a file.")) (bindings--define-key map [jump] '(menu-item "Jump to Bookmark..." bookmark-jump :help "Jump to a bookmark (a point in some file)")) map))
-
-(defalias 'menu-bar-bookmark-map menu-bar-bookmark-map)
-
-;;;***
-\f
-;;;### (autoloads (browse-url-elinks browse-url-kde browse-url-generic
-;;;;;; browse-url-mail browse-url-text-emacs browse-url-text-xterm
-;;;;;; browse-url-w3-gnudoit browse-url-w3 browse-url-cci browse-url-mosaic
-;;;;;; browse-url-gnome-moz browse-url-emacs browse-url-galeon browse-url-chromium
-;;;;;; browse-url-firefox browse-url-mozilla browse-url-netscape
-;;;;;; browse-url-xdg-open browse-url-at-mouse browse-url-at-point
-;;;;;; browse-url browse-url-of-region browse-url-of-dired-file
-;;;;;; browse-url-of-buffer browse-url-of-file browse-url-browser-function)
-;;;;;; "browse-url" "net/browse-url.el" (20707 18685 911514 0))
-;;; Generated autoloads from net/browse-url.el
-
-(defvar browse-url-browser-function 'browse-url-default-browser "\
-Function to display the current buffer in a WWW browser.
-This is used by the `browse-url-at-point', `browse-url-at-mouse', and
-`browse-url-of-file' commands.
-
-If the value is not a function it should be a list of pairs
-\(REGEXP . FUNCTION). In this case the function called will be the one
-associated with the first REGEXP which matches the current URL. The
-function is passed the URL and any other args of `browse-url'. The last
-regexp should probably be \".\" to specify a default browser.")
-
-(custom-autoload 'browse-url-browser-function "browse-url" t)
-
-(autoload 'browse-url-of-file "browse-url" "\
-Ask a WWW browser to display FILE.
-Display the current buffer's file if FILE is nil or if called
-interactively. Turn the filename into a URL with function
-`browse-url-file-url'. Pass the URL to a browser using the
-`browse-url' function then run `browse-url-of-file-hook'.
-
-\(fn &optional FILE)" t nil)
-
-(autoload 'browse-url-of-buffer "browse-url" "\
-Ask a WWW browser to display BUFFER.
-Display the current buffer if BUFFER is nil. Display only the
-currently visible part of BUFFER (from a temporary file) if buffer is
-narrowed.
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'browse-url-of-dired-file "browse-url" "\
-In Dired, ask a WWW browser to display the file named on this line.
-
-\(fn)" t nil)
-
-(autoload 'browse-url-of-region "browse-url" "\
-Ask a WWW browser to display the current region.
-
-\(fn MIN MAX)" t nil)
-
-(autoload 'browse-url "browse-url" "\
-Ask a WWW browser to load URL.
-Prompts for a URL, defaulting to the URL at or before point. Variable
-`browse-url-browser-function' says which browser to use.
-If the URL is a mailto: URL, consult `browse-url-mailto-function'
-first, if that exists.
-
-\(fn URL &rest ARGS)" t nil)
-
-(autoload 'browse-url-at-point "browse-url" "\
-Ask a WWW browser to load the URL at or before point.
-Doesn't let you edit the URL like `browse-url'. Variable
-`browse-url-browser-function' says which browser to use.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'browse-url-at-mouse "browse-url" "\
-Ask a WWW browser to load a URL clicked with the mouse.
-The URL is the one around or before the position of the mouse click
-but point is not changed. Doesn't let you edit the URL like
-`browse-url'. Variable `browse-url-browser-function' says which browser
-to use.
-
-\(fn EVENT)" t nil)
-
-(autoload 'browse-url-xdg-open "browse-url" "\
-Pass the specified URL to the \"xdg-open\" command.
-xdg-open is a desktop utility that calls your preferred web browser.
-The optional argument IGNORED is not used.
-
-\(fn URL &optional IGNORED)" t nil)
-
-(autoload 'browse-url-netscape "browse-url" "\
-Ask the Netscape WWW browser to load URL.
-Default to the URL around or before point. The strings in variable
-`browse-url-netscape-arguments' are also passed to Netscape.
-
-When called interactively, if variable `browse-url-new-window-flag' is
-non-nil, load the document in a new Netscape window, otherwise use a
-random existing one. A non-nil interactive prefix argument reverses
-the effect of `browse-url-new-window-flag'.
-
-If `browse-url-netscape-new-window-is-tab' is non-nil, then
-whenever a document would otherwise be loaded in a new window, it
-is loaded in a new tab in an existing window instead.
-
-When called non-interactively, optional second argument NEW-WINDOW is
-used instead of `browse-url-new-window-flag'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-mozilla "browse-url" "\
-Ask the Mozilla WWW browser to load URL.
-Default to the URL around or before point. The strings in variable
-`browse-url-mozilla-arguments' are also passed to Mozilla.
-
-When called interactively, if variable `browse-url-new-window-flag' is
-non-nil, load the document in a new Mozilla window, otherwise use a
-random existing one. A non-nil interactive prefix argument reverses
-the effect of `browse-url-new-window-flag'.
-
-If `browse-url-mozilla-new-window-is-tab' is non-nil, then whenever a
-document would otherwise be loaded in a new window, it is loaded in a
-new tab in an existing window instead.
-
-When called non-interactively, optional second argument NEW-WINDOW is
-used instead of `browse-url-new-window-flag'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-firefox "browse-url" "\
-Ask the Firefox WWW browser to load URL.
-Default to the URL around or before point. The strings in
-variable `browse-url-firefox-arguments' are also passed to
-Firefox.
-
-When called interactively, if variable
-`browse-url-new-window-flag' is non-nil, load the document in a
-new Firefox window, otherwise use a random existing one. A
-non-nil interactive prefix argument reverses the effect of
-`browse-url-new-window-flag'.
-
-If `browse-url-firefox-new-window-is-tab' is non-nil, then
-whenever a document would otherwise be loaded in a new window, it
-is loaded in a new tab in an existing window instead.
-
-When called non-interactively, optional second argument
-NEW-WINDOW is used instead of `browse-url-new-window-flag'.
-
-On MS-Windows systems the optional `new-window' parameter is
-ignored. Firefox for Windows does not support the \"-remote\"
-command line parameter. Therefore, the
-`browse-url-new-window-flag' and `browse-url-firefox-new-window-is-tab'
-are ignored as well. Firefox on Windows will always open the requested
-URL in a new window.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-chromium "browse-url" "\
-Ask the Chromium WWW browser to load URL.
-Default to the URL around or before point. The strings in
-variable `browse-url-chromium-arguments' are also passed to
-Chromium.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-galeon "browse-url" "\
-Ask the Galeon WWW browser to load URL.
-Default to the URL around or before point. The strings in variable
-`browse-url-galeon-arguments' are also passed to Galeon.
-
-When called interactively, if variable `browse-url-new-window-flag' is
-non-nil, load the document in a new Galeon window, otherwise use a
-random existing one. A non-nil interactive prefix argument reverses
-the effect of `browse-url-new-window-flag'.
-
-If `browse-url-galeon-new-window-is-tab' is non-nil, then whenever a
-document would otherwise be loaded in a new window, it is loaded in a
-new tab in an existing window instead.
-
-When called non-interactively, optional second argument NEW-WINDOW is
-used instead of `browse-url-new-window-flag'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-emacs "browse-url" "\
-Ask Emacs to load URL into a buffer and show it in another window.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-gnome-moz "browse-url" "\
-Ask Mozilla/Netscape to load URL via the GNOME program `gnome-moz-remote'.
-Default to the URL around or before point. The strings in variable
-`browse-url-gnome-moz-arguments' are also passed.
-
-When called interactively, if variable `browse-url-new-window-flag' is
-non-nil, load the document in a new browser window, otherwise use an
-existing one. A non-nil interactive prefix argument reverses the
-effect of `browse-url-new-window-flag'.
-
-When called non-interactively, optional second argument NEW-WINDOW is
-used instead of `browse-url-new-window-flag'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-mosaic "browse-url" "\
-Ask the XMosaic WWW browser to load URL.
-
-Default to the URL around or before point. The strings in variable
-`browse-url-mosaic-arguments' are also passed to Mosaic and the
-program is invoked according to the variable
-`browse-url-mosaic-program'.
-
-When called interactively, if variable `browse-url-new-window-flag' is
-non-nil, load the document in a new Mosaic window, otherwise use a
-random existing one. A non-nil interactive prefix argument reverses
-the effect of `browse-url-new-window-flag'.
-
-When called non-interactively, optional second argument NEW-WINDOW is
-used instead of `browse-url-new-window-flag'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-cci "browse-url" "\
-Ask the XMosaic WWW browser to load URL.
-Default to the URL around or before point.
-
-This function only works for XMosaic version 2.5 or later. You must
-select `CCI' from XMosaic's File menu, set the CCI Port Address to the
-value of variable `browse-url-CCI-port', and enable `Accept requests'.
-
-When called interactively, if variable `browse-url-new-window-flag' is
-non-nil, load the document in a new browser window, otherwise use a
-random existing one. A non-nil interactive prefix argument reverses
-the effect of `browse-url-new-window-flag'.
-
-When called non-interactively, optional second argument NEW-WINDOW is
-used instead of `browse-url-new-window-flag'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-w3 "browse-url" "\
-Ask the w3 WWW browser to load URL.
-Default to the URL around or before point.
-
-When called interactively, if variable `browse-url-new-window-flag' is
-non-nil, load the document in a new window. A non-nil interactive
-prefix argument reverses the effect of `browse-url-new-window-flag'.
-
-When called non-interactively, optional second argument NEW-WINDOW is
-used instead of `browse-url-new-window-flag'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-w3-gnudoit "browse-url" "\
-Ask another Emacs running gnuserv to load the URL using the W3 browser.
-The `browse-url-gnudoit-program' program is used with options given by
-`browse-url-gnudoit-args'. Default to the URL around or before point.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-text-xterm "browse-url" "\
-Ask a text browser to load URL.
-URL defaults to the URL around or before point.
-This runs the text browser specified by `browse-url-text-browser'.
-in an Xterm window using the Xterm program named by `browse-url-xterm-program'
-with possible additional arguments `browse-url-xterm-args'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-text-emacs "browse-url" "\
-Ask a text browser to load URL.
-URL defaults to the URL around or before point.
-This runs the text browser specified by `browse-url-text-browser'.
-With a prefix argument, it runs a new browser process in a new buffer.
-
-When called interactively, if variable `browse-url-new-window-flag' is
-non-nil, load the document in a new browser process in a new term window,
-otherwise use any existing one. A non-nil interactive prefix argument
-reverses the effect of `browse-url-new-window-flag'.
-
-When called non-interactively, optional second argument NEW-WINDOW is
-used instead of `browse-url-new-window-flag'.
-
-\(fn URL &optional NEW-BUFFER)" t nil)
-
-(autoload 'browse-url-mail "browse-url" "\
-Open a new mail message buffer within Emacs for the RFC 2368 URL.
-Default to using the mailto: URL around or before point as the
-recipient's address. Supplying a non-nil interactive prefix argument
-will cause the mail to be composed in another window rather than the
-current one.
-
-When called interactively, if variable `browse-url-new-window-flag' is
-non-nil use `compose-mail-other-window', otherwise `compose-mail'. A
-non-nil interactive prefix argument reverses the effect of
-`browse-url-new-window-flag'.
-
-When called non-interactively, optional second argument NEW-WINDOW is
-used instead of `browse-url-new-window-flag'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-generic "browse-url" "\
-Ask the WWW browser defined by `browse-url-generic-program' to load URL.
-Default to the URL around or before point. A fresh copy of the
-browser is started up in a new process with possible additional arguments
-`browse-url-generic-args'. This is appropriate for browsers which
-don't offer a form of remote control.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-kde "browse-url" "\
-Ask the KDE WWW browser to load URL.
-Default to the URL around or before point.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-(autoload 'browse-url-elinks "browse-url" "\
-Ask the Elinks WWW browser to load URL.
-Default to the URL around the point.
-
-The document is loaded in a new tab of a running Elinks or, if
-none yet running, a newly started instance.
-
-The Elinks command will be prepended by the program+arguments
-from `browse-url-elinks-wrapper'.
-
-\(fn URL &optional NEW-WINDOW)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next)
-;;;;;; "bs" "bs.el" (20707 18685 911514 0))
-;;; Generated autoloads from bs.el
-
-(autoload 'bs-cycle-next "bs" "\
-Select next buffer defined by buffer cycling.
-The buffers taking part in buffer cycling are defined
-by buffer configuration `bs-cycle-configuration-name'.
-
-\(fn)" t nil)
-
-(autoload 'bs-cycle-previous "bs" "\
-Select previous buffer defined by buffer cycling.
-The buffers taking part in buffer cycling are defined
-by buffer configuration `bs-cycle-configuration-name'.
-
-\(fn)" t nil)
-
-(autoload 'bs-customize "bs" "\
-Customization of group bs for Buffer Selection Menu.
-
-\(fn)" t nil)
-
-(autoload 'bs-show "bs" "\
-Make a menu of buffers so you can manipulate buffers or the buffer list.
-\\<bs-mode-map>
-There are many key commands similar to `Buffer-menu-mode' for
-manipulating the buffer list and the buffers themselves.
-User can move with [up] or [down], select a buffer
-by \\[bs-select] or [SPC]
-
-Type \\[bs-kill] to leave Buffer Selection Menu without a selection.
-Type \\[bs-help] after invocation to get help on commands available.
-With prefix argument ARG show a different buffer list. Function
-`bs--configuration-name-for-prefix-arg' determine accordingly
-name of buffer configuration.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (bubbles) "bubbles" "play/bubbles.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from play/bubbles.el
-
-(autoload 'bubbles "bubbles" "\
-Play Bubbles game.
-\\<bubbles-mode-map>
-The goal is to remove all bubbles with as few moves as possible.
-\\[bubbles-plop] on a bubble removes that bubble and all
-connected bubbles of the same color. Unsupported bubbles fall
-down, and columns that do not contain any bubbles suck the
-columns on its right towards the left.
-
-\\[bubbles-set-game-easy] sets the difficulty to easy.
-\\[bubbles-set-game-medium] sets the difficulty to medium.
-\\[bubbles-set-game-difficult] sets the difficulty to difficult.
-\\[bubbles-set-game-hard] sets the difficulty to hard.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (bug-reference-prog-mode bug-reference-mode) "bug-reference"
-;;;;;; "progmodes/bug-reference.el" (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/bug-reference.el
-
-(put 'bug-reference-url-format 'safe-local-variable (lambda (s) (or (stringp s) (and (symbolp s) (get s 'bug-reference-url-format)))))
-
-(autoload 'bug-reference-mode "bug-reference" "\
-Toggle hyperlinking bug references in the buffer (Bug Reference mode).
-With a prefix argument ARG, enable Bug Reference mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'bug-reference-prog-mode "bug-reference" "\
-Like `bug-reference-mode', but only buttonize in comments and strings.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (batch-byte-recompile-directory batch-byte-compile
-;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile
-;;;;;; compile-defun byte-compile-file byte-recompile-directory
-;;;;;; byte-force-recompile byte-compile-enable-warning byte-compile-disable-warning)
-;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/bytecomp.el
-(put 'byte-compile-dynamic 'safe-local-variable 'booleanp)
-(put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp)
-(put 'byte-compile-dynamic-docstrings 'safe-local-variable 'booleanp)
-
-(put 'byte-compile-warnings 'safe-local-variable (lambda (v) (or (symbolp v) (null (delq nil (mapcar (lambda (x) (not (symbolp x))) v))))))
-
-(autoload 'byte-compile-disable-warning "bytecomp" "\
-Change `byte-compile-warnings' to disable WARNING.
-If `byte-compile-warnings' is t, set it to `(not WARNING)'.
-Otherwise, if the first element is `not', add WARNING, else remove it.
-Normally you should let-bind `byte-compile-warnings' before calling this,
-else the global value will be modified.
-
-\(fn WARNING)" nil nil)
-
-(autoload 'byte-compile-enable-warning "bytecomp" "\
-Change `byte-compile-warnings' to enable WARNING.
-If `byte-compile-warnings' is `t', do nothing. Otherwise, if the
-first element is `not', remove WARNING, else add it.
-Normally you should let-bind `byte-compile-warnings' before calling this,
-else the global value will be modified.
-
-\(fn WARNING)" nil nil)
-
-(autoload 'byte-force-recompile "bytecomp" "\
-Recompile every `.el' file in DIRECTORY that already has a `.elc' file.
-Files in subdirectories of DIRECTORY are processed also.
-
-\(fn DIRECTORY)" t nil)
-
-(autoload 'byte-recompile-directory "bytecomp" "\
-Recompile every `.el' file in DIRECTORY that needs recompilation.
-This happens when a `.elc' file exists but is older than the `.el' file.
-Files in subdirectories of DIRECTORY are processed also.
-
-If the `.elc' file does not exist, normally this function *does not*
-compile the corresponding `.el' file. However, if the prefix argument
-ARG is 0, that means do compile all those files. A nonzero
-ARG means ask the user, for each such `.el' file, whether to
-compile it. A nonzero ARG also means ask about each subdirectory
-before scanning it.
-
-If the third argument FORCE is non-nil, recompile every `.el' file
-that already has a `.elc' file.
-
-\(fn DIRECTORY &optional ARG FORCE)" t nil)
-(put 'no-byte-compile 'safe-local-variable 'booleanp)
-
-(autoload 'byte-compile-file "bytecomp" "\
-Compile a file of Lisp code named FILENAME into a file of byte code.
-The output file's name is generated by passing FILENAME to the
-function `byte-compile-dest-file' (which see).
-With prefix arg (noninteractively: 2nd arg), LOAD the file after compiling.
-The value is non-nil if there were no errors, nil if errors.
-
-\(fn FILENAME &optional LOAD)" t nil)
-
-(autoload 'compile-defun "bytecomp" "\
-Compile and evaluate the current top-level form.
-Print the result in the echo area.
-With argument ARG, insert value in current buffer after the form.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'byte-compile "bytecomp" "\
-If FORM is a symbol, byte-compile its function definition.
-If FORM is a lambda or a macro, byte-compile it as a function.
-
-\(fn FORM)" nil nil)
-
-(autoload 'display-call-tree "bytecomp" "\
-Display a call graph of a specified file.
-This lists which functions have been called, what functions called
-them, and what functions they call. The list includes all functions
-whose definitions have been compiled in this Emacs session, as well as
-all functions called by those functions.
-
-The call graph does not include macros, inline functions, or
-primitives that the byte-code interpreter knows about directly (eq,
-cons, etc.).
-
-The call tree also lists those functions which are not known to be called
-\(that is, to which no calls have been compiled), and which cannot be
-invoked interactively.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'batch-byte-compile-if-not-done "bytecomp" "\
-Like `byte-compile-file' but doesn't recompile if already up to date.
-Use this from the command line, with `-batch';
-it won't work in an interactive Emacs.
-
-\(fn)" nil nil)
-
-(autoload 'batch-byte-compile "bytecomp" "\
-Run `byte-compile-file' on the files remaining on the command line.
-Use this from the command line, with `-batch';
-it won't work in an interactive Emacs.
-Each file is processed even if an error occurred previously.
-For example, invoke \"emacs -batch -f batch-byte-compile $emacs/ ~/*.el\".
-If NOFORCE is non-nil, don't recompile a file that seems to be
-already up-to-date.
-
-\(fn &optional NOFORCE)" nil nil)
-
-(autoload 'batch-byte-recompile-directory "bytecomp" "\
-Run `byte-recompile-directory' on the dirs remaining on the command line.
-Must be used only with `-batch', and kills Emacs on completion.
-For example, invoke `emacs -batch -f batch-byte-recompile-directory .'.
-
-Optional argument ARG is passed as second argument ARG to
-`byte-recompile-directory'; see there for its possible values
-and corresponding effects.
-
-\(fn &optional ARG)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from calendar/cal-china.el
-
-(put 'calendar-chinese-time-zone 'risky-local-variable t)
-
-(put 'chinese-calendar-time-zone 'risky-local-variable t)
-
-;;;***
-\f
-;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from calendar/cal-dst.el
-
-(put 'calendar-daylight-savings-starts 'risky-local-variable t)
-
-(put 'calendar-daylight-savings-ends 'risky-local-variable t)
-
-(put 'calendar-current-time-zone-cache 'risky-local-variable t)
-
-;;;***
-\f
-;;;### (autoloads (calendar-hebrew-list-yahrzeits) "cal-hebrew" "calendar/cal-hebrew.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from calendar/cal-hebrew.el
-
-(autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\
-List Yahrzeit dates for *Gregorian* DEATH-DATE from START-YEAR to END-YEAR.
-When called interactively from the calendar window, the date of death is taken
-from the cursor position.
-
-\(fn DEATH-DATE START-YEAR END-YEAR)" t nil)
-
-(define-obsolete-function-alias 'list-yahrzeit-dates 'calendar-hebrew-list-yahrzeits "23.1")
-
-;;;***
-\f
-;;;### (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" "calc/calc.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from calc/calc.el
- (define-key ctl-x-map "*" 'calc-dispatch)
-
-(autoload 'calc-dispatch "calc" "\
-Invoke the GNU Emacs Calculator. See `calc-dispatch-help' for details.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'calc "calc" "\
-The Emacs Calculator. Full documentation is listed under \"calc-mode\".
-
-\(fn &optional ARG FULL-DISPLAY INTERACTIVE)" t nil)
-
-(autoload 'full-calc "calc" "\
-Invoke the Calculator and give it a full-sized window.
-
-\(fn &optional INTERACTIVE)" t nil)
-
-(autoload 'quick-calc "calc" "\
-Do a quick calculation in the minibuffer without invoking full Calculator.
-
-\(fn)" t nil)
-
-(autoload 'calc-eval "calc" "\
-Do a quick calculation and return the result as a string.
-Return value will either be the formatted result in string form,
-or a list containing a character position and an error message in string form.
-
-\(fn STR &optional SEPARATOR &rest ARGS)" nil nil)
-
-(autoload 'calc-keypad "calc" "\
-Invoke the Calculator in \"visual keypad\" mode.
-This is most useful in the X window system.
-In this mode, click on the Calc \"buttons\" using the left mouse button.
-Or, position the cursor manually and do M-x calc-keypad-press.
-
-\(fn &optional INTERACTIVE)" t nil)
-
-(autoload 'full-calc-keypad "calc" "\
-Invoke the Calculator in full-screen \"visual keypad\" mode.
-See calc-keypad for details.
-
-\(fn &optional INTERACTIVE)" t nil)
-
-(autoload 'calc-grab-region "calc" "\
-Parse the region as a vector of numbers and push it on the Calculator stack.
-
-\(fn TOP BOT ARG)" t nil)
-
-(autoload 'calc-grab-rectangle "calc" "\
-Parse a rectangle as a matrix of numbers and push it on the Calculator stack.
-
-\(fn TOP BOT ARG)" t nil)
-
-(autoload 'calc-embedded "calc" "\
-Start Calc Embedded mode on the formula surrounding point.
-
-\(fn ARG &optional END OBEG OEND)" t nil)
-
-(autoload 'calc-embedded-activate "calc" "\
-Scan the current editing buffer for all embedded := and => formulas.
-Also looks for the equivalent TeX words, \\gets and \\evalto.
-
-\(fn &optional ARG CBUF)" t nil)
-
-(autoload 'defmath "calc" "\
-Define Calc function.
-
-Like `defun' except that code in the body of the definition can
-make use of the full range of Calc data types and the usual
-arithmetic operations are converted to their Calc equivalents.
-
-The prefix `calcFunc-' is added to the specified name to get the
-actual Lisp function name.
-
-See Info node `(calc)Defining Functions'.
-
-\(fn FUNC ARGS &rest BODY)" nil t)
-
-(put 'defmath 'doc-string-elt '3)
-
-;;;***
-\f
-;;;### (autoloads (calc-undo) "calc-undo" "calc/calc-undo.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from calc/calc-undo.el
-
-(autoload 'calc-undo "calc-undo" "\
-
-
-\(fn N)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calculator) "calculator" "calculator.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from calculator.el
-
-(autoload 'calculator "calculator" "\
-Run the Emacs calculator.
-See the documentation for `calculator-mode' for more information.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from calendar/calendar.el
-
-(autoload 'calendar "calendar" "\
-Display a three-month Gregorian calendar.
-The three months appear side by side, with the current month in
-the middle surrounded by the previous and next months. The
-cursor is put on today's date. If optional prefix argument ARG
-is non-nil, prompts for the central month and year.
-
-Once in the calendar window, future or past months can be moved
-into view. Arbitrary months can be displayed, or the calendar
-can be scrolled forward or backward. The cursor can be moved
-forward or backward by one day, one week, one month, or one year.
-All of these commands take prefix arguments which, when negative,
-cause movement in the opposite direction. For convenience, the
-digit keys and the minus sign are automatically prefixes. Use
-\\[describe-mode] for details of the key bindings in the calendar
-window.
-
-Displays the calendar in a separate window, or optionally in a
-separate frame, depending on the value of `calendar-setup'.
-
-If `calendar-view-diary-initially-flag' is non-nil, also displays the
-diary entries for the current date (or however many days
-`diary-number-of-entries' specifies). This variable can be
-overridden by `calendar-setup'. As well as being displayed,
-diary entries can also be marked on the calendar (see
-`calendar-mark-diary-entries-flag').
-
-Runs the following hooks:
-
-`calendar-load-hook' - after loading calendar.el
-`calendar-today-visible-hook', `calendar-today-invisible-hook' - after
- generating a calendar, if today's date is visible or not, respectively
-`calendar-initial-window-hook' - after first creating a calendar
-
-This function is suitable for execution in an init file.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (canlock-verify canlock-insert-header) "canlock"
-;;;;;; "gnus/canlock.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/canlock.el
-
-(autoload 'canlock-insert-header "canlock" "\
-Insert a Cancel-Key and/or a Cancel-Lock header if possible.
-
-\(fn &optional ID-FOR-KEY ID-FOR-LOCK PASSWORD)" nil nil)
-
-(autoload 'canlock-verify "canlock" "\
-Verify Cancel-Lock or Cancel-Key in BUFFER.
-If BUFFER is nil, the current buffer is assumed. Signal an error if
-it fails.
-
-\(fn &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (capitalized-words-mode) "cap-words" "progmodes/cap-words.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/cap-words.el
-
-(autoload 'capitalized-words-mode "cap-words" "\
-Toggle Capitalized Words mode.
-With a prefix argument ARG, enable Capitalized Words mode if ARG
-is positive, and disable it otherwise. If called from Lisp,
-enable the mode if ARG is omitted or nil.
-
-Capitalized Words mode is a buffer-local minor mode. When
-enabled, a word boundary occurs immediately before an uppercase
-letter in a symbol. This is in addition to all the normal
-boundaries given by the syntax and category tables. There is no
-restriction to ASCII.
-
-E.g. the beginning of words in the following identifier are as marked:
-
- capitalizedWorDD
- ^ ^ ^^
-
-Note that these word boundaries only apply for word motion and
-marking commands such as \\[forward-word]. This mode does not affect word
-boundaries found by regexp matching (`\\>', `\\w' &c).
-
-This style of identifiers is common in environments like Java ones,
-where underscores aren't trendy enough. Capitalization rules are
-sometimes part of the language, e.g. Haskell, which may thus encourage
-such a style. It is appropriate to add `capitalized-words-mode' to
-the mode hook for programming language modes in which you encounter
-variables like this, e.g. `java-mode-hook'. It's unlikely to cause
-trouble if such identifiers aren't used.
-
-See also `glasses-mode' and `studlify-word'.
-Obsoletes `c-forward-into-nomenclature'.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (20707
-;;;;;; 18685 911514 0))
-;;; 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"
-;;;;;; (20750 47885 906996 0))
-;;; Generated autoloads from progmodes/cc-engine.el
-
-(autoload 'c-guess-basic-syntax "cc-engine" "\
-Return the syntactic context of the current line.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (c-guess-install c-guess-region-no-install c-guess-region
-;;;;;; c-guess-buffer-no-install c-guess-buffer c-guess-no-install
-;;;;;; c-guess) "cc-guess" "progmodes/cc-guess.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from progmodes/cc-guess.el
-
-(defvar c-guess-guessed-offsets-alist nil "\
-Currently guessed offsets-alist.")
-
-(defvar c-guess-guessed-basic-offset nil "\
-Currently guessed basic-offset.")
-
-(autoload 'c-guess "cc-guess" "\
-Guess the style in the region up to `c-guess-region-max', and install it.
-
-The style is given a name based on the file's absolute file name.
-
-If given a prefix argument (or if the optional argument ACCUMULATE is
-non-nil) then the previous guess is extended, otherwise a new guess is
-made from scratch.
-
-\(fn &optional ACCUMULATE)" t nil)
-
-(autoload 'c-guess-no-install "cc-guess" "\
-Guess the style in the region up to `c-guess-region-max'; don't install it.
-
-If given a prefix argument (or if the optional argument ACCUMULATE is
-non-nil) then the previous guess is extended, otherwise a new guess is
-made from scratch.
-
-\(fn &optional ACCUMULATE)" t nil)
-
-(autoload 'c-guess-buffer "cc-guess" "\
-Guess the style on the whole current buffer, and install it.
-
-The style is given a name based on the file's absolute file name.
-
-If given a prefix argument (or if the optional argument ACCUMULATE is
-non-nil) then the previous guess is extended, otherwise a new guess is
-made from scratch.
-
-\(fn &optional ACCUMULATE)" t nil)
-
-(autoload 'c-guess-buffer-no-install "cc-guess" "\
-Guess the style on the whole current buffer; don't install it.
-
-If given a prefix argument (or if the optional argument ACCUMULATE is
-non-nil) then the previous guess is extended, otherwise a new guess is
-made from scratch.
-
-\(fn &optional ACCUMULATE)" t nil)
-
-(autoload 'c-guess-region "cc-guess" "\
-Guess the style on the region and install it.
-
-The style is given a name based on the file's absolute file name.
-
-If given a prefix argument (or if the optional argument ACCUMULATE is
-non-nil) then the previous guess is extended, otherwise a new guess is
-made from scratch.
-
-\(fn START END &optional ACCUMULATE)" t nil)
-
-(autoload 'c-guess-region-no-install "cc-guess" "\
-Guess the style on the region; don't install it.
-
-Every line of code in the region is examined and values for the following two
-variables are guessed:
-
-* `c-basic-offset', and
-* the indentation values of the various syntactic symbols in
- `c-offsets-alist'.
-
-The guessed values are put into `c-guess-guessed-basic-offset' and
-`c-guess-guessed-offsets-alist'.
-
-Frequencies of use are taken into account when guessing, so minor
-inconsistencies in the indentation style shouldn't produce wrong guesses.
-
-If given a prefix argument (or if the optional argument ACCUMULATE is
-non-nil) then the previous examination is extended, otherwise a new
-guess is made from scratch.
-
-Note that the larger the region to guess in, the slower the guessing.
-So you can limit the region with `c-guess-region-max'.
-
-\(fn START END &optional ACCUMULATE)" t nil)
-
-(autoload 'c-guess-install "cc-guess" "\
-Install the latest guessed style into the current buffer.
-\(This guessed style is a combination of `c-guess-guessed-basic-offset',
-`c-guess-guessed-offsets-alist' and `c-offsets-alist'.)
-
-The style is entered into CC Mode's style system by
-`c-add-style'. Its name is either STYLE-NAME, or a name based on
-the absolute file name of the file if STYLE-NAME is nil.
-
-\(fn &optional STYLE-NAME)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (awk-mode pike-mode idl-mode java-mode objc-mode
-;;;;;; c++-mode c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/cc-mode.el
-
-(autoload 'c-initialize-cc-mode "cc-mode" "\
-Initialize CC Mode for use in the current buffer.
-If the optional NEW-STYLE-INIT is nil or left out then all necessary
-initialization to run CC Mode for the C language is done. Otherwise
-only some basic setup is done, and a call to `c-init-language-vars' or
-`c-init-language-vars-for' is necessary too (which gives more
-control). See \"cc-mode.el\" for more info.
-
-\(fn &optional NEW-STYLE-INIT)" nil nil)
-
-(defvar c-mode-syntax-table nil "\
-Syntax table used in c-mode buffers.")
- (add-to-list 'auto-mode-alist '("\\.\\(cc\\|hh\\)\\'" . c++-mode))
- (add-to-list 'auto-mode-alist '("\\.[ch]\\(pp\\|xx\\|\\+\\+\\)\\'" . c++-mode))
- (add-to-list 'auto-mode-alist '("\\.\\(CC?\\|HH?\\)\\'" . c++-mode))
- (add-to-list 'auto-mode-alist '("\\.[ch]\\'" . c-mode))
- (add-to-list 'auto-mode-alist '("\\.y\\(acc\\)?\\'" . c-mode))
- (add-to-list 'auto-mode-alist '("\\.lex\\'" . c-mode))
- (add-to-list 'auto-mode-alist '("\\.i\\'" . c-mode))
- (add-to-list 'auto-mode-alist '("\\.ii\\'" . c++-mode))
-
-(autoload 'c-mode "cc-mode" "\
-Major mode for editing K&R and ANSI C code.
-To submit a problem report, enter `\\[c-submit-bug-report]' from a
-c-mode buffer. This automatically sets up a mail buffer with version
-information already added. You just need to add a description of the
-problem, including a reproducible test case, and send the message.
-
-To see what version of CC Mode you are running, enter `\\[c-version]'.
-
-The hook `c-mode-common-hook' is run with no args at mode
-initialization, then `c-mode-hook'.
-
-Key bindings:
-\\{c-mode-map}
-
-\(fn)" t nil)
-
-(defvar c++-mode-syntax-table nil "\
-Syntax table used in c++-mode buffers.")
-
-(autoload 'c++-mode "cc-mode" "\
-Major mode for editing C++ code.
-To submit a problem report, enter `\\[c-submit-bug-report]' from a
-c++-mode buffer. This automatically sets up a mail buffer with
-version information already added. You just need to add a description
-of the problem, including a reproducible test case, and send the
-message.
-
-To see what version of CC Mode you are running, enter `\\[c-version]'.
-
-The hook `c-mode-common-hook' is run with no args at mode
-initialization, then `c++-mode-hook'.
-
-Key bindings:
-\\{c++-mode-map}
-
-\(fn)" t nil)
-
-(defvar objc-mode-syntax-table nil "\
-Syntax table used in objc-mode buffers.")
- (add-to-list 'auto-mode-alist '("\\.m\\'" . objc-mode))
-
-(autoload 'objc-mode "cc-mode" "\
-Major mode for editing Objective C code.
-To submit a problem report, enter `\\[c-submit-bug-report]' from an
-objc-mode buffer. This automatically sets up a mail buffer with
-version information already added. You just need to add a description
-of the problem, including a reproducible test case, and send the
-message.
-
-To see what version of CC Mode you are running, enter `\\[c-version]'.
-
-The hook `c-mode-common-hook' is run with no args at mode
-initialization, then `objc-mode-hook'.
-
-Key bindings:
-\\{objc-mode-map}
-
-\(fn)" t nil)
-
-(defvar java-mode-syntax-table nil "\
-Syntax table used in java-mode buffers.")
- (add-to-list 'auto-mode-alist '("\\.java\\'" . java-mode))
-
-(autoload 'java-mode "cc-mode" "\
-Major mode for editing Java code.
-To submit a problem report, enter `\\[c-submit-bug-report]' from a
-java-mode buffer. This automatically sets up a mail buffer with
-version information already added. You just need to add a description
-of the problem, including a reproducible test case, and send the
-message.
-
-To see what version of CC Mode you are running, enter `\\[c-version]'.
-
-The hook `c-mode-common-hook' is run with no args at mode
-initialization, then `java-mode-hook'.
-
-Key bindings:
-\\{java-mode-map}
-
-\(fn)" t nil)
-
-(defvar idl-mode-syntax-table nil "\
-Syntax table used in idl-mode buffers.")
- (add-to-list 'auto-mode-alist '("\\.idl\\'" . idl-mode))
-
-(autoload 'idl-mode "cc-mode" "\
-Major mode for editing CORBA's IDL, PSDL and CIDL code.
-To submit a problem report, enter `\\[c-submit-bug-report]' from an
-idl-mode buffer. This automatically sets up a mail buffer with
-version information already added. You just need to add a description
-of the problem, including a reproducible test case, and send the
-message.
-
-To see what version of CC Mode you are running, enter `\\[c-version]'.
-
-The hook `c-mode-common-hook' is run with no args at mode
-initialization, then `idl-mode-hook'.
-
-Key bindings:
-\\{idl-mode-map}
-
-\(fn)" t nil)
-
-(defvar pike-mode-syntax-table nil "\
-Syntax table used in pike-mode buffers.")
- (add-to-list 'auto-mode-alist '("\\.\\(u?lpc\\|pike\\|pmod\\(\\.in\\)?\\)\\'" . pike-mode))
- (add-to-list 'interpreter-mode-alist '("pike" . pike-mode))
-
-(autoload 'pike-mode "cc-mode" "\
-Major mode for editing Pike code.
-To submit a problem report, enter `\\[c-submit-bug-report]' from a
-pike-mode buffer. This automatically sets up a mail buffer with
-version information already added. You just need to add a description
-of the problem, including a reproducible test case, and send the
-message.
-
-To see what version of CC Mode you are running, enter `\\[c-version]'.
-
-The hook `c-mode-common-hook' is run with no args at mode
-initialization, then `pike-mode-hook'.
-
-Key bindings:
-\\{pike-mode-map}
-
-\(fn)" t nil)
- (add-to-list 'auto-mode-alist '("\\.awk\\'" . awk-mode))
- (add-to-list 'interpreter-mode-alist '("awk" . awk-mode))
- (add-to-list 'interpreter-mode-alist '("mawk" . awk-mode))
- (add-to-list 'interpreter-mode-alist '("nawk" . awk-mode))
- (add-to-list 'interpreter-mode-alist '("gawk" . awk-mode))
- (autoload 'awk-mode "cc-mode" "Major mode for editing AWK code." t)
-
-(autoload 'awk-mode "cc-mode" "\
-Major mode for editing AWK code.
-To submit a problem report, enter `\\[c-submit-bug-report]' from an
-awk-mode buffer. This automatically sets up a mail buffer with version
-information already added. You just need to add a description of the
-problem, including a reproducible test case, and send the message.
-
-To see what version of CC Mode you are running, enter `\\[c-version]'.
-
-The hook `c-mode-common-hook' is run with no args at mode
-initialization, then `awk-mode-hook'.
-
-Key bindings:
-\\{awk-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles"
-;;;;;; "progmodes/cc-styles.el" (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/cc-styles.el
-
-(autoload 'c-set-style "cc-styles" "\
-Set the current buffer to use the style STYLENAME.
-STYLENAME, a string, must be an existing CC Mode style - These are contained
-in the variable `c-style-alist'.
-
-The variable `c-indentation-style' will get set to STYLENAME.
-
-\"Setting the style\" is done by setting CC Mode's \"style variables\" to the
-values indicated by the pertinent entry in `c-style-alist'. Other variables
-might get set too.
-
-If DONT-OVERRIDE is neither nil nor t, style variables whose default values
-have been set (more precisely, whose default values are not the symbol
-`set-from-style') will not be changed. This avoids overriding global settings
-done in your init file. It is useful to call c-set-style from a mode hook
-in this way.
-
-If DONT-OVERRIDE is t, style variables that already have values (i.e., whose
-values are not the symbol `set-from-style') will not be overridden. CC Mode
-calls c-set-style internally in this way whilst initializing a buffer; if
-cc-set-style is called like this from anywhere else, it will usually behave as
-a null operation.
-
-\(fn STYLENAME &optional DONT-OVERRIDE)" t nil)
-
-(autoload 'c-add-style "cc-styles" "\
-Adds a style to `c-style-alist', or updates an existing one.
-STYLE is a string identifying the style to add or update. DESCRIPTION
-is an association list describing the style and must be of the form:
-
- ([BASESTYLE] (VARIABLE . VALUE) [(VARIABLE . VALUE) ...])
-
-See the variable `c-style-alist' for the semantics of BASESTYLE,
-VARIABLE and VALUE. This function also sets the current style to
-STYLE using `c-set-style' if the optional SET-P flag is non-nil.
-
-\(fn STYLE DESCRIPTION &optional SET-P)" t nil)
-
-(autoload 'c-set-offset "cc-styles" "\
-Change the value of a syntactic element symbol in `c-offsets-alist'.
-SYMBOL is the syntactic element symbol to change and OFFSET is the new
-offset for that syntactic element. The optional argument is not used
-and exists only for compatibility reasons.
-
-\(fn SYMBOL OFFSET &optional IGNORED)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from progmodes/cc-vars.el
-(put 'c-basic-offset 'safe-local-variable 'integerp)
-(put 'c-backslash-column 'safe-local-variable 'integerp)
-(put 'c-file-style 'safe-local-variable 'string-or-null-p)
-
-;;;***
-\f
-;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program
-;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from international/ccl.el
-
-(autoload 'ccl-compile "ccl" "\
-Return the compiled code of CCL-PROGRAM as a vector of integers.
-
-\(fn CCL-PROGRAM)" nil nil)
-
-(autoload 'ccl-dump "ccl" "\
-Disassemble compiled CCL-CODE.
-
-\(fn CCL-CODE)" nil nil)
-
-(autoload 'declare-ccl-program "ccl" "\
-Declare NAME as a name of CCL program.
-
-This macro exists for backward compatibility. In the old version of
-Emacs, to compile a CCL program which calls another CCL program not
-yet defined, it must be declared as a CCL program in advance. But,
-now CCL program names are resolved not at compile time but before
-execution.
-
-Optional arg VECTOR is a compiled CCL code of the CCL program.
-
-\(fn NAME &optional VECTOR)" nil t)
-
-(autoload 'define-ccl-program "ccl" "\
-Set NAME the compiled code of CCL-PROGRAM.
-
-CCL-PROGRAM has this form:
- (BUFFER_MAGNIFICATION
- CCL_MAIN_CODE
- [ CCL_EOF_CODE ])
-
-BUFFER_MAGNIFICATION is an integer value specifying the approximate
-output buffer magnification size compared with the bytes of input data
-text. It is assured that the actual output buffer has 256 bytes
-more than the size calculated by BUFFER_MAGNIFICATION.
-If the value is zero, the CCL program can't execute `read' and
-`write' commands.
-
-CCL_MAIN_CODE and CCL_EOF_CODE are CCL program codes. CCL_MAIN_CODE
-executed at first. If there's no more input data when `read' command
-is executed in CCL_MAIN_CODE, CCL_EOF_CODE is executed. If
-CCL_MAIN_CODE is terminated, CCL_EOF_CODE is not executed.
-
-Here's the syntax of CCL program code in BNF notation. The lines
-starting by two semicolons (and optional leading spaces) describe the
-semantics.
-
-CCL_MAIN_CODE := CCL_BLOCK
-
-CCL_EOF_CODE := CCL_BLOCK
-
-CCL_BLOCK := STATEMENT | (STATEMENT [STATEMENT ...])
-
-STATEMENT :=
- SET | IF | BRANCH | LOOP | REPEAT | BREAK | READ | WRITE | CALL
- | TRANSLATE | MAP | LOOKUP | END
-
-SET := (REG = EXPRESSION)
- | (REG ASSIGNMENT_OPERATOR EXPRESSION)
- ;; The following form is the same as (r0 = integer).
- | integer
-
-EXPRESSION := ARG | (EXPRESSION OPERATOR ARG)
-
-;; Evaluate EXPRESSION. If the result is nonzero, execute
-;; CCL_BLOCK_0. Otherwise, execute CCL_BLOCK_1.
-IF := (if EXPRESSION CCL_BLOCK_0 CCL_BLOCK_1)
-
-;; Evaluate EXPRESSION. Provided that the result is N, execute
-;; CCL_BLOCK_N.
-BRANCH := (branch EXPRESSION CCL_BLOCK_0 [CCL_BLOCK_1 ...])
-
-;; Execute STATEMENTs until (break) or (end) is executed.
-LOOP := (loop STATEMENT [STATEMENT ...])
-
-;; Terminate the most inner loop.
-BREAK := (break)
-
-REPEAT :=
- ;; Jump to the head of the most inner loop.
- (repeat)
- ;; Same as: ((write [REG | integer | string])
- ;; (repeat))
- | (write-repeat [REG | integer | string])
- ;; Same as: ((write REG [ARRAY])
- ;; (read REG)
- ;; (repeat))
- | (write-read-repeat REG [ARRAY])
- ;; Same as: ((write integer)
- ;; (read REG)
- ;; (repeat))
- | (write-read-repeat REG integer)
-
-READ := ;; Set REG_0 to a byte read from the input text, set REG_1
- ;; to the next byte read, and so on.
- (read REG_0 [REG_1 ...])
- ;; Same as: ((read REG)
- ;; (if (REG OPERATOR ARG) CCL_BLOCK_0 CCL_BLOCK_1))
- | (read-if (REG OPERATOR ARG) CCL_BLOCK_0 CCL_BLOCK_1)
- ;; Same as: ((read REG)
- ;; (branch REG CCL_BLOCK_0 [CCL_BLOCK_1 ...]))
- | (read-branch REG CCL_BLOCK_0 [CCL_BLOCK_1 ...])
- ;; Read a character from the input text while parsing
- ;; multibyte representation, set REG_0 to the charset ID of
- ;; the character, set REG_1 to the code point of the
- ;; character. If the dimension of charset is two, set REG_1
- ;; to ((CODE0 << 7) | CODE1), where CODE0 is the first code
- ;; point and CODE1 is the second code point.
- | (read-multibyte-character REG_0 REG_1)
-
-WRITE :=
- ;; Write REG_0, REG_1, ... to the output buffer. If REG_N is
- ;; a multibyte character, write the corresponding multibyte
- ;; representation.
- (write REG_0 [REG_1 ...])
- ;; Same as: ((r7 = EXPRESSION)
- ;; (write r7))
- | (write EXPRESSION)
- ;; Write the value of `integer' to the output buffer. If it
- ;; is a multibyte character, write the corresponding multibyte
- ;; representation.
- | (write integer)
- ;; Write the byte sequence of `string' as is to the output
- ;; buffer.
- | (write string)
- ;; Same as: (write string)
- | string
- ;; Provided that the value of REG is N, write Nth element of
- ;; ARRAY to the output buffer. If it is a multibyte
- ;; character, write the corresponding multibyte
- ;; representation.
- | (write REG ARRAY)
- ;; Write a multibyte representation of a character whose
- ;; charset ID is REG_0 and code point is REG_1. If the
- ;; dimension of the charset is two, REG_1 should be ((CODE0 <<
- ;; 7) | CODE1), where CODE0 is the first code point and CODE1
- ;; is the second code point of the character.
- | (write-multibyte-character REG_0 REG_1)
-
-;; Call CCL program whose name is ccl-program-name.
-CALL := (call ccl-program-name)
-
-;; Terminate the CCL program.
-END := (end)
-
-;; CCL registers that can contain any integer value. As r7 is also
-;; used by CCL interpreter, its value is changed unexpectedly.
-REG := r0 | r1 | r2 | r3 | r4 | r5 | r6 | r7
-
-ARG := REG | integer
-
-OPERATOR :=
- ;; Normal arithmetic operators (same meaning as C code).
- + | - | * | / | %
-
- ;; Bitwise operators (same meaning as C code)
- | & | `|' | ^
-
- ;; Shifting operators (same meaning as C code)
- | << | >>
-
- ;; (REG = ARG_0 <8 ARG_1) means:
- ;; (REG = ((ARG_0 << 8) | ARG_1))
- | <8
-
- ;; (REG = ARG_0 >8 ARG_1) means:
- ;; ((REG = (ARG_0 >> 8))
- ;; (r7 = (ARG_0 & 255)))
- | >8
-
- ;; (REG = ARG_0 // ARG_1) means:
- ;; ((REG = (ARG_0 / ARG_1))
- ;; (r7 = (ARG_0 % ARG_1)))
- | //
-
- ;; Normal comparing operators (same meaning as C code)
- | < | > | == | <= | >= | !=
-
- ;; If ARG_0 and ARG_1 are higher and lower byte of Shift-JIS
- ;; code, and CHAR is the corresponding JISX0208 character,
- ;; (REG = ARG_0 de-sjis ARG_1) means:
- ;; ((REG = CODE0)
- ;; (r7 = CODE1))
- ;; where CODE0 is the first code point of CHAR, CODE1 is the
- ;; second code point of CHAR.
- | de-sjis
-
- ;; If ARG_0 and ARG_1 are the first and second code point of
- ;; JISX0208 character CHAR, and SJIS is the corresponding
- ;; Shift-JIS code,
- ;; (REG = ARG_0 en-sjis ARG_1) means:
- ;; ((REG = HIGH)
- ;; (r7 = LOW))
- ;; where HIGH is the higher byte of SJIS, LOW is the lower
- ;; byte of SJIS.
- | en-sjis
-
-ASSIGNMENT_OPERATOR :=
- ;; Same meaning as C code
- += | -= | *= | /= | %= | &= | `|=' | ^= | <<= | >>=
-
- ;; (REG <8= ARG) is the same as:
- ;; ((REG <<= 8)
- ;; (REG |= ARG))
- | <8=
-
- ;; (REG >8= ARG) is the same as:
- ;; ((r7 = (REG & 255))
- ;; (REG >>= 8))
-
- ;; (REG //= ARG) is the same as:
- ;; ((r7 = (REG % ARG))
- ;; (REG /= ARG))
- | //=
-
-ARRAY := `[' integer ... `]'
-
-
-TRANSLATE :=
- (translate-character REG(table) REG(charset) REG(codepoint))
- | (translate-character SYMBOL REG(charset) REG(codepoint))
- ;; SYMBOL must refer to a table defined by `define-translation-table'.
-LOOKUP :=
- (lookup-character SYMBOL REG(charset) REG(codepoint))
- | (lookup-integer SYMBOL REG(integer))
- ;; SYMBOL refers to a table defined by `define-translation-hash-table'.
-MAP :=
- (iterate-multiple-map REG REG MAP-IDs)
- | (map-multiple REG REG (MAP-SET))
- | (map-single REG REG MAP-ID)
-MAP-IDs := MAP-ID ...
-MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET
-MAP-ID := integer
-
-\(fn NAME CCL-PROGRAM &optional DOC)" nil t)
-
-(put 'define-ccl-program 'doc-string-elt '3)
-
-(autoload 'check-ccl-program "ccl" "\
-Check validity of CCL-PROGRAM.
-If CCL-PROGRAM is a symbol denoting a CCL program, return
-CCL-PROGRAM, else return nil.
-If CCL-PROGRAM is a vector and optional arg NAME (symbol) is supplied,
-register CCL-PROGRAM by name NAME, and return NAME.
-
-\(fn CCL-PROGRAM &optional NAME)" nil t)
-
-(autoload 'ccl-execute-with-args "ccl" "\
-Execute CCL-PROGRAM with registers initialized by the remaining args.
-The return value is a vector of resulting CCL registers.
-
-See the documentation of `define-ccl-program' for the detail of CCL program.
-
-\(fn CCL-PROG &rest ARGS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (cconv-closure-convert) "cconv" "emacs-lisp/cconv.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/cconv.el
-
-(autoload 'cconv-closure-convert "cconv" "\
-Main entry point for closure conversion.
--- FORM is a piece of Elisp code after macroexpansion.
--- TOPLEVEL(optional) is a boolean variable, true if we are at the root of AST
-
-Returns a form where all lambdas don't have any free variables.
-
-\(fn FORM)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (cfengine-auto-mode cfengine2-mode cfengine3-mode)
-;;;;;; "cfengine" "progmodes/cfengine.el" (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/cfengine.el
-
-(autoload 'cfengine3-mode "cfengine" "\
-Major mode for editing CFEngine3 input.
-There are no special keybindings by default.
-
-Action blocks are treated as defuns, i.e. \\[beginning-of-defun] moves
-to the action header.
-
-\(fn)" t nil)
-
-(autoload 'cfengine2-mode "cfengine" "\
-Major mode for editing CFEngine2 input.
-There are no special keybindings by default.
-
-Action blocks are treated as defuns, i.e. \\[beginning-of-defun] moves
-to the action header.
-
-\(fn)" t nil)
-
-(autoload 'cfengine-auto-mode "cfengine" "\
-Choose between `cfengine2-mode' and `cfengine3-mode' depending
-on the buffer contents
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (check-declare-directory check-declare-file) "check-declare"
-;;;;;; "emacs-lisp/check-declare.el" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/check-declare.el
-
-(autoload 'check-declare-file "check-declare" "\
-Check veracity of all `declare-function' statements in FILE.
-See `check-declare-directory' for more information.
-
-\(fn FILE)" t nil)
-
-(autoload 'check-declare-directory "check-declare" "\
-Check veracity of all `declare-function' statements under directory ROOT.
-Returns non-nil if any false statements are found.
-
-\(fn ROOT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (checkdoc-minor-mode checkdoc-ispell-defun checkdoc-ispell-comments
-;;;;;; checkdoc-ispell-continue checkdoc-ispell-start checkdoc-ispell-message-text
-;;;;;; checkdoc-ispell-message-interactive checkdoc-ispell-interactive
-;;;;;; checkdoc-ispell-current-buffer checkdoc-ispell checkdoc-defun
-;;;;;; checkdoc-eval-defun checkdoc-message-text checkdoc-rogue-spaces
-;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer
-;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive
-;;;;;; checkdoc-interactive checkdoc checkdoc-list-of-strings-p)
-;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/checkdoc.el
-(put 'checkdoc-force-docstrings-flag 'safe-local-variable 'booleanp)
-(put 'checkdoc-force-history-flag 'safe-local-variable 'booleanp)
-(put 'checkdoc-permit-comma-termination-flag 'safe-local-variable 'booleanp)
-(put 'checkdoc-arguments-in-order-flag 'safe-local-variable 'booleanp)
-(put 'checkdoc-symbol-words 'safe-local-variable 'checkdoc-list-of-strings-p)
-
-(autoload 'checkdoc-list-of-strings-p "checkdoc" "\
-
-
-\(fn OBJ)" nil nil)
-
-(autoload 'checkdoc "checkdoc" "\
-Interactively check the entire buffer for style errors.
-The current status of the check will be displayed in a buffer which
-the users will view as each check is completed.
-
-\(fn)" t nil)
-
-(autoload 'checkdoc-interactive "checkdoc" "\
-Interactively check the current buffer for doc string errors.
-Prefix argument START-HERE will start the checking from the current
-point, otherwise the check starts at the beginning of the current
-buffer. Allows navigation forward and backwards through document
-errors. Does not check for comment or space warnings.
-Optional argument SHOWSTATUS indicates that we should update the
-checkdoc status window instead of the usual behavior.
-
-\(fn &optional START-HERE SHOWSTATUS)" t nil)
-
-(autoload 'checkdoc-message-interactive "checkdoc" "\
-Interactively check the current buffer for message string errors.
-Prefix argument START-HERE will start the checking from the current
-point, otherwise the check starts at the beginning of the current
-buffer. Allows navigation forward and backwards through document
-errors. Does not check for comment or space warnings.
-Optional argument SHOWSTATUS indicates that we should update the
-checkdoc status window instead of the usual behavior.
-
-\(fn &optional START-HERE SHOWSTATUS)" t nil)
-
-(autoload 'checkdoc-eval-current-buffer "checkdoc" "\
-Evaluate and check documentation for the current buffer.
-Evaluation is done first because good documentation for something that
-doesn't work is just not useful. Comments, doc strings, and rogue
-spacing are all verified.
-
-\(fn)" t nil)
-
-(autoload 'checkdoc-current-buffer "checkdoc" "\
-Check current buffer for document, comment, error style, and rogue spaces.
-With a prefix argument (in Lisp, the argument TAKE-NOTES),
-store all errors found in a warnings buffer,
-otherwise stop after the first error.
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-start "checkdoc" "\
-Start scanning the current buffer for documentation string style errors.
-Only documentation strings are checked.
-Use `checkdoc-continue' to continue checking if an error cannot be fixed.
-Prefix argument TAKE-NOTES means to collect all the warning messages into
-a separate buffer.
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-continue "checkdoc" "\
-Find the next doc string in the current buffer which has a style error.
-Prefix argument TAKE-NOTES means to continue through the whole buffer and
-save warnings in a separate buffer. Second optional argument START-POINT
-is the starting location. If this is nil, `point-min' is used instead.
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-comments "checkdoc" "\
-Find missing comment sections in the current Emacs Lisp file.
-Prefix argument TAKE-NOTES non-nil means to save warnings in a
-separate buffer. Otherwise print a message. This returns the error
-if there is one.
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-rogue-spaces "checkdoc" "\
-Find extra spaces at the end of lines in the current file.
-Prefix argument TAKE-NOTES non-nil means to save warnings in a
-separate buffer. Otherwise print a message. This returns the error
-if there is one.
-Optional argument INTERACT permits more interactive fixing.
-
-\(fn &optional TAKE-NOTES INTERACT)" t nil)
-
-(autoload 'checkdoc-message-text "checkdoc" "\
-Scan the buffer for occurrences of the error function, and verify text.
-Optional argument TAKE-NOTES causes all errors to be logged.
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-eval-defun "checkdoc" "\
-Evaluate the current form with `eval-defun' and check its documentation.
-Evaluation is done first so the form will be read before the
-documentation is checked. If there is a documentation error, then the display
-of what was evaluated will be overwritten by the diagnostic message.
-
-\(fn)" t nil)
-
-(autoload 'checkdoc-defun "checkdoc" "\
-Examine the doc string of the function or variable under point.
-Call `error' if the doc string has problems. If NO-ERROR is
-non-nil, then do not call error, but call `message' instead.
-If the doc string passes the test, then check the function for rogue white
-space at the end of each line.
-
-\(fn &optional NO-ERROR)" t nil)
-
-(autoload 'checkdoc-ispell "checkdoc" "\
-Check the style and spelling of everything interactively.
-Calls `checkdoc' with spell-checking turned on.
-Prefix argument TAKE-NOTES is the same as for `checkdoc'
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-ispell-current-buffer "checkdoc" "\
-Check the style and spelling of the current buffer.
-Calls `checkdoc-current-buffer' with spell-checking turned on.
-Prefix argument TAKE-NOTES is the same as for `checkdoc-current-buffer'
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-ispell-interactive "checkdoc" "\
-Check the style and spelling of the current buffer interactively.
-Calls `checkdoc-interactive' with spell-checking turned on.
-Prefix argument TAKE-NOTES is the same as for `checkdoc-interactive'
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-ispell-message-interactive "checkdoc" "\
-Check the style and spelling of message text interactively.
-Calls `checkdoc-message-interactive' with spell-checking turned on.
-Prefix argument TAKE-NOTES is the same as for `checkdoc-message-interactive'
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-ispell-message-text "checkdoc" "\
-Check the style and spelling of message text interactively.
-Calls `checkdoc-message-text' with spell-checking turned on.
-Prefix argument TAKE-NOTES is the same as for `checkdoc-message-text'
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-ispell-start "checkdoc" "\
-Check the style and spelling of the current buffer.
-Calls `checkdoc-start' with spell-checking turned on.
-Prefix argument TAKE-NOTES is the same as for `checkdoc-start'
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-ispell-continue "checkdoc" "\
-Check the style and spelling of the current buffer after point.
-Calls `checkdoc-continue' with spell-checking turned on.
-Prefix argument TAKE-NOTES is the same as for `checkdoc-continue'
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-ispell-comments "checkdoc" "\
-Check the style and spelling of the current buffer's comments.
-Calls `checkdoc-comments' with spell-checking turned on.
-Prefix argument TAKE-NOTES is the same as for `checkdoc-comments'
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-ispell-defun "checkdoc" "\
-Check the style and spelling of the current defun with Ispell.
-Calls `checkdoc-defun' with spell-checking turned on.
-Prefix argument TAKE-NOTES is the same as for `checkdoc-defun'
-
-\(fn &optional TAKE-NOTES)" t nil)
-
-(autoload 'checkdoc-minor-mode "checkdoc" "\
-Toggle automatic docstring checking (Checkdoc minor mode).
-With a prefix argument ARG, enable Checkdoc minor mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-In Checkdoc minor mode, the usual bindings for `eval-defun' which is
-bound to \\<checkdoc-minor-mode-map>\\[checkdoc-eval-defun] and `checkdoc-eval-current-buffer' are overridden to include
-checking of documentation strings.
-
-\\{checkdoc-minor-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (pre-write-encode-hz post-read-decode-hz encode-hz-buffer
-;;;;;; encode-hz-region decode-hz-buffer decode-hz-region) "china-util"
-;;;;;; "language/china-util.el" (20707 18685 911514 0))
-;;; Generated autoloads from language/china-util.el
-
-(autoload 'decode-hz-region "china-util" "\
-Decode HZ/ZW encoded text in the current region.
-Return the length of resulting text.
-
-\(fn BEG END)" t nil)
-
-(autoload 'decode-hz-buffer "china-util" "\
-Decode HZ/ZW encoded text in the current buffer.
-
-\(fn)" t nil)
-
-(autoload 'encode-hz-region "china-util" "\
-Encode the text in the current region to HZ.
-Return the length of resulting text.
-
-\(fn BEG END)" t nil)
-
-(autoload 'encode-hz-buffer "china-util" "\
-Encode the text in the current buffer to HZ.
-
-\(fn)" t nil)
-
-(autoload 'post-read-decode-hz "china-util" "\
-
-
-\(fn LEN)" nil nil)
-
-(autoload 'pre-write-encode-hz "china-util" "\
-
-
-\(fn FROM TO)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (command-history list-command-history repeat-matching-complex-command)
-;;;;;; "chistory" "chistory.el" (20707 18685 911514 0))
-;;; Generated autoloads from chistory.el
-
-(autoload 'repeat-matching-complex-command "chistory" "\
-Edit and re-evaluate complex command with name matching PATTERN.
-Matching occurrences are displayed, most recent first, until you select
-a form for evaluation. If PATTERN is empty (or nil), every form in the
-command history is offered. The form is placed in the minibuffer for
-editing and the result is evaluated.
-
-\(fn &optional PATTERN)" t nil)
-
-(autoload 'list-command-history "chistory" "\
-List history of commands typed to minibuffer.
-The number of commands listed is controlled by `list-command-history-max'.
-Calls value of `list-command-history-filter' (if non-nil) on each history
-element to judge if that element should be excluded from the list.
-
-The buffer is left in Command History mode.
-
-\(fn)" t nil)
-
-(autoload 'command-history "chistory" "\
-Examine commands from `command-history' in a buffer.
-The number of commands listed is controlled by `list-command-history-max'.
-The command history is filtered by `list-command-history-filter' if non-nil.
-Use \\<command-history-map>\\[command-history-repeat] to repeat the command on the current line.
-
-Otherwise much like Emacs-Lisp Mode except that there is no self-insertion
-and digits provide prefix arguments. Tab does not indent.
-\\{command-history-map}
-
-This command always recompiles the Command History listing
-and runs the normal hook `command-history-hook'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/cl-indent.el
-
-(autoload 'common-lisp-indent-function "cl-indent" "\
-Function to indent the arguments of a Lisp function call.
-This is suitable for use as the value of the variable
-`lisp-indent-function'. INDENT-POINT is the point at which the
-indentation function is called, and STATE is the
-`parse-partial-sexp' state at that position. Browse the
-`lisp-indent' customize group for options affecting the behavior
-of this function.
-
-If the indentation point is in a call to a Lisp function, that
-function's `common-lisp-indent-function' property specifies how
-this function should indent it. Possible values for this
-property are:
-
-* defun, meaning indent according to `lisp-indent-defun-method';
- i.e., like (4 &lambda &body), as explained below.
-
-* any other symbol, meaning a function to call. The function should
- take the arguments: PATH STATE INDENT-POINT SEXP-COLUMN NORMAL-INDENT.
- PATH is a list of integers describing the position of point in terms of
- list-structure with respect to the containing lists. For example, in
- ((a b c (d foo) f) g), foo has a path of (0 3 1). In other words,
- to reach foo take the 0th element of the outermost list, then
- the 3rd element of the next list, and finally the 1st element.
- STATE and INDENT-POINT are as in the arguments to
- `common-lisp-indent-function'. SEXP-COLUMN is the column of
- the open parenthesis of the innermost containing list.
- NORMAL-INDENT is the column the indentation point was
- originally in. This function should behave like `lisp-indent-259'.
-
-* an integer N, meaning indent the first N arguments like
- function arguments, and any further arguments like a body.
- This is equivalent to (4 4 ... &body).
-
-* a list. The list element in position M specifies how to indent the Mth
- function argument. If there are fewer elements than function arguments,
- the last list element applies to all remaining arguments. The accepted
- list elements are:
-
- * nil, meaning the default indentation.
-
- * an integer, specifying an explicit indentation.
-
- * &lambda. Indent the argument (which may be a list) by 4.
-
- * &rest. When used, this must be the penultimate element. The
- element after this one applies to all remaining arguments.
-
- * &body. This is equivalent to &rest lisp-body-indent, i.e., indent
- all remaining elements by `lisp-body-indent'.
-
- * &whole. This must be followed by nil, an integer, or a
- function symbol. This indentation is applied to the
- associated argument, and as a base indent for all remaining
- arguments. For example, an integer P means indent this
- argument by P, and all remaining arguments by P, plus the
- value specified by their associated list element.
-
- * a symbol. A function to call, with the 6 arguments specified above.
-
- * a list, with elements as described above. This applies when the
- associated function argument is itself a list. Each element of the list
- specifies how to indent the associated argument.
-
-For example, the function `case' has an indent property
-\(4 &rest (&whole 2 &rest 1)), meaning:
- * indent the first argument by 4.
- * arguments after the first should be lists, and there may be any number
- of them. The first list element has an offset of 2, all the rest
- have an offset of 2+1=3.
-
-\(fn INDENT-POINT STATE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from emacs-lisp/cl-lib.el
-
-(define-obsolete-variable-alias 'custom-print-functions 'cl-custom-print-functions "24.3")
-
-(defvar cl-custom-print-functions nil "\
-This is a list of functions that format user objects for printing.
-Each function is called in turn with three arguments: the object, the
-stream, and the print level (currently ignored). If it is able to
-print the object it returns true; otherwise it returns nil and the
-printer proceeds to the next function on the list.
-
-This variable is not used at present, but it is defined in hopes that
-a future Emacs interpreter will be able to use it.")
-
-(autoload 'cl--defsubst-expand "cl-macs")
-
-(put 'cl-defun 'doc-string-elt 3)
-
-(put 'cl-defmacro 'doc-string-elt 3)
-
-(put 'cl-defsubst 'doc-string-elt 3)
-
-(put 'cl-defstruct 'doc-string-elt 2)
-
-;;;***
-\f
-;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/cmacexp.el
-
-(autoload 'c-macro-expand "cmacexp" "\
-Expand C macros in the region, using the C preprocessor.
-Normally display output in temp buffer, but
-prefix arg means replace the region with it.
-
-`c-macro-preprocessor' specifies the preprocessor to use.
-Tf the user option `c-macro-prompt-flag' is non-nil
-prompt for arguments to the preprocessor (e.g. `-DDEBUG -I ./include'),
-otherwise use `c-macro-cppflags'.
-
-Noninteractive args are START, END, SUBST.
-For use inside Lisp programs, see also `c-macro-expansion'.
-
-\(fn START END SUBST)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from cmuscheme.el
-
-(autoload 'run-scheme "cmuscheme" "\
-Run an inferior Scheme process, input and output via buffer `*scheme*'.
-If there is a process already running in `*scheme*', switch to that buffer.
-With argument, allows you to edit the command line (default is value
-of `scheme-program-name').
-If the file `~/.emacs_SCHEMENAME' or `~/.emacs.d/init_SCHEMENAME.scm' exists,
-it is given as initial input.
-Note that this may lose due to a timing error if the Scheme processor
-discards input when it starts up.
-Runs the hook `inferior-scheme-mode-hook' (after the `comint-mode-hook'
-is run).
-\(Type \\[describe-mode] in the process buffer for a list of commands.)
-
-\(fn CMD)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (color-name-to-rgb) "color" "color.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from color.el
-
-(autoload 'color-name-to-rgb "color" "\
-Convert COLOR string to a list of normalized RGB components.
-COLOR should be a color name (e.g. \"white\") or an RGB triplet
-string (e.g. \"#ff12ec\").
-
-Normally the return value is a list of three floating-point
-numbers, (RED GREEN BLUE), each between 0.0 and 1.0 inclusive.
-
-Optional argument FRAME specifies the frame where the color is to be
-displayed. If FRAME is omitted or nil, use the selected frame.
-If FRAME cannot display COLOR, return nil.
-
-\(fn COLOR &optional FRAME)" nil nil)
-
-;;;***
-\f
-;;;### (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"
-;;;;;; (20714 7872 790163 728000))
-;;; Generated autoloads from comint.el
-
-(defvar comint-output-filter-functions '(ansi-color-process-output comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\
-Functions to call after output is inserted into the buffer.
-One possible function is `comint-postoutput-scroll-to-bottom'.
-These functions get one argument, a string containing the text as originally
-inserted. Note that this might not be the same as the buffer contents between
-`comint-last-output-start' and the buffer's `process-mark', if other filter
-functions have already modified the buffer.
-
-See also `comint-preoutput-filter-functions'.
-
-You can use `add-hook' to add functions to this list
-either globally or locally.")
-
-(autoload 'make-comint-in-buffer "comint" "\
-Make a Comint process NAME in BUFFER, running PROGRAM.
-If BUFFER is nil, it defaults to NAME surrounded by `*'s.
-If there is a running process in BUFFER, it is not restarted.
-
-PROGRAM should be one of the following:
-- a string, denoting an executable program to create via
- `start-file-process'
-- a cons pair of the form (HOST . SERVICE), denoting a TCP
- connection to be opened via `open-network-stream'
-- nil, denoting a newly-allocated pty.
-
-Optional fourth arg STARTFILE is the name of a file, whose
-contents are sent to the process as its initial input.
-
-If PROGRAM is a string, any more args are arguments to PROGRAM.
-
-Return the (possibly newly created) process buffer.
-
-\(fn NAME BUFFER PROGRAM &optional STARTFILE &rest SWITCHES)" nil nil)
-
-(autoload 'make-comint "comint" "\
-Make a Comint process NAME in a buffer, running PROGRAM.
-The name of the buffer is made by surrounding NAME with `*'s.
-PROGRAM should be either a string denoting an executable program to create
-via `start-file-process', or a cons pair of the form (HOST . SERVICE) denoting
-a TCP connection to be opened via `open-network-stream'. If there is already
-a running process in that buffer, it is not restarted. Optional third arg
-STARTFILE is the name of a file, whose contents are sent to the
-process as its initial input.
-
-If PROGRAM is a string, any more args are arguments to PROGRAM.
-
-Returns the (possibly newly created) process buffer.
-
-\(fn NAME PROGRAM &optional STARTFILE &rest SWITCHES)" nil nil)
-
-(autoload 'comint-run "comint" "\
-Run PROGRAM in a Comint buffer and switch to it.
-The buffer name is made by surrounding the file name of PROGRAM with `*'s.
-The file name is used to make a symbol name, such as `comint-sh-hook', and any
-hooks on this symbol are run in the buffer.
-See `make-comint' and `comint-exec'.
-
-\(fn PROGRAM)" t nil)
-
-(defvar comint-file-name-prefix (purecopy "") "\
-Prefix prepended to absolute file names taken from process input.
-This is used by Comint's and shell's completion functions, and by shell's
-directory tracking functions.")
-
-(autoload 'comint-redirect-send-command "comint" "\
-Send COMMAND to process in current buffer, with output to OUTPUT-BUFFER.
-With prefix arg ECHO, echo output in process buffer.
-
-If NO-DISPLAY is non-nil, do not show the output buffer.
-
-\(fn COMMAND OUTPUT-BUFFER ECHO &optional NO-DISPLAY)" t nil)
-
-(autoload 'comint-redirect-send-command-to-process "comint" "\
-Send COMMAND to PROCESS, with output to OUTPUT-BUFFER.
-With prefix arg, echo output in process buffer.
-
-If NO-DISPLAY is non-nil, do not show the output buffer.
-
-\(fn COMMAND OUTPUT-BUFFER PROCESS ECHO &optional NO-DISPLAY)" t nil)
-
-(autoload 'comint-redirect-results-list "comint" "\
-Send COMMAND to current process.
-Return a list of expressions in the output which match REGEXP.
-REGEXP-GROUP is the regular expression group in REGEXP to use.
-
-\(fn COMMAND REGEXP REGEXP-GROUP)" nil nil)
-
-(autoload 'comint-redirect-results-list-from-process "comint" "\
-Send COMMAND to PROCESS.
-Return a list of expressions in the output which match REGEXP.
-REGEXP-GROUP is the regular expression group in REGEXP to use.
-
-\(fn PROCESS COMMAND REGEXP REGEXP-GROUP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (compare-windows) "compare-w" "vc/compare-w.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/compare-w.el
-
-(autoload 'compare-windows "compare-w" "\
-Compare text in current window with text in next window.
-Compares the text starting at point in each window,
-moving over text in each one as far as they match.
-
-This command pushes the mark in each window
-at the prior location of point in that window.
-If both windows display the same buffer,
-the mark is pushed twice in that buffer:
-first in the other window, then in the selected window.
-
-A prefix arg means reverse the value of variable
-`compare-ignore-whitespace'. If `compare-ignore-whitespace' is
-nil, then a prefix arg means ignore changes in whitespace. If
-`compare-ignore-whitespace' is non-nil, then a prefix arg means
-don't ignore changes in whitespace. The variable
-`compare-windows-whitespace' controls how whitespace is skipped.
-If `compare-ignore-case' is non-nil, changes in case are also
-ignored.
-
-If `compare-windows-sync' is non-nil, then successive calls of
-this command work in interlaced mode:
-on first call it advances points to the next difference,
-on second call it synchronizes points by skipping the difference,
-on third call it again advances points to the next difference and so on.
-
-\(fn IGNORE-WHITESPACE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (compilation-next-error-function compilation-minor-mode
-;;;;;; 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-start-hook
-;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (20763
-;;;;;; 5110 492774 0))
-;;; Generated autoloads from progmodes/compile.el
-
-(defvar compilation-mode-hook nil "\
-List of hook functions run by `compilation-mode' (see `run-mode-hooks').")
-
-(custom-autoload 'compilation-mode-hook "compile" t)
-
-(defvar compilation-start-hook nil "\
-List of hook functions run by `compilation-start' on the compilation process.
-\(See `run-hook-with-args').
-If you use \"omake -P\" and do not want \\[save-buffers-kill-terminal] to ask whether you want
-the compilation to be killed, you can use this hook:
- (add-hook 'compilation-start-hook
- (lambda (process) (set-process-query-on-exit-flag process nil)) nil t)")
-
-(custom-autoload 'compilation-start-hook "compile" t)
-
-(defvar compilation-window-height nil "\
-Number of lines in a compilation window. If nil, use Emacs default.")
-
-(custom-autoload 'compilation-window-height "compile" t)
-
-(defvar compilation-process-setup-function nil "\
-Function to call to customize the compilation process.
-This function is called immediately before the compilation process is
-started. It can be used to set any variables or functions that are used
-while processing the output of the compilation process.")
-
-(defvar compilation-buffer-name-function nil "\
-Function to compute the name of a compilation buffer.
-The function receives one argument, the name of the major mode of the
-compilation buffer. It should return a string.
-If nil, compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.")
-
-(defvar compilation-finish-function nil "\
-Function to call when a compilation process finishes.
-It is called with two arguments: the compilation buffer, and a string
-describing how the process finished.")
-
-(defvar compilation-finish-functions nil "\
-Functions to call when a compilation process finishes.
-Each function is called with two arguments: the compilation buffer,
-and a string describing how the process finished.")
-(put 'compilation-directory 'safe-local-variable 'stringp)
-
-(defvar compilation-ask-about-save t "\
-Non-nil means \\[compile] asks which buffers to save before compiling.
-Otherwise, it saves all modified buffers without asking.")
-
-(custom-autoload 'compilation-ask-about-save "compile" t)
-
-(defvar compilation-search-path '(nil) "\
-List of directories to search for source files named in error messages.
-Elements should be directory names, not file names of directories.
-The value nil as an element means to try the default directory.")
-
-(custom-autoload 'compilation-search-path "compile" t)
-
-(defvar compile-command (purecopy "make -k ") "\
-Last shell command used to do a compilation; default for next compilation.
-
-Sometimes it is useful for files to supply local values for this variable.
-You might also use mode hooks to specify it in certain modes, like this:
-
- (add-hook 'c-mode-hook
- (lambda ()
- (unless (or (file-exists-p \"makefile\")
- (file-exists-p \"Makefile\"))
- (set (make-local-variable 'compile-command)
- (concat \"make -k \"
- (file-name-sans-extension buffer-file-name))))))")
-
-(custom-autoload 'compile-command "compile" t)
-(put 'compile-command 'safe-local-variable (lambda (a) (and (stringp a) (or (not (boundp 'compilation-read-command)) compilation-read-command))))
-
-(defvar compilation-disable-input nil "\
-If non-nil, send end-of-file as compilation process input.
-This only affects platforms that support asynchronous processes (see
-`start-process'); synchronous compilation processes never accept input.")
-
-(custom-autoload 'compilation-disable-input "compile" t)
-
-(autoload 'compile "compile" "\
-Compile the program including the current buffer. Default: run `make'.
-Runs COMMAND, a shell command, in a separate process asynchronously
-with output going to the buffer `*compilation*'.
-
-You can then use the command \\[next-error] to find the next error message
-and move to the source code that caused it.
-
-If optional second arg COMINT is t the buffer will be in Comint mode with
-`compilation-shell-minor-mode'.
-
-Interactively, prompts for the command if `compilation-read-command' is
-non-nil; otherwise uses `compile-command'. With prefix arg, always prompts.
-Additionally, with universal prefix arg, compilation buffer will be in
-comint mode, i.e. interactive.
-
-To run more than one compilation at once, start one then rename
-the `*compilation*' buffer to some other name with
-\\[rename-buffer]. Then _switch buffers_ and start the new compilation.
-It will create a new `*compilation*' buffer.
-
-On most systems, termination of the main compilation process
-kills its subprocesses.
-
-The name used for the buffer is actually whatever is returned by
-the function in `compilation-buffer-name-function', so you can set that
-to a function that generates a unique name.
-
-\(fn COMMAND &optional COMINT)" t nil)
-
-(autoload 'compilation-start "compile" "\
-Run compilation command COMMAND (low level interface).
-If COMMAND starts with a cd command, that becomes the `default-directory'.
-The rest of the arguments are optional; for them, nil means use the default.
-
-MODE is the major mode to set in the compilation buffer. Mode
-may also be t meaning use `compilation-shell-minor-mode' under `comint-mode'.
-
-If NAME-FUNCTION is non-nil, call it with one argument (the mode name)
-to determine the buffer name. Otherwise, the default is to
-reuses the current buffer if it has the proper major mode,
-else use or create a buffer with name based on the major mode.
-
-If HIGHLIGHT-REGEXP is non-nil, `next-error' will temporarily highlight
-the matching section of the visited source line; the default is to use the
-global value of `compilation-highlight-regexp'.
-
-Returns the compilation buffer created.
-
-\(fn COMMAND &optional MODE NAME-FUNCTION HIGHLIGHT-REGEXP)" nil nil)
-
-(autoload 'compilation-mode "compile" "\
-Major mode for compilation log buffers.
-\\<compilation-mode-map>To visit the source for a line-numbered error,
-move point to the error message line and type \\[compile-goto-error].
-To kill the compilation, type \\[kill-compilation].
-
-Runs `compilation-mode-hook' with `run-mode-hooks' (which see).
-
-\\{compilation-mode-map}
-
-\(fn &optional NAME-OF-MODE)" t nil)
-
-(put 'define-compilation-mode 'doc-string-elt 3)
-
-(autoload 'compilation-shell-minor-mode "compile" "\
-Toggle Compilation Shell minor mode.
-With a prefix argument ARG, enable Compilation Shell minor mode
-if ARG is positive, and disable it otherwise. If called from
-Lisp, enable the mode if ARG is omitted or nil.
-
-When Compilation Shell minor mode is enabled, all the
-error-parsing commands of the Compilation major mode are
-available but bound to keys that don't collide with Shell mode.
-See `compilation-mode'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'compilation-minor-mode "compile" "\
-Toggle Compilation minor mode.
-With a prefix argument ARG, enable Compilation minor mode if ARG
-is positive, and disable it otherwise. If called from Lisp,
-enable the mode if ARG is omitted or nil.
-
-When Compilation minor mode is enabled, all the error-parsing
-commands of Compilation major mode are available. See
-`compilation-mode'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'compilation-next-error-function "compile" "\
-Advance to the next error message and visit the file where the error was.
-This is the value of `next-error-function' in Compilation buffers.
-
-\(fn N &optional RESET)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from completion.el
-
-(defvar dynamic-completion-mode nil "\
-Non-nil if Dynamic-Completion mode is enabled.
-See the command `dynamic-completion-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `dynamic-completion-mode'.")
-
-(custom-autoload 'dynamic-completion-mode "completion" nil)
-
-(autoload 'dynamic-completion-mode "completion" "\
-Toggle dynamic word-completion on or off.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/conf-mode.el
-
-(autoload 'conf-mode "conf-mode" "\
-Mode for Unix and Windows Conf files and Java properties.
-Most conf files know only three kinds of constructs: parameter
-assignments optionally grouped into sections and comments. Yet
-there is a great range of variation in the exact syntax of conf
-files. See below for various wrapper commands that set up the
-details for some of the most widespread variants.
-
-This mode sets up font locking, outline, imenu and it provides
-alignment support through `conf-align-assignments'. If strings
-come out wrong, try `conf-quote-normal'.
-
-Some files allow continuation lines, either with a backslash at
-the end of line, or by indenting the next line (further). These
-constructs cannot currently be recognized.
-
-Because of this great variety of nuances, which are often not
-even clearly specified, please don't expect it to get every file
-quite right. Patches that clearly identify some special case,
-without breaking the general ones, are welcome.
-
-If instead you start this mode with the generic `conf-mode'
-command, it will parse the buffer. It will generally well
-identify the first four cases listed below. If the buffer
-doesn't have enough contents to decide, this is identical to
-`conf-windows-mode' on Windows, elsewhere to `conf-unix-mode'.
-See also `conf-space-mode', `conf-colon-mode', `conf-javaprop-mode',
-`conf-ppd-mode' and `conf-xdefaults-mode'.
-
-\\{conf-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'conf-unix-mode "conf-mode" "\
-Conf Mode starter for Unix style Conf files.
-Comments start with `#'.
-For details see `conf-mode'. Example:
-
-# Conf mode font-locks this right on Unix and with \\[conf-unix-mode]
-
-\[Desktop Entry]
- Encoding=UTF-8
- Name=The GIMP
- Name[ca]=El GIMP
- Name[cs]=GIMP
-
-\(fn)" t nil)
-
-(autoload 'conf-windows-mode "conf-mode" "\
-Conf Mode starter for Windows style Conf files.
-Comments start with `;'.
-For details see `conf-mode'. Example:
-
-; Conf mode font-locks this right on Windows and with \\[conf-windows-mode]
-
-\[ExtShellFolderViews]
-Default={5984FFE0-28D4-11CF-AE66-08002B2E1262}
-{5984FFE0-28D4-11CF-AE66-08002B2E1262}={5984FFE0-28D4-11CF-AE66-08002B2E1262}
-
-\[{5984FFE0-28D4-11CF-AE66-08002B2E1262}]
-PersistMoniker=file://Folder.htt
-
-\(fn)" t nil)
-
-(autoload 'conf-javaprop-mode "conf-mode" "\
-Conf Mode starter for Java properties files.
-Comments start with `#' but are also recognized with `//' or
-between `/*' and `*/'.
-For details see `conf-mode'. Example:
-
-# Conf mode font-locks this right with \\[conf-javaprop-mode] (Java properties)
-// another kind of comment
-/* yet another */
-
-name:value
-name=value
-name value
-x.1 =
-x.2.y.1.z.1 =
-x.2.y.1.z.2.zz =
-
-\(fn)" t nil)
-
-(autoload 'conf-space-mode "conf-mode" "\
-Conf Mode starter for space separated conf files.
-\"Assignments\" are with ` '. Keywords before the parameters are
-recognized according to the variable `conf-space-keywords-alist'.
-Alternatively, you can specify a value for the file local variable
-`conf-space-keywords'.
-Use the function `conf-space-keywords' if you want to specify keywords
-in an interactive fashion instead.
-
-For details see `conf-mode'. Example:
-
-# Conf mode font-locks this right with \\[conf-space-mode] (space separated)
-
-image/jpeg jpeg jpg jpe
-image/png png
-image/tiff tiff tif
-
-# Or with keywords (from a recognized file name):
-class desktop
-# Standard multimedia devices
-add /dev/audio desktop
-add /dev/mixer desktop
-
-\(fn)" t nil)
-
-(autoload 'conf-space-keywords "conf-mode" "\
-Enter Conf Space mode using regexp KEYWORDS to match the keywords.
-See `conf-space-mode'.
-
-\(fn KEYWORDS)" t nil)
-
-(autoload 'conf-colon-mode "conf-mode" "\
-Conf Mode starter for Colon files.
-\"Assignments\" are with `:'.
-For details see `conf-mode'. Example:
-
-# Conf mode font-locks this right with \\[conf-colon-mode] (colon)
-
-<Multi_key> <exclam> <exclam> : \"\\241\" exclamdown
-<Multi_key> <c> <slash> : \"\\242\" cent
-
-\(fn)" t nil)
-
-(autoload 'conf-ppd-mode "conf-mode" "\
-Conf Mode starter for Adobe/CUPS PPD files.
-Comments start with `*%' and \"assignments\" are with `:'.
-For details see `conf-mode'. Example:
-
-*% Conf mode font-locks this right with \\[conf-ppd-mode] (PPD)
-
-*DefaultTransfer: Null
-*Transfer Null.Inverse: \"{ 1 exch sub }\"
-
-\(fn)" t nil)
-
-(autoload 'conf-xdefaults-mode "conf-mode" "\
-Conf Mode starter for Xdefaults files.
-Comments start with `!' and \"assignments\" are with `:'.
-For details see `conf-mode'. Example:
-
-! Conf mode font-locks this right with \\[conf-xdefaults-mode] (.Xdefaults)
-
-*background: gray99
-*foreground: black
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie)
-;;;;;; "cookie1" "play/cookie1.el" (20707 18685 911514 0))
-;;; Generated autoloads from play/cookie1.el
-
-(autoload 'cookie "cookie1" "\
-Return a random phrase from PHRASE-FILE.
-When the phrase file is read in, display STARTMSG at the beginning
-of load, ENDMSG at the end.
-
-\(fn PHRASE-FILE STARTMSG ENDMSG)" nil nil)
-
-(autoload 'cookie-insert "cookie1" "\
-Insert random phrases from PHRASE-FILE; COUNT of them.
-When the phrase file is read in, display STARTMSG at the beginning
-of load, ENDMSG at the end.
-
-\(fn PHRASE-FILE &optional COUNT STARTMSG ENDMSG)" nil nil)
-
-(autoload 'cookie-snarf "cookie1" "\
-Reads in the PHRASE-FILE, returns it as a vector of strings.
-Emit STARTMSG and ENDMSG before and after. Caches the result; second
-and subsequent calls on the same file won't go to disk.
-
-\(fn PHRASE-FILE STARTMSG ENDMSG)" nil nil)
-
-(autoload 'shuffle-vector "cookie1" "\
-Randomly permute the elements of VECTOR (all permutations equally likely).
-
-\(fn VECTOR)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (copyright-update-directory copyright copyright-fix-years
-;;;;;; copyright-update) "copyright" "emacs-lisp/copyright.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/copyright.el
-(put 'copyright-at-end-flag 'safe-local-variable 'booleanp)
-(put 'copyright-names-regexp 'safe-local-variable 'stringp)
-(put 'copyright-year-ranges 'safe-local-variable 'booleanp)
-
-(autoload 'copyright-update "copyright" "\
-Update copyright notice to indicate the current year.
-With prefix ARG, replace the years in the notice rather than adding
-the current year after them. If necessary, and
-`copyright-current-gpl-version' is set, any copying permissions
-following the copyright are updated as well.
-If non-nil, INTERACTIVEP tells the function to behave as when it's called
-interactively.
-
-\(fn &optional ARG INTERACTIVEP)" t nil)
-
-(autoload 'copyright-fix-years "copyright" "\
-Convert 2 digit years to 4 digit years.
-Uses heuristic: year >= 50 means 19xx, < 50 means 20xx.
-If `copyright-year-ranges' (which see) is non-nil, also
-independently replaces consecutive years with a range.
-
-\(fn)" t nil)
-
-(autoload 'copyright "copyright" "\
-Insert a copyright by $ORGANIZATION notice at cursor.
-
-\(fn &optional STR ARG)" t nil)
-
-(autoload 'copyright-update-directory "copyright" "\
-Update copyright notice for all files in DIRECTORY matching MATCH.
-If FIX is non-nil, run `copyright-fix-years' instead.
-
-\(fn DIRECTORY MATCH &optional FIX)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode)
-;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (20763 5110 492774
-;;;;;; 0))
-;;; Generated autoloads from progmodes/cperl-mode.el
-(put 'cperl-indent-level 'safe-local-variable 'integerp)
-(put 'cperl-brace-offset 'safe-local-variable 'integerp)
-(put 'cperl-continued-brace-offset 'safe-local-variable 'integerp)
-(put 'cperl-label-offset 'safe-local-variable 'integerp)
-(put 'cperl-continued-statement-offset 'safe-local-variable 'integerp)
-(put 'cperl-extra-newline-before-brace 'safe-local-variable 'booleanp)
-(put 'cperl-merge-trailing-else 'safe-local-variable 'booleanp)
-
-(autoload 'cperl-mode "cperl-mode" "\
-Major mode for editing Perl code.
-Expression and list commands understand all C brackets.
-Tab indents for Perl code.
-Paragraphs are separated by blank lines only.
-Delete converts tabs to spaces as it moves back.
-
-Various characters in Perl almost always come in pairs: {}, (), [],
-sometimes <>. When the user types the first, she gets the second as
-well, with optional special formatting done on {}. (Disabled by
-default.) You can always quote (with \\[quoted-insert]) the left
-\"paren\" to avoid the expansion. The processing of < is special,
-since most the time you mean \"less\". CPerl mode tries to guess
-whether you want to type pair <>, and inserts is if it
-appropriate. You can set `cperl-electric-parens-string' to the string that
-contains the parens from the above list you want to be electrical.
-Electricity of parens is controlled by `cperl-electric-parens'.
-You may also set `cperl-electric-parens-mark' to have electric parens
-look for active mark and \"embrace\" a region if possible.'
-
-CPerl mode provides expansion of the Perl control constructs:
-
- if, else, elsif, unless, while, until, continue, do,
- for, foreach, formy and foreachmy.
-
-and POD directives (Disabled by default, see `cperl-electric-keywords'.)
-
-The user types the keyword immediately followed by a space, which
-causes the construct to be expanded, and the point is positioned where
-she is most likely to want to be. E.g., when the user types a space
-following \"if\" the following appears in the buffer: if () { or if ()
-} { } and the cursor is between the parentheses. The user can then
-type some boolean expression within the parens. Having done that,
-typing \\[cperl-linefeed] places you - appropriately indented - on a
-new line between the braces (if you typed \\[cperl-linefeed] in a POD
-directive line, then appropriate number of new lines is inserted).
-
-If CPerl decides that you want to insert \"English\" style construct like
-
- bite if angry;
-
-it will not do any expansion. See also help on variable
-`cperl-extra-newline-before-brace'. (Note that one can switch the
-help message on expansion by setting `cperl-message-electric-keyword'
-to nil.)
-
-\\[cperl-linefeed] is a convenience replacement for typing carriage
-return. It places you in the next line with proper indentation, or if
-you type it inside the inline block of control construct, like
-
- foreach (@lines) {print; print}
-
-and you are on a boundary of a statement inside braces, it will
-transform the construct into a multiline and will place you into an
-appropriately indented blank line. If you need a usual
-`newline-and-indent' behavior, it is on \\[newline-and-indent],
-see documentation on `cperl-electric-linefeed'.
-
-Use \\[cperl-invert-if-unless] to change a construction of the form
-
- if (A) { B }
-
-into
-
- B if A;
-
-\\{cperl-mode-map}
-
-Setting the variable `cperl-font-lock' to t switches on font-lock-mode
-\(even with older Emacsen), `cperl-electric-lbrace-space' to t switches
-on electric space between $ and {, `cperl-electric-parens-string' is
-the string that contains parentheses that should be electric in CPerl
-\(see also `cperl-electric-parens-mark' and `cperl-electric-parens'),
-setting `cperl-electric-keywords' enables electric expansion of
-control structures in CPerl. `cperl-electric-linefeed' governs which
-one of two linefeed behavior is preferable. You can enable all these
-options simultaneously (recommended mode of use) by setting
-`cperl-hairy' to t. In this case you can switch separate options off
-by setting them to `null'. Note that one may undo the extra
-whitespace inserted by semis and braces in `auto-newline'-mode by
-consequent \\[cperl-electric-backspace].
-
-If your site has perl5 documentation in info format, you can use commands
-\\[cperl-info-on-current-command] and \\[cperl-info-on-command] to access it.
-These keys run commands `cperl-info-on-current-command' and
-`cperl-info-on-command', which one is which is controlled by variable
-`cperl-info-on-command-no-prompt' and `cperl-clobber-lisp-bindings'
-\(in turn affected by `cperl-hairy').
-
-Even if you have no info-format documentation, short one-liner-style
-help is available on \\[cperl-get-help], and one can run perldoc or
-man via menu.
-
-It is possible to show this help automatically after some idle time.
-This is regulated by variable `cperl-lazy-help-time'. Default with
-`cperl-hairy' (if the value of `cperl-lazy-help-time' is nil) is 5
-secs idle time . It is also possible to switch this on/off from the
-menu, or via \\[cperl-toggle-autohelp]. Requires `run-with-idle-timer'.
-
-Use \\[cperl-lineup] to vertically lineup some construction - put the
-beginning of the region at the start of construction, and make region
-span the needed amount of lines.
-
-Variables `cperl-pod-here-scan', `cperl-pod-here-fontify',
-`cperl-pod-face', `cperl-pod-head-face' control processing of POD and
-here-docs sections. With capable Emaxen results of scan are used
-for indentation too, otherwise they are used for highlighting only.
-
-Variables controlling indentation style:
- `cperl-tab-always-indent'
- Non-nil means TAB in CPerl mode should always reindent the current line,
- regardless of where in the line point is when the TAB command is used.
- `cperl-indent-left-aligned-comments'
- Non-nil means that the comment starting in leftmost column should indent.
- `cperl-auto-newline'
- Non-nil means automatically newline before and after braces,
- and after colons and semicolons, inserted in Perl code. The following
- \\[cperl-electric-backspace] will remove the inserted whitespace.
- Insertion after colons requires both this variable and
- `cperl-auto-newline-after-colon' set.
- `cperl-auto-newline-after-colon'
- Non-nil means automatically newline even after colons.
- Subject to `cperl-auto-newline' setting.
- `cperl-indent-level'
- Indentation of Perl statements within surrounding block.
- The surrounding block's indentation is the indentation
- of the line on which the open-brace appears.
- `cperl-continued-statement-offset'
- Extra indentation given to a substatement, such as the
- then-clause of an if, or body of a while, or just a statement continuation.
- `cperl-continued-brace-offset'
- Extra indentation given to a brace that starts a substatement.
- This is in addition to `cperl-continued-statement-offset'.
- `cperl-brace-offset'
- Extra indentation for line if it starts with an open brace.
- `cperl-brace-imaginary-offset'
- An open brace following other text is treated as if it the line started
- this far to the right of the actual line indentation.
- `cperl-label-offset'
- Extra indentation for line that is a label.
- `cperl-min-label-indent'
- Minimal indentation for line that is a label.
-
-Settings for classic indent-styles: K&R BSD=C++ GNU PerlStyle=Whitesmith
- `cperl-indent-level' 5 4 2 4
- `cperl-brace-offset' 0 0 0 0
- `cperl-continued-brace-offset' -5 -4 0 0
- `cperl-label-offset' -5 -4 -2 -4
- `cperl-continued-statement-offset' 5 4 2 4
-
-CPerl knows several indentation styles, and may bulk set the
-corresponding variables. Use \\[cperl-set-style] to do this. Use
-\\[cperl-set-style-back] to restore the memorized preexisting values
-\(both available from menu). See examples in `cperl-style-examples'.
-
-Part of the indentation style is how different parts of if/elsif/else
-statements are broken into lines; in CPerl, this is reflected on how
-templates for these constructs are created (controlled by
-`cperl-extra-newline-before-brace'), and how reflow-logic should treat
-\"continuation\" blocks of else/elsif/continue, controlled by the same
-variable, and by `cperl-extra-newline-before-brace-multiline',
-`cperl-merge-trailing-else', `cperl-indent-region-fix-constructs'.
-
-If `cperl-indent-level' is 0, the statement after opening brace in
-column 0 is indented on
-`cperl-brace-offset'+`cperl-continued-statement-offset'.
-
-Turning on CPerl mode calls the hooks in the variable `cperl-mode-hook'
-with no args.
-
-DO NOT FORGET to read micro-docs (available from `Perl' menu)
-or as help on variables `cperl-tips', `cperl-problems',
-`cperl-praise', `cperl-speed'.
-
-\(fn)" t nil)
-
-(autoload 'cperl-perldoc "cperl-mode" "\
-Run `perldoc' on WORD.
-
-\(fn WORD)" t nil)
-
-(autoload 'cperl-perldoc-at-point "cperl-mode" "\
-Run a `perldoc' on the word around point.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/cpp.el
-
-(autoload 'cpp-highlight-buffer "cpp" "\
-Highlight C code according to preprocessor conditionals.
-This command pops up a buffer which you should edit to specify
-what kind of highlighting to use, and the criteria for highlighting.
-A prefix arg suppresses display of that buffer.
-
-\(fn ARG)" t nil)
-
-(autoload 'cpp-parse-edit "cpp" "\
-Edit display information for cpp conditionals.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emulation/crisp.el
-
-(defvar crisp-mode nil "\
-Track status of CRiSP emulation mode.
-A value of nil means CRiSP mode is not enabled. A value of t
-indicates CRiSP mode is enabled.
-
-Setting this variable directly does not take effect;
-use either M-x customize or the function `crisp-mode'.")
-
-(custom-autoload 'crisp-mode "crisp" nil)
-
-(autoload 'crisp-mode "crisp" "\
-Toggle CRiSP/Brief emulation (CRiSP mode).
-With a prefix argument ARG, enable CRiSP mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-(defalias 'brief-mode 'crisp-mode)
-
-;;;***
-\f
-;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/crm.el
-
-(autoload 'completing-read-multiple "crm" "\
-Read multiple strings in the minibuffer, with completion.
-By using this functionality, a user may specify multiple strings at a
-single prompt, optionally using completion.
-
-Multiple strings are specified by separating each of the strings with
-a prespecified separator character. For example, if the separator
-character is a comma, the strings 'alice', 'bob', and 'eve' would be
-specified as 'alice,bob,eve'.
-
-The default value for the separator character is the value of
-`crm-default-separator' (comma). The separator character may be
-changed by modifying the value of `crm-separator'.
-
-Contiguous strings of non-separator-characters are referred to as
-'elements'. In the aforementioned example, the elements are: 'alice',
-'bob', and 'eve'.
-
-Completion is available on a per-element basis. For example, if the
-contents of the minibuffer are 'alice,bob,eve' and point is between
-'l' and 'i', pressing TAB operates on the element 'alice'.
-
-The return value of this function is a list of the read strings.
-
-See the documentation for `completing-read' for details on the arguments:
-PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HIST, DEF, and
-INHERIT-INPUT-METHOD.
-
-\(fn PROMPT TABLE &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (css-mode) "css-mode" "textmodes/css-mode.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from textmodes/css-mode.el
-
-(autoload 'css-mode "css-mode" "\
-Major mode to edit Cascading Style Sheets.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emulation/cua-base.el
-
-(defvar cua-mode nil "\
-Non-nil if Cua mode is enabled.
-See the command `cua-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `cua-mode'.")
-
-(custom-autoload 'cua-mode "cua-base" nil)
-
-(autoload 'cua-mode "cua-base" "\
-Toggle Common User Access style editing (CUA mode).
-With a prefix argument ARG, enable CUA mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-CUA mode is a global minor mode. When enabled, typed text
-replaces the active selection, and you can use C-z, C-x, C-c, and
-C-v to undo, cut, copy, and paste in addition to the normal Emacs
-bindings. The C-x and C-c keys only do cut and copy when the
-region is active, so in most cases, they do not conflict with the
-normal function of these prefix keys.
-
-If you really need to perform a command which starts with one of
-the prefix keys even when the region is active, you have three
-options:
-- press the prefix key twice very quickly (within 0.2 seconds),
-- press the prefix key and the following key within 0.2 seconds, or
-- use the SHIFT key with the prefix key, i.e. C-S-x or C-S-c.
-
-You can customize `cua-enable-cua-keys' to completely disable the
-CUA bindings, or `cua-prefix-override-inhibit-delay' to change
-the prefix fallback behavior.
-
-CUA mode manages Transient Mark mode internally. Trying to disable
-Transient Mark mode while CUA mode is enabled does not work; if you
-only want to highlight the region when it is selected using a
-shifted movement key, set `cua-highlight-region-shift-only'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'cua-selection-mode "cua-base" "\
-Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (customize-menu-create custom-menu-create customize-save-customized
-;;;;;; custom-save-all custom-file customize-browse custom-buffer-create-other-window
-;;;;;; custom-buffer-create customize-apropos-groups customize-apropos-faces
-;;;;;; customize-apropos-options customize-apropos customize-saved
-;;;;;; customize-rogue customize-unsaved customize-face-other-window
-;;;;;; customize-face customize-changed-options customize-option-other-window
-;;;;;; customize-option customize-group-other-window customize-group
-;;;;;; customize-mode customize customize-push-and-save 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" (20707 18685 911514 0))
-;;; Generated autoloads from cus-edit.el
-
-(defvar custom-browse-sort-alphabetically nil "\
-If non-nil, sort customization group alphabetically in `custom-browse'.")
-
-(custom-autoload 'custom-browse-sort-alphabetically "cus-edit" t)
-
-(defvar custom-buffer-sort-alphabetically t "\
-Whether to sort customization groups alphabetically in Custom buffer.")
-
-(custom-autoload 'custom-buffer-sort-alphabetically "cus-edit" t)
-
-(defvar custom-menu-sort-alphabetically nil "\
-If non-nil, sort each customization group alphabetically in menus.")
-
-(custom-autoload 'custom-menu-sort-alphabetically "cus-edit" t)
-
-(autoload 'customize-set-value "cus-edit" "\
-Set VARIABLE to VALUE, and return VALUE. VALUE is a Lisp object.
-
-If VARIABLE has a `variable-interactive' property, that is used as if
-it were the arg to `interactive' (which see) to interactively read the value.
-
-If VARIABLE has a `custom-type' property, it must be a widget and the
-`:prompt-value' property of that widget will be used for reading the value.
-
-If given a prefix (or a COMMENT argument), also prompt for a comment.
-
-\(fn VARIABLE VALUE &optional COMMENT)" t nil)
-
-(autoload 'customize-set-variable "cus-edit" "\
-Set the default for VARIABLE to VALUE, and return VALUE.
-VALUE is a Lisp object.
-
-If VARIABLE has a `custom-set' property, that is used for setting
-VARIABLE, otherwise `set-default' is used.
-
-If VARIABLE has a `variable-interactive' property, that is used as if
-it were the arg to `interactive' (which see) to interactively read the value.
-
-If VARIABLE has a `custom-type' property, it must be a widget and the
-`:prompt-value' property of that widget will be used for reading the value.
-
-If given a prefix (or a COMMENT argument), also prompt for a comment.
-
-\(fn VARIABLE VALUE &optional COMMENT)" t nil)
-
-(autoload 'customize-save-variable "cus-edit" "\
-Set the default for VARIABLE to VALUE, and save it for future sessions.
-Return VALUE.
-
-If VARIABLE has a `custom-set' property, that is used for setting
-VARIABLE, otherwise `set-default' is used.
-
-If VARIABLE has a `variable-interactive' property, that is used as if
-it were the arg to `interactive' (which see) to interactively read the value.
-
-If VARIABLE has a `custom-type' property, it must be a widget and the
-`:prompt-value' property of that widget will be used for reading the value.
-
-If given a prefix (or a COMMENT argument), also prompt for a comment.
-
-\(fn VARIABLE VALUE &optional COMMENT)" t nil)
-
-(autoload 'customize-push-and-save "cus-edit" "\
-Add ELTS to LIST-VAR and save for future sessions, safely.
-ELTS should be a list. This function adds each entry to the
-value of LIST-VAR using `add-to-list'.
-
-If Emacs is initialized, call `customize-save-variable' to save
-the resulting list value now. Otherwise, add an entry to
-`after-init-hook' to save it after initialization.
-
-\(fn LIST-VAR ELTS)" nil nil)
-
-(autoload 'customize "cus-edit" "\
-Select a customization buffer which you can use to set user options.
-User options are structured into \"groups\".
-Initially the top-level group `Emacs' and its immediate subgroups
-are shown; the contents of those subgroups are initially hidden.
-
-\(fn)" t nil)
-
-(autoload 'customize-mode "cus-edit" "\
-Customize options related to the current major mode.
-If a prefix \\[universal-argument] was given (or if the current major mode has no known group),
-then prompt for the MODE to customize.
-
-\(fn MODE)" t nil)
-
-(autoload 'customize-group "cus-edit" "\
-Customize GROUP, which must be a customization group.
-If OTHER-WINDOW is non-nil, display in another window.
-
-\(fn &optional GROUP OTHER-WINDOW)" t nil)
-
-(autoload 'customize-group-other-window "cus-edit" "\
-Customize GROUP, which must be a customization group, in another window.
-
-\(fn &optional GROUP)" t nil)
-
-(defalias 'customize-variable 'customize-option)
-
-(autoload 'customize-option "cus-edit" "\
-Customize SYMBOL, which must be a user option.
-
-\(fn SYMBOL)" t nil)
-
-(defalias 'customize-variable-other-window 'customize-option-other-window)
-
-(autoload 'customize-option-other-window "cus-edit" "\
-Customize SYMBOL, which must be a user option.
-Show the buffer in another window, but don't select it.
-
-\(fn SYMBOL)" t nil)
-
-(defvar customize-package-emacs-version-alist nil "\
-Alist mapping versions of a package to Emacs versions.
-We use this for packages that have their own names, but are released
-as part of Emacs itself.
-
-Each elements looks like this:
-
- (PACKAGE (PVERSION . EVERSION)...)
-
-Here PACKAGE is the name of a package, as a symbol. After
-PACKAGE come one or more elements, each associating a
-package version PVERSION with the first Emacs version
-EVERSION in which it (or a subsequent version of PACKAGE)
-was first released. Both PVERSION and EVERSION are strings.
-PVERSION should be a string that this package used in
-the :package-version keyword for `defcustom', `defgroup',
-and `defface'.
-
-For example, the MH-E package updates this alist as follows:
-
- (add-to-list 'customize-package-emacs-version-alist
- '(MH-E (\"6.0\" . \"22.1\") (\"6.1\" . \"22.1\")
- (\"7.0\" . \"22.1\") (\"7.1\" . \"22.1\")
- (\"7.2\" . \"22.1\") (\"7.3\" . \"22.1\")
- (\"7.4\" . \"22.1\") (\"8.0\" . \"22.1\")))
-
-The value of PACKAGE needs to be unique and it needs to match the
-PACKAGE value appearing in the :package-version keyword. Since
-the user might see the value in a error message, a good choice is
-the official name of the package, such as MH-E or Gnus.")
-
-(defalias 'customize-changed 'customize-changed-options)
-
-(autoload 'customize-changed-options "cus-edit" "\
-Customize all settings whose meanings have changed in Emacs itself.
-This includes new user options and faces, and new customization
-groups, as well as older options and faces whose meanings or
-default values have changed since the previous major Emacs
-release.
-
-With argument SINCE-VERSION (a string), customize all settings
-that were added or redefined since that version.
-
-\(fn &optional SINCE-VERSION)" t nil)
-
-(autoload 'customize-face "cus-edit" "\
-Customize FACE, which should be a face name or nil.
-If FACE is nil, customize all faces. If FACE is actually a
-face-alias, customize the face it is aliased to.
-
-If OTHER-WINDOW is non-nil, display in another window.
-
-Interactively, when point is on text which has a face specified,
-suggest to customize that face, if it's customizable.
-
-\(fn &optional FACE OTHER-WINDOW)" t nil)
-
-(autoload 'customize-face-other-window "cus-edit" "\
-Show customization buffer for face FACE in other window.
-If FACE is actually a face-alias, customize the face it is aliased to.
-
-Interactively, when point is on text which has a face specified,
-suggest to customize that face, if it's customizable.
-
-\(fn &optional FACE)" t nil)
-
-(autoload 'customize-unsaved "cus-edit" "\
-Customize all options and faces set in this session but not saved.
-
-\(fn)" t nil)
-
-(autoload 'customize-rogue "cus-edit" "\
-Customize all user variables modified outside customize.
-
-\(fn)" t nil)
-
-(autoload 'customize-saved "cus-edit" "\
-Customize all saved options and faces.
-
-\(fn)" t nil)
-
-(autoload 'customize-apropos "cus-edit" "\
-Customize loaded options, faces and groups matching PATTERN.
-PATTERN can be a word, a list of words (separated by spaces),
-or a regexp (using some regexp special characters). If it is a word,
-search for matches for that word as a substring. If it is a list of words,
-search for matches for any two (or more) of those words.
-
-If TYPE is `options', include only options.
-If TYPE is `faces', include only faces.
-If TYPE is `groups', include only groups.
-
-\(fn PATTERN &optional TYPE)" t nil)
-
-(autoload 'customize-apropos-options "cus-edit" "\
-Customize all loaded customizable options matching REGEXP.
-
-\(fn REGEXP &optional IGNORED)" t nil)
-
-(autoload 'customize-apropos-faces "cus-edit" "\
-Customize all loaded faces matching REGEXP.
-
-\(fn REGEXP)" t nil)
-
-(autoload 'customize-apropos-groups "cus-edit" "\
-Customize all loaded groups matching REGEXP.
-
-\(fn REGEXP)" t nil)
-
-(autoload 'custom-buffer-create "cus-edit" "\
-Create a buffer containing OPTIONS.
-Optional NAME is the name of the buffer.
-OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
-SYMBOL is a customization option, and WIDGET is a widget for editing
-that option.
-
-\(fn OPTIONS &optional NAME DESCRIPTION)" nil nil)
-
-(autoload 'custom-buffer-create-other-window "cus-edit" "\
-Create a buffer containing OPTIONS, and display it in another window.
-The result includes selecting that window.
-Optional NAME is the name of the buffer.
-OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
-SYMBOL is a customization option, and WIDGET is a widget for editing
-that option.
-
-\(fn OPTIONS &optional NAME DESCRIPTION)" nil nil)
-
-(autoload 'customize-browse "cus-edit" "\
-Create a tree browser for the customize hierarchy.
-
-\(fn &optional GROUP)" t nil)
-
-(defvar custom-file nil "\
-File used for storing customization information.
-The default is nil, which means to use your init file
-as specified by `user-init-file'. If the value is not nil,
-it should be an absolute file name.
-
-You can set this option through Custom, if you carefully read the
-last paragraph below. However, usually it is simpler to write
-something like the following in your init file:
-
-\(setq custom-file \"~/.emacs-custom.el\")
-\(load custom-file)
-
-Note that both lines are necessary: the first line tells Custom to
-save all customizations in this file, but does not load it.
-
-When you change this variable outside Custom, look in the
-previous custom file (usually your init file) for the
-forms `(custom-set-variables ...)' and `(custom-set-faces ...)',
-and copy them (whichever ones you find) to the new custom file.
-This will preserve your existing customizations.
-
-If you save this option using Custom, Custom will write all
-currently saved customizations, including the new one for this
-option itself, into the file you specify, overwriting any
-`custom-set-variables' and `custom-set-faces' forms already
-present in that file. It will not delete any customizations from
-the old custom file. You should do that manually if that is what you
-want. You also have to put something like `(load \"CUSTOM-FILE\")
-in your init file, where CUSTOM-FILE is the actual name of the
-file. Otherwise, Emacs will not load the file when it starts up,
-and hence will not set `custom-file' to that file either.")
-
-(custom-autoload 'custom-file "cus-edit" t)
-
-(autoload 'custom-save-all "cus-edit" "\
-Save all customizations in `custom-file'.
-
-\(fn)" nil nil)
-
-(autoload 'customize-save-customized "cus-edit" "\
-Save all user options which have been set in this session.
-
-\(fn)" t nil)
-
-(autoload 'custom-menu-create "cus-edit" "\
-Create menu for customization group SYMBOL.
-The menu is in a format applicable to `easy-menu-define'.
-
-\(fn SYMBOL)" nil nil)
-
-(autoload 'customize-menu-create "cus-edit" "\
-Return a customize menu for customization group SYMBOL.
-If optional NAME is given, use that as the name of the menu.
-Otherwise the menu will be named `Customize'.
-The format is suitable for use with `easy-menu-define'.
-
-\(fn SYMBOL &optional NAME)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (customize-themes describe-theme custom-theme-visit-theme
-;;;;;; customize-create-theme) "cus-theme" "cus-theme.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from cus-theme.el
-
-(autoload 'customize-create-theme "cus-theme" "\
-Create or edit a custom theme.
-THEME, if non-nil, should be an existing theme to edit. If THEME
-is `user', the resulting *Custom Theme* buffer also contains a
-checkbox for removing the theme settings specified in the buffer
-from the Custom save file.
-BUFFER, if non-nil, should be a buffer to use; the default is
-named *Custom Theme*.
-
-\(fn &optional THEME BUFFER)" t nil)
-
-(autoload 'custom-theme-visit-theme "cus-theme" "\
-Set up a Custom buffer to edit custom theme THEME.
-
-\(fn THEME)" t nil)
-
-(autoload 'describe-theme "cus-theme" "\
-Display a description of the Custom theme THEME (a symbol).
-
-\(fn THEME)" t nil)
-
-(autoload 'customize-themes "cus-theme" "\
-Display a selectable list of Custom themes.
-When called from Lisp, BUFFER should be the buffer to use; if
-omitted, a buffer named *Custom Themes* is used.
-
-\(fn &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (cvs-status-mode) "cvs-status" "vc/cvs-status.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/cvs-status.el
-
-(autoload 'cvs-status-mode "cvs-status" "\
-Mode used for cvs status output.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (global-cwarn-mode cwarn-mode) "cwarn" "progmodes/cwarn.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/cwarn.el
-
-(autoload 'cwarn-mode "cwarn" "\
-Minor mode that highlights suspicious C and C++ constructions.
-
-Suspicious constructs are highlighted using `font-lock-warning-face'.
-
-Note, in addition to enabling this minor mode, the major mode must
-be included in the variable `cwarn-configuration'. By default C and
-C++ modes are included.
-
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-(define-obsolete-function-alias 'turn-on-cwarn-mode 'cwarn-mode "24.1")
-
-(defvar global-cwarn-mode nil "\
-Non-nil if Global-Cwarn mode is enabled.
-See the command `global-cwarn-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-cwarn-mode'.")
-
-(custom-autoload 'global-cwarn-mode "cwarn" nil)
-
-(autoload 'global-cwarn-mode "cwarn" "\
-Toggle Cwarn mode in all buffers.
-With prefix ARG, enable Global-Cwarn mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Cwarn mode is enabled in all buffers where
-`turn-on-cwarn-mode-if-enabled' would do it.
-See `cwarn-mode' for more information on Cwarn mode.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char
-;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from language/cyril-util.el
-
-(autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\
-Return KOI8-R external character code of CHAR if appropriate.
-
-\(fn CHAR)" nil nil)
-
-(autoload 'cyrillic-encode-alternativnyj-char "cyril-util" "\
-Return ALTERNATIVNYJ external character code of CHAR if appropriate.
-
-\(fn CHAR)" nil nil)
-
-(autoload 'standard-display-cyrillic-translit "cyril-util" "\
-Display a cyrillic buffer using a transliteration.
-For readability, the table is slightly
-different from the one used for the input method `cyrillic-translit'.
-
-The argument is a string which specifies which language you are using;
-that affects the choice of transliterations slightly.
-Possible values are listed in `cyrillic-language-alist'.
-If the argument is t, we use the default cyrillic transliteration.
-If the argument is nil, we return the display table to its standard state.
-
-\(fn &optional CYRILLIC-LANGUAGE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from dabbrev.el
-(put 'dabbrev-case-fold-search 'risky-local-variable t)
-(put 'dabbrev-case-replace 'risky-local-variable t)
- (define-key esc-map "/" 'dabbrev-expand)
- (define-key esc-map [?\C-/] 'dabbrev-completion)
-
-(autoload 'dabbrev-completion "dabbrev" "\
-Completion on current word.
-Like \\[dabbrev-expand] but finds all expansions in the current buffer
-and presents suggestions for completion.
-
-With a prefix argument ARG, it searches all buffers accepted by the
-function pointed out by `dabbrev-friend-buffer-function' to find the
-completions.
-
-If the prefix argument is 16 (which comes from \\[universal-argument] \\[universal-argument]),
-then it searches *all* buffers.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'dabbrev-expand "dabbrev" "\
-Expand previous word \"dynamically\".
-
-Expands to the most recent, preceding word for which this is a prefix.
-If no suitable preceding word is found, words following point are
-considered. If still no suitable word is found, then look in the
-buffers accepted by the function pointed out by variable
-`dabbrev-friend-buffer-function'.
-
-A positive prefix argument, N, says to take the Nth backward *distinct*
-possibility. A negative argument says search forward.
-
-If the cursor has not moved from the end of the previous expansion and
-no argument is given, replace the previously-made expansion
-with the next possible expansion not yet tried.
-
-The variable `dabbrev-backward-only' may be used to limit the
-direction of search to backward if set non-nil.
-
-See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion].
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (data-debug-new-buffer) "data-debug" "cedet/data-debug.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cedet/data-debug.el
-
-(autoload 'data-debug-new-buffer "data-debug" "\
-Create a new data-debug buffer with NAME.
-
-\(fn NAME)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from net/dbus.el
-
-(autoload 'dbus-handle-event "dbus" "\
-Handle events from the D-Bus.
-EVENT is a D-Bus event, see `dbus-check-event'. HANDLER, being
-part of the event, is called with arguments ARGS.
-If the HANDLER returns a `dbus-error', it is propagated as return message.
-
-\(fn EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (20763
-;;;;;; 5110 492774 0))
-;;; Generated autoloads from progmodes/dcl-mode.el
-
-(autoload 'dcl-mode "dcl-mode" "\
-Major mode for editing DCL-files.
-
-This mode indents command lines in blocks. (A block is commands between
-THEN-ELSE-ENDIF and between lines matching dcl-block-begin-regexp and
-dcl-block-end-regexp.)
-
-Labels are indented to a fixed position unless they begin or end a block.
-Whole-line comments (matching dcl-comment-line-regexp) are not indented.
-Data lines are not indented.
-
-Key bindings:
-
-\\{dcl-mode-map}
-Commands not usually bound to keys:
-
-\\[dcl-save-nondefault-options] Save changed options
-\\[dcl-save-all-options] Save all options
-\\[dcl-save-option] Save any option
-\\[dcl-save-mode] Save buffer mode
-
-Variables controlling indentation style and extra features:
-
- dcl-basic-offset
- Extra indentation within blocks.
-
- dcl-continuation-offset
- Extra indentation for continued lines.
-
- dcl-margin-offset
- Indentation for the first command line in a file or SUBROUTINE.
-
- dcl-margin-label-offset
- Indentation for a label.
-
- dcl-comment-line-regexp
- Lines matching this regexp will not be indented.
-
- dcl-block-begin-regexp
- dcl-block-end-regexp
- Regexps that match command lines that begin and end, respectively,
- a block of command lines that will be given extra indentation.
- Command lines between THEN-ELSE-ENDIF are always indented; these variables
- make it possible to define other places to indent.
- Set to nil to disable this feature.
-
- dcl-calc-command-indent-function
- Can be set to a function that customizes indentation for command lines.
- Two such functions are included in the package:
- dcl-calc-command-indent-multiple
- dcl-calc-command-indent-hang
-
- dcl-calc-cont-indent-function
- Can be set to a function that customizes indentation for continued lines.
- One such function is included in the package:
- dcl-calc-cont-indent-relative (set by default)
-
- dcl-tab-always-indent
- If t, pressing TAB always indents the current line.
- If nil, pressing TAB indents the current line if point is at the left
- margin.
-
- dcl-electric-characters
- Non-nil causes lines to be indented at once when a label, ELSE or ENDIF is
- typed.
-
- dcl-electric-reindent-regexps
- Use this variable and function dcl-electric-character to customize
- which words trigger electric indentation.
-
- dcl-tempo-comma
- dcl-tempo-left-paren
- dcl-tempo-right-paren
- These variables control the look of expanded templates.
-
- dcl-imenu-generic-expression
- Default value for imenu-generic-expression. The default includes
- SUBROUTINE labels in the main listing and sub-listings for
- other labels, CALL, GOTO and GOSUB statements.
-
- dcl-imenu-label-labels
- dcl-imenu-label-goto
- dcl-imenu-label-gosub
- dcl-imenu-label-call
- Change the text that is used as sub-listing labels in imenu.
-
-Loading this package calls the value of the variable
-`dcl-mode-load-hook' with no args, if that value is non-nil.
-Turning on DCL mode calls the value of the variable `dcl-mode-hook'
-with no args, if that value is non-nil.
-
-
-The following example uses the default values for all variables:
-
-$! This is a comment line that is not indented (it matches
-$! dcl-comment-line-regexp)
-$! Next follows the first command line. It is indented dcl-margin-offset.
-$ i = 1
-$ ! Other comments are indented like command lines.
-$ ! A margin label indented dcl-margin-label-offset:
-$ label:
-$ if i.eq.1
-$ then
-$ ! Lines between THEN-ELSE and ELSE-ENDIF are
-$ ! indented dcl-basic-offset
-$ loop1: ! This matches dcl-block-begin-regexp...
-$ ! ...so this line is indented dcl-basic-offset
-$ text = \"This \" + - ! is a continued line
- \"lined up with the command line\"
-$ type sys$input
-Data lines are not indented at all.
-$ endloop1: ! This matches dcl-block-end-regexp
-$ endif
-$
-
-
-There is some minimal font-lock support (see vars
-`dcl-font-lock-defaults' and `dcl-font-lock-keywords').
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug"
-;;;;;; "emacs-lisp/debug.el" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/debug.el
-
-(setq debugger 'debug)
-
-(autoload 'debug "debug" "\
-Enter debugger. \\<debugger-mode-map>`\\[debugger-continue]' returns from the debugger.
-Arguments are mainly for use when this is called from the internals
-of the evaluator.
-
-You may call with no args, or you may pass nil as the first arg and
-any other args you like. In that case, the list of args after the
-first will be printed into the backtrace buffer.
-
-\(fn &rest DEBUGGER-ARGS)" t nil)
-
-(autoload 'debug-on-entry "debug" "\
-Request FUNCTION to invoke debugger each time it is called.
-
-When called interactively, prompt for FUNCTION in the minibuffer.
-
-This works by modifying the definition of FUNCTION. If you tell the
-debugger to continue, FUNCTION's execution proceeds. If FUNCTION is a
-normal function or a macro written in Lisp, you can also step through
-its execution. FUNCTION can also be a primitive that is not a special
-form, in which case stepping is not possible. Break-on-entry for
-primitive functions only works when that function is called from Lisp.
-
-Use \\[cancel-debug-on-entry] to cancel the effect of this command.
-Redefining FUNCTION also cancels it.
-
-\(fn FUNCTION)" t nil)
-
-(autoload 'cancel-debug-on-entry "debug" "\
-Undo effect of \\[debug-on-entry] on FUNCTION.
-If FUNCTION is nil, cancel debug-on-entry for all functions.
-When called interactively, prompt for FUNCTION in the minibuffer.
-To specify a nil argument interactively, exit with an empty minibuffer.
-
-\(fn &optional FUNCTION)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from play/decipher.el
-
-(autoload 'decipher "decipher" "\
-Format a buffer of ciphertext for cryptanalysis and enter Decipher mode.
-
-\(fn)" t nil)
-
-(autoload 'decipher-mode "decipher" "\
-Major mode for decrypting monoalphabetic substitution ciphers.
-Lower-case letters enter plaintext.
-Upper-case letters are commands.
-
-The buffer is made read-only so that normal Emacs commands cannot
-modify it.
-
-The most useful commands are:
-\\<decipher-mode-map>
-\\[decipher-digram-list] Display a list of all digrams & their frequency
-\\[decipher-frequency-count] Display the frequency of each ciphertext letter
-\\[decipher-adjacency-list] Show adjacency list for current letter (lists letters appearing next to it)
-\\[decipher-make-checkpoint] Save the current cipher alphabet (checkpoint)
-\\[decipher-restore-checkpoint] Restore a saved cipher alphabet (checkpoint)
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (delimit-columns-rectangle delimit-columns-region
-;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from delim-col.el
-
-(autoload 'delimit-columns-customize "delim-col" "\
-Customization of `columns' group.
-
-\(fn)" t nil)
-
-(autoload 'delimit-columns-region "delim-col" "\
-Prettify all columns in a text region.
-
-START and END delimits the text region.
-
-\(fn START END)" t nil)
-
-(autoload 'delimit-columns-rectangle "delim-col" "\
-Prettify all columns in a text rectangle.
-
-START and END delimits the corners of text rectangle.
-
-\(fn START END)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from progmodes/delphi.el
-
-(autoload 'delphi-mode "delphi" "\
-Major mode for editing Delphi code. \\<delphi-mode-map>
-\\[delphi-tab] - Indents the current line (or region, if Transient Mark mode
- is enabled and the region is active) of Delphi code.
-\\[delphi-find-unit] - Search for a Delphi source file.
-\\[delphi-fill-comment] - Fill the current comment.
-\\[delphi-new-comment-line] - If in a // comment, do a new comment line.
-
-\\[indent-region] also works for indenting a whole region.
-
-Customization:
-
- `delphi-indent-level' (default 3)
- Indentation of Delphi statements with respect to containing block.
- `delphi-compound-block-indent' (default 0)
- Extra indentation for blocks in compound statements.
- `delphi-case-label-indent' (default 0)
- Extra indentation for case statement labels.
- `delphi-tab-always-indents' (default t)
- Non-nil means TAB in Delphi mode should always reindent the current line,
- regardless of where in the line point is when the TAB command is used.
- `delphi-newline-always-indents' (default t)
- Non-nil means NEWLINE in Delphi mode should always reindent the current
- line, insert a blank line and move to the default indent column of the
- blank line.
- `delphi-search-path' (default .)
- Directories to search when finding external units.
- `delphi-verbose' (default nil)
- If true then Delphi token processing progress is reported to the user.
-
-Coloring:
-
- `delphi-comment-face' (default font-lock-comment-face)
- Face used to color Delphi comments.
- `delphi-string-face' (default font-lock-string-face)
- Face used to color Delphi strings.
- `delphi-keyword-face' (default font-lock-keyword-face)
- Face used to color Delphi keywords.
- `delphi-other-face' (default nil)
- Face used to color everything else.
-
-Turning on Delphi mode calls the value of the variable `delphi-mode-hook'
-with no args, if that value is non-nil.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from delsel.el
-
-(defalias 'pending-delete-mode 'delete-selection-mode)
-
-(defvar delete-selection-mode nil "\
-Non-nil if Delete-Selection mode is enabled.
-See the command `delete-selection-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `delete-selection-mode'.")
-
-(custom-autoload 'delete-selection-mode "delsel" nil)
-
-(autoload 'delete-selection-mode "delsel" "\
-Toggle Delete Selection mode.
-With a prefix argument ARG, enable Delete Selection mode if ARG
-is positive, and disable it otherwise. If called from Lisp,
-enable the mode if ARG is omitted or nil.
-
-When Delete Selection mode is enabled, Transient Mark mode is also
-enabled and typed text replaces the selection if the selection is
-active. Otherwise, typed text is just inserted at point regardless of
-any selection.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode)
-;;;;;; "derived" "emacs-lisp/derived.el" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/derived.el
-
-(autoload 'define-derived-mode "derived" "\
-Create a new mode as a variant of an existing mode.
-
-The arguments to this command are as follow:
-
-CHILD: the name of the command for the derived mode.
-PARENT: the name of the command for the parent mode (e.g. `text-mode')
- or nil if there is no parent.
-NAME: a string which will appear in the status line (e.g. \"Hypertext\")
-DOCSTRING: an optional documentation string--if you do not supply one,
- the function will attempt to invent something useful.
-BODY: forms to execute just before running the
- hooks for the new mode. Do not use `interactive' here.
-
-BODY can start with a bunch of keyword arguments. The following keyword
- arguments are currently understood:
-:group GROUP
- Declare the customization group that corresponds to this mode.
- The command `customize-mode' uses this.
-:syntax-table TABLE
- Use TABLE instead of the default (CHILD-syntax-table).
- A nil value means to simply use the same syntax-table as the parent.
-:abbrev-table TABLE
- Use TABLE instead of the default (CHILD-abbrev-table).
- A nil value means to simply use the same abbrev-table as the parent.
-
-Here is how you could define LaTeX-Thesis mode as a variant of LaTeX mode:
-
- (define-derived-mode LaTeX-thesis-mode LaTeX-mode \"LaTeX-Thesis\")
-
-You could then make new key bindings for `LaTeX-thesis-mode-map'
-without changing regular LaTeX mode. In this example, BODY is empty,
-and DOCSTRING is generated by default.
-
-On a more complicated level, the following command uses `sgml-mode' as
-the parent, and then sets the variable `case-fold-search' to nil:
-
- (define-derived-mode article-mode sgml-mode \"Article\"
- \"Major mode for editing technical articles.\"
- (setq case-fold-search nil))
-
-Note that if the documentation string had been left out, it would have
-been generated automatically, with a reference to the keymap.
-
-The new mode runs the hook constructed by the function
-`derived-mode-hook-name'.
-
-See Info node `(elisp)Derived Modes' for more details.
-
-\(fn CHILD PARENT NAME &optional DOCSTRING &rest BODY)" nil t)
-
-(put 'define-derived-mode 'doc-string-elt '4)
-
-(autoload 'derived-mode-init-mode-variables "derived" "\
-Initialize variables for a new MODE.
-Right now, if they don't already exist, set up a blank keymap, an
-empty syntax table, and an empty abbrev table -- these will be merged
-the first time the mode is used.
-
-\(fn MODE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (describe-char describe-text-properties) "descr-text"
-;;;;;; "descr-text.el" (20707 18685 911514 0))
-;;; Generated autoloads from descr-text.el
-
-(autoload 'describe-text-properties "descr-text" "\
-Describe widgets, buttons, overlays, and text properties at POS.
-POS is taken to be in BUFFER or in current buffer if nil.
-Interactively, describe them for the character after point.
-If optional second argument OUTPUT-BUFFER is non-nil,
-insert the output into that buffer, and don't initialize or clear it
-otherwise.
-
-\(fn POS &optional OUTPUT-BUFFER BUFFER)" t nil)
-
-(autoload 'describe-char "descr-text" "\
-Describe position POS (interactively, point) and the char after POS.
-POS is taken to be in BUFFER, or the current buffer if BUFFER is nil.
-The information is displayed in buffer `*Help*'.
-
-The position information includes POS; the total size of BUFFER; the
-region limits, if narrowed; the column number; and the horizontal
-scroll amount, if the buffer is horizontally scrolled.
-
-The character information includes the character code; charset and
-code points in it; syntax; category; how the character is encoded in
-BUFFER and in BUFFER's file; character composition information (if
-relevant); the font and font glyphs used to display the character;
-the character's canonical name and other properties defined by the
-Unicode Data Base; and widgets, buttons, overlays, and text properties
-relevant to POS.
-
-\(fn POS &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (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" (20707 18685 911514 0))
-;;; Generated autoloads from desktop.el
-
-(defvar desktop-save-mode nil "\
-Non-nil if Desktop-Save mode is enabled.
-See the command `desktop-save-mode' for a description of this minor mode.")
-
-(custom-autoload 'desktop-save-mode "desktop" nil)
-
-(autoload 'desktop-save-mode "desktop" "\
-Toggle desktop saving (Desktop Save mode).
-With a prefix argument ARG, enable Desktop Save mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-If Desktop Save mode is enabled, the state of Emacs is saved from
-one session to another. See variable `desktop-save' and function
-`desktop-read' for details.
-
-\(fn &optional ARG)" t nil)
-
-(defvar desktop-locals-to-save '(desktop-locals-to-save truncate-lines case-fold-search case-replace fill-column overwrite-mode change-log-default-name line-number-mode column-number-mode size-indication-mode buffer-file-coding-system indent-tabs-mode tab-width indicate-buffer-boundaries indicate-empty-lines show-trailing-whitespace) "\
-List of local variables to save for each buffer.
-The variables are saved only when they really are local. Conventional minor
-modes are restored automatically; they should not be listed here.")
-
-(custom-autoload 'desktop-locals-to-save "desktop" t)
-
-(defvar desktop-save-buffer nil "\
-When non-nil, save buffer status in desktop file.
-This variable becomes buffer local when set.
-
-If the value is a function, it is called by `desktop-save' with argument
-DESKTOP-DIRNAME to obtain auxiliary information to save in the desktop
-file along with the state of the buffer for which it was called.
-
-When file names are returned, they should be formatted using the call
-\"(desktop-file-name FILE-NAME DESKTOP-DIRNAME)\".
-
-Later, when `desktop-read' evaluates the desktop file, auxiliary information
-is passed as the argument DESKTOP-BUFFER-MISC to functions in
-`desktop-buffer-mode-handlers'.")
-
-(defvar desktop-buffer-mode-handlers nil "\
-Alist of major mode specific functions to restore a desktop buffer.
-Functions listed are called by `desktop-create-buffer' when `desktop-read'
-evaluates the desktop file. List elements must have the form
-
- (MAJOR-MODE . RESTORE-BUFFER-FUNCTION).
-
-Buffers with a major mode not specified here, are restored by the default
-handler `desktop-restore-file-buffer'.
-
-Handlers are called with argument list
-
- (DESKTOP-BUFFER-FILE-NAME DESKTOP-BUFFER-NAME DESKTOP-BUFFER-MISC)
-
-Furthermore, they may use the following variables:
-
- desktop-file-version
- desktop-buffer-major-mode
- desktop-buffer-minor-modes
- desktop-buffer-point
- desktop-buffer-mark
- desktop-buffer-read-only
- desktop-buffer-locals
-
-If a handler returns a buffer, then the saved mode settings
-and variable values for that buffer are copied into it.
-
-Modules that define a major mode that needs a special handler should contain
-code like
-
- (defun foo-restore-desktop-buffer
- ...
- (add-to-list 'desktop-buffer-mode-handlers
- '(foo-mode . foo-restore-desktop-buffer))
-
-Furthermore the major mode function must be autoloaded.")
-
-(put 'desktop-buffer-mode-handlers 'risky-local-variable t)
-
-(defvar desktop-minor-mode-handlers nil "\
-Alist of functions to restore non-standard minor modes.
-Functions are called by `desktop-create-buffer' to restore minor modes.
-List elements must have the form
-
- (MINOR-MODE . RESTORE-FUNCTION).
-
-Minor modes not specified here, are restored by the standard minor mode
-function.
-
-Handlers are called with argument list
-
- (DESKTOP-BUFFER-LOCALS)
-
-Furthermore, they may use the following variables:
-
- desktop-file-version
- desktop-buffer-file-name
- desktop-buffer-name
- desktop-buffer-major-mode
- desktop-buffer-minor-modes
- desktop-buffer-point
- desktop-buffer-mark
- desktop-buffer-read-only
- desktop-buffer-misc
-
-When a handler is called, the buffer has been created and the major mode has
-been set, but local variables listed in desktop-buffer-locals has not yet been
-created and set.
-
-Modules that define a minor mode that needs a special handler should contain
-code like
-
- (defun foo-desktop-restore
- ...
- (add-to-list 'desktop-minor-mode-handlers
- '(foo-mode . foo-desktop-restore))
-
-Furthermore the minor mode function must be autoloaded.
-
-See also `desktop-minor-mode-table'.")
-
-(put 'desktop-minor-mode-handlers 'risky-local-variable t)
-
-(autoload 'desktop-clear "desktop" "\
-Empty the Desktop.
-This kills all buffers except for internal ones and those with names matched by
-a regular expression in the list `desktop-clear-preserve-buffers'.
-Furthermore, it clears the variables listed in `desktop-globals-to-clear'.
-
-\(fn)" t nil)
-
-(autoload 'desktop-save "desktop" "\
-Save the desktop in a desktop file.
-Parameter DIRNAME specifies where to save the desktop file.
-Optional parameter RELEASE says whether we're done with this desktop.
-See also `desktop-base-file-name'.
-
-\(fn DIRNAME &optional RELEASE)" t nil)
-
-(autoload 'desktop-remove "desktop" "\
-Delete desktop file in `desktop-dirname'.
-This function also sets `desktop-dirname' to nil.
-
-\(fn)" t nil)
-
-(autoload 'desktop-read "desktop" "\
-Read and process the desktop file in directory DIRNAME.
-Look for a desktop file in DIRNAME, or if DIRNAME is omitted, look in
-directories listed in `desktop-path'. If a desktop file is found, it
-is processed and `desktop-after-read-hook' is run. If no desktop file
-is found, clear the desktop and run `desktop-no-desktop-file-hook'.
-This function is a no-op when Emacs is running in batch mode.
-It returns t if a desktop file was loaded, nil otherwise.
-
-\(fn &optional DIRNAME)" t nil)
-
-(autoload 'desktop-load-default "desktop" "\
-Load the `default' start-up library manually.
-Also inhibit further loading of it.
-
-\(fn)" nil nil)
-
-(make-obsolete 'desktop-load-default 'desktop-save-mode "22.1")
-
-(autoload 'desktop-change-dir "desktop" "\
-Change to desktop saved in DIRNAME.
-Kill the desktop as specified by variables `desktop-save-mode' and
-`desktop-save', then clear the desktop and load the desktop file in
-directory DIRNAME.
-
-\(fn DIRNAME)" t nil)
-
-(autoload 'desktop-save-in-desktop-dir "desktop" "\
-Save the desktop in directory `desktop-dirname'.
-
-\(fn)" t nil)
-
-(autoload 'desktop-revert "desktop" "\
-Revert to the last loaded desktop.
-
-\(fn)" t 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" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/deuglify.el
-
-(autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\
-Unwrap lines that appear to be wrapped citation lines.
-You can control what lines will be unwrapped by frobbing
-`gnus-outlook-deuglify-unwrap-min' and `gnus-outlook-deuglify-unwrap-max',
-indicating the minimum and maximum length of an unwrapped citation line. If
-NODISPLAY is non-nil, don't redisplay the article buffer.
-
-\(fn &optional NODISPLAY)" t nil)
-
-(autoload 'gnus-article-outlook-repair-attribution "deuglify" "\
-Repair a broken attribution line.
-If NODISPLAY is non-nil, don't redisplay the article buffer.
-
-\(fn &optional NODISPLAY)" t nil)
-
-(autoload 'gnus-outlook-deuglify-article "deuglify" "\
-Full deuglify of broken Outlook (Express) articles.
-Treat dumbquotes, unwrap lines, repair attribution and rearrange citation. If
-NODISPLAY is non-nil, don't redisplay the article buffer.
-
-\(fn &optional NODISPLAY)" t nil)
-
-(autoload 'gnus-article-outlook-deuglify-article "deuglify" "\
-Deuglify broken Outlook (Express) articles and redisplay.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib"
-;;;;;; "calendar/diary-lib.el" (20707 18685 911514 0))
-;;; Generated autoloads from calendar/diary-lib.el
-
-(autoload 'diary "diary-lib" "\
-Generate the diary window for ARG days starting with the current date.
-If no argument is provided, the number of days of diary entries is governed
-by the variable `diary-number-of-entries'. A value of ARG less than 1
-does nothing. This function is suitable for execution in an init file.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'diary-mail-entries "diary-lib" "\
-Send a mail message showing diary entries for next NDAYS days.
-If no prefix argument is given, NDAYS is set to `diary-mail-days'.
-Mail is sent to the address specified by `diary-mail-addr'.
-
-Here is an example of a script to call `diary-mail-entries',
-suitable for regular scheduling using cron (or at). Note that
-since `emacs -script' does not load your init file, you should
-ensure that all relevant variables are set.
-
-#!/usr/bin/emacs -script
-;; diary-rem.el - run the Emacs diary-reminder
-
-\(setq diary-mail-days 3
- diary-file \"/path/to/diary.file\"
- calendar-date-style 'european
- diary-mail-addr \"user@host.name\")
-
-\(diary-mail-entries)
-
-# diary-rem.el ends here
-
-\(fn &optional NDAYS)" t nil)
-
-(autoload 'diary-mode "diary-lib" "\
-Major mode for editing the diary file.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (diff-buffer-with-file diff-latest-backup-file
-;;;;;; diff-backup diff diff-command diff-switches) "diff" "vc/diff.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/diff.el
-
-(defvar diff-switches (purecopy "-c") "\
-A string or list of strings specifying switches to be passed to diff.")
-
-(custom-autoload 'diff-switches "diff" t)
-
-(defvar diff-command (purecopy "diff") "\
-The command to use to run diff.")
-
-(custom-autoload 'diff-command "diff" t)
-
-(autoload 'diff "diff" "\
-Find and display the differences between OLD and NEW files.
-When called interactively, read NEW, then OLD, using the
-minibuffer. The default for NEW is the current buffer's file
-name, and the default for OLD is a backup file for NEW, if one
-exists. If NO-ASYNC is non-nil, call diff synchronously.
-
-When called interactively with a prefix argument, prompt
-interactively for diff switches. Otherwise, the switches
-specified in `diff-switches' are passed to the diff command.
-
-\(fn OLD NEW &optional SWITCHES NO-ASYNC)" t nil)
-
-(autoload 'diff-backup "diff" "\
-Diff this file with its backup file or vice versa.
-Uses the latest backup, if there are several numerical backups.
-If this file is a backup, diff it with its original.
-The backup file is the first file given to `diff'.
-With prefix arg, prompt for diff switches.
-
-\(fn FILE &optional SWITCHES)" t nil)
-
-(autoload 'diff-latest-backup-file "diff" "\
-Return the latest existing backup of FILE, or nil.
-
-\(fn FN)" nil nil)
-
-(autoload 'diff-buffer-with-file "diff" "\
-View the differences between BUFFER and its associated file.
-This requires the external program `diff' to be in your `exec-path'.
-
-\(fn &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "vc/diff-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/diff-mode.el
-
-(autoload 'diff-mode "diff-mode" "\
-Major mode for viewing/editing context diffs.
-Supports unified and context diffs as well as (to a lesser extent)
-normal diffs.
-
-When the buffer is read-only, the ESC prefix is not necessary.
-If you edit the buffer manually, diff-mode will try to update the hunk
-headers for you on-the-fly.
-
-You can also switch between context diff and unified diff with \\[diff-context->unified],
-or vice versa with \\[diff-unified->context] and you can also reverse the direction of
-a diff with \\[diff-reverse-direction].
-
- \\{diff-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'diff-minor-mode "diff-mode" "\
-Toggle Diff minor mode.
-With a prefix argument ARG, enable Diff minor mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-\\{diff-minor-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (dig) "dig" "net/dig.el" (20707 18685 911514 0))
-;;; Generated autoloads from net/dig.el
-
-(autoload 'dig "dig" "\
-Query addresses of a DOMAIN using dig, by calling `dig-invoke'.
-Optional arguments are passed to `dig-invoke'.
-
-\(fn DOMAIN &optional QUERY-TYPE QUERY-CLASS QUERY-OPTION DIG-OPTION SERVER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window
-;;;;;; dired dired-listing-switches) "dired" "dired.el" (20730 4700
-;;;;;; 471174 0))
-;;; Generated autoloads from dired.el
-
-(defvar dired-listing-switches (purecopy "-al") "\
-Switches passed to `ls' for Dired. MUST contain the `l' option.
-May contain all other options that don't contradict `-l';
-may contain even `F', `b', `i' and `s'. See also the variable
-`dired-ls-F-marks-symlinks' concerning the `F' switch.
-On systems such as MS-DOS and MS-Windows, which use `ls' emulation in Lisp,
-some of the `ls' switches are not supported; see the doc string of
-`insert-directory' in `ls-lisp.el' for more details.")
-
-(custom-autoload 'dired-listing-switches "dired" t)
-
-(defvar dired-directory nil "\
-The directory name or wildcard spec that this dired directory lists.
-Local to each dired buffer. May be a list, in which case the car is the
-directory name and the cdr is the list of files to mention.
-The directory name must be absolute, but need not be fully expanded.")
- (define-key ctl-x-map "d" 'dired)
-
-(autoload 'dired "dired" "\
-\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it.
-Optional second argument SWITCHES specifies the `ls' options used.
-\(Interactively, use a prefix argument to be able to specify SWITCHES.)
-Dired displays a list of files in DIRNAME (which may also have
-shell wildcards appended to select certain files). If DIRNAME is a cons,
-its first element is taken as the directory name and the rest as an explicit
-list of files to make directory entries for.
-\\<dired-mode-map>You can flag files for deletion with \\[dired-flag-file-deletion] and then
-delete them by typing \\[dired-do-flagged-delete].
-Type \\[describe-mode] after entering Dired for more info.
-
-If DIRNAME is already in a dired buffer, that buffer is used without refresh.
-
-\(fn DIRNAME &optional SWITCHES)" t nil)
- (define-key ctl-x-4-map "d" 'dired-other-window)
-
-(autoload 'dired-other-window "dired" "\
-\"Edit\" directory DIRNAME. Like `dired' but selects in another window.
-
-\(fn DIRNAME &optional SWITCHES)" t nil)
- (define-key ctl-x-5-map "d" 'dired-other-frame)
-
-(autoload 'dired-other-frame "dired" "\
-\"Edit\" directory DIRNAME. Like `dired' but makes a new frame.
-
-\(fn DIRNAME &optional SWITCHES)" t nil)
-
-(autoload 'dired-noselect "dired" "\
-Like `dired' but returns the dired buffer as value, does not select it.
-
-\(fn DIR-OR-LIST &optional SWITCHES)" nil nil)
-
-(autoload 'dired-mode "dired" "\
-Mode for \"editing\" directory listings.
-In Dired, you are \"editing\" a list of the files in a directory and
- (optionally) its subdirectories, in the format of `ls -lR'.
- Each directory is a page: use \\[backward-page] and \\[forward-page] to move pagewise.
-\"Editing\" means that you can run shell commands on files, visit,
- compress, load or byte-compile them, change their file attributes
- and insert subdirectories into the same buffer. You can \"mark\"
- files for later commands or \"flag\" them for deletion, either file
- by file or all files matching certain criteria.
-You can move using the usual cursor motion commands.\\<dired-mode-map>
-The buffer is read-only. Digits are prefix arguments.
-Type \\[dired-flag-file-deletion] to flag a file `D' for deletion.
-Type \\[dired-mark] to Mark a file or subdirectory for later commands.
- Most commands operate on the marked files and use the current file
- if no files are marked. Use a numeric prefix argument to operate on
- the next ARG (or previous -ARG if ARG<0) files, or just `1'
- to operate on the current file only. Prefix arguments override marks.
- Mark-using commands display a list of failures afterwards. Type \\[dired-summary]
- to see why something went wrong.
-Type \\[dired-unmark] to Unmark a file or all files of an inserted subdirectory.
-Type \\[dired-unmark-backward] to back up one line and unmark or unflag.
-Type \\[dired-do-flagged-delete] to delete (eXecute) the files flagged `D'.
-Type \\[dired-find-file] to Find the current line's file
- (or dired it in another buffer, if it is a directory).
-Type \\[dired-find-file-other-window] to find file or dired directory in Other window.
-Type \\[dired-maybe-insert-subdir] to Insert a subdirectory in this buffer.
-Type \\[dired-do-rename] to Rename a file or move the marked files to another directory.
-Type \\[dired-do-copy] to Copy files.
-Type \\[dired-sort-toggle-or-edit] to toggle Sorting by name/date or change the `ls' switches.
-Type \\[revert-buffer] to read all currently expanded directories aGain.
- This retains all marks and hides subdirs again that were hidden before.
-Use `SPC' and `DEL' to move down and up by lines.
-
-If Dired ever gets confused, you can either type \\[revert-buffer] to read the
-directories again, type \\[dired-do-redisplay] to relist the file at point or the marked files or a
-subdirectory, or type \\[dired-build-subdir-alist] to parse the buffer
-again for the directory tree.
-
-Customization variables (rename this buffer and type \\[describe-variable] on each line
-for more info):
-
- `dired-listing-switches'
- `dired-trivial-filenames'
- `dired-marker-char'
- `dired-del-marker'
- `dired-keep-marker-rename'
- `dired-keep-marker-copy'
- `dired-keep-marker-hardlink'
- `dired-keep-marker-symlink'
-
-Hooks (use \\[describe-variable] to see their documentation):
-
- `dired-before-readin-hook'
- `dired-after-readin-hook'
- `dired-mode-hook'
- `dired-load-hook'
-
-Keybindings:
-\\{dired-mode-map}
-
-\(fn &optional DIRNAME SWITCHES)" nil nil)
- (put 'dired-find-alternate-file 'disabled t)
-
-;;;***
-\f
-;;;### (autoloads (dirtrack dirtrack-mode) "dirtrack" "dirtrack.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from dirtrack.el
-
-(autoload 'dirtrack-mode "dirtrack" "\
-Toggle directory tracking in shell buffers (Dirtrack mode).
-With a prefix argument ARG, enable Dirtrack mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-This method requires that your shell prompt contain the current
-working directory at all times, and that you set the variable
-`dirtrack-list' to match the prompt.
-
-This is an alternative to `shell-dirtrack-mode', which works by
-tracking `cd' and similar commands which change the shell working
-directory.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'dirtrack "dirtrack" "\
-Determine the current directory from the process output for a prompt.
-This filter function is used by `dirtrack-mode'. It looks for
-the prompt specified by `dirtrack-list', and calls
-`shell-process-cd' if the directory seems to have changed away
-from `default-directory'.
-
-\(fn INPUT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/disass.el
-
-(autoload 'disassemble "disass" "\
-Print disassembled code for OBJECT in (optional) BUFFER.
-OBJECT can be a symbol defined as a function, or a function itself
-\(a lambda expression or a compiled-function object).
-If OBJECT is not already compiled, we compile it, but do not
-redefine OBJECT if it is a symbol.
-
-\(fn OBJECT &optional BUFFER INDENT INTERACTIVE-P)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (standard-display-european glyph-face glyph-char
-;;;;;; make-glyph-code create-glyph standard-display-underline 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" (20707 18685 911514 0))
-;;; Generated autoloads from disp-table.el
-
-(autoload 'make-display-table "disp-table" "\
-Return a new, empty display table.
-
-\(fn)" nil nil)
-
-(autoload 'display-table-slot "disp-table" "\
-Return the value of the extra slot in DISPLAY-TABLE named SLOT.
-SLOT may be a number from 0 to 5 inclusive, or a slot name (symbol).
-Valid symbols are `truncation', `wrap', `escape', `control',
-`selective-display', and `vertical-border'.
-
-\(fn DISPLAY-TABLE SLOT)" nil nil)
-
-(autoload 'set-display-table-slot "disp-table" "\
-Set the value of the extra slot in DISPLAY-TABLE named SLOT to VALUE.
-SLOT may be a number from 0 to 5 inclusive, or a name (symbol).
-Valid symbols are `truncation', `wrap', `escape', `control',
-`selective-display', and `vertical-border'.
-
-\(fn DISPLAY-TABLE SLOT VALUE)" nil nil)
-
-(autoload 'describe-display-table "disp-table" "\
-Describe the display table DT in a help buffer.
-
-\(fn DT)" nil nil)
-
-(autoload 'describe-current-display-table "disp-table" "\
-Describe the display table in use in the selected window and buffer.
-
-\(fn)" t nil)
-
-(autoload 'standard-display-8bit "disp-table" "\
-Display characters representing raw bytes in the range L to H literally.
-
-On a terminal display, each character in the range is displayed
-by sending the corresponding byte directly to the terminal.
-
-On a graphic display, each character in the range is displayed
-using the default font by a glyph whose code is the corresponding
-byte.
-
-Note that ASCII printable characters (SPC to TILDA) are displayed
-in the default way after this call.
-
-\(fn L H)" nil nil)
-
-(autoload 'standard-display-default "disp-table" "\
-Display characters in the range L to H using the default notation.
-
-\(fn L H)" nil nil)
-
-(autoload 'standard-display-ascii "disp-table" "\
-Display character C using printable string S.
-
-\(fn C S)" nil nil)
-
-(autoload 'standard-display-g1 "disp-table" "\
-Display character C as character SC in the g1 character set.
-This function assumes that your terminal uses the SO/SI characters;
-it is meaningless for an X frame.
-
-\(fn C SC)" nil nil)
-
-(autoload 'standard-display-graphic "disp-table" "\
-Display character C as character GC in graphics character set.
-This function assumes VT100-compatible escapes; it is meaningless for an
-X frame.
-
-\(fn C GC)" nil nil)
-
-(autoload 'standard-display-underline "disp-table" "\
-Display character C as character UC plus underlining.
-
-\(fn C UC)" nil nil)
-
-(autoload 'create-glyph "disp-table" "\
-Allocate a glyph code to display by sending STRING to the terminal.
-
-\(fn STRING)" nil nil)
-
-(autoload 'make-glyph-code "disp-table" "\
-Return a glyph code representing char CHAR with face FACE.
-
-\(fn CHAR &optional FACE)" nil nil)
-
-(autoload 'glyph-char "disp-table" "\
-Return the character of glyph code GLYPH.
-
-\(fn GLYPH)" nil nil)
-
-(autoload 'glyph-face "disp-table" "\
-Return the face of glyph code GLYPH, or nil if glyph has default face.
-
-\(fn GLYPH)" nil nil)
-
-(autoload 'standard-display-european "disp-table" "\
-Semi-obsolete way to toggle display of ISO 8859 European characters.
-
-This function is semi-obsolete; you probably don't need it, or else you
-probably should use `set-language-environment' or `set-locale-environment'.
-
-This function enables European character display if ARG is positive,
-disables it if negative. Otherwise, it toggles European character display.
-
-When this mode is enabled, characters in the range of 160 to 255
-display not as octal escapes, but as accented characters. Codes 146
-and 160 display as apostrophe and space, even though they are not the
-ASCII codes for apostrophe and space.
-
-Enabling European character display with this command noninteractively
-from Lisp code also selects Latin-1 as the language environment.
-This provides increased compatibility for users who call this function
-in `.emacs'.
-
-\(fn ARG)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from play/dissociate.el
-
-(autoload 'dissociated-press "dissociate" "\
-Dissociate the text of the current buffer.
-Output goes in buffer named *Dissociation*,
-which is redisplayed each time text is added to it.
-Every so often the user must say whether to continue.
-If ARG is positive, require ARG chars of continuity.
-If ARG is negative, require -ARG words of continuity.
-Default is 2.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from dnd.el
-
-(defvar dnd-protocol-alist `((,(purecopy "^file:///") . dnd-open-local-file) (,(purecopy "^file://") . dnd-open-file) (,(purecopy "^file:") . dnd-open-local-file) (,(purecopy "^\\(https?\\|ftp\\|file\\|nfs\\)://") . dnd-open-file)) "\
-The functions to call for different protocols when a drop is made.
-This variable is used by `dnd-handle-one-url' and `dnd-handle-file-name'.
-The list contains of (REGEXP . FUNCTION) pairs.
-The functions shall take two arguments, URL, which is the URL dropped and
-ACTION which is the action to be performed for the drop (move, copy, link,
-private or ask).
-If no match is found here, and the value of `browse-url-browser-function'
-is a pair of (REGEXP . FUNCTION), those regexps are tried for a match.
-If no match is found, the URL is inserted as text by calling `dnd-insert-text'.
-The function shall return the action done (move, copy, link or private)
-if some action was made, or nil if the URL is ignored.")
-
-(custom-autoload 'dnd-protocol-alist "dnd" t)
-
-;;;***
-\f
-;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode"
-;;;;;; "textmodes/dns-mode.el" (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/dns-mode.el
-
-(autoload 'dns-mode "dns-mode" "\
-Major mode for viewing and editing DNS master files.
-This mode is inherited from text mode. It add syntax
-highlighting, and some commands for handling DNS master files.
-Its keymap inherits from `text-mode' and it has the same
-variables for customizing indentation. It has its own abbrev
-table and its own syntax table.
-
-Turning on DNS mode runs `dns-mode-hook'.
-
-\(fn)" t nil)
- (defalias 'zone-mode 'dns-mode)
-
-(autoload 'dns-mode-soa-increment-serial "dns-mode" "\
-Locate SOA record and increment the serial field.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (doc-view-bookmark-jump doc-view-minor-mode doc-view-mode-maybe
-;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from doc-view.el
-
-(autoload 'doc-view-mode-p "doc-view" "\
-Return non-nil if document type TYPE is available for `doc-view'.
-Document types are symbols like `dvi', `ps', `pdf', or `odf' (any
-OpenDocument format).
-
-\(fn TYPE)" nil nil)
-
-(autoload 'doc-view-mode "doc-view" "\
-Major mode in DocView buffers.
-
-DocView Mode is an Emacs document viewer. It displays PDF, PS
-and DVI files (as PNG images) in Emacs buffers.
-
-You can use \\<doc-view-mode-map>\\[doc-view-toggle-display] to
-toggle between displaying the document or editing it as text.
-\\{doc-view-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'doc-view-mode-maybe "doc-view" "\
-Switch to `doc-view-mode' if possible.
-If the required external tools are not available, then fallback
-to the next best mode.
-
-\(fn)" nil nil)
-
-(autoload 'doc-view-minor-mode "doc-view" "\
-Toggle displaying buffer via Doc View (Doc View minor mode).
-With a prefix argument ARG, enable Doc View minor mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-See the command `doc-view-mode' for more information on this mode.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'doc-view-bookmark-jump "doc-view" "\
-
-
-\(fn BMK)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (doctor) "doctor" "play/doctor.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from play/doctor.el
-
-(autoload 'doctor "doctor" "\
-Switch to *doctor* buffer and start giving psychotherapy.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (double-mode) "double" "double.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from double.el
-
-(autoload 'double-mode "double" "\
-Toggle special insertion on double keypresses (Double mode).
-With a prefix argument ARG, enable Double mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-When Double mode is enabled, some keys will insert different
-strings when pressed twice. See `double-map' for details.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from play/dunnet.el
-
-(autoload 'dunnet "dunnet" "\
-Switch to *dungeon* buffer and start game.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap
-;;;;;; define-globalized-minor-mode define-minor-mode) "easy-mmode"
-;;;;;; "emacs-lisp/easy-mmode.el" (20765 7114 233956 846000))
-;;; Generated autoloads from emacs-lisp/easy-mmode.el
-
-(defalias 'easy-mmode-define-minor-mode 'define-minor-mode)
-
-(autoload 'define-minor-mode "easy-mmode" "\
-Define a new minor mode MODE.
-This defines the toggle command MODE and (by default) a control variable
-MODE (you can override this with the :variable keyword, see below).
-DOC is the documentation for the mode toggle command.
-
-The defined mode command takes one optional (prefix) argument.
-Interactively with no prefix argument, it toggles the mode.
-A prefix argument enables the mode if the argument is positive,
-and disables it otherwise.
-
-When called from Lisp, the mode command toggles the mode if the
-argument is `toggle', disables the mode if the argument is a
-non-positive integer, and enables the mode otherwise (including
-if the argument is omitted or nil or a positive integer).
-
-If DOC is nil, give the mode command a basic doc-string
-documenting what its argument does.
-
-Optional INIT-VALUE is the initial value of the mode's variable.
-Optional LIGHTER is displayed in the mode line when the mode is on.
-Optional KEYMAP is the default keymap bound to the mode keymap.
- If non-nil, it should be a variable name (whose value is a keymap),
- or an expression that returns either a keymap or a list of
- arguments for `easy-mmode-define-keymap'. If you supply a KEYMAP
- argument that is not a symbol, this macro defines the variable
- MODE-map and gives it the value that KEYMAP specifies.
-
-BODY contains code to execute each time the mode is enabled or disabled.
- It is executed after toggling the mode, and before running MODE-hook.
- Before the actual body code, you can write keyword arguments, i.e.
- alternating keywords and values. These following special keywords
- are supported (other keywords are passed to `defcustom' if the minor
- mode is global):
-
-:group GROUP Custom group name to use in all generated `defcustom' forms.
- Defaults to MODE without the possible trailing \"-mode\".
- Don't use this default group name unless you have written a
- `defgroup' to define that group properly.
-:global GLOBAL If non-nil specifies that the minor mode is not meant to be
- buffer-local, so don't make the variable MODE buffer-local.
- By default, the mode is buffer-local.
-:init-value VAL Same as the INIT-VALUE argument.
- Not used if you also specify :variable.
-:lighter SPEC Same as the LIGHTER argument.
-:keymap MAP Same as the KEYMAP argument.
-:require SYM Same as in `defcustom'.
-:variable PLACE The location to use instead of the variable MODE to store
- the state of the mode. This can be simply a different
- named variable, or a generalized variable.
- PLACE can also be of the form (GET . SET), where GET is
- an expression that returns the current state, and SET is
- a function that takes one argument, the new state, and
- sets it. If you specify a :variable, this function does
- not define a MODE variable (nor any of the terms used
- in :variable).
-
-:after-hook A single lisp form which is evaluated after the mode hooks
- have been run. It should not be quoted.
-
-For example, you could write
- (define-minor-mode foo-mode \"If enabled, foo on you!\"
- :lighter \" Foo\" :require 'foo :global t :group 'hassle :version \"27.5\"
- ...BODY CODE...)
-
-\(fn MODE DOC &optional INIT-VALUE LIGHTER KEYMAP &rest BODY)" nil t)
-
-(put 'define-minor-mode 'doc-string-elt '2)
-
-(defalias 'easy-mmode-define-global-mode 'define-globalized-minor-mode)
-
-(defalias 'define-global-minor-mode 'define-globalized-minor-mode)
-
-(autoload 'define-globalized-minor-mode "easy-mmode" "\
-Make a global mode GLOBAL-MODE corresponding to buffer-local minor MODE.
-TURN-ON is a function that will be called with no args in every buffer
- and that should try to turn MODE on if applicable for that buffer.
-KEYS is a list of CL-style keyword arguments. As the minor mode
- defined by this function is always global, any :global keyword is
- ignored. Other keywords have the same meaning as in `define-minor-mode',
- which see. In particular, :group specifies the custom group.
- The most useful keywords are those that are passed on to the
- `defcustom'. It normally makes no sense to pass the :lighter
- or :keymap keywords to `define-globalized-minor-mode', since these
- are usually passed to the buffer-local version of the minor mode.
-
-If MODE's set-up depends on the major mode in effect when it was
-enabled, then disabling and reenabling MODE should make MODE work
-correctly with the current major mode. This is important to
-prevent problems with derived modes, that is, major modes that
-call another major mode in their body.
-
-\(fn GLOBAL-MODE MODE TURN-ON &rest KEYS)" nil t)
-
-(put 'define-globalized-minor-mode 'doc-string-elt '2)
-
-(autoload 'easy-mmode-define-keymap "easy-mmode" "\
-Return a keymap built from bindings BS.
-BS must be a list of (KEY . BINDING) where
-KEY and BINDINGS are suitable for `define-key'.
-Optional NAME is passed to `make-sparse-keymap'.
-Optional map M can be used to modify an existing map.
-ARGS is a list of additional keyword arguments.
-
-Valid keywords and arguments are:
-
- :name Name of the keymap; overrides NAME argument.
- :dense Non-nil for a dense keymap.
- :inherit Parent keymap.
- :group Ignored.
- :suppress Non-nil to call `suppress-keymap' on keymap,
- 'nodigits to suppress digits as prefix arguments.
-
-\(fn BS &optional NAME M ARGS)" nil nil)
-
-(autoload 'easy-mmode-defmap "easy-mmode" "\
-Define a constant M whose value is the result of `easy-mmode-define-keymap'.
-The M, BS, and ARGS arguments are as per that function. DOC is
-the constant's documentation.
-
-\(fn M BS DOC &rest ARGS)" nil t)
-
-(autoload 'easy-mmode-defsyntax "easy-mmode" "\
-Define variable ST as a syntax-table.
-CSS contains a list of syntax specifications of the form (CHAR . SYNTAX).
-
-\(fn ST CSS DOC &rest ARGS)" nil t)
-
-;;;***
-\f
-;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define
-;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/easymenu.el
-
-(autoload 'easy-menu-define "easymenu" "\
-Define a pop-up menu and/or menu bar menu specified by MENU.
-If SYMBOL is non-nil, define SYMBOL as a function to pop up the
-submenu defined by MENU, with DOC as its doc string.
-
-MAPS, if non-nil, should be a keymap or a list of keymaps; add
-the submenu defined by MENU to the keymap or each of the keymaps,
-as a top-level menu bar item.
-
-The first element of MENU must be a string. It is the menu bar
-item name. It may be followed by the following keyword argument
-pairs:
-
- :filter FUNCTION
- FUNCTION must be a function which, if called with one
- argument---the list of the other menu items---returns the
- items to actually display.
-
- :visible INCLUDE
- INCLUDE is an expression. The menu is visible if the
- expression evaluates to a non-nil value. `:included' is an
- alias for `:visible'.
-
- :active ENABLE
- ENABLE is an expression. The menu is enabled for selection
- if the expression evaluates to a non-nil value. `:enable' is
- an alias for `:active'.
-
-The rest of the elements in MENU are menu items.
-A menu item can be a vector of three elements:
-
- [NAME CALLBACK ENABLE]
-
-NAME is a string--the menu item name.
-
-CALLBACK is a command to run when the item is chosen, or an
-expression to evaluate when the item is chosen.
-
-ENABLE is an expression; the item is enabled for selection if the
-expression evaluates to a non-nil value.
-
-Alternatively, a menu item may have the form:
-
- [ NAME CALLBACK [ KEYWORD ARG ]... ]
-
-where NAME and CALLBACK have the same meanings as above, and each
-optional KEYWORD and ARG pair should be one of the following:
-
- :keys KEYS
- KEYS is a string; a keyboard equivalent to the menu item.
- This is normally not needed because keyboard equivalents are
- usually computed automatically. KEYS is expanded with
- `substitute-command-keys' before it is used.
-
- :key-sequence KEYS
- KEYS is a hint for speeding up Emacs's first display of the
- menu. It should be nil if you know that the menu item has no
- keyboard equivalent; otherwise it should be a string or
- vector specifying a keyboard equivalent for the menu item.
-
- :active ENABLE
- ENABLE is an expression; the item is enabled for selection
- whenever this expression's value is non-nil. `:enable' is an
- alias for `:active'.
-
- :visible INCLUDE
- INCLUDE is an expression; this item is only visible if this
- expression has a non-nil value. `:included' is an alias for
- `:visible'.
-
- :label FORM
- FORM is an expression that is dynamically evaluated and whose
- value serves as the menu item's label (the default is NAME).
-
- :suffix FORM
- FORM is an expression that is dynamically evaluated and whose
- value is concatenated with the menu entry's label.
-
- :style STYLE
- STYLE is a symbol describing the type of menu item; it should
- be `toggle' (a checkbox), or `radio' (a radio button), or any
- other value (meaning an ordinary menu item).
-
- :selected SELECTED
- SELECTED is an expression; the checkbox or radio button is
- selected whenever the expression's value is non-nil.
-
- :help HELP
- HELP is a string, the help to display for the menu item.
-
-Alternatively, a menu item can be a string. Then that string
-appears in the menu as unselectable text. A string consisting
-solely of dashes is displayed as a menu separator.
-
-Alternatively, a menu item can be a list with the same format as
-MENU. This is a submenu.
-
-\(fn SYMBOL MAPS DOC MENU)" nil t)
-
-(put 'easy-menu-define 'lisp-indent-function 'defun)
-
-(autoload 'easy-menu-do-define "easymenu" "\
-
-
-\(fn SYMBOL MAPS DOC MENU)" nil nil)
-
-(autoload 'easy-menu-create-menu "easymenu" "\
-Create a menu called MENU-NAME with items described in MENU-ITEMS.
-MENU-NAME is a string, the name of the menu. MENU-ITEMS is a list of items
-possibly preceded by keyword pairs as described in `easy-menu-define'.
-
-\(fn MENU-NAME MENU-ITEMS)" nil nil)
-
-(autoload 'easy-menu-change "easymenu" "\
-Change menu found at PATH as item NAME to contain ITEMS.
-PATH is a list of strings for locating the menu that
-should contain a submenu named NAME.
-ITEMS is a list of menu items, as in `easy-menu-define'.
-These items entirely replace the previous items in that submenu.
-
-If MAP is specified, it should normally be a keymap; nil stands for the local
-menu-bar keymap. It can also be a symbol, which has earlier been used as the
-first argument in a call to `easy-menu-define', or the value of such a symbol.
-
-If the menu located by PATH has no submenu named NAME, add one.
-If the optional argument BEFORE is present, add it just before
-the submenu named BEFORE, otherwise add it at the end of the menu.
-
-To implement dynamic menus, either call this from
-`menu-bar-update-hook' or use a menu filter.
-
-\(fn PATH NAME ITEMS &optional BEFORE MAP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (ebnf-pop-style ebnf-push-style ebnf-reset-style
-;;;;;; ebnf-apply-style ebnf-merge-style ebnf-delete-style ebnf-insert-style
-;;;;;; ebnf-find-style ebnf-setup ebnf-syntax-region ebnf-syntax-buffer
-;;;;;; ebnf-syntax-file ebnf-syntax-directory ebnf-eps-region ebnf-eps-buffer
-;;;;;; ebnf-eps-file 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" (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/ebnf2ps.el
-
-(autoload 'ebnf-customize "ebnf2ps" "\
-Customization for ebnf group.
-
-\(fn)" t nil)
-
-(autoload 'ebnf-print-directory "ebnf2ps" "\
-Generate and print a PostScript syntactic chart image of DIRECTORY.
-
-If DIRECTORY is nil, it's used `default-directory'.
-
-The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are
-processed.
-
-See also `ebnf-print-buffer'.
-
-\(fn &optional DIRECTORY)" t nil)
-
-(autoload 'ebnf-print-file "ebnf2ps" "\
-Generate and print a PostScript syntactic chart image of the file FILE.
-
-If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
-killed after process termination.
-
-See also `ebnf-print-buffer'.
-
-\(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)" t nil)
-
-(autoload 'ebnf-print-buffer "ebnf2ps" "\
-Generate and print a PostScript syntactic chart image of the buffer.
-
-When called with a numeric prefix argument (C-u), prompts the user for
-the name of a file to save the PostScript image in, instead of sending
-it to the printer.
-
-More specifically, the FILENAME argument is treated as follows: if it
-is nil, send the image to the printer. If FILENAME is a string, save
-the PostScript image in a file with that name. If FILENAME is a
-number, prompt the user for the name of the file to save in.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'ebnf-print-region "ebnf2ps" "\
-Generate and print a PostScript syntactic chart image of the region.
-Like `ebnf-print-buffer', but prints just the current region.
-
-\(fn FROM TO &optional FILENAME)" t nil)
-
-(autoload 'ebnf-spool-directory "ebnf2ps" "\
-Generate and spool a PostScript syntactic chart image of DIRECTORY.
-
-If DIRECTORY is nil, it's used `default-directory'.
-
-The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are
-processed.
-
-See also `ebnf-spool-buffer'.
-
-\(fn &optional DIRECTORY)" t nil)
-
-(autoload 'ebnf-spool-file "ebnf2ps" "\
-Generate and spool a PostScript syntactic chart image of the file FILE.
-
-If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
-killed after process termination.
-
-See also `ebnf-spool-buffer'.
-
-\(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)" t nil)
-
-(autoload 'ebnf-spool-buffer "ebnf2ps" "\
-Generate and spool a PostScript syntactic chart image of the buffer.
-Like `ebnf-print-buffer' except that the PostScript image is saved in a
-local buffer to be sent to the printer later.
-
-Use the command `ebnf-despool' to send the spooled images to the printer.
-
-\(fn)" t nil)
-
-(autoload 'ebnf-spool-region "ebnf2ps" "\
-Generate a PostScript syntactic chart image of the region and spool locally.
-Like `ebnf-spool-buffer', but spools just the current region.
-
-Use the command `ebnf-despool' to send the spooled images to the printer.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ebnf-eps-directory "ebnf2ps" "\
-Generate EPS files from EBNF files in DIRECTORY.
-
-If DIRECTORY is nil, it's used `default-directory'.
-
-The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are
-processed.
-
-See also `ebnf-eps-buffer'.
-
-\(fn &optional DIRECTORY)" t nil)
-
-(autoload 'ebnf-eps-file "ebnf2ps" "\
-Generate an EPS file from EBNF file FILE.
-
-If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
-killed after EPS generation.
-
-See also `ebnf-eps-buffer'.
-
-\(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)" t nil)
-
-(autoload 'ebnf-eps-buffer "ebnf2ps" "\
-Generate a PostScript syntactic chart image of the buffer in an EPS file.
-
-Generate an EPS file for each production in the buffer.
-The EPS file name has the following form:
-
- <PREFIX><PRODUCTION>.eps
-
-<PREFIX> is given by variable `ebnf-eps-prefix'.
- The default value is \"ebnf--\".
-
-<PRODUCTION> is the production name.
- Some characters in the production file name are replaced to
- produce a valid file name. For example, the production name
- \"A/B + C\" is modified to produce \"A_B_+_C\", and the EPS
- file name used in this case will be \"ebnf--A_B_+_C.eps\".
-
-WARNING: This function does *NOT* ask any confirmation to override existing
- files.
-
-\(fn)" t nil)
-
-(autoload 'ebnf-eps-region "ebnf2ps" "\
-Generate a PostScript syntactic chart image of the region in an EPS file.
-
-Generate an EPS file for each production in the region.
-The EPS file name has the following form:
-
- <PREFIX><PRODUCTION>.eps
-
-<PREFIX> is given by variable `ebnf-eps-prefix'.
- The default value is \"ebnf--\".
-
-<PRODUCTION> is the production name.
- Some characters in the production file name are replaced to
- produce a valid file name. For example, the production name
- \"A/B + C\" is modified to produce \"A_B_+_C\", and the EPS
- file name used in this case will be \"ebnf--A_B_+_C.eps\".
-
-WARNING: This function does *NOT* ask any confirmation to override existing
- files.
-
-\(fn FROM TO)" t nil)
-
-(defalias 'ebnf-despool 'ps-despool)
-
-(autoload 'ebnf-syntax-directory "ebnf2ps" "\
-Do a syntactic analysis of the files in DIRECTORY.
-
-If DIRECTORY is nil, use `default-directory'.
-
-Only the files in DIRECTORY that match `ebnf-file-suffix-regexp' (which see)
-are processed.
-
-See also `ebnf-syntax-buffer'.
-
-\(fn &optional DIRECTORY)" t nil)
-
-(autoload 'ebnf-syntax-file "ebnf2ps" "\
-Do a syntactic analysis of the named FILE.
-
-If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't
-killed after syntax checking.
-
-See also `ebnf-syntax-buffer'.
-
-\(fn FILE &optional DO-NOT-KILL-BUFFER-WHEN-DONE)" t nil)
-
-(autoload 'ebnf-syntax-buffer "ebnf2ps" "\
-Do a syntactic analysis of the current buffer.
-
-\(fn)" t nil)
-
-(autoload 'ebnf-syntax-region "ebnf2ps" "\
-Do a syntactic analysis of a region.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ebnf-setup "ebnf2ps" "\
-Return the current ebnf2ps setup.
-
-\(fn)" nil nil)
-
-(autoload 'ebnf-find-style "ebnf2ps" "\
-Return style definition if NAME is already defined; otherwise, return nil.
-
-See `ebnf-style-database' documentation.
-
-\(fn NAME)" t nil)
-
-(autoload 'ebnf-insert-style "ebnf2ps" "\
-Insert a new style NAME with inheritance INHERITS and values VALUES.
-
-See `ebnf-style-database' documentation.
-
-\(fn NAME INHERITS &rest VALUES)" t nil)
-
-(autoload 'ebnf-delete-style "ebnf2ps" "\
-Delete style NAME.
-
-See `ebnf-style-database' documentation.
-
-\(fn NAME)" t nil)
-
-(autoload 'ebnf-merge-style "ebnf2ps" "\
-Merge values of style NAME with style VALUES.
-
-See `ebnf-style-database' documentation.
-
-\(fn NAME &rest VALUES)" t nil)
-
-(autoload 'ebnf-apply-style "ebnf2ps" "\
-Set STYLE as the current style.
-
-Returns the old style symbol.
-
-See `ebnf-style-database' documentation.
-
-\(fn STYLE)" t nil)
-
-(autoload 'ebnf-reset-style "ebnf2ps" "\
-Reset current style.
-
-Returns the old style symbol.
-
-See `ebnf-style-database' documentation.
-
-\(fn &optional STYLE)" t nil)
-
-(autoload 'ebnf-push-style "ebnf2ps" "\
-Push the current style onto a stack and set STYLE as the current style.
-
-Returns the old style symbol.
-
-See also `ebnf-pop-style'.
-
-See `ebnf-style-database' documentation.
-
-\(fn &optional STYLE)" t nil)
-
-(autoload 'ebnf-pop-style "ebnf2ps" "\
-Pop a style from the stack of pushed styles and set it as the current style.
-
-Returns the old style symbol.
-
-See also `ebnf-push-style'.
-
-See `ebnf-style-database' documentation.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ebrowse-statistics ebrowse-save-tree-as ebrowse-save-tree
-;;;;;; ebrowse-electric-position-menu ebrowse-forward-in-position-stack
-;;;;;; ebrowse-back-in-position-stack ebrowse-tags-search-member-use
-;;;;;; ebrowse-tags-query-replace ebrowse-tags-search ebrowse-tags-loop-continue
-;;;;;; ebrowse-tags-complete-symbol ebrowse-tags-find-definition-other-frame
-;;;;;; ebrowse-tags-view-definition-other-frame ebrowse-tags-find-declaration-other-frame
-;;;;;; ebrowse-tags-find-definition-other-window ebrowse-tags-view-definition-other-window
-;;;;;; 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" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from progmodes/ebrowse.el
-
-(autoload 'ebrowse-tree-mode "ebrowse" "\
-Major mode for Ebrowse class tree buffers.
-Each line corresponds to a class in a class tree.
-Letters do not insert themselves, they are commands.
-File operations in the tree buffer work on class tree data structures.
-E.g.\\[save-buffer] writes the tree to the file it was loaded from.
-
-Tree mode key bindings:
-\\{ebrowse-tree-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-electric-choose-tree "ebrowse" "\
-Return a buffer containing a tree or nil if no tree found or canceled.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-member-mode "ebrowse" "\
-Major mode for Ebrowse member buffers.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-view-declaration "ebrowse" "\
-View declaration of member at point.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-find-declaration "ebrowse" "\
-Find declaration of member at point.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-view-definition "ebrowse" "\
-View definition of member at point.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-find-definition "ebrowse" "\
-Find definition of member at point.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-find-declaration-other-window "ebrowse" "\
-Find declaration of member at point in other window.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-view-definition-other-window "ebrowse" "\
-View definition of member at point in other window.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-find-definition-other-window "ebrowse" "\
-Find definition of member at point in other window.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-find-declaration-other-frame "ebrowse" "\
-Find definition of member at point in other frame.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-view-definition-other-frame "ebrowse" "\
-View definition of member at point in other frame.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-find-definition-other-frame "ebrowse" "\
-Find definition of member at point in other frame.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-tags-complete-symbol "ebrowse" "\
-Perform completion on the C++ symbol preceding point.
-A second call of this function without changing point inserts the next match.
-A call with prefix PREFIX reads the symbol to insert from the minibuffer with
-completion.
-
-\(fn PREFIX)" t nil)
-
-(autoload 'ebrowse-tags-loop-continue "ebrowse" "\
-Repeat last operation on files in tree.
-FIRST-TIME non-nil means this is not a repetition, but the first time.
-TREE-BUFFER if indirectly specifies which files to loop over.
-
-\(fn &optional FIRST-TIME TREE-BUFFER)" t nil)
-
-(autoload 'ebrowse-tags-search "ebrowse" "\
-Search for REGEXP in all files in a tree.
-If marked classes exist, process marked classes, only.
-If regular expression is nil, repeat last search.
-
-\(fn REGEXP)" t nil)
-
-(autoload 'ebrowse-tags-query-replace "ebrowse" "\
-Query replace FROM with TO in all files of a class tree.
-With prefix arg, process files of marked classes only.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ebrowse-tags-search-member-use "ebrowse" "\
-Search for call sites of a member.
-If FIX-NAME is specified, search uses of that member.
-Otherwise, read a member name from the minibuffer.
-Searches in all files mentioned in a class tree for something that
-looks like a function call to the member.
-
-\(fn &optional FIX-NAME)" t nil)
-
-(autoload 'ebrowse-back-in-position-stack "ebrowse" "\
-Move backward in the position stack.
-Prefix arg ARG says how much.
-
-\(fn ARG)" t nil)
-
-(autoload 'ebrowse-forward-in-position-stack "ebrowse" "\
-Move forward in the position stack.
-Prefix arg ARG says how much.
-
-\(fn ARG)" t nil)
-
-(autoload 'ebrowse-electric-position-menu "ebrowse" "\
-List positions in the position stack in an electric buffer.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-save-tree "ebrowse" "\
-Save current tree in same file it was loaded from.
-
-\(fn)" t nil)
-
-(autoload 'ebrowse-save-tree-as "ebrowse" "\
-Write the current tree data structure to a file.
-Read the file name from the minibuffer if interactive.
-Otherwise, FILE-NAME specifies the file to save the tree in.
-
-\(fn &optional FILE-NAME)" t nil)
-
-(autoload 'ebrowse-statistics "ebrowse" "\
-Display statistics for a class tree.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from ebuff-menu.el
-
-(autoload 'electric-buffer-list "ebuff-menu" "\
-Pop up the Buffer Menu in an \"electric\" window.
-If you type SPC or RET (`Electric-buffer-menu-select'), that
-selects the buffer at point and quits the \"electric\" window.
-Otherwise, you can move around in the Buffer Menu, marking
-buffers to be selected, saved or deleted; these other commands
-are much like those of `Buffer-menu-mode'.
-
-Run hooks in `electric-buffer-menu-mode-hook' on entry.
-
-\\<electric-buffer-menu-mode-map>
-\\[keyboard-quit] or \\[Electric-buffer-menu-quit] -- exit buffer menu, returning to previous window and buffer
- configuration. If the very first character typed is a space, it
- also has this effect.
-\\[Electric-buffer-menu-select] -- select buffer of line point is on.
- Also show buffers marked with m in other windows,
- deletes buffers marked with \"D\", and saves those marked with \"S\".
-\\[Buffer-menu-mark] -- mark buffer to be displayed.
-\\[Buffer-menu-not-modified] -- clear modified-flag on that buffer.
-\\[Buffer-menu-save] -- mark that buffer to be saved.
-\\[Buffer-menu-delete] or \\[Buffer-menu-delete-backwards] -- mark that buffer to be deleted.
-\\[Buffer-menu-unmark] -- remove all kinds of marks from current line.
-\\[Electric-buffer-menu-mode-view-buffer] -- view buffer, returning when done.
-\\[Buffer-menu-backup-unmark] -- back up a line and remove marks.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (Electric-command-history-redo-expression) "echistory"
-;;;;;; "echistory.el" (20707 18685 911514 0))
-;;; Generated autoloads from echistory.el
-
-(autoload 'Electric-command-history-redo-expression "echistory" "\
-Edit current history line in minibuffer and execute result.
-With prefix arg NOCONFIRM, execute current line as-is without editing.
-
-\(fn &optional NOCONFIRM)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ecomplete-setup) "ecomplete" "gnus/ecomplete.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/ecomplete.el
-
-(autoload 'ecomplete-setup "ecomplete" "\
-
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (20748 34276
-;;;;;; 6200 0))
-;;; Generated autoloads from cedet/ede.el
-
-(defvar global-ede-mode nil "\
-Non-nil if Global-Ede mode is enabled.
-See the command `global-ede-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-ede-mode'.")
-
-(custom-autoload 'global-ede-mode "ede" nil)
-
-(autoload 'global-ede-mode "ede" "\
-Toggle global EDE (Emacs Development Environment) mode.
-With a prefix argument ARG, enable global EDE mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-This global minor mode enables `ede-minor-mode' in all buffers in
-an EDE controlled project.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\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" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/edebug.el
-
-(defvar edebug-all-defs nil "\
-If non-nil, evaluating defining forms instruments for Edebug.
-This applies to `eval-defun', `eval-region', `eval-buffer', and
-`eval-current-buffer'. `eval-region' is also called by
-`eval-last-sexp', and `eval-print-last-sexp'.
-
-You can use the command `edebug-all-defs' to toggle the value of this
-variable. You may wish to make it local to each buffer with
-\(make-local-variable 'edebug-all-defs) in your
-`emacs-lisp-mode-hook'.")
-
-(custom-autoload 'edebug-all-defs "edebug" t)
-
-(defvar edebug-all-forms nil "\
-Non-nil means evaluation of all forms will instrument for Edebug.
-This doesn't apply to loading or evaluations in the minibuffer.
-Use the command `edebug-all-forms' to toggle the value of this option.")
-
-(custom-autoload 'edebug-all-forms "edebug" t)
-
-(autoload 'edebug-basic-spec "edebug" "\
-Return t if SPEC uses only extant spec symbols.
-An extant spec symbol is a symbol that is not a function and has a
-`edebug-form-spec' property.
-
-\(fn SPEC)" nil nil)
-
-(defalias 'edebug-defun 'edebug-eval-top-level-form)
-
-(autoload 'edebug-eval-top-level-form "edebug" "\
-Evaluate the top level form point is in, stepping through with Edebug.
-This is like `eval-defun' except that it steps the code for Edebug
-before evaluating it. It displays the value in the echo area
-using `eval-expression' (which see).
-
-If you do this on a function definition such as a defun or defmacro,
-it defines the function and instruments its definition for Edebug,
-so it will do Edebug stepping when called later. It displays
-`Edebug: FUNCTION' in the echo area to indicate that FUNCTION is now
-instrumented for Edebug.
-
-If the current defun is actually a call to `defvar' or `defcustom',
-evaluating it this way resets the variable using its initial value
-expression even if the variable already has some other value.
-\(Normally `defvar' and `defcustom' do not alter the value if there
-already is one.)
-
-\(fn)" t nil)
-
-(autoload 'edebug-all-defs "edebug" "\
-Toggle edebugging of all definitions.
-
-\(fn)" t nil)
-
-(autoload 'edebug-all-forms "edebug" "\
-Toggle edebugging of all forms.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ediff-documentation ediff-version ediff-revision
-;;;;;; ediff-patch-buffer ediff-patch-file ediff-merge-revisions-with-ancestor
-;;;;;; ediff-merge-revisions ediff-merge-buffers-with-ancestor ediff-merge-buffers
-;;;;;; ediff-merge-files-with-ancestor ediff-merge-files ediff-regions-linewise
-;;;;;; ediff-regions-wordwise ediff-windows-linewise ediff-windows-wordwise
-;;;;;; ediff-merge-directory-revisions-with-ancestor 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-current-file
-;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from vc/ediff.el
-
-(autoload 'ediff-files "ediff" "\
-Run Ediff on a pair of files, FILE-A and FILE-B.
-
-\(fn FILE-A FILE-B &optional STARTUP-HOOKS)" t nil)
-
-(autoload 'ediff-files3 "ediff" "\
-Run Ediff on three files, FILE-A, FILE-B, and FILE-C.
-
-\(fn FILE-A FILE-B FILE-C &optional STARTUP-HOOKS)" t nil)
-
-(defalias 'ediff3 'ediff-files3)
-
-(defalias 'ediff 'ediff-files)
-
-(autoload 'ediff-current-file "ediff" "\
-Start ediff between current buffer and its file on disk.
-This command can be used instead of `revert-buffer'. If there is
-nothing to revert then this command fails.
-
-\(fn)" t nil)
-
-(autoload 'ediff-backup "ediff" "\
-Run Ediff on FILE and its backup file.
-Uses the latest backup, if there are several numerical backups.
-If this file is a backup, `ediff' it with its original.
-
-\(fn FILE)" t nil)
-
-(autoload 'ediff-buffers "ediff" "\
-Run Ediff on a pair of buffers, BUFFER-A and BUFFER-B.
-
-\(fn BUFFER-A BUFFER-B &optional STARTUP-HOOKS JOB-NAME)" t nil)
-
-(defalias 'ebuffers 'ediff-buffers)
-
-(autoload 'ediff-buffers3 "ediff" "\
-Run Ediff on three buffers, BUFFER-A, BUFFER-B, and BUFFER-C.
-
-\(fn BUFFER-A BUFFER-B BUFFER-C &optional STARTUP-HOOKS JOB-NAME)" t nil)
-
-(defalias 'ebuffers3 'ediff-buffers3)
-
-(autoload 'ediff-directories "ediff" "\
-Run Ediff on a pair of directories, DIR1 and DIR2, comparing files that have
-the same name in both. The third argument, REGEXP, is nil or a regular
-expression; only file names that match the regexp are considered.
-
-\(fn DIR1 DIR2 REGEXP)" t nil)
-
-(defalias 'edirs 'ediff-directories)
-
-(autoload 'ediff-directory-revisions "ediff" "\
-Run Ediff on a directory, DIR1, comparing its files with their revisions.
-The second argument, REGEXP, is a regular expression that filters the file
-names. Only the files that are under revision control are taken into account.
-
-\(fn DIR1 REGEXP)" t nil)
-
-(defalias 'edir-revisions 'ediff-directory-revisions)
-
-(autoload 'ediff-directories3 "ediff" "\
-Run Ediff on three directories, DIR1, DIR2, and DIR3, comparing files that
-have the same name in all three. The last argument, REGEXP, is nil or a
-regular expression; only file names that match the regexp are considered.
-
-\(fn DIR1 DIR2 DIR3 REGEXP)" t nil)
-
-(defalias 'edirs3 'ediff-directories3)
-
-(autoload 'ediff-merge-directories "ediff" "\
-Run Ediff on a pair of directories, DIR1 and DIR2, merging files that have
-the same name in both. The third argument, REGEXP, is nil or a regular
-expression; only file names that match the regexp are considered.
-
-\(fn DIR1 DIR2 REGEXP &optional MERGE-AUTOSTORE-DIR)" t nil)
-
-(defalias 'edirs-merge 'ediff-merge-directories)
-
-(autoload 'ediff-merge-directories-with-ancestor "ediff" "\
-Merge files in directories DIR1 and DIR2 using files in ANCESTOR-DIR as ancestors.
-Ediff merges files that have identical names in DIR1, DIR2. If a pair of files
-in DIR1 and DIR2 doesn't have an ancestor in ANCESTOR-DIR, Ediff will merge
-without ancestor. The fourth argument, REGEXP, is nil or a regular expression;
-only file names that match the regexp are considered.
-
-\(fn DIR1 DIR2 ANCESTOR-DIR REGEXP &optional MERGE-AUTOSTORE-DIR)" t nil)
-
-(autoload 'ediff-merge-directory-revisions "ediff" "\
-Run Ediff on a directory, DIR1, merging its files with their revisions.
-The second argument, REGEXP, is a regular expression that filters the file
-names. Only the files that are under revision control are taken into account.
-
-\(fn DIR1 REGEXP &optional MERGE-AUTOSTORE-DIR)" t nil)
-
-(defalias 'edir-merge-revisions 'ediff-merge-directory-revisions)
-
-(autoload 'ediff-merge-directory-revisions-with-ancestor "ediff" "\
-Run Ediff on a directory, DIR1, merging its files with their revisions and ancestors.
-The second argument, REGEXP, is a regular expression that filters the file
-names. Only the files that are under revision control are taken into account.
-
-\(fn DIR1 REGEXP &optional MERGE-AUTOSTORE-DIR)" t nil)
-
-(defalias 'edir-merge-revisions-with-ancestor 'ediff-merge-directory-revisions-with-ancestor)
-
-(defalias 'edirs-merge-with-ancestor 'ediff-merge-directories-with-ancestor)
-
-(autoload 'ediff-windows-wordwise "ediff" "\
-Compare WIND-A and WIND-B, which are selected by clicking, wordwise.
-With prefix argument, DUMB-MODE, or on a non-windowing display, works as
-follows:
-If WIND-A is nil, use selected window.
-If WIND-B is nil, use window next to WIND-A.
-
-\(fn DUMB-MODE &optional WIND-A WIND-B STARTUP-HOOKS)" t nil)
-
-(autoload 'ediff-windows-linewise "ediff" "\
-Compare WIND-A and WIND-B, which are selected by clicking, linewise.
-With prefix argument, DUMB-MODE, or on a non-windowing display, works as
-follows:
-If WIND-A is nil, use selected window.
-If WIND-B is nil, use window next to WIND-A.
-
-\(fn DUMB-MODE &optional WIND-A WIND-B STARTUP-HOOKS)" t nil)
-
-(autoload 'ediff-regions-wordwise "ediff" "\
-Run Ediff on a pair of regions in specified buffers.
-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'.
-
-\(fn BUFFER-A BUFFER-B &optional STARTUP-HOOKS)" t nil)
-
-(autoload 'ediff-regions-linewise "ediff" "\
-Run Ediff on a pair of regions in specified buffers.
-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'.
-
-\(fn BUFFER-A BUFFER-B &optional STARTUP-HOOKS)" t nil)
-
-(defalias 'ediff-merge 'ediff-merge-files)
-
-(autoload 'ediff-merge-files "ediff" "\
-Merge two files without ancestor.
-
-\(fn FILE-A FILE-B &optional STARTUP-HOOKS MERGE-BUFFER-FILE)" t nil)
-
-(autoload 'ediff-merge-files-with-ancestor "ediff" "\
-Merge two files with ancestor.
-
-\(fn FILE-A FILE-B FILE-ANCESTOR &optional STARTUP-HOOKS MERGE-BUFFER-FILE)" t nil)
-
-(defalias 'ediff-merge-with-ancestor 'ediff-merge-files-with-ancestor)
-
-(autoload 'ediff-merge-buffers "ediff" "\
-Merge buffers without ancestor.
-
-\(fn BUFFER-A BUFFER-B &optional STARTUP-HOOKS JOB-NAME MERGE-BUFFER-FILE)" t nil)
-
-(autoload 'ediff-merge-buffers-with-ancestor "ediff" "\
-Merge buffers with ancestor.
-
-\(fn BUFFER-A BUFFER-B BUFFER-ANCESTOR &optional STARTUP-HOOKS JOB-NAME MERGE-BUFFER-FILE)" t nil)
-
-(autoload 'ediff-merge-revisions "ediff" "\
-Run Ediff by merging two revisions of a file.
-The file is the optional FILE argument or the file visited by the current
-buffer.
-
-\(fn &optional FILE STARTUP-HOOKS MERGE-BUFFER-FILE)" t nil)
-
-(autoload 'ediff-merge-revisions-with-ancestor "ediff" "\
-Run Ediff by merging two revisions of a file with a common ancestor.
-The file is the optional FILE argument or the file visited by the current
-buffer.
-
-\(fn &optional FILE STARTUP-HOOKS MERGE-BUFFER-FILE)" t nil)
-
-(autoload 'ediff-patch-file "ediff" "\
-Query for a file name, and then run Ediff by patching that file.
-If optional PATCH-BUF is given, use the patch in that buffer
-and don't ask the user.
-If prefix argument, then: if even argument, assume that the patch is in a
-buffer. If odd -- assume it is in a file.
-
-\(fn &optional ARG PATCH-BUF)" t nil)
-
-(autoload 'ediff-patch-buffer "ediff" "\
-Run Ediff by patching the buffer specified at prompt.
-Without the optional prefix ARG, asks if the patch is in some buffer and
-prompts for the buffer or a file, depending on the answer.
-With ARG=1, assumes the patch is in a file and prompts for the file.
-With ARG=2, assumes the patch is in a buffer and prompts for the buffer.
-PATCH-BUF is an optional argument, which specifies the buffer that contains the
-patch. If not given, the user is prompted according to the prefix argument.
-
-\(fn &optional ARG PATCH-BUF)" t nil)
-
-(defalias 'epatch 'ediff-patch-file)
-
-(defalias 'epatch-buffer 'ediff-patch-buffer)
-
-(autoload 'ediff-revision "ediff" "\
-Run Ediff by comparing versions of a file.
-The file is an optional FILE argument or the file entered at the prompt.
-Default: the file visited by the current buffer.
-Uses `vc.el' or `rcs.el' depending on `ediff-version-control-package'.
-
-\(fn &optional FILE STARTUP-HOOKS)" t nil)
-
-(defalias 'erevision 'ediff-revision)
-
-(autoload 'ediff-version "ediff" "\
-Return string describing the version of Ediff.
-When called interactively, displays the version.
-
-\(fn)" t nil)
-
-(autoload 'ediff-documentation "ediff" "\
-Display Ediff's manual.
-With optional NODE, goes to that node.
-
-\(fn &optional NODE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ediff-customize) "ediff-help" "vc/ediff-help.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/ediff-help.el
-
-(autoload 'ediff-customize "ediff-help" "\
-
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ediff-show-registry) "ediff-mult" "vc/ediff-mult.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/ediff-mult.el
-
-(autoload 'ediff-show-registry "ediff-mult" "\
-Display Ediff's registry.
-
-\(fn)" t nil)
-
-(defalias 'eregistry 'ediff-show-registry)
-
-;;;***
-\f
-;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe)
-;;;;;; "ediff-util" "vc/ediff-util.el" (20707 18685 911514 0))
-;;; Generated autoloads from vc/ediff-util.el
-
-(autoload 'ediff-toggle-multiframe "ediff-util" "\
-Switch from multiframe display to single-frame display and back.
-To change the default, set the variable `ediff-window-setup-function',
-which see.
-
-\(fn)" t nil)
-
-(autoload 'ediff-toggle-use-toolbar "ediff-util" "\
-Enable or disable Ediff toolbar.
-Works only in versions of Emacs that support toolbars.
-To change the default, set the variable `ediff-use-toolbar-p', which see.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro
-;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from edmacro.el
-
-(autoload 'edit-kbd-macro "edmacro" "\
-Edit a keyboard macro.
-At the prompt, type any key sequence which is bound to a keyboard macro.
-Or, type `C-x e' or RET to edit the last keyboard macro, `C-h l' to edit
-the last 300 keystrokes as a keyboard macro, or `M-x' to edit a macro by
-its command name.
-With a prefix argument, format the macro in a more concise way.
-
-\(fn KEYS &optional PREFIX FINISH-HOOK STORE-HOOK)" t nil)
-
-(autoload 'edit-last-kbd-macro "edmacro" "\
-Edit the most recently defined keyboard macro.
-
-\(fn &optional PREFIX)" t nil)
-
-(autoload 'edit-named-kbd-macro "edmacro" "\
-Edit a keyboard macro which has been given a name by `name-last-kbd-macro'.
-
-\(fn &optional PREFIX)" t nil)
-
-(autoload 'read-kbd-macro "edmacro" "\
-Read the region as a keyboard macro definition.
-The region is interpreted as spelled-out keystrokes, e.g., \"M-x abc RET\".
-See documentation for `edmacro-mode' for details.
-Leading/trailing \"C-x (\" and \"C-x )\" in the text are allowed and ignored.
-The resulting macro is installed as the \"current\" keyboard macro.
-
-In Lisp, may also be called with a single STRING argument in which case
-the result is returned rather than being installed as the current macro.
-The result will be a string if possible, otherwise an event vector.
-Second argument NEED-VECTOR means to return an event vector always.
-
-\(fn START &optional END)" t nil)
-
-(autoload 'format-kbd-macro "edmacro" "\
-Return the keyboard macro MACRO as a human-readable string.
-This string is suitable for passing to `read-kbd-macro'.
-Second argument VERBOSE means to put one command per line with comments.
-If VERBOSE is `1', put everything on one line. If VERBOSE is omitted
-or nil, use a compact 80-column format.
-
-\(fn &optional MACRO VERBOSE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt"
-;;;;;; "emulation/edt.el" (20707 18685 911514 0))
-;;; Generated autoloads from emulation/edt.el
-
-(autoload 'edt-set-scroll-margins "edt" "\
-Set scroll margins.
-Argument TOP is the top margin in number of lines or percent of window.
-Argument BOTTOM is the bottom margin in number of lines or percent of window.
-
-\(fn TOP BOTTOM)" t nil)
-
-(autoload 'edt-emulation-on "edt" "\
-Turn on EDT Emulation.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from ehelp.el
-
-(autoload 'with-electric-help "ehelp" "\
-Pop up an \"electric\" help buffer.
-THUNK is a function of no arguments which is called to initialize the
-contents of BUFFER. BUFFER defaults to `*Help*'. BUFFER will be
-erased before THUNK is called unless NOERASE is non-nil. THUNK will
-be called while BUFFER is current and with `standard-output' bound to
-the buffer specified by BUFFER.
-
-If THUNK returns nil, we display BUFFER starting at the top, and shrink
-the window to fit. If THUNK returns non-nil, we don't do those things.
-
-After THUNK has been called, this function \"electrically\" pops up a
-window in which BUFFER is displayed and allows the user to scroll
-through that buffer in `electric-help-mode'. The window's height will
-be at least MINHEIGHT if this value is non-nil.
-
-If THUNK returns nil, we display BUFFER starting at the top, and
-shrink the window to fit if `electric-help-shrink-window' is non-nil.
-If THUNK returns non-nil, we don't do those things.
-
-When the user exits (with `electric-help-exit', or otherwise), the help
-buffer's window disappears (i.e., we use `save-window-excursion'), and
-BUFFER is put back into its original major mode.
-
-\(fn THUNK &optional BUFFER NOERASE MINHEIGHT)" nil nil)
-
-(autoload 'electric-helpify "ehelp" "\
-
-
-\(fn FUN &optional NAME)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (customize-object) "eieio-custom" "emacs-lisp/eieio-custom.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/eieio-custom.el
-
-(autoload 'customize-object "eieio-custom" "\
-Customize OBJ in a custom buffer.
-Optional argument GROUP is the sub-group of slots to display.
-
-\(fn OBJ &optional GROUP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (eieio-describe-generic eieio-describe-constructor
-;;;;;; eieio-describe-class eieio-browse) "eieio-opt" "emacs-lisp/eieio-opt.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/eieio-opt.el
-
-(autoload 'eieio-browse "eieio-opt" "\
-Create an object browser window to show all objects.
-If optional ROOT-CLASS, then start with that, otherwise start with
-variable `eieio-default-superclass'.
-
-\(fn &optional ROOT-CLASS)" t nil)
-(defalias 'describe-class 'eieio-describe-class)
-
-(autoload 'eieio-describe-class "eieio-opt" "\
-Describe a CLASS defined by a string or symbol.
-If CLASS is actually an object, then also display current values of that object.
-Optional HEADERFCN should be called to insert a few bits of info first.
-
-\(fn CLASS &optional HEADERFCN)" t nil)
-
-(autoload 'eieio-describe-constructor "eieio-opt" "\
-Describe the constructor function FCN.
-Uses `eieio-describe-class' to describe the class being constructed.
-
-\(fn FCN)" t nil)
-(defalias 'describe-generic 'eieio-describe-generic)
-
-(autoload 'eieio-describe-generic "eieio-opt" "\
-Describe the generic function GENERIC.
-Also extracts information about all methods specific to this generic.
-
-\(fn GENERIC)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string)
-;;;;;; "eldoc" "emacs-lisp/eldoc.el" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/eldoc.el
-
-(defvar eldoc-minor-mode-string (purecopy " ElDoc") "\
-String to display in mode line when ElDoc Mode is enabled; nil for none.")
-
-(custom-autoload 'eldoc-minor-mode-string "eldoc" t)
-
-(autoload 'eldoc-mode "eldoc" "\
-Toggle echo area display of Lisp objects at point (ElDoc mode).
-With a prefix argument ARG, enable ElDoc mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable ElDoc mode
-if ARG is omitted or nil.
-
-ElDoc mode is a buffer-local minor mode. When enabled, the echo
-area displays information about a function or variable in the
-text where point is. If point is on a documented variable, it
-displays the first line of that variable's doc string. Otherwise
-it displays the argument list of the function called in the
-expression point is on.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'turn-on-eldoc-mode "eldoc" "\
-Unequivocally turn on ElDoc mode (see command `eldoc-mode').
-
-\(fn)" t nil)
-
-(defvar eldoc-documentation-function nil "\
-If non-nil, function to call to return doc string.
-The function of no args should return a one-line string for displaying
-doc about a function etc. appropriate to the context around point.
-It should return nil if there's no doc appropriate for the context.
-Typically doc is returned if point is on a function-like name or in its
-arg list.
-
-The result is used as is, so the function must explicitly handle
-the variables `eldoc-argument-case' and `eldoc-echo-area-use-multiline-p',
-and the face `eldoc-highlight-function-argument', if they are to have any
-effect.
-
-This variable is expected to be made buffer-local by modes (other than
-Emacs Lisp mode) that support ElDoc.")
-
-;;;***
-\f
-;;;### (autoloads (electric-layout-mode electric-pair-mode electric-indent-mode)
-;;;;;; "electric" "electric.el" (20707 18685 911514 0))
-;;; Generated autoloads from electric.el
-
-(defvar electric-indent-chars '(10) "\
-Characters that should cause automatic reindentation.")
-
-(defvar electric-indent-mode nil "\
-Non-nil if Electric-Indent mode is enabled.
-See the command `electric-indent-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `electric-indent-mode'.")
-
-(custom-autoload 'electric-indent-mode "electric" nil)
-
-(autoload 'electric-indent-mode "electric" "\
-Toggle on-the-fly reindentation (Electric Indent mode).
-With a prefix argument ARG, enable Electric Indent mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-This is a global minor mode. When enabled, it reindents whenever
-the hook `electric-indent-functions' returns non-nil, or you
-insert a character from `electric-indent-chars'.
-
-\(fn &optional ARG)" t nil)
-
-(defvar electric-pair-mode nil "\
-Non-nil if Electric-Pair mode is enabled.
-See the command `electric-pair-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `electric-pair-mode'.")
-
-(custom-autoload 'electric-pair-mode "electric" nil)
-
-(autoload 'electric-pair-mode "electric" "\
-Toggle automatic parens pairing (Electric Pair mode).
-With a prefix argument ARG, enable Electric Pair mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Electric Pair mode is a global minor mode. When enabled, typing
-an open parenthesis automatically inserts the corresponding
-closing parenthesis. (Likewise for brackets, etc.)
-
-See options `electric-pair-pairs' and `electric-pair-skip-self'.
-
-\(fn &optional ARG)" t nil)
-
-(defvar electric-layout-mode nil "\
-Non-nil if Electric-Layout mode is enabled.
-See the command `electric-layout-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `electric-layout-mode'.")
-
-(custom-autoload 'electric-layout-mode "electric" nil)
-
-(autoload 'electric-layout-mode "electric" "\
-Automatically insert newlines around some chars.
-With a prefix argument ARG, enable Electric Layout mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-The variable `electric-layout-rules' says when and how to insert newlines.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from elide-head.el
-
-(autoload 'elide-head "elide-head" "\
-Hide header material in buffer according to `elide-head-headers-to-hide'.
-
-The header is made invisible with an overlay. With a prefix arg, show
-an elided material again.
-
-This is suitable as an entry on `find-file-hook' or appropriate mode hooks.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (elint-initialize elint-defun elint-current-buffer
-;;;;;; elint-directory elint-file) "elint" "emacs-lisp/elint.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/elint.el
-
-(autoload 'elint-file "elint" "\
-Lint the file FILE.
-
-\(fn FILE)" t nil)
-
-(autoload 'elint-directory "elint" "\
-Lint all the .el files in DIRECTORY.
-A complicated directory may require a lot of memory.
-
-\(fn DIRECTORY)" t nil)
-
-(autoload 'elint-current-buffer "elint" "\
-Lint the current buffer.
-If necessary, this first calls `elint-initialize'.
-
-\(fn)" t nil)
-
-(autoload 'elint-defun "elint" "\
-Lint the function at point.
-If necessary, this first calls `elint-initialize'.
-
-\(fn)" t nil)
-
-(autoload 'elint-initialize "elint" "\
-Initialize elint.
-If elint is already initialized, this does nothing, unless
-optional prefix argument REINIT is non-nil.
-
-\(fn &optional REINIT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list
-;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/elp.el
-
-(autoload 'elp-instrument-function "elp" "\
-Instrument FUNSYM for profiling.
-FUNSYM must be a symbol of a defined function.
-
-\(fn FUNSYM)" t nil)
-
-(autoload 'elp-instrument-list "elp" "\
-Instrument, for profiling, all functions in `elp-function-list'.
-Use optional LIST if provided instead.
-If called interactively, read LIST using the minibuffer.
-
-\(fn &optional LIST)" t nil)
-
-(autoload 'elp-instrument-package "elp" "\
-Instrument for profiling, all functions which start with PREFIX.
-For example, to instrument all ELP functions, do the following:
-
- \\[elp-instrument-package] RET elp- RET
-
-\(fn PREFIX)" t nil)
-
-(autoload 'elp-results "elp" "\
-Display current profiling results.
-If `elp-reset-after-results' is non-nil, then current profiling
-information for all instrumented functions is reset after results are
-displayed.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (emacs-lock-mode) "emacs-lock" "emacs-lock.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lock.el
-
-(autoload 'emacs-lock-mode "emacs-lock" "\
-Toggle Emacs Lock mode in the current buffer.
-If called with a plain prefix argument, ask for the locking mode
-to be used. With any other prefix ARG, turn mode on if ARG is
-positive, off otherwise. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Initially, if the user does not pass an explicit locking mode, it
-defaults to `emacs-lock-default-locking-mode' (which see);
-afterwards, the locking mode most recently set on the buffer is
-used instead.
-
-When called from Elisp code, ARG can be any locking mode:
-
- exit -- Emacs cannot exit while the buffer is locked
- kill -- the buffer cannot be killed, but Emacs can exit as usual
- all -- the buffer is locked against both actions
-
-Other values are interpreted as usual.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (report-emacs-bug) "emacsbug" "mail/emacsbug.el"
-;;;;;; (20758 63604 302072 0))
-;;; Generated autoloads from mail/emacsbug.el
-
-(autoload 'report-emacs-bug "emacsbug" "\
-Report a bug in GNU Emacs.
-Prompts for bug subject. Leaves you in a mail buffer.
-
-\(fn TOPIC &optional RECENT-KEYS)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (emerge-merge-directories emerge-revisions-with-ancestor
-;;;;;; 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"
-;;;;;; "vc/emerge.el" (20627 28531 447943 0))
-;;; Generated autoloads from vc/emerge.el
-
-(autoload 'emerge-files "emerge" "\
-Run Emerge on two files.
-
-\(fn ARG FILE-A FILE-B FILE-OUT &optional STARTUP-HOOKS QUIT-HOOKS)" t nil)
-
-(autoload 'emerge-files-with-ancestor "emerge" "\
-Run Emerge on two files, giving another file as the ancestor.
-
-\(fn ARG FILE-A FILE-B FILE-ANCESTOR FILE-OUT &optional STARTUP-HOOKS QUIT-HOOKS)" t nil)
-
-(autoload 'emerge-buffers "emerge" "\
-Run Emerge on two buffers.
-
-\(fn BUFFER-A BUFFER-B &optional STARTUP-HOOKS QUIT-HOOKS)" t nil)
-
-(autoload 'emerge-buffers-with-ancestor "emerge" "\
-Run Emerge on two buffers, giving another buffer as the ancestor.
-
-\(fn BUFFER-A BUFFER-B BUFFER-ANCESTOR &optional STARTUP-HOOKS QUIT-HOOKS)" t nil)
-
-(autoload 'emerge-files-command "emerge" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'emerge-files-with-ancestor-command "emerge" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'emerge-files-remote "emerge" "\
-
-
-\(fn FILE-A FILE-B FILE-OUT)" nil nil)
-
-(autoload 'emerge-files-with-ancestor-remote "emerge" "\
-
-
-\(fn FILE-A FILE-B FILE-ANC FILE-OUT)" nil nil)
-
-(autoload 'emerge-revisions "emerge" "\
-Emerge two RCS revisions of a file.
-
-\(fn ARG FILE REVISION-A REVISION-B &optional STARTUP-HOOKS QUIT-HOOKS)" t nil)
-
-(autoload 'emerge-revisions-with-ancestor "emerge" "\
-Emerge two RCS revisions of a file, with another revision as ancestor.
-
-\(fn ARG FILE REVISION-A REVISION-B ANCESTOR &optional STARTUP-HOOKS QUIT-HOOKS)" t nil)
-
-(autoload 'emerge-merge-directories "emerge" "\
-
-
-\(fn A-DIR B-DIR ANCESTOR-DIR OUTPUT-DIR)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (enriched-decode enriched-encode enriched-mode)
-;;;;;; "enriched" "textmodes/enriched.el" (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/enriched.el
-
-(autoload 'enriched-mode "enriched" "\
-Minor mode for editing text/enriched files.
-These are files with embedded formatting information in the MIME standard
-text/enriched format.
-
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-Turning the mode on or off runs `enriched-mode-hook'.
-
-More information about Enriched mode is available in the file
-etc/enriched.doc in the Emacs distribution directory.
-
-Commands:
-
-\\{enriched-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'enriched-encode "enriched" "\
-
-
-\(fn FROM TO ORIG-BUF)" nil nil)
-
-(autoload 'enriched-decode "enriched" "\
-
-
-\(fn FROM TO)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (epa-insert-keys epa-export-keys epa-import-armor-in-region
-;;;;;; epa-import-keys-region epa-import-keys epa-delete-keys epa-encrypt-region
-;;;;;; epa-sign-region epa-verify-cleartext-in-region epa-verify-region
-;;;;;; epa-decrypt-armor-in-region epa-decrypt-region epa-encrypt-file
-;;;;;; epa-sign-file epa-verify-file epa-decrypt-file epa-select-keys
-;;;;;; epa-list-secret-keys epa-list-keys) "epa" "epa.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from epa.el
-
-(autoload 'epa-list-keys "epa" "\
-List all keys matched with NAME from the public keyring.
-
-\(fn &optional NAME)" t nil)
-
-(autoload 'epa-list-secret-keys "epa" "\
-List all keys matched with NAME from the private keyring.
-
-\(fn &optional NAME)" t nil)
-
-(autoload 'epa-select-keys "epa" "\
-Display a user's keyring and ask him to select keys.
-CONTEXT is an epg-context.
-PROMPT is a string to prompt with.
-NAMES is a list of strings to be matched with keys. If it is nil, all
-the keys are listed.
-If SECRET is non-nil, list secret keys instead of public keys.
-
-\(fn CONTEXT PROMPT &optional NAMES SECRET)" nil nil)
-
-(autoload 'epa-decrypt-file "epa" "\
-Decrypt FILE.
-
-\(fn FILE)" t nil)
-
-(autoload 'epa-verify-file "epa" "\
-Verify FILE.
-
-\(fn FILE)" t nil)
-
-(autoload 'epa-sign-file "epa" "\
-Sign FILE by SIGNERS keys selected.
-
-\(fn FILE SIGNERS MODE)" t nil)
-
-(autoload 'epa-encrypt-file "epa" "\
-Encrypt FILE for RECIPIENTS.
-
-\(fn FILE RECIPIENTS)" t nil)
-
-(autoload 'epa-decrypt-region "epa" "\
-Decrypt the current region between START and END.
-
-If MAKE-BUFFER-FUNCTION is non-nil, call it to prepare an output buffer.
-It should return that buffer. If it copies the input, it should
-delete the text now being decrypted. It should leave point at the
-proper place to insert the plaintext.
-
-Be careful about using this command in Lisp programs!
-Since this function operates on regions, it does some tricks such
-as coding-system detection and unibyte/multibyte conversion. If
-you are sure how the data in the region should be treated, you
-should consider using the string based counterpart
-`epg-decrypt-string', or the file based counterpart
-`epg-decrypt-file' instead.
-
-For example:
-
-\(let ((context (epg-make-context 'OpenPGP)))
- (decode-coding-string
- (epg-decrypt-string context (buffer-substring start end))
- 'utf-8))
-
-\(fn START END &optional MAKE-BUFFER-FUNCTION)" t nil)
-
-(autoload 'epa-decrypt-armor-in-region "epa" "\
-Decrypt OpenPGP armors in the current region between START and END.
-
-Don't use this command in Lisp programs!
-See the reason described in the `epa-decrypt-region' documentation.
-
-\(fn START END)" t nil)
-
-(autoload 'epa-verify-region "epa" "\
-Verify the current region between START and END.
-
-Don't use this command in Lisp programs!
-Since this function operates on regions, it does some tricks such
-as coding-system detection and unibyte/multibyte conversion. If
-you are sure how the data in the region should be treated, you
-should consider using the string based counterpart
-`epg-verify-string', or the file based counterpart
-`epg-verify-file' instead.
-
-For example:
-
-\(let ((context (epg-make-context 'OpenPGP)))
- (decode-coding-string
- (epg-verify-string context (buffer-substring start end))
- 'utf-8))
-
-\(fn START END)" t nil)
-
-(autoload 'epa-verify-cleartext-in-region "epa" "\
-Verify OpenPGP cleartext signed messages in the current region
-between START and END.
-
-Don't use this command in Lisp programs!
-See the reason described in the `epa-verify-region' documentation.
-
-\(fn START END)" t nil)
-
-(autoload 'epa-sign-region "epa" "\
-Sign the current region between START and END by SIGNERS keys selected.
-
-Don't use this command in Lisp programs!
-Since this function operates on regions, it does some tricks such
-as coding-system detection and unibyte/multibyte conversion. If
-you are sure how the data should be treated, you should consider
-using the string based counterpart `epg-sign-string', or the file
-based counterpart `epg-sign-file' instead.
-
-For example:
-
-\(let ((context (epg-make-context 'OpenPGP)))
- (epg-sign-string
- context
- (encode-coding-string (buffer-substring start end) 'utf-8)))
-
-\(fn START END SIGNERS MODE)" t nil)
-
-(autoload 'epa-encrypt-region "epa" "\
-Encrypt the current region between START and END for RECIPIENTS.
-
-Don't use this command in Lisp programs!
-Since this function operates on regions, it does some tricks such
-as coding-system detection and unibyte/multibyte conversion. If
-you are sure how the data should be treated, you should consider
-using the string based counterpart `epg-encrypt-string', or the
-file based counterpart `epg-encrypt-file' instead.
-
-For example:
-
-\(let ((context (epg-make-context 'OpenPGP)))
- (epg-encrypt-string
- context
- (encode-coding-string (buffer-substring start end) 'utf-8)
- nil))
-
-\(fn START END RECIPIENTS SIGN SIGNERS)" t nil)
-
-(autoload 'epa-delete-keys "epa" "\
-Delete selected KEYS.
-
-\(fn KEYS &optional ALLOW-SECRET)" t nil)
-
-(autoload 'epa-import-keys "epa" "\
-Import keys from FILE.
-
-\(fn FILE)" t nil)
-
-(autoload 'epa-import-keys-region "epa" "\
-Import keys from the region.
-
-\(fn START END)" t nil)
-
-(autoload 'epa-import-armor-in-region "epa" "\
-Import keys in the OpenPGP armor format in the current region
-between START and END.
-
-\(fn START END)" t nil)
-
-(autoload 'epa-export-keys "epa" "\
-Export selected KEYS to FILE.
-
-\(fn KEYS FILE)" t nil)
-
-(autoload 'epa-insert-keys "epa" "\
-Insert selected KEYS after the point.
-
-\(fn KEYS)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (epa-dired-do-encrypt epa-dired-do-sign epa-dired-do-verify
-;;;;;; epa-dired-do-decrypt) "epa-dired" "epa-dired.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from epa-dired.el
-
-(autoload 'epa-dired-do-decrypt "epa-dired" "\
-Decrypt marked files.
-
-\(fn)" t nil)
-
-(autoload 'epa-dired-do-verify "epa-dired" "\
-Verify marked files.
-
-\(fn)" t nil)
-
-(autoload 'epa-dired-do-sign "epa-dired" "\
-Sign marked files.
-
-\(fn)" t nil)
-
-(autoload 'epa-dired-do-encrypt "epa-dired" "\
-Encrypt marked files.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (epa-file-disable epa-file-enable epa-file-handler)
-;;;;;; "epa-file" "epa-file.el" (20707 18685 911514 0))
-;;; Generated autoloads from epa-file.el
-
-(autoload 'epa-file-handler "epa-file" "\
-
-
-\(fn OPERATION &rest ARGS)" nil nil)
-
-(autoload 'epa-file-enable "epa-file" "\
-
-
-\(fn)" t nil)
-
-(autoload 'epa-file-disable "epa-file" "\
-
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (epa-global-mail-mode epa-mail-import-keys epa-mail-encrypt
-;;;;;; epa-mail-sign epa-mail-verify epa-mail-decrypt epa-mail-mode)
-;;;;;; "epa-mail" "epa-mail.el" (20707 18685 911514 0))
-;;; Generated autoloads from epa-mail.el
-
-(autoload 'epa-mail-mode "epa-mail" "\
-A minor-mode for composing encrypted/clearsigned mails.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'epa-mail-decrypt "epa-mail" "\
-Decrypt OpenPGP armors in the current buffer.
-The buffer is expected to contain a mail message.
-
-Don't use this command in Lisp programs!
-
-\(fn)" t nil)
-
-(autoload 'epa-mail-verify "epa-mail" "\
-Verify OpenPGP cleartext signed messages in the current buffer.
-The buffer is expected to contain a mail message.
-
-Don't use this command in Lisp programs!
-
-\(fn)" t nil)
-
-(autoload 'epa-mail-sign "epa-mail" "\
-Sign the current buffer.
-The buffer is expected to contain a mail message.
-
-Don't use this command in Lisp programs!
-
-\(fn START END SIGNERS MODE)" t nil)
-
-(autoload 'epa-mail-encrypt "epa-mail" "\
-Encrypt the current buffer.
-The buffer is expected to contain a mail message.
-
-Don't use this command in Lisp programs!
-
-\(fn START END RECIPIENTS SIGN SIGNERS)" t nil)
-
-(autoload 'epa-mail-import-keys "epa-mail" "\
-Import keys in the OpenPGP armor format in the current buffer.
-The buffer is expected to contain a mail message.
-
-Don't use this command in Lisp programs!
-
-\(fn)" t nil)
-
-(defvar epa-global-mail-mode nil "\
-Non-nil if Epa-Global-Mail mode is enabled.
-See the command `epa-global-mail-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `epa-global-mail-mode'.")
-
-(custom-autoload 'epa-global-mail-mode "epa-mail" nil)
-
-(autoload 'epa-global-mail-mode "epa-mail" "\
-Minor mode to hook EasyPG into Mail mode.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (epg-make-context) "epg" "epg.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from epg.el
-
-(autoload 'epg-make-context "epg" "\
-Return a context object.
-
-\(fn &optional PROTOCOL ARMOR TEXTMODE INCLUDE-CERTS CIPHER-ALGORITHM DIGEST-ALGORITHM COMPRESS-ALGORITHM)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (epg-expand-group epg-check-configuration epg-configuration)
-;;;;;; "epg-config" "epg-config.el" (20707 18685 911514 0))
-;;; Generated autoloads from epg-config.el
-
-(autoload 'epg-configuration "epg-config" "\
-Return a list of internal configuration parameters of `epg-gpg-program'.
-
-\(fn)" nil nil)
-
-(autoload 'epg-check-configuration "epg-config" "\
-Verify that a sufficient version of GnuPG is installed.
-
-\(fn CONFIG &optional MINIMUM-VERSION)" nil nil)
-
-(autoload 'epg-expand-group "epg-config" "\
-Look at CONFIG and try to expand GROUP.
-
-\(fn CONFIG GROUP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (erc-handle-irc-url erc-tls erc erc-select-read-args)
-;;;;;; "erc" "erc/erc.el" (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc.el
-
-(autoload 'erc-select-read-args "erc" "\
-Prompt the user for values of nick, server, port, and password.
-
-\(fn)" nil nil)
-
-(autoload 'erc "erc" "\
-ERC is a powerful, modular, and extensible IRC client.
-This function is the main entry point for ERC.
-
-It permits you to select connection parameters, and then starts ERC.
-
-Non-interactively, it takes the keyword arguments
- (server (erc-compute-server))
- (port (erc-compute-port))
- (nick (erc-compute-nick))
- password
- (full-name (erc-compute-full-name)))
-
-That is, if called with
-
- (erc :server \"irc.freenode.net\" :full-name \"Harry S Truman\")
-
-then the server and full-name will be set to those values, whereas
-`erc-compute-port', `erc-compute-nick' and `erc-compute-full-name' will
-be invoked for the values of the other parameters.
-
-\(fn &key (server (erc-compute-server)) (port (erc-compute-port)) (nick (erc-compute-nick)) PASSWORD (full-name (erc-compute-full-name)))" t nil)
-
-(defalias 'erc-select 'erc)
-
-(autoload 'erc-tls "erc" "\
-Interactively select TLS connection parameters and run ERC.
-Arguments are the same as for `erc'.
-
-\(fn &rest R)" t nil)
-
-(autoload 'erc-handle-irc-url "erc" "\
-Use ERC to IRC on HOST:PORT in CHANNEL as USER with PASSWORD.
-If ERC is already connected to HOST:PORT, simply /join CHANNEL.
-Otherwise, connect to HOST:PORT as USER and /join CHANNEL.
-
-\(fn HOST PORT CHANNEL USER PASSWORD)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from erc/erc-autoaway.el
- (autoload 'erc-autoaway-mode "erc-autoaway")
-
-;;;***
-\f
-;;;### (autoloads nil "erc-button" "erc/erc-button.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from erc/erc-button.el
- (autoload 'erc-button-mode "erc-button" nil t)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (20707 18685
-;;;;;; 911514 0))
-;;; 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" (20707 18685
-;;;;;; 911514 0))
-;;; 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" (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-dcc.el
- (autoload 'erc-dcc-mode "erc-dcc")
-
-(autoload 'erc-cmd-DCC "erc-dcc" "\
-Parser for /dcc command.
-This figures out the dcc subcommand and calls the appropriate routine to
-handle it. The function dispatched should be named \"erc-dcc-do-FOO-command\",
-where FOO is one of CLOSE, GET, SEND, LIST, CHAT, etc.
-
-\(fn CMD &rest ARGS)" nil nil)
-
-(autoload 'pcomplete/erc-mode/DCC "erc-dcc" "\
-Provides completion for the /DCC command.
-
-\(fn)" nil nil)
-
-(defvar erc-ctcp-query-DCC-hook '(erc-ctcp-query-DCC) "\
-Hook variable for CTCP DCC queries.")
-
-(autoload 'erc-ctcp-query-DCC "erc-dcc" "\
-The function called when a CTCP DCC request is detected by the client.
-It examines the DCC subcommand, and calls the appropriate routine for
-that subcommand.
-
-\(fn PROC NICK LOGIN HOST TO QUERY)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-desktop-notifications" "erc/erc-desktop-notifications.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-desktop-notifications.el
-(autoload 'erc-notifications-mode "erc-desktop-notifications" "" t)
-
-;;;***
-\f
-;;;### (autoloads (erc-ezb-initialize erc-ezb-select-session erc-ezb-select
-;;;;;; 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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-ezbounce.el
-
-(autoload 'erc-cmd-ezb "erc-ezbounce" "\
-Send EZB commands to the EZBouncer verbatim.
-
-\(fn LINE &optional FORCE)" nil nil)
-
-(autoload 'erc-ezb-get-login "erc-ezbounce" "\
-Return an appropriate EZBounce login for SERVER and PORT.
-Look up entries in `erc-ezb-login-alist'. If the username or password
-in the alist is `nil', prompt for the appropriate values.
-
-\(fn SERVER PORT)" nil nil)
-
-(autoload 'erc-ezb-lookup-action "erc-ezbounce" "\
-
-
-\(fn MESSAGE)" nil nil)
-
-(autoload 'erc-ezb-notice-autodetect "erc-ezbounce" "\
-React on an EZBounce NOTICE request.
-
-\(fn PROC PARSED)" nil nil)
-
-(autoload 'erc-ezb-identify "erc-ezbounce" "\
-Identify to the EZBouncer server.
-
-\(fn MESSAGE)" nil nil)
-
-(autoload 'erc-ezb-init-session-list "erc-ezbounce" "\
-Reset the EZBounce session list to nil.
-
-\(fn MESSAGE)" nil nil)
-
-(autoload 'erc-ezb-end-of-session-list "erc-ezbounce" "\
-Indicate the end of the EZBounce session listing.
-
-\(fn MESSAGE)" nil nil)
-
-(autoload 'erc-ezb-add-session "erc-ezbounce" "\
-Add an EZBounce session to the session list.
-
-\(fn MESSAGE)" nil nil)
-
-(autoload 'erc-ezb-select "erc-ezbounce" "\
-Select an IRC server to use by EZBounce, in ERC style.
-
-\(fn MESSAGE)" nil nil)
-
-(autoload 'erc-ezb-select-session "erc-ezbounce" "\
-Select a detached EZBounce session.
-
-\(fn)" nil nil)
-
-(autoload 'erc-ezb-initialize "erc-ezbounce" "\
-Add EZBouncer convenience functions to ERC.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from erc/erc-fill.el
- (autoload 'erc-fill-mode "erc-fill" nil t)
-
-(autoload 'erc-fill "erc-fill" "\
-Fill a region using the function referenced in `erc-fill-function'.
-You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd"
-;;;;;; "erc/erc-identd.el" (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-identd.el
- (autoload 'erc-identd-mode "erc-identd")
-
-(autoload 'erc-identd-start "erc-identd" "\
-Start an identd server listening to port 8113.
-Port 113 (auth) will need to be redirected to port 8113 on your
-machine -- using iptables, or a program like redir which can be
-run from inetd. The idea is to provide a simple identd server
-when you need one, without having to install one globally on your
-system.
-
-\(fn &optional PORT)" t nil)
-
-(autoload 'erc-identd-stop "erc-identd" "\
-
-
-\(fn &rest IGNORE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-imenu.el
-
-(autoload 'erc-create-imenu-index "erc-imenu" "\
-
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-join" "erc/erc-join.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from erc/erc-join.el
- (autoload 'erc-autojoin-mode "erc-join" nil t)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-list" "erc/erc-list.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from erc/erc-list.el
- (autoload 'erc-list-mode "erc-list")
-
-;;;***
-\f
-;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log"
-;;;;;; "erc/erc-log.el" (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-log.el
- (autoload 'erc-log-mode "erc-log" nil t)
-
-(autoload 'erc-logging-enabled "erc-log" "\
-Return non-nil if logging is enabled for BUFFER.
-If BUFFER is nil, the value of `current-buffer' is used.
-Logging is enabled if `erc-log-channels-directory' is non-nil, the directory
-is writable (it will be created as necessary) and
-`erc-enable-logging' returns a non-nil value.
-
-\(fn &optional BUFFER)" nil nil)
-
-(autoload 'erc-save-buffer-in-logs "erc-log" "\
-Append BUFFER contents to the log file, if logging is enabled.
-If BUFFER is not provided, current buffer is used.
-Logging is enabled if `erc-logging-enabled' returns non-nil.
-
-This is normally done on exit, to save the unsaved portion of the
-buffer, since only the text that runs off the buffer limit is logged
-automatically.
-
-You can save every individual message by putting this function on
-`erc-insert-post-hook'.
-
-\(fn &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-match.el
- (autoload 'erc-match-mode "erc-match")
-
-(autoload 'erc-add-pal "erc-match" "\
-Add pal interactively to `erc-pals'.
-
-\(fn)" t nil)
-
-(autoload 'erc-delete-pal "erc-match" "\
-Delete pal interactively to `erc-pals'.
-
-\(fn)" t nil)
-
-(autoload 'erc-add-fool "erc-match" "\
-Add fool interactively to `erc-fools'.
-
-\(fn)" t nil)
-
-(autoload 'erc-delete-fool "erc-match" "\
-Delete fool interactively to `erc-fools'.
-
-\(fn)" t nil)
-
-(autoload 'erc-add-keyword "erc-match" "\
-Add keyword interactively to `erc-keywords'.
-
-\(fn)" t nil)
-
-(autoload 'erc-delete-keyword "erc-match" "\
-Delete keyword interactively to `erc-keywords'.
-
-\(fn)" t nil)
-
-(autoload 'erc-add-dangerous-host "erc-match" "\
-Add dangerous-host interactively to `erc-dangerous-hosts'.
-
-\(fn)" t nil)
-
-(autoload 'erc-delete-dangerous-host "erc-match" "\
-Delete dangerous-host interactively to `erc-dangerous-hosts'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (20707 18685 911514
-;;;;;; 0))
-;;; 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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-netsplit.el
- (autoload 'erc-netsplit-mode "erc-netsplit")
-
-(autoload 'erc-cmd-WHOLEFT "erc-netsplit" "\
-Show who's gone.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks"
-;;;;;; "erc/erc-networks.el" (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-networks.el
-
-(autoload 'erc-determine-network "erc-networks" "\
-Return the name of the network or \"Unknown\" as a symbol. Use the
-server parameter NETWORK if provided, otherwise parse the server name and
-search for a match in `erc-networks-alist'.
-
-\(fn)" nil nil)
-
-(autoload 'erc-server-select "erc-networks" "\
-Interactively select a server to connect to using `erc-server-alist'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify"
-;;;;;; "erc/erc-notify.el" (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-notify.el
- (autoload 'erc-notify-mode "erc-notify" nil t)
-
-(autoload 'erc-cmd-NOTIFY "erc-notify" "\
-Change `erc-notify-list' or list current notify-list members online.
-Without args, list the current list of notified people online,
-with args, toggle notify status of people.
-
-\(fn &rest ARGS)" nil nil)
-
-(autoload 'pcomplete/erc-mode/NOTIFY "erc-notify" "\
-
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-page" "erc/erc-page.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from erc/erc-page.el
- (autoload 'erc-page-mode "erc-page")
-
-;;;***
-\f
-;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from erc/erc-pcomplete.el
- (autoload 'erc-completion-mode "erc-pcomplete" nil t)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from erc/erc-replace.el
- (autoload 'erc-replace-mode "erc-replace")
-
-;;;***
-\f
-;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (20707 18685 911514
-;;;;;; 0))
-;;; 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" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from erc/erc-services.el
- (autoload 'erc-services-mode "erc-services" nil t)
-
-(autoload 'erc-nickserv-identify-mode "erc-services" "\
-Set up hooks according to which MODE the user has chosen.
-
-\(fn MODE)" t nil)
-
-(autoload 'erc-nickserv-identify "erc-services" "\
-Send an \"identify <PASSWORD>\" message to NickServ.
-When called interactively, read the password using `read-passwd'.
-
-\(fn PASSWORD)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from erc/erc-sound.el
- (autoload 'erc-sound-mode "erc-sound")
-
-;;;***
-\f
-;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-speedbar.el
-
-(autoload 'erc-speedbar-browser "erc-speedbar" "\
-Initialize speedbar to display an ERC browser.
-This will add a speedbar major display mode.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from erc/erc-spelling.el
- (autoload 'erc-spelling-mode "erc-spelling" nil t)
-
-;;;***
-\f
-;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from erc/erc-stamp.el
- (autoload 'erc-timestamp-mode "erc-stamp" nil t)
-
-;;;***
-\f
-;;;### (autoloads (erc-track-minor-mode) "erc-track" "erc/erc-track.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-track.el
-
-(defvar erc-track-minor-mode nil "\
-Non-nil if Erc-Track minor mode is enabled.
-See the command `erc-track-minor-mode' for a description of this minor mode.")
-
-(custom-autoload 'erc-track-minor-mode "erc-track" nil)
-
-(autoload 'erc-track-minor-mode "erc-track" "\
-Toggle mode line display of ERC activity (ERC Track minor mode).
-With a prefix argument ARG, enable ERC Track minor mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-ERC Track minor mode is a global minor mode. It exists for the
-sole purpose of providing the C-c C-SPC and C-c C-@ keybindings.
-Make sure that you have enabled the track module, otherwise the
-keybindings will not do anything useful.
-
-\(fn &optional ARG)" t nil)
- (autoload 'erc-track-mode "erc-track" nil t)
-
-;;;***
-\f
-;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size)
-;;;;;; "erc-truncate" "erc/erc-truncate.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from erc/erc-truncate.el
- (autoload 'erc-truncate-mode "erc-truncate" nil t)
-
-(autoload 'erc-truncate-buffer-to-size "erc-truncate" "\
-Truncates the buffer to the size SIZE.
-If BUFFER is not provided, the current buffer is assumed. The deleted
-region is logged if `erc-logging-enabled' returns non-nil.
-
-\(fn SIZE &optional BUFFER)" nil nil)
-
-(autoload 'erc-truncate-buffer "erc-truncate" "\
-Truncates the current buffer to `erc-max-buffer-size'.
-Meant to be used in hooks, like `erc-insert-post-hook'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from erc/erc-xdcc.el
- (autoload 'erc-xdcc-mode "erc-xdcc")
-
-(autoload 'erc-xdcc-add-file "erc-xdcc" "\
-Add a file to `erc-xdcc-files'.
-
-\(fn FILE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ert-describe-test ert-run-tests-interactively
-;;;;;; ert-run-tests-batch-and-exit ert-run-tests-batch ert-deftest)
-;;;;;; "ert" "emacs-lisp/ert.el" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/ert.el
-
-(autoload 'ert-deftest "ert" "\
-Define NAME (a symbol) as a test.
-
-BODY is evaluated as a `progn' when the test is run. It should
-signal a condition on failure or just return if the test passes.
-
-`should', `should-not' and `should-error' are useful for
-assertions in BODY.
-
-Use `ert' to run tests interactively.
-
-Tests that are expected to fail can be marked as such
-using :expected-result. See `ert-test-result-type-p' for a
-description of valid values for RESULT-TYPE.
-
-\(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags '(TAG...)] BODY...)" nil (quote macro))
-
-(put 'ert-deftest 'lisp-indent-function 2)
-
-(put 'ert-info 'lisp-indent-function 1)
-
-(autoload 'ert-run-tests-batch "ert" "\
-Run the tests specified by SELECTOR, printing results to the terminal.
-
-SELECTOR works as described in `ert-select-tests', except if
-SELECTOR is nil, in which case all tests rather than none will be
-run; this makes the command line \"emacs -batch -l my-tests.el -f
-ert-run-tests-batch-and-exit\" useful.
-
-Returns the stats object.
-
-\(fn &optional SELECTOR)" nil nil)
-
-(autoload 'ert-run-tests-batch-and-exit "ert" "\
-Like `ert-run-tests-batch', but exits Emacs when done.
-
-The exit status will be 0 if all test results were as expected, 1
-on unexpected results, or 2 if the tool detected an error outside
-of the tests (e.g. invalid SELECTOR or bug in the code that runs
-the tests).
-
-\(fn &optional SELECTOR)" nil nil)
-
-(autoload 'ert-run-tests-interactively "ert" "\
-Run the tests specified by SELECTOR and display the results in a buffer.
-
-SELECTOR works as described in `ert-select-tests'.
-OUTPUT-BUFFER-NAME and MESSAGE-FN should normally be nil; they
-are used for automated self-tests and specify which buffer to use
-and how to display message.
-
-\(fn SELECTOR &optional OUTPUT-BUFFER-NAME MESSAGE-FN)" t nil)
-
-(defalias 'ert 'ert-run-tests-interactively)
-
-(autoload 'ert-describe-test "ert" "\
-Display the documentation for TEST-OR-TEST-NAME (a symbol or ert-test).
-
-\(fn TEST-OR-TEST-NAME)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ert-kill-all-test-buffers) "ert-x" "emacs-lisp/ert-x.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/ert-x.el
-
-(put 'ert-with-test-buffer 'lisp-indent-function 1)
-
-(autoload 'ert-kill-all-test-buffers "ert-x" "\
-Kill all test buffers that are still live.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from eshell/esh-mode.el
-
-(autoload 'eshell-mode "esh-mode" "\
-Emacs shell interactive mode.
-
-\\{eshell-mode-map}
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (eshell-command-result eshell-command eshell) "eshell"
-;;;;;; "eshell/eshell.el" (20707 18685 911514 0))
-;;; Generated autoloads from eshell/eshell.el
-
-(autoload 'eshell "eshell" "\
-Create an interactive Eshell buffer.
-The buffer used for Eshell sessions is determined by the value of
-`eshell-buffer-name'. If there is already an Eshell session active in
-that buffer, Emacs will simply switch to it. Otherwise, a new session
-will begin. A numeric prefix arg (as in `C-u 42 M-x eshell RET')
-switches to the session with that number, creating it if necessary. A
-nonnumeric prefix arg means to create a new session. Returns the
-buffer selected (or created).
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'eshell-command "eshell" "\
-Execute the Eshell command string COMMAND.
-With prefix ARG, insert output into the current buffer at point.
-
-\(fn &optional COMMAND ARG)" t nil)
-
-(autoload 'eshell-command-result "eshell" "\
-Execute the given Eshell COMMAND, and return the result.
-The result might be any Lisp object.
-If STATUS-VAR is a symbol, it will be set to the exit status of the
-command. This is the only way to determine whether the value returned
-corresponding to a successful execution.
-
-\(fn COMMAND &optional STATUS-VAR)" nil nil)
-
-(define-obsolete-function-alias 'eshell-report-bug 'report-emacs-bug "23.1")
-
-;;;***
-\f
-;;;### (autoloads (complete-tag select-tags-table tags-apropos list-tags
-;;;;;; tags-query-replace tags-search tags-loop-continue next-file
-;;;;;; pop-tag-mark find-tag-regexp find-tag-other-frame find-tag-other-window
-;;;;;; find-tag find-tag-noselect tags-table-files visit-tags-table-buffer
-;;;;;; 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"
-;;;;;; (20728 47414 952831 0))
-;;; Generated autoloads from progmodes/etags.el
-
-(defvar tags-file-name nil "\
-File name of tags table.
-To switch to a new tags table, setting this variable is sufficient.
-If you set this variable, do not also set `tags-table-list'.
-Use the `etags' program to make a tags table file.")
- (put 'tags-file-name 'variable-interactive (purecopy "fVisit tags table: "))
- (put 'tags-file-name 'safe-local-variable 'stringp)
-
-(defvar tags-case-fold-search 'default "\
-Whether tags operations should be case-sensitive.
-A value of t means case-insensitive, a value of nil means case-sensitive.
-Any other value means use the setting of `case-fold-search'.")
-
-(custom-autoload 'tags-case-fold-search "etags" t)
-
-(defvar tags-table-list nil "\
-List of file names of tags tables to search.
-An element that is a directory means the file \"TAGS\" in that directory.
-To switch to a new list of tags tables, setting this variable is sufficient.
-If you set this variable, do not also set `tags-file-name'.
-Use the `etags' program to make a tags table file.")
-
-(custom-autoload 'tags-table-list "etags" t)
-
-(defvar tags-compression-info-list (purecopy '("" ".Z" ".bz2" ".gz" ".xz" ".tgz")) "\
-List of extensions tried by etags when `auto-compression-mode' is on.
-An empty string means search the non-compressed file.")
-
-(custom-autoload 'tags-compression-info-list "etags" t)
-
-(defvar tags-add-tables 'ask-user "\
-Control whether to add a new tags table to the current list.
-t means do; nil means don't (always start a new list).
-Any other value means ask the user whether to add a new tags table
-to the current list (as opposed to starting a new list).")
-
-(custom-autoload 'tags-add-tables "etags" t)
-
-(defvar find-tag-hook nil "\
-Hook to be run by \\[find-tag] after finding a tag. See `run-hooks'.
-The value in the buffer in which \\[find-tag] is done is used,
-not the value in the buffer \\[find-tag] goes to.")
-
-(custom-autoload 'find-tag-hook "etags" t)
-
-(defvar find-tag-default-function nil "\
-A function of no arguments used by \\[find-tag] to pick a default tag.
-If nil, and the symbol that is the value of `major-mode'
-has a `find-tag-default-function' property (see `put'), that is used.
-Otherwise, `find-tag-default' is used.")
-
-(custom-autoload 'find-tag-default-function "etags" t)
-
-(autoload 'tags-table-mode "etags" "\
-Major mode for tags table file buffers.
-
-\(fn)" t nil)
-
-(autoload 'visit-tags-table "etags" "\
-Tell tags commands to use tags table file FILE.
-FILE should be the name of a file created with the `etags' program.
-A directory name is ok too; it means file TAGS in that directory.
-
-Normally \\[visit-tags-table] sets the global value of `tags-file-name'.
-With a prefix arg, set the buffer-local value instead.
-When you find a tag with \\[find-tag], the buffer it finds the tag
-in is given a local value of this variable which is the name of the tags
-file the tag was in.
-
-\(fn FILE &optional LOCAL)" t nil)
-
-(autoload 'visit-tags-table-buffer "etags" "\
-Select the buffer containing the current tags table.
-If optional arg is a string, visit that file as a tags table.
-If optional arg is t, visit the next table in `tags-table-list'.
-If optional arg is the atom `same', don't look for a new table;
- just select the buffer visiting `tags-file-name'.
-If arg is nil or absent, choose a first buffer from information in
- `tags-file-name', `tags-table-list', `tags-table-list-pointer'.
-Returns t if it visits a tags table, or nil if there are no more in the list.
-
-\(fn &optional CONT)" nil nil)
-
-(autoload 'tags-table-files "etags" "\
-Return a list of files in the current tags table.
-Assumes the tags table is the current buffer. The file names are returned
-as they appeared in the `etags' command that created the table, usually
-without directory names.
-
-\(fn)" nil nil)
- (defun tags-completion-at-point-function ()
- (if (or tags-table-list tags-file-name)
- (progn
- (load "etags")
- (tags-completion-at-point-function))))
-
-(autoload 'find-tag-noselect "etags" "\
-Find tag (in current tags table) whose name contains TAGNAME.
-Returns the buffer containing the tag's definition and moves its point there,
-but does not select the buffer.
-The default for TAGNAME is the expression in the buffer near point.
-
-If second arg NEXT-P is t (interactively, with prefix arg), search for
-another tag that matches the last tagname or regexp used. When there are
-multiple matches for a tag, more exact matches are found first. If NEXT-P
-is the atom `-' (interactively, with prefix arg that is a negative number
-or just \\[negative-argument]), pop back to the previous tag gone to.
-
-If third arg REGEXP-P is non-nil, treat TAGNAME as a regexp.
-
-A marker representing the point when this command is invoked is pushed
-onto a ring and may be popped back to with \\[pop-tag-mark].
-Contrast this with the ring of marks gone to by the command.
-
-See documentation of variable `tags-file-name'.
-
-\(fn TAGNAME &optional NEXT-P REGEXP-P)" t nil)
-
-(autoload 'find-tag "etags" "\
-Find tag (in current tags table) whose name contains TAGNAME.
-Select the buffer containing the tag's definition, and move point there.
-The default for TAGNAME is the expression in the buffer around or before point.
-
-If second arg NEXT-P is t (interactively, with prefix arg), search for
-another tag that matches the last tagname or regexp used. When there are
-multiple matches for a tag, more exact matches are found first. If NEXT-P
-is the atom `-' (interactively, with prefix arg that is a negative number
-or just \\[negative-argument]), pop back to the previous tag gone to.
-
-If third arg REGEXP-P is non-nil, treat TAGNAME as a regexp.
-
-A marker representing the point when this command is invoked is pushed
-onto a ring and may be popped back to with \\[pop-tag-mark].
-Contrast this with the ring of marks gone to by the command.
-
-See documentation of variable `tags-file-name'.
-
-\(fn TAGNAME &optional NEXT-P REGEXP-P)" t nil)
- (define-key esc-map "." 'find-tag)
-
-(autoload 'find-tag-other-window "etags" "\
-Find tag (in current tags table) whose name contains TAGNAME.
-Select the buffer containing the tag's definition in another window, and
-move point there. The default for TAGNAME is the expression in the buffer
-around or before point.
-
-If second arg NEXT-P is t (interactively, with prefix arg), search for
-another tag that matches the last tagname or regexp used. When there are
-multiple matches for a tag, more exact matches are found first. If NEXT-P
-is negative (interactively, with prefix arg that is a negative number or
-just \\[negative-argument]), pop back to the previous tag gone to.
-
-If third arg REGEXP-P is non-nil, treat TAGNAME as a regexp.
-
-A marker representing the point when this command is invoked is pushed
-onto a ring and may be popped back to with \\[pop-tag-mark].
-Contrast this with the ring of marks gone to by the command.
-
-See documentation of variable `tags-file-name'.
-
-\(fn TAGNAME &optional NEXT-P REGEXP-P)" t nil)
- (define-key ctl-x-4-map "." 'find-tag-other-window)
-
-(autoload 'find-tag-other-frame "etags" "\
-Find tag (in current tags table) whose name contains TAGNAME.
-Select the buffer containing the tag's definition in another frame, and
-move point there. The default for TAGNAME is the expression in the buffer
-around or before point.
-
-If second arg NEXT-P is t (interactively, with prefix arg), search for
-another tag that matches the last tagname or regexp used. When there are
-multiple matches for a tag, more exact matches are found first. If NEXT-P
-is negative (interactively, with prefix arg that is a negative number or
-just \\[negative-argument]), pop back to the previous tag gone to.
-
-If third arg REGEXP-P is non-nil, treat TAGNAME as a regexp.
-
-A marker representing the point when this command is invoked is pushed
-onto a ring and may be popped back to with \\[pop-tag-mark].
-Contrast this with the ring of marks gone to by the command.
-
-See documentation of variable `tags-file-name'.
-
-\(fn TAGNAME &optional NEXT-P)" t nil)
- (define-key ctl-x-5-map "." 'find-tag-other-frame)
-
-(autoload 'find-tag-regexp "etags" "\
-Find tag (in current tags table) whose name matches REGEXP.
-Select the buffer containing the tag's definition and move point there.
-
-If second arg NEXT-P is t (interactively, with prefix arg), search for
-another tag that matches the last tagname or regexp used. When there are
-multiple matches for a tag, more exact matches are found first. If NEXT-P
-is negative (interactively, with prefix arg that is a negative number or
-just \\[negative-argument]), pop back to the previous tag gone to.
-
-If third arg OTHER-WINDOW is non-nil, select the buffer in another window.
-
-A marker representing the point when this command is invoked is pushed
-onto a ring and may be popped back to with \\[pop-tag-mark].
-Contrast this with the ring of marks gone to by the command.
-
-See documentation of variable `tags-file-name'.
-
-\(fn REGEXP &optional NEXT-P OTHER-WINDOW)" t nil)
- (define-key esc-map [?\C-.] 'find-tag-regexp)
- (define-key esc-map "*" 'pop-tag-mark)
-
-(autoload 'pop-tag-mark "etags" "\
-Pop back to where \\[find-tag] was last invoked.
-
-This is distinct from invoking \\[find-tag] with a negative argument
-since that pops a stack of markers at which tags were found, not from
-where they were found.
-
-\(fn)" t nil)
-
-(autoload 'next-file "etags" "\
-Select next file among files in current tags table.
-
-A first argument of t (prefix arg, if interactive) initializes to the
-beginning of the list of files in the tags table. If the argument is
-neither nil nor t, it is evalled to initialize the list of files.
-
-Non-nil second argument NOVISIT means use a temporary buffer
- to save time and avoid uninteresting warnings.
-
-Value is nil if the file was already visited;
-if the file was newly read in, the value is the filename.
-
-\(fn &optional INITIALIZE NOVISIT)" t nil)
-
-(autoload 'tags-loop-continue "etags" "\
-Continue last \\[tags-search] or \\[tags-query-replace] command.
-Used noninteractively with non-nil argument to begin such a command (the
-argument is passed to `next-file', which see).
-
-Two variables control the processing we do on each file: the value of
-`tags-loop-scan' is a form to be executed on each file to see if it is
-interesting (it returns non-nil if so) and `tags-loop-operate' is a form to
-evaluate to operate on an interesting file. If the latter evaluates to
-nil, we exit; otherwise we scan the next file.
-
-\(fn &optional FIRST-TIME)" t nil)
- (define-key esc-map "," 'tags-loop-continue)
-
-(autoload 'tags-search "etags" "\
-Search through all files listed in tags table for match for REGEXP.
-Stops when a match is found.
-To continue searching for next match, use command \\[tags-loop-continue].
-
-If FILE-LIST-FORM is non-nil, it should be a form that, when
-evaluated, will return a list of file names. The search will be
-restricted to these files.
-
-Also see the documentation of the `tags-file-name' variable.
-
-\(fn REGEXP &optional FILE-LIST-FORM)" t nil)
-
-(autoload 'tags-query-replace "etags" "\
-Do `query-replace-regexp' of FROM with TO on all files listed in tags table.
-Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
-If you exit (\\[keyboard-quit], RET or q), you can resume the query replace
-with the command \\[tags-loop-continue].
-Fourth arg FILE-LIST-FORM non-nil means initialize the replacement loop.
-Fifth and sixth arguments START and END are accepted, for compatibility
-with `query-replace-regexp', and ignored.
-
-If FILE-LIST-FORM is non-nil, it is a form to evaluate to
-produce the list of files to search.
-
-See also the documentation of the variable `tags-file-name'.
-
-\(fn FROM TO &optional DELIMITED FILE-LIST-FORM)" t nil)
-
-(autoload 'list-tags "etags" "\
-Display list of tags in file FILE.
-This searches only the first table in the list, and no included tables.
-FILE should be as it appeared in the `etags' command, usually without a
-directory specification.
-
-\(fn FILE &optional NEXT-MATCH)" t nil)
-
-(autoload 'tags-apropos "etags" "\
-Display list of all tags in tags table REGEXP matches.
-
-\(fn REGEXP)" t nil)
-
-(autoload 'select-tags-table "etags" "\
-Select a tags table file from a menu of those you have already used.
-The list of tags tables to select from is stored in `tags-table-set-list';
-see the doc of that variable if you want to add names to the list.
-
-\(fn)" t nil)
-
-(autoload 'complete-tag "etags" "\
-Perform tags completion on the text around point.
-Completes to the set of names listed in the current tags table.
-The string to complete is chosen in the same way as the default
-for \\[find-tag] (which see).
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ethio-composition-function ethio-insert-ethio-space
-;;;;;; ethio-write-file ethio-find-file ethio-java-to-fidel-buffer
-;;;;;; ethio-fidel-to-java-buffer ethio-tex-to-fidel-buffer ethio-fidel-to-tex-buffer
-;;;;;; ethio-input-special-character ethio-replace-space ethio-modify-vowel
-;;;;;; ethio-fidel-to-sera-marker ethio-fidel-to-sera-region ethio-fidel-to-sera-buffer
-;;;;;; ethio-sera-to-fidel-marker ethio-sera-to-fidel-region ethio-sera-to-fidel-buffer
-;;;;;; setup-ethiopic-environment-internal) "ethio-util" "language/ethio-util.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from language/ethio-util.el
-
-(autoload 'setup-ethiopic-environment-internal "ethio-util" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'ethio-sera-to-fidel-buffer "ethio-util" "\
-Convert the current buffer from SERA to FIDEL.
-
-The variable `ethio-primary-language' specifies the primary
-language and `ethio-secondary-language' specifies the secondary.
-
-If the 1st optional argument SECONDARY is non-nil, assume the
-buffer begins with the secondary language; otherwise with the
-primary language.
-
-If the 2nd optional argument FORCE is non-nil, perform conversion
-even if the buffer is read-only.
-
-See also the descriptions of the variables
-`ethio-use-colon-for-colon' and `ethio-use-three-dot-question'.
-
-\(fn &optional SECONDARY FORCE)" t nil)
-
-(autoload 'ethio-sera-to-fidel-region "ethio-util" "\
-Convert the characters in region from SERA to FIDEL.
-
-The variable `ethio-primary-language' specifies the primary
-language and `ethio-secondary-language' specifies the secondary.
-
-If the 3rd argument SECONDARY is given and non-nil, assume the
-region begins with the secondary language; otherwise with the
-primary language.
-
-If the 4th argument FORCE is given and non-nil, perform
-conversion even if the buffer is read-only.
-
-See also the descriptions of the variables
-`ethio-use-colon-for-colon' and `ethio-use-three-dot-question'.
-
-\(fn BEGIN END &optional SECONDARY FORCE)" t nil)
-
-(autoload 'ethio-sera-to-fidel-marker "ethio-util" "\
-Convert the regions surrounded by \"<sera>\" and \"</sera>\" from SERA to FIDEL.
-Assume that each region begins with `ethio-primary-language'.
-The markers \"<sera>\" and \"</sera>\" themselves are not deleted.
-
-\(fn &optional FORCE)" t nil)
-
-(autoload 'ethio-fidel-to-sera-buffer "ethio-util" "\
-Replace all the FIDEL characters in the current buffer to the SERA format.
-The variable `ethio-primary-language' specifies the primary
-language and `ethio-secondary-language' specifies the secondary.
-
-If the 1st optional argument SECONDARY is non-nil, try to convert the
-region so that it begins with the secondary language; otherwise with the
-primary language.
-
-If the 2nd optional argument FORCE is non-nil, convert even if the
-buffer is read-only.
-
-See also the descriptions of the variables
-`ethio-use-colon-for-colon', `ethio-use-three-dot-question',
-`ethio-quote-vowel-always' and `ethio-numeric-reduction'.
-
-\(fn &optional SECONDARY FORCE)" t nil)
-
-(autoload 'ethio-fidel-to-sera-region "ethio-util" "\
-Replace all the FIDEL characters in the region to the SERA format.
-
-The variable `ethio-primary-language' specifies the primary
-language and `ethio-secondary-language' specifies the secondary.
-
-If the 3rd argument SECONDARY is given and non-nil, convert
-the region so that it begins with the secondary language; otherwise with
-the primary language.
-
-If the 4th argument FORCE is given and non-nil, convert even if the
-buffer is read-only.
-
-See also the descriptions of the variables
-`ethio-use-colon-for-colon', `ethio-use-three-dot-question',
-`ethio-quote-vowel-always' and `ethio-numeric-reduction'.
-
-\(fn BEGIN END &optional SECONDARY FORCE)" t nil)
-
-(autoload 'ethio-fidel-to-sera-marker "ethio-util" "\
-Convert the regions surrounded by \"<sera>\" and \"</sera>\" from FIDEL to SERA.
-The markers \"<sera>\" and \"</sera>\" themselves are not deleted.
-
-\(fn &optional FORCE)" t nil)
-
-(autoload 'ethio-modify-vowel "ethio-util" "\
-Modify the vowel of the FIDEL that is under the cursor.
-
-\(fn)" t nil)
-
-(autoload 'ethio-replace-space "ethio-util" "\
-Replace ASCII spaces with Ethiopic word separators in the region.
-
-In the specified region, replace word separators surrounded by two
-Ethiopic characters, depending on the first argument CH, which should
-be 1, 2, or 3.
-
-If CH = 1, word separator will be replaced with an ASCII space.
-If CH = 2, with two ASCII spaces.
-If CH = 3, with the Ethiopic colon-like word separator.
-
-The 2nd and 3rd arguments BEGIN and END specify the region.
-
-\(fn CH BEGIN END)" t nil)
-
-(autoload 'ethio-input-special-character "ethio-util" "\
-This function is deprecated.
-
-\(fn ARG)" t nil)
-
-(autoload 'ethio-fidel-to-tex-buffer "ethio-util" "\
-Convert each fidel characters in the current buffer into a fidel-tex command.
-
-\(fn)" t nil)
-
-(autoload 'ethio-tex-to-fidel-buffer "ethio-util" "\
-Convert fidel-tex commands in the current buffer into fidel chars.
-
-\(fn)" t nil)
-
-(autoload 'ethio-fidel-to-java-buffer "ethio-util" "\
-Convert Ethiopic characters into the Java escape sequences.
-
-Each escape sequence is of the form \\uXXXX, where XXXX is the
-character's codepoint (in hex) in Unicode.
-
-If `ethio-java-save-lowercase' is non-nil, use [0-9a-f].
-Otherwise, [0-9A-F].
-
-\(fn)" nil nil)
-
-(autoload 'ethio-java-to-fidel-buffer "ethio-util" "\
-Convert the Java escape sequences into corresponding Ethiopic characters.
-
-\(fn)" nil nil)
-
-(autoload 'ethio-find-file "ethio-util" "\
-Transliterate file content into Ethiopic depending on filename suffix.
-
-\(fn)" nil nil)
-
-(autoload 'ethio-write-file "ethio-util" "\
-Transliterate Ethiopic characters in ASCII depending on the file extension.
-
-\(fn)" nil nil)
-
-(autoload 'ethio-insert-ethio-space "ethio-util" "\
-Insert the Ethiopic word delimiter (the colon-like character).
-With ARG, insert that many delimiters.
-
-\(fn ARG)" t nil)
-
-(autoload 'ethio-composition-function "ethio-util" "\
-
-
-\(fn POS TO FONT-OBJECT STRING)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline
-;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from net/eudc.el
-
-(autoload 'eudc-set-server "eudc" "\
-Set the directory server to SERVER using PROTOCOL.
-Unless NO-SAVE is non-nil, the server is saved as the default
-server for future sessions.
-
-\(fn SERVER PROTOCOL &optional NO-SAVE)" t nil)
-
-(autoload 'eudc-get-email "eudc" "\
-Get the email field of NAME from the directory server.
-If ERROR is non-nil, report an error if there is none.
-
-\(fn NAME &optional ERROR)" t nil)
-
-(autoload 'eudc-get-phone "eudc" "\
-Get the phone field of NAME from the directory server.
-If ERROR is non-nil, report an error if there is none.
-
-\(fn NAME &optional ERROR)" t nil)
-
-(autoload 'eudc-expand-inline "eudc" "\
-Query the directory server, and expand the query string before point.
-The query string consists of the buffer substring from the point back to
-the preceding comma, colon or beginning of line.
-The variable `eudc-inline-query-format' controls how to associate the
-individual inline query words with directory attribute names.
-After querying the server for the given string, the expansion specified by
-`eudc-inline-expansion-format' is inserted in the buffer at point.
-If REPLACE is non-nil, then this expansion replaces the name in the buffer.
-`eudc-expansion-overwrites-query' being non-nil inverts the meaning of REPLACE.
-Multiple servers can be tried with the same query until one finds a match,
-see `eudc-inline-expansion-servers'
-
-\(fn &optional REPLACE)" t nil)
-
-(autoload 'eudc-query-form "eudc" "\
-Display a form to query the directory server.
-If given a non-nil argument GET-FIELDS-FROM-SERVER, the function first
-queries the server for the existing fields and displays a corresponding form.
-
-\(fn &optional GET-FIELDS-FROM-SERVER)" t nil)
-
-(autoload 'eudc-load-eudc "eudc" "\
-Load the Emacs Unified Directory Client.
-This does nothing except loading eudc by autoload side-effect.
-
-\(fn)" t nil)
-
-(cond ((not (featurep 'xemacs)) (defvar eudc-tools-menu (let ((map (make-sparse-keymap "Directory Search"))) (define-key map [phone] `(menu-item ,(purecopy "Get Phone") eudc-get-phone :help ,(purecopy "Get the phone field of name from the directory server"))) (define-key map [email] `(menu-item ,(purecopy "Get Email") eudc-get-email :help ,(purecopy "Get the email field of NAME from the directory server"))) (define-key map [separator-eudc-email] menu-bar-separator) (define-key map [expand-inline] `(menu-item ,(purecopy "Expand Inline Query") eudc-expand-inline :help ,(purecopy "Query the directory server, and expand the query string before point"))) (define-key map [query] `(menu-item ,(purecopy "Query with Form") eudc-query-form :help ,(purecopy "Display a form to query the directory server"))) (define-key map [separator-eudc-query] menu-bar-separator) (define-key map [new] `(menu-item ,(purecopy "New Server") eudc-set-server :help ,(purecopy "Set the directory server to SERVER using PROTOCOL"))) (define-key map [load] `(menu-item ,(purecopy "Load Hotlist of Servers") eudc-load-eudc :help ,(purecopy "Load the Emacs Unified Directory Client"))) map)) (fset 'eudc-tools-menu (symbol-value 'eudc-tools-menu))) (t (let ((menu '("Directory Search" ["Load Hotlist of Servers" eudc-load-eudc t] ["New Server" eudc-set-server t] ["---" nil nil] ["Query with Form" eudc-query-form t] ["Expand Inline Query" eudc-expand-inline t] ["---" nil nil] ["Get Email" eudc-get-email t] ["Get Phone" eudc-get-phone t]))) (if (not (featurep 'eudc-autoloads)) (if (featurep 'xemacs) (if (and (featurep 'menubar) (not (featurep 'infodock))) (add-submenu '("Tools") menu)) (require 'easymenu) (cond ((fboundp 'easy-menu-add-item) (easy-menu-add-item nil '("tools") (easy-menu-create-menu (car menu) (cdr menu)))) ((fboundp 'easy-menu-create-keymaps) (define-key global-map [menu-bar tools eudc] (cons "Directory Search" (easy-menu-create-keymaps "Directory Search" (cdr menu)))))))))))
-
-;;;***
-\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" (20707 18685 911514 0))
-;;; Generated autoloads from net/eudc-bob.el
-
-(autoload 'eudc-display-generic-binary "eudc-bob" "\
-Display a button for unidentified binary DATA.
-
-\(fn DATA)" nil nil)
-
-(autoload 'eudc-display-url "eudc-bob" "\
-Display URL and make it clickable.
-
-\(fn URL)" nil nil)
-
-(autoload 'eudc-display-mail "eudc-bob" "\
-Display e-mail address and make it clickable.
-
-\(fn MAIL)" nil nil)
-
-(autoload 'eudc-display-sound "eudc-bob" "\
-Display a button to play the sound DATA.
-
-\(fn DATA)" nil nil)
-
-(autoload 'eudc-display-jpeg-inline "eudc-bob" "\
-Display the JPEG DATA inline at point if possible.
-
-\(fn DATA)" nil nil)
-
-(autoload 'eudc-display-jpeg-as-button "eudc-bob" "\
-Display a button for the JPEG DATA.
-
-\(fn DATA)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb)
-;;;;;; "eudc-export" "net/eudc-export.el" (20707 18685 911514 0))
-;;; Generated autoloads from net/eudc-export.el
-
-(autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\
-Insert record at point into the BBDB database.
-This function can only be called from a directory query result buffer.
-
-\(fn)" t nil)
-
-(autoload 'eudc-try-bbdb-insert "eudc-export" "\
-Call `eudc-insert-record-at-point-into-bbdb' if on a record.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from net/eudc-hotlist.el
-
-(autoload 'eudc-edit-hotlist "eudc-hotlist" "\
-Edit the hotlist of directory servers in a specialized buffer.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/ewoc.el
-
-(autoload 'ewoc-create "ewoc" "\
-Create an empty ewoc.
-
-The ewoc will be inserted in the current buffer at the current position.
-
-PRETTY-PRINTER should be a function that takes one argument, an
-element, and inserts a string representing it in the buffer (at
-point). The string PRETTY-PRINTER inserts may be empty or span
-several lines. The PRETTY-PRINTER should use `insert', and not
-`insert-before-markers'.
-
-Optional second and third arguments HEADER and FOOTER are strings,
-possibly empty, that will always be present at the top and bottom,
-respectively, of the ewoc.
-
-Normally, a newline is automatically inserted after the header,
-the footer and every node's printed representation. Optional
-fourth arg NOSEP non-nil inhibits this.
-
-\(fn PRETTY-PRINTER &optional HEADER FOOTER NOSEP)" nil nil)
-
-;;;***
-\f
-;;;### (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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/executable.el
-
-(autoload 'executable-command-find-posix-p "executable" "\
-Check if PROGRAM handles arguments Posix-style.
-If PROGRAM is non-nil, use that instead of \"find\".
-
-\(fn &optional PROGRAM)" nil nil)
-
-(autoload 'executable-interpret "executable" "\
-Run script with user-specified args, and collect output in a buffer.
-While script runs asynchronously, you can use the \\[next-error]
-command to find the next error. The buffer is also in `comint-mode' and
-`compilation-shell-minor-mode', so that you can answer any prompts.
-
-\(fn COMMAND)" t nil)
-
-(autoload 'executable-set-magic "executable" "\
-Set this buffer's interpreter to INTERPRETER with optional ARGUMENT.
-The variables `executable-magicless-file-regexp', `executable-prefix',
-`executable-insert', `executable-query' and `executable-chmod' control
-when and how magic numbers are inserted or replaced and scripts made
-executable.
-
-\(fn INTERPRETER &optional ARGUMENT NO-QUERY-FLAG INSERT-FLAG)" t nil)
-
-(autoload 'executable-self-display "executable" "\
-Turn a text file into a self-displaying Un*x command.
-The magic number of such a command displays all lines but itself.
-
-\(fn)" t nil)
-
-(autoload 'executable-make-buffer-file-executable-if-script-p "executable" "\
-Make file executable according to umask if not already executable.
-If file already has any execute bits set at all, do not change existing
-file modes.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot
-;;;;;; expand-abbrev-hook expand-add-abbrevs) "expand" "expand.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from expand.el
-
-(autoload 'expand-add-abbrevs "expand" "\
-Add a list of abbreviations to abbrev table TABLE.
-ABBREVS is a list of abbrev definitions; each abbrev description entry
-has the form (ABBREV EXPANSION ARG).
-
-ABBREV is the abbreviation to replace.
-
-EXPANSION is the replacement string or a function which will make the
-expansion. For example, you could use the DMacros or skeleton packages
-to generate such functions.
-
-ARG is an optional argument which can be a number or a list of
-numbers. If ARG is a number, point is placed ARG chars from the
-beginning of the expanded text.
-
-If ARG is a list of numbers, point is placed according to the first
-member of the list, but you can visit the other specified positions
-cyclically with the functions `expand-jump-to-previous-slot' and
-`expand-jump-to-next-slot'.
-
-If ARG is omitted, point is placed at the end of the expanded text.
-
-\(fn TABLE ABBREVS)" nil nil)
-
-(autoload 'expand-abbrev-hook "expand" "\
-Abbrev hook used to do the expansion job of expand abbrevs.
-See `expand-add-abbrevs'. Value is non-nil if expansion was done.
-
-\(fn)" nil nil)
-
-(autoload 'expand-jump-to-previous-slot "expand" "\
-Move the cursor to the previous slot in the last abbrev expansion.
-This is used only in conjunction with `expand-add-abbrevs'.
-
-\(fn)" t nil)
-
-(autoload 'expand-jump-to-next-slot "expand" "\
-Move the cursor to the next slot in the last abbrev expansion.
-This is used only in conjunction with `expand-add-abbrevs'.
-
-\(fn)" t nil)
- (define-key abbrev-map "p" 'expand-jump-to-previous-slot)
- (define-key abbrev-map "n" 'expand-jump-to-next-slot)
-
-;;;***
-\f
-;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from progmodes/f90.el
-
-(autoload 'f90-mode "f90" "\
-Major mode for editing Fortran 90,95 code in free format.
-For fixed format code, use `fortran-mode'.
-
-\\[f90-indent-line] indents the current line.
-\\[f90-indent-new-line] indents current line and creates a new indented line.
-\\[f90-indent-subprogram] indents the current subprogram.
-
-Type `? or `\\[help-command] to display a list of built-in abbrevs for F90 keywords.
-
-Key definitions:
-\\{f90-mode-map}
-
-Variables controlling indentation style and extra features:
-
-`f90-do-indent'
- Extra indentation within do blocks (default 3).
-`f90-if-indent'
- Extra indentation within if/select/where/forall blocks (default 3).
-`f90-type-indent'
- Extra indentation within type/enum/interface/block-data blocks (default 3).
-`f90-program-indent'
- Extra indentation within program/module/subroutine/function blocks
- (default 2).
-`f90-associate-indent'
- Extra indentation within associate blocks (default 2).
-`f90-critical-indent'
- Extra indentation within critical/block blocks (default 2).
-`f90-continuation-indent'
- Extra indentation applied to continuation lines (default 5).
-`f90-comment-region'
- String inserted by function \\[f90-comment-region] at start of each
- line in region (default \"!!!$\").
-`f90-indented-comment-re'
- Regexp determining the type of comment to be intended like code
- (default \"!\").
-`f90-directive-comment-re'
- Regexp of comment-like directive like \"!HPF\\\\$\", not to be indented
- (default \"!hpf\\\\$\").
-`f90-break-delimiters'
- Regexp holding list of delimiters at which lines may be broken
- (default \"[-+*/><=,% \\t]\").
-`f90-break-before-delimiters'
- Non-nil causes `f90-do-auto-fill' to break lines before delimiters
- (default t).
-`f90-beginning-ampersand'
- Automatic insertion of & at beginning of continuation lines (default t).
-`f90-smart-end'
- From an END statement, check and fill the end using matching block start.
- Allowed values are 'blink, 'no-blink, and nil, which determine
- whether to blink the matching beginning (default 'blink).
-`f90-auto-keyword-case'
- Automatic change of case of keywords (default nil).
- The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word.
-`f90-leave-line-no'
- Do not left-justify line numbers (default nil).
-
-Turning on F90 mode calls the value of the variable `f90-mode-hook'
-with no args, if that value is non-nil.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (variable-pitch-mode buffer-face-toggle buffer-face-set
-;;;;;; buffer-face-mode text-scale-adjust text-scale-decrease text-scale-increase
-;;;;;; text-scale-set face-remap-set-base face-remap-reset-base
-;;;;;; face-remap-add-relative) "face-remap" "face-remap.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from face-remap.el
-
-(autoload 'face-remap-add-relative "face-remap" "\
-Add a face remapping entry of FACE to SPECS in the current buffer.
-Return a cookie which can be used to delete this remapping with
-`face-remap-remove-relative'.
-
-The remaining arguments, SPECS, should form a list of faces.
-Each list element should be either a face name or a property list
-of face attribute/value pairs. If more than one face is listed,
-that specifies an aggregate face, in the same way as in a `face'
-text property, except for possible priority changes noted below.
-
-The face remapping specified by SPECS takes effect alongside the
-remappings from other calls to `face-remap-add-relative' for the
-same FACE, as well as the normal definition of FACE (at lowest
-priority). This function tries to sort multiple remappings for
-the same face, so that remappings specifying relative face
-attributes are applied after remappings specifying absolute face
-attributes.
-
-The base (lowest priority) remapping may be set to something
-other than the normal definition of FACE via `face-remap-set-base'.
-
-\(fn FACE &rest SPECS)" nil nil)
-
-(autoload 'face-remap-reset-base "face-remap" "\
-Set the base remapping of FACE to the normal definition of FACE.
-This causes the remappings specified by `face-remap-add-relative'
-to apply on top of the normal definition of FACE.
-
-\(fn FACE)" nil nil)
-
-(autoload 'face-remap-set-base "face-remap" "\
-Set the base remapping of FACE in the current buffer to SPECS.
-This causes the remappings specified by `face-remap-add-relative'
-to apply on top of the face specification given by SPECS.
-
-The remaining arguments, SPECS, should form a list of faces.
-Each list element should be either a face name or a property list
-of face attribute/value pairs, like in a `face' text property.
-
-If SPECS is empty, call `face-remap-reset-base' to use the normal
-definition of FACE as the base remapping; note that this is
-different from SPECS containing a single value `nil', which means
-not to inherit from the global definition of FACE at all.
-
-\(fn FACE &rest SPECS)" nil nil)
-
-(autoload 'text-scale-set "face-remap" "\
-Set the scale factor of the default face in the current buffer to LEVEL.
-If LEVEL is non-zero, `text-scale-mode' is enabled, otherwise it is disabled.
-
-LEVEL is a number of steps, with 0 representing the default size.
-Each step scales the height of the default face by the variable
-`text-scale-mode-step' (a negative number decreases the height by
-the same amount).
-
-\(fn LEVEL)" t nil)
-
-(autoload 'text-scale-increase "face-remap" "\
-Increase the height of the default face in the current buffer by INC steps.
-If the new height is other than the default, `text-scale-mode' is enabled.
-
-Each step scales the height of the default face by the variable
-`text-scale-mode-step' (a negative number of steps decreases the
-height by the same amount). As a special case, an argument of 0
-will remove any scaling currently active.
-
-\(fn INC)" t nil)
-
-(autoload 'text-scale-decrease "face-remap" "\
-Decrease the height of the default face in the current buffer by DEC steps.
-See `text-scale-increase' for more details.
-
-\(fn DEC)" t nil)
- (define-key ctl-x-map [(control ?+)] 'text-scale-adjust)
- (define-key ctl-x-map [(control ?-)] 'text-scale-adjust)
- (define-key ctl-x-map [(control ?=)] 'text-scale-adjust)
- (define-key ctl-x-map [(control ?0)] 'text-scale-adjust)
-
-(autoload 'text-scale-adjust "face-remap" "\
-Adjust the height of the default face by INC.
-
-INC may be passed as a numeric prefix argument.
-
-The actual adjustment made depends on the final component of the
-key-binding used to invoke the command, with all modifiers removed:
-
- +, = Increase the default face height by one step
- - Decrease the default face height by one step
- 0 Reset the default face height to the global default
-
-When adjusting with `+' or `-', continue to read input events and
-further adjust the face height as long as the input event read
-\(with all modifiers removed) is `+' or `-'.
-
-When adjusting with `0', immediately finish.
-
-Each step scales the height of the default face by the variable
-`text-scale-mode-step' (a negative number of steps decreases the
-height by the same amount). As a special case, an argument of 0
-will remove any scaling currently active.
-
-This command is a special-purpose wrapper around the
-`text-scale-increase' command which makes repetition convenient
-even when it is bound in a non-top-level keymap. For binding in
-a top-level keymap, `text-scale-increase' or
-`text-scale-decrease' may be more appropriate.
-
-\(fn INC)" t nil)
-
-(autoload 'buffer-face-mode "face-remap" "\
-Minor mode for a buffer-specific default face.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil. When enabled, the face specified by the
-variable `buffer-face-mode-face' is used to display the buffer text.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'buffer-face-set "face-remap" "\
-Enable `buffer-face-mode', using face specs SPECS.
-Each argument in SPECS should be a face, i.e. either a face name
-or a property list of face attributes and values. If more than
-one face is listed, that specifies an aggregate face, like in a
-`face' text property. If SPECS is nil or omitted, disable
-`buffer-face-mode'.
-
-This function makes the variable `buffer-face-mode-face' buffer
-local, and sets it to FACE.
-
-\(fn &rest SPECS)" t nil)
-
-(autoload 'buffer-face-toggle "face-remap" "\
-Toggle `buffer-face-mode', using face specs SPECS.
-Each argument in SPECS should be a face, i.e. either a face name
-or a property list of face attributes and values. If more than
-one face is listed, that specifies an aggregate face, like in a
-`face' text property.
-
-If `buffer-face-mode' is already enabled, and is currently using
-the face specs SPECS, then it is disabled; if buffer-face-mode is
-disabled, or is enabled and currently displaying some other face,
-then is left enabled, but the face changed to reflect SPECS.
-
-This function will make the variable `buffer-face-mode-face'
-buffer local, and set it to SPECS.
-
-\(fn &rest SPECS)" t nil)
-
-(autoload 'variable-pitch-mode "face-remap" "\
-Variable-pitch default-face mode.
-An interface to `buffer-face-mode' which uses the `variable-pitch' face.
-Besides the choice of face, it is the same as `buffer-face-mode'.
-
-\(fn &optional ARG)" t 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" (20627 28531
-;;;;;; 447943 0))
-;;; Generated autoloads from mail/feedmail.el
-
-(autoload 'feedmail-send-it "feedmail" "\
-Send the current mail buffer using the Feedmail package.
-This is a suitable value for `send-mail-function'. It can be used
-with various lower-level mechanisms to provide features such as queueing.
-
-\(fn)" nil nil)
-
-(autoload 'feedmail-run-the-queue-no-prompts "feedmail" "\
-Like `feedmail-run-the-queue', but suppress confirmation prompts.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'feedmail-run-the-queue-global-prompt "feedmail" "\
-Like `feedmail-run-the-queue', but with a global confirmation prompt.
-This is generally most useful if run non-interactively, since you can
-bail out with an appropriate answer to the global confirmation prompt.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'feedmail-run-the-queue "feedmail" "\
-Visit each message in the feedmail queue directory and send it out.
-Return value is a list of three things: number of messages sent, number of
-messages skipped, and number of non-message things in the queue (commonly
-backup file names and the like).
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'feedmail-queue-reminder "feedmail" "\
-Perform some kind of reminder activity about queued and draft messages.
-Called with an optional symbol argument which says what kind of event
-is triggering the reminder activity. The default is 'on-demand, which
-is what you typically would use if you were putting this in your Emacs start-up
-or mail hook code. Other recognized values for WHAT-EVENT (these are passed
-internally by feedmail):
-
- after-immediate (a message has just been sent in immediate mode)
- after-queue (a message has just been queued)
- after-draft (a message has just been placed in the draft directory)
- after-run (the queue has just been run, possibly sending messages)
-
-WHAT-EVENT is used as a key into the table `feedmail-queue-reminder-alist'. If
-the associated value is a function, it is called without arguments and is expected
-to perform the reminder activity. You can supply your own reminder functions
-by redefining `feedmail-queue-reminder-alist'. If you don't want any reminders,
-you can set `feedmail-queue-reminder-alist' to nil.
-
-\(fn &optional WHAT-EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ffap-bindings ffap-guess-file-name-at-point dired-at-point
-;;;;;; ffap-at-mouse ffap-menu find-file-at-point ffap-next) "ffap"
-;;;;;; "ffap.el" (20707 18685 911514 0))
-;;; Generated autoloads from ffap.el
-
-(autoload 'ffap-next "ffap" "\
-Search buffer for next file or URL, and run ffap.
-Optional argument BACK says to search backwards.
-Optional argument WRAP says to try wrapping around if necessary.
-Interactively: use a single prefix to search backwards,
-double prefix to wrap forward, triple to wrap backwards.
-Actual search is done by `ffap-next-guess'.
-
-\(fn &optional BACK WRAP)" t nil)
-
-(autoload 'find-file-at-point "ffap" "\
-Find FILENAME, guessing a default from text around point.
-If `ffap-url-regexp' is not nil, the FILENAME may also be an URL.
-With a prefix, this command behaves exactly like `ffap-file-finder'.
-If `ffap-require-prefix' is set, the prefix meaning is reversed.
-See also the variables `ffap-dired-wildcards', `ffap-newfile-prompt',
-and the functions `ffap-file-at-point' and `ffap-url-at-point'.
-
-\(fn &optional FILENAME)" t nil)
-
-(defalias 'ffap 'find-file-at-point)
-
-(autoload 'ffap-menu "ffap" "\
-Put up a menu of files and URLs mentioned in this buffer.
-Then set mark, jump to choice, and try to fetch it. The menu is
-cached in `ffap-menu-alist', and rebuilt by `ffap-menu-rescan'.
-The optional RESCAN argument (a prefix, interactively) forces
-a rebuild. Searches with `ffap-menu-regexp'.
-
-\(fn &optional RESCAN)" t nil)
-
-(autoload 'ffap-at-mouse "ffap" "\
-Find file or URL guessed from text around mouse click.
-Interactively, calls `ffap-at-mouse-fallback' if no guess is found.
-Return value:
- * if a guess string is found, return it (after finding it)
- * if the fallback is called, return whatever it returns
- * otherwise, nil
-
-\(fn E)" t nil)
-
-(autoload 'dired-at-point "ffap" "\
-Start Dired, defaulting to file at point. See `ffap'.
-If `dired-at-point-require-prefix' is set, the prefix meaning is reversed.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'ffap-guess-file-name-at-point "ffap" "\
-Try to get a file name at point.
-This hook is intended to be put in `file-name-at-point-functions'.
-
-\(fn)" nil nil)
-
-(autoload 'ffap-bindings "ffap" "\
-Evaluate the forms in variable `ffap-bindings'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (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" (20707 18685 911514 0))
-;;; Generated autoloads from filecache.el
-
-(autoload 'file-cache-add-directory "filecache" "\
-Add DIRECTORY to the file cache.
-If the optional REGEXP argument is non-nil, only files which match it will
-be added to the cache.
-
-\(fn DIRECTORY &optional REGEXP)" t nil)
-
-(autoload 'file-cache-add-directory-list "filecache" "\
-Add DIRECTORY-LIST (a list of directory names) to the file cache.
-If the optional REGEXP argument is non-nil, only files which match it
-will be added to the cache. Note that the REGEXP is applied to the
-files in each directory, not to the directory list itself.
-
-\(fn DIRECTORY-LIST &optional REGEXP)" t nil)
-
-(autoload 'file-cache-add-file "filecache" "\
-Add FILE to the file cache.
-
-\(fn FILE)" t nil)
-
-(autoload 'file-cache-add-directory-using-find "filecache" "\
-Use the `find' command to add files to the file cache.
-Find is run in DIRECTORY.
-
-\(fn DIRECTORY)" t nil)
-
-(autoload 'file-cache-add-directory-using-locate "filecache" "\
-Use the `locate' command to add files to the file cache.
-STRING is passed as an argument to the locate command.
-
-\(fn STRING)" t nil)
-
-(autoload 'file-cache-add-directory-recursively "filecache" "\
-Adds DIR and any subdirectories to the file-cache.
-This function does not use any external programs.
-If the optional REGEXP argument is non-nil, only files which match it
-will be added to the cache. Note that the REGEXP is applied to the
-files in each directory, not to the directory list itself.
-
-\(fn DIR &optional REGEXP)" t nil)
-
-(autoload 'file-cache-minibuffer-complete "filecache" "\
-Complete a filename in the minibuffer using a preloaded cache.
-Filecache does two kinds of substitution: it completes on names in
-the cache, and, once it has found a unique name, it cycles through
-the directories that the name is available in. With a prefix argument,
-the name is considered already unique; only the second substitution
-\(directories) is done.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (copy-dir-locals-to-file-locals-prop-line copy-dir-locals-to-file-locals
-;;;;;; copy-file-locals-to-dir-locals delete-dir-local-variable
-;;;;;; add-dir-local-variable delete-file-local-variable-prop-line
-;;;;;; add-file-local-variable-prop-line delete-file-local-variable
-;;;;;; add-file-local-variable) "files-x" "files-x.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from files-x.el
-
-(autoload 'add-file-local-variable "files-x" "\
-Add file-local VARIABLE with its VALUE to the Local Variables list.
-
-This command deletes all existing settings of VARIABLE (except `mode'
-and `eval') and adds a new file-local VARIABLE with VALUE to the
-Local Variables list.
-
-If there is no Local Variables list in the current file buffer
-then this function adds the first line containing the string
-`Local Variables:' and the last line containing the string `End:'.
-
-\(fn VARIABLE VALUE)" t nil)
-
-(autoload 'delete-file-local-variable "files-x" "\
-Delete all settings of file-local VARIABLE from the Local Variables list.
-
-\(fn VARIABLE)" t nil)
-
-(autoload 'add-file-local-variable-prop-line "files-x" "\
-Add file-local VARIABLE with its VALUE to the -*- line.
-
-This command deletes all existing settings of VARIABLE (except `mode'
-and `eval') and adds a new file-local VARIABLE with VALUE to
-the -*- line.
-
-If there is no -*- line at the beginning of the current file buffer
-then this function adds it.
-
-\(fn VARIABLE VALUE)" t nil)
-
-(autoload 'delete-file-local-variable-prop-line "files-x" "\
-Delete all settings of file-local VARIABLE from the -*- line.
-
-\(fn VARIABLE)" t nil)
-
-(autoload 'add-dir-local-variable "files-x" "\
-Add directory-local VARIABLE with its VALUE and MODE to .dir-locals.el.
-
-\(fn MODE VARIABLE VALUE)" t nil)
-
-(autoload 'delete-dir-local-variable "files-x" "\
-Delete all MODE settings of file-local VARIABLE from .dir-locals.el.
-
-\(fn MODE VARIABLE)" t nil)
-
-(autoload 'copy-file-locals-to-dir-locals "files-x" "\
-Copy file-local variables to .dir-locals.el.
-
-\(fn)" t nil)
-
-(autoload 'copy-dir-locals-to-file-locals "files-x" "\
-Copy directory-local variables to the Local Variables list.
-
-\(fn)" t nil)
-
-(autoload 'copy-dir-locals-to-file-locals-prop-line "files-x" "\
-Copy directory-local variables to the -*- line.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (filesets-init) "filesets" "filesets.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from filesets.el
-
-(autoload 'filesets-init "filesets" "\
-Filesets initialization.
-Set up hooks, load the cache file -- if existing -- and build the menu.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (find-cmd) "find-cmd" "find-cmd.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from find-cmd.el
-
-(autoload 'find-cmd "find-cmd" "\
-Initiate the building of a find command.
-For example:
-
-\(find-cmd '(prune (name \".svn\" \".git\" \".CVS\"))
- '(and (or (name \"*.pl\" \"*.pm\" \"*.t\")
- (mtime \"+1\"))
- (fstype \"nfs\" \"ufs\"))))
-
-`default-directory' is used as the initial search path. The
-result is a string that should be ready for the command line.
-
-\(fn &rest SUBFINDS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (find-grep-dired find-name-dired find-dired) "find-dired"
-;;;;;; "find-dired.el" (20707 18685 911514 0))
-;;; Generated autoloads from find-dired.el
-
-(autoload 'find-dired "find-dired" "\
-Run `find' and go into Dired mode on a buffer of the output.
-The command run (after changing into DIR) is essentially
-
- find . \\( ARGS \\) -ls
-
-except that the car of the variable `find-ls-option' specifies what to
-use in place of \"-ls\" as the final argument.
-
-\(fn DIR ARGS)" t nil)
-
-(autoload 'find-name-dired "find-dired" "\
-Search DIR recursively for files matching the globbing pattern PATTERN,
-and run dired on those files.
-PATTERN is a shell wildcard (not an Emacs regexp) and need not be quoted.
-The command run (after changing into DIR) is
-
- find . -name 'PATTERN' -ls
-
-\(fn DIR PATTERN)" t nil)
-
-(autoload 'find-grep-dired "find-dired" "\
-Find files in DIR containing a regexp REGEXP and start Dired on output.
-The command run (after changing into DIR) is
-
- find . \\( -type f -exec `grep-program' `find-grep-options' \\
- -e REGEXP {} \\; \\) -ls
-
-where the car of the variable `find-ls-option' specifies what to
-use in place of \"-ls\" as the final argument.
-
-\(fn DIR REGEXP)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file
-;;;;;; ff-find-other-file ff-get-other-file ff-special-constructs)
-;;;;;; "find-file" "find-file.el" (20707 18685 911514 0))
-;;; Generated autoloads from find-file.el
-
-(defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "\
-List of special constructs recognized by `ff-treat-as-special'.
-Each element, tried in order, has the form (REGEXP . EXTRACT).
-If REGEXP matches the current line (from the beginning of the line),
-`ff-treat-as-special' calls function EXTRACT with no args.
-If EXTRACT returns nil, keep trying. Otherwise, return the
-filename that EXTRACT returned.")
-
-(custom-autoload 'ff-special-constructs "find-file" t)
-
-(autoload 'ff-get-other-file "find-file" "\
-Find the header or source file corresponding to this file.
-See also the documentation for `ff-find-other-file'.
-
-If optional IN-OTHER-WINDOW is non-nil, find the file in another window.
-
-\(fn &optional IN-OTHER-WINDOW)" t nil)
-
-(defalias 'ff-find-related-file 'ff-find-other-file)
-
-(autoload 'ff-find-other-file "find-file" "\
-Find the header or source file corresponding to this file.
-Being on a `#include' line pulls in that file.
-
-If optional IN-OTHER-WINDOW is non-nil, find the file in the other window.
-If optional IGNORE-INCLUDE is non-nil, ignore being on `#include' lines.
-
-Variables of interest include:
-
- - `ff-case-fold-search'
- Non-nil means ignore cases in matches (see `case-fold-search').
- If you have extensions in different cases, you will want this to be nil.
-
- - `ff-always-in-other-window'
- If non-nil, always open the other file in another window, unless an
- argument is given to `ff-find-other-file'.
-
- - `ff-ignore-include'
- If non-nil, ignores #include lines.
-
- - `ff-always-try-to-create'
- If non-nil, always attempt to create the other file if it was not found.
-
- - `ff-quiet-mode'
- If non-nil, traces which directories are being searched.
-
- - `ff-special-constructs'
- A list of regular expressions specifying how to recognize special
- constructs such as include files etc, and an associated method for
- extracting the filename from that construct.
-
- - `ff-other-file-alist'
- Alist of extensions to find given the current file's extension.
-
- - `ff-search-directories'
- List of directories searched through with each extension specified in
- `ff-other-file-alist' that matches this file's extension.
-
- - `ff-pre-find-hook'
- List of functions to be called before the search for the file starts.
-
- - `ff-pre-load-hook'
- List of functions to be called before the other file is loaded.
-
- - `ff-post-load-hook'
- List of functions to be called after the other file is loaded.
-
- - `ff-not-found-hook'
- List of functions to be called if the other file could not be found.
-
- - `ff-file-created-hook'
- List of functions to be called if the other file has been created.
-
-\(fn &optional IN-OTHER-WINDOW IGNORE-INCLUDE)" t nil)
-
-(autoload 'ff-mouse-find-other-file "find-file" "\
-Visit the file you click on.
-
-\(fn EVENT)" t nil)
-
-(autoload 'ff-mouse-find-other-file-other-window "find-file" "\
-Visit the file you click on in another window.
-
-\(fn EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (find-function-setup-keys find-variable-at-point
-;;;;;; find-function-at-point find-function-on-key find-face-definition
-;;;;;; find-definition-noselect find-variable-other-frame find-variable-other-window
-;;;;;; 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" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/find-func.el
-
-(autoload 'find-library "find-func" "\
-Find the Emacs Lisp source of LIBRARY.
-LIBRARY should be a string (the name of the library).
-
-\(fn LIBRARY)" t nil)
-
-(autoload 'find-function-search-for-symbol "find-func" "\
-Search for SYMBOL's definition of type TYPE in LIBRARY.
-Visit the library in a buffer, and return a cons cell (BUFFER . POSITION),
-or just (BUFFER . nil) if the definition can't be found in the file.
-
-If TYPE is nil, look for a function definition.
-Otherwise, TYPE specifies the kind of definition,
-and it is interpreted via `find-function-regexp-alist'.
-The search is done in the source for library LIBRARY.
-
-\(fn SYMBOL TYPE LIBRARY)" nil nil)
-
-(autoload 'find-function-noselect "find-func" "\
-Return a pair (BUFFER . POINT) pointing to the definition of FUNCTION.
-
-Finds the source file containing the definition of FUNCTION
-in a buffer and the point of the definition. The buffer is
-not selected. If the function definition can't be found in
-the buffer, returns (BUFFER).
-
-If FUNCTION is a built-in function, this function normally
-attempts to find it in the Emacs C sources; however, if LISP-ONLY
-is non-nil, signal an error instead.
-
-If the file where FUNCTION is defined is not known, then it is
-searched for in `find-function-source-path' if non-nil, otherwise
-in `load-path'.
-
-\(fn FUNCTION &optional LISP-ONLY)" nil nil)
-
-(autoload 'find-function "find-func" "\
-Find the definition of the FUNCTION near point.
-
-Finds the source file containing the definition of the function
-near point (selected by `function-called-at-point') in a buffer and
-places point before the definition.
-Set mark before moving, if the buffer already existed.
-
-The library where FUNCTION is defined is searched for in
-`find-function-source-path', if non-nil, otherwise in `load-path'.
-See also `find-function-recenter-line' and `find-function-after-hook'.
-
-\(fn FUNCTION)" t nil)
-
-(autoload 'find-function-other-window "find-func" "\
-Find, in another window, the definition of FUNCTION near point.
-
-See `find-function' for more details.
-
-\(fn FUNCTION)" t nil)
-
-(autoload 'find-function-other-frame "find-func" "\
-Find, in another frame, the definition of FUNCTION near point.
-
-See `find-function' for more details.
-
-\(fn FUNCTION)" t nil)
-
-(autoload 'find-variable-noselect "find-func" "\
-Return a pair `(BUFFER . POINT)' pointing to the definition of VARIABLE.
-
-Finds the library containing the definition of VARIABLE in a buffer and
-the point of the definition. The buffer is not selected.
-If the variable's definition can't be found in the buffer, return (BUFFER).
-
-The library where VARIABLE is defined is searched for in FILE or
-`find-function-source-path', if non-nil, otherwise in `load-path'.
-
-\(fn VARIABLE &optional FILE)" nil nil)
-
-(autoload 'find-variable "find-func" "\
-Find the definition of the VARIABLE at or before point.
-
-Finds the library containing the definition of the variable
-near point (selected by `variable-at-point') in a buffer and
-places point before the definition.
-
-Set mark before moving, if the buffer already existed.
-
-The library where VARIABLE is defined is searched for in
-`find-function-source-path', if non-nil, otherwise in `load-path'.
-See also `find-function-recenter-line' and `find-function-after-hook'.
-
-\(fn VARIABLE)" t nil)
-
-(autoload 'find-variable-other-window "find-func" "\
-Find, in another window, the definition of VARIABLE near point.
-
-See `find-variable' for more details.
-
-\(fn VARIABLE)" t nil)
-
-(autoload 'find-variable-other-frame "find-func" "\
-Find, in another frame, the definition of VARIABLE near point.
-
-See `find-variable' for more details.
-
-\(fn VARIABLE)" t nil)
-
-(autoload 'find-definition-noselect "find-func" "\
-Return a pair `(BUFFER . POINT)' pointing to the definition of SYMBOL.
-If the definition can't be found in the buffer, return (BUFFER).
-TYPE says what type of definition: nil for a function, `defvar' for a
-variable, `defface' for a face. This function does not switch to the
-buffer nor display it.
-
-The library where SYMBOL is defined is searched for in FILE or
-`find-function-source-path', if non-nil, otherwise in `load-path'.
-
-\(fn SYMBOL TYPE &optional FILE)" nil nil)
-
-(autoload 'find-face-definition "find-func" "\
-Find the definition of FACE. FACE defaults to the name near point.
-
-Finds the Emacs Lisp library containing the definition of the face
-near point (selected by `variable-at-point') in a buffer and
-places point before the definition.
-
-Set mark before moving, if the buffer already existed.
-
-The library where FACE is defined is searched for in
-`find-function-source-path', if non-nil, otherwise in `load-path'.
-See also `find-function-recenter-line' and `find-function-after-hook'.
-
-\(fn FACE)" t nil)
-
-(autoload 'find-function-on-key "find-func" "\
-Find the function that KEY invokes. KEY is a string.
-Set mark before moving, if the buffer already existed.
-
-\(fn KEY)" t nil)
-
-(autoload 'find-function-at-point "find-func" "\
-Find directly the function at point in the other window.
-
-\(fn)" t nil)
-
-(autoload 'find-variable-at-point "find-func" "\
-Find directly the variable at point in the other window.
-
-\(fn)" t nil)
-
-(autoload 'find-function-setup-keys "find-func" "\
-Define some key bindings for the find-function family of functions.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories
-;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from find-lisp.el
-
-(autoload 'find-lisp-find-dired "find-lisp" "\
-Find files in DIR, matching REGEXP.
-
-\(fn DIR REGEXP)" t nil)
-
-(autoload 'find-lisp-find-dired-subdirectories "find-lisp" "\
-Find all subdirectories of DIR.
-
-\(fn DIR)" t nil)
-
-(autoload 'find-lisp-find-dired-filter "find-lisp" "\
-Change the filter on a find-lisp-find-dired buffer to REGEXP.
-
-\(fn REGEXP)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords)
-;;;;;; "finder" "finder.el" (20707 18685 911514 0))
-;;; Generated autoloads from finder.el
-
-(autoload 'finder-list-keywords "finder" "\
-Display descriptions of the keywords in the Finder buffer.
-
-\(fn)" t nil)
-
-(autoload 'finder-commentary "finder" "\
-Display FILE's commentary section.
-FILE should be in a form suitable for passing to `locate-library'.
-
-\(fn FILE)" t nil)
-
-(autoload 'finder-by-keyword "finder" "\
-Find packages matching a given keyword.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl"
-;;;;;; "flow-ctrl.el" (20707 18685 911514 0))
-;;; Generated autoloads from flow-ctrl.el
-
-(autoload 'enable-flow-control "flow-ctrl" "\
-Toggle flow control handling.
-When handling is enabled, user can type C-s as C-\\, and C-q as C-^.
-With arg, enable flow control mode if arg is positive, otherwise disable.
-
-\(fn &optional ARGUMENT)" t nil)
-
-(autoload 'enable-flow-control-on "flow-ctrl" "\
-Enable flow control if using one of a specified set of terminal types.
-Use `(enable-flow-control-on \"vt100\" \"h19\")' to enable flow control
-on VT-100 and H19 terminals. When flow control is enabled,
-you must type C-\\ to get the effect of a C-s, and type C-^
-to get the effect of a C-q.
-
-\(fn &rest LOSING-TERMINAL-TYPES)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/flow-fill.el
-
-(autoload 'fill-flowed-encode "flow-fill" "\
-
-
-\(fn &optional BUFFER)" nil nil)
-
-(autoload 'fill-flowed "flow-fill" "\
-
-
-\(fn &optional BUFFER DELETE-SPACE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (flymake-find-file-hook flymake-mode-off flymake-mode-on
-;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from progmodes/flymake.el
-
-(autoload 'flymake-mode "flymake" "\
-Toggle on-the-fly syntax checking.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'flymake-mode-on "flymake" "\
-Turn flymake mode on.
-
-\(fn)" nil nil)
-
-(autoload 'flymake-mode-off "flymake" "\
-Turn flymake mode off.
-
-\(fn)" nil nil)
-
-(autoload 'flymake-find-file-hook "flymake" "\
-
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off
-;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode)
-;;;;;; "flyspell" "textmodes/flyspell.el" (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/flyspell.el
-
-(autoload 'flyspell-prog-mode "flyspell" "\
-Turn on `flyspell-mode' for comments and strings.
-
-\(fn)" t nil)
-(defvar flyspell-mode nil "Non-nil if Flyspell mode is enabled.")
-
-(autoload 'flyspell-mode "flyspell" "\
-Toggle on-the-fly spell checking (Flyspell mode).
-With a prefix argument ARG, enable Flyspell mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Flyspell mode is a buffer-local minor mode. When enabled, it
-spawns a single Ispell process and checks each word. The default
-flyspell behavior is to highlight incorrect words.
-
-Bindings:
-\\[ispell-word]: correct words (using Ispell).
-\\[flyspell-auto-correct-word]: automatically correct word.
-\\[flyspell-auto-correct-previous-word]: automatically correct the last misspelled word.
-\\[flyspell-correct-word] (or down-mouse-2): popup correct words.
-
-Hooks:
-This runs `flyspell-mode-hook' after flyspell mode is entered or exit.
-
-Remark:
-`flyspell-mode' uses `ispell-mode'. Thus all Ispell options are
-valid. For instance, a different dictionary can be used by
-invoking `ispell-change-dictionary'.
-
-Consider using the `ispell-parser' to check your text. For instance
-consider adding:
-\(add-hook 'tex-mode-hook (function (lambda () (setq ispell-parser 'tex))))
-in your init file.
-
-\\[flyspell-region] checks all words inside a region.
-\\[flyspell-buffer] checks the whole buffer.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'turn-on-flyspell "flyspell" "\
-Unconditionally turn on Flyspell mode.
-
-\(fn)" nil nil)
-
-(autoload 'turn-off-flyspell "flyspell" "\
-Unconditionally turn off Flyspell mode.
-
-\(fn)" nil nil)
-
-(autoload 'flyspell-mode-off "flyspell" "\
-Turn Flyspell mode off.
-
-\(fn)" nil nil)
-
-(autoload 'flyspell-region "flyspell" "\
-Flyspell text between BEG and END.
-
-\(fn BEG END)" t nil)
-
-(autoload 'flyspell-buffer "flyspell" "\
-Flyspell whole buffer.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (follow-delete-other-windows-and-split follow-mode
-;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from follow.el
-
-(autoload 'turn-on-follow-mode "follow" "\
-Turn on Follow mode. Please see the function `follow-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'turn-off-follow-mode "follow" "\
-Turn off Follow mode. Please see the function `follow-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'follow-mode "follow" "\
-Toggle Follow mode.
-With a prefix argument ARG, enable Follow mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Follow mode is a minor mode that combines windows into one tall
-virtual window. This is accomplished by two main techniques:
-
-* The windows always displays adjacent sections of the buffer.
- This means that whenever one window is moved, all the
- others will follow. (Hence the name Follow mode.)
-
-* Should the point (cursor) end up outside a window, another
- window displaying that point is selected, if possible. This
- makes it possible to walk between windows using normal cursor
- movement commands.
-
-Follow mode comes to its prime when used on a large screen and two
-side-by-side windows are used. The user can, with the help of Follow
-mode, use two full-height windows as though they would have been
-one. Imagine yourself editing a large function, or section of text,
-and being able to use 144 lines instead of the normal 72... (your
-mileage may vary).
-
-To split one large window into two side-by-side windows, the commands
-`\\[split-window-right]' or `M-x follow-delete-other-windows-and-split' can be used.
-
-Only windows displayed in the same frame follow each other.
-
-This command runs the normal hook `follow-mode-hook'.
-
-Keys specific to Follow mode:
-\\{follow-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'follow-delete-other-windows-and-split "follow" "\
-Create two side by side windows and enter Follow mode.
-
-Execute this command to display as much as possible of the text
-in the selected window. All other windows, in the current
-frame, are deleted and the selected window is split in two
-side-by-side windows. Follow mode is activated, hence the
-two windows always will display two successive pages.
-\(If one window is moved, the other one will follow.)
-
-If ARG is positive, the leftmost window is selected. If negative,
-the rightmost is selected. If ARG is nil, the leftmost window is
-selected if the original window is the first one in the frame.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from mail/footnote.el
-
-(autoload 'footnote-mode "footnote" "\
-Toggle Footnote mode.
-With a prefix argument ARG, enable Footnote mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Footnode mode is a buffer-local minor mode. If enabled, it
-provides footnote support for `message-mode'. To get started,
-play around with the following keys:
-\\{footnote-minor-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode)
-;;;;;; "forms" "forms.el" (20707 18685 911514 0))
-;;; Generated autoloads from forms.el
-
-(autoload 'forms-mode "forms" "\
-Major mode to visit files in a field-structured manner using a form.
-
-Commands: Equivalent keys in read-only mode:
- TAB forms-next-field TAB
- C-c TAB forms-next-field
- C-c < forms-first-record <
- C-c > forms-last-record >
- C-c ? describe-mode ?
- C-c C-k forms-delete-record
- C-c C-q forms-toggle-read-only q
- C-c C-o forms-insert-record
- C-c C-l forms-jump-record l
- C-c C-n forms-next-record n
- C-c C-p forms-prev-record p
- C-c C-r forms-search-reverse r
- C-c C-s forms-search-forward s
- C-c C-x forms-exit x
-
-\(fn &optional PRIMARY)" t nil)
-
-(autoload 'forms-find-file "forms" "\
-Visit a file in Forms mode.
-
-\(fn FN)" t nil)
-
-(autoload 'forms-find-file-other-window "forms" "\
-Visit a file in Forms mode in other window.
-
-\(fn FN)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (fortran-mode) "fortran" "progmodes/fortran.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/fortran.el
-
-(autoload 'fortran-mode "fortran" "\
-Major mode for editing Fortran code in fixed format.
-For free format code, use `f90-mode'.
-
-\\[fortran-indent-line] indents the current Fortran line correctly.
-Note that DO statements must not share a common CONTINUE.
-
-Type ;? or ;\\[help-command] to display a list of built-in abbrevs for Fortran keywords.
-
-Key definitions:
-\\{fortran-mode-map}
-
-Variables controlling indentation style and extra features:
-
-`fortran-comment-line-start'
- To use comments starting with `!', set this to the string \"!\".
-`fortran-do-indent'
- Extra indentation within DO blocks (default 3).
-`fortran-if-indent'
- Extra indentation within IF blocks (default 3).
-`fortran-structure-indent'
- Extra indentation within STRUCTURE, UNION, MAP and INTERFACE blocks.
- (default 3)
-`fortran-continuation-indent'
- Extra indentation applied to continuation statements (default 5).
-`fortran-comment-line-extra-indent'
- Amount of extra indentation for text in full-line comments (default 0).
-`fortran-comment-indent-style'
- How to indent the text in full-line comments. Allowed values are:
- nil don't change the indentation
- fixed indent to `fortran-comment-line-extra-indent' beyond the
- value of either
- `fortran-minimum-statement-indent-fixed' (fixed format) or
- `fortran-minimum-statement-indent-tab' (TAB format),
- depending on the continuation format in use.
- relative indent to `fortran-comment-line-extra-indent' beyond the
- indentation for a line of code.
- (default 'fixed)
-`fortran-comment-indent-char'
- Single-character string to be inserted instead of space for
- full-line comment indentation (default \" \").
-`fortran-minimum-statement-indent-fixed'
- Minimum indentation for statements in fixed format mode (default 6).
-`fortran-minimum-statement-indent-tab'
- Minimum indentation for statements in TAB format mode (default 9).
-`fortran-line-number-indent'
- Maximum indentation for line numbers (default 1). A line number will
- get less than this much indentation if necessary to avoid reaching
- column 5.
-`fortran-check-all-num-for-matching-do'
- Non-nil causes all numbered lines to be treated as possible \"continue\"
- statements (default nil).
-`fortran-blink-matching-if'
- Non-nil causes \\[fortran-indent-line] on an ENDIF (or ENDDO) statement
- to blink on the matching IF (or DO [WHILE]). (default nil)
-`fortran-continuation-string'
- Single-character string to be inserted in column 5 of a continuation
- line (default \"$\").
-`fortran-comment-region'
- String inserted by \\[fortran-comment-region] at start of each line in
- the region (default \"c$$$\").
-`fortran-electric-line-number'
- Non-nil causes line number digits to be moved to the correct column
- as typed (default t).
-`fortran-break-before-delimiters'
- Non-nil causes lines to be broken before delimiters (default t).
-
-Turning on Fortran mode calls the value of the variable `fortran-mode-hook'
-with no args, if that value is non-nil.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region
-;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from play/fortune.el
-
-(autoload 'fortune-add-fortune "fortune" "\
-Add STRING to a fortune file FILE.
-
-Interactively, if called with a prefix argument,
-read the file name to use. Otherwise use the value of `fortune-file'.
-
-\(fn STRING FILE)" t nil)
-
-(autoload 'fortune-from-region "fortune" "\
-Append the current region to a local fortune-like data file.
-
-Interactively, if called with a prefix argument,
-read the file name to use. Otherwise use the value of `fortune-file'.
-
-\(fn BEG END FILE)" t nil)
-
-(autoload 'fortune-compile "fortune" "\
-Compile fortune file.
-
-If called with a prefix asks for the FILE to compile, otherwise uses
-the value of `fortune-file'. This currently cannot handle directories.
-
-\(fn &optional FILE)" t nil)
-
-(autoload 'fortune-to-signature "fortune" "\
-Create signature from output of the fortune program.
-
-If called with a prefix asks for the FILE to choose the fortune from,
-otherwise uses the value of `fortune-file'. If you want to have fortune
-choose from a set of files in a directory, call interactively with prefix
-and choose the directory as the fortune-file.
-
-\(fn &optional FILE)" t nil)
-
-(autoload 'fortune "fortune" "\
-Display a fortune cookie.
-If called with a prefix asks for the FILE to choose the fortune from,
-otherwise uses the value of `fortune-file'. If you want to have fortune
-choose from a set of files in a directory, call interactively with prefix
-and choose the directory as the fortune-file.
-
-\(fn &optional FILE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gdb gdb-enable-debug) "gdb-mi" "progmodes/gdb-mi.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/gdb-mi.el
-
-(defvar gdb-enable-debug nil "\
-Non-nil if Gdb-Enable-Debug mode is enabled.
-See the command `gdb-enable-debug' for a description of this minor mode.")
-
-(custom-autoload 'gdb-enable-debug "gdb-mi" nil)
-
-(autoload 'gdb-enable-debug "gdb-mi" "\
-Toggle logging of transaction between Emacs and Gdb.
-The log is stored in `gdb-debug-log' as an alist with elements
-whose cons is send, send-item or recv and whose cdr is the string
-being transferred. This list may grow up to a size of
-`gdb-debug-log-max' after which the oldest element (at the end of
-the list) is deleted every time a new one is added (at the front).
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'gdb "gdb-mi" "\
-Run gdb on program FILE in buffer *gud-FILE*.
-The directory containing FILE becomes the initial working directory
-and source-file directory for your debugger.
-
-COMMAND-LINE is the shell command for starting the gdb session.
-It should be a string consisting of the name of the gdb
-executable followed by command-line options. The command-line
-options should include \"-i=mi\" to use gdb's MI text interface.
-Note that the old \"--annotate\" option is no longer supported.
-
-If `gdb-many-windows' is nil (the default value) then gdb just
-pops up the GUD buffer unless `gdb-show-main' is t. In this case
-it starts with two windows: one displaying the GUD buffer and the
-other with the source file with the main routine of the inferior.
-
-If `gdb-many-windows' is t, regardless of the value of
-`gdb-show-main', the layout below will appear. Keybindings are
-shown in some of the buffers.
-
-Watch expressions appear in the speedbar/slowbar.
-
-The following commands help control operation :
-
-`gdb-many-windows' - Toggle the number of windows gdb uses.
-`gdb-restore-windows' - To restore the window layout.
-
-See Info node `(emacs)GDB Graphical Interface' for a more
-detailed description of this mode.
-
-
-+----------------------------------------------------------------------+
-| GDB Toolbar |
-+-----------------------------------+----------------------------------+
-| GUD buffer (I/O of GDB) | Locals buffer |
-| | |
-| | |
-| | |
-+-----------------------------------+----------------------------------+
-| Source buffer | I/O buffer (of debugged program) |
-| | (comint-mode) |
-| | |
-| | |
-| | |
-| | |
-| | |
-| | |
-+-----------------------------------+----------------------------------+
-| Stack buffer | Breakpoints buffer |
-| RET gdb-select-frame | SPC gdb-toggle-breakpoint |
-| | RET gdb-goto-breakpoint |
-| | D gdb-delete-breakpoint |
-+-----------------------------------+----------------------------------+
-
-\(fn COMMAND-LINE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal
-;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/generic.el
-
-(defvar generic-mode-list nil "\
-A list of mode names for `generic-mode'.
-Do not add entries to this list directly; use `define-generic-mode'
-instead (which see).")
-
-(autoload 'define-generic-mode "generic" "\
-Create a new generic mode MODE.
-
-MODE is the name of the command for the generic mode; don't quote it.
-The optional DOCSTRING is the documentation for the mode command. If
-you do not supply it, `define-generic-mode' uses a default
-documentation string instead.
-
-COMMENT-LIST is a list in which each element is either a character, a
-string of one or two characters, or a cons cell. A character or a
-string is set up in the mode's syntax table as a \"comment starter\".
-If the entry is a cons cell, the `car' is set up as a \"comment
-starter\" and the `cdr' as a \"comment ender\". (Use nil for the
-latter if you want comments to end at the end of the line.) Note that
-the syntax table has limitations about what comment starters and
-enders are actually possible.
-
-KEYWORD-LIST is a list of keywords to highlight with
-`font-lock-keyword-face'. Each keyword should be a string.
-
-FONT-LOCK-LIST is a list of additional expressions to highlight. Each
-element of this list should have the same form as an element of
-`font-lock-keywords'.
-
-AUTO-MODE-LIST is a list of regular expressions to add to
-`auto-mode-alist'. These regular expressions are added when Emacs
-runs the macro expansion.
-
-FUNCTION-LIST is a list of functions to call to do some additional
-setup. The mode command calls these functions just before it runs the
-mode hook `MODE-hook'.
-
-See the file generic-x.el for some examples of `define-generic-mode'.
-
-\(fn MODE COMMENT-LIST KEYWORD-LIST FONT-LOCK-LIST AUTO-MODE-LIST FUNCTION-LIST &optional DOCSTRING)" nil t)
-
-(put 'define-generic-mode 'lisp-indent-function '1)
-
-(put 'define-generic-mode 'doc-string-elt '7)
-
-(autoload 'generic-mode-internal "generic" "\
-Go into the generic mode MODE.
-
-\(fn MODE COMMENT-LIST KEYWORD-LIST FONT-LOCK-LIST FUNCTION-LIST)" nil nil)
-
-(autoload 'generic-mode "generic" "\
-Enter generic mode MODE.
-
-Generic modes provide basic comment and font-lock functionality
-for \"generic\" files. (Files which are too small to warrant their
-own mode, but have comment characters, keywords, and the like.)
-
-To define a generic-mode, use the function `define-generic-mode'.
-Some generic modes are defined in `generic-x.el'.
-
-\(fn MODE)" t nil)
-
-(autoload 'generic-make-keywords-list "generic" "\
-Return a `font-lock-keywords' construct that highlights KEYWORD-LIST.
-KEYWORD-LIST is a list of keyword strings that should be
-highlighted with face FACE. This function calculates a regular
-expression that matches these keywords and concatenates it with
-PREFIX and SUFFIX. Then it returns a construct based on this
-regular expression that can be used as an element of
-`font-lock-keywords'.
-
-\(fn KEYWORD-LIST FACE &optional PREFIX SUFFIX)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/glasses.el
-
-(autoload 'glasses-mode "glasses" "\
-Minor mode for making identifiers likeThis readable.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil. When this mode is active, it tries to
-add virtual separators (like underscores) at places they belong to.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error
-;;;;;; gmm-message gmm-regexp-concat) "gmm-utils" "gnus/gmm-utils.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gmm-utils.el
-
-(autoload 'gmm-regexp-concat "gmm-utils" "\
-Potentially concat a list of regexps into a single one.
-The concatenation is done with logical ORs.
-
-\(fn REGEXP)" nil nil)
-
-(autoload 'gmm-message "gmm-utils" "\
-If LEVEL is lower than `gmm-verbose' print ARGS using `message'.
-
-Guideline for numbers:
-1 - error messages
-3 - non-serious error messages
-5 - messages for things that take a long time
-7 - not very important messages on stuff
-9 - messages inside loops.
-
-\(fn LEVEL &rest ARGS)" nil nil)
-
-(autoload 'gmm-error "gmm-utils" "\
-Beep an error if LEVEL is equal to or less than `gmm-verbose'.
-ARGS are passed to `message'.
-
-\(fn LEVEL &rest ARGS)" nil nil)
-
-(autoload 'gmm-widget-p "gmm-utils" "\
-Non-nil if SYMBOL is a widget.
-
-\(fn SYMBOL)" nil nil)
-
-(autoload 'gmm-tool-bar-from-list "gmm-utils" "\
-Make a tool bar from ICON-LIST.
-
-Within each entry of ICON-LIST, the first element is a menu
-command, the second element is an icon file name and the third
-element is a test function. You can use \\[describe-key]
-<menu-entry> to find out the name of a menu command. The fourth
-and all following elements are passed as the PROPS argument to the
-function `tool-bar-local-item'.
-
-If ZAP-LIST is a list, remove those item from the default
-`tool-bar-map'. If it is t, start with a new sparse map. You
-can use \\[describe-key] <icon> to find out the name of an icon
-item. When \\[describe-key] <icon> shows \"<tool-bar> <new-file>
-runs the command find-file\", then use `new-file' in ZAP-LIST.
-
-DEFAULT-MAP specifies the default key map for ICON-LIST.
-
-\(fn ICON-LIST ZAP-LIST DEFAULT-MAP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server
-;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from gnus/gnus.el
-(when (fboundp 'custom-autoload)
- (custom-autoload 'gnus-select-method "gnus"))
-
-(autoload 'gnus-slave-no-server "gnus" "\
-Read network news as a slave, without connecting to the local server.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'gnus-no-server "gnus" "\
-Read network news.
-If ARG is a positive number, Gnus will use that as the startup
-level. If ARG is nil, Gnus will be started at level 2. If ARG is
-non-nil and not a positive number, Gnus will prompt the user for the
-name of an NNTP server to use.
-As opposed to `gnus', this command will not connect to the local
-server.
-
-\(fn &optional ARG SLAVE)" t nil)
-
-(autoload 'gnus-slave "gnus" "\
-Read news as a slave.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'gnus-other-frame "gnus" "\
-Pop up a frame to read news.
-This will call one of the Gnus commands which is specified by the user
-option `gnus-other-frame-function' (default `gnus') with the argument
-ARG if Gnus is not running, otherwise just pop up a Gnus frame. The
-optional second argument DISPLAY should be a standard display string
-such as \"unix:0\" to specify where to pop up a frame. If DISPLAY is
-omitted or the function `make-frame-on-display' is not available, the
-current display is used.
-
-\(fn &optional ARG DISPLAY)" t nil)
-
-(autoload 'gnus "gnus" "\
-Read network news.
-If ARG is non-nil and a positive number, Gnus will use that as the
-startup level. If ARG is non-nil and not a positive number, Gnus will
-prompt the user for the name of an NNTP server to use.
-
-\(fn &optional ARG DONT-CONNECT SLAVE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-agent-regenerate gnus-agent-batch gnus-agent-batch-fetch
-;;;;;; gnus-agent-find-parameter gnus-agent-possibly-alter-active
-;;;;;; 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" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-agent.el
-
-(autoload 'gnus-unplugged "gnus-agent" "\
-Start Gnus unplugged.
-
-\(fn)" t nil)
-
-(autoload 'gnus-plugged "gnus-agent" "\
-Start Gnus plugged.
-
-\(fn)" t nil)
-
-(autoload 'gnus-slave-unplugged "gnus-agent" "\
-Read news as a slave unplugged.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'gnus-agentize "gnus-agent" "\
-Allow Gnus to be an offline newsreader.
-
-The gnus-agentize function is now called internally by gnus when
-gnus-agent is set. If you wish to avoid calling gnus-agentize,
-customize gnus-agent to nil.
-
-This will modify the `gnus-setup-news-hook', and
-`message-send-mail-real-function' variables, and install the Gnus agent
-minor mode in all Gnus buffers.
-
-\(fn)" t nil)
-
-(autoload 'gnus-agent-possibly-save-gcc "gnus-agent" "\
-Save GCC if Gnus is unplugged.
-
-\(fn)" nil nil)
-
-(autoload 'gnus-agent-rename-group "gnus-agent" "\
-Rename fully-qualified OLD-GROUP as NEW-GROUP.
-Always updates the agent, even when disabled, as the old agent
-files would corrupt gnus when the agent was next enabled.
-Depends upon the caller to determine whether group renaming is
-supported.
-
-\(fn OLD-GROUP NEW-GROUP)" nil nil)
-
-(autoload 'gnus-agent-delete-group "gnus-agent" "\
-Delete fully-qualified GROUP.
-Always updates the agent, even when disabled, as the old agent
-files would corrupt gnus when the agent was next enabled.
-Depends upon the caller to determine whether group deletion is
-supported.
-
-\(fn GROUP)" nil nil)
-
-(autoload 'gnus-agent-get-undownloaded-list "gnus-agent" "\
-Construct list of articles that have not been downloaded.
-
-\(fn)" nil nil)
-
-(autoload 'gnus-agent-possibly-alter-active "gnus-agent" "\
-Possibly expand a group's active range to include articles
-downloaded into the agent.
-
-\(fn GROUP ACTIVE &optional INFO)" nil nil)
-
-(autoload 'gnus-agent-find-parameter "gnus-agent" "\
-Search for GROUPs SYMBOL in the group's parameters, the group's
-topic parameters, the group's category, or the customizable
-variables. Returns the first non-nil value found.
-
-\(fn GROUP SYMBOL)" nil nil)
-
-(autoload 'gnus-agent-batch-fetch "gnus-agent" "\
-Start Gnus and fetch session.
-
-\(fn)" t nil)
-
-(autoload 'gnus-agent-batch "gnus-agent" "\
-Start Gnus, send queue and fetch session.
-
-\(fn)" t nil)
-
-(autoload 'gnus-agent-regenerate "gnus-agent" "\
-Regenerate all agent covered files.
-If CLEAN, obsolete (ignore).
-
-\(fn &optional CLEAN REREAD)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-art.el
-
-(autoload 'gnus-article-prepare-display "gnus-art" "\
-Make the current buffer look like a nice article.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-bookmark-bmenu-list gnus-bookmark-jump gnus-bookmark-set)
-;;;;;; "gnus-bookmark" "gnus/gnus-bookmark.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from gnus/gnus-bookmark.el
-
-(autoload 'gnus-bookmark-set "gnus-bookmark" "\
-Set a bookmark for this article.
-
-\(fn)" t nil)
-
-(autoload 'gnus-bookmark-jump "gnus-bookmark" "\
-Jump to a Gnus bookmark (BMK-NAME).
-
-\(fn &optional BMK-NAME)" t nil)
-
-(autoload 'gnus-bookmark-bmenu-list "gnus-bookmark" "\
-Display a list of existing Gnus bookmarks.
-The list is displayed in a buffer named `*Gnus Bookmark List*'.
-The leftmost column displays a D if the bookmark is flagged for
-deletion, or > if it is flagged for displaying.
-
-\(fn)" t nil)
-
-;;;***
-\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" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-cache.el
-
-(autoload 'gnus-jog-cache "gnus-cache" "\
-Go through all groups and put the articles into the cache.
-
-Usage:
-$ emacs -batch -l ~/.emacs -l gnus -f gnus-jog-cache
-
-\(fn)" t nil)
-
-(autoload 'gnus-cache-generate-active "gnus-cache" "\
-Generate the cache active file.
-
-\(fn &optional DIRECTORY)" t nil)
-
-(autoload 'gnus-cache-generate-nov-databases "gnus-cache" "\
-Generate NOV files recursively starting in DIR.
-
-\(fn DIR)" t nil)
-
-(autoload 'gnus-cache-rename-group "gnus-cache" "\
-Rename OLD-GROUP as NEW-GROUP.
-Always updates the cache, even when disabled, as the old cache
-files would corrupt Gnus when the cache was next enabled. It
-depends on the caller to determine whether group renaming is
-supported.
-
-\(fn OLD-GROUP NEW-GROUP)" nil nil)
-
-(autoload 'gnus-cache-delete-group "gnus-cache" "\
-Delete GROUP from the cache.
-Always updates the cache, even when disabled, as the old cache
-files would corrupt gnus when the cache was next enabled.
-Depends upon the caller to determine whether group deletion is
-supported.
-
-\(fn GROUP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article)
-;;;;;; "gnus-delay" "gnus/gnus-delay.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-delay.el
-
-(autoload 'gnus-delay-article "gnus-delay" "\
-Delay this article by some time.
-DELAY is a string, giving the length of the time. Possible values are:
-
-* <digits><units> for <units> in minutes (`m'), hours (`h'), days (`d'),
- weeks (`w'), months (`M'), or years (`Y');
-
-* YYYY-MM-DD for a specific date. The time of day is given by the
- variable `gnus-delay-default-hour', minute and second are zero.
-
-* hh:mm for a specific time. Use 24h format. If it is later than this
- time, then the deadline is tomorrow, else today.
-
-\(fn DELAY)" t nil)
-
-(autoload 'gnus-delay-send-queue "gnus-delay" "\
-Send all the delayed messages that are due now.
-
-\(fn)" t nil)
-
-(autoload 'gnus-delay-initialize "gnus-delay" "\
-Initialize the gnus-delay package.
-This sets up a key binding in `message-mode' to delay a message.
-This tells Gnus to look for delayed messages after getting new news.
-
-The optional arg NO-KEYMAP is ignored.
-Checking delayed messages is skipped if optional arg NO-CHECK is non-nil.
-
-\(fn &optional NO-KEYMAP NO-CHECK)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d)
-;;;;;; "gnus-diary" "gnus/gnus-diary.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-diary.el
-
-(autoload 'gnus-user-format-function-d "gnus-diary" "\
-
-
-\(fn HEADER)" nil nil)
-
-(autoload 'gnus-user-format-function-D "gnus-diary" "\
-
-
-\(fn HEADER)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-dired.el
-
-(autoload 'turn-on-gnus-dired-mode "gnus-dired" "\
-Convenience method to turn on gnus-dired-mode.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-draft.el
-
-(autoload 'gnus-draft-reminder "gnus-draft" "\
-Reminder user if there are unsent drafts.
-
-\(fn)" t nil)
-
-;;;***
-\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" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-fun.el
-
-(autoload 'gnus-random-x-face "gnus-fun" "\
-Return X-Face header data chosen randomly from `gnus-x-face-directory'.
-
-\(fn)" t nil)
-
-(autoload 'gnus-insert-random-x-face-header "gnus-fun" "\
-Insert a random X-Face header from `gnus-x-face-directory'.
-
-\(fn)" t nil)
-
-(autoload 'gnus-x-face-from-file "gnus-fun" "\
-Insert an X-Face header based on an image file.
-
-Depending on `gnus-convert-image-to-x-face-command' it may accept
-different input formats.
-
-\(fn FILE)" t nil)
-
-(autoload 'gnus-face-from-file "gnus-fun" "\
-Return a Face header based on an image file.
-
-Depending on `gnus-convert-image-to-face-command' it may accept
-different input formats.
-
-\(fn FILE)" t nil)
-
-(autoload 'gnus-convert-face-to-png "gnus-fun" "\
-Convert FACE (which is base64-encoded) to a PNG.
-The PNG is returned as a string.
-
-\(fn FACE)" nil nil)
-
-(autoload 'gnus-convert-png-to-face "gnus-fun" "\
-Convert FILE to a Face.
-FILE should be a PNG file that's 48x48 and smaller than or equal to
-726 bytes.
-
-\(fn FILE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-treat-mail-gravatar gnus-treat-from-gravatar)
-;;;;;; "gnus-gravatar" "gnus/gnus-gravatar.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from gnus/gnus-gravatar.el
-
-(autoload 'gnus-treat-from-gravatar "gnus-gravatar" "\
-Display gravatar in the From header.
-If gravatar is already displayed, remove it.
-
-\(fn &optional FORCE)" t nil)
-
-(autoload 'gnus-treat-mail-gravatar "gnus-gravatar" "\
-Display gravatars in the Cc and To headers.
-If gravatars are already displayed, remove them.
-
-\(fn &optional FORCE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group)
-;;;;;; "gnus-group" "gnus/gnus-group.el" (20763 5110 492774 0))
-;;; Generated autoloads from gnus/gnus-group.el
-
-(autoload 'gnus-fetch-group "gnus-group" "\
-Start Gnus if necessary and enter GROUP.
-If ARTICLES, display those articles.
-Returns whether the fetching was successful or not.
-
-\(fn GROUP &optional ARTICLES)" t nil)
-
-(autoload 'gnus-fetch-group-other-frame "gnus-group" "\
-Pop up a frame and enter GROUP.
-
-\(fn GROUP)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-html-prefetch-images gnus-article-html) "gnus-html"
-;;;;;; "gnus/gnus-html.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-html.el
-
-(autoload 'gnus-article-html "gnus-html" "\
-
-
-\(fn &optional HANDLE)" nil nil)
-
-(autoload 'gnus-html-prefetch-images "gnus-html" "\
-
-
-\(fn SUMMARY)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-kill.el
-
-(defalias 'gnus-batch-kill 'gnus-batch-score)
-
-(autoload 'gnus-batch-score "gnus-kill" "\
-Run batched scoring.
-Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate
-;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-ml.el
-
-(autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'gnus-mailing-list-insinuate "gnus-ml" "\
-Setup group parameters from List-Post header.
-If FORCE is non-nil, replace the old ones.
-
-\(fn &optional FORCE)" t nil)
-
-(autoload 'gnus-mailing-list-mode "gnus-ml" "\
-Minor mode for providing mailing-list commands.
-
-\\{gnus-mailing-list-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update
-;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-mlspl.el
-
-(autoload 'gnus-group-split-setup "gnus-mlspl" "\
-Set up the split for `nnmail-split-fancy'.
-Sets things up so that nnmail-split-fancy is used for mail
-splitting, and defines the variable nnmail-split-fancy according with
-group parameters.
-
-If AUTO-UPDATE is non-nil (prefix argument accepted, if called
-interactively), it makes sure nnmail-split-fancy is re-computed before
-getting new mail, by adding `gnus-group-split-update' to
-`nnmail-pre-get-new-mail-hook'.
-
-A non-nil CATCH-ALL replaces the current value of
-`gnus-group-split-default-catch-all-group'. This variable is only used
-by gnus-group-split-update, and only when its CATCH-ALL argument is
-nil. This argument may contain any fancy split, that will be added as
-the last split in a `|' split produced by `gnus-group-split-fancy',
-unless overridden by any group marked as a catch-all group. Typical
-uses are as simple as the name of a default mail group, but more
-elaborate fancy splits may also be useful to split mail that doesn't
-match any of the group-specified splitting rules. See
-`gnus-group-split-fancy' for details.
-
-\(fn &optional AUTO-UPDATE CATCH-ALL)" t nil)
-
-(autoload 'gnus-group-split-update "gnus-mlspl" "\
-Computes nnmail-split-fancy from group params and CATCH-ALL.
-It does this by calling by calling (gnus-group-split-fancy nil
-nil CATCH-ALL).
-
-If CATCH-ALL is nil, `gnus-group-split-default-catch-all-group' is used
-instead. This variable is set by `gnus-group-split-setup'.
-
-\(fn &optional CATCH-ALL)" t nil)
-
-(autoload 'gnus-group-split "gnus-mlspl" "\
-Use information from group parameters in order to split mail.
-See `gnus-group-split-fancy' for more information.
-
-`gnus-group-split' is a valid value for `nnmail-split-methods'.
-
-\(fn)" nil nil)
-
-(autoload 'gnus-group-split-fancy "gnus-mlspl" "\
-Uses information from group parameters in order to split mail.
-It can be embedded into `nnmail-split-fancy' lists with the SPLIT
-
-\(: gnus-group-split-fancy GROUPS NO-CROSSPOST CATCH-ALL)
-
-GROUPS may be a regular expression or a list of group names, that will
-be used to select candidate groups. If it is omitted or nil, all
-existing groups are considered.
-
-if NO-CROSSPOST is omitted or nil, a & split will be returned,
-otherwise, a | split, that does not allow crossposting, will be
-returned.
-
-For each selected group, a SPLIT is composed like this: if SPLIT-SPEC
-is specified, this split is returned as-is (unless it is nil: in this
-case, the group is ignored). Otherwise, if TO-ADDRESS, TO-LIST and/or
-EXTRA-ALIASES are specified, a regexp that matches any of them is
-constructed (extra-aliases may be a list). Additionally, if
-SPLIT-REGEXP is specified, the regexp will be extended so that it
-matches this regexp too, and if SPLIT-EXCLUDE is specified, RESTRICT
-clauses will be generated.
-
-If CATCH-ALL is nil, no catch-all handling is performed, regardless of
-catch-all marks in group parameters. Otherwise, if there is no
-selected group whose SPLIT-REGEXP matches the empty string, nor is
-there a selected group whose SPLIT-SPEC is 'catch-all, this fancy
-split (say, a group name) will be appended to the returned SPLIT list,
-as the last element of a '| SPLIT.
-
-For example, given the following group parameters:
-
-nnml:mail.bar:
-\((to-address . \"bar@femail.com\")
- (split-regexp . \".*@femail\\\\.com\"))
-nnml:mail.foo:
-\((to-list . \"foo@nowhere.gov\")
- (extra-aliases \"foo@localhost\" \"foo-redist@home\")
- (split-exclude \"bugs-foo\" \"rambling-foo\")
- (admin-address . \"foo-request@nowhere.gov\"))
-nnml:mail.others:
-\((split-spec . catch-all))
-
-Calling (gnus-group-split-fancy nil nil \"mail.others\") returns:
-
-\(| (& (any \"\\\\(bar@femail\\\\.com\\\\|.*@femail\\\\.com\\\\)\"
- \"mail.bar\")
- (any \"\\\\(foo@nowhere\\\\.gov\\\\|foo@localhost\\\\|foo-redist@home\\\\)\"
- - \"bugs-foo\" - \"rambling-foo\" \"mail.foo\"))
- \"mail.others\")
-
-\(fn &optional GROUPS NO-CROSSPOST CATCH-ALL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail)
-;;;;;; "gnus-msg" "gnus/gnus-msg.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-msg.el
-
-(autoload 'gnus-msg-mail "gnus-msg" "\
-Start editing a mail message to be sent.
-Like `message-mail', but with Gnus paraphernalia, particularly the
-Gcc: header for archiving purposes.
-If Gnus isn't running, a plain `message-mail' setup is used
-instead.
-
-\(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-ACTION YANK-ACTION SEND-ACTIONS RETURN-ACTION)" t nil)
-
-(autoload 'gnus-button-mailto "gnus-msg" "\
-Mail to ADDRESS.
-
-\(fn ADDRESS)" nil nil)
-
-(autoload 'gnus-button-reply "gnus-msg" "\
-Like `message-reply'.
-
-\(fn &optional TO-ADDRESS WIDE)" t nil)
-
-(define-mail-user-agent 'gnus-user-agent 'gnus-msg-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook)
-
-;;;***
-\f
-;;;### (autoloads (gnus-notifications) "gnus-notifications" "gnus/gnus-notifications.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-notifications.el
-
-(autoload 'gnus-notifications "gnus-notifications" "\
-Send a notification on new message.
-This check for new messages that are in group with a level lower
-or equal to `gnus-notifications-minimum-level' and send a
-notification using `notifications-notify' for it.
-
-This is typically a function to add in
-`gnus-after-getting-new-news-hook'
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon
-;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-picon.el
-
-(autoload 'gnus-treat-from-picon "gnus-picon" "\
-Display picons in the From header.
-If picons are already displayed, remove them.
-
-\(fn)" t nil)
-
-(autoload 'gnus-treat-mail-picon "gnus-picon" "\
-Display picons in the Cc and To headers.
-If picons are already displayed, remove them.
-
-\(fn)" t nil)
-
-(autoload 'gnus-treat-newsgroups-picon "gnus-picon" "\
-Display picons in the Newsgroups and Followup-To headers.
-If picons are already displayed, remove them.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-add-to-sorted-list gnus-sorted-nunion gnus-sorted-union
-;;;;;; 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" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-range.el
-
-(autoload 'gnus-sorted-difference "gnus-range" "\
-Return a list of elements of LIST1 that do not appear in LIST2.
-Both lists have to be sorted over <.
-The tail of LIST1 is not copied.
-
-\(fn LIST1 LIST2)" nil nil)
-
-(autoload 'gnus-sorted-ndifference "gnus-range" "\
-Return a list of elements of LIST1 that do not appear in LIST2.
-Both lists have to be sorted over <.
-LIST1 is modified.
-
-\(fn LIST1 LIST2)" nil nil)
-
-(autoload 'gnus-sorted-complement "gnus-range" "\
-Return a list of elements that are in LIST1 or LIST2 but not both.
-Both lists have to be sorted over <.
-
-\(fn LIST1 LIST2)" nil nil)
-
-(autoload 'gnus-intersection "gnus-range" "\
-
-
-\(fn LIST1 LIST2)" nil nil)
-
-(autoload 'gnus-sorted-intersection "gnus-range" "\
-Return intersection of LIST1 and LIST2.
-LIST1 and LIST2 have to be sorted over <.
-
-\(fn LIST1 LIST2)" nil nil)
-
-(autoload 'gnus-sorted-range-intersection "gnus-range" "\
-Return intersection of RANGE1 and RANGE2.
-RANGE1 and RANGE2 have to be sorted over <.
-
-\(fn RANGE1 RANGE2)" nil nil)
-
-(defalias 'gnus-set-sorted-intersection 'gnus-sorted-nintersection)
-
-(autoload 'gnus-sorted-nintersection "gnus-range" "\
-Return intersection of LIST1 and LIST2 by modifying cdr pointers of LIST1.
-LIST1 and LIST2 have to be sorted over <.
-
-\(fn LIST1 LIST2)" nil nil)
-
-(autoload 'gnus-sorted-union "gnus-range" "\
-Return union of LIST1 and LIST2.
-LIST1 and LIST2 have to be sorted over <.
-
-\(fn LIST1 LIST2)" nil nil)
-
-(autoload 'gnus-sorted-nunion "gnus-range" "\
-Return union of LIST1 and LIST2 by modifying cdr pointers of LIST1.
-LIST1 and LIST2 have to be sorted over <.
-
-\(fn LIST1 LIST2)" nil nil)
-
-(autoload 'gnus-add-to-sorted-list "gnus-range" "\
-Add NUM into sorted LIST by side effect.
-
-\(fn LIST NUM)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize)
-;;;;;; "gnus-registry" "gnus/gnus-registry.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from gnus/gnus-registry.el
-
-(autoload 'gnus-registry-initialize "gnus-registry" "\
-Initialize the Gnus registry.
-
-\(fn)" t nil)
-
-(autoload 'gnus-registry-install-hooks "gnus-registry" "\
-Install the registry hooks.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate
-;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-sieve.el
-
-(autoload 'gnus-sieve-update "gnus-sieve" "\
-Update the Sieve script in gnus-sieve-file, by replacing the region
-between gnus-sieve-region-start and gnus-sieve-region-end with
-\(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost), then
-execute gnus-sieve-update-shell-command.
-See the documentation for these variables and functions for details.
-
-\(fn)" t nil)
-
-(autoload 'gnus-sieve-generate "gnus-sieve" "\
-Generate the Sieve script in gnus-sieve-file, by replacing the region
-between gnus-sieve-region-start and gnus-sieve-region-end with
-\(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost).
-See the documentation for these variables and functions for details.
-
-\(fn)" t nil)
-
-(autoload 'gnus-sieve-article-add-rule "gnus-sieve" "\
-
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-spec.el
-
-(autoload 'gnus-update-format "gnus-spec" "\
-Update the format specification near point.
-
-\(fn VAR)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-declare-backend) "gnus-start" "gnus/gnus-start.el"
-;;;;;; (20763 5110 492774 0))
-;;; Generated autoloads from gnus/gnus-start.el
-
-(autoload 'gnus-declare-backend "gnus-start" "\
-Declare back end NAME with ABILITIES as a Gnus back end.
-
-\(fn NAME &rest ABILITIES)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-summary-bookmark-jump) "gnus-sum" "gnus/gnus-sum.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-sum.el
-
-(autoload 'gnus-summary-bookmark-jump "gnus-sum" "\
-Handler function for record returned by `gnus-summary-bookmark-make-record'.
-BOOKMARK is a bookmark name or a bookmark record.
-
-\(fn BOOKMARK)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-sync-install-hooks gnus-sync-initialize)
-;;;;;; "gnus-sync" "gnus/gnus-sync.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-sync.el
-
-(autoload 'gnus-sync-initialize "gnus-sync" "\
-Initialize the Gnus sync facility.
-
-\(fn)" t nil)
-
-(autoload 'gnus-sync-install-hooks "gnus-sync" "\
-Install the sync hooks.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gnus-win.el
-
-(autoload 'gnus-add-configuration "gnus-win" "\
-Add the window configuration CONF to `gnus-buffer-configuration'.
-
-\(fn CONF)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gnutls-min-prime-bits) "gnutls" "net/gnutls.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from net/gnutls.el
-
-(defvar gnutls-min-prime-bits 256 "\
-Minimum number of prime bits accepted by GnuTLS for key exchange.
-During a Diffie-Hellman handshake, if the server sends a prime
-number with fewer than this number of bits, the handshake is
-rejected. (The smaller the prime number, the less secure the
-key exchange is against man-in-the-middle attacks.)
-
-A value of nil says to use the default GnuTLS value.")
-
-(custom-autoload 'gnutls-min-prime-bits "gnutls" t)
-
-;;;***
-\f
-;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from play/gomoku.el
-
-(autoload 'gomoku "gomoku" "\
-Start a Gomoku game between you and Emacs.
-
-If a game is in progress, this command allows you to resume it.
-If optional arguments N and M are given, an N by M board is used.
-If prefix arg is given for N, M is prompted for.
-
-You and Emacs play in turn by marking a free square. You mark it with X
-and Emacs marks it with O. The winner is the first to get five contiguous
-marks horizontally, vertically or in diagonal.
-
-You play by moving the cursor over the square you choose and hitting
-\\<gomoku-mode-map>\\[gomoku-human-plays].
-
-This program actually plays a simplified or archaic version of the
-Gomoku game, and ought to be upgraded to use the full modern rules.
-
-Use \\[describe-mode] for more info.
-
-\(fn &optional N M)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (goto-address-prog-mode goto-address-mode goto-address
-;;;;;; goto-address-at-point) "goto-addr" "net/goto-addr.el" (20765
-;;;;;; 6822 917289 0))
-;;; Generated autoloads from net/goto-addr.el
-
-(define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1")
-
-(autoload 'goto-address-at-point "goto-addr" "\
-Send to the e-mail address or load the URL at point.
-Send mail to address at point. See documentation for
-`goto-address-find-address-at-point'. If no address is found
-there, then load the URL at or before point.
-
-\(fn &optional EVENT)" t nil)
-
-(autoload 'goto-address "goto-addr" "\
-Sets up goto-address functionality in the current buffer.
-Allows user to use mouse/keyboard command to click to go to a URL
-or to send e-mail.
-By default, goto-address binds `goto-address-at-point' to mouse-2 and C-c RET
-only on URLs and e-mail addresses.
-
-Also fontifies the buffer appropriately (see `goto-address-fontify-p' and
-`goto-address-highlight-p' for more information).
-
-\(fn)" t nil)
-(put 'goto-address 'safe-local-eval-function t)
-
-(autoload 'goto-address-mode "goto-addr" "\
-Minor mode to buttonize URLs and e-mail addresses in the current buffer.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'goto-address-prog-mode "goto-addr" "\
-Like `goto-address-mode', but only for comments and strings.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gravatar-retrieve-synchronously gravatar-retrieve)
-;;;;;; "gravatar" "gnus/gravatar.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/gravatar.el
-
-(autoload 'gravatar-retrieve "gravatar" "\
-Retrieve MAIL-ADDRESS gravatar and call CB on retrieval.
-You can provide a list of argument to pass to CB in CBARGS.
-
-\(fn MAIL-ADDRESS CB &optional CBARGS)" nil nil)
-
-(autoload 'gravatar-retrieve-synchronously "gravatar" "\
-Retrieve MAIL-ADDRESS gravatar and returns it.
-
-\(fn MAIL-ADDRESS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (zrgrep 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" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from progmodes/grep.el
-
-(defvar grep-window-height nil "\
-Number of lines in a grep window. If nil, use `compilation-window-height'.")
-
-(custom-autoload 'grep-window-height "grep" t)
-
-(defvar grep-command nil "\
-The default grep command for \\[grep].
-If the grep program used supports an option to always include file names
-in its output (such as the `-H' option to GNU grep), it's a good idea to
-include it when specifying `grep-command'.
-
-In interactive usage, the actual value of this variable is set up
-by `grep-compute-defaults'; to change the default value, use
-Customize or call the function `grep-apply-setting'.")
-
-(custom-autoload 'grep-command "grep" nil)
-
-(defvar grep-find-command nil "\
-The default find command for \\[grep-find].
-In interactive usage, the actual value of this variable is set up
-by `grep-compute-defaults'; to change the default value, use
-Customize or call the function `grep-apply-setting'.")
-
-(custom-autoload 'grep-find-command "grep" nil)
-
-(defvar grep-setup-hook nil "\
-List of hook functions run by `grep-process-setup' (see `run-hooks').")
-
-(custom-autoload 'grep-setup-hook "grep" t)
-
-(defconst grep-regexp-alist '(("^\\(.+?\\)\\(:[ ]*\\)\\([1-9][0-9]*\\)\\2" 1 3 ((lambda nil (when grep-highlight-matches (let* ((beg (match-end 0)) (end (save-excursion (goto-char beg) (line-end-position))) (mbeg (text-property-any beg end 'font-lock-face 'match))) (when mbeg (- mbeg beg))))) lambda nil (when grep-highlight-matches (let* ((beg (match-end 0)) (end (save-excursion (goto-char beg) (line-end-position))) (mbeg (text-property-any beg end 'font-lock-face 'match)) (mend (and mbeg (next-single-property-change mbeg 'font-lock-face nil end)))) (when mend (- mend beg)))))) ("^Binary file \\(.+\\) matches$" 1 nil nil 0 1)) "\
-Regexp used to match grep hits. See `compilation-error-regexp-alist'.")
-
-(defvar grep-program (purecopy "grep") "\
-The default grep program for `grep-command' and `grep-find-command'.
-This variable's value takes effect when `grep-compute-defaults' is called.")
-
-(defvar find-program (purecopy "find") "\
-The default find program for `grep-find-command'.
-This variable's value takes effect when `grep-compute-defaults' is called.")
-
-(defvar xargs-program (purecopy "xargs") "\
-The default xargs program for `grep-find-command'.
-See `grep-find-use-xargs'.
-This variable's value takes effect when `grep-compute-defaults' is called.")
-
-(defvar grep-find-use-xargs nil "\
-How to invoke find and grep.
-If `exec', use `find -exec {} ;'.
-If `exec-plus' use `find -exec {} +'.
-If `gnu', use `find -print0' and `xargs -0'.
-Any other value means to use `find -print' and `xargs'.
-
-This variable's value takes effect when `grep-compute-defaults' is called.")
-
-(defvar grep-history nil "\
-History list for grep.")
-
-(defvar grep-find-history nil "\
-History list for grep-find.")
-
-(autoload 'grep-process-setup "grep" "\
-Setup compilation variables and buffer for `grep'.
-Set up `compilation-exit-message-function' and run `grep-setup-hook'.
-
-\(fn)" nil nil)
-
-(autoload 'grep-compute-defaults "grep" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'grep-mode "grep" "\
-Sets `grep-last-buffer' and `compilation-window-height'.
-
-\(fn)" nil nil)
-
-(autoload 'grep "grep" "\
-Run grep, with user-specified args, and collect output in a buffer.
-While grep runs asynchronously, you can use \\[next-error] (M-x next-error),
-or \\<grep-mode-map>\\[compile-goto-error] in the *grep* buffer, to go to the lines where grep found
-matches. To kill the grep job before it finishes, type \\[kill-compilation].
-
-For doing a recursive `grep', see the `rgrep' command. For running
-`grep' in a specific directory, see `lgrep'.
-
-This command uses a special history list for its COMMAND-ARGS, so you
-can easily repeat a grep command.
-
-A prefix argument says to default the argument based upon the current
-tag the cursor is over, substituting it into the last grep command
-in the grep command history (or into `grep-command' if that history
-list is empty).
-
-\(fn COMMAND-ARGS)" t nil)
-
-(autoload 'grep-find "grep" "\
-Run grep via find, with user-specified args COMMAND-ARGS.
-Collect output in a buffer.
-While find runs asynchronously, you can use the \\[next-error] command
-to find the text that grep hits refer to.
-
-This command uses a special history list for its arguments, so you can
-easily repeat a find command.
-
-\(fn COMMAND-ARGS)" t nil)
-
-(defalias 'find-grep 'grep-find)
-
-(autoload 'lgrep "grep" "\
-Run grep, searching for REGEXP in FILES in directory DIR.
-The search is limited to file names matching shell pattern FILES.
-FILES may use abbreviations defined in `grep-files-aliases', e.g.
-entering `ch' is equivalent to `*.[ch]'.
-
-With \\[universal-argument] prefix, you can edit the constructed shell command line
-before it is executed.
-With two \\[universal-argument] prefixes, directly edit and run `grep-command'.
-
-Collect output in a buffer. While grep runs asynchronously, you
-can use \\[next-error] (M-x next-error), or \\<grep-mode-map>\\[compile-goto-error] in the grep output buffer,
-to go to the lines where grep found matches.
-
-This command shares argument histories with \\[rgrep] and \\[grep].
-
-\(fn REGEXP &optional FILES DIR CONFIRM)" t nil)
-
-(autoload 'rgrep "grep" "\
-Recursively grep for REGEXP in FILES in directory tree rooted at DIR.
-The search is limited to file names matching shell pattern FILES.
-FILES may use abbreviations defined in `grep-files-aliases', e.g.
-entering `ch' is equivalent to `*.[ch]'.
-
-With \\[universal-argument] prefix, you can edit the constructed shell command line
-before it is executed.
-With two \\[universal-argument] prefixes, directly edit and run `grep-find-command'.
-
-Collect output in a buffer. While the recursive grep is running,
-you can use \\[next-error] (M-x next-error), or \\<grep-mode-map>\\[compile-goto-error] in the grep output buffer,
-to visit the lines where matches were found. To kill the job
-before it finishes, type \\[kill-compilation].
-
-This command shares argument histories with \\[lgrep] and \\[grep-find].
-
-When called programmatically and FILES is nil, REGEXP is expected
-to specify a command to run.
-
-\(fn REGEXP &optional FILES DIR CONFIRM)" t nil)
-
-(autoload 'zrgrep "grep" "\
-Recursively grep for REGEXP in gzipped FILES in tree rooted at DIR.
-Like `rgrep' but uses `zgrep' for `grep-program', sets the default
-file name to `*.gz', and sets `grep-highlight-matches' to `always'.
-
-\(fn REGEXP &optional FILES DIR CONFIRM GREP-FIND-TEMPLATE)" t nil)
-
-(defalias 'rzgrep 'zrgrep)
-
-;;;***
-\f
-;;;### (autoloads (gs-load-image) "gs" "gs.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from gs.el
-
-(autoload 'gs-load-image "gs" "\
-Load a PS image for display on FRAME.
-SPEC is an image specification, IMG-HEIGHT and IMG-WIDTH are width
-and height of the image in pixels. WINDOW-AND-PIXMAP-ID is a string of
-the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful.
-
-\(fn FRAME SPEC IMG-WIDTH IMG-HEIGHT WINDOW-AND-PIXMAP-ID PIXEL-COLORS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gud-tooltip-mode gdb-script-mode jdb pdb perldb
-;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (20712 38790
-;;;;;; 413794 0))
-;;; Generated autoloads from progmodes/gud.el
-
-(autoload 'gud-gdb "gud" "\
-Run gdb on program FILE in buffer *gud-FILE*.
-The directory containing FILE becomes the initial working
-directory and source-file directory for your debugger.
-
-\(fn COMMAND-LINE)" t nil)
-
-(autoload 'sdb "gud" "\
-Run sdb on program FILE in buffer *gud-FILE*.
-The directory containing FILE becomes the initial working directory
-and source-file directory for your debugger.
-
-\(fn COMMAND-LINE)" t nil)
-
-(autoload 'dbx "gud" "\
-Run dbx on program FILE in buffer *gud-FILE*.
-The directory containing FILE becomes the initial working directory
-and source-file directory for your debugger.
-
-\(fn COMMAND-LINE)" t nil)
-
-(autoload 'xdb "gud" "\
-Run xdb on program FILE in buffer *gud-FILE*.
-The directory containing FILE becomes the initial working directory
-and source-file directory for your debugger.
-
-You can set the variable `gud-xdb-directories' to a list of program source
-directories if your program contains sources from more than one directory.
-
-\(fn COMMAND-LINE)" t nil)
-
-(autoload 'perldb "gud" "\
-Run perldb on program FILE in buffer *gud-FILE*.
-The directory containing FILE becomes the initial working directory
-and source-file directory for your debugger.
-
-\(fn COMMAND-LINE)" t nil)
-
-(autoload 'pdb "gud" "\
-Run pdb on program FILE in buffer `*gud-FILE*'.
-The directory containing FILE becomes the initial working directory
-and source-file directory for your debugger.
-
-\(fn COMMAND-LINE)" t nil)
-
-(autoload 'jdb "gud" "\
-Run jdb with command line COMMAND-LINE in a buffer.
-The buffer is named \"*gud*\" if no initial class is given or
-\"*gud-<initial-class-basename>*\" if there is. If the \"-classpath\"
-switch is given, omit all whitespace between it and its value.
-
-See `gud-jdb-use-classpath' and `gud-jdb-classpath' documentation for
-information on how jdb accesses source files. Alternatively (if
-`gud-jdb-use-classpath' is nil), see `gud-jdb-directories' for the
-original source file access method.
-
-For general information about commands available to control jdb from
-gud, see `gud-mode'.
-
-\(fn COMMAND-LINE)" t nil)
-
-(autoload 'gdb-script-mode "gud" "\
-Major mode for editing GDB scripts.
-
-\(fn)" t nil)
-
-(defvar gud-tooltip-mode nil "\
-Non-nil if Gud-Tooltip mode is enabled.
-See the command `gud-tooltip-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `gud-tooltip-mode'.")
-
-(custom-autoload 'gud-tooltip-mode "gud" nil)
-
-(autoload 'gud-tooltip-mode "gud" "\
-Toggle the display of GUD tooltips.
-With a prefix argument ARG, enable the feature if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-it if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (setf gv-define-simple-setter gv-define-setter
-;;;;;; gv--defun-declaration gv-define-expander gv-letplace gv-get)
-;;;;;; "gv" "emacs-lisp/gv.el" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/gv.el
-
-(autoload 'gv-get "gv" "\
-Build the code that applies DO to PLACE.
-PLACE must be a valid generalized variable.
-DO must be a function; it will be called with 2 arguments: GETTER and SETTER,
-where GETTER is a (copyable) Elisp expression that returns the value of PLACE,
-and SETTER is a function which returns the code to set PLACE when called
-with a (not necessarily copyable) Elisp expression that returns the value to
-set it to.
-DO must return an Elisp expression.
-
-\(fn PLACE DO)" nil nil)
-
-(autoload 'gv-letplace "gv" "\
-Build the code manipulating the generalized variable PLACE.
-GETTER will be bound to a copyable expression that returns the value
-of PLACE.
-SETTER will be bound to a function that takes an expression V and returns
-a new expression that sets PLACE to V.
-BODY should return some Elisp expression E manipulating PLACE via GETTER
-and SETTER.
-The returned value will then be an Elisp expression that first evaluates
-all the parts of PLACE that can be evaluated and then runs E.
-
-\(fn (GETTER SETTER) PLACE &rest BODY)" nil t)
-
-(put 'gv-letplace 'lisp-indent-function '2)
-
-(autoload 'gv-define-expander "gv" "\
-Use HANDLER to handle NAME as a generalized var.
-NAME is a symbol: the name of a function, macro, or special form.
-HANDLER is a function which takes an argument DO followed by the same
-arguments as NAME. DO is a function as defined in `gv-get'.
-
-\(fn NAME HANDLER)" nil t)
-
-(put 'gv-define-expander 'lisp-indent-function '1)
-
-(autoload 'gv--defun-declaration "gv" "\
-
-
-\(fn SYMBOL NAME ARGS HANDLER &optional FIX)" nil nil)
-
-(push `(gv-expander ,(apply-partially #'gv--defun-declaration 'gv-expander)) defun-declarations-alist)
-
-(push `(gv-setter ,(apply-partially #'gv--defun-declaration 'gv-setter)) defun-declarations-alist)
-
-(autoload 'gv-define-setter "gv" "\
-Define a setter method for generalized variable NAME.
-This macro is an easy-to-use substitute for `gv-define-expander' that works
-well for simple place forms.
-Assignments of VAL to (NAME ARGS...) are expanded by binding the argument
-forms (VAL ARGS...) according to ARGLIST, then executing BODY, which must
-return a Lisp form that does the assignment.
-The first arg in ARGLIST (the one that receives VAL) receives an expression
-which can do arbitrary things, whereas the other arguments are all guaranteed
-to be pure and copyable. Example use:
- (gv-define-setter aref (v a i) `(aset ,a ,i ,v))
-
-\(fn NAME ARGLIST &rest BODY)" nil t)
-
-(put 'gv-define-setter 'lisp-indent-function '2)
-
-(autoload 'gv-define-simple-setter "gv" "\
-Define a simple setter method for generalized variable NAME.
-This macro is an easy-to-use substitute for `gv-define-expander' that works
-well for simple place forms. Assignments of VAL to (NAME ARGS...) are
-turned into calls of the form (SETTER ARGS... VAL).
-
-If FIX-RETURN is non-nil, then SETTER is not assumed to return VAL and
-instead the assignment is turned into something equivalent to
- (let ((temp VAL))
- (SETTER ARGS... temp)
- temp)
-so as to preserve the semantics of `setf'.
-
-\(fn NAME SETTER &optional FIX-RETURN)" nil t)
-
-(autoload 'setf "gv" "\
-Set each PLACE to the value of its VAL.
-This is a generalized version of `setq'; the PLACEs may be symbolic
-references such as (car x) or (aref x i), as well as plain symbols.
-For example, (setf (cadr x) y) is equivalent to (setcar (cdr x) y).
-The return value is the last VAL in the list.
-
-\(fn PLACE VAL PLACE VAL ...)" nil t)
-
-(put 'gv-place 'edebug-form-spec 'edebug-match-form)
-
-;;;***
-\f
-;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from play/handwrite.el
-
-(autoload 'handwrite "handwrite" "\
-Turns the buffer into a \"handwritten\" document.
-The functions `handwrite-10pt', `handwrite-11pt', `handwrite-12pt'
-and `handwrite-13pt' set up for various sizes of output.
-
-Variables: `handwrite-linespace' (default 12)
- `handwrite-fontsize' (default 11)
- `handwrite-numlines' (default 60)
- `handwrite-pagenumbering' (default nil)
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el"
-;;;;;; (20627 28531 447943 0))
-;;; Generated autoloads from play/hanoi.el
-
-(autoload 'hanoi "hanoi" "\
-Towers of Hanoi diversion. Use NRINGS rings.
-
-\(fn NRINGS)" t nil)
-
-(autoload 'hanoi-unix "hanoi" "\
-Towers of Hanoi, UNIX doomsday version.
-Displays 32-ring towers that have been progressing at one move per
-second since 1970-01-01 00:00:00 GMT.
-
-Repent before ring 31 moves.
-
-\(fn)" t nil)
-
-(autoload 'hanoi-unix-64 "hanoi" "\
-Like hanoi-unix, but pretend to have a 64-bit clock.
-This is, necessarily (as of Emacs 20.3), a crock. When the
-current-time interface is made s2G-compliant, hanoi.el will need
-to be updated.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mail-check-payment mail-add-payment-async mail-add-payment
-;;;;;; hashcash-verify-payment hashcash-insert-payment-async hashcash-insert-payment)
-;;;;;; "hashcash" "mail/hashcash.el" (20707 18685 911514 0))
-;;; Generated autoloads from mail/hashcash.el
-
-(autoload 'hashcash-insert-payment "hashcash" "\
-Insert X-Payment and X-Hashcash headers with a payment for ARG
-
-\(fn ARG)" t nil)
-
-(autoload 'hashcash-insert-payment-async "hashcash" "\
-Insert X-Payment and X-Hashcash headers with a payment for ARG
-Only start calculation. Results are inserted when ready.
-
-\(fn ARG)" t nil)
-
-(autoload 'hashcash-verify-payment "hashcash" "\
-Verify a hashcash payment
-
-\(fn TOKEN &optional RESOURCE AMOUNT)" nil nil)
-
-(autoload 'mail-add-payment "hashcash" "\
-Add X-Payment: and X-Hashcash: headers with a hashcash payment
-for each recipient address. Prefix arg sets default payment temporarily.
-Set ASYNC to t to start asynchronous calculation. (See
-`mail-add-payment-async').
-
-\(fn &optional ARG ASYNC)" t nil)
-
-(autoload 'mail-add-payment-async "hashcash" "\
-Add X-Payment: and X-Hashcash: headers with a hashcash payment
-for each recipient address. Prefix arg sets default payment temporarily.
-Calculation is asynchronous.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'mail-check-payment "hashcash" "\
-Look for a valid X-Payment: or X-Hashcash: header.
-Prefix arg sets default accept amount temporarily.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (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" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from help-at-pt.el
-
-(autoload 'help-at-pt-string "help-at-pt" "\
-Return the help-echo string at point.
-Normally, the string produced by the `help-echo' text or overlay
-property, or nil, is returned.
-If KBD is non-nil, `kbd-help' is used instead, and any
-`help-echo' property is ignored. In this case, the return value
-can also be t, if that is the value of the `kbd-help' property.
-
-\(fn &optional KBD)" nil nil)
-
-(autoload 'help-at-pt-kbd-string "help-at-pt" "\
-Return the keyboard help string at point.
-If the `kbd-help' text or overlay property at point produces a
-string, return it. Otherwise, use the `help-echo' property.
-If this produces no string either, return nil.
-
-\(fn)" nil nil)
-
-(autoload 'display-local-help "help-at-pt" "\
-Display local help in the echo area.
-This displays a short help message, namely the string produced by
-the `kbd-help' property at point. If `kbd-help' does not produce
-a string, but the `help-echo' property does, then that string is
-printed instead.
-
-A numeric argument ARG prevents display of a message in case
-there is no help. While ARG can be used interactively, it is
-mainly meant for use from Lisp.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'help-at-pt-cancel-timer "help-at-pt" "\
-Cancel any timer set by `help-at-pt-set-timer'.
-This disables `help-at-pt-display-when-idle'.
-
-\(fn)" t nil)
-
-(autoload 'help-at-pt-set-timer "help-at-pt" "\
-Enable `help-at-pt-display-when-idle'.
-This is done by setting a timer, if none is currently active.
-
-\(fn)" t nil)
-
-(defvar help-at-pt-display-when-idle 'never "\
-Automatically show local help on point-over.
-If the value is t, the string obtained from any `kbd-help' or
-`help-echo' property at point is automatically printed in the
-echo area, if nothing else is already displayed there, or after a
-quit. If both `kbd-help' and `help-echo' produce help strings,
-`kbd-help' is used. If the value is a list, the help only gets
-printed if there is a text or overlay property at point that is
-included in this list. Suggested properties are `keymap',
-`local-map', `button' and `kbd-help'. Any value other than t or
-a non-empty list disables the feature.
-
-This variable only takes effect after a call to
-`help-at-pt-set-timer'. The help gets printed after Emacs has
-been idle for `help-at-pt-timer-delay' seconds. You can call
-`help-at-pt-cancel-timer' to cancel the timer set by, and the
-effect of, `help-at-pt-set-timer'.
-
-When this variable is set through Custom, `help-at-pt-set-timer'
-is called automatically, unless the value is `never', in which
-case `help-at-pt-cancel-timer' is called. Specifying an empty
-list of properties through Custom will set the timer, thus
-enabling buffer local values. It sets the actual value to nil.
-Thus, Custom distinguishes between a nil value and other values
-that disable the feature, which Custom identifies with `never'.
-The default is `never'.")
-
-(custom-autoload 'help-at-pt-display-when-idle "help-at-pt" nil)
-
-(autoload 'scan-buf-move-to-region "help-at-pt" "\
-Go to the start of the next region with non-nil PROP property.
-Then run HOOK, which should be a quoted symbol that is a normal
-hook variable, or an expression evaluating to such a symbol.
-Adjacent areas with different non-nil PROP properties are
-considered different regions.
-
-With numeric argument ARG, move to the start of the ARGth next
-such region, then run HOOK. If ARG is negative, move backward.
-If point is already in a region, then that region does not count
-toward ARG. If ARG is 0 and point is inside a region, move to
-the start of that region. If ARG is 0 and point is not in a
-region, print a message to that effect, but do not move point and
-do not run HOOK. If there are not enough regions to move over,
-an error results and the number of available regions is mentioned
-in the error message. Point is not moved and HOOK is not run.
-
-\(fn PROP &optional ARG HOOK)" nil nil)
-
-(autoload 'scan-buf-next-region "help-at-pt" "\
-Go to the start of the next region with non-nil help-echo.
-Print the help found there using `display-local-help'. Adjacent
-areas with different non-nil help-echo properties are considered
-different regions.
-
-With numeric argument ARG, move to the start of the ARGth next
-help-echo region. If ARG is negative, move backward. If point
-is already in a help-echo region, then that region does not count
-toward ARG. If ARG is 0 and point is inside a help-echo region,
-move to the start of that region. If ARG is 0 and point is not
-in such a region, just print a message to that effect. If there
-are not enough regions to move over, an error results and the
-number of available regions is mentioned in the error message.
-
-A potentially confusing subtlety is that point can be in a
-help-echo region without any local help being available. This is
-because `help-echo' can be a function evaluating to nil. This
-rarely happens in practice.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'scan-buf-previous-region "help-at-pt" "\
-Go to the start of the previous region with non-nil help-echo.
-Print the help found there using `display-local-help'. Adjacent
-areas with different non-nil help-echo properties are considered
-different regions. With numeric argument ARG, behaves like
-`scan-buf-next-region' with argument -ARG.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (doc-file-to-info doc-file-to-man describe-categories
-;;;;;; describe-syntax describe-variable variable-at-point describe-function-1
-;;;;;; find-lisp-object-file-name help-C-file-name describe-function)
-;;;;;; "help-fns" "help-fns.el" (20707 18685 911514 0))
-;;; Generated autoloads from help-fns.el
-
-(autoload 'describe-function "help-fns" "\
-Display the full documentation of FUNCTION (a symbol).
-
-\(fn FUNCTION)" t nil)
-
-(autoload 'help-C-file-name "help-fns" "\
-Return the name of the C file where SUBR-OR-VAR is defined.
-KIND should be `var' for a variable or `subr' for a subroutine.
-
-\(fn SUBR-OR-VAR KIND)" nil nil)
-
-(autoload 'find-lisp-object-file-name "help-fns" "\
-Guess the file that defined the Lisp object OBJECT, of type TYPE.
-OBJECT should be a symbol associated with a function, variable, or face;
- alternatively, it can be a function definition.
-If TYPE is `defvar', search for a variable definition.
-If TYPE is `defface', search for a face definition.
-If TYPE is the value returned by `symbol-function' for a function symbol,
- search for a function definition.
-
-The return value is the absolute name of a readable file where OBJECT is
-defined. If several such files exist, preference is given to a file
-found via `load-path'. The return value can also be `C-source', which
-means that OBJECT is a function or variable defined in C. If no
-suitable file is found, return nil.
-
-\(fn OBJECT TYPE)" nil nil)
-
-(autoload 'describe-function-1 "help-fns" "\
-
-
-\(fn FUNCTION)" nil nil)
-
-(autoload 'variable-at-point "help-fns" "\
-Return the bound variable symbol found at or before point.
-Return 0 if there is no such symbol.
-If ANY-SYMBOL is non-nil, don't insist the symbol be bound.
-
-\(fn &optional ANY-SYMBOL)" nil nil)
-
-(autoload 'describe-variable "help-fns" "\
-Display the full documentation of VARIABLE (a symbol).
-Returns the documentation as a string, also.
-If VARIABLE has a buffer-local value in BUFFER or FRAME
-\(default to the current buffer and current frame),
-it is displayed along with the global value.
-
-\(fn VARIABLE &optional BUFFER FRAME)" t nil)
-
-(autoload 'describe-syntax "help-fns" "\
-Describe the syntax specifications in the syntax table of BUFFER.
-The descriptions are inserted in a help buffer, which is then displayed.
-BUFFER defaults to the current buffer.
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'describe-categories "help-fns" "\
-Describe the category specifications in the current category table.
-The descriptions are inserted in a buffer, which is then displayed.
-If BUFFER is non-nil, then describe BUFFER's category table instead.
-BUFFER should be a buffer or a buffer name.
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'doc-file-to-man "help-fns" "\
-Produce an nroff buffer containing the doc-strings from the DOC file.
-
-\(fn FILE)" t nil)
-
-(autoload 'doc-file-to-info "help-fns" "\
-Produce a texinfo buffer with sorted doc-strings from the DOC file.
-
-\(fn FILE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (three-step-help) "help-macro" "help-macro.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from help-macro.el
-
-(defvar three-step-help nil "\
-Non-nil means give more info about Help command in three steps.
-The three steps are simple prompt, prompt with all options, and
-window listing and describing the options.
-A value of nil means skip the middle step, so that \\[help-command] \\[help-command]
-gives the window that lists the options.")
-
-(custom-autoload 'three-step-help "help-macro" t)
-
-;;;***
-\f
-;;;### (autoloads (help-bookmark-jump help-xref-on-pp help-insert-xref-button
-;;;;;; help-xref-button help-make-xrefs help-buffer help-setup-xref
-;;;;;; help-mode-finish help-mode-setup help-mode) "help-mode" "help-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from help-mode.el
-
-(autoload 'help-mode "help-mode" "\
-Major mode for viewing help text and navigating references in it.
-Entry to this mode runs the normal hook `help-mode-hook'.
-Commands:
-\\{help-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'help-mode-setup "help-mode" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'help-mode-finish "help-mode" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'help-setup-xref "help-mode" "\
-Invoked from commands using the \"*Help*\" buffer to install some xref info.
-
-ITEM is a (FUNCTION . ARGS) pair appropriate for recreating the help
-buffer after following a reference. INTERACTIVE-P is non-nil if the
-calling command was invoked interactively. In this case the stack of
-items for help buffer \"back\" buttons is cleared.
-
-This should be called very early, before the output buffer is cleared,
-because we want to record the \"previous\" position of point so we can
-restore it properly when going back.
-
-\(fn ITEM INTERACTIVE-P)" nil nil)
-
-(autoload 'help-buffer "help-mode" "\
-Return the name of a buffer for inserting help.
-If `help-xref-following' is non-nil, this is the name of the
-current buffer. Signal an error if this buffer is not derived
-from `help-mode'.
-Otherwise, return \"*Help*\", creating a buffer with that name if
-it does not already exist.
-
-\(fn)" nil nil)
-
-(autoload 'help-make-xrefs "help-mode" "\
-Parse and hyperlink documentation cross-references in the given BUFFER.
-
-Find cross-reference information in a buffer and activate such cross
-references for selection with `help-follow'. Cross-references have
-the canonical form `...' and the type of reference may be
-disambiguated by the preceding word(s) used in
-`help-xref-symbol-regexp'. Faces only get cross-referenced if
-preceded or followed by the word `face'. Variables without
-variable documentation do not get cross-referenced, unless
-preceded by the word `variable' or `option'.
-
-If the variable `help-xref-mule-regexp' is non-nil, find also
-cross-reference information related to multilingual environment
-\(e.g., coding-systems). This variable is also used to disambiguate
-the type of reference as the same way as `help-xref-symbol-regexp'.
-
-A special reference `back' is made to return back through a stack of
-help buffers. Variable `help-back-label' specifies the text for
-that.
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'help-xref-button "help-mode" "\
-Make a hyperlink for cross-reference text previously matched.
-MATCH-NUMBER is the subexpression of interest in the last matched
-regexp. TYPE is the type of button to use. Any remaining arguments are
-passed to the button's help-function when it is invoked.
-See `help-make-xrefs'.
-
-\(fn MATCH-NUMBER TYPE &rest ARGS)" nil nil)
-
-(autoload 'help-insert-xref-button "help-mode" "\
-Insert STRING and make a hyperlink from cross-reference text on it.
-TYPE is the type of button to use. Any remaining arguments are passed
-to the button's help-function when it is invoked.
-See `help-make-xrefs'.
-
-\(fn STRING TYPE &rest ARGS)" nil nil)
-
-(autoload 'help-xref-on-pp "help-mode" "\
-Add xrefs for symbols in `pp's output between FROM and TO.
-
-\(fn FROM TO)" nil nil)
-
-(autoload 'help-bookmark-jump "help-mode" "\
-Jump to help-mode bookmark BOOKMARK.
-Handler function for record returned by `help-bookmark-make-record'.
-BOOKMARK is a bookmark name or a bookmark record.
-
-\(fn BOOKMARK)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (Helper-help Helper-describe-bindings) "helper"
-;;;;;; "emacs-lisp/helper.el" (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/helper.el
-
-(autoload 'Helper-describe-bindings "helper" "\
-Describe local key bindings of current mode.
-
-\(fn)" t nil)
-
-(autoload 'Helper-help "helper" "\
-Provide help for current mode.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl"
-;;;;;; "hexl.el" (20763 5110 492774 0))
-;;; Generated autoloads from hexl.el
-
-(autoload 'hexl-mode "hexl" "\
-\\<hexl-mode-map>A mode for editing binary files in hex dump format.
-This is not an ordinary major mode; it alters some aspects
-of the current mode's behavior, but not all; also, you can exit
-Hexl mode and return to the previous mode using `hexl-mode-exit'.
-
-This function automatically converts a buffer into the hexl format
-using the function `hexlify-buffer'.
-
-Each line in the buffer has an \"address\" (displayed in hexadecimal)
-representing the offset into the file that the characters on this line
-are at and 16 characters from the file (displayed as hexadecimal
-values grouped every `hexl-bits' bits) and as their ASCII values.
-
-If any of the characters (displayed as ASCII characters) are
-unprintable (control or meta characters) they will be replaced as
-periods.
-
-If `hexl-mode' is invoked with an argument the buffer is assumed to be
-in hexl format.
-
-A sample format:
-
- HEX ADDR: 0001 0203 0405 0607 0809 0a0b 0c0d 0e0f ASCII-TEXT
- -------- ---- ---- ---- ---- ---- ---- ---- ---- ----------------
- 00000000: 5468 6973 2069 7320 6865 786c 2d6d 6f64 This is hexl-mod
- 00000010: 652e 2020 4561 6368 206c 696e 6520 7265 e. Each line re
- 00000020: 7072 6573 656e 7473 2031 3620 6279 7465 presents 16 byte
- 00000030: 7320 6173 2068 6578 6164 6563 696d 616c s as hexadecimal
- 00000040: 2041 5343 4949 0a61 6e64 2070 7269 6e74 ASCII.and print
- 00000050: 6162 6c65 2041 5343 4949 2063 6861 7261 able ASCII chara
- 00000060: 6374 6572 732e 2020 416e 7920 636f 6e74 cters. Any cont
- 00000070: 726f 6c20 6f72 206e 6f6e 2d41 5343 4949 rol or non-ASCII
- 00000080: 2063 6861 7261 6374 6572 730a 6172 6520 characters.are
- 00000090: 6469 7370 6c61 7965 6420 6173 2070 6572 displayed as per
- 000000a0: 696f 6473 2069 6e20 7468 6520 7072 696e iods in the prin
- 000000b0: 7461 626c 6520 6368 6172 6163 7465 7220 table character
- 000000c0: 7265 6769 6f6e 2e0a region..
-
-Movement is as simple as movement in a normal Emacs text buffer. Most
-cursor movement bindings are the same: use \\[hexl-backward-char], \\[hexl-forward-char], \\[hexl-next-line], and \\[hexl-previous-line]
-to move the cursor left, right, down, and up.
-
-Advanced cursor movement commands (ala \\[hexl-beginning-of-line], \\[hexl-end-of-line], \\[hexl-beginning-of-buffer], and \\[hexl-end-of-buffer]) are
-also supported.
-
-There are several ways to change text in hexl mode:
-
-ASCII characters (character between space (0x20) and tilde (0x7E)) are
-bound to self-insert so you can simply type the character and it will
-insert itself (actually overstrike) into the buffer.
-
-\\[hexl-quoted-insert] followed by another keystroke allows you to insert the key even if
-it isn't bound to self-insert. An octal number can be supplied in place
-of another key to insert the octal number's ASCII representation.
-
-\\[hexl-insert-hex-char] will insert a given hexadecimal value (if it is between 0 and 0xFF)
-into the buffer at the current point.
-
-\\[hexl-insert-octal-char] will insert a given octal value (if it is between 0 and 0377)
-into the buffer at the current point.
-
-\\[hexl-insert-decimal-char] will insert a given decimal value (if it is between 0 and 255)
-into the buffer at the current point.
-
-\\[hexl-mode-exit] will exit hexl-mode.
-
-Note: saving the file with any of the usual Emacs commands
-will actually convert it back to binary format while saving.
-
-You can use \\[hexl-find-file] to visit a file in Hexl mode.
-
-\\[describe-bindings] for advanced commands.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'hexl-find-file "hexl" "\
-Edit file FILENAME as a binary file in hex dump format.
-Switch to a buffer visiting file FILENAME, creating one if none exists,
-and edit the file in `hexl-mode'.
-
-\(fn FILENAME)" t nil)
-
-(autoload 'hexlify-buffer "hexl" "\
-Convert a binary buffer to hexl format.
-This discards the buffer's undo information.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from hi-lock.el
-
-(autoload 'hi-lock-mode "hi-lock" "\
-Toggle selective highlighting of patterns (Hi Lock mode).
-With a prefix argument ARG, enable Hi Lock mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Hi Lock mode is automatically enabled when you invoke any of the
-highlighting commands listed below, such as \\[highlight-regexp].
-To enable Hi Lock mode in all buffers, use `global-hi-lock-mode'
-or add (global-hi-lock-mode 1) to your init file.
-
-In buffers where Font Lock mode is enabled, patterns are
-highlighted using font lock. In buffers where Font Lock mode is
-disabled, patterns are applied using overlays; in this case, the
-highlighting will not be updated as you type.
-
-When Hi Lock mode is enabled, a \"Regexp Highlighting\" submenu
-is added to the \"Edit\" menu. The commands in the submenu,
-which can be called interactively, are:
-
-\\[highlight-regexp] REGEXP FACE
- Highlight matches of pattern REGEXP in current buffer with FACE.
-
-\\[highlight-phrase] PHRASE FACE
- Highlight matches of phrase PHRASE in current buffer with FACE.
- (PHRASE can be any REGEXP, but spaces will be replaced by matches
- to whitespace and initial lower-case letters will become case insensitive.)
-
-\\[highlight-lines-matching-regexp] REGEXP FACE
- Highlight lines containing matches of REGEXP in current buffer with FACE.
-
-\\[unhighlight-regexp] REGEXP
- Remove highlighting on matches of REGEXP in current buffer.
-
-\\[hi-lock-write-interactive-patterns]
- Write active REGEXPs into buffer as comments (if possible). They may
- be read the next time file is loaded or when the \\[hi-lock-find-patterns] command
- is issued. The inserted regexps are in the form of font lock keywords.
- (See `font-lock-keywords'.) They may be edited and re-loaded with \\[hi-lock-find-patterns],
- any valid `font-lock-keywords' form is acceptable. When a file is
- loaded the patterns are read if `hi-lock-file-patterns-policy' is
- 'ask and the user responds y to the prompt, or if
- `hi-lock-file-patterns-policy' is bound to a function and that
- function returns t.
-
-\\[hi-lock-find-patterns]
- Re-read patterns stored in buffer (in the format produced by \\[hi-lock-write-interactive-patterns]).
-
-When hi-lock is started and if the mode is not excluded or patterns
-rejected, the beginning of the buffer is searched for lines of the
-form:
- Hi-lock: FOO
-
-where FOO is a list of patterns. The patterns must start before
-position (number of characters into buffer)
-`hi-lock-file-patterns-range'. Patterns will be read until
-Hi-lock: end is found. A mode is excluded if it's in the list
-`hi-lock-exclude-modes'.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-hi-lock-mode nil "\
-Non-nil if Global-Hi-Lock mode is enabled.
-See the command `global-hi-lock-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-hi-lock-mode'.")
-
-(custom-autoload 'global-hi-lock-mode "hi-lock" nil)
-
-(autoload 'global-hi-lock-mode "hi-lock" "\
-Toggle Hi-Lock mode in all buffers.
-With prefix ARG, enable Global-Hi-Lock mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Hi-Lock mode is enabled in all buffers where
-`turn-on-hi-lock-if-enabled' would do it.
-See `hi-lock-mode' for more information on Hi-Lock mode.
-
-\(fn &optional ARG)" t nil)
-
-(defalias 'highlight-lines-matching-regexp 'hi-lock-line-face-buffer)
-
-(autoload 'hi-lock-line-face-buffer "hi-lock" "\
-Set face of all lines containing a match of REGEXP to FACE.
-Interactively, prompt for REGEXP then FACE, using a buffer-local
-history list for REGEXP and a global history list for FACE.
-
-If Font Lock mode is enabled in the buffer, it is used to
-highlight REGEXP. If Font Lock mode is disabled, overlays are
-used for highlighting; in this case, the highlighting will not be
-updated as you type.
-
-\(fn REGEXP &optional FACE)" t nil)
-
-(defalias 'highlight-regexp 'hi-lock-face-buffer)
-
-(autoload 'hi-lock-face-buffer "hi-lock" "\
-Set face of each match of REGEXP to FACE.
-Interactively, prompt for REGEXP then FACE, using a buffer-local
-history list for REGEXP and a global history list for FACE.
-
-If Font Lock mode is enabled in the buffer, it is used to
-highlight REGEXP. If Font Lock mode is disabled, overlays are
-used for highlighting; in this case, the highlighting will not be
-updated as you type.
-
-\(fn REGEXP &optional FACE)" t nil)
-
-(defalias 'highlight-phrase 'hi-lock-face-phrase-buffer)
-
-(autoload 'hi-lock-face-phrase-buffer "hi-lock" "\
-Set face of each match of phrase REGEXP to FACE.
-If called interactively, replaces whitespace in REGEXP with
-arbitrary whitespace and makes initial lower-case letters case-insensitive.
-
-If Font Lock mode is enabled in the buffer, it is used to
-highlight REGEXP. If Font Lock mode is disabled, overlays are
-used for highlighting; in this case, the highlighting will not be
-updated as you type.
-
-\(fn REGEXP &optional FACE)" t nil)
-
-(defalias 'unhighlight-regexp 'hi-lock-unface-buffer)
-
-(autoload 'hi-lock-unface-buffer "hi-lock" "\
-Remove highlighting of each match to REGEXP set by hi-lock.
-Interactively, prompt for REGEXP, accepting only regexps
-previously inserted by hi-lock interactive functions.
-
-\(fn REGEXP)" t nil)
-
-(autoload 'hi-lock-write-interactive-patterns "hi-lock" "\
-Write interactively added patterns, if any, into buffer at point.
-
-Interactively added patterns are those normally specified using
-`highlight-regexp' and `highlight-lines-matching-regexp'; they can
-be found in variable `hi-lock-interactive-patterns'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (hide-ifdef-mode) "hideif" "progmodes/hideif.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/hideif.el
-
-(autoload 'hide-ifdef-mode "hideif" "\
-Toggle features to hide/show #ifdef blocks (Hide-Ifdef mode).
-With a prefix argument ARG, enable Hide-Ifdef mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Hide-Ifdef mode is a buffer-local minor mode for use with C and
-C-like major modes. When enabled, code within #ifdef constructs
-that the C preprocessor would eliminate may be hidden from view.
-Several variables affect how the hiding is done:
-
-`hide-ifdef-env'
- An association list of defined and undefined symbols for the
- current buffer. Initially, the global value of `hide-ifdef-env'
- is used.
-
-`hide-ifdef-define-alist'
- An association list of defined symbol lists.
- Use `hide-ifdef-set-define-alist' to save the current `hide-ifdef-env'
- and `hide-ifdef-use-define-alist' to set the current `hide-ifdef-env'
- from one of the lists in `hide-ifdef-define-alist'.
-
-`hide-ifdef-lines'
- Set to non-nil to not show #if, #ifdef, #ifndef, #else, and
- #endif lines when hiding.
-
-`hide-ifdef-initially'
- Indicates whether `hide-ifdefs' should be called when Hide-Ifdef mode
- is activated.
-
-`hide-ifdef-read-only'
- Set to non-nil if you want to make buffers read only while hiding.
- After `show-ifdefs', read-only status is restored to previous value.
-
-\\{hide-ifdef-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (turn-off-hideshow hs-minor-mode) "hideshow" "progmodes/hideshow.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/hideshow.el
-
-(defvar hs-special-modes-alist (mapcar 'purecopy '((c-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil))) "\
-Alist for initializing the hideshow variables for different modes.
-Each element has the form
- (MODE START END COMMENT-START FORWARD-SEXP-FUNC ADJUST-BEG-FUNC).
-
-If non-nil, hideshow will use these values as regexps to define blocks
-and comments, respectively for major mode MODE.
-
-START, END and COMMENT-START are regular expressions. A block is
-defined as text surrounded by START and END.
-
-As a special case, START may be a list of the form (COMPLEX-START
-MDATA-SELECTOR), where COMPLEX-START is a regexp w/ multiple parts and
-MDATA-SELECTOR an integer that specifies which sub-match is the proper
-place to adjust point, before calling `hs-forward-sexp-func'. Point
-is adjusted to the beginning of the specified match. For example,
-see the `hs-special-modes-alist' entry for `bibtex-mode'.
-
-For some major modes, `forward-sexp' does not work properly. In those
-cases, FORWARD-SEXP-FUNC specifies another function to use instead.
-
-See the documentation for `hs-adjust-block-beginning' to see what is the
-use of ADJUST-BEG-FUNC.
-
-If any of the elements is left nil or omitted, hideshow tries to guess
-appropriate values. The regexps should not contain leading or trailing
-whitespace. Case does not matter.")
-
-(autoload 'hs-minor-mode "hideshow" "\
-Minor mode to selectively hide/show code and comment blocks.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-When hideshow minor mode is on, the menu bar is augmented with hideshow
-commands and the hideshow commands are enabled.
-The value '(hs . t) is added to `buffer-invisibility-spec'.
-
-The main commands are: `hs-hide-all', `hs-show-all', `hs-hide-block',
-`hs-show-block', `hs-hide-level' and `hs-toggle-hiding'. There is also
-`hs-hide-initial-comment-block' and `hs-mouse-toggle-hiding'.
-
-Turning hideshow minor mode off reverts the menu bar and the
-variables to default values and disables the hideshow commands.
-
-Lastly, the normal hook `hs-minor-mode-hook' is run using `run-hooks'.
-
-Key bindings:
-\\{hs-minor-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'turn-off-hideshow "hideshow" "\
-Unconditionally turn off `hs-minor-mode'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (global-highlight-changes-mode highlight-compare-with-file
-;;;;;; highlight-compare-buffers highlight-changes-rotate-faces
-;;;;;; highlight-changes-previous-change highlight-changes-next-change
-;;;;;; highlight-changes-remove-highlight highlight-changes-visible-mode
-;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from hilit-chg.el
-
-(autoload 'highlight-changes-mode "hilit-chg" "\
-Toggle highlighting changes in this buffer (Highlight Changes mode).
-With a prefix argument ARG, enable Highlight Changes mode if ARG
-is positive, and disable it otherwise. If called from Lisp,
-enable the mode if ARG is omitted or nil.
-
-When Highlight Changes is enabled, changes are marked with a text
-property. Normally they are displayed in a distinctive face, but
-command \\[highlight-changes-visible-mode] can be used to toggles
-this on and off.
-
-Other functions for buffers in this mode include:
-\\[highlight-changes-next-change] - move point to beginning of next change
-\\[highlight-changes-previous-change] - move to beginning of previous change
-\\[highlight-changes-remove-highlight] - remove the change face from the region
-\\[highlight-changes-rotate-faces] - rotate different \"ages\" of changes
-through various faces.
-\\[highlight-compare-with-file] - mark text as changed by comparing this
-buffer with the contents of a file
-\\[highlight-compare-buffers] highlights differences between two buffers.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'highlight-changes-visible-mode "hilit-chg" "\
-Toggle visibility of highlighting due to Highlight Changes mode.
-With a prefix argument ARG, enable Highlight Changes Visible mode
-if ARG is positive, and disable it otherwise. If called from
-Lisp, enable the mode if ARG is omitted or nil.
-
-Highlight Changes Visible mode only has an effect when Highlight
-Changes mode is on. When enabled, the changed text is displayed
-in a distinctive face.
-
-The default value can be customized with variable
-`highlight-changes-visibility-initial-state'.
-
-This command does not itself set highlight-changes mode.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'highlight-changes-remove-highlight "hilit-chg" "\
-Remove the change face from the region between BEG and END.
-This allows you to manually remove highlighting from uninteresting changes.
-
-\(fn BEG END)" t nil)
-
-(autoload 'highlight-changes-next-change "hilit-chg" "\
-Move to the beginning of the next change, if in Highlight Changes mode.
-
-\(fn)" t nil)
-
-(autoload 'highlight-changes-previous-change "hilit-chg" "\
-Move to the beginning of the previous change, if in Highlight Changes mode.
-
-\(fn)" t nil)
-
-(autoload 'highlight-changes-rotate-faces "hilit-chg" "\
-Rotate the faces if in Highlight Changes mode and the changes are visible.
-
-Current changes are displayed in the face described by the first element
-of `highlight-changes-face-list', one level older changes are shown in
-face described by the second element, and so on. Very old changes remain
-shown in the last face in the list.
-
-You can automatically rotate colors when the buffer is saved by adding
-this function to `write-file-functions' as a buffer-local value. To do
-this, eval the following in the buffer to be saved:
-
- (add-hook 'write-file-functions 'highlight-changes-rotate-faces nil t)
-
-\(fn)" t nil)
-
-(autoload 'highlight-compare-buffers "hilit-chg" "\
-Compare two buffers and highlight the differences.
-
-The default is the current buffer and the one in the next window.
-
-If either buffer is modified and is visiting a file, you are prompted
-to save the file.
-
-Unless the buffer is unmodified and visiting a file, the buffer is
-written to a temporary file for comparison.
-
-If a buffer is read-only, differences will be highlighted but no property
-changes are made, so \\[highlight-changes-next-change] and
-\\[highlight-changes-previous-change] will not work.
-
-\(fn BUF-A BUF-B)" t nil)
-
-(autoload 'highlight-compare-with-file "hilit-chg" "\
-Compare this buffer with a file, and highlight differences.
-
-If the buffer has a backup filename, it is used as the default when
-this function is called interactively.
-
-If the current buffer is visiting the file being compared against, it
-also will have its differences highlighted. Otherwise, the file is
-read in temporarily but the buffer is deleted.
-
-If the buffer is read-only, differences will be highlighted but no property
-changes are made, so \\[highlight-changes-next-change] and
-\\[highlight-changes-previous-change] will not work.
-
-\(fn FILE-B)" t nil)
-
-(defvar global-highlight-changes-mode nil "\
-Non-nil if Global-Highlight-Changes mode is enabled.
-See the command `global-highlight-changes-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-highlight-changes-mode'.")
-
-(custom-autoload 'global-highlight-changes-mode "hilit-chg" nil)
-
-(autoload 'global-highlight-changes-mode "hilit-chg" "\
-Toggle Highlight-Changes mode in all buffers.
-With prefix ARG, enable Global-Highlight-Changes mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Highlight-Changes mode is enabled in all buffers where
-`highlight-changes-mode-turn-on' would do it.
-See `highlight-changes-mode' for more information on Highlight-Changes mode.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (make-hippie-expand-function hippie-expand hippie-expand-try-functions-list)
-;;;;;; "hippie-exp" "hippie-exp.el" (20707 18685 911514 0))
-;;; Generated autoloads from hippie-exp.el
-
-(defvar hippie-expand-try-functions-list '(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) "\
-The list of expansion functions tried in order by `hippie-expand'.
-To change the behavior of `hippie-expand', remove, change the order of,
-or insert functions in this list.")
-
-(custom-autoload 'hippie-expand-try-functions-list "hippie-exp" t)
-
-(autoload 'hippie-expand "hippie-exp" "\
-Try to expand text before point, using multiple methods.
-The expansion functions in `hippie-expand-try-functions-list' are
-tried in order, until a possible expansion is found. Repeated
-application of `hippie-expand' inserts successively possible
-expansions.
-With a positive numeric argument, jumps directly to the ARG next
-function in this list. With a negative argument or just \\[universal-argument],
-undoes the expansion.
-
-\(fn ARG)" t nil)
-
-(autoload 'make-hippie-expand-function "hippie-exp" "\
-Construct a function similar to `hippie-expand'.
-Make it use the expansion functions in TRY-LIST. An optional second
-argument VERBOSE non-nil makes the function verbose.
-
-\(fn TRY-LIST &optional VERBOSE)" nil t)
-
-;;;***
-\f
-;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from hl-line.el
-
-(autoload 'hl-line-mode "hl-line" "\
-Toggle highlighting of the current line (Hl-Line mode).
-With a prefix argument ARG, enable Hl-Line mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Hl-Line mode is a buffer-local minor mode. If
-`hl-line-sticky-flag' is non-nil, Hl-Line mode highlights the
-line about the buffer's point in all windows. Caveat: the
-buffer's point might be different from the point of a
-non-selected window. Hl-Line mode uses the function
-`hl-line-highlight' on `post-command-hook' in this case.
-
-When `hl-line-sticky-flag' is nil, Hl-Line mode highlights the
-line about point in the selected window only. In this case, it
-uses the function `hl-line-unhighlight' on `pre-command-hook' in
-addition to `hl-line-highlight' on `post-command-hook'.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-hl-line-mode nil "\
-Non-nil if Global-Hl-Line mode is enabled.
-See the command `global-hl-line-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-hl-line-mode'.")
-
-(custom-autoload 'global-hl-line-mode "hl-line" nil)
-
-(autoload 'global-hl-line-mode "hl-line" "\
-Toggle line highlighting in all buffers (Global Hl-Line mode).
-With a prefix argument ARG, enable Global Hl-Line mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-If `global-hl-line-sticky-flag' is non-nil, Global Hl-Line mode
-highlights the line about the current buffer's point in all
-windows.
-
-Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and
-`global-hl-line-highlight' on `pre-command-hook' and `post-command-hook'.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (list-holidays holidays holiday-solar-holidays
-;;;;;; holiday-bahai-holidays holiday-islamic-holidays holiday-christian-holidays
-;;;;;; holiday-hebrew-holidays holiday-other-holidays holiday-local-holidays
-;;;;;; holiday-oriental-holidays holiday-general-holidays) "holidays"
-;;;;;; "calendar/holidays.el" (20707 18685 911514 0))
-;;; Generated autoloads from calendar/holidays.el
-
-(define-obsolete-variable-alias 'general-holidays 'holiday-general-holidays "23.1")
-
-(defvar holiday-general-holidays (mapcar 'purecopy '((holiday-fixed 1 1 "New Year's Day") (holiday-float 1 1 3 "Martin Luther King Day") (holiday-fixed 2 2 "Groundhog Day") (holiday-fixed 2 14 "Valentine's Day") (holiday-float 2 1 3 "President's Day") (holiday-fixed 3 17 "St. Patrick's Day") (holiday-fixed 4 1 "April Fools' Day") (holiday-float 5 0 2 "Mother's Day") (holiday-float 5 1 -1 "Memorial Day") (holiday-fixed 6 14 "Flag Day") (holiday-float 6 0 3 "Father's Day") (holiday-fixed 7 4 "Independence Day") (holiday-float 9 1 1 "Labor Day") (holiday-float 10 1 2 "Columbus Day") (holiday-fixed 10 31 "Halloween") (holiday-fixed 11 11 "Veteran's Day") (holiday-float 11 4 4 "Thanksgiving"))) "\
-General holidays. Default value is for the United States.
-See the documentation for `calendar-holidays' for details.")
-
-(custom-autoload 'holiday-general-holidays "holidays" t)
-
-(put 'holiday-general-holidays 'risky-local-variable t)
-
-(define-obsolete-variable-alias 'oriental-holidays 'holiday-oriental-holidays "23.1")
-
-(defvar holiday-oriental-holidays (mapcar 'purecopy '((holiday-chinese-new-year) (if calendar-chinese-all-holidays-flag (append (holiday-chinese 1 15 "Lantern Festival") (holiday-chinese-qingming) (holiday-chinese 5 5 "Dragon Boat Festival") (holiday-chinese 7 7 "Double Seventh Festival") (holiday-chinese 8 15 "Mid-Autumn Festival") (holiday-chinese 9 9 "Double Ninth Festival") (holiday-chinese-winter-solstice))))) "\
-Oriental holidays.
-See the documentation for `calendar-holidays' for details.")
-
-(custom-autoload 'holiday-oriental-holidays "holidays" t)
-
-(put 'holiday-oriental-holidays 'risky-local-variable t)
-
-(define-obsolete-variable-alias 'local-holidays 'holiday-local-holidays "23.1")
-
-(defvar holiday-local-holidays nil "\
-Local holidays.
-See the documentation for `calendar-holidays' for details.")
-
-(custom-autoload 'holiday-local-holidays "holidays" t)
-
-(put 'holiday-local-holidays 'risky-local-variable t)
-
-(define-obsolete-variable-alias 'other-holidays 'holiday-other-holidays "23.1")
-
-(defvar holiday-other-holidays nil "\
-User defined holidays.
-See the documentation for `calendar-holidays' for details.")
-
-(custom-autoload 'holiday-other-holidays "holidays" t)
-
-(put 'holiday-other-holidays 'risky-local-variable t)
-
-(defvar hebrew-holidays-1 (mapcar 'purecopy '((holiday-hebrew-rosh-hashanah) (if calendar-hebrew-all-holidays-flag (holiday-julian 11 (let ((m displayed-month) (y displayed-year) year) (calendar-increment-month m y -1) (setq year (calendar-extract-year (calendar-julian-from-absolute (calendar-absolute-from-gregorian (list m 1 y))))) (if (zerop (% (1+ year) 4)) 22 21)) "\"Tal Umatar\" (evening)")))) "\
-Component of the old default value of `holiday-hebrew-holidays'.")
-
-(put 'hebrew-holidays-1 'risky-local-variable t)
-
-(defvar hebrew-holidays-2 (mapcar 'purecopy '((holiday-hebrew-hanukkah) (if calendar-hebrew-all-holidays-flag (holiday-hebrew 10 (let ((h-year (calendar-extract-year (calendar-hebrew-from-absolute (calendar-absolute-from-gregorian (list displayed-month 28 displayed-year)))))) (if (= 6 (% (calendar-hebrew-to-absolute (list 10 10 h-year)) 7)) 11 10)) "Tzom Teveth")) (if calendar-hebrew-all-holidays-flag (holiday-hebrew 11 15 "Tu B'Shevat")))) "\
-Component of the old default value of `holiday-hebrew-holidays'.")
-
-(put 'hebrew-holidays-2 'risky-local-variable t)
-
-(defvar hebrew-holidays-3 (mapcar 'purecopy '((if calendar-hebrew-all-holidays-flag (holiday-hebrew 11 (let* ((m displayed-month) (y displayed-year) (h-year (progn (calendar-increment-month m y 1) (calendar-extract-year (calendar-hebrew-from-absolute (calendar-absolute-from-gregorian (list m (calendar-last-day-of-month m y) y)))))) (s-s (calendar-hebrew-from-absolute (if (= 6 (% (calendar-hebrew-to-absolute (list 7 1 h-year)) 7)) (calendar-dayname-on-or-before 6 (calendar-hebrew-to-absolute (list 11 17 h-year))) (calendar-dayname-on-or-before 6 (calendar-hebrew-to-absolute (list 11 16 h-year)))))) (day (calendar-extract-day s-s))) day) "Shabbat Shirah")))) "\
-Component of the old default value of `holiday-hebrew-holidays'.")
-
-(put 'hebrew-holidays-3 'risky-local-variable t)
-
-(defvar hebrew-holidays-4 (mapcar 'purecopy '((holiday-hebrew-passover) (and calendar-hebrew-all-holidays-flag (let* ((m displayed-month) (y displayed-year) (year (progn (calendar-increment-month m y -1) (calendar-extract-year (calendar-julian-from-absolute (calendar-absolute-from-gregorian (list m 1 y))))))) (= 21 (% year 28))) (holiday-julian 3 26 "Kiddush HaHamah")) (if calendar-hebrew-all-holidays-flag (holiday-hebrew-tisha-b-av)))) "\
-Component of the old default value of `holiday-hebrew-holidays'.")
-
-(put 'hebrew-holidays-4 'risky-local-variable t)
-
-(define-obsolete-variable-alias 'hebrew-holidays 'holiday-hebrew-holidays "23.1")
-
-(defvar holiday-hebrew-holidays (mapcar 'purecopy '((holiday-hebrew-passover) (holiday-hebrew-rosh-hashanah) (holiday-hebrew-hanukkah) (if calendar-hebrew-all-holidays-flag (append (holiday-hebrew-tisha-b-av) (holiday-hebrew-misc))))) "\
-Jewish holidays.
-See the documentation for `calendar-holidays' for details.")
-
-(custom-autoload 'holiday-hebrew-holidays "holidays" t)
-
-(put 'holiday-hebrew-holidays 'risky-local-variable t)
-
-(define-obsolete-variable-alias 'christian-holidays 'holiday-christian-holidays "23.1")
-
-(defvar holiday-christian-holidays (mapcar 'purecopy '((holiday-easter-etc) (holiday-fixed 12 25 "Christmas") (if calendar-christian-all-holidays-flag (append (holiday-fixed 1 6 "Epiphany") (holiday-julian 12 25 "Christmas (Julian calendar)") (holiday-greek-orthodox-easter) (holiday-fixed 8 15 "Assumption") (holiday-advent 0 "Advent"))))) "\
-Christian holidays.
-See the documentation for `calendar-holidays' for details.")
-
-(custom-autoload 'holiday-christian-holidays "holidays" t)
-
-(put 'holiday-christian-holidays 'risky-local-variable t)
-
-(define-obsolete-variable-alias 'islamic-holidays 'holiday-islamic-holidays "23.1")
-
-(defvar holiday-islamic-holidays (mapcar 'purecopy '((holiday-islamic-new-year) (holiday-islamic 9 1 "Ramadan Begins") (if calendar-islamic-all-holidays-flag (append (holiday-islamic 1 10 "Ashura") (holiday-islamic 3 12 "Mulad-al-Nabi") (holiday-islamic 7 26 "Shab-e-Mi'raj") (holiday-islamic 8 15 "Shab-e-Bara't") (holiday-islamic 9 27 "Shab-e Qadr") (holiday-islamic 10 1 "Id-al-Fitr") (holiday-islamic 12 10 "Id-al-Adha"))))) "\
-Islamic holidays.
-See the documentation for `calendar-holidays' for details.")
-
-(custom-autoload 'holiday-islamic-holidays "holidays" t)
-
-(put 'holiday-islamic-holidays 'risky-local-variable t)
-
-(define-obsolete-variable-alias 'bahai-holidays 'holiday-bahai-holidays "23.1")
-
-(defvar holiday-bahai-holidays (mapcar 'purecopy '((holiday-bahai-new-year) (holiday-bahai-ridvan) (holiday-fixed 5 23 "Declaration of the Báb") (holiday-fixed 5 29 "Ascension of Bahá'u'lláh") (holiday-fixed 7 9 "Martyrdom of the Báb") (holiday-fixed 10 20 "Birth of the Báb") (holiday-fixed 11 12 "Birth of Bahá'u'lláh") (if calendar-bahai-all-holidays-flag (append (holiday-fixed 11 26 "Day of the Covenant") (holiday-fixed 11 28 "Ascension of `Abdu'l-Bahá"))))) "\
-Bahá'í holidays.
-See the documentation for `calendar-holidays' for details.")
-
-(custom-autoload 'holiday-bahai-holidays "holidays" t)
-
-(put 'holiday-bahai-holidays 'risky-local-variable t)
-
-(define-obsolete-variable-alias 'solar-holidays 'holiday-solar-holidays "23.1")
-
-(defvar holiday-solar-holidays (mapcar 'purecopy '((solar-equinoxes-solstices) (holiday-sexp calendar-daylight-savings-starts (format "Daylight Saving Time Begins %s" (solar-time-string (/ calendar-daylight-savings-starts-time (float 60)) calendar-standard-time-zone-name))) (holiday-sexp calendar-daylight-savings-ends (format "Daylight Saving Time Ends %s" (solar-time-string (/ calendar-daylight-savings-ends-time (float 60)) calendar-daylight-time-zone-name))))) "\
-Sun-related holidays.
-See the documentation for `calendar-holidays' for details.")
-
-(custom-autoload 'holiday-solar-holidays "holidays" t)
-
-(put 'holiday-solar-holidays 'risky-local-variable t)
-
-(put 'calendar-holidays 'risky-local-variable t)
-
-(autoload 'holidays "holidays" "\
-Display the holidays for last month, this month, and next month.
-If called with an optional prefix argument ARG, prompts for month and year.
-This function is suitable for execution in a init file.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'list-holidays "holidays" "\
-Display holidays for years Y1 to Y2 (inclusive).
-Y2 defaults to Y1. The optional list of holidays L defaults to
-`calendar-holidays'. If you want to control what holidays are
-displayed, use a different list. For example,
-
- (list-holidays 2006 2006
- (append holiday-general-holidays holiday-local-holidays))
-
-will display holidays for the year 2006 defined in the two
-mentioned lists, and nothing else.
-
-When called interactively, this command offers a choice of
-holidays, based on the variables `holiday-solar-holidays' etc. See the
-documentation of `calendar-holidays' for a list of the variables
-that control the choices, as well as a description of the format
-of a holiday list.
-
-The optional LABEL is used to label the buffer created.
-
-\(fn Y1 &optional Y2 L LABEL)" t nil)
-
-(defalias 'holiday-list 'list-holidays)
-
-;;;***
-\f
-;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from gnus/html2text.el
-
-(autoload 'html2text "html2text" "\
-Convert HTML to plain text in the current buffer.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (htmlfontify-copy-and-link-dir htmlfontify-buffer)
-;;;;;; "htmlfontify" "htmlfontify.el" (20707 18685 911514 0))
-;;; Generated autoloads from htmlfontify.el
-
-(autoload 'htmlfontify-buffer "htmlfontify" "\
-Create a new buffer, named for the current buffer + a .html extension,
-containing an inline CSS-stylesheet and formatted CSS-markup HTML
-that reproduces the look of the current Emacs buffer as closely
-as possible.
-
-Dangerous characters in the existing buffer are turned into HTML
-entities, so you should even be able to do HTML-within-HTML
-fontified display.
-
-You should, however, note that random control or eight-bit
-characters such as ^L (\f) or ¤ (\244) won't get mapped yet.
-
-If the SRCDIR and FILE arguments are set, lookup etags derived
-entries in the `hfy-tags-cache' and add HTML anchors and
-hyperlinks as appropriate.
-
-\(fn &optional SRCDIR FILE)" t nil)
-
-(autoload 'htmlfontify-copy-and-link-dir "htmlfontify" "\
-Trawl SRCDIR and write fontified-and-hyperlinked output in DSTDIR.
-F-EXT and L-EXT specify values for `hfy-extn' and `hfy-link-extn'.
-
-You may also want to set `hfy-page-header' and `hfy-page-footer'.
-
-\(fn SRCDIR DSTDIR &optional F-EXT L-EXT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter
-;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from ibuf-macs.el
-
-(autoload 'define-ibuffer-column "ibuf-macs" "\
-Define a column SYMBOL for use with `ibuffer-formats'.
-
-BODY will be called with `buffer' bound to the buffer object, and
-`mark' bound to the current mark on the buffer. The original ibuffer
-buffer will be bound to `ibuffer-buf'.
-
-If NAME is given, it will be used as a title for the column.
-Otherwise, the title will default to a capitalized version of the
-SYMBOL's name. PROPS is a plist of additional properties to add to
-the text, such as `mouse-face'. And SUMMARIZER, if given, is a
-function which will be passed a list of all the strings in its column;
-it should return a string to display at the bottom.
-
-If HEADER-MOUSE-MAP is given, it will be used as a keymap for the
-title of the column.
-
-Note that this macro expands into a `defun' for a function named
-ibuffer-make-column-NAME. If INLINE is non-nil, then the form will be
-inlined into the compiled format versions. This means that if you
-change its definition, you should explicitly call
-`ibuffer-recompile-formats'.
-
-\(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)" nil (quote macro))
-
-(autoload 'define-ibuffer-sorter "ibuf-macs" "\
-Define a method of sorting named NAME.
-DOCUMENTATION is the documentation of the function, which will be called
-`ibuffer-do-sort-by-NAME'.
-DESCRIPTION is a short string describing the sorting method.
-
-For sorting, the forms in BODY will be evaluated with `a' bound to one
-buffer object, and `b' bound to another. BODY should return a non-nil
-value if and only if `a' is \"less than\" `b'.
-
-\(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)" nil (quote macro))
-
-(autoload 'define-ibuffer-op "ibuf-macs" "\
-Generate a function which operates on a buffer.
-OP becomes the name of the function; if it doesn't begin with
-`ibuffer-do-', then that is prepended to it.
-When an operation is performed, this function will be called once for
-each marked buffer, with that buffer current.
-
-ARGS becomes the formal parameters of the function.
-DOCUMENTATION becomes the docstring of the function.
-INTERACTIVE becomes the interactive specification of the function.
-MARK describes which type of mark (:deletion, or nil) this operation
-uses. :deletion means the function operates on buffers marked for
-deletion, otherwise it acts on normally marked buffers.
-MODIFIER-P describes how the function modifies buffers. This is used
-to set the modification flag of the Ibuffer buffer itself. Valid
-values are:
- nil - the function never modifiers buffers
- t - the function it always modifies buffers
- :maybe - attempt to discover this information by comparing the
- buffer's modification flag.
-DANGEROUS is a boolean which should be set if the user should be
-prompted before performing this operation.
-OPSTRING is a string which will be displayed to the user after the
-operation is complete, in the form:
- \"Operation complete; OPSTRING x buffers\"
-ACTIVE-OPSTRING is a string which will be displayed to the user in a
-confirmation message, in the form:
- \"Really ACTIVE-OPSTRING x buffers?\"
-COMPLEX means this function is special; see the source code of this
-macro for exactly what it does.
-
-\(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS OPSTRING ACTIVE-OPSTRING COMPLEX) &rest BODY)" nil (quote macro))
-
-(autoload 'define-ibuffer-filter "ibuf-macs" "\
-Define a filter named NAME.
-DOCUMENTATION is the documentation of the function.
-READER is a form which should read a qualifier from the user.
-DESCRIPTION is a short string describing the filter.
-
-BODY should contain forms which will be evaluated to test whether or
-not a particular buffer should be displayed or not. The forms in BODY
-will be evaluated with BUF bound to the buffer object, and QUALIFIER
-bound to the current value of the filter.
-
-\(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)" nil (quote macro))
-
-;;;***
-\f
-;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers)
-;;;;;; "ibuffer" "ibuffer.el" (20707 18685 911514 0))
-;;; Generated autoloads from ibuffer.el
-
-(autoload 'ibuffer-list-buffers "ibuffer" "\
-Display a list of buffers, in another window.
-If optional argument FILES-ONLY is non-nil, then add a filter for
-buffers which are visiting a file.
-
-\(fn &optional FILES-ONLY)" t nil)
-
-(autoload 'ibuffer-other-window "ibuffer" "\
-Like `ibuffer', but displayed in another window by default.
-If optional argument FILES-ONLY is non-nil, then add a filter for
-buffers which are visiting a file.
-
-\(fn &optional FILES-ONLY)" t nil)
-
-(autoload 'ibuffer "ibuffer" "\
-Begin using Ibuffer to edit a list of buffers.
-Type 'h' after entering ibuffer for more information.
-
-All arguments are optional.
-OTHER-WINDOW-P says to use another window.
-NAME specifies the name of the buffer (defaults to \"*Ibuffer*\").
-QUALIFIERS is an initial set of filtering qualifiers to use;
- see `ibuffer-filtering-qualifiers'.
-NOSELECT means don't select the Ibuffer buffer.
-SHRINK means shrink the buffer to minimal size. The special
- value `onewindow' means always use another window.
-FILTER-GROUPS is an initial set of filtering groups to use;
- see `ibuffer-filter-groups'.
-FORMATS is the value to use for `ibuffer-formats'.
- If specified, then the variable `ibuffer-formats' will have
- that value locally in this buffer.
-
-\(fn &optional OTHER-WINDOW-P NAME QUALIFIERS NOSELECT SHRINK FILTER-GROUPS FORMATS)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (icalendar-import-buffer icalendar-import-file
-;;;;;; icalendar-export-region icalendar-export-file) "icalendar"
-;;;;;; "calendar/icalendar.el" (20707 18685 911514 0))
-;;; Generated autoloads from calendar/icalendar.el
-
-(autoload 'icalendar-export-file "icalendar" "\
-Export diary file to iCalendar format.
-All diary entries in the file DIARY-FILENAME are converted to iCalendar
-format. The result is appended to the file ICAL-FILENAME.
-
-\(fn DIARY-FILENAME ICAL-FILENAME)" t nil)
-
-(autoload 'icalendar-export-region "icalendar" "\
-Export region in diary file to iCalendar format.
-All diary entries in the region from MIN to MAX in the current buffer are
-converted to iCalendar format. The result is appended to the file
-ICAL-FILENAME.
-This function attempts to return t if something goes wrong. In this
-case an error string which describes all the errors and problems is
-written into the buffer `*icalendar-errors*'.
-
-\(fn MIN MAX ICAL-FILENAME)" t nil)
-
-(autoload 'icalendar-import-file "icalendar" "\
-Import an iCalendar file and append to a diary file.
-Argument ICAL-FILENAME output iCalendar file.
-Argument DIARY-FILENAME input `diary-file'.
-Optional argument NON-MARKING determines whether events are created as
-non-marking or not.
-
-\(fn ICAL-FILENAME DIARY-FILENAME &optional NON-MARKING)" t nil)
-
-(autoload 'icalendar-import-buffer "icalendar" "\
-Extract iCalendar events from current buffer.
-
-This function searches the current buffer for the first iCalendar
-object, reads it and adds all VEVENT elements to the diary
-DIARY-FILE.
-
-It will ask for each appointment whether to add it to the diary
-unless DO-NOT-ASK is non-nil. When called interactively,
-DO-NOT-ASK is nil, so that you are asked for each event.
-
-NON-MARKING determines whether diary events are created as
-non-marking.
-
-Return code t means that importing worked well, return code nil
-means that an error has occurred. Error messages will be in the
-buffer `*icalendar-errors*'.
-
-\(fn &optional DIARY-FILE DO-NOT-ASK NON-MARKING)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from icomplete.el
-
-(defvar icomplete-mode nil "\
-Non-nil if Icomplete mode is enabled.
-See the command `icomplete-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `icomplete-mode'.")
-
-(custom-autoload 'icomplete-mode "icomplete" nil)
-
-(autoload 'icomplete-mode "icomplete" "\
-Toggle incremental minibuffer completion (Icomplete mode).
-With a prefix argument ARG, enable Icomplete mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from progmodes/icon.el
-
-(autoload 'icon-mode "icon" "\
-Major mode for editing Icon code.
-Expression and list commands understand all Icon brackets.
-Tab indents for Icon code.
-Paragraphs are separated by blank lines only.
-Delete converts tabs to spaces as it moves back.
-\\{icon-mode-map}
-Variables controlling indentation style:
- icon-tab-always-indent
- Non-nil means TAB in Icon mode should always reindent the current line,
- regardless of where in the line point is when the TAB command is used.
- icon-auto-newline
- Non-nil means automatically newline before and after braces
- inserted in Icon code.
- icon-indent-level
- Indentation of Icon statements within surrounding block.
- The surrounding block's indentation is the indentation
- of the line on which the open-brace appears.
- icon-continued-statement-offset
- Extra indentation given to a substatement, such as the
- then-clause of an if or body of a while.
- icon-continued-brace-offset
- Extra indentation given to a brace that starts a substatement.
- This is in addition to `icon-continued-statement-offset'.
- icon-brace-offset
- Extra indentation for line if it starts with an open brace.
- icon-brace-imaginary-offset
- An open brace following other text is treated as if it were
- this far to the right of the start of its line.
-
-Turning on Icon mode calls the value of the variable `icon-mode-hook'
-with no args, if that value is non-nil.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/idlw-shell.el
-
-(autoload 'idlwave-shell "idlw-shell" "\
-Run an inferior IDL, with I/O through buffer `(idlwave-shell-buffer)'.
-If buffer exists but shell process is not running, start new IDL.
-If buffer exists and shell process is running, just switch to the buffer.
-
-When called with a prefix ARG, or when `idlwave-shell-use-dedicated-frame'
-is non-nil, the shell buffer and the source buffers will be in
-separate frames.
-
-The command to run comes from variable `idlwave-shell-explicit-file-name',
-with options taken from `idlwave-shell-command-line-options'.
-
-The buffer is put in `idlwave-shell-mode', providing commands for sending
-input and controlling the IDL job. See help on `idlwave-shell-mode'.
-See also the variable `idlwave-shell-prompt-pattern'.
-
-\(Type \\[describe-mode] in the shell buffer for a list of commands.)
-
-\(fn &optional ARG QUICK)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/idlwave.el
-
-(autoload 'idlwave-mode "idlwave" "\
-Major mode for editing IDL source files (version 6.1_em22).
-
-The main features of this mode are
-
-1. Indentation and Formatting
- --------------------------
- Like other Emacs programming modes, C-j inserts a newline and indents.
- TAB is used for explicit indentation of the current line.
-
- To start a continuation line, use \\[idlwave-split-line]. This
- function can also be used in the middle of a line to split the line
- at that point. When used inside a long constant string, the string
- is split at that point with the `+' concatenation operator.
-
- Comments are indented as follows:
-
- `;;;' Indentation remains unchanged.
- `;;' Indent like the surrounding code
- `;' Indent to a minimum column.
-
- The indentation of comments starting in column 0 is never changed.
-
- Use \\[idlwave-fill-paragraph] to refill a paragraph inside a
- comment. The indentation of the second line of the paragraph
- relative to the first will be retained. Use
- \\[idlwave-auto-fill-mode] to toggle auto-fill mode for these
- comments. When the variable `idlwave-fill-comment-line-only' is
- nil, code can also be auto-filled and auto-indented.
-
- To convert pre-existing IDL code to your formatting style, mark the
- entire buffer with \\[mark-whole-buffer] and execute
- \\[idlwave-expand-region-abbrevs]. Then mark the entire buffer
- again followed by \\[indent-region] (`indent-region').
-
-2. Routine Info
- ------------
- IDLWAVE displays information about the calling sequence and the
- accepted keyword parameters of a procedure or function with
- \\[idlwave-routine-info]. \\[idlwave-find-module] jumps to the
- source file of a module. These commands know about system
- routines, all routines in idlwave-mode buffers and (when the
- idlwave-shell is active) about all modules currently compiled under
- this shell. It also makes use of pre-compiled or custom-scanned
- user and library catalogs many popular libraries ship with by
- default. Use \\[idlwave-update-routine-info] to update this
- information, which is also used for completion (see item 4).
-
-3. Online IDL Help
- ---------------
-
- \\[idlwave-context-help] displays the IDL documentation relevant
- for the system variable, keyword, or routines at point. A single
- key stroke gets you directly to the right place in the docs. See
- the manual to configure where and how the HTML help is displayed.
-
-4. Completion
- ----------
- \\[idlwave-complete] completes the names of procedures, functions
- class names, keyword parameters, system variables and tags, class
- tags, structure tags, filenames and much more. It is context
- sensitive and figures out what is expected at point. Lower case
- strings are completed in lower case, other strings in mixed or
- upper case.
-
-5. Code Templates and Abbreviations
- --------------------------------
- Many Abbreviations are predefined to expand to code fragments and templates.
- The abbreviations start generally with a `\\`. Some examples:
-
- \\pr PROCEDURE template
- \\fu FUNCTION template
- \\c CASE statement template
- \\sw SWITCH statement template
- \\f FOR loop template
- \\r REPEAT Loop template
- \\w WHILE loop template
- \\i IF statement template
- \\elif IF-ELSE statement template
- \\b BEGIN
-
- For a full list, use \\[idlwave-list-abbrevs]. Some templates also
- have direct keybindings - see the list of keybindings below.
-
- \\[idlwave-doc-header] inserts a documentation header at the
- beginning of the current program unit (pro, function or main).
- Change log entries can be added to the current program unit with
- \\[idlwave-doc-modification].
-
-6. Automatic Case Conversion
- -------------------------
- The case of reserved words and some abbrevs is controlled by
- `idlwave-reserved-word-upcase' and `idlwave-abbrev-change-case'.
-
-7. Automatic END completion
- ------------------------
- If the variable `idlwave-expand-generic-end' is non-nil, each END typed
- will be converted to the specific version, like ENDIF, ENDFOR, etc.
-
-8. Hooks
- -----
- Loading idlwave.el runs `idlwave-load-hook'.
- Turning on `idlwave-mode' runs `idlwave-mode-hook'.
-
-9. Documentation and Customization
- -------------------------------
- Info documentation for this package is available. Use
- \\[idlwave-info] to display (complain to your sysadmin if that does
- not work). For Postscript, PDF, and HTML versions of the
- documentation, check IDLWAVE's homepage at URL `http://idlwave.org'.
- IDLWAVE has customize support - see the group `idlwave'.
-
-10.Keybindings
- -----------
- Here is a list of all keybindings of this mode.
- If some of the key bindings below show with ??, use \\[describe-key]
- followed by the key sequence to see what the key sequence does.
-
-\\{idlwave-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ido-completing-read ido-read-directory-name ido-read-file-name
-;;;;;; ido-read-buffer ido-dired ido-insert-file ido-write-file
-;;;;;; ido-find-file-other-frame ido-display-file ido-find-file-read-only-other-frame
-;;;;;; ido-find-file-read-only-other-window ido-find-file-read-only
-;;;;;; 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" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from ido.el
-
-(defvar ido-mode nil "\
-Determines for which functional group (buffer and files) ido behavior
-should be enabled. The following values are possible:
-- `buffer': Turn only on ido buffer behavior (switching, killing,
- displaying...)
-- `file': Turn only on ido file behavior (finding, writing, inserting...)
-- `both': Turn on ido buffer and file behavior.
-- `nil': Turn off any ido switching.
-
-Setting this variable directly does not take effect;
-use either \\[customize] or the function `ido-mode'.")
-
-(custom-autoload 'ido-mode "ido" nil)
-
-(autoload 'ido-mode "ido" "\
-Toggle ido mode on or off.
-With ARG, turn ido-mode on if arg is positive, off otherwise.
-Turning on ido-mode will remap (via a minor-mode keymap) the default
-keybindings for the `find-file' and `switch-to-buffer' families of
-commands to the ido versions of these functions.
-However, if ARG arg equals 'files, remap only commands for files, or
-if it equals 'buffers, remap only commands for buffer switching.
-This function also adds a hook to the minibuffer.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'ido-switch-buffer "ido" "\
-Switch to another buffer.
-The buffer is displayed according to `ido-default-buffer-method' -- the
-default is to show it in the same window, unless it is already visible
-in another frame.
-
-As you type in a string, all of the buffers matching the string are
-displayed if substring-matching is used (default). Look at
-`ido-enable-prefix' and `ido-toggle-prefix'. When you have found the
-buffer you want, it can then be selected. As you type, most keys have
-their normal keybindings, except for the following: \\<ido-buffer-completion-map>
-
-RET Select the buffer at the front of the list of matches. If the
-list is empty, possibly prompt to create new buffer.
-
-\\[ido-select-text] Use the current input string verbatim.
-
-\\[ido-next-match] Put the first element at the end of the list.
-\\[ido-prev-match] Put the last element at the start of the list.
-\\[ido-complete] Complete a common suffix to the current string that
-matches all buffers. If there is only one match, select that buffer.
-If there is no common suffix, show a list of all matching buffers
-in a separate window.
-\\[ido-edit-input] Edit input string.
-\\[ido-fallback-command] Fallback to non-ido version of current command.
-\\[ido-toggle-regexp] Toggle regexp searching.
-\\[ido-toggle-prefix] Toggle between substring and prefix matching.
-\\[ido-toggle-case] Toggle case-sensitive searching of buffer names.
-\\[ido-completion-help] Show list of matching buffers in separate window.
-\\[ido-enter-find-file] Drop into `ido-find-file'.
-\\[ido-kill-buffer-at-head] Kill buffer at head of buffer list.
-\\[ido-toggle-ignore] Toggle ignoring buffers listed in `ido-ignore-buffers'.
-
-\(fn)" t nil)
-
-(autoload 'ido-switch-buffer-other-window "ido" "\
-Switch to another buffer and show it in another window.
-The buffer name is selected interactively by typing a substring.
-For details of keybindings, see `ido-switch-buffer'.
-
-\(fn)" t nil)
-
-(autoload 'ido-display-buffer "ido" "\
-Display a buffer in another window but don't select it.
-The buffer name is selected interactively by typing a substring.
-For details of keybindings, see `ido-switch-buffer'.
-
-\(fn)" t nil)
-
-(autoload 'ido-kill-buffer "ido" "\
-Kill a buffer.
-The buffer name is selected interactively by typing a substring.
-For details of keybindings, see `ido-switch-buffer'.
-
-\(fn)" t nil)
-
-(autoload 'ido-insert-buffer "ido" "\
-Insert contents of a buffer in current buffer after point.
-The buffer name is selected interactively by typing a substring.
-For details of keybindings, see `ido-switch-buffer'.
-
-\(fn)" t nil)
-
-(autoload 'ido-switch-buffer-other-frame "ido" "\
-Switch to another buffer and show it in another frame.
-The buffer name is selected interactively by typing a substring.
-For details of keybindings, see `ido-switch-buffer'.
-
-\(fn)" t nil)
-
-(autoload 'ido-find-file-in-dir "ido" "\
-Switch to another file starting from DIR.
-
-\(fn DIR)" t nil)
-
-(autoload 'ido-find-file "ido" "\
-Edit file with name obtained via minibuffer.
-The file is displayed according to `ido-default-file-method' -- the
-default is to show it in the same window, unless it is already
-visible in another frame.
-
-The file name is selected interactively by typing a substring. As you
-type in a string, all of the filenames matching the string are displayed
-if substring-matching is used (default). Look at `ido-enable-prefix' and
-`ido-toggle-prefix'. When you have found the filename you want, it can
-then be selected. As you type, most keys have their normal keybindings,
-except for the following: \\<ido-file-completion-map>
-
-RET Select the file at the front of the list of matches. If the
-list is empty, possibly prompt to create new file.
-
-\\[ido-select-text] Use the current input string verbatim.
-
-\\[ido-next-match] Put the first element at the end of the list.
-\\[ido-prev-match] Put the last element at the start of the list.
-\\[ido-complete] Complete a common suffix to the current string that
-matches all files. If there is only one match, select that file.
-If there is no common suffix, show a list of all matching files
-in a separate window.
-\\[ido-magic-delete-char] Open the specified directory in Dired mode.
-\\[ido-edit-input] Edit input string (including directory).
-\\[ido-prev-work-directory] or \\[ido-next-work-directory] go to previous/next directory in work directory history.
-\\[ido-merge-work-directories] search for file in the work directory history.
-\\[ido-forget-work-directory] removes current directory from the work directory history.
-\\[ido-prev-work-file] or \\[ido-next-work-file] cycle through the work file history.
-\\[ido-wide-find-file-or-pop-dir] and \\[ido-wide-find-dir-or-delete-dir] prompts and uses find to locate files or directories.
-\\[ido-make-directory] prompts for a directory to create in current directory.
-\\[ido-fallback-command] Fallback to non-ido version of current command.
-\\[ido-toggle-regexp] Toggle regexp searching.
-\\[ido-toggle-prefix] Toggle between substring and prefix matching.
-\\[ido-toggle-case] Toggle case-sensitive searching of file names.
-\\[ido-toggle-literal] Toggle literal reading of this file.
-\\[ido-completion-help] Show list of matching files in separate window.
-\\[ido-toggle-ignore] Toggle ignoring files listed in `ido-ignore-files'.
-
-\(fn)" t nil)
-
-(autoload 'ido-find-file-other-window "ido" "\
-Switch to another file and show it in another window.
-The file name is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-find-alternate-file "ido" "\
-Switch to another file and show it in another window.
-The file name is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-find-file-read-only "ido" "\
-Edit file read-only with name obtained via minibuffer.
-The file name is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-find-file-read-only-other-window "ido" "\
-Edit file read-only in other window with name obtained via minibuffer.
-The file name is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-find-file-read-only-other-frame "ido" "\
-Edit file read-only in other frame with name obtained via minibuffer.
-The file name is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-display-file "ido" "\
-Display a file in another window but don't select it.
-The file name is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-find-file-other-frame "ido" "\
-Switch to another file and show it in another frame.
-The file name is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-write-file "ido" "\
-Write current buffer to a file.
-The file name is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-insert-file "ido" "\
-Insert contents of file in current buffer.
-The file name is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-dired "ido" "\
-Call `dired' the ido way.
-The directory is selected interactively by typing a substring.
-For details of keybindings, see `ido-find-file'.
-
-\(fn)" t nil)
-
-(autoload 'ido-read-buffer "ido" "\
-Ido replacement for the built-in `read-buffer'.
-Return the name of a buffer selected.
-PROMPT is the prompt to give to the user. DEFAULT if given is the default
-buffer to be selected, which will go to the front of the list.
-If REQUIRE-MATCH is non-nil, an existing buffer must be selected.
-
-\(fn PROMPT &optional DEFAULT REQUIRE-MATCH)" nil nil)
-
-(autoload 'ido-read-file-name "ido" "\
-Ido replacement for the built-in `read-file-name'.
-Read file name, prompting with PROMPT and completing in directory DIR.
-See `read-file-name' for additional parameters.
-
-\(fn PROMPT &optional DIR DEFAULT-FILENAME MUSTMATCH INITIAL PREDICATE)" nil nil)
-
-(autoload 'ido-read-directory-name "ido" "\
-Ido replacement for the built-in `read-directory-name'.
-Read directory name, prompting with PROMPT and completing in directory DIR.
-See `read-directory-name' for additional parameters.
-
-\(fn PROMPT &optional DIR DEFAULT-DIRNAME MUSTMATCH INITIAL)" nil nil)
-
-(autoload 'ido-completing-read "ido" "\
-Ido replacement for the built-in `completing-read'.
-Read a string in the minibuffer with ido-style completion.
-PROMPT is a string to prompt with; normally it ends in a colon and a space.
-CHOICES is a list of strings which are the possible completions.
-PREDICATE and INHERIT-INPUT-METHOD is currently ignored; it is included
- to be compatible with `completing-read'.
-If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless
- the input is (or completes to) an element of CHOICES or is null.
- If the input is null, `ido-completing-read' returns DEF, or an empty
- string if DEF is nil, regardless of the value of REQUIRE-MATCH.
-If INITIAL-INPUT is non-nil, insert it in the minibuffer initially,
- with point positioned at the end.
-HIST, if non-nil, specifies a history list.
-DEF, if non-nil, is the default value.
-
-\(fn PROMPT CHOICES &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (ielm) "ielm" "ielm.el" (20707 18685 911514 0))
-;;; Generated autoloads from ielm.el
-
-(autoload 'ielm "ielm" "\
-Interactively evaluate Emacs Lisp expressions.
-Switches to the buffer `*ielm*', or creates it if it does not exist.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (iimage-mode) "iimage" "iimage.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from iimage.el
-
-(define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1")
-
-(autoload 'iimage-mode "iimage" "\
-Toggle Iimage mode on or off.
-With a prefix argument ARG, enable Iimage mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
-\\{iimage-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (imagemagick-register-types defimage find-image
-;;;;;; remove-images insert-sliced-image 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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from image.el
-
-(autoload 'image-type-from-data "image" "\
-Determine the image type from image data DATA.
-Value is a symbol specifying the image type or nil if type cannot
-be determined.
-
-\(fn DATA)" nil nil)
-
-(autoload 'image-type-from-buffer "image" "\
-Determine the image type from data in the current buffer.
-Value is a symbol specifying the image type or nil if type cannot
-be determined.
-
-\(fn)" nil nil)
-
-(autoload 'image-type-from-file-header "image" "\
-Determine the type of image file FILE from its first few bytes.
-Value is a symbol specifying the image type, or nil if type cannot
-be determined.
-
-\(fn FILE)" nil nil)
-
-(autoload 'image-type-from-file-name "image" "\
-Determine the type of image file FILE from its name.
-Value is a symbol specifying the image type, or nil if type cannot
-be determined.
-
-\(fn FILE)" nil nil)
-
-(autoload 'image-type "image" "\
-Determine and return image type.
-SOURCE is an image file name or image data.
-Optional TYPE is a symbol describing the image type. If TYPE is omitted
-or nil, try to determine the image type from its first few bytes
-of image data. If that doesn't work, and SOURCE is a file name,
-use its file extension as image type.
-Optional DATA-P non-nil means SOURCE is a string containing image data.
-
-\(fn SOURCE &optional TYPE DATA-P)" nil nil)
-
-(autoload 'image-type-available-p "image" "\
-Return non-nil if image type TYPE is available.
-Image types are symbols like `xbm' or `jpeg'.
-
-\(fn TYPE)" nil nil)
-
-(autoload 'image-type-auto-detected-p "image" "\
-Return t if the current buffer contains an auto-detectable image.
-This function is intended to be used from `magic-fallback-mode-alist'.
-
-The buffer is considered to contain an auto-detectable image if
-its beginning matches an image type in `image-type-header-regexps',
-and that image type is present in `image-type-auto-detectable' with a
-non-nil value. If that value is non-nil, but not t, then the image type
-must be available.
-
-\(fn)" nil nil)
-
-(autoload 'create-image "image" "\
-Create an image.
-FILE-OR-DATA is an image file name or image data.
-Optional TYPE is a symbol describing the image type. If TYPE is omitted
-or nil, try to determine the image type from its first few bytes
-of image data. If that doesn't work, and FILE-OR-DATA is a file name,
-use its file extension as image type.
-Optional DATA-P non-nil means FILE-OR-DATA is a string containing image data.
-Optional PROPS are additional image attributes to assign to the image,
-like, e.g. `:mask MASK'.
-Value is the image created, or nil if images of type TYPE are not supported.
-
-Images should not be larger than specified by `max-image-size'.
-
-Image file names that are not absolute are searched for in the
-\"images\" sub-directory of `data-directory' and
-`x-bitmap-file-path' (in that order).
-
-\(fn FILE-OR-DATA &optional TYPE DATA-P &rest PROPS)" nil nil)
-
-(autoload 'put-image "image" "\
-Put image IMAGE in front of POS in the current buffer.
-IMAGE must be an image created with `create-image' or `defimage'.
-IMAGE is displayed by putting an overlay into the current buffer with a
-`before-string' STRING that has a `display' property whose value is the
-image. STRING is defaulted if you omit it.
-The overlay created will have the `put-image' property set to t.
-POS may be an integer or marker.
-AREA is where to display the image. AREA nil or omitted means
-display it in the text area, a value of `left-margin' means
-display it in the left marginal area, a value of `right-margin'
-means display it in the right marginal area.
-
-\(fn IMAGE POS &optional STRING AREA)" nil nil)
-
-(autoload 'insert-image "image" "\
-Insert IMAGE into current buffer at point.
-IMAGE is displayed by inserting STRING into the current buffer
-with a `display' property whose value is the image. STRING
-defaults to a single space if you omit it.
-AREA is where to display the image. AREA nil or omitted means
-display it in the text area, a value of `left-margin' means
-display it in the left marginal area, a value of `right-margin'
-means display it in the right marginal area.
-SLICE specifies slice of IMAGE to insert. SLICE nil or omitted
-means insert whole image. SLICE is a list (X Y WIDTH HEIGHT)
-specifying the X and Y positions and WIDTH and HEIGHT of image area
-to insert. A float value 0.0 - 1.0 means relative to the width or
-height of the image; integer values are taken as pixel values.
-
-\(fn IMAGE &optional STRING AREA SLICE)" nil nil)
-
-(autoload 'insert-sliced-image "image" "\
-Insert IMAGE into current buffer at point.
-IMAGE is displayed by inserting STRING into the current buffer
-with a `display' property whose value is the image. The default
-STRING is a single space.
-AREA is where to display the image. AREA nil or omitted means
-display it in the text area, a value of `left-margin' means
-display it in the left marginal area, a value of `right-margin'
-means display it in the right marginal area.
-The image is automatically split into ROWS x COLS slices.
-
-\(fn IMAGE &optional STRING AREA ROWS COLS)" nil nil)
-
-(autoload 'remove-images "image" "\
-Remove images between START and END in BUFFER.
-Remove only images that were put in BUFFER with calls to `put-image'.
-BUFFER nil or omitted means use the current buffer.
-
-\(fn START END &optional BUFFER)" nil nil)
-
-(autoload 'find-image "image" "\
-Find an image, choosing one of a list of image specifications.
-
-SPECS is a list of image specifications.
-
-Each image specification in SPECS is a property list. The contents of
-a specification are image type dependent. All specifications must at
-least contain the properties `:type TYPE' and either `:file FILE' or
-`:data DATA', where TYPE is a symbol specifying the image type,
-e.g. `xbm', FILE is the file to load the image from, and DATA is a
-string containing the actual image data. The specification whose TYPE
-is supported, and FILE exists, is used to construct the image
-specification to be returned. Return nil if no specification is
-satisfied.
-
-The image is looked for in `image-load-path'.
-
-Image files should not be larger than specified by `max-image-size'.
-
-\(fn SPECS)" nil nil)
-
-(autoload 'defimage "image" "\
-Define SYMBOL as an image.
-
-SPECS is a list of image specifications. DOC is an optional
-documentation string.
-
-Each image specification in SPECS is a property list. The contents of
-a specification are image type dependent. All specifications must at
-least contain the properties `:type TYPE' and either `:file FILE' or
-`:data DATA', where TYPE is a symbol specifying the image type,
-e.g. `xbm', FILE is the file to load the image from, and DATA is a
-string containing the actual image data. The first image
-specification whose TYPE is supported, and FILE exists, is used to
-define SYMBOL.
-
-Example:
-
- (defimage test-image ((:type xpm :file \"~/test1.xpm\")
- (:type xbm :file \"~/test1.xbm\")))
-
-\(fn SYMBOL SPECS &optional DOC)" nil t)
-
-(put 'defimage 'doc-string-elt '3)
-
-(autoload 'imagemagick-register-types "image" "\
-Register file types that can be handled by ImageMagick.
-This function is called at startup, after loading the init file.
-It registers the ImageMagick types returned by `imagemagick-filter-types'.
-
-Registered image types are added to `auto-mode-alist', so that
-Emacs visits them in Image mode. They are also added to
-`image-type-file-name-regexps', so that the `image-type' function
-recognizes these files as having image type `imagemagick'.
-
-If Emacs is compiled without ImageMagick support, this does nothing.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (image-dired-dired-edit-comment-and-tags image-dired-mark-tagged-files
-;;;;;; image-dired-dired-comment-files image-dired-dired-display-image
-;;;;;; image-dired-dired-display-external image-dired-display-thumb
-;;;;;; image-dired-display-thumbs-append image-dired-setup-dired-keybindings
-;;;;;; image-dired-jump-thumbnail-buffer image-dired-delete-tag
-;;;;;; image-dired-tag-files image-dired-show-all-from-dir image-dired-display-thumbs
-;;;;;; image-dired-dired-with-window-configuration image-dired-dired-toggle-marked-thumbs)
-;;;;;; "image-dired" "image-dired.el" (20707 18685 911514 0))
-;;; Generated autoloads from image-dired.el
-
-(autoload 'image-dired-dired-toggle-marked-thumbs "image-dired" "\
-Toggle thumbnails in front of file names in the dired buffer.
-If no marked file could be found, insert or hide thumbnails on the
-current line. ARG, if non-nil, specifies the files to use instead
-of the marked files. If ARG is an integer, use the next ARG (or
-previous -ARG, if ARG<0) files.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'image-dired-dired-with-window-configuration "image-dired" "\
-Open directory DIR and create a default window configuration.
-
-Convenience command that:
-
- - Opens dired in folder DIR
- - Splits windows in most useful (?) way
- - Set `truncate-lines' to t
-
-After the command has finished, you would typically mark some
-image files in dired and type
-\\[image-dired-display-thumbs] (`image-dired-display-thumbs').
-
-If called with prefix argument ARG, skip splitting of windows.
-
-The current window configuration is saved and can be restored by
-calling `image-dired-restore-window-configuration'.
-
-\(fn DIR &optional ARG)" t nil)
-
-(autoload 'image-dired-display-thumbs "image-dired" "\
-Display thumbnails of all marked files, in `image-dired-thumbnail-buffer'.
-If a thumbnail image does not exist for a file, it is created on the
-fly. With prefix argument ARG, display only thumbnail for file at
-point (this is useful if you have marked some files but want to show
-another one).
-
-Recommended usage is to split the current frame horizontally so that
-you have the dired buffer in the left window and the
-`image-dired-thumbnail-buffer' buffer in the right window.
-
-With optional argument APPEND, append thumbnail to thumbnail buffer
-instead of erasing it first.
-
-Optional argument DO-NOT-POP controls if `pop-to-buffer' should be
-used or not. If non-nil, use `display-buffer' instead of
-`pop-to-buffer'. This is used from functions like
-`image-dired-next-line-and-display' and
-`image-dired-previous-line-and-display' where we do not want the
-thumbnail buffer to be selected.
-
-\(fn &optional ARG APPEND DO-NOT-POP)" t nil)
-
-(autoload 'image-dired-show-all-from-dir "image-dired" "\
-Make a preview buffer for all images in DIR and display it.
-If the number of files in DIR matching `image-file-name-regexp'
-exceeds `image-dired-show-all-from-dir-max-files', a warning will be
-displayed.
-
-\(fn DIR)" t nil)
-
-(defalias 'image-dired 'image-dired-show-all-from-dir)
-
-(defalias 'tumme 'image-dired-show-all-from-dir)
-
-(autoload 'image-dired-tag-files "image-dired" "\
-Tag marked file(s) in dired. With prefix ARG, tag file at point.
-
-\(fn ARG)" t nil)
-
-(autoload 'image-dired-delete-tag "image-dired" "\
-Remove tag for selected file(s).
-With prefix argument ARG, remove tag from file at point.
-
-\(fn ARG)" t nil)
-
-(autoload 'image-dired-jump-thumbnail-buffer "image-dired" "\
-Jump to thumbnail buffer.
-
-\(fn)" t nil)
-
-(autoload 'image-dired-setup-dired-keybindings "image-dired" "\
-Setup easy-to-use keybindings for the commands to be used in dired mode.
-Note that n, p and <down> and <up> will be hijacked and bound to
-`image-dired-dired-x-line'.
-
-\(fn)" t nil)
-
-(autoload 'image-dired-display-thumbs-append "image-dired" "\
-Append thumbnails to `image-dired-thumbnail-buffer'.
-
-\(fn)" t nil)
-
-(autoload 'image-dired-display-thumb "image-dired" "\
-Shorthand for `image-dired-display-thumbs' with prefix argument.
-
-\(fn)" t nil)
-
-(autoload 'image-dired-dired-display-external "image-dired" "\
-Display file at point using an external viewer.
-
-\(fn)" t nil)
-
-(autoload 'image-dired-dired-display-image "image-dired" "\
-Display current image file.
-See documentation for `image-dired-display-image' for more information.
-With prefix argument ARG, display image in its original size.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'image-dired-dired-comment-files "image-dired" "\
-Add comment to current or marked files in dired.
-
-\(fn)" t nil)
-
-(autoload 'image-dired-mark-tagged-files "image-dired" "\
-Use regexp to mark files with matching tag.
-A `tag' is a keyword, a piece of meta data, associated with an
-image file and stored in image-dired's database file. This command
-lets you input a regexp and this will be matched against all tags
-on all image files in the database file. The files that have a
-matching tag will be marked in the dired buffer.
-
-\(fn)" t nil)
-
-(autoload 'image-dired-dired-edit-comment-and-tags "image-dired" "\
-Edit comment and tags of current or marked image files.
-Edit comment and tags for all marked image files in an
-easy-to-use form.
-
-\(fn)" t nil)
-
-;;;***
-\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" (20707 18685 911514 0))
-;;; Generated autoloads from image-file.el
-
-(defvar image-file-name-extensions (purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) "\
-A list of image-file filename extensions.
-Filenames having one of these extensions are considered image files,
-in addition to those matching `image-file-name-regexps'.
-
-See `auto-image-file-mode'; if `auto-image-file-mode' is enabled,
-setting this variable directly does not take effect unless
-`auto-image-file-mode' is re-enabled; this happens automatically when
-the variable is set using \\[customize].")
-
-(custom-autoload 'image-file-name-extensions "image-file" nil)
-
-(defvar image-file-name-regexps nil "\
-List of regexps matching image-file filenames.
-Filenames matching one of these regexps are considered image files,
-in addition to those with an extension in `image-file-name-extensions'.
-
-See function `auto-image-file-mode'; if `auto-image-file-mode' is
-enabled, setting this variable directly does not take effect unless
-`auto-image-file-mode' is re-enabled; this happens automatically when
-the variable is set using \\[customize].")
-
-(custom-autoload 'image-file-name-regexps "image-file" nil)
-
-(autoload 'image-file-name-regexp "image-file" "\
-Return a regular expression matching image-file filenames.
-
-\(fn)" nil nil)
-
-(autoload 'insert-image-file "image-file" "\
-Insert the image file FILE into the current buffer.
-Optional arguments VISIT, BEG, END, and REPLACE are interpreted as for
-the command `insert-file-contents'.
-
-\(fn FILE &optional VISIT BEG END REPLACE)" nil nil)
-
-(defvar auto-image-file-mode nil "\
-Non-nil if Auto-Image-File mode is enabled.
-See the command `auto-image-file-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `auto-image-file-mode'.")
-
-(custom-autoload 'auto-image-file-mode "image-file" nil)
-
-(autoload 'auto-image-file-mode "image-file" "\
-Toggle visiting of image files as images (Auto Image File mode).
-With a prefix argument ARG, enable Auto Image File mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-An image file is one whose name has an extension in
-`image-file-name-extensions', or matches a regexp in
-`image-file-name-regexps'.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (image-bookmark-jump image-mode-as-text image-minor-mode
-;;;;;; image-mode) "image-mode" "image-mode.el" (20718 7922 212742
-;;;;;; 0))
-;;; Generated autoloads from image-mode.el
-
-(autoload 'image-mode "image-mode" "\
-Major mode for image files.
-You can use \\<image-mode-map>\\[image-toggle-display]
-to toggle between display as an image and display as text.
-
-\(fn)" t nil)
-
-(autoload 'image-minor-mode "image-mode" "\
-Toggle Image minor mode in this buffer.
-With a prefix argument ARG, enable Image minor mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Image minor mode provides the key \\<image-mode-map>\\[image-toggle-display],
-to switch back to `image-mode' and display an image file as the
-actual image.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'image-mode-as-text "image-mode" "\
-Set a non-image mode as major mode in combination with image minor mode.
-A non-image major mode found from `auto-mode-alist' or Fundamental mode
-displays an image file as text. `image-minor-mode' provides the key
-\\<image-mode-map>\\[image-toggle-display] to switch back to `image-mode'
-to display an image file as the actual image.
-
-You can use `image-mode-as-text' in `auto-mode-alist' when you want
-to display an image file as text initially.
-
-See commands `image-mode' and `image-minor-mode' for more information
-on these modes.
-
-\(fn)" t nil)
-
-(autoload 'image-bookmark-jump "image-mode" "\
-
-
-\(fn BMK)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar
-;;;;;; imenu-sort-function) "imenu" "imenu.el" (20744 53127 564979
-;;;;;; 207000))
-;;; Generated autoloads from imenu.el
-
-(defvar imenu-sort-function nil "\
-The function to use for sorting the index mouse-menu.
-
-Affects only the mouse index menu.
-
-Set this to nil if you don't want any sorting (faster).
-The items in the menu are then presented in the order they were found
-in the buffer.
-
-Set it to `imenu--sort-by-name' if you want alphabetic sorting.
-
-The function should take two arguments and return t if the first
-element should come before the second. The arguments are cons cells;
-\(NAME . POSITION). Look at `imenu--sort-by-name' for an example.")
-
-(custom-autoload 'imenu-sort-function "imenu" t)
-
-(defvar imenu-generic-expression nil "\
-List of definition matchers for creating an Imenu index.
-Each element of this list should have the form
-
- (MENU-TITLE REGEXP INDEX [FUNCTION] [ARGUMENTS...])
-
-MENU-TITLE should be nil (in which case the matches for this
-element are put in the top level of the buffer index) or a
-string (which specifies the title of a submenu into which the
-matches are put).
-REGEXP is a regular expression matching a definition construct
-which is to be displayed in the menu. REGEXP may also be a
-function, called without arguments. It is expected to search
-backwards. It must return true and set `match-data' if it finds
-another element.
-INDEX is an integer specifying which subexpression of REGEXP
-matches the definition's name; this subexpression is displayed as
-the menu item.
-FUNCTION, if present, specifies a function to call when the index
-item is selected by the user. This function is called with
-arguments consisting of the item name, the buffer position, and
-the ARGUMENTS.
-
-The variable `imenu-case-fold-search' determines whether or not
-the regexp matches are case sensitive, and `imenu-syntax-alist'
-can be used to alter the syntax table for the search.
-
-If non-nil this pattern is passed to `imenu--generic-function' to
-create a buffer index.
-
-For example, see the value of `fortran-imenu-generic-expression'
-used by `fortran-mode' with `imenu-syntax-alist' set locally to
-give the characters which normally have \"symbol\" syntax
-\"word\" syntax during matching.")
-(put 'imenu-generic-expression 'risky-local-variable t)
-
-(make-variable-buffer-local 'imenu-generic-expression)
-
-(defvar imenu-create-index-function 'imenu-default-create-index-function "\
-The function to use for creating an index alist of the current buffer.
-
-It should be a function that takes no arguments and returns
-an index alist of the current buffer. The function is
-called within a `save-excursion'.
-
-See `imenu--index-alist' for the format of the buffer index alist.")
-
-(make-variable-buffer-local 'imenu-create-index-function)
-
-(defvar imenu-prev-index-position-function 'beginning-of-defun "\
-Function for finding the next index position.
-
-If `imenu-create-index-function' is set to
-`imenu-default-create-index-function', then you must set this variable
-to a function that will find the next index, looking backwards in the
-file.
-
-The function should leave point at the place to be connected to the
-index and it should return nil when it doesn't find another index.")
-
-(make-variable-buffer-local 'imenu-prev-index-position-function)
-
-(defvar imenu-extract-index-name-function nil "\
-Function for extracting the index item name, given a position.
-
-This function is called after `imenu-prev-index-position-function'
-finds a position for an index item, with point at that position.
-It should return the name for that index item.")
-
-(make-variable-buffer-local 'imenu-extract-index-name-function)
-
-(defvar imenu-name-lookup-function nil "\
-Function to compare string with index item.
-
-This function will be called with two strings, and should return
-non-nil if they match.
-
-If nil, comparison is done with `string='.
-Set this to some other function for more advanced comparisons,
-such as \"begins with\" or \"name matches and number of
-arguments match\".")
-
-(make-variable-buffer-local 'imenu-name-lookup-function)
-
-(defvar imenu-default-goto-function 'imenu-default-goto-function "\
-The default function called when selecting an Imenu item.
-The function in this variable is called when selecting a normal index-item.")
-
-(make-variable-buffer-local 'imenu-default-goto-function)
-(put 'imenu--index-alist 'risky-local-variable t)
-
-(make-variable-buffer-local 'imenu-syntax-alist)
-
-(make-variable-buffer-local 'imenu-case-fold-search)
-
-(autoload 'imenu-add-to-menubar "imenu" "\
-Add an `imenu' entry to the menu bar for the current buffer.
-NAME is a string used to name the menu bar item.
-See the command `imenu' for more information.
-
-\(fn NAME)" t nil)
-
-(autoload 'imenu-add-menubar-index "imenu" "\
-Add an Imenu \"Index\" entry on the menu bar for the current buffer.
-
-A trivial interface to `imenu-add-to-menubar' suitable for use in a hook.
-
-\(fn)" t nil)
-
-(autoload 'imenu "imenu" "\
-Jump to a place in the buffer chosen using a buffer menu or mouse menu.
-INDEX-ITEM specifies the position. See `imenu-choose-buffer-index'
-for more information.
-
-\(fn INDEX-ITEM)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (indian-2-column-to-ucs-region in-is13194-pre-write-conversion
-;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region)
-;;;;;; "ind-util" "language/ind-util.el" (20707 18685 911514 0))
-;;; Generated autoloads from language/ind-util.el
-
-(autoload 'indian-compose-region "ind-util" "\
-Compose the region according to `composition-function-table'.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'indian-compose-string "ind-util" "\
-
-
-\(fn STRING)" nil nil)
-
-(autoload 'in-is13194-post-read-conversion "ind-util" "\
-
-
-\(fn LEN)" nil nil)
-
-(autoload 'in-is13194-pre-write-conversion "ind-util" "\
-
-
-\(fn FROM TO)" nil nil)
-
-(autoload 'indian-2-column-to-ucs-region "ind-util" "\
-Convert old Emacs Devanagari characters to UCS.
-
-\(fn FROM TO)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (inferior-lisp) "inf-lisp" "progmodes/inf-lisp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/inf-lisp.el
-
-(autoload 'inferior-lisp "inf-lisp" "\
-Run an inferior Lisp process, input and output via buffer `*inferior-lisp*'.
-If there is a process already running in `*inferior-lisp*', just switch
-to that buffer.
-With argument, allows you to edit the command line (default is value
-of `inferior-lisp-program'). Runs the hooks from
-`inferior-lisp-mode-hook' (after the `comint-mode-hook' is run).
-\(Type \\[describe-mode] in the process buffer for a list of commands.)
-
-\(fn CMD)" t nil)
-
-(defalias 'run-lisp 'inferior-lisp)
-
-;;;***
-\f
-;;;### (autoloads (info-display-manual Info-bookmark-jump Info-speedbar-browser
-;;;;;; Info-goto-emacs-key-command-node Info-goto-emacs-command-node
-;;;;;; Info-mode info-finder info-apropos Info-index Info-directory
-;;;;;; Info-on-current-buffer info-standalone info-emacs-bug info-emacs-manual
-;;;;;; info info-other-window) "info" "info.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from info.el
-
-(defcustom Info-default-directory-list (let* ((config-dir (file-name-as-directory (or (and (featurep 'ns) (let ((dir (expand-file-name "../info" data-directory))) (if (file-directory-p dir) dir))) configure-info-directory))) (prefixes (prune-directory-list '("/usr/local/" "/usr/" "/opt/" "/"))) (suffixes '("share/" "" "gnu/" "gnu/lib/" "gnu/lib/emacs/" "emacs/" "lib/" "lib/emacs/")) (standard-info-dirs (apply #'nconc (mapcar (lambda (pfx) (let ((dirs (mapcar (lambda (sfx) (concat pfx sfx "info/")) suffixes))) (prune-directory-list dirs))) prefixes))) (dirs (if (member config-dir standard-info-dirs) (nconc standard-info-dirs (list config-dir)) (cons config-dir standard-info-dirs)))) (if (not (eq system-type 'windows-nt)) dirs (let* ((instdir (file-name-directory invocation-directory)) (dir1 (expand-file-name "../info/" instdir)) (dir2 (expand-file-name "../../../info/" instdir))) (cond ((file-exists-p dir1) (append dirs (list dir1))) ((file-exists-p dir2) (append dirs (list dir2))) (t dirs))))) "\
-Default list of directories to search for Info documentation files.
-They are searched in the order they are given in the list.
-Therefore, the directory of Info files that come with Emacs
-normally should come last (so that local files override standard ones),
-unless Emacs is installed into a non-standard directory. In the latter
-case, the directory of Info files that come with Emacs should be
-first in this list.
-
-Once Info is started, the list of directories to search
-comes from the variable `Info-directory-list'.
-This variable `Info-default-directory-list' is used as the default
-for initializing `Info-directory-list' when Info is started, unless
-the environment variable INFOPATH is set.
-
-Although this is a customizable variable, that is mainly for technical
-reasons. Normally, you should either set INFOPATH or customize
-`Info-additional-directory-list', rather than changing this variable." :initialize (quote custom-initialize-delay) :type (quote (repeat directory)) :group (quote info))
-
-(autoload 'info-other-window "info" "\
-Like `info' but show the Info buffer in another window.
-
-\(fn &optional FILE-OR-NODE)" t nil)
- (put 'info 'info-file (purecopy "emacs"))
-
-(autoload 'info "info" "\
-Enter Info, the documentation browser.
-Optional argument FILE-OR-NODE specifies the file to examine;
-the default is the top-level directory of Info.
-Called from a program, FILE-OR-NODE may specify an Info node of the form
-\"(FILENAME)NODENAME\".
-Optional argument BUFFER specifies the Info buffer name;
-the default buffer name is *info*. If BUFFER exists,
-just switch to BUFFER. Otherwise, create a new buffer
-with the top-level Info directory.
-
-In interactive use, a non-numeric prefix argument directs
-this command to read a file name from the minibuffer.
-A numeric prefix argument selects an Info buffer with the prefix number
-appended to the Info buffer name.
-
-The search path for Info files is in the variable `Info-directory-list'.
-The top-level Info directory is made by combining all the files named `dir'
-in all the directories in that path.
-
-See a list of available Info commands in `Info-mode'.
-
-\(fn &optional FILE-OR-NODE BUFFER)" t nil)
-
-(autoload 'info-emacs-manual "info" "\
-Display the Emacs manual in Info mode.
-
-\(fn)" t nil)
-
-(autoload 'info-emacs-bug "info" "\
-Display the \"Reporting Bugs\" section of the Emacs manual in Info mode.
-
-\(fn)" t nil)
-
-(autoload 'info-standalone "info" "\
-Run Emacs as a standalone Info reader.
-Usage: emacs -f info-standalone [filename]
-In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself.
-
-\(fn)" nil nil)
-
-(autoload 'Info-on-current-buffer "info" "\
-Use Info mode to browse the current Info buffer.
-With a prefix arg, this queries for the node name to visit first;
-otherwise, that defaults to `Top'.
-
-\(fn &optional NODENAME)" t nil)
-
-(autoload 'Info-directory "info" "\
-Go to the Info directory node.
-
-\(fn)" t nil)
-
-(autoload 'Info-index "info" "\
-Look up a string TOPIC in the index for this manual and go to that entry.
-If there are no exact matches to the specified topic, this chooses
-the first match which is a case-insensitive substring of a topic.
-Use the \\<Info-mode-map>\\[Info-index-next] command to see the other matches.
-Give an empty topic name to go to the Index node itself.
-
-\(fn TOPIC)" t nil)
-
-(autoload 'info-apropos "info" "\
-Grovel indices of all known Info files on your system for STRING.
-Build a menu of the possible matches.
-
-\(fn STRING)" t nil)
-
-(autoload 'info-finder "info" "\
-Display descriptions of the keywords in the Finder virtual manual.
-In interactive use, a prefix argument directs this command to read
-a list of keywords separated by comma. After that, it displays a node
-with a list of packages that contain all specified keywords.
-
-\(fn &optional KEYWORDS)" t nil)
-
-(autoload 'Info-mode "info" "\
-Info mode provides commands for browsing through the Info documentation tree.
-Documentation in Info is divided into \"nodes\", each of which discusses
-one topic and contains references to other nodes which discuss related
-topics. Info has commands to follow the references and show you other nodes.
-
-\\<Info-mode-map>\\[Info-help] Invoke the Info tutorial.
-\\[Info-exit] Quit Info: reselect previously selected buffer.
-
-Selecting other nodes:
-\\[Info-mouse-follow-nearest-node]
- Follow a node reference you click on.
- This works with menu items, cross references, and
- the \"next\", \"previous\" and \"up\", depending on where you click.
-\\[Info-follow-nearest-node] Follow a node reference near point, like \\[Info-mouse-follow-nearest-node].
-\\[Info-next] Move to the \"next\" node of this node.
-\\[Info-prev] Move to the \"previous\" node of this node.
-\\[Info-up] Move \"up\" from this node.
-\\[Info-menu] Pick menu item specified by name (or abbreviation).
- Picking a menu item causes another node to be selected.
-\\[Info-directory] Go to the Info directory node.
-\\[Info-top-node] Go to the Top node of this file.
-\\[Info-final-node] Go to the final node in this file.
-\\[Info-backward-node] Go backward one node, considering all nodes as forming one sequence.
-\\[Info-forward-node] Go forward one node, considering all nodes as forming one sequence.
-\\[Info-next-reference] Move cursor to next cross-reference or menu item.
-\\[Info-prev-reference] Move cursor to previous cross-reference or menu item.
-\\[Info-follow-reference] Follow a cross reference. Reads name of reference.
-\\[Info-history-back] Move back in history to the last node you were at.
-\\[Info-history-forward] Move forward in history to the node you returned from after using \\[Info-history-back].
-\\[Info-history] Go to menu of visited nodes.
-\\[Info-toc] Go to table of contents of the current Info file.
-
-Moving within a node:
-\\[Info-scroll-up] Normally, scroll forward a full screen.
- Once you scroll far enough in a node that its menu appears on the
- screen but after point, the next scroll moves into its first
- subnode. When after all menu items (or if there is no menu),
- move up to the parent node.
-\\[Info-scroll-down] Normally, scroll backward. If the beginning of the buffer is
- already visible, try to go to the previous menu entry, or up
- if there is none.
-\\[beginning-of-buffer] Go to beginning of node.
-
-Advanced commands:
-\\[Info-search] Search through this Info file for specified regexp,
- and select the node in which the next occurrence is found.
-\\[Info-search-case-sensitively] Search through this Info file for specified regexp case-sensitively.
-\\[isearch-forward], \\[isearch-forward-regexp] Use Isearch to search through multiple Info nodes.
-\\[Info-index] Search for a topic in this manual's Index and go to index entry.
-\\[Info-index-next] (comma) Move to the next match from a previous \\<Info-mode-map>\\[Info-index] command.
-\\[Info-virtual-index] Look for a string and display the index node with results.
-\\[info-apropos] Look for a string in the indices of all manuals.
-\\[Info-goto-node] Move to node specified by name.
- You may include a filename as well, as (FILENAME)NODENAME.
-1 .. 9 Pick first ... ninth item in node's menu.
- Every third `*' is highlighted to help pick the right number.
-\\[Info-copy-current-node-name] Put name of current Info node in the kill ring.
-\\[clone-buffer] Select a new cloned Info buffer in another window.
-\\[universal-argument] \\[info] Move to new Info file with completion.
-\\[universal-argument] N \\[info] Select Info buffer with prefix number in the name *info*<N>.
-
-\(fn)" t nil)
- (put 'Info-goto-emacs-command-node 'info-file (purecopy "emacs"))
-
-(autoload 'Info-goto-emacs-command-node "info" "\
-Go to the Info node in the Emacs manual for command COMMAND.
-The command is found by looking up in Emacs manual's indices
-or in another manual found via COMMAND's `info-file' property or
-the variable `Info-file-list-for-emacs'.
-COMMAND must be a symbol or string.
-
-\(fn COMMAND)" t nil)
- (put 'Info-goto-emacs-key-command-node 'info-file (purecopy "emacs"))
-
-(autoload 'Info-goto-emacs-key-command-node "info" "\
-Go to the node in the Emacs manual which describes the command bound to KEY.
-KEY is a string.
-Interactively, if the binding is `execute-extended-command', a command is read.
-The command is found by looking up in Emacs manual's indices
-or in another manual found via COMMAND's `info-file' property or
-the variable `Info-file-list-for-emacs'.
-
-\(fn KEY)" t nil)
-
-(autoload 'Info-speedbar-browser "info" "\
-Initialize speedbar to display an Info node browser.
-This will add a speedbar major display mode.
-
-\(fn)" t nil)
-
-(autoload 'Info-bookmark-jump "info" "\
-This implements the `handler' function interface for the record
-type returned by `Info-bookmark-make-record', which see.
-
-\(fn BMK)" nil nil)
-
-(autoload 'info-display-manual "info" "\
-Go to Info buffer that displays MANUAL, creating it if none already exists.
-
-\(fn MANUAL)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file
-;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el"
-;;;;;; (20770 60415 653135 179000))
-;;; Generated autoloads from info-look.el
-
-(autoload 'info-lookup-reset "info-look" "\
-Throw away all cached data.
-This command is useful if the user wants to start at the beginning without
-quitting Emacs, for example, after some Info documents were updated on the
-system.
-
-\(fn)" t nil)
- (put 'info-lookup-symbol 'info-file "emacs")
-
-(autoload 'info-lookup-symbol "info-look" "\
-Display the definition of SYMBOL, as found in the relevant manual.
-When this command is called interactively, it reads SYMBOL from the
-minibuffer. In the minibuffer, use M-n to yank the default argument
-value into the minibuffer so you can edit it. The default symbol is the
-one found at point.
-
-With prefix arg a query for the symbol help mode is offered.
-
-\(fn SYMBOL &optional MODE)" t nil)
- (put 'info-lookup-file 'info-file "emacs")
-
-(autoload 'info-lookup-file "info-look" "\
-Display the documentation of a file.
-When this command is called interactively, it reads FILE from the minibuffer.
-In the minibuffer, use M-n to yank the default file name
-into the minibuffer so you can edit it.
-The default file name is the one found at point.
-
-With prefix arg a query for the file help mode is offered.
-
-\(fn FILE &optional MODE)" t nil)
-
-(autoload 'info-complete-symbol "info-look" "\
-Perform completion on symbol preceding point.
-
-\(fn &optional MODE)" t nil)
-
-(autoload 'info-complete-file "info-look" "\
-Perform completion on file preceding point.
-
-\(fn &optional MODE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (info-xref-docstrings info-xref-check-all-custom
-;;;;;; info-xref-check-all info-xref-check) "info-xref" "info-xref.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from info-xref.el
-
-(autoload 'info-xref-check "info-xref" "\
-Check external references in FILENAME, an info document.
-Interactively from an `Info-mode' or `texinfo-mode' buffer the
-current info file is the default.
-
-Results are shown in a `compilation-mode' buffer. The format is
-a bit rough, but there shouldn't be many problems normally. The
-file:line:column: is the info document, but of course normally
-any correction should be made in the original .texi file.
-Finding the right place in the .texi is a manual process.
-
-When a target info file doesn't exist there's obviously no way to
-validate node references within it. A message is given for
-missing target files once per source document. It could be
-simply that you don't have the target installed, or it could be a
-mistake in the reference.
-
-Indirect info files are understood, just pass the top-level
-foo.info to `info-xref-check' and it traverses all sub-files.
-Compressed info files are accepted too as usual for `Info-mode'.
-
-\"makeinfo\" checks references internal to an info document, but
-not external references, which makes it rather easy for mistakes
-to creep in or node name changes to go unnoticed.
-`Info-validate' doesn't check external references either.
-
-\(fn FILENAME)" t nil)
-
-(autoload 'info-xref-check-all "info-xref" "\
-Check external references in all info documents in the info path.
-`Info-directory-list' and `Info-additional-directory-list' are
-the info paths. See `info-xref-check' for how each file is
-checked.
-
-The search for \"all\" info files is rather permissive, since
-info files don't necessarily have a \".info\" extension and in
-particular the Emacs manuals normally don't. If you have a
-source code directory in `Info-directory-list' then a lot of
-extraneous files might be read. This will be time consuming but
-should be harmless.
-
-\(fn)" t nil)
-
-(autoload 'info-xref-check-all-custom "info-xref" "\
-Check info references in all customize groups and variables.
-Info references can be in `custom-manual' or `info-link' entries
-of the `custom-links' for a variable.
-
-Any `custom-load' autoloads in variables are loaded in order to
-get full link information. This will be a lot of Lisp packages
-and can take a long time.
-
-\(fn)" t nil)
-
-(autoload 'info-xref-docstrings "info-xref" "\
-Check docstring info node references in source files.
-The given files are searched for docstring hyperlinks like
-
- Info node `(elisp)Documentation Tips'
-
-and those links checked by attempting to visit the target nodes
-as per `info-xref-check' does.
-
-Interactively filenames are read as a wildcard pattern like
-\"foo*.el\", with the current file as a default. Usually this
-will be lisp sources, but anything with such hyperlinks can be
-checked, including the Emacs .c sources (or the etc/DOC file of
-all builtins).
-
-Because info node hyperlinks are found by a simple regexp search
-in the files, the Lisp code checked doesn't have to be loaded,
-and links can be in the file commentary or elsewhere too. Even
-.elc files can usually be checked successfully if you don't have
-the sources handy.
-
-\(fn FILENAME-LIST)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (batch-info-validate Info-validate Info-split Info-split-threshold
-;;;;;; Info-tagify) "informat" "informat.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from informat.el
-
-(autoload 'Info-tagify "informat" "\
-Create or update Info file tag table in current buffer or in a region.
-
-\(fn &optional INPUT-BUFFER-NAME)" t nil)
-
-(defvar Info-split-threshold 262144 "\
-The number of characters by which `Info-split' splits an info file.")
-
-(custom-autoload 'Info-split-threshold "informat" t)
-
-(autoload 'Info-split "informat" "\
-Split an info file into an indirect file plus bounded-size subfiles.
-Each subfile will be up to the number of characters that
-`Info-split-threshold' specifies, plus one node.
-
-To use this command, first visit a large Info file that has a tag
-table. The buffer is modified into a (small) indirect info file which
-should be saved in place of the original visited file.
-
-The subfiles are written in the same directory the original file is
-in, with names generated by appending `-' and a number to the original
-file name. The indirect file still functions as an Info file, but it
-contains just the tag table and a directory of subfiles.
-
-\(fn)" t nil)
-
-(autoload 'Info-validate "informat" "\
-Check current buffer for validity as an Info file.
-Check that every node pointer points to an existing node.
-
-\(fn)" t nil)
-
-(autoload 'batch-info-validate "informat" "\
-Runs `Info-validate' on the files remaining on the command line.
-Must be used only with -batch, and kills Emacs on completion.
-Each file will be processed even if an error occurred previously.
-For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\"
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (inversion-require-emacs) "inversion" "cedet/inversion.el"
-;;;;;; (20741 50977 527555 250000))
-;;; Generated autoloads from cedet/inversion.el
-
-(autoload 'inversion-require-emacs "inversion" "\
-Declare that you need either EMACS-VER, XEMACS-VER or SXEMACS-ver.
-Only checks one based on which kind of Emacs is being run.
-
-\(fn EMACS-VER XEMACS-VER SXEMACS-VER)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method
-;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from international/isearch-x.el
-
-(autoload 'isearch-toggle-specified-input-method "isearch-x" "\
-Select an input method and turn it on in interactive search.
-
-\(fn)" t nil)
-
-(autoload 'isearch-toggle-input-method "isearch-x" "\
-Toggle input method in interactive search.
-
-\(fn)" t nil)
-
-(autoload 'isearch-process-search-multibyte-characters "isearch-x" "\
-
-
-\(fn LAST-CHAR)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from isearchb.el
-
-(autoload 'isearchb-activate "isearchb" "\
-Active isearchb mode for subsequent alphanumeric keystrokes.
-Executing this command again will terminate the search; or, if
-the search has not yet begun, will toggle to the last buffer
-accessed via isearchb.
-
-\(fn)" 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" (20707 18685 911514 0))
-;;; Generated autoloads from international/iso-cvt.el
-
-(autoload 'iso-spanish "iso-cvt" "\
-Translate net conventions for Spanish to ISO 8859-1.
-Translate the region between FROM and TO using the table
-`iso-spanish-trans-tab'.
-Optional arg BUFFER is ignored (for use in `format-alist').
-
-\(fn FROM TO &optional BUFFER)" t nil)
-
-(autoload 'iso-german "iso-cvt" "\
-Translate net conventions for German to ISO 8859-1.
-Translate the region FROM and TO using the table
-`iso-german-trans-tab'.
-Optional arg BUFFER is ignored (for use in `format-alist').
-
-\(fn FROM TO &optional BUFFER)" t nil)
-
-(autoload 'iso-iso2tex "iso-cvt" "\
-Translate ISO 8859-1 characters to TeX sequences.
-Translate the region between FROM and TO using the table
-`iso-iso2tex-trans-tab'.
-Optional arg BUFFER is ignored (for use in `format-alist').
-
-\(fn FROM TO &optional BUFFER)" t nil)
-
-(autoload 'iso-tex2iso "iso-cvt" "\
-Translate TeX sequences to ISO 8859-1 characters.
-Translate the region between FROM and TO using the table
-`iso-tex2iso-trans-tab'.
-Optional arg BUFFER is ignored (for use in `format-alist').
-
-\(fn FROM TO &optional BUFFER)" t nil)
-
-(autoload 'iso-gtex2iso "iso-cvt" "\
-Translate German TeX sequences to ISO 8859-1 characters.
-Translate the region between FROM and TO using the table
-`iso-gtex2iso-trans-tab'.
-Optional arg BUFFER is ignored (for use in `format-alist').
-
-\(fn FROM TO &optional BUFFER)" t nil)
-
-(autoload 'iso-iso2gtex "iso-cvt" "\
-Translate ISO 8859-1 characters to German TeX sequences.
-Translate the region between FROM and TO using the table
-`iso-iso2gtex-trans-tab'.
-Optional arg BUFFER is ignored (for use in `format-alist').
-
-\(fn FROM TO &optional BUFFER)" t nil)
-
-(autoload 'iso-iso2duden "iso-cvt" "\
-Translate ISO 8859-1 characters to Duden sequences.
-Translate the region between FROM and TO using the table
-`iso-iso2duden-trans-tab'.
-Optional arg BUFFER is ignored (for use in `format-alist').
-
-\(fn FROM TO &optional BUFFER)" t nil)
-
-(autoload 'iso-iso2sgml "iso-cvt" "\
-Translate ISO 8859-1 characters in the region to SGML entities.
-Use entities from \"ISO 8879:1986//ENTITIES Added Latin 1//EN\".
-Optional arg BUFFER is ignored (for use in `format-alist').
-
-\(fn FROM TO &optional BUFFER)" t nil)
-
-(autoload 'iso-sgml2iso "iso-cvt" "\
-Translate SGML entities in the region to ISO 8859-1 characters.
-Use entities from \"ISO 8879:1986//ENTITIES Added Latin 1//EN\".
-Optional arg BUFFER is ignored (for use in `format-alist').
-
-\(fn FROM TO &optional BUFFER)" t nil)
-
-(autoload 'iso-cvt-read-only "iso-cvt" "\
-Warn that format is read-only.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'iso-cvt-write-only "iso-cvt" "\
-Warn that format is write-only.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'iso-cvt-define-menu "iso-cvt" "\
-Add submenus to the File menu, to convert to and from various formats.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil "iso-transl" "international/iso-transl.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from international/iso-transl.el
- (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
- (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap)
-
-;;;***
-\f
-;;;### (autoloads (ispell-message ispell-minor-mode ispell ispell-complete-word-interior-frag
-;;;;;; ispell-complete-word ispell-continue ispell-buffer ispell-comments-and-strings
-;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell
-;;;;;; ispell-help ispell-pdict-save ispell-word ispell-personal-dictionary)
-;;;;;; "ispell" "textmodes/ispell.el" (20775 13766 532814 0))
-;;; Generated autoloads from textmodes/ispell.el
-
-(put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive))))
-
-(defvar ispell-personal-dictionary nil "\
-File name of your personal spelling dictionary, or nil.
-If nil, the default personal dictionary, (\"~/.ispell_DICTNAME\" for ispell or
-\"~/.aspell.LANG.pws\" for aspell) is used, where DICTNAME is the name of your
-default dictionary and LANG the two letter language code.")
-
-(custom-autoload 'ispell-personal-dictionary "ispell" t)
-
-(put 'ispell-local-dictionary 'safe-local-variable 'string-or-null-p)
-
-(defvar ispell-menu-map nil "\
-Key map for ispell menu.")
-
-(defvar ispell-menu-xemacs nil "\
-Spelling menu for XEmacs.
-If nil when package is loaded, a standard menu will be set,
-and added as a submenu of the \"Edit\" menu.")
-
-(defvar ispell-menu-map-needed (and (not ispell-menu-map) (not (featurep 'xemacs)) 'reload))
-
-(if ispell-menu-map-needed (progn (setq ispell-menu-map (make-sparse-keymap "Spell")) (define-key ispell-menu-map [ispell-change-dictionary] `(menu-item ,(purecopy "Change Dictionary...") ispell-change-dictionary :help ,(purecopy "Supply explicit dictionary file name"))) (define-key ispell-menu-map [ispell-kill-ispell] `(menu-item ,(purecopy "Kill Process") (lambda nil (interactive) (ispell-kill-ispell nil 'clear)) :enable (and (boundp 'ispell-process) ispell-process (eq (ispell-process-status) 'run)) :help ,(purecopy "Terminate Ispell subprocess"))) (define-key ispell-menu-map [ispell-pdict-save] `(menu-item ,(purecopy "Save Dictionary") (lambda nil (interactive) (ispell-pdict-save t t)) :help ,(purecopy "Save personal dictionary"))) (define-key ispell-menu-map [ispell-customize] `(menu-item ,(purecopy "Customize...") (lambda nil (interactive) (customize-group 'ispell)) :help ,(purecopy "Customize spell checking options"))) (define-key ispell-menu-map [ispell-help] `(menu-item ,(purecopy "Help") (lambda nil (interactive) (describe-function 'ispell-help)) :help ,(purecopy "Show standard Ispell keybindings and commands"))) (define-key ispell-menu-map [flyspell-mode] `(menu-item ,(purecopy "Automatic spell checking (Flyspell)") flyspell-mode :help ,(purecopy "Check spelling while you edit the text") :button (:toggle bound-and-true-p flyspell-mode))) (define-key ispell-menu-map [ispell-complete-word] `(menu-item ,(purecopy "Complete Word") ispell-complete-word :help ,(purecopy "Complete word at cursor using dictionary"))) (define-key ispell-menu-map [ispell-complete-word-interior-frag] `(menu-item ,(purecopy "Complete Word Fragment") ispell-complete-word-interior-frag :help ,(purecopy "Complete word fragment at cursor")))))
-
-(if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-continue] `(menu-item ,(purecopy "Continue Spell-Checking") ispell-continue :enable (and (boundp 'ispell-region-end) (marker-position ispell-region-end) (equal (marker-buffer ispell-region-end) (current-buffer))) :help ,(purecopy "Continue spell checking last region"))) (define-key ispell-menu-map [ispell-word] `(menu-item ,(purecopy "Spell-Check Word") ispell-word :help ,(purecopy "Spell-check word at cursor"))) (define-key ispell-menu-map [ispell-comments-and-strings] `(menu-item ,(purecopy "Spell-Check Comments") ispell-comments-and-strings :help ,(purecopy "Spell-check only comments and strings")))))
-
-(if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-region] `(menu-item ,(purecopy "Spell-Check Region") ispell-region :enable mark-active :help ,(purecopy "Spell-check text in marked region"))) (define-key ispell-menu-map [ispell-message] `(menu-item ,(purecopy "Spell-Check Message") ispell-message :visible (eq major-mode 'mail-mode) :help ,(purecopy "Skip headers and included message text"))) (define-key ispell-menu-map [ispell-buffer] `(menu-item ,(purecopy "Spell-Check Buffer") ispell-buffer :help ,(purecopy "Check spelling of selected buffer"))) (fset 'ispell-menu-map (symbol-value 'ispell-menu-map))))
-
-(defvar ispell-skip-region-alist `((ispell-words-keyword forward-line) (ispell-dictionary-keyword forward-line) (ispell-pdict-keyword forward-line) (ispell-parsing-keyword forward-line) (,(purecopy "^---*BEGIN PGP [A-Z ]*--*") \, (purecopy "^---*END PGP [A-Z ]*--*")) (,(purecopy "^begin [0-9][0-9][0-9] [^ ]+$") \, (purecopy "\nend\n")) (,(purecopy "^%!PS-Adobe-[123].0") \, (purecopy "\n%%EOF\n")) (,(purecopy "^---* \\(Start of \\)?[Ff]orwarded [Mm]essage") \, (purecopy "^---* End of [Ff]orwarded [Mm]essage")) (,(purecopy "\\(--+\\|_+\\|\\(/\\w\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)"))) "\
-Alist expressing beginning and end of regions not to spell check.
-The alist key must be a regular expression.
-Valid forms include:
- (KEY) - just skip the key.
- (KEY . REGEXP) - skip to the end of REGEXP. REGEXP may be string or symbol.
- (KEY REGEXP) - skip to end of REGEXP. REGEXP must be a string.
- (KEY FUNCTION ARGS) - FUNCTION called with ARGS returns end of region.")
-
-(defvar ispell-tex-skip-alists (purecopy '((("\\\\addcontentsline" ispell-tex-arg-end 2) ("\\\\add\\(tocontents\\|vspace\\)" ispell-tex-arg-end) ("\\\\\\([aA]lph\\|arabic\\)" ispell-tex-arg-end) ("\\\\bibliographystyle" ispell-tex-arg-end) ("\\\\makebox" ispell-tex-arg-end 0) ("\\\\e?psfig" ispell-tex-arg-end) ("\\\\document\\(class\\|style\\)" . "\\\\begin[ \n]*{[ \n]*document[ \n]*}")) (("\\(figure\\|table\\)\\*?" ispell-tex-arg-end 0) ("list" ispell-tex-arg-end 2) ("program" . "\\\\end[ \n]*{[ \n]*program[ \n]*}") ("verbatim\\*?" . "\\\\end[ \n]*{[ \n]*verbatim\\*?[ \n]*}")))) "\
-Lists of regions to be skipped in TeX mode.
-First list is used raw.
-Second list has key placed inside \\begin{}.
-
-Delete or add any regions you want to be automatically selected
-for skipping in latex mode.")
-
-(defconst ispell-html-skip-alists '(("<[cC][oO][dD][eE]\\>[^>]*>" "</[cC][oO][dD][eE]*>") ("<[sS][cC][rR][iI][pP][tT]\\>[^>]*>" "</[sS][cC][rR][iI][pP][tT]>") ("<[aA][pP][pP][lL][eE][tT]\\>[^>]*>" "</[aA][pP][pP][lL][eE][tT]>") ("<[vV][eE][rR][bB]\\>[^>]*>" "<[vV][eE][rR][bB]\\>[^>]*>") ("<[tT][tT]/" "/") ("<[^ \n>]" ">") ("&[^ \n;]" "[; \n]")) "\
-Lists of start and end keys to skip in HTML buffers.
-Same format as `ispell-skip-region-alist'.
-Note - substrings of other matches must come last
- (e.g. \"<[tT][tT]/\" and \"<[^ \\t\\n>]\").")
-(put 'ispell-local-pdict 'safe-local-variable 'stringp)
- (define-key esc-map "$" 'ispell-word)
-
-(autoload 'ispell-word "ispell" "\
-Check spelling of word under or before the cursor.
-If the word is not found in dictionary, display possible corrections
-in a window allowing you to choose one.
-
-If optional argument FOLLOWING is non-nil or if `ispell-following-word'
-is non-nil when called interactively, then the following word
-\(rather than preceding) is checked when the cursor is not over a word.
-When the optional argument QUIETLY is non-nil or `ispell-quietly' is non-nil
-when called interactively, non-corrective messages are suppressed.
-
-With a prefix argument (or if CONTINUE is non-nil),
-resume interrupted spell-checking of a buffer or region.
-
-Interactively, in Transient Mark mode when the mark is active, call
-`ispell-region' to check the active region for spelling errors.
-
-Word syntax is controlled by the definition of the chosen dictionary,
-which is in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'.
-
-This will check or reload the dictionary. Use \\[ispell-change-dictionary]
-or \\[ispell-region] to update the Ispell process.
-
-Return values:
-nil word is correct or spelling is accepted.
-0 word is inserted into buffer-local definitions.
-\"word\" word corrected from word list.
-\(\"word\" arg) word is hand entered.
-quit spell session exited.
-
-\(fn &optional FOLLOWING QUIETLY CONTINUE REGION)" t nil)
-
-(autoload 'ispell-pdict-save "ispell" "\
-Check to see if the personal dictionary has been modified.
-If so, ask if it needs to be saved.
-
-\(fn &optional NO-QUERY FORCE-SAVE)" t nil)
-
-(autoload 'ispell-help "ispell" "\
-Display a list of the options available when a misspelling is encountered.
-
-Selections are:
-
-DIGIT: Replace the word with a digit offered in the *Choices* buffer.
-SPC: Accept word this time.
-`i': Accept word and insert into private dictionary.
-`a': Accept word for this session.
-`A': Accept word and place in `buffer-local dictionary'.
-`r': Replace word with typed-in value. Rechecked.
-`R': Replace word with typed-in value. Query-replaced in buffer. Rechecked.
-`?': Show these commands.
-`x': Exit spelling buffer. Move cursor to original point.
-`X': Exit spelling buffer. Leaves cursor at the current point, and permits
- the aborted check to be completed later.
-`q': Quit spelling session (Kills ispell process).
-`l': Look up typed-in replacement in alternate dictionary. Wildcards okay.
-`u': Like `i', but the word is lower-cased first.
-`m': Place typed-in value in personal dictionary, then recheck current word.
-`C-l': Redraw screen.
-`C-r': Recursive edit.
-`C-z': Suspend Emacs or iconify frame.
-
-\(fn)" nil nil)
-
-(autoload 'ispell-kill-ispell "ispell" "\
-Kill current Ispell process (so that you may start a fresh one).
-With NO-ERROR, just return non-nil if there was no Ispell running.
-With CLEAR, buffer session localwords are cleaned.
-
-\(fn &optional NO-ERROR CLEAR)" t nil)
-
-(autoload 'ispell-change-dictionary "ispell" "\
-Change to dictionary DICT for Ispell.
-With a prefix arg, set it \"globally\", for all buffers.
-Without a prefix arg, set it \"locally\", just for this buffer.
-
-By just answering RET you can find out what the current dictionary is.
-
-\(fn DICT &optional ARG)" t nil)
-
-(autoload 'ispell-region "ispell" "\
-Interactively check a region for spelling errors.
-Return nil if spell session was terminated, otherwise returns shift offset
-amount for last line processed.
-
-\(fn REG-START REG-END &optional RECHECKP SHIFT)" t nil)
-
-(autoload 'ispell-comments-and-strings "ispell" "\
-Check comments and strings in the current buffer for spelling errors.
-
-\(fn)" t nil)
-
-(autoload 'ispell-buffer "ispell" "\
-Check the current buffer for spelling errors interactively.
-
-\(fn)" t nil)
-
-(autoload 'ispell-continue "ispell" "\
-Continue a halted spelling session beginning with the current word.
-
-\(fn)" t nil)
-
-(autoload 'ispell-complete-word "ispell" "\
-Try to complete the word before or under point (see `lookup-words').
-If optional INTERIOR-FRAG is non-nil then the word may be a character
-sequence inside of a word.
-
-Standard ispell choices are then available.
-
-\(fn &optional INTERIOR-FRAG)" t nil)
-
-(autoload 'ispell-complete-word-interior-frag "ispell" "\
-Completes word matching character sequence inside a word.
-
-\(fn)" t nil)
-
-(autoload 'ispell "ispell" "\
-Interactively check a region or buffer for spelling errors.
-If `transient-mark-mode' is on, and a region is active, spell-check
-that region. Otherwise spell-check the buffer.
-
-Ispell dictionaries are not distributed with Emacs. If you are
-looking for a dictionary, please see the distribution of the GNU ispell
-program, or do an Internet search; there are various dictionaries
-available on the net.
-
-\(fn)" t nil)
-
-(autoload 'ispell-minor-mode "ispell" "\
-Toggle last-word spell checking (Ispell minor mode).
-With a prefix argument ARG, enable Ispell minor mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Ispell minor mode is a buffer-local minor mode. When enabled,
-typing SPC or RET warns you if the previous word is incorrectly
-spelled.
-
-All the buffer-local variables and dictionaries are ignored. To
-read them into the running ispell process, type \\[ispell-word]
-SPC.
-
-For spell-checking \"on the fly\", not just after typing SPC or
-RET, use `flyspell-mode'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'ispell-message "ispell" "\
-Check the spelling of a mail message or news post.
-Don't check spelling of message headers except the Subject field.
-Don't check included messages.
-
-To abort spell checking of a message region and send the message anyway,
-use the `x' command. (Any subsequent regions will be checked.)
-The `X' command aborts sending the message so that you can edit the buffer.
-
-To spell-check whenever a message is sent, include the appropriate lines
-in your init file:
- (add-hook 'message-send-hook 'ispell-message) ;; GNUS 5
- (add-hook 'news-inews-hook 'ispell-message) ;; GNUS 4
- (add-hook 'mail-send-hook 'ispell-message)
- (add-hook 'mh-before-send-letter-hook 'ispell-message)
-
-You can bind this to the key C-c i in GNUS or mail by adding to
-`news-reply-mode-hook' or `mail-mode-hook' the following lambda expression:
- (function (lambda () (local-set-key \"\\C-ci\" 'ispell-message)))
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from iswitchb.el
-
-(defvar iswitchb-mode nil "\
-Non-nil if Iswitchb mode is enabled.
-See the command `iswitchb-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `iswitchb-mode'.")
-
-(custom-autoload 'iswitchb-mode "iswitchb" nil)
-
-(autoload 'iswitchb-mode "iswitchb" "\
-Toggle Iswitchb mode.
-With a prefix argument ARG, enable Iswitchb mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Iswitchb mode is a global minor mode that enables switching
-between buffers using substrings. See `iswitchb' for details.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (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" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from language/japan-util.el
-
-(autoload 'setup-japanese-environment-internal "japan-util" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'japanese-katakana "japan-util" "\
-Convert argument to Katakana and return that.
-The argument may be a character or string. The result has the same type.
-The argument object is not altered--the value is a copy.
-Optional argument HANKAKU t means to convert to `hankaku' Katakana
- (`japanese-jisx0201-kana'), in which case return value
- may be a string even if OBJ is a character if two Katakanas are
- necessary to represent OBJ.
-
-\(fn OBJ &optional HANKAKU)" nil nil)
-
-(autoload 'japanese-hiragana "japan-util" "\
-Convert argument to Hiragana and return that.
-The argument may be a character or string. The result has the same type.
-The argument object is not altered--the value is a copy.
-
-\(fn OBJ)" nil nil)
-
-(autoload 'japanese-hankaku "japan-util" "\
-Convert argument to `hankaku' and return that.
-The argument may be a character or string. The result has the same type.
-The argument object is not altered--the value is a copy.
-Optional argument ASCII-ONLY non-nil means to return only ASCII character.
-
-\(fn OBJ &optional ASCII-ONLY)" nil nil)
-
-(autoload 'japanese-zenkaku "japan-util" "\
-Convert argument to `zenkaku' and return that.
-The argument may be a character or string. The result has the same type.
-The argument object is not altered--the value is a copy.
-
-\(fn OBJ)" nil nil)
-
-(autoload 'japanese-katakana-region "japan-util" "\
-Convert Japanese `hiragana' chars in the region to `katakana' chars.
-Optional argument HANKAKU t means to convert to `hankaku katakana' character
-of which charset is `japanese-jisx0201-kana'.
-
-\(fn FROM TO &optional HANKAKU)" t nil)
-
-(autoload 'japanese-hiragana-region "japan-util" "\
-Convert Japanese `katakana' chars in the region to `hiragana' chars.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'japanese-hankaku-region "japan-util" "\
-Convert Japanese `zenkaku' chars in the region to `hankaku' chars.
-`Zenkaku' chars belong to `japanese-jisx0208'
-`Hankaku' chars belong to `ascii' or `japanese-jisx0201-kana'.
-Optional argument ASCII-ONLY non-nil means to convert only to ASCII char.
-
-\(fn FROM TO &optional ASCII-ONLY)" t nil)
-
-(autoload 'japanese-zenkaku-region "japan-util" "\
-Convert hankaku' chars in the region to Japanese `zenkaku' chars.
-`Zenkaku' chars belong to `japanese-jisx0208'
-`Hankaku' chars belong to `ascii' or `japanese-jisx0201-kana'.
-Optional argument KATAKANA-ONLY non-nil means to convert only KATAKANA char.
-
-\(fn FROM TO &optional KATAKANA-ONLY)" t nil)
-
-(autoload 'read-hiragana-string "japan-util" "\
-Read a Hiragana string from the minibuffer, prompting with string PROMPT.
-If non-nil, second arg INITIAL-INPUT is a string to insert before reading.
-
-\(fn PROMPT &optional INITIAL-INPUT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr"
-;;;;;; "jka-compr.el" (20707 18685 911514 0))
-;;; Generated autoloads from jka-compr.el
-
-(defvar jka-compr-inhibit nil "\
-Non-nil means inhibit automatic uncompression temporarily.
-Lisp programs can bind this to t to do that.
-It is not recommended to set this variable permanently to anything but nil.")
-
-(autoload 'jka-compr-handler "jka-compr" "\
-
-
-\(fn OPERATION &rest ARGS)" nil nil)
-
-(autoload 'jka-compr-uninstall "jka-compr" "\
-Uninstall jka-compr.
-This removes the entries in `file-name-handler-alist' and `auto-mode-alist'
-and `inhibit-local-variables-suffixes' that were added
-by `jka-compr-installed'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (js-mode) "js" "progmodes/js.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from progmodes/js.el
-
-(autoload 'js-mode "js" "\
-Major mode for editing JavaScript.
-
-\(fn)" t nil)
-
-(defalias 'javascript-mode 'js-mode)
-
-;;;***
-\f
-;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup
-;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emulation/keypad.el
-
-(defvar keypad-setup nil "\
-Specifies the keypad setup for unshifted keypad keys when NumLock is off.
-When selecting the plain numeric keypad setup, the character returned by the
-decimal key must be specified.")
-
-(custom-autoload 'keypad-setup "keypad" nil)
-
-(defvar keypad-numlock-setup nil "\
-Specifies the keypad setup for unshifted keypad keys when NumLock is on.
-When selecting the plain numeric keypad setup, the character returned by the
-decimal key must be specified.")
-
-(custom-autoload 'keypad-numlock-setup "keypad" nil)
-
-(defvar keypad-shifted-setup nil "\
-Specifies the keypad setup for shifted keypad keys when NumLock is off.
-When selecting the plain numeric keypad setup, the character returned by the
-decimal key must be specified.")
-
-(custom-autoload 'keypad-shifted-setup "keypad" nil)
-
-(defvar keypad-numlock-shifted-setup nil "\
-Specifies the keypad setup for shifted keypad keys when NumLock is off.
-When selecting the plain numeric keypad setup, the character returned by the
-decimal key must be specified.")
-
-(custom-autoload 'keypad-numlock-shifted-setup "keypad" nil)
-
-(autoload 'keypad-setup "keypad" "\
-Set keypad bindings in `function-key-map' according to SETUP.
-If optional second argument NUMLOCK is non-nil, the NumLock On bindings
-are changed. Otherwise, the NumLock Off bindings are changed.
-If optional third argument SHIFT is non-nil, the shifted keypad
-keys are bound.
-
- Setup Binding
- -------------------------------------------------------------
- 'prefix Command prefix argument, i.e. M-0 .. M-9 and M--
- 'S-cursor Bind shifted keypad keys to the shifted cursor movement keys.
- 'cursor Bind keypad keys to the cursor movement keys.
- 'numeric Plain numeric keypad, i.e. 0 .. 9 and . (or DECIMAL arg)
- 'none Removes all bindings for keypad keys in function-key-map;
- this enables any user-defined bindings for the keypad keys
- in the global and local keymaps.
-
-If SETUP is 'numeric and the optional fourth argument DECIMAL is non-nil,
-the decimal key on the keypad is mapped to DECIMAL instead of `.'
-
-\(fn SETUP &optional NUMLOCK SHIFT DECIMAL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from international/kinsoku.el
-
-(autoload 'kinsoku "kinsoku" "\
-Go to a line breaking position near point by doing `kinsoku' processing.
-LINEBEG is a buffer position we can't break a line before.
-
-`Kinsoku' processing is to prohibit specific characters to be placed
-at beginning of line or at end of line. Characters not to be placed
-at beginning and end of line have character category `>' and `<'
-respectively. This restriction is dissolved by making a line longer or
-shorter.
-
-`Kinsoku' is a Japanese word which originally means ordering to stay
-in one place, and is used for the text processing described above in
-the context of text formatting.
-
-\(fn LINEBEG)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from international/kkc.el
-
-(defvar kkc-after-update-conversion-functions nil "\
-Functions to run after a conversion is selected in `japanese' input method.
-With this input method, a user can select a proper conversion from
-candidate list. Each time he changes the selection, functions in this
-list are called with two arguments; starting and ending buffer
-positions that contains the current selection.")
-
-(autoload 'kkc-region "kkc" "\
-Convert Kana string in the current region to Kanji-Kana mixed string.
-Users can select a desirable conversion interactively.
-When called from a program, expects two arguments,
-positions FROM and TO (integers or markers) specifying the target region.
-When it returns, the point is at the tail of the selected conversion,
-and the return value is the length of the conversion.
-
-\(fn FROM TO)" t nil)
-
-;;;***
-\f
-;;;### (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-exec-ring-item)
-;;;;;; "kmacro" "kmacro.el" (20707 18685 911514 0))
-;;; Generated autoloads from kmacro.el
- (global-set-key "\C-x(" 'kmacro-start-macro)
- (global-set-key "\C-x)" 'kmacro-end-macro)
- (global-set-key "\C-xe" 'kmacro-end-and-call-macro)
- (global-set-key [f3] 'kmacro-start-macro-or-insert-counter)
- (global-set-key [f4] 'kmacro-end-or-call-macro)
- (global-set-key "\C-x\C-k" 'kmacro-keymap)
- (autoload 'kmacro-keymap "kmacro" "Keymap for keyboard macro commands." t 'keymap)
-
-(autoload 'kmacro-exec-ring-item "kmacro" "\
-Execute item ITEM from the macro ring.
-
-\(fn ITEM ARG)" nil nil)
-
-(autoload 'kmacro-start-macro "kmacro" "\
-Record subsequent keyboard input, defining a keyboard macro.
-The commands are recorded even as they are executed.
-Use \\[kmacro-end-macro] to finish recording and make the macro available.
-Use \\[kmacro-end-and-call-macro] to execute the macro.
-
-Non-nil arg (prefix arg) means append to last macro defined.
-
-With \\[universal-argument] prefix, append to last keyboard macro
-defined. Depending on `kmacro-execute-before-append', this may begin
-by re-executing the last macro as if you typed it again.
-
-Otherwise, it sets `kmacro-counter' to ARG or 0 if missing before
-defining the macro.
-
-Use \\[kmacro-insert-counter] to insert (and increment) the macro counter.
-The counter value can be set or modified via \\[kmacro-set-counter] and \\[kmacro-add-counter].
-The format of the counter can be modified via \\[kmacro-set-format].
-
-Use \\[kmacro-name-last-macro] to give it a permanent name.
-Use \\[kmacro-bind-to-key] to bind it to a key sequence.
-
-\(fn ARG)" t nil)
-
-(autoload 'kmacro-end-macro "kmacro" "\
-Finish defining a keyboard macro.
-The definition was started by \\[kmacro-start-macro].
-The macro is now available for use via \\[kmacro-call-macro],
-or it can be given a name with \\[kmacro-name-last-macro] and then invoked
-under that name.
-
-With numeric arg, repeat macro now that many times,
-counting the definition just completed as the first repetition.
-An argument of zero means repeat until error.
-
-\(fn ARG)" t nil)
-
-(autoload 'kmacro-call-macro "kmacro" "\
-Call the last keyboard macro that you defined with \\[kmacro-start-macro].
-A prefix argument serves as a repeat count. Zero means repeat until error.
-
-When you call the macro, you can call the macro again by repeating
-just the last key in the key sequence that you used to call this
-command. See `kmacro-call-repeat-key' and `kmacro-call-repeat-with-arg'
-for details on how to adjust or disable this behavior.
-
-To make a macro permanent so you can call it even after defining
-others, use \\[kmacro-name-last-macro].
-
-\(fn ARG &optional NO-REPEAT END-MACRO)" t nil)
-
-(autoload 'kmacro-start-macro-or-insert-counter "kmacro" "\
-Record subsequent keyboard input, defining a keyboard macro.
-The commands are recorded even as they are executed.
-
-Sets the `kmacro-counter' to ARG (or 0 if no prefix arg) before defining the
-macro.
-
-With \\[universal-argument], appends to current keyboard macro (keeping
-the current value of `kmacro-counter').
-
-When defining/executing macro, inserts macro counter and increments
-the counter with ARG or 1 if missing. With \\[universal-argument],
-inserts previous `kmacro-counter' (but do not modify counter).
-
-The macro counter can be modified via \\[kmacro-set-counter] and \\[kmacro-add-counter].
-The format of the counter can be modified via \\[kmacro-set-format].
-
-\(fn ARG)" t nil)
-
-(autoload 'kmacro-end-or-call-macro "kmacro" "\
-End kbd macro if currently being defined; else call last kbd macro.
-With numeric prefix ARG, repeat macro that many times.
-With \\[universal-argument], call second macro in macro ring.
-
-\(fn ARG &optional NO-REPEAT)" t nil)
-
-(autoload 'kmacro-end-and-call-macro "kmacro" "\
-Call last keyboard macro, ending it first if currently being defined.
-With numeric prefix ARG, repeat macro that many times.
-Zero argument means repeat until there is an error.
-
-To give a macro a permanent name, so you can call it
-even after defining other macros, use \\[kmacro-name-last-macro].
-
-\(fn ARG &optional NO-REPEAT)" t nil)
-
-(autoload 'kmacro-end-call-mouse "kmacro" "\
-Move point to the position clicked with the mouse and call last kbd macro.
-If kbd macro currently being defined end it before activating it.
-
-\(fn EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (setup-korean-environment-internal) "korea-util"
-;;;;;; "language/korea-util.el" (20707 18685 911514 0))
-;;; Generated autoloads from language/korea-util.el
-
-(defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\
-The kind of Korean keyboard for Korean input method.
-\"\" for 2, \"3\" for 3.")
-
-(autoload 'setup-korean-environment-internal "korea-util" "\
-
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (landmark landmark-test-run) "landmark" "play/landmark.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from play/landmark.el
-
-(defalias 'landmark-repeat 'landmark-test-run)
-
-(autoload 'landmark-test-run "landmark" "\
-Run 100 Landmark games, each time saving the weights from the previous game.
-
-\(fn)" t nil)
-
-(autoload 'landmark "landmark" "\
-Start or resume an Landmark game.
-If a game is in progress, this command allows you to resume it.
-Here is the relation between prefix args and game options:
-
-prefix arg | robot is auto-started | weights are saved from last game
----------------------------------------------------------------------
-none / 1 | yes | no
- 2 | yes | yes
- 3 | no | yes
- 4 | no | no
-
-You start by moving to a square and typing \\[landmark-start-robot],
-if you did not use a prefix arg to ask for automatic start.
-Use \\[describe-mode] for more info.
-
-\(fn PARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (lao-compose-region lao-composition-function lao-transcribe-roman-to-lao-string
-;;;;;; lao-transcribe-single-roman-syllable-to-lao lao-compose-string)
-;;;;;; "lao-util" "language/lao-util.el" (20707 18685 911514 0))
-;;; Generated autoloads from language/lao-util.el
-
-(autoload 'lao-compose-string "lao-util" "\
-
-
-\(fn STR)" nil nil)
-
-(autoload 'lao-transcribe-single-roman-syllable-to-lao "lao-util" "\
-Transcribe a Romanized Lao syllable in the region FROM and TO to Lao string.
-Only the first syllable is transcribed.
-The value has the form: (START END LAO-STRING), where
-START and END are the beginning and end positions of the Roman Lao syllable,
-LAO-STRING is the Lao character transcription of it.
-
-Optional 3rd arg STR, if non-nil, is a string to search for Roman Lao
-syllable. In that case, FROM and TO are indexes to STR.
-
-\(fn FROM TO &optional STR)" nil nil)
-
-(autoload 'lao-transcribe-roman-to-lao-string "lao-util" "\
-Transcribe Romanized Lao string STR to Lao character string.
-
-\(fn STR)" nil nil)
-
-(autoload 'lao-composition-function "lao-util" "\
-
-
-\(fn GSTRING)" nil nil)
-
-(autoload 'lao-compose-region "lao-util" "\
-
-
-\(fn FROM TO)" t nil)
-
-;;;***
-\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" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from international/latexenc.el
-
-(defvar latex-inputenc-coding-alist (purecopy '(("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))) "\
-Mapping from LaTeX encodings in \"inputenc.sty\" to Emacs coding systems.
-LaTeX encodings are specified with \"\\usepackage[encoding]{inputenc}\".
-Used by the function `latexenc-find-file-coding-system'.")
-
-(custom-autoload 'latex-inputenc-coding-alist "latexenc" t)
-
-(autoload 'latexenc-inputenc-to-coding-system "latexenc" "\
-Return the corresponding coding-system for the specified input encoding.
-Return nil if no matching coding system can be found.
-
-\(fn INPUTENC)" nil nil)
-
-(autoload 'latexenc-coding-system-to-inputenc "latexenc" "\
-Return the corresponding input encoding for the specified coding system.
-Return nil if no matching input encoding can be found.
-
-\(fn CS)" nil nil)
-
-(autoload 'latexenc-find-file-coding-system "latexenc" "\
-Determine the coding system of a LaTeX file if it uses \"inputenc.sty\".
-The mapping from LaTeX's \"inputenc.sty\" encoding names to Emacs
-coding system names is determined from `latex-inputenc-coding-alist'.
-
-\(fn ARG-LIST)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display)
-;;;;;; "latin1-disp" "international/latin1-disp.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from international/latin1-disp.el
-
-(defvar latin1-display nil "\
-Set up Latin-1/ASCII display for ISO8859 character sets.
-This is done for each character set in the list `latin1-display-sets',
-if no font is available to display it. Characters are displayed using
-the corresponding Latin-1 characters where they match. Otherwise
-ASCII sequences are used, mostly following the Latin prefix input
-methods. Some different ASCII sequences are used if
-`latin1-display-mnemonic' is non-nil.
-
-This option also treats some characters in the `mule-unicode-...'
-charsets if you don't have a Unicode font with which to display them.
-
-Setting this variable directly does not take effect;
-use either \\[customize] or the function `latin1-display'.")
-
-(custom-autoload 'latin1-display "latin1-disp" nil)
-
-(autoload 'latin1-display "latin1-disp" "\
-Set up Latin-1/ASCII display for the arguments character SETS.
-See option `latin1-display' for the method. The members of the list
-must be in `latin1-display-sets'. With no arguments, reset the
-display for all of `latin1-display-sets'. See also
-`latin1-display-setup'.
-
-\(fn &rest SETS)" nil nil)
-
-(defvar latin1-display-ucs-per-lynx nil "\
-Set up Latin-1/ASCII display for Unicode characters.
-This uses the transliterations of the Lynx browser. The display isn't
-changed if the display can render Unicode characters.
-
-Setting this variable directly does not take effect;
-use either \\[customize] or the function `latin1-display'.")
-
-(custom-autoload 'latin1-display-ucs-per-lynx "latin1-disp" nil)
-
-;;;***
-\f
-;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/ld-script.el
-
-(autoload 'ld-script-mode "ld-script" "\
-A major mode to edit GNU ld script files
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (life) "life" "play/life.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from play/life.el
-
-(autoload 'life "life" "\
-Run Conway's Life simulation.
-The starting pattern is randomly selected. Prefix arg (optional first
-arg non-nil from a program) is the number of seconds to sleep between
-generations (this defaults to 1).
-
-\(fn &optional SLEEPTIME)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (global-linum-mode linum-mode) "linum" "linum.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from linum.el
-
-(autoload 'linum-mode "linum" "\
-Toggle display of line numbers in the left margin (Linum mode).
-With a prefix argument ARG, enable Linum mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-Linum mode is a buffer-local minor mode.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-linum-mode nil "\
-Non-nil if Global-Linum mode is enabled.
-See the command `global-linum-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-linum-mode'.")
-
-(custom-autoload 'global-linum-mode "linum" nil)
-
-(autoload 'global-linum-mode "linum" "\
-Toggle Linum mode in all buffers.
-With prefix ARG, enable Global-Linum mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Linum mode is enabled in all buffers where
-`linum-on' would do it.
-See `linum-mode' for more information on Linum mode.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from loadhist.el
-
-(autoload 'unload-feature "loadhist" "\
-Unload the library that provided FEATURE.
-If the feature is required by any other loaded code, and prefix arg FORCE
-is nil, raise an error.
-
-Standard unloading activities include restoring old autoloads for
-functions defined by the library, undoing any additions that the
-library has made to hook variables or to `auto-mode-alist', undoing
-ELP profiling of functions in that library, unproviding any features
-provided by the library, and canceling timers held in variables
-defined by the library.
-
-If a function `FEATURE-unload-function' is defined, this function
-calls it with no arguments, before doing anything else. That function
-can do whatever is appropriate to undo the loading of the library. If
-`FEATURE-unload-function' returns non-nil, that suppresses the
-standard unloading of the library. Otherwise the standard unloading
-proceeds.
-
-`FEATURE-unload-function' has access to the package's list of
-definitions in the variable `unload-function-defs-list' and could
-remove symbols from it in the event that the package has done
-something strange, such as redefining an Emacs function.
-
-\(fn FEATURE &optional FORCE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches)
-;;;;;; "locate" "locate.el" (20707 18685 911514 0))
-;;; Generated autoloads from locate.el
-
-(defvar locate-ls-subdir-switches (purecopy "-al") "\
-`ls' switches for inserting subdirectories in `*Locate*' buffers.
-This should contain the \"-l\" switch, but not the \"-F\" or \"-b\" switches.")
-
-(custom-autoload 'locate-ls-subdir-switches "locate" t)
-
-(autoload 'locate "locate" "\
-Run the program `locate', putting results in `*Locate*' buffer.
-Pass it SEARCH-STRING as argument. Interactively, prompt for SEARCH-STRING.
-With prefix arg ARG, prompt for the exact shell command to run instead.
-
-This program searches for those file names in a database that match
-SEARCH-STRING and normally outputs all matching absolute file names,
-one per line. The database normally consists of all files on your
-system, or of all files that you have access to. Consult the
-documentation of the program for the details about how it determines
-which file names match SEARCH-STRING. (Those details vary highly with
-the version.)
-
-You can specify another program for this command to run by customizing
-the variables `locate-command' or `locate-make-command-line'.
-
-The main use of FILTER is to implement `locate-with-filter'. See
-the docstring of that function for its meaning.
-
-After preparing the results buffer, this runs `dired-mode-hook' and
-then `locate-post-command-hook'.
-
-\(fn SEARCH-STRING &optional FILTER ARG)" t nil)
-
-(autoload 'locate-with-filter "locate" "\
-Run the executable program `locate' with a filter.
-This function is similar to the function `locate', which see.
-The difference is that, when invoked interactively, the present function
-prompts for both SEARCH-STRING and FILTER. It passes SEARCH-STRING
-to the locate executable program. It produces a `*Locate*' buffer
-that lists only those lines in the output of the locate program that
-contain a match for the regular expression FILTER; this is often useful
-to constrain a big search.
-
-ARG is the interactive prefix arg, which has the same effect as in `locate'.
-
-When called from Lisp, this function is identical with `locate',
-except that FILTER is not optional.
-
-\(fn SEARCH-STRING FILTER &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (log-edit) "log-edit" "vc/log-edit.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from vc/log-edit.el
-
-(autoload 'log-edit "log-edit" "\
-Setup a buffer to enter a log message.
-The buffer is put in mode MODE or `log-edit-mode' if MODE is nil.
-\\<log-edit-mode-map>
-If SETUP is non-nil, erase the buffer and run `log-edit-hook'.
-Set mark and point around the entire contents of the buffer, so
-that it is easy to kill the contents of the buffer with
-\\[kill-region]. Once the user is done editing the message,
-invoking the command \\[log-edit-done] (`log-edit-done') will
-call CALLBACK to do the actual commit.
-
-PARAMS if non-nil is an alist of variables and buffer-local
-values to give them in the Log Edit buffer. Possible keys and
-associated values:
- `log-edit-listfun' -- function taking no arguments that returns the list of
- files that are concerned by the current operation (using relative names);
- `log-edit-diff-function' -- function taking no arguments that
- displays a diff of the files concerned by the current operation.
- `vc-log-fileset' -- the VC fileset to be committed (if any).
-
-If BUFFER is non-nil `log-edit' will jump to that buffer, use it
-to edit the log message and go back to the current buffer when
-done. Otherwise, it uses the current buffer.
-
-\(fn CALLBACK &optional SETUP PARAMS BUFFER MODE &rest IGNORE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (log-view-mode) "log-view" "vc/log-view.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from vc/log-view.el
-
-(autoload 'log-view-mode "log-view" "\
-Major mode for browsing CVS log output.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from longlines.el
-
-(autoload 'longlines-mode "longlines" "\
-Toggle Long Lines mode in this buffer.
-With a prefix argument ARG, enable Long Lines mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-When Long Lines mode is enabled, long lines are wrapped if they
-extend beyond `fill-column'. The soft newlines used for line
-wrapping will not show up when the text is yanked or saved to
-disk.
-
-If the variable `longlines-auto-wrap' is non-nil, lines are
-automatically wrapped whenever the buffer is changed. You can
-always call `fill-paragraph' to fill individual paragraphs.
-
-If the variable `longlines-show-hard-newlines' is non-nil, hard
-newlines are indicated with a symbol.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer
-;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from lpr.el
-
-(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\
-Non-nil if running on MS-DOS or MS Windows.")
-
-(defvar lpr-lp-system (memq system-type '(usg-unix-v hpux irix)) "\
-Non-nil if running on a system type that uses the \"lp\" command.")
-
-(defvar printer-name (and (eq system-type 'ms-dos) "PRN") "\
-The name of a local printer to which data is sent for printing.
-\(Note that PostScript files are sent to `ps-printer-name', which see.)
-
-On Unix-like systems, a string value should be a name understood by
-lpr's -P option; otherwise the value should be nil.
-
-On MS-DOS and MS-Windows systems, a string value is taken as the name of
-a printer device or port, provided `lpr-command' is set to \"\".
-Typical non-default settings would be \"LPT1\" to \"LPT3\" for parallel
-printers, or \"COM1\" to \"COM4\" or \"AUX\" for serial printers, or
-\"//hostname/printer\" for a shared network printer. You can also set
-it to the name of a file, in which case the output gets appended to that
-file. If you want to discard the printed output, set this to \"NUL\".")
-
-(custom-autoload 'printer-name "lpr" t)
-
-(defvar lpr-switches nil "\
-List of strings to pass as extra options for the printer program.
-It is recommended to set `printer-name' instead of including an explicit
-switch on this list.
-See `lpr-command'.")
-
-(custom-autoload 'lpr-switches "lpr" t)
-
-(defvar lpr-command (purecopy (cond (lpr-windows-system "") (lpr-lp-system "lp") (t "lpr"))) "\
-Name of program for printing a file.
-
-On MS-DOS and MS-Windows systems, if the value is an empty string then
-Emacs will write directly to the printer port named by `printer-name'.
-The programs `print' and `nprint' (the standard print programs on
-Windows NT and Novell Netware respectively) are handled specially, using
-`printer-name' as the destination for output; any other program is
-treated like `lpr' except that an explicit filename is given as the last
-argument.")
-
-(custom-autoload 'lpr-command "lpr" t)
-
-(autoload 'lpr-buffer "lpr" "\
-Print buffer contents without pagination or page headers.
-See the variables `lpr-switches' and `lpr-command'
-for customization of the printer command.
-
-\(fn)" t nil)
-
-(autoload 'print-buffer "lpr" "\
-Paginate and print buffer contents.
-
-The variable `lpr-headers-switches' controls how to paginate.
-If it is nil (the default), we run the `pr' program (or whatever program
-`lpr-page-header-program' specifies) to paginate.
-`lpr-page-header-switches' specifies the switches for that program.
-
-Otherwise, the switches in `lpr-headers-switches' are used
-in the print command itself; we expect them to request pagination.
-
-See the variables `lpr-switches' and `lpr-command'
-for further customization of the printer command.
-
-\(fn)" t nil)
-
-(autoload 'lpr-region "lpr" "\
-Print region contents without pagination or page headers.
-See the variables `lpr-switches' and `lpr-command'
-for customization of the printer command.
-
-\(fn START END)" t nil)
-
-(autoload 'print-region "lpr" "\
-Paginate and print the region contents.
-
-The variable `lpr-headers-switches' controls how to paginate.
-If it is nil (the default), we run the `pr' program (or whatever program
-`lpr-page-header-program' specifies) to paginate.
-`lpr-page-header-switches' specifies the switches for that program.
-
-Otherwise, the switches in `lpr-headers-switches' are used
-in the print command itself; we expect them to request pagination.
-
-See the variables `lpr-switches' and `lpr-command'
-for further customization of the printer command.
-
-\(fn START END)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from ls-lisp.el
-
-(defvar ls-lisp-support-shell-wildcards t "\
-Non-nil means ls-lisp treats file patterns as shell wildcards.
-Otherwise they are treated as Emacs regexps (for backward compatibility).")
-
-(custom-autoload 'ls-lisp-support-shell-wildcards "ls-lisp" t)
-
-;;;***
-\f
-;;;### (autoloads (lunar-phases) "lunar" "calendar/lunar.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from calendar/lunar.el
-
-(autoload 'lunar-phases "lunar" "\
-Display the quarters of the moon for last month, this month, and next month.
-If called with an optional prefix argument ARG, prompts for month and year.
-This function is suitable for execution in an init file.
-
-\(fn &optional ARG)" t nil)
-
-(define-obsolete-function-alias 'phases-of-moon 'lunar-phases "23.1")
-
-;;;***
-\f
-;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from progmodes/m4-mode.el
-
-(autoload 'm4-mode "m4-mode" "\
-A major mode to edit m4 macro files.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro
-;;;;;; name-last-kbd-macro) "macros" "macros.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from macros.el
-
-(autoload 'name-last-kbd-macro "macros" "\
-Assign a name to the last keyboard macro defined.
-Argument SYMBOL is the name to define.
-The symbol's function definition becomes the keyboard macro string.
-Such a \"function\" cannot be called from Lisp, but it is a valid editor command.
-
-\(fn SYMBOL)" t nil)
-
-(autoload 'insert-kbd-macro "macros" "\
-Insert in buffer the definition of kbd macro NAME, as Lisp code.
-Optional second arg KEYS means also record the keys it is on
-\(this is the prefix argument, when calling interactively).
-
-This Lisp code will, when executed, define the kbd macro with the same
-definition it has now. If you say to record the keys, the Lisp code
-will also rebind those keys to the macro. Only global key bindings
-are recorded since executing this Lisp code always makes global
-bindings.
-
-To save a kbd macro, visit a file of Lisp code such as your `~/.emacs',
-use this command, and then save the file.
-
-\(fn MACRONAME &optional KEYS)" t nil)
-
-(autoload 'kbd-macro-query "macros" "\
-Query user during kbd macro execution.
- With prefix argument, enters recursive edit, reading keyboard
-commands even within a kbd macro. You can give different commands
-each time the macro executes.
- Without prefix argument, asks whether to continue running the macro.
-Your options are: \\<query-replace-map>
-\\[act] Finish this iteration normally and continue with the next.
-\\[skip] Skip the rest of this iteration, and start the next.
-\\[exit] Stop the macro entirely right now.
-\\[recenter] Redisplay the screen, then ask again.
-\\[edit] Enter recursive edit; ask again when you exit from that.
-
-\(fn FLAG)" t nil)
-
-(autoload 'apply-macro-to-region-lines "macros" "\
-Apply last keyboard macro to all lines in the region.
-For each line that begins in the region, move to the beginning of
-the line, and run the last keyboard macro.
-
-When called from lisp, this function takes two arguments TOP and
-BOTTOM, describing the current region. TOP must be before BOTTOM.
-The optional third argument MACRO specifies a keyboard macro to
-execute.
-
-This is useful for quoting or unquoting included text, adding and
-removing comments, or producing tables where the entries are regular.
-
-For example, in Usenet articles, sections of text quoted from another
-author are indented, or have each line start with `>'. To quote a
-section of text, define a keyboard macro which inserts `>', put point
-and mark at opposite ends of the quoted section, and use
-`\\[apply-macro-to-region-lines]' to mark the entire section.
-
-Suppose you wanted to build a keyword table in C where each entry
-looked like this:
-
- { \"foo\", foo_data, foo_function },
- { \"bar\", bar_data, bar_function },
- { \"baz\", baz_data, baz_function },
-
-You could enter the names in this format:
-
- foo
- bar
- baz
-
-and write a macro to massage a word into a table entry:
-
- \\C-x (
- \\M-d { \"\\C-y\", \\C-y_data, \\C-y_function },
- \\C-x )
-
-and then select the region of un-tablified names and use
-`\\[apply-macro-to-region-lines]' to build the table from the names.
-
-\(fn TOP BOTTOM &optional MACRO)" t nil)
- (define-key ctl-x-map "q" 'kbd-macro-query)
-
-;;;***
-\f
-;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr"
-;;;;;; "mail/mail-extr.el" (20707 18685 911514 0))
-;;; Generated autoloads from mail/mail-extr.el
-
-(autoload 'mail-extract-address-components "mail-extr" "\
-Given an RFC-822 address ADDRESS, extract full name and canonical address.
-Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). If no
-name can be extracted, FULL-NAME will be nil. Also see
-`mail-extr-ignore-single-names' and
-`mail-extr-ignore-realname-equals-mailbox-name'.
-
-If the optional argument ALL is non-nil, then ADDRESS can contain zero
-or more recipients, separated by commas, and we return a list of
-the form ((FULL-NAME CANONICAL-ADDRESS) ...) with one element for
-each recipient. If ALL is nil, then if ADDRESS contains more than
-one recipients, all but the first is ignored.
-
-ADDRESS may be a string or a buffer. If it is a buffer, the visible
-\(narrowed) portion of the buffer will be interpreted as the address.
-\(This feature exists so that the clever caller might be able to avoid
-consing a string.)
-
-\(fn ADDRESS &optional ALL)" nil nil)
-
-(autoload 'what-domain "mail-extr" "\
-Convert mail domain DOMAIN to the country it corresponds to.
-
-\(fn DOMAIN)" t nil)
-
-;;;***
-\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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mail/mail-hist.el
-
-(autoload 'mail-hist-define-keys "mail-hist" "\
-Define keys for accessing mail header history. For use in hooks.
-
-\(fn)" nil nil)
-
-(autoload 'mail-hist-enable "mail-hist" "\
-
-
-\(fn)" nil nil)
-
-(defvar mail-hist-keep-history t "\
-Non-nil means keep a history for headers and text of outgoing mail.")
-
-(custom-autoload 'mail-hist-keep-history "mail-hist" t)
-
-(autoload 'mail-hist-put-headers-into-history "mail-hist" "\
-Put headers and contents of this message into mail header history.
-Each header has its own independent history, as does the body of the
-message.
-
-This function normally would be called when the message is sent.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mail-fetch-field mail-unquote-printable-region
-;;;;;; mail-unquote-printable mail-quote-printable-region mail-quote-printable
-;;;;;; mail-file-babyl-p mail-dont-reply-to-names mail-use-rfc822)
-;;;;;; "mail-utils" "mail/mail-utils.el" (20707 18685 911514 0))
-;;; Generated autoloads from mail/mail-utils.el
-
-(defvar mail-use-rfc822 nil "\
-If non-nil, use a full, hairy RFC822 parser on mail addresses.
-Otherwise, (the default) use a smaller, somewhat faster, and
-often correct parser.")
-
-(custom-autoload 'mail-use-rfc822 "mail-utils" t)
-
-(defvar mail-dont-reply-to-names nil "\
-Regexp specifying addresses to prune from a reply message.
-If this is nil, it is set the first time you compose a reply, to
-a value which excludes your own email address.
-
-Matching addresses are excluded from the CC field in replies, and
-also the To field, unless this would leave an empty To field.")
-
-(custom-autoload 'mail-dont-reply-to-names "mail-utils" t)
-
-(autoload 'mail-file-babyl-p "mail-utils" "\
-Return non-nil if FILE is a Babyl file.
-
-\(fn FILE)" nil nil)
-
-(autoload 'mail-quote-printable "mail-utils" "\
-Convert a string to the \"quoted printable\" Q encoding if necessary.
-If the string contains only ASCII characters and no troublesome ones,
-we return it unconverted.
-
-If the optional argument WRAPPER is non-nil,
-we add the wrapper characters =?ISO-8859-1?Q?....?=.
-
-\(fn STRING &optional WRAPPER)" nil nil)
-
-(autoload 'mail-quote-printable-region "mail-utils" "\
-Convert the region to the \"quoted printable\" Q encoding.
-If the optional argument WRAPPER is non-nil,
-we add the wrapper characters =?ISO-8859-1?Q?....?=.
-
-\(fn BEG END &optional WRAPPER)" t nil)
-
-(autoload 'mail-unquote-printable "mail-utils" "\
-Undo the \"quoted printable\" encoding.
-If the optional argument WRAPPER is non-nil,
-we expect to find and remove the wrapper characters =?ISO-8859-1?Q?....?=.
-
-\(fn STRING &optional WRAPPER)" nil nil)
-
-(autoload 'mail-unquote-printable-region "mail-utils" "\
-Undo the \"quoted printable\" encoding in buffer from BEG to END.
-If the optional argument WRAPPER is non-nil,
-we expect to find and remove the wrapper characters =?ISO-8859-1?Q?....?=.
-On encountering malformed quoted-printable text, exits with an error,
-unless NOERROR is non-nil, in which case it continues, and returns nil
-when finished. Returns non-nil on successful completion.
-If UNIBYTE is non-nil, insert converted characters as unibyte.
-That is useful if you are going to character code decoding afterward,
-as Rmail does.
-
-\(fn BEG END &optional WRAPPER NOERROR UNIBYTE)" t nil)
-
-(autoload 'mail-fetch-field "mail-utils" "\
-Return the value of the header field whose type is FIELD-NAME.
-If second arg LAST is non-nil, use the last field of type FIELD-NAME.
-If third arg ALL is non-nil, concatenate all such fields with commas between.
-If 4th arg LIST is non-nil, return a list of all such fields.
-The buffer should be narrowed to just the header, else false
-matches may be returned from the message body.
-
-\(fn FIELD-NAME &optional LAST ALL LIST)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup
-;;;;;; mail-abbrevs-mode) "mailabbrev" "mail/mailabbrev.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from mail/mailabbrev.el
-
-(defvar mail-abbrevs-mode nil "\
-Non-nil if Mail-Abbrevs mode is enabled.
-See the command `mail-abbrevs-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `mail-abbrevs-mode'.")
-
-(custom-autoload 'mail-abbrevs-mode "mailabbrev" nil)
-
-(autoload 'mail-abbrevs-mode "mailabbrev" "\
-Toggle abbrev expansion of mail aliases (Mail Abbrevs mode).
-With a prefix argument ARG, enable Mail Abbrevs mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Mail Abbrevs mode is a global minor mode. When enabled,
-abbrev-like expansion is performed when editing certain mail
-headers (those specified by `mail-abbrev-mode-regexp'), based on
-the entries in your `mail-personal-alias-file'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'mail-abbrevs-setup "mailabbrev" "\
-Initialize use of the `mailabbrev' package.
-
-\(fn)" nil nil)
-
-(autoload 'build-mail-abbrevs "mailabbrev" "\
-Read mail aliases from personal mail alias file and set `mail-abbrevs'.
-By default this is the file specified by `mail-personal-alias-file'.
-
-\(fn &optional FILE RECURSIVEP)" nil nil)
-
-(autoload 'define-mail-abbrev "mailabbrev" "\
-Define NAME as a mail alias abbrev that translates to DEFINITION.
-If DEFINITION contains multiple addresses, separate them with commas.
-
-Optional argument FROM-MAILRC-FILE means that DEFINITION comes
-from a mailrc file. In that case, addresses are separated with
-spaces and addresses with embedded spaces are surrounded by
-double-quotes.
-
-\(fn NAME DEFINITION &optional FROM-MAILRC-FILE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mail-complete mail-completion-at-point-function
-;;;;;; define-mail-alias expand-mail-aliases mail-complete-style)
-;;;;;; "mailalias" "mail/mailalias.el" (20707 18685 911514 0))
-;;; Generated autoloads from mail/mailalias.el
-
-(defvar mail-complete-style 'angles "\
-Specifies how \\[mail-complete] formats the full name when it completes.
-If `nil', they contain just the return address like:
- king@grassland.com
-If `parens', they look like:
- king@grassland.com (Elvis Parsley)
-If `angles', they look like:
- Elvis Parsley <king@grassland.com>")
-
-(custom-autoload 'mail-complete-style "mailalias" t)
-
-(autoload 'expand-mail-aliases "mailalias" "\
-Expand all mail aliases in suitable header fields found between BEG and END.
-If interactive, expand in header fields.
-Suitable header fields are `To', `From', `CC' and `BCC', `Reply-to', and
-their `Resent-' variants.
-
-Optional second arg EXCLUDE may be a regular expression defining text to be
-removed from alias expansions.
-
-\(fn BEG END &optional EXCLUDE)" t nil)
-
-(autoload 'define-mail-alias "mailalias" "\
-Define NAME as a mail alias that translates to DEFINITION.
-This means that sending a message to NAME will actually send to DEFINITION.
-
-Normally, the addresses in DEFINITION must be separated by commas.
-If FROM-MAILRC-FILE is non-nil, then addresses in DEFINITION
-can be separated by spaces; an address can contain spaces
-if it is quoted with double-quotes.
-
-\(fn NAME DEFINITION &optional FROM-MAILRC-FILE)" t nil)
-
-(autoload 'mail-completion-at-point-function "mailalias" "\
-Compute completion data for mail aliases.
-For use on `completion-at-point-functions'.
-
-\(fn)" nil nil)
-
-(autoload 'mail-complete "mailalias" "\
-Perform completion on header field or word preceding point.
-Completable headers are according to `mail-complete-alist'. If none matches
-current header, calls `mail-complete-function' and passes prefix ARG if any.
-
-\(fn ARG)" t nil)
-
-(make-obsolete 'mail-complete 'mail-completion-at-point-function "24.1")
-
-;;;***
-\f
-;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mail/mailclient.el
-
-(autoload 'mailclient-send-it "mailclient" "\
-Pass current buffer on to the system's mail client.
-Suitable value for `send-mail-function'.
-The mail client is taken to be the handler of mailto URLs.
-
-\(fn)" nil nil)
-
-;;;***
-\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" (20746 5161 430619 0))
-;;; Generated autoloads from progmodes/make-mode.el
-
-(autoload 'makefile-mode "make-mode" "\
-Major mode for editing standard Makefiles.
-
-If you are editing a file for a different make, try one of the
-variants `makefile-automake-mode', `makefile-gmake-mode',
-`makefile-makepp-mode', `makefile-bsdmake-mode' or,
-`makefile-imake-mode'. All but the last should be correctly
-chosen based on the file name, except if it is *.mk. This
-function ends by invoking the function(s) `makefile-mode-hook'.
-
-It is strongly recommended to use `font-lock-mode', because that
-provides additional parsing information. This is used for
-example to see that a rule action `echo foo: bar' is a not rule
-dependency, despite the colon.
-
-\\{makefile-mode-map}
-
-In the browser, use the following keys:
-
-\\{makefile-browser-map}
-
-Makefile mode can be configured by modifying the following variables:
-
-`makefile-browser-buffer-name':
- Name of the macro- and target browser buffer.
-
-`makefile-target-colon':
- The string that gets appended to all target names
- inserted by `makefile-insert-target'.
- \":\" or \"::\" are quite common values.
-
-`makefile-macro-assign':
- The string that gets appended to all macro names
- inserted by `makefile-insert-macro'.
- The normal value should be \" = \", since this is what
- standard make expects. However, newer makes such as dmake
- allow a larger variety of different macro assignments, so you
- might prefer to use \" += \" or \" := \" .
-
-`makefile-tab-after-target-colon':
- If you want a TAB (instead of a space) to be appended after the
- target colon, then set this to a non-nil value.
-
-`makefile-browser-leftmost-column':
- Number of blanks to the left of the browser selection mark.
-
-`makefile-browser-cursor-column':
- Column in which the cursor is positioned when it moves
- up or down in the browser.
-
-`makefile-browser-selected-mark':
- String used to mark selected entries in the browser.
-
-`makefile-browser-unselected-mark':
- String used to mark unselected entries in the browser.
-
-`makefile-browser-auto-advance-after-selection-p':
- If this variable is set to a non-nil value the cursor
- will automagically advance to the next line after an item
- has been selected in the browser.
-
-`makefile-pickup-everything-picks-up-filenames-p':
- If this variable is set to a non-nil value then
- `makefile-pickup-everything' also picks up filenames as targets
- (i.e. it calls `makefile-pickup-filenames-as-targets'), otherwise
- filenames are omitted.
-
-`makefile-cleanup-continuations':
- If this variable is set to a non-nil value then Makefile mode
- will assure that no line in the file ends with a backslash
- (the continuation character) followed by any whitespace.
- This is done by silently removing the trailing whitespace, leaving
- the backslash itself intact.
- IMPORTANT: Please note that enabling this option causes Makefile mode
- to MODIFY A FILE WITHOUT YOUR CONFIRMATION when \"it seems necessary\".
-
-`makefile-browser-hook':
- A function or list of functions to be called just before the
- browser is entered. This is executed in the makefile buffer.
-
-`makefile-special-targets-list':
- List of special targets. You will be offered to complete
- on one of those in the minibuffer whenever you enter a `.'.
- at the beginning of a line in Makefile mode.
-
-\(fn)" t nil)
-
-(autoload 'makefile-automake-mode "make-mode" "\
-An adapted `makefile-mode' that knows about automake.
-
-\(fn)" t nil)
-
-(autoload 'makefile-gmake-mode "make-mode" "\
-An adapted `makefile-mode' that knows about gmake.
-
-\(fn)" t nil)
-
-(autoload 'makefile-makepp-mode "make-mode" "\
-An adapted `makefile-mode' that knows about makepp.
-
-\(fn)" t nil)
-
-(autoload 'makefile-bsdmake-mode "make-mode" "\
-An adapted `makefile-mode' that knows about BSD make.
-
-\(fn)" t nil)
-
-(autoload 'makefile-imake-mode "make-mode" "\
-An adapted `makefile-mode' that knows about imake.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from makesum.el
-
-(autoload 'make-command-summary "makesum" "\
-Make a summary of current key bindings in the buffer *Summary*.
-Previous contents of that buffer are killed first.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (Man-bookmark-jump man-follow man) "man" "man.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from man.el
-
-(defalias 'manual-entry 'man)
-
-(autoload 'man "man" "\
-Get a Un*x manual page and put it in a buffer.
-This command is the top-level command in the man package. It
-runs a Un*x command to retrieve and clean a manpage in the
-background and places the results in a `Man-mode' browsing
-buffer. See variable `Man-notify-method' for what happens when
-the buffer is ready. If a buffer already exists for this man
-page, it will display immediately.
-
-For a manpage from a particular section, use either of the
-following. \"cat(1)\" is how cross-references appear and is
-passed to man as \"1 cat\".
-
- cat(1)
- 1 cat
-
-To see manpages from all sections related to a subject, use an
-\"all pages\" option (which might be \"-a\" if it's not the
-default), then step through with `Man-next-manpage' (\\<Man-mode-map>\\[Man-next-manpage]) etc.
-Add to `Man-switches' to make this option permanent.
-
- -a chmod
-
-An explicit filename can be given too. Use -l if it might
-otherwise look like a page name.
-
- /my/file/name.1.gz
- -l somefile.1
-
-An \"apropos\" query with -k gives a buffer of matching page
-names or descriptions. The pattern argument is usually an
-\"egrep\" style regexp.
-
- -k pattern
-
-\(fn MAN-ARGS)" t nil)
-
-(autoload 'man-follow "man" "\
-Get a Un*x manual page of the item under point and put it in a buffer.
-
-\(fn MAN-ARGS)" t nil)
-
-(autoload 'Man-bookmark-jump "man" "\
-Default bookmark handler for Man buffers.
-
-\(fn BOOKMARK)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (master-mode) "master" "master.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from master.el
-
-(autoload 'master-mode "master" "\
-Toggle Master mode.
-With a prefix argument ARG, enable Master mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-When Master mode is enabled, you can scroll the slave buffer
-using the following commands:
-
-\\{master-mode-map}
-
-The slave buffer is stored in the buffer-local variable `master-of'.
-You can set this variable using `master-set-slave'. You can show
-yourself the value of `master-of' by calling `master-show-slave'.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (minibuffer-depth-indicate-mode) "mb-depth" "mb-depth.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mb-depth.el
-
-(defvar minibuffer-depth-indicate-mode nil "\
-Non-nil if Minibuffer-Depth-Indicate mode is enabled.
-See the command `minibuffer-depth-indicate-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `minibuffer-depth-indicate-mode'.")
-
-(custom-autoload 'minibuffer-depth-indicate-mode "mb-depth" nil)
-
-(autoload 'minibuffer-depth-indicate-mode "mb-depth" "\
-Toggle Minibuffer Depth Indication mode.
-With a prefix argument ARG, enable Minibuffer Depth Indication
-mode if ARG is positive, and disable it otherwise. If called
-from Lisp, enable the mode if ARG is omitted or nil.
-
-Minibuffer Depth Indication mode is a global minor mode. When
-enabled, any recursive use of the minibuffer will show the
-recursion depth in the minibuffer prompt. This is only useful if
-`enable-recursive-minibuffers' is non-nil.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (message-unbold-region message-bold-region message-news-other-frame
-;;;;;; message-news-other-window message-mail-other-frame message-mail-other-window
-;;;;;; message-bounce message-resend message-insinuate-rmail message-forward-rmail-make-body
-;;;;;; message-forward-make-body message-forward message-recover
-;;;;;; message-supersede message-cancel-news message-followup message-wide-reply
-;;;;;; message-reply message-news message-mail message-mode) "message"
-;;;;;; "gnus/message.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/message.el
-
-(define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook)
-
-(autoload 'message-mode "message" "\
-Major mode for editing mail and news to be sent.
-Like Text Mode but with these additional commands:\\<message-mode-map>
-C-c C-s `message-send' (send the message) C-c C-c `message-send-and-exit'
-C-c C-d Postpone sending the message C-c C-k Kill the message
-C-c C-f move to a header field (and create it if there isn't):
- C-c C-f C-t move to To C-c C-f C-s move to Subject
- C-c C-f C-c move to Cc C-c C-f C-b move to Bcc
- C-c C-f C-w move to Fcc C-c C-f C-r move to Reply-To
- C-c C-f C-u move to Summary C-c C-f C-n move to Newsgroups
- C-c C-f C-k move to Keywords C-c C-f C-d move to Distribution
- C-c C-f C-o move to From (\"Originator\")
- C-c C-f C-f move to Followup-To
- C-c C-f C-m move to Mail-Followup-To
- C-c C-f C-e move to Expires
- C-c C-f C-i cycle through Importance values
- C-c C-f s change subject and append \"(was: <Old Subject>)\"
- C-c C-f x crossposting with FollowUp-To header and note in body
- C-c C-f t replace To: header with contents of Cc: or Bcc:
- C-c C-f a Insert X-No-Archive: header and a note in the body
-C-c C-t `message-insert-to' (add a To header to a news followup)
-C-c C-l `message-to-list-only' (removes all but list address in to/cc)
-C-c C-n `message-insert-newsgroups' (add a Newsgroup header to a news reply)
-C-c C-b `message-goto-body' (move to beginning of message text).
-C-c C-i `message-goto-signature' (move to the beginning of the signature).
-C-c C-w `message-insert-signature' (insert `message-signature-file' file).
-C-c C-y `message-yank-original' (insert current message, if any).
-C-c C-q `message-fill-yanked-message' (fill what was yanked).
-C-c C-e `message-elide-region' (elide the text between point and mark).
-C-c C-v `message-delete-not-region' (remove the text outside the region).
-C-c C-z `message-kill-to-signature' (kill the text up to the signature).
-C-c C-r `message-caesar-buffer-body' (rot13 the message body).
-C-c C-a `mml-attach-file' (attach a file as MIME).
-C-c C-u `message-insert-or-toggle-importance' (insert or cycle importance).
-C-c M-n `message-insert-disposition-notification-to' (request receipt).
-C-c M-m `message-mark-inserted-region' (mark region with enclosing tags).
-C-c M-f `message-mark-insert-file' (insert file marked with enclosing tags).
-M-RET `message-newline-and-reformat' (break the line and reformat).
-
-\(fn)" t nil)
-
-(autoload 'message-mail "message" "\
-Start editing a mail message to be sent.
-OTHER-HEADERS is an alist of header/value pairs. CONTINUE says whether
-to continue editing a message already being composed. SWITCH-FUNCTION
-is a function used to switch to and display the mail buffer.
-
-\(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-FUNCTION YANK-ACTION SEND-ACTIONS RETURN-ACTION &rest IGNORED)" t nil)
-
-(autoload 'message-news "message" "\
-Start editing a news article to be sent.
-
-\(fn &optional NEWSGROUPS SUBJECT)" t nil)
-
-(autoload 'message-reply "message" "\
-Start editing a reply to the article in the current buffer.
-
-\(fn &optional TO-ADDRESS WIDE SWITCH-FUNCTION)" t nil)
-
-(autoload 'message-wide-reply "message" "\
-Make a \"wide\" reply to the message in the current buffer.
-
-\(fn &optional TO-ADDRESS)" t nil)
-
-(autoload 'message-followup "message" "\
-Follow up to the message in the current buffer.
-If TO-NEWSGROUPS, use that as the new Newsgroups line.
-
-\(fn &optional TO-NEWSGROUPS)" t nil)
-
-(autoload 'message-cancel-news "message" "\
-Cancel an article you posted.
-If ARG, allow editing of the cancellation message.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'message-supersede "message" "\
-Start composing a message to supersede the current message.
-This is done simply by taking the old article and adding a Supersedes
-header line with the old Message-ID.
-
-\(fn)" t nil)
-
-(autoload 'message-recover "message" "\
-Reread contents of current buffer from its last auto-save file.
-
-\(fn)" t nil)
-
-(autoload 'message-forward "message" "\
-Forward the current message via mail.
-Optional NEWS will use news to forward instead of mail.
-Optional DIGEST will use digest to forward.
-
-\(fn &optional NEWS DIGEST)" t nil)
-
-(autoload 'message-forward-make-body "message" "\
-
-
-\(fn FORWARD-BUFFER &optional DIGEST)" nil nil)
-
-(autoload 'message-forward-rmail-make-body "message" "\
-
-
-\(fn FORWARD-BUFFER)" nil nil)
-
-(autoload 'message-insinuate-rmail "message" "\
-Let RMAIL use message to forward.
-
-\(fn)" t nil)
-
-(autoload 'message-resend "message" "\
-Resend the current article to ADDRESS.
-
-\(fn ADDRESS)" t nil)
-
-(autoload 'message-bounce "message" "\
-Re-mail the current message.
-This only makes sense if the current message is a bounce message that
-contains some mail you have written which has been bounced back to
-you.
-
-\(fn)" t nil)
-
-(autoload 'message-mail-other-window "message" "\
-Like `message-mail' command, but display mail buffer in another window.
-
-\(fn &optional TO SUBJECT)" t nil)
-
-(autoload 'message-mail-other-frame "message" "\
-Like `message-mail' command, but display mail buffer in another frame.
-
-\(fn &optional TO SUBJECT)" t nil)
-
-(autoload 'message-news-other-window "message" "\
-Start editing a news article to be sent.
-
-\(fn &optional NEWSGROUPS SUBJECT)" t nil)
-
-(autoload 'message-news-other-frame "message" "\
-Start editing a news article to be sent.
-
-\(fn &optional NEWSGROUPS SUBJECT)" t nil)
-
-(autoload 'message-bold-region "message" "\
-Bold all nonblank characters in the region.
-Works by overstriking characters.
-Called from program, takes two arguments START and END
-which specify the range to operate on.
-
-\(fn START END)" t nil)
-
-(autoload 'message-unbold-region "message" "\
-Remove all boldness (overstruck characters) in the region.
-Called from program, takes two arguments START and END
-which specify the range to operate on.
-
-\(fn START END)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/meta-mode.el
-
-(autoload 'metafont-mode "meta-mode" "\
-Major mode for editing Metafont sources.
-
-\(fn)" t nil)
-
-(autoload 'metapost-mode "meta-mode" "\
-Major mode for editing MetaPost sources.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body
-;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mail/metamail.el
-
-(autoload 'metamail-interpret-header "metamail" "\
-Interpret a header part of a MIME message in current buffer.
-Its body part is not interpreted at all.
-
-\(fn)" t nil)
-
-(autoload 'metamail-interpret-body "metamail" "\
-Interpret a body part of a MIME message in current buffer.
-Optional argument VIEWMODE specifies the value of the
-EMACS_VIEW_MODE environment variable (defaulted to 1).
-Optional argument NODISPLAY non-nil means buffer is not
-redisplayed as output is inserted.
-Its header part is not interpreted at all.
-
-\(fn &optional VIEWMODE NODISPLAY)" t nil)
-
-(autoload 'metamail-buffer "metamail" "\
-Process current buffer through `metamail'.
-Optional argument VIEWMODE specifies the value of the
-EMACS_VIEW_MODE environment variable (defaulted to 1).
-Optional argument BUFFER specifies a buffer to be filled (nil
-means current).
-Optional argument NODISPLAY non-nil means buffer is not
-redisplayed as output is inserted.
-
-\(fn &optional VIEWMODE BUFFER NODISPLAY)" t nil)
-
-(autoload 'metamail-region "metamail" "\
-Process current region through 'metamail'.
-Optional argument VIEWMODE specifies the value of the
-EMACS_VIEW_MODE environment variable (defaulted to 1).
-Optional argument BUFFER specifies a buffer to be filled (nil
-means current).
-Optional argument NODISPLAY non-nil means buffer is not
-redisplayed as output is inserted.
-
-\(fn BEG END &optional VIEWMODE BUFFER NODISPLAY)" t nil)
-
-;;;***
-\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" (20707 18685 911514 0))
-;;; Generated autoloads from mh-e/mh-comp.el
-
-(autoload 'mh-smail "mh-comp" "\
-Compose a message with the MH mail system.
-See `mh-send' for more details on composing mail.
-
-\(fn)" t nil)
-
-(autoload 'mh-smail-other-window "mh-comp" "\
-Compose a message with the MH mail system in other window.
-See `mh-send' for more details on composing mail.
-
-\(fn)" t nil)
-
-(autoload 'mh-smail-batch "mh-comp" "\
-Compose a message with the MH mail system.
-
-This function does not prompt the user for any header fields, and
-thus is suitable for use by programs that want to create a mail
-buffer. Users should use \\[mh-smail] to compose mail.
-
-Optional arguments for setting certain fields include TO,
-SUBJECT, and OTHER-HEADERS. Additional arguments are IGNORED.
-
-This function remains for Emacs 21 compatibility. New
-applications should use `mh-user-agent-compose'.
-
-\(fn &optional TO SUBJECT OTHER-HEADERS &rest IGNORED)" nil nil)
-
-(define-mail-user-agent 'mh-e-user-agent 'mh-user-agent-compose 'mh-send-letter 'mh-fully-kill-draft 'mh-before-send-letter-hook)
-
-(autoload 'mh-user-agent-compose "mh-comp" "\
-Set up mail composition draft with the MH mail system.
-This is the `mail-user-agent' entry point to MH-E. This function
-conforms to the contract specified by `define-mail-user-agent'
-which means that this function should accept the same arguments
-as `compose-mail'.
-
-The optional arguments TO and SUBJECT specify recipients and the
-initial Subject field, respectively.
-
-OTHER-HEADERS is an alist specifying additional header fields.
-Elements look like (HEADER . VALUE) where both HEADER and VALUE
-are strings.
-
-CONTINUE, SWITCH-FUNCTION, YANK-ACTION, SEND-ACTIONS, and
-RETURN-ACTION and any additional arguments are IGNORED.
-
-\(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-FUNCTION YANK-ACTION SEND-ACTIONS RETURN-ACTION &rest IGNORED)" nil nil)
-
-(autoload 'mh-send-letter "mh-comp" "\
-Save draft and send message.
-
-When you are all through editing a message, you send it with this
-command. You can give a prefix argument ARG to monitor the first stage
-of the delivery; this output can be found in a buffer called \"*MH-E
-Mail Delivery*\".
-
-The hook `mh-before-send-letter-hook' is run at the beginning of
-this command. For example, if you want to check your spelling in
-your message before sending, add the function `ispell-message'.
-
-Unless `mh-insert-auto-fields' had previously been called
-manually, the function `mh-insert-auto-fields' is called to
-insert fields based upon the recipients. If fields are added, you
-are given a chance to see and to confirm these fields before the
-message is actually sent. You can do away with this confirmation
-by turning off the option `mh-auto-fields-prompt-flag'.
-
-In case the MH \"send\" program is installed under a different name,
-use `mh-send-prog' to tell MH-E the name.
-
-The hook `mh-annotate-msg-hook' is run after annotating the
-message and scan line.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'mh-fully-kill-draft "mh-comp" "\
-Quit editing and delete draft message.
-
-If for some reason you are not happy with the draft, you can use
-this command to kill the draft buffer and delete the draft
-message. Use the command \\[kill-buffer] if you don't want to
-delete the draft message.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from mh-e/mh-e.el
-
-(put 'mh-progs 'risky-local-variable t)
-
-(put 'mh-lib 'risky-local-variable t)
-
-(put 'mh-lib-progs 'risky-local-variable t)
-
-(autoload 'mh-version "mh-e" "\
-Display version information about MH-E and the MH mail handling system.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder"
-;;;;;; "mh-e/mh-folder.el" (20707 18685 911514 0))
-;;; Generated autoloads from mh-e/mh-folder.el
-
-(autoload 'mh-rmail "mh-folder" "\
-Incorporate new mail with MH.
-Scan an MH folder if ARG is non-nil.
-
-This function is an entry point to MH-E, the Emacs interface to
-the MH mail system.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'mh-nmail "mh-folder" "\
-Check for new mail in inbox folder.
-Scan an MH folder if ARG is non-nil.
-
-This function is an entry point to MH-E, the Emacs interface to
-the MH mail system.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'mh-folder-mode "mh-folder" "\
-Major MH-E mode for \"editing\" an MH folder scan listing.\\<mh-folder-mode-map>
-
-You can show the message the cursor is pointing to, and step through
-the messages. Messages can be marked for deletion or refiling into
-another folder; these commands are executed all at once with a
-separate command.
-
-Options that control this mode can be changed with
-\\[customize-group]; specify the \"mh\" group. In particular, please
-see the `mh-scan-format-file' option if you wish to modify scan's
-format.
-
-When a folder is visited, the hook `mh-folder-mode-hook' is run.
-
-Ranges
-======
-Many commands that operate on individual messages, such as
-`mh-forward' or `mh-refile-msg' take a RANGE argument. This argument
-can be used in several ways.
-
-If you provide the prefix argument (\\[universal-argument]) to
-these commands, then you will be prompted for the message range.
-This can be any valid MH range which can include messages,
-sequences, and the abbreviations (described in the mh(1) man
-page):
-
-<num1>-<num2>
- Indicates all messages in the range <num1> to <num2>, inclusive.
- The range must be nonempty.
-
-<num>:N
-<num>:+N
-<num>:-N
- Up to N messages beginning with (or ending with) message num. Num
- may be any of the predefined symbols: first, prev, cur, next or
- last.
-
-first:N
-prev:N
-next:N
-last:N
- The first, previous, next or last messages, if they exist.
-
-all
- All of the messages.
-
-For example, a range that shows all of these things is `1 2 3
-5-10 last:5 unseen'.
-
-If the option `transient-mark-mode' is set to t and you set a
-region in the MH-Folder buffer, then the MH-E command will
-perform the operation on all messages in that region.
-
-\\{mh-folder-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight"
-;;;;;; "midnight.el" (20707 18685 911514 0))
-;;; Generated autoloads from midnight.el
-
-(autoload 'clean-buffer-list "midnight" "\
-Kill old buffers that have not been displayed recently.
-The relevant variables are `clean-buffer-list-delay-general',
-`clean-buffer-list-delay-special', `clean-buffer-list-kill-buffer-names',
-`clean-buffer-list-kill-never-buffer-names',
-`clean-buffer-list-kill-regexps' and
-`clean-buffer-list-kill-never-regexps'.
-While processing buffers, this procedure displays messages containing
-the current date/time, buffer name, how many seconds ago it was
-displayed (can be nil if the buffer was never displayed) and its
-lifetime, i.e., its \"age\" when it will be purged.
-
-\(fn)" t nil)
-
-(autoload 'midnight-delay-set "midnight" "\
-Modify `midnight-timer' according to `midnight-delay'.
-Sets the first argument SYMB (which must be symbol `midnight-delay')
-to its second argument TM.
-
-\(fn SYMB TM)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef"
-;;;;;; "minibuf-eldef.el" (20707 18685 911514 0))
-;;; Generated autoloads from minibuf-eldef.el
-
-(defvar minibuffer-electric-default-mode nil "\
-Non-nil if Minibuffer-Electric-Default mode is enabled.
-See the command `minibuffer-electric-default-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `minibuffer-electric-default-mode'.")
-
-(custom-autoload 'minibuffer-electric-default-mode "minibuf-eldef" nil)
-
-(autoload 'minibuffer-electric-default-mode "minibuf-eldef" "\
-Toggle Minibuffer Electric Default mode.
-With a prefix argument ARG, enable Minibuffer Electric Default
-mode if ARG is positive, and disable it otherwise. If called
-from Lisp, enable the mode if ARG is omitted or nil.
-
-Minibuffer Electric Default mode is a global minor mode. When
-enabled, minibuffer prompts that show a default value only show
-the default when it's applicable -- that is, when hitting RET
-would yield the default value. If the user modifies the input
-such that hitting RET would enter a non-default value, the prompt
-is modified to remove the default indication.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (list-dynamic-libraries butterfly) "misc" "misc.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from misc.el
-
-(autoload 'butterfly "misc" "\
-Use butterflies to flip the desired bit on the drive platter.
-Open hands and let the delicate wings flap once. The disturbance
-ripples outward, changing the flow of the eddy currents in the
-upper atmosphere. These cause momentary pockets of higher-pressure
-air to form, which act as lenses that deflect incoming cosmic rays,
-focusing them to strike the drive platter and flip the desired bit.
-You can type `M-x butterfly C-M-c' to run it. This is a permuted
-variation of `C-x M-c M-butterfly' from url `http://xkcd.com/378/'.
-
-\(fn)" t nil)
-
-(autoload 'list-dynamic-libraries "misc" "\
-Display a list of all dynamic libraries known to Emacs.
-\(These are the libraries listed in `dynamic-library-alist'.)
-If optional argument LOADED-ONLY-P (interactively, prefix arg)
-is non-nil, only libraries already loaded are listed.
-Optional argument BUFFER specifies a buffer to use, instead of
-\"*Dynamic Libraries*\".
-The return value is always nil.
-
-\(fn &optional LOADED-ONLY-P BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (multi-isearch-files-regexp multi-isearch-files
-;;;;;; multi-isearch-buffers-regexp multi-isearch-buffers multi-isearch-setup)
-;;;;;; "misearch" "misearch.el" (20707 18685 911514 0))
-;;; Generated autoloads from misearch.el
- (add-hook 'isearch-mode-hook 'multi-isearch-setup)
-
-(defvar multi-isearch-next-buffer-function nil "\
-Function to call to get the next buffer to search.
-
-When this variable is set to a function that returns a buffer, then
-after typing another \\[isearch-forward] or \\[isearch-backward] at a failing search, the search goes
-to the next buffer in the series and continues searching for the
-next occurrence.
-
-This function should return the next buffer (it doesn't need to switch
-to it), or nil if it can't find the next buffer (when it reaches the
-end of the search space).
-
-The first argument of this function is the current buffer where the
-search is currently searching. It defines the base buffer relative to
-which this function should find the next buffer. When the isearch
-direction is backward (when `isearch-forward' is nil), this function
-should return the previous buffer to search.
-
-If the second argument of this function WRAP is non-nil, then it
-should return the first buffer in the series; and for the backward
-search, it should return the last buffer in the series.")
-
-(defvar multi-isearch-next-buffer-current-function nil "\
-The currently active function to get the next buffer to search.
-Initialized from `multi-isearch-next-buffer-function' when
-Isearch starts.")
-
-(defvar multi-isearch-current-buffer nil "\
-The buffer where the search is currently searching.
-The value is nil when the search still is in the initial buffer.")
-
-(autoload 'multi-isearch-setup "misearch" "\
-Set up isearch to search multiple buffers.
-Intended to be added to `isearch-mode-hook'.
-
-\(fn)" nil nil)
-
-(autoload 'multi-isearch-buffers "misearch" "\
-Start multi-buffer Isearch on a list of BUFFERS.
-This list can contain live buffers or their names.
-Interactively read buffer names to search, one by one, ended with RET.
-With a prefix argument, ask for a regexp, and search in buffers
-whose names match the specified regexp.
-
-\(fn BUFFERS)" t nil)
-
-(autoload 'multi-isearch-buffers-regexp "misearch" "\
-Start multi-buffer regexp Isearch on a list of BUFFERS.
-This list can contain live buffers or their names.
-Interactively read buffer names to search, one by one, ended with RET.
-With a prefix argument, ask for a regexp, and search in buffers
-whose names match the specified regexp.
-
-\(fn BUFFERS)" t nil)
-
-(autoload 'multi-isearch-files "misearch" "\
-Start multi-buffer Isearch on a list of FILES.
-Relative file names in this list are expanded to absolute
-file names using the current buffer's value of `default-directory'.
-Interactively read file names to search, one by one, ended with RET.
-With a prefix argument, ask for a wildcard, and search in file buffers
-whose file names match the specified wildcard.
-
-\(fn FILES)" t nil)
-
-(autoload 'multi-isearch-files-regexp "misearch" "\
-Start multi-buffer regexp Isearch on a list of FILES.
-Relative file names in this list are expanded to absolute
-file names using the current buffer's value of `default-directory'.
-Interactively read file names to search, one by one, ended with RET.
-With a prefix argument, ask for a wildcard, and search in file buffers
-whose file names match the specified wildcard.
-
-\(fn FILES)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/mixal-mode.el
-
-(autoload 'mixal-mode "mixal-mode" "\
-Major mode for the mixal asm language.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mm-default-file-encoding) "mm-encode" "gnus/mm-encode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/mm-encode.el
-
-(autoload 'mm-default-file-encoding "mm-encode" "\
-Return a default encoding for FILE.
-
-\(fn FILE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents)
-;;;;;; "mm-extern" "gnus/mm-extern.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/mm-extern.el
-
-(autoload 'mm-extern-cache-contents "mm-extern" "\
-Put the external-body part of HANDLE into its cache.
-
-\(fn HANDLE)" nil nil)
-
-(autoload 'mm-inline-external-body "mm-extern" "\
-Show the external-body part of HANDLE.
-This function replaces the buffer of HANDLE with a buffer contains
-the entire message.
-If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing.
-
-\(fn HANDLE &optional NO-DISPLAY)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/mm-partial.el
-
-(autoload 'mm-inline-partial "mm-partial" "\
-Show the partial part of HANDLE.
-This function replaces the buffer of HANDLE with a buffer contains
-the entire message.
-If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing.
-
-\(fn HANDLE &optional NO-DISPLAY)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents)
-;;;;;; "mm-url" "gnus/mm-url.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/mm-url.el
-
-(autoload 'mm-url-insert-file-contents "mm-url" "\
-Insert file contents of URL.
-If `mm-url-use-external' is non-nil, use `mm-url-program'.
-
-\(fn URL)" nil nil)
-
-(autoload 'mm-url-insert-file-contents-external "mm-url" "\
-Insert file contents of URL using `mm-url-program'.
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu"
-;;;;;; "gnus/mm-uu.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/mm-uu.el
-
-(autoload 'mm-uu-dissect "mm-uu" "\
-Dissect the current buffer and return a list of uu handles.
-The optional NOHEADER means there's no header in the buffer.
-MIME-TYPE specifies a MIME type and parameters, which defaults to the
-value of `mm-uu-text-plain-type'.
-
-\(fn &optional NOHEADER MIME-TYPE)" nil nil)
-
-(autoload 'mm-uu-dissect-text-parts "mm-uu" "\
-Dissect text parts and put uu handles into HANDLE.
-Assume text has been decoded if DECODED is non-nil.
-
-\(fn HANDLE &optional DECODED)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mml-attach-file mml-to-mime) "mml" "gnus/mml.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/mml.el
-
-(autoload 'mml-to-mime "mml" "\
-Translate the current buffer from MML to MIME.
-
-\(fn)" nil nil)
-
-(autoload 'mml-attach-file "mml" "\
-Attach a file to the outgoing MIME message.
-The file is not inserted or encoded until you send the message with
-`\\[message-send-and-exit]' or `\\[message-send]' in Message mode,
-or `\\[mail-send-and-exit]' or `\\[mail-send]' in Mail mode.
-
-FILE is the name of the file to attach. TYPE is its
-content-type, a string of the form \"type/subtype\". DESCRIPTION
-is a one-line description of the attachment. The DISPOSITION
-specifies how the attachment is intended to be displayed. It can
-be either \"inline\" (displayed automatically within the message
-body) or \"attachment\" (separate from the body).
-
-\(fn FILE &optional TYPE DESCRIPTION DISPOSITION)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/mml1991.el
-
-(autoload 'mml1991-encrypt "mml1991" "\
-
-
-\(fn CONT &optional SIGN)" nil nil)
-
-(autoload 'mml1991-sign "mml1991" "\
-
-
-\(fn CONT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt
-;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt)
-;;;;;; "mml2015" "gnus/mml2015.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/mml2015.el
-
-(autoload 'mml2015-decrypt "mml2015" "\
-
-
-\(fn HANDLE CTL)" nil nil)
-
-(autoload 'mml2015-decrypt-test "mml2015" "\
-
-
-\(fn HANDLE CTL)" nil nil)
-
-(autoload 'mml2015-verify "mml2015" "\
-
-
-\(fn HANDLE CTL)" nil nil)
-
-(autoload 'mml2015-verify-test "mml2015" "\
-
-
-\(fn HANDLE CTL)" nil nil)
-
-(autoload 'mml2015-encrypt "mml2015" "\
-
-
-\(fn CONT &optional SIGN)" nil nil)
-
-(autoload 'mml2015-sign "mml2015" "\
-
-
-\(fn CONT)" nil nil)
-
-(autoload 'mml2015-self-encrypt "mml2015" "\
-
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from cedet/mode-local.el
-
-(put 'define-overloadable-function 'doc-string-elt 3)
-
-;;;***
-\f
-;;;### (autoloads (m2-mode) "modula2" "progmodes/modula2.el" (20627
-;;;;;; 28531 447943 0))
-;;; Generated autoloads from progmodes/modula2.el
-
-(defalias 'modula-2-mode 'm2-mode)
-
-(autoload 'm2-mode "modula2" "\
-This is a mode intended to support program development in Modula-2.
-All control constructs of Modula-2 can be reached by typing C-c
-followed by the first character of the construct.
-\\<m2-mode-map>
- \\[m2-begin] begin \\[m2-case] case
- \\[m2-definition] definition \\[m2-else] else
- \\[m2-for] for \\[m2-header] header
- \\[m2-if] if \\[m2-module] module
- \\[m2-loop] loop \\[m2-or] or
- \\[m2-procedure] procedure Control-c Control-w with
- \\[m2-record] record \\[m2-stdio] stdio
- \\[m2-type] type \\[m2-until] until
- \\[m2-var] var \\[m2-while] while
- \\[m2-export] export \\[m2-import] import
- \\[m2-begin-comment] begin-comment \\[m2-end-comment] end-comment
- \\[suspend-emacs] suspend Emacs \\[m2-toggle] toggle
- \\[m2-compile] compile \\[m2-next-error] next-error
- \\[m2-link] link
-
- `m2-indent' controls the number of spaces for each indentation.
- `m2-compile-command' holds the command to compile a Modula-2 program.
- `m2-link-command' holds the command to link a Modula-2 program.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (denato-region nato-region unmorse-region morse-region)
-;;;;;; "morse" "play/morse.el" (20707 18685 911514 0))
-;;; Generated autoloads from play/morse.el
-
-(autoload 'morse-region "morse" "\
-Convert all text in a given region to morse code.
-
-\(fn BEG END)" t nil)
-
-(autoload 'unmorse-region "morse" "\
-Convert morse coded text in region to ordinary ASCII text.
-
-\(fn BEG END)" t nil)
-
-(autoload 'nato-region "morse" "\
-Convert all text in a given region to NATO phonetic alphabet.
-
-\(fn BEG END)" t nil)
-
-(autoload 'denato-region "morse" "\
-Convert NATO phonetic alphabet in region to ordinary ASCII text.
-
-\(fn BEG END)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mouse-drag-drag mouse-drag-throw) "mouse-drag"
-;;;;;; "mouse-drag.el" (20707 18685 911514 0))
-;;; Generated autoloads from mouse-drag.el
-
-(autoload 'mouse-drag-throw "mouse-drag" "\
-\"Throw\" the page according to a mouse drag.
-
-A \"throw\" is scrolling the page at a speed relative to the distance
-from the original mouse click to the current mouse location. Try it;
-you'll like it. It's easier to observe than to explain.
-
-If the mouse is clicked and released in the same place of time we
-assume that the user didn't want to scroll but wanted to whatever
-mouse-2 used to do, so we pass it through.
-
-Throw scrolling was inspired (but is not identical to) the \"hand\"
-option in MacPaint, or the middle button in Tk text widgets.
-
-If `mouse-throw-with-scroll-bar' is non-nil, then this command scrolls
-in the opposite direction. (Different people have different ideas
-about which direction is natural. Perhaps it has to do with which
-hemisphere you're in.)
-
-To test this function, evaluate:
- (global-set-key [down-mouse-2] 'mouse-drag-throw)
-
-\(fn START-EVENT)" t nil)
-
-(autoload 'mouse-drag-drag "mouse-drag" "\
-\"Drag\" the page according to a mouse drag.
-
-Drag scrolling moves the page according to the movement of the mouse.
-You \"grab\" the character under the mouse and move it around.
-
-If the mouse is clicked and released in the same place of time we
-assume that the user didn't want to scroll but wanted to whatever
-mouse-2 used to do, so we pass it through.
-
-Drag scrolling is identical to the \"hand\" option in MacPaint, or the
-middle button in Tk text widgets.
-
-To test this function, evaluate:
- (global-set-key [down-mouse-2] 'mouse-drag-drag)
-
-\(fn START-EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mpc) "mpc" "mpc.el" (20707 18685 911514 0))
-;;; Generated autoloads from mpc.el
-
-(autoload 'mpc "mpc" "\
-Main entry point for MPC.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from play/mpuz.el
-
-(autoload 'mpuz "mpuz" "\
-Multiplication puzzle with GNU Emacs.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (msb-mode) "msb" "msb.el" (20707 18685 911514 0))
-;;; Generated autoloads from msb.el
-
-(defvar msb-mode nil "\
-Non-nil if Msb mode is enabled.
-See the command `msb-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `msb-mode'.")
-
-(custom-autoload 'msb-mode "msb" nil)
-
-(autoload 'msb-mode "msb" "\
-Toggle Msb mode.
-With a prefix argument ARG, enable Msb mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-This mode overrides the binding(s) of `mouse-buffer-menu' to provide a
-different buffer menu using the function `msb'.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (font-show-log mule-diag list-input-methods list-fontsets
-;;;;;; describe-fontset describe-font list-coding-categories list-coding-systems
-;;;;;; 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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from international/mule-diag.el
-
-(autoload 'list-character-sets "mule-diag" "\
-Display a list of all character sets.
-
-The D column contains the dimension of this character set. The CH
-column contains the number of characters in a block of this character
-set. The FINAL-BYTE column contains an ISO-2022 <final-byte> to use
-in the designation escape sequence for this character set in
-ISO-2022-based coding systems.
-
-With prefix ARG, the output format gets more cryptic,
-but still shows the full information.
-
-\(fn ARG)" t nil)
-
-(autoload 'read-charset "mule-diag" "\
-Read a character set from the minibuffer, prompting with string PROMPT.
-It must be an Emacs character set listed in the variable `charset-list'.
-
-Optional arguments are DEFAULT-VALUE and INITIAL-INPUT.
-DEFAULT-VALUE, if non-nil, is the default value.
-INITIAL-INPUT, if non-nil, is a string inserted in the minibuffer initially.
-See the documentation of the function `completing-read' for the detailed
-meanings of these arguments.
-
-\(fn PROMPT &optional DEFAULT-VALUE INITIAL-INPUT)" nil nil)
-
-(autoload 'list-charset-chars "mule-diag" "\
-Display a list of characters in character set CHARSET.
-
-\(fn CHARSET)" t nil)
-
-(autoload 'describe-character-set "mule-diag" "\
-Display information about built-in character set CHARSET.
-
-\(fn CHARSET)" t nil)
-
-(autoload 'describe-coding-system "mule-diag" "\
-Display information about CODING-SYSTEM.
-
-\(fn CODING-SYSTEM)" t nil)
-
-(autoload 'describe-current-coding-system-briefly "mule-diag" "\
-Display coding systems currently used in a brief format in echo area.
-
-The format is \"F[..],K[..],T[..],P>[..],P<[..], default F[..],P<[..],P<[..]\",
-where mnemonics of the following coding systems come in this order
-in place of `..':
- `buffer-file-coding-system' (of the current buffer)
- eol-type of `buffer-file-coding-system' (of the current buffer)
- Value returned by `keyboard-coding-system'
- eol-type of `keyboard-coding-system'
- Value returned by `terminal-coding-system'.
- eol-type of `terminal-coding-system'
- `process-coding-system' for read (of the current buffer, if any)
- eol-type of `process-coding-system' for read (of the current buffer, if any)
- `process-coding-system' for write (of the current buffer, if any)
- eol-type of `process-coding-system' for write (of the current buffer, if any)
- default `buffer-file-coding-system'
- eol-type of default `buffer-file-coding-system'
- `default-process-coding-system' for read
- eol-type of `default-process-coding-system' for read
- `default-process-coding-system' for write
- eol-type of `default-process-coding-system'
-
-\(fn)" t nil)
-
-(autoload 'describe-current-coding-system "mule-diag" "\
-Display coding systems currently used, in detail.
-
-\(fn)" t nil)
-
-(autoload 'list-coding-systems "mule-diag" "\
-Display a list of all coding systems.
-This shows the mnemonic letter, name, and description of each coding system.
-
-With prefix ARG, the output format gets more cryptic,
-but still contains full information about each coding system.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'list-coding-categories "mule-diag" "\
-Display a list of all coding categories.
-
-\(fn)" nil nil)
-
-(autoload 'describe-font "mule-diag" "\
-Display information about a font whose name is FONTNAME.
-The font must be already used by Emacs.
-
-\(fn FONTNAME)" t nil)
-
-(autoload 'describe-fontset "mule-diag" "\
-Display information about FONTSET.
-This shows which font is used for which character(s).
-
-\(fn FONTSET)" t nil)
-
-(autoload 'list-fontsets "mule-diag" "\
-Display a list of all fontsets.
-This shows the name, size, and style of each fontset.
-With prefix arg, also list the fonts contained in each fontset;
-see the function `describe-fontset' for the format of the list.
-
-\(fn ARG)" t nil)
-
-(autoload 'list-input-methods "mule-diag" "\
-Display information about all input methods.
-
-\(fn)" t nil)
-
-(autoload 'mule-diag "mule-diag" "\
-Display diagnosis of the multilingual environment (Mule).
-
-This shows various information related to the current multilingual
-environment, including lists of input methods, coding systems,
-character sets, and fontsets (if Emacs is running under a window
-system which uses fontsets).
-
-\(fn)" t nil)
-
-(autoload 'font-show-log "mule-diag" "\
-Show log of font listing and opening.
-Prefix arg LIMIT says how many fonts to show for each listing.
-The default is 20. If LIMIT is negative, do not limit the listing.
-
-\(fn &optional LIMIT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (char-displayable-p detect-coding-with-language-environment
-;;;;;; detect-coding-with-priority with-coding-priority coding-system-translation-table-for-encode
-;;;;;; 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) "mule-util" "international/mule-util.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from international/mule-util.el
-
-(defsubst string-to-list (string) "\
-Return a list of characters in STRING." (append string nil))
-
-(defsubst string-to-vector (string) "\
-Return a vector of characters in STRING." (vconcat string))
-
-(autoload 'store-substring "mule-util" "\
-Embed OBJ (string or character) at index IDX of STRING.
-
-\(fn STRING IDX OBJ)" nil nil)
-
-(autoload 'truncate-string-to-width "mule-util" "\
-Truncate string STR to end at column END-COLUMN.
-The optional 3rd arg START-COLUMN, if non-nil, specifies the starting
-column; that means to return the characters occupying columns
-START-COLUMN ... END-COLUMN of STR. Both END-COLUMN and START-COLUMN
-are specified in terms of character display width in the current
-buffer; see also `char-width'.
-
-The optional 4th arg PADDING, if non-nil, specifies a padding
-character (which should have a display width of 1) to add at the end
-of the result if STR doesn't reach column END-COLUMN, or if END-COLUMN
-comes in the middle of a character in STR. PADDING is also added at
-the beginning of the result if column START-COLUMN appears in the
-middle of a character in STR.
-
-If PADDING is nil, no padding is added in these cases, so
-the resulting string may be narrower than END-COLUMN.
-
-If ELLIPSIS is non-nil, it should be a string which will replace the
-end of STR (including any padding) if it extends beyond END-COLUMN,
-unless the display width of STR is equal to or less than the display
-width of ELLIPSIS. If it is non-nil and not a string, then ELLIPSIS
-defaults to \"...\".
-
-\(fn STR END-COLUMN &optional START-COLUMN PADDING ELLIPSIS)" nil nil)
-
-(defsubst nested-alist-p (obj) "\
-Return t if OBJ is a nested alist.
-
-Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is
-any Lisp object, and BRANCHES is a list of cons cells of the form
-\(KEY-ELEMENT . NESTED-ALIST).
-
-You can use a nested alist to store any Lisp object (ENTRY) for a key
-sequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT. KEYSEQ
-can be a string, a vector, or a list." (and obj (listp obj) (listp (cdr obj))))
-
-(autoload 'set-nested-alist "mule-util" "\
-Set ENTRY for KEYSEQ in a nested alist ALIST.
-Optional 4th arg LEN non-nil means the first LEN elements in KEYSEQ
- are considered.
-Optional 5th argument BRANCHES if non-nil is branches for a keyseq
-longer than KEYSEQ.
-See the documentation of `nested-alist-p' for more detail.
-
-\(fn KEYSEQ ENTRY ALIST &optional LEN BRANCHES)" nil nil)
-
-(autoload 'lookup-nested-alist "mule-util" "\
-Look up key sequence KEYSEQ in nested alist ALIST. Return the definition.
-Optional 3rd argument LEN specifies the length of KEYSEQ.
-Optional 4th argument START specifies index of the starting key.
-The returned value is normally a nested alist of which
-car part is the entry for KEYSEQ.
-If ALIST is not deep enough for KEYSEQ, return number which is
- how many key elements at the front of KEYSEQ it takes
- to reach a leaf in ALIST.
-Optional 5th argument NIL-FOR-TOO-LONG non-nil means return nil
- even if ALIST is not deep enough.
-
-\(fn KEYSEQ ALIST &optional LEN START NIL-FOR-TOO-LONG)" nil nil)
-
-(autoload 'coding-system-post-read-conversion "mule-util" "\
-Return the value of CODING-SYSTEM's `post-read-conversion' property.
-
-\(fn CODING-SYSTEM)" nil nil)
-
-(autoload 'coding-system-pre-write-conversion "mule-util" "\
-Return the value of CODING-SYSTEM's `pre-write-conversion' property.
-
-\(fn CODING-SYSTEM)" nil nil)
-
-(autoload 'coding-system-translation-table-for-decode "mule-util" "\
-Return the value of CODING-SYSTEM's `decode-translation-table' property.
-
-\(fn CODING-SYSTEM)" nil nil)
-
-(autoload 'coding-system-translation-table-for-encode "mule-util" "\
-Return the value of CODING-SYSTEM's `encode-translation-table' property.
-
-\(fn CODING-SYSTEM)" nil nil)
-
-(autoload 'with-coding-priority "mule-util" "\
-Execute BODY like `progn' with CODING-SYSTEMS at the front of priority list.
-CODING-SYSTEMS is a list of coding systems. See `set-coding-system-priority'.
-This affects the implicit sorting of lists of coding systems returned by
-operations such as `find-coding-systems-region'.
-
-\(fn CODING-SYSTEMS &rest BODY)" nil t)
-(put 'with-coding-priority 'lisp-indent-function 1)
-
-(autoload 'detect-coding-with-priority "mule-util" "\
-Detect a coding system of the text between FROM and TO with PRIORITY-LIST.
-PRIORITY-LIST is an alist of coding categories vs the corresponding
-coding systems ordered by priority.
-
-\(fn FROM TO PRIORITY-LIST)" nil t)
-
-(make-obsolete 'detect-coding-with-priority 'with-coding-priority "23.1")
-
-(autoload 'detect-coding-with-language-environment "mule-util" "\
-Detect a coding system for the text between FROM and TO with LANG-ENV.
-The detection takes into account the coding system priorities for the
-language environment LANG-ENV.
-
-\(fn FROM TO LANG-ENV)" nil nil)
-
-(autoload 'char-displayable-p "mule-util" "\
-Return non-nil if we should be able to display CHAR.
-On a multi-font display, the test is only whether there is an
-appropriate font from the selected frame's fontset to display
-CHAR's charset in general. Since fonts may be specified on a
-per-character basis, this may not be accurate.
-
-\(fn CHAR)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (network-connection network-connection-to-service
-;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host
-;;;;;; nslookup nslookup-host ping traceroute route arp netstat
-;;;;;; iwconfig ifconfig) "net-utils" "net/net-utils.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from net/net-utils.el
-
-(autoload 'ifconfig "net-utils" "\
-Run ifconfig and display diagnostic output.
-
-\(fn)" t nil)
-
-(autoload 'iwconfig "net-utils" "\
-Run iwconfig and display diagnostic output.
-
-\(fn)" t nil)
-
-(autoload 'netstat "net-utils" "\
-Run netstat and display diagnostic output.
-
-\(fn)" t nil)
-
-(autoload 'arp "net-utils" "\
-Run arp and display diagnostic output.
-
-\(fn)" t nil)
-
-(autoload 'route "net-utils" "\
-Run route and display diagnostic output.
-
-\(fn)" t nil)
-
-(autoload 'traceroute "net-utils" "\
-Run traceroute program for TARGET.
-
-\(fn TARGET)" t nil)
-
-(autoload 'ping "net-utils" "\
-Ping HOST.
-If your system's ping continues until interrupted, you can try setting
-`ping-program-options'.
-
-\(fn HOST)" t nil)
-
-(autoload 'nslookup-host "net-utils" "\
-Lookup the DNS information for HOST.
-
-\(fn HOST)" t nil)
-
-(autoload 'nslookup "net-utils" "\
-Run nslookup program.
-
-\(fn)" t nil)
-
-(autoload 'dns-lookup-host "net-utils" "\
-Lookup the DNS information for HOST (name or IP address).
-
-\(fn HOST)" t nil)
-
-(autoload 'run-dig "net-utils" "\
-Run dig program.
-
-\(fn HOST)" t nil)
-
-(autoload 'ftp "net-utils" "\
-Run ftp program.
-
-\(fn HOST)" t nil)
-
-(autoload 'finger "net-utils" "\
-Finger USER on HOST.
-
-\(fn USER HOST)" t nil)
-
-(autoload 'whois "net-utils" "\
-Send SEARCH-STRING to server defined by the `whois-server-name' variable.
-If `whois-guess-server' is non-nil, then try to deduce the correct server
-from SEARCH-STRING. With argument, prompt for whois server.
-
-\(fn ARG SEARCH-STRING)" t nil)
-
-(autoload 'whois-reverse-lookup "net-utils" "\
-
-
-\(fn)" t nil)
-
-(autoload 'network-connection-to-service "net-utils" "\
-Open a network connection to SERVICE on HOST.
-
-\(fn HOST SERVICE)" t nil)
-
-(autoload 'network-connection "net-utils" "\
-Open a network connection to HOST on PORT.
-
-\(fn HOST PORT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (netrc-credentials) "netrc" "net/netrc.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from net/netrc.el
-
-(autoload 'netrc-credentials "netrc" "\
-Return a user name/password pair.
-Port specifications will be prioritized in the order they are
-listed in the PORTS list.
-
-\(fn MACHINE &rest PORTS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (open-network-stream) "network-stream" "net/network-stream.el"
-;;;;;; (20766 62090 677076 128000))
-;;; Generated autoloads from net/network-stream.el
-
-(autoload 'open-network-stream "network-stream" "\
-Open a TCP connection to HOST, optionally with encryption.
-Normally, return a network process object; with a non-nil
-:return-list parameter, return a list instead (see below).
-Input and output work as for subprocesses; `delete-process'
-closes it.
-
-NAME is the name for the process. It is modified if necessary to
- make it unique.
-BUFFER is a buffer or buffer name to associate with the process.
- Process output goes at end of that buffer. BUFFER may be nil,
- meaning that the process is not associated with any buffer.
-HOST is the name or IP address of the host to connect to.
-SERVICE is the name of the service desired, or an integer specifying
- a port number to connect to.
-
-The remaining PARAMETERS should be a sequence of keywords and
-values:
-
-:type specifies the connection type, one of the following:
- nil or `network'
- -- Begin with an ordinary network connection, and if
- the parameters :success and :capability-command
- are also supplied, try to upgrade to an encrypted
- connection via STARTTLS. Even if that
- fails (e.g. if HOST does not support TLS), retain
- an unencrypted connection.
- `plain' -- An ordinary, unencrypted network connection.
- `starttls' -- Begin with an ordinary connection, and try
- upgrading via STARTTLS. If that fails for any
- reason, drop the connection; in that case the
- returned object is a killed process.
- `tls' -- A TLS connection.
- `ssl' -- Equivalent to `tls'.
- `shell' -- A shell connection.
-
-:return-list specifies this function's return value.
- If omitted or nil, return a process object. A non-nil means to
- return (PROC . PROPS), where PROC is a process object and PROPS
- is a plist of connection properties, with these keywords:
- :greeting -- the greeting returned by HOST (a string), or nil.
- :capabilities -- a string representing HOST's capabilities,
- or nil if none could be found.
- :type -- the resulting connection type; `plain' (unencrypted)
- or `tls' (TLS-encrypted).
-
-:end-of-command specifies a regexp matching the end of a command.
-
-:end-of-capability specifies a regexp matching the end of the
- response to the command specified for :capability-command.
- It defaults to the regexp specified for :end-of-command.
-
-:success specifies a regexp matching a message indicating a
- successful STARTTLS negotiation. For instance, the default
- should be \"^3\" for an NNTP connection.
-
-:capability-command specifies a command used to query the HOST
- for its capabilities. For instance, for IMAP this should be
- \"1 CAPABILITY\\r\\n\".
-
-:starttls-function specifies a function for handling STARTTLS.
- This function should take one parameter, the response to the
- capability command, and should return the command to switch on
- STARTTLS if the server supports STARTTLS, and nil otherwise.
-
-:always-query-capabilities says whether to query the server for
- capabilities, even if we're doing a `plain' network connection.
-
-:client-certificate should either be a list where the first
- element is the certificate key file name, and the second
- element is the certificate file name itself, or `t', which
- means that `auth-source' will be queried for the key and the
- certificate. This parameter will only be used when doing TLS
- or STARTTLS connections.
-
-:use-starttls-if-possible is a boolean that says to do opportunistic
-STARTTLS upgrades even if Emacs doesn't have built-in TLS functionality.
-
-:nowait is a boolean that says the connection should be made
- asynchronously, if possible.
-
-\(fn NAME BUFFER HOST SERVICE &rest PARAMETERS)" nil nil)
-
-(defalias 'open-protocol-stream 'open-network-stream)
-
-;;;***
-\f
-;;;### (autoloads (newsticker-start newsticker-running-p) "newst-backend"
-;;;;;; "net/newst-backend.el" (20707 18685 911514 0))
-;;; Generated autoloads from net/newst-backend.el
-
-(autoload 'newsticker-running-p "newst-backend" "\
-Check whether newsticker is running.
-Return t if newsticker is running, nil otherwise. Newsticker is
-considered to be running if the newsticker timer list is not empty.
-
-\(fn)" nil nil)
-
-(autoload 'newsticker-start "newst-backend" "\
-Start the newsticker.
-Start the timers for display and retrieval. If the newsticker, i.e. the
-timers, are running already a warning message is printed unless
-DO-NOT-COMPLAIN-IF-RUNNING is not nil.
-Run `newsticker-start-hook' if newsticker was not running already.
-
-\(fn &optional DO-NOT-COMPLAIN-IF-RUNNING)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (newsticker-plainview) "newst-plainview" "net/newst-plainview.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from net/newst-plainview.el
-
-(autoload 'newsticker-plainview "newst-plainview" "\
-Start newsticker plainview.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (newsticker-show-news) "newst-reader" "net/newst-reader.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from net/newst-reader.el
-
-(autoload 'newsticker-show-news "newst-reader" "\
-Start reading news. You may want to bind this to a key.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (newsticker-start-ticker newsticker-ticker-running-p)
-;;;;;; "newst-ticker" "net/newst-ticker.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from net/newst-ticker.el
-
-(autoload 'newsticker-ticker-running-p "newst-ticker" "\
-Check whether newsticker's actual ticker is running.
-Return t if ticker is running, nil otherwise. Newsticker is
-considered to be running if the newsticker timer list is not
-empty.
-
-\(fn)" nil nil)
-
-(autoload 'newsticker-start-ticker "newst-ticker" "\
-Start newsticker's ticker (but not the news retrieval).
-Start display timer for the actual ticker if wanted and not
-running already.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (newsticker-treeview) "newst-treeview" "net/newst-treeview.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from net/newst-treeview.el
-
-(autoload 'newsticker-treeview "newst-treeview" "\
-Start newsticker treeview.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/nndiary.el
-
-(autoload 'nndiary-generate-nov-databases "nndiary" "\
-Generate NOV databases in all nndiary directories.
-
-\(fn &optional SERVER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from gnus/nndoc.el
-
-(autoload 'nndoc-add-type "nndoc" "\
-Add document DEFINITION to the list of nndoc document definitions.
-If POSITION is nil or `last', the definition will be added
-as the last checked definition, if t or `first', add as the
-first definition, and if any other symbol, add after that
-symbol in the alist.
-
-\(fn DEFINITION &optional POSITION)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/nnfolder.el
-
-(autoload 'nnfolder-generate-active-file "nnfolder" "\
-Look for mbox folders in the nnfolder directory and make them into groups.
-This command does not work if you use short group names.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/nnml.el
-
-(autoload 'nnml-generate-nov-databases "nnml" "\
-Generate NOV databases in all nnml directories.
-
-\(fn &optional SERVER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (disable-command enable-command disabled-command-function)
-;;;;;; "novice" "novice.el" (20707 18685 911514 0))
-;;; Generated autoloads from novice.el
-
-(define-obsolete-variable-alias 'disabled-command-hook 'disabled-command-function "22.1")
-
-(defvar disabled-command-function 'disabled-command-function "\
-Function to call to handle disabled commands.
-If nil, the feature is disabled, i.e., all commands work normally.")
-
-(autoload 'disabled-command-function "novice" "\
-
-
-\(fn &optional CMD KEYS)" nil nil)
-
-(autoload 'enable-command "novice" "\
-Allow COMMAND to be executed without special confirmation from now on.
-COMMAND must be a symbol.
-This command alters the user's .emacs file so that this will apply
-to future sessions.
-
-\(fn COMMAND)" t nil)
-
-(autoload 'disable-command "novice" "\
-Require special confirmation to execute COMMAND from now on.
-COMMAND must be a symbol.
-This command alters your init file so that this choice applies to
-future sessions.
-
-\(fn COMMAND)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/nroff-mode.el
-
-(autoload 'nroff-mode "nroff-mode" "\
-Major mode for editing text intended for nroff to format.
-\\{nroff-mode-map}
-Turning on Nroff mode runs `text-mode-hook', then `nroff-mode-hook'.
-Also, try `nroff-electric-mode', for automatically inserting
-closing requests for requests that are used in matched pairs.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (nxml-glyph-display-string) "nxml-glyph" "nxml/nxml-glyph.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from nxml/nxml-glyph.el
-
-(autoload 'nxml-glyph-display-string "nxml-glyph" "\
-Return a string that can display a glyph for Unicode code-point N.
-FACE gives the face that will be used for displaying the string.
-Return nil if the face cannot display a glyph for N.
-
-\(fn N FACE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (20763
-;;;;;; 5110 492774 0))
-;;; Generated autoloads from nxml/nxml-mode.el
-
-(autoload 'nxml-mode "nxml-mode" "\
-Major mode for editing XML.
-
-\\[nxml-finish-element] finishes the current element by inserting an end-tag.
-C-c C-i closes a start-tag with `>' and then inserts a balancing end-tag
-leaving point between the start-tag and end-tag.
-\\[nxml-balanced-close-start-tag-block] is similar but for block rather than inline elements:
-the start-tag, point, and end-tag are all left on separate lines.
-If `nxml-slash-auto-complete-flag' is non-nil, then inserting a `</'
-automatically inserts the rest of the end-tag.
-
-\\[completion-at-point] performs completion on the symbol preceding point.
-
-\\[nxml-dynamic-markup-word] uses the contents of the current buffer
-to choose a tag to put around the word preceding point.
-
-Sections of the document can be displayed in outline form. The
-variable `nxml-section-element-name-regexp' controls when an element
-is recognized as a section. The same key sequences that change
-visibility in outline mode are used except that they start with C-c C-o
-instead of C-c.
-
-Validation is provided by the related minor-mode `rng-validate-mode'.
-This also makes completion schema- and context- sensitive. Element
-names, attribute names, attribute values and namespace URIs can all be
-completed. By default, `rng-validate-mode' is automatically enabled.
-You can toggle it using \\[rng-validate-mode] or change the default by
-customizing `rng-nxml-auto-validate-flag'.
-
-\\[indent-for-tab-command] indents the current line appropriately.
-This can be customized using the variable `nxml-child-indent'
-and the variable `nxml-attribute-indent'.
-
-\\[nxml-insert-named-char] inserts a character reference using
-the character's name (by default, the Unicode name).
-\\[universal-argument] \\[nxml-insert-named-char] inserts the character directly.
-
-The Emacs commands that normally operate on balanced expressions will
-operate on XML markup items. Thus \\[forward-sexp] will move forward
-across one markup item; \\[backward-sexp] will move backward across
-one markup item; \\[kill-sexp] will kill the following markup item;
-\\[mark-sexp] will mark the following markup item. By default, each
-tag each treated as a single markup item; to make the complete element
-be treated as a single markup item, set the variable
-`nxml-sexp-element-flag' to t. For more details, see the function
-`nxml-forward-balanced-item'.
-
-\\[nxml-backward-up-element] and \\[nxml-down-element] move up and down the element structure.
-
-Many aspects this mode can be customized using
-\\[customize-group] nxml RET.
-
-\(fn)" t nil)
-
-(defalias 'xml-mode 'nxml-mode)
-
-;;;***
-\f
-;;;### (autoloads (nxml-enable-unicode-char-name-sets) "nxml-uchnm"
-;;;;;; "nxml/nxml-uchnm.el" (20707 18685 911514 0))
-;;; Generated autoloads from nxml/nxml-uchnm.el
-
-(autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\
-Enable the use of Unicode standard names for characters.
-The Unicode blocks for which names are enabled is controlled by
-the variable `nxml-enabled-unicode-blocks'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/octave-inf.el
-
-(autoload 'inferior-octave "octave-inf" "\
-Run an inferior Octave process, I/O via `inferior-octave-buffer'.
-This buffer is put in Inferior Octave mode. See `inferior-octave-mode'.
-
-Unless ARG is non-nil, switches to this buffer.
-
-The elements of the list `inferior-octave-startup-args' are sent as
-command line arguments to the inferior Octave process on startup.
-
-Additional commands to be executed on startup can be provided either in
-the file specified by `inferior-octave-startup-file' or by the default
-startup file, `~/.emacs-octave'.
-
-\(fn &optional ARG)" t nil)
-
-(defalias 'run-octave 'inferior-octave)
-
-;;;***
-\f
-;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/octave-mod.el
-
-(autoload 'octave-mode "octave-mod" "\
-Major mode for editing Octave code.
-
-This mode makes it easier to write Octave code by helping with
-indentation, doing some of the typing for you (with Abbrev mode) and by
-showing keywords, comments, strings, etc. in different faces (with
-Font Lock mode on terminals that support it).
-
-Octave itself is a high-level language, primarily intended for numerical
-computations. It provides a convenient command line interface for
-solving linear and nonlinear problems numerically. Function definitions
-can also be stored in files, and it can be used in a batch mode (which
-is why you need this mode!).
-
-The latest released version of Octave is always available via anonymous
-ftp from ftp.octave.org in the directory `/pub/octave'. Complete
-source and binaries for several popular systems are available.
-
-Type \\[list-abbrevs] to display the built-in abbrevs for Octave keywords.
-
-Keybindings
-===========
-
-\\{octave-mode-map}
-
-Variables you can use to customize Octave mode
-==============================================
-
-`octave-blink-matching-block'
- Non-nil means show matching begin of block when inserting a space,
- newline or semicolon after an else or end keyword. Default is t.
-
-`octave-block-offset'
- Extra indentation applied to statements in block structures.
- Default is 2.
-
-`octave-continuation-offset'
- Extra indentation applied to Octave continuation lines.
- Default is 4.
-
-`octave-continuation-string'
- String used for Octave continuation lines.
- Default is a backslash.
-
-`octave-send-echo-input'
- Non-nil means always display `inferior-octave-buffer' after sending a
- command to the inferior Octave process.
-
-`octave-send-line-auto-forward'
- Non-nil means always go to the next unsent line of Octave code after
- sending a line to the inferior Octave process.
-
-`octave-send-echo-input'
- Non-nil means echo input sent to the inferior Octave process.
-
-Turning on Octave mode runs the hook `octave-mode-hook'.
-
-To begin using this mode for all `.m' files that you edit, add the
-following lines to your init file:
-
- (add-to-list 'auto-mode-alist '(\"\\\\.m\\\\'\" . octave-mode))
-
-To automatically turn on the abbrev and auto-fill features,
-add the following lines to your init file as well:
-
- (add-hook 'octave-mode-hook
- (lambda ()
- (abbrev-mode 1)
- (auto-fill-mode 1)))
-
-To submit a problem report, enter \\[octave-submit-bug-report] from an Octave mode buffer.
-This automatically sets up a mail buffer with version information
-already added. You just need to add a description of the problem,
-including a reproducible test case and send the message.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-customize org-reload org-submit-bug-report
-;;;;;; org-cycle-agenda-files org-switchb org-open-link-from-string
-;;;;;; org-open-at-point-global org-insert-link-global org-store-link
-;;;;;; org-run-like-in-org-mode turn-on-orgstruct++ turn-on-orgstruct
-;;;;;; orgstruct-mode org-global-cycle org-cycle org-mode org-clock-persistence-insinuate
-;;;;;; turn-on-orgtbl org-version org-babel-do-load-languages) "org"
-;;;;;; "org/org.el" (20782 62165 534425 0))
-;;; Generated autoloads from org/org.el
-
-(autoload 'org-babel-do-load-languages "org" "\
-Load the languages defined in `org-babel-load-languages'.
-
-\(fn SYM VALUE)" nil nil)
-
-(autoload 'org-version "org" "\
-Show the org-mode version in the echo area.
-With prefix argument HERE, insert it at point.
-When FULL is non-nil, use a verbose version string.
-When MESSAGE is non-nil, display a message with the version.
-
-\(fn &optional HERE FULL MESSAGE)" t nil)
-
-(autoload 'turn-on-orgtbl "org" "\
-Unconditionally turn on `orgtbl-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'org-clock-persistence-insinuate "org" "\
-Set up hooks for clock persistence.
-
-\(fn)" nil nil)
-
-(autoload 'org-mode "org" "\
-Outline-based notes management and organizer, alias
-\"Carsten's outline-mode for keeping track of everything.\"
-
-Org-mode develops organizational tasks around a NOTES file which
-contains information about projects as plain text. Org-mode is
-implemented on top of outline-mode, which is ideal to keep the content
-of large files well structured. It supports ToDo items, deadlines and
-time stamps, which magically appear in the diary listing of the Emacs
-calendar. Tables are easily created with a built-in table editor.
-Plain text URL-like links connect to websites, emails (VM), Usenet
-messages (Gnus), BBDB entries, and any files related to the project.
-For printing and sharing of notes, an Org-mode file (or a part of it)
-can be exported as a structured ASCII or HTML file.
-
-The following commands are available:
-
-\\{org-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'org-cycle "org" "\
-TAB-action and visibility cycling for Org-mode.
-
-This is the command invoked in Org-mode by the TAB key. Its main purpose
-is outline visibility cycling, but it also invokes other actions
-in special contexts.
-
-- When this function is called with a prefix argument, rotate the entire
- buffer through 3 states (global cycling)
- 1. OVERVIEW: Show only top-level headlines.
- 2. CONTENTS: Show all headlines of all levels, but no body text.
- 3. SHOW ALL: Show everything.
- When called with two `C-u C-u' prefixes, switch to the startup visibility,
- determined by the variable `org-startup-folded', and by any VISIBILITY
- properties in the buffer.
- When called with three `C-u C-u C-u' prefixed, show the entire buffer,
- including any drawers.
-
-- When inside a table, re-align the table and move to the next field.
-
-- When point is at the beginning of a headline, rotate the subtree started
- by this line through 3 different states (local cycling)
- 1. FOLDED: Only the main headline is shown.
- 2. CHILDREN: The main headline and the direct children are shown.
- From this state, you can move to one of the children
- and zoom in further.
- 3. SUBTREE: Show the entire subtree, including body text.
- If there is no subtree, switch directly from CHILDREN to FOLDED.
-
-- When point is at the beginning of an empty headline and the variable
- `org-cycle-level-after-item/entry-creation' is set, cycle the level
- of the headline by demoting and promoting it to likely levels. This
- speeds up creation document structure by pressing TAB once or several
- times right after creating a new headline.
-
-- When there is a numeric prefix, go up to a heading with level ARG, do
- a `show-subtree' and return to the previous cursor position. If ARG
- is negative, go up that many levels.
-
-- When point is not at the beginning of a headline, execute the global
- binding for TAB, which is re-indenting the line. See the option
- `org-cycle-emulate-tab' for details.
-
-- Special case: if point is at the beginning of the buffer and there is
- no headline in line 1, this function will act as if called with prefix arg
- (C-u TAB, same as S-TAB) also when called without prefix arg.
- But only if also the variable `org-cycle-global-at-bob' is t.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-global-cycle "org" "\
-Cycle the global visibility. For details see `org-cycle'.
-With \\[universal-argument] prefix arg, switch to startup visibility.
-With a numeric prefix, show all headlines up to that level.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'orgstruct-mode "org" "\
-Toggle the minor mode `orgstruct-mode'.
-This mode is for using Org-mode structure commands in other
-modes. The following keys behave as if Org-mode were active, if
-the cursor is on a headline, or on a plain list item (both as
-defined by Org-mode).
-
-M-up Move entry/item up
-M-down Move entry/item down
-M-left Promote
-M-right Demote
-M-S-up Move entry/item up
-M-S-down Move entry/item down
-M-S-left Promote subtree
-M-S-right Demote subtree
-M-q Fill paragraph and items like in Org-mode
-C-c ^ Sort entries
-C-c - Cycle list bullet
-TAB Cycle item visibility
-M-RET Insert new heading/item
-S-M-RET Insert new TODO heading / Checkbox item
-C-c C-c Set tags / toggle checkbox
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'turn-on-orgstruct "org" "\
-Unconditionally turn on `orgstruct-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'turn-on-orgstruct++ "org" "\
-Unconditionally turn on `orgstruct++-mode'.
-
-\(fn)" nil nil)
-
-(autoload 'org-run-like-in-org-mode "org" "\
-Run a command, pretending that the current buffer is in Org-mode.
-This will temporarily bind local variables that are typically bound in
-Org-mode to the values they have in Org-mode, and then interactively
-call CMD.
-
-\(fn CMD)" nil nil)
-
-(autoload 'org-store-link "org" "\
-\\<org-mode-map>Store an org-link to the current location.
-This link is added to `org-stored-links' and can later be inserted
-into an org-buffer with \\[org-insert-link].
-
-For some link types, a prefix arg is interpreted:
-For links to usenet articles, arg negates `org-gnus-prefer-web-links'.
-For file links, arg negates `org-context-in-file-links'.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-insert-link-global "org" "\
-Insert a link like Org-mode does.
-This command can be called in any mode to insert a link in Org-mode syntax.
-
-\(fn)" t nil)
-
-(autoload 'org-open-at-point-global "org" "\
-Follow a link like Org-mode does.
-This command can be called in any mode to follow a link that has
-Org-mode syntax.
-
-\(fn)" t nil)
-
-(autoload 'org-open-link-from-string "org" "\
-Open a link in the string S, as if it was in Org-mode.
-
-\(fn S &optional ARG REFERENCE-BUFFER)" t nil)
-
-(autoload 'org-switchb "org" "\
-Switch between Org buffers.
-With one prefix argument, restrict available buffers to files.
-With two prefix arguments, restrict available buffers to agenda files.
-
-Defaults to `iswitchb' for buffer name completion.
-Set `org-completion-use-ido' to make it use ido instead.
-
-\(fn &optional ARG)" t nil)
-
-(defalias 'org-ido-switchb 'org-switchb)
-
-(defalias 'org-iswitchb 'org-switchb)
-
-(autoload 'org-cycle-agenda-files "org" "\
-Cycle through the files in `org-agenda-files'.
-If the current buffer visits an agenda file, find the next one in the list.
-If the current buffer does not, find the first agenda file.
-
-\(fn)" t nil)
-
-(autoload 'org-submit-bug-report "org" "\
-Submit a bug report on Org-mode via mail.
-
-Don't hesitate to report any problems or inaccurate documentation.
-
-If you don't have setup sending mail from (X)Emacs, please copy the
-output buffer into your mail program, as it gives us important
-information about your Org-mode version and configuration.
-
-\(fn)" t nil)
-
-(autoload 'org-reload "org" "\
-Reload all org lisp files.
-With prefix arg UNCOMPILED, load the uncompiled versions.
-
-\(fn &optional UNCOMPILED)" t nil)
-
-(autoload 'org-customize "org" "\
-Call the customize function with org as argument.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-agenda-to-appt org-calendar-goto-agenda org-diary
-;;;;;; org-agenda-list-stuck-projects org-tags-view org-todo-list
-;;;;;; org-search-view org-agenda-list org-batch-store-agenda-views
-;;;;;; org-store-agenda-views org-batch-agenda-csv org-batch-agenda
-;;;;;; org-agenda org-toggle-sticky-agenda) "org-agenda" "org/org-agenda.el"
-;;;;;; (20782 62165 534425 0))
-;;; Generated autoloads from org/org-agenda.el
-
-(autoload 'org-toggle-sticky-agenda "org-agenda" "\
-Toggle `org-agenda-sticky'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-agenda "org-agenda" "\
-Dispatch agenda commands to collect entries to the agenda buffer.
-Prompts for a command to execute. Any prefix arg will be passed
-on to the selected command. The default selections are:
-
-a Call `org-agenda-list' to display the agenda for current day or week.
-t Call `org-todo-list' to display the global todo list.
-T Call `org-todo-list' to display the global todo list, select only
- entries with a specific TODO keyword (the user gets a prompt).
-m Call `org-tags-view' to display headlines with tags matching
- a condition (the user is prompted for the condition).
-M Like `m', but select only TODO entries, no ordinary headlines.
-L Create a timeline for the current buffer.
-e Export views to associated files.
-s Search entries for keywords.
-S Search entries for keywords, only with TODO keywords.
-/ Multi occur across all agenda files and also files listed
- in `org-agenda-text-search-extra-files'.
-< Restrict agenda commands to buffer, subtree, or region.
- Press several times to get the desired effect.
-> Remove a previous restriction.
-# List \"stuck\" projects.
-! Configure what \"stuck\" means.
-C Configure custom agenda commands.
-
-More commands can be added by configuring the variable
-`org-agenda-custom-commands'. In particular, specific tags and TODO keyword
-searches can be pre-defined in this way.
-
-If the current buffer is in Org-mode and visiting a file, you can also
-first press `<' once to indicate that the agenda should be temporarily
-\(until the next use of \\[org-agenda]) restricted to the current file.
-Pressing `<' twice means to restrict to the current subtree or region
-\(if active).
-
-\(fn &optional ARG ORG-KEYS RESTRICTION)" t nil)
-
-(autoload 'org-batch-agenda "org-agenda" "\
-Run an agenda command in batch mode and send the result to STDOUT.
-If CMD-KEY is a string of length 1, it is used as a key in
-`org-agenda-custom-commands' and triggers this command. If it is a
-longer string it is used as a tags/todo match string.
-Parameters are alternating variable names and values that will be bound
-before running the agenda command.
-
-\(fn CMD-KEY &rest PARAMETERS)" nil t)
-
-(autoload 'org-batch-agenda-csv "org-agenda" "\
-Run an agenda command in batch mode and send the result to STDOUT.
-If CMD-KEY is a string of length 1, it is used as a key in
-`org-agenda-custom-commands' and triggers this command. If it is a
-longer string it is used as a tags/todo match string.
-Parameters are alternating variable names and values that will be bound
-before running the agenda command.
-
-The output gives a line for each selected agenda item. Each
-item is a list of comma-separated values, like this:
-
-category,head,type,todo,tags,date,time,extra,priority-l,priority-n
-
-category The category of the item
-head The headline, without TODO kwd, TAGS and PRIORITY
-type The type of the agenda entry, can be
- todo selected in TODO match
- tagsmatch selected in tags match
- diary imported from diary
- deadline a deadline on given date
- scheduled scheduled on given date
- timestamp entry has timestamp on given date
- closed entry was closed on given date
- upcoming-deadline warning about deadline
- past-scheduled forwarded scheduled item
- block entry has date block including g. date
-todo The todo keyword, if any
-tags All tags including inherited ones, separated by colons
-date The relevant date, like 2007-2-14
-time The time, like 15:00-16:50
-extra Sting with extra planning info
-priority-l The priority letter if any was given
-priority-n The computed numerical priority
-agenda-day The day in the agenda where this is listed
-
-\(fn CMD-KEY &rest PARAMETERS)" nil t)
-
-(autoload 'org-store-agenda-views "org-agenda" "\
-
-
-\(fn &rest PARAMETERS)" t nil)
-
-(autoload 'org-batch-store-agenda-views "org-agenda" "\
-Run all custom agenda commands that have a file argument.
-
-\(fn &rest PARAMETERS)" nil t)
-
-(autoload 'org-agenda-list "org-agenda" "\
-Produce a daily/weekly view from all files in variable `org-agenda-files'.
-The view will be for the current day or week, but from the overview buffer
-you will be able to go to other days/weeks.
-
-With a numeric prefix argument in an interactive call, the agenda will
-span ARG days. Lisp programs should instead specify SPAN to change
-the number of days. SPAN defaults to `org-agenda-span'.
-
-START-DAY defaults to TODAY, or to the most recent match for the weekday
-given in `org-agenda-start-on-weekday'.
-
-\(fn &optional ARG START-DAY SPAN)" t nil)
-
-(autoload 'org-search-view "org-agenda" "\
-Show all entries that contain a phrase or words or regular expressions.
-
-With optional prefix argument TODO-ONLY, only consider entries that are
-TODO entries. The argument STRING can be used to pass a default search
-string into this function. If EDIT-AT is non-nil, it means that the
-user should get a chance to edit this string, with cursor at position
-EDIT-AT.
-
-The search string can be viewed either as a phrase that should be found as
-is, or it can be broken into a number of snippets, each of which must match
-in a Boolean way to select an entry. The default depends on the variable
-`org-agenda-search-view-always-boolean'.
-Even if this is turned off (the default) you can always switch to
-Boolean search dynamically by preceding the first word with \"+\" or \"-\".
-
-The default is a direct search of the whole phrase, where each space in
-the search string can expand to an arbitrary amount of whitespace,
-including newlines.
-
-If using a Boolean search, the search string is split on whitespace and
-each snippet is searched separately, with logical AND to select an entry.
-Words prefixed with a minus must *not* occur in the entry. Words without
-a prefix or prefixed with a plus must occur in the entry. Matching is
-case-insensitive. Words are enclosed by word delimiters (i.e. they must
-match whole words, not parts of a word) if
-`org-agenda-search-view-force-full-words' is set (default is nil).
-
-Boolean search snippets enclosed by curly braces are interpreted as
-regular expressions that must or (when preceded with \"-\") must not
-match in the entry. Snippets enclosed into double quotes will be taken
-as a whole, to include whitespace.
-
-- If the search string starts with an asterisk, search only in headlines.
-- If (possibly after the leading star) the search string starts with an
- exclamation mark, this also means to look at TODO entries only, an effect
- that can also be achieved with a prefix argument.
-- If (possibly after star and exclamation mark) the search string starts
- with a colon, this will mean that the (non-regexp) snippets of the
- Boolean search must match as full words.
-
-This command searches the agenda files, and in addition the files listed
-in `org-agenda-text-search-extra-files'.
-
-\(fn &optional TODO-ONLY STRING EDIT-AT)" t nil)
-
-(autoload 'org-todo-list "org-agenda" "\
-Show all (not done) TODO entries from all agenda file in a single list.
-The prefix arg can be used to select a specific TODO keyword and limit
-the list to these. When using \\[universal-argument], you will be prompted
-for a keyword. A numeric prefix directly selects the Nth keyword in
-`org-todo-keywords-1'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-tags-view "org-agenda" "\
-Show all headlines for all `org-agenda-files' matching a TAGS criterion.
-The prefix arg TODO-ONLY limits the search to TODO entries.
-
-\(fn &optional TODO-ONLY MATCH)" t nil)
-
-(autoload 'org-agenda-list-stuck-projects "org-agenda" "\
-Create agenda view for projects that are stuck.
-Stuck projects are project that have no next actions. For the definitions
-of what a project is and how to check if it stuck, customize the variable
-`org-stuck-projects'.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'org-diary "org-agenda" "\
-Return diary information from org files.
-This function can be used in a \"sexp\" diary entry in the Emacs calendar.
-It accesses org files and extracts information from those files to be
-listed in the diary. The function accepts arguments specifying what
-items should be listed. For a list of arguments allowed here, see the
-variable `org-agenda-entry-types'.
-
-The call in the diary file should look like this:
-
- &%%(org-diary) ~/path/to/some/orgfile.org
-
-Use a separate line for each org file to check. Or, if you omit the file name,
-all files listed in `org-agenda-files' will be checked automatically:
-
- &%%(org-diary)
-
-If you don't give any arguments (as in the example above), the default
-arguments (:deadline :scheduled :timestamp :sexp) are used.
-So the example above may also be written as
-
- &%%(org-diary :deadline :timestamp :sexp :scheduled)
-
-The function expects the lisp variables `entry' and `date' to be provided
-by the caller, because this is how the calendar works. Don't use this
-function from a program - use `org-agenda-get-day-entries' instead.
-
-\(fn &rest ARGS)" nil nil)
-
-(autoload 'org-calendar-goto-agenda "org-agenda" "\
-Compute the Org-mode agenda for the calendar date displayed at the cursor.
-This is a command that has to be installed in `calendar-mode-map'.
-
-\(fn)" t nil)
-
-(autoload 'org-agenda-to-appt "org-agenda" "\
-Activate appointments found in `org-agenda-files'.
-With a \\[universal-argument] prefix, refresh the list of
-appointments.
-
-If FILTER is t, interactively prompt the user for a regular
-expression, and filter out entries that don't match it.
-
-If FILTER is a string, use this string as a regular expression
-for filtering entries out.
-
-If FILTER is a function, filter out entries against which
-calling the function returns nil. This function takes one
-argument: an entry from `org-agenda-get-day-entries'.
-
-FILTER can also be an alist with the car of each cell being
-either 'headline or 'category. For example:
-
- '((headline \"IMPORTANT\")
- (category \"Work\"))
-
-will only add headlines containing IMPORTANT or headlines
-belonging to the \"Work\" category.
-
-ARGS are symbols indicating what kind of entries to consider.
-By default `org-agenda-to-appt' will use :deadline, :scheduled
-and :timestamp entries. See the docstring of `org-diary' for
-details and examples.
-
-If an entry has a APPT_WARNTIME property, its value will be used
-to override `appt-message-warning-time'.
-
-\(fn &optional REFRESH FILTER &rest ARGS)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-beamer-mode org-beamer-sectioning) "org-beamer"
-;;;;;; "org/org-beamer.el" (20707 18685 911514 0))
-;;; Generated autoloads from org/org-beamer.el
-
-(autoload 'org-beamer-sectioning "org-beamer" "\
-Return the sectioning entry for the current headline.
-LEVEL is the reduced level of the headline.
-TEXT is the text of the headline, everything except the leading stars.
-The return value is a cons cell. The car is the headline text, usually
-just TEXT, but possibly modified if options have been extracted from the
-text. The cdr is the sectioning entry, similar to what is given
-in org-export-latex-classes.
-
-\(fn LEVEL TEXT)" nil nil)
-
-(autoload 'org-beamer-mode "org-beamer" "\
-Special support for editing Org-mode files made to export to beamer.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-capture-import-remember-templates org-capture
-;;;;;; org-capture-string) "org-capture" "org/org-capture.el" (20723
-;;;;;; 1786 641767 0))
-;;; Generated autoloads from org/org-capture.el
-
-(autoload 'org-capture-string "org-capture" "\
-
-
-\(fn STRING &optional KEYS)" t nil)
-
-(autoload 'org-capture "org-capture" "\
-Capture something.
-\\<org-capture-mode-map>
-This will let you select a template from `org-capture-templates', and then
-file the newly captured information. The text is immediately inserted
-at the target location, and an indirect buffer is shown where you can
-edit it. Pressing \\[org-capture-finalize] brings you back to the previous state
-of Emacs, so that you can continue your work.
-
-When called interactively with a \\[universal-argument] prefix argument GOTO, don't capture
-anything, just go to the file/headline where the selected template
-stores its notes. With a double prefix argument \\[universal-argument] \\[universal-argument], go to the last note
-stored.
-
-When called with a `C-0' (zero) prefix, insert a template at point.
-
-Lisp programs can set KEYS to a string associated with a template
-in `org-capture-templates'. In this case, interactive selection
-will be bypassed.
-
-If `org-capture-use-agenda-date' is non-nil, capturing from the
-agenda will use the date at point as the default date.
-
-\(fn &optional GOTO KEYS)" t nil)
-
-(autoload 'org-capture-import-remember-templates "org-capture" "\
-Set org-capture-templates to be similar to `org-remember-templates'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-agenda-columns org-insert-columns-dblock org-dblock-write:columnview
-;;;;;; org-columns) "org-colview" "org/org-colview.el" (20716 21904
-;;;;;; 19206 0))
-;;; Generated autoloads from org/org-colview.el
-
-(autoload 'org-columns "org-colview" "\
-Turn on column view on an org-mode file.
-When COLUMNS-FMT-STRING is non-nil, use it as the column format.
-
-\(fn &optional COLUMNS-FMT-STRING)" t nil)
-
-(autoload 'org-dblock-write:columnview "org-colview" "\
-Write the column view table.
-PARAMS is a property list of parameters:
-
-:width enforce same column widths with <N> specifiers.
-:id the :ID: property of the entry where the columns view
- should be built. When the symbol `local', call locally.
- When `global' call column view with the cursor at the beginning
- of the buffer (usually this means that the whole buffer switches
- to column view). When \"file:path/to/file.org\", invoke column
- view at the start of that file. Otherwise, the ID is located
- using `org-id-find'.
-:hlines When t, insert a hline before each item. When a number, insert
- a hline before each level <= that number.
-:vlines When t, make each column a colgroup to enforce vertical lines.
-:maxlevel When set to a number, don't capture headlines below this level.
-:skip-empty-rows
- When t, skip rows where all specifiers other than ITEM are empty.
-:format When non-nil, specify the column view format to use.
-
-\(fn PARAMS)" nil nil)
-
-(autoload 'org-insert-columns-dblock "org-colview" "\
-Create a dynamic block capturing a column view table.
-
-\(fn)" t nil)
-
-(autoload 'org-agenda-columns "org-colview" "\
-Turn on or update column view in the agenda.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-check-version) "org-compat" "org/org-compat.el"
-;;;;;; (20723 1786 641767 0))
-;;; Generated autoloads from org/org-compat.el
-
-(autoload 'org-check-version "org-compat" "\
-Try very hard to provide sensible version strings.
-
-\(fn)" nil t)
-
-;;;***
-\f
-;;;### (autoloads (org-git-version org-release) "org-version" "org/org-version.el"
-;;;;;; (20782 62165 534425 0))
-;;; Generated autoloads from org/org-version.el
-
-(autoload 'org-release "org-version" "\
-The release version of org-mode.
- Inserted by installing org-mode or when a release is made.
-
-\(fn)" nil nil)
-
-(autoload 'org-git-version "org-version" "\
-The Git version of org-mode.
- Inserted by installing org-mode or when a release is made.
-
-\(fn)" nil nil)
-
-(defvar org-odt-data-dir "/usr/share/emacs/etc/org" "\
-The location of ODT styles.")
-
-;;;***
-\f
-;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from outline.el
-(put 'outline-regexp 'safe-local-variable 'stringp)
-(put 'outline-heading-end-regexp 'safe-local-variable 'stringp)
-
-(autoload 'outline-mode "outline" "\
-Set major mode for editing outlines with selective display.
-Headings are lines which start with asterisks: one for major headings,
-two for subheadings, etc. Lines not starting with asterisks are body lines.
-
-Body text or subheadings under a heading can be made temporarily
-invisible, or visible again. Invisible lines are attached to the end
-of the heading, so they move with it, if the line is killed and yanked
-back. A heading with text hidden under it is marked with an ellipsis (...).
-
-Commands:\\<outline-mode-map>
-\\[outline-next-visible-heading] outline-next-visible-heading move by visible headings
-\\[outline-previous-visible-heading] outline-previous-visible-heading
-\\[outline-forward-same-level] outline-forward-same-level similar but skip subheadings
-\\[outline-backward-same-level] outline-backward-same-level
-\\[outline-up-heading] outline-up-heading move from subheading to heading
-
-\\[hide-body] make all text invisible (not headings).
-\\[show-all] make everything in buffer visible.
-\\[hide-sublevels] make only the first N levels of headers visible.
-
-The remaining commands are used when point is on a heading line.
-They apply to some of the body or subheadings of that heading.
-\\[hide-subtree] hide-subtree make body and subheadings invisible.
-\\[show-subtree] show-subtree make body and subheadings visible.
-\\[show-children] show-children make direct subheadings visible.
- No effect on body, or subheadings 2 or more levels down.
- With arg N, affects subheadings N levels down.
-\\[hide-entry] make immediately following body invisible.
-\\[show-entry] make it visible.
-\\[hide-leaves] make body under heading and under its subheadings invisible.
- The subheadings remain visible.
-\\[show-branches] make all subheadings at all levels visible.
-
-The variable `outline-regexp' can be changed to control what is a heading.
-A line is a heading if `outline-regexp' matches something at the
-beginning of the line. The longer the match, the deeper the level.
-
-Turning on outline mode calls the value of `text-mode-hook' and then of
-`outline-mode-hook', if they are non-nil.
-
-\(fn)" t nil)
-
-(autoload 'outline-minor-mode "outline" "\
-Toggle Outline minor mode.
-With a prefix argument ARG, enable Outline minor mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-See the command `outline-mode' for more information on this mode.
-
-\(fn &optional ARG)" t nil)
-(put 'outline-level 'risky-local-variable t)
-
-;;;***
-\f
-;;;### (autoloads (list-packages describe-package package-initialize
-;;;;;; package-refresh-contents package-install-file package-install-from-buffer
-;;;;;; package-install package-enable-at-startup) "package" "emacs-lisp/package.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/package.el
-
-(defvar package-enable-at-startup t "\
-Whether to activate installed packages when Emacs starts.
-If non-nil, packages are activated after reading the init file
-and before `after-init-hook'. Activation is not done if
-`user-init-file' is nil (e.g. Emacs was started with \"-q\").
-
-Even if the value is nil, you can type \\[package-initialize] to
-activate the package system at any time.")
-
-(custom-autoload 'package-enable-at-startup "package" t)
-
-(autoload 'package-install "package" "\
-Install the package named NAME.
-NAME should be the name of one of the available packages in an
-archive in `package-archives'. Interactively, prompt for NAME.
-
-\(fn NAME)" t nil)
-
-(autoload 'package-install-from-buffer "package" "\
-Install a package from the current buffer.
-When called interactively, the current buffer is assumed to be a
-single .el file that follows the packaging guidelines; see info
-node `(elisp)Packaging'.
-
-When called from Lisp, PKG-INFO is a vector describing the
-information, of the type returned by `package-buffer-info'; and
-TYPE is the package type (either `single' or `tar').
-
-\(fn PKG-INFO TYPE)" t nil)
-
-(autoload 'package-install-file "package" "\
-Install a package from a file.
-The file can either be a tar file or an Emacs Lisp file.
-
-\(fn FILE)" t nil)
-
-(autoload 'package-refresh-contents "package" "\
-Download the ELPA archive description if needed.
-This informs Emacs about the latest versions of all packages, and
-makes them available for download.
-
-\(fn)" t nil)
-
-(autoload 'package-initialize "package" "\
-Load Emacs Lisp packages, and activate them.
-The variable `package-load-list' controls which packages to load.
-If optional arg NO-ACTIVATE is non-nil, don't activate packages.
-
-\(fn &optional NO-ACTIVATE)" t nil)
-
-(autoload 'describe-package "package" "\
-Display the full documentation of PACKAGE (a symbol).
-
-\(fn PACKAGE)" t nil)
-
-(autoload 'list-packages "package" "\
-Display a list of packages.
-This first fetches the updated list of packages before
-displaying, unless a prefix argument NO-FETCH is specified.
-The list is displayed in a buffer named `*Packages*'.
-
-\(fn &optional NO-FETCH)" t nil)
-
-(defalias 'package-list-packages 'list-packages)
-
-;;;***
-\f
-;;;### (autoloads (show-paren-mode) "paren" "paren.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from paren.el
-
-(defvar show-paren-mode nil "\
-Non-nil if Show-Paren mode is enabled.
-See the command `show-paren-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `show-paren-mode'.")
-
-(custom-autoload 'show-paren-mode "paren" nil)
-
-(autoload 'show-paren-mode "paren" "\
-Toggle visualization of matching parens (Show Paren mode).
-With a prefix argument ARG, enable Show Paren mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Show Paren mode is a global minor mode. When enabled, any
-matching parenthesis is highlighted in `show-paren-style' after
-`show-paren-delay' seconds of Emacs idle time.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from calendar/parse-time.el
-(put 'parse-time-rules 'risky-local-variable t)
-
-(autoload 'parse-time-string "parse-time" "\
-Parse the time-string STRING into (SEC MIN HOUR DAY MON YEAR DOW DST TZ).
-The values are identical to those of `decode-time', but any values that are
-unknown are returned as nil.
-
-\(fn STRING)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from progmodes/pascal.el
-
-(autoload 'pascal-mode "pascal" "\
-Major mode for editing Pascal code. \\<pascal-mode-map>
-TAB indents for Pascal code. Delete converts tabs to spaces as it moves back.
-
-\\[completion-at-point] completes the word around current point with respect to position in code
-\\[completion-help-at-point] shows all possible completions at this point.
-
-Other useful functions are:
-
-\\[pascal-mark-defun] - Mark function.
-\\[pascal-insert-block] - insert begin ... end;
-\\[pascal-star-comment] - insert (* ... *)
-\\[pascal-comment-area] - Put marked area in a comment, fixing nested comments.
-\\[pascal-uncomment-area] - Uncomment an area commented with \\[pascal-comment-area].
-\\[pascal-beg-of-defun] - Move to beginning of current function.
-\\[pascal-end-of-defun] - Move to end of current function.
-\\[pascal-goto-defun] - Goto function prompted for in the minibuffer.
-\\[pascal-outline-mode] - Enter `pascal-outline-mode'.
-
-Variables controlling indentation/edit style:
-
- `pascal-indent-level' (default 3)
- Indentation of Pascal statements with respect to containing block.
- `pascal-case-indent' (default 2)
- Indentation for case statements.
- `pascal-auto-newline' (default nil)
- Non-nil means automatically newline after semicolons and the punctuation
- mark after an end.
- `pascal-indent-nested-functions' (default t)
- Non-nil means nested functions are indented.
- `pascal-tab-always-indent' (default t)
- Non-nil means TAB in Pascal mode should always reindent the current line,
- regardless of where in the line point is when the TAB command is used.
- `pascal-auto-endcomments' (default t)
- Non-nil means a comment { ... } is set after the ends which ends cases and
- functions. The name of the function or case will be set between the braces.
- `pascal-auto-lineup' (default t)
- List of contexts where auto lineup of :'s or ='s should be done.
-
-See also the user variables `pascal-type-keywords', `pascal-start-keywords' and
-`pascal-separator-keywords'.
-
-Turning on Pascal mode calls the value of the variable pascal-mode-hook with
-no args, if that value is non-nil.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (password-in-cache-p password-cache-expiry password-cache)
-;;;;;; "password-cache" "password-cache.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from password-cache.el
-
-(defvar password-cache t "\
-Whether to cache passwords.")
-
-(custom-autoload 'password-cache "password-cache" t)
-
-(defvar password-cache-expiry 16 "\
-How many seconds passwords are cached, or nil to disable expiring.
-Whether passwords are cached at all is controlled by `password-cache'.")
-
-(custom-autoload 'password-cache-expiry "password-cache" t)
-
-(autoload 'password-in-cache-p "password-cache" "\
-Check if KEY is in the cache.
-
-\(fn KEY)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (pcase-let pcase-let* pcase) "pcase" "emacs-lisp/pcase.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/pcase.el
-
-(autoload 'pcase "pcase" "\
-Perform ML-style pattern matching on EXP.
-CASES is a list of elements of the form (UPATTERN CODE...).
-
-UPatterns can take the following forms:
- _ matches anything.
- SELFQUOTING matches itself. This includes keywords, numbers, and strings.
- SYMBOL matches anything and binds it to SYMBOL.
- (or UPAT...) matches if any of the patterns matches.
- (and UPAT...) matches if all the patterns match.
- `QPAT matches if the QPattern QPAT matches.
- (pred PRED) matches if PRED applied to the object returns non-nil.
- (guard BOOLEXP) matches if BOOLEXP evaluates to non-nil.
- (let UPAT EXP) matches if EXP matches UPAT.
-If a SYMBOL is used twice in the same pattern (i.e. the pattern is
-\"non-linear\"), then the second occurrence is turned into an `eq'uality test.
-
-QPatterns can take the following forms:
- (QPAT1 . QPAT2) matches if QPAT1 matches the car and QPAT2 the cdr.
- ,UPAT matches if the UPattern UPAT matches.
- STRING matches if the object is `equal' to STRING.
- ATOM matches if the object is `eq' to ATOM.
-QPatterns for vectors are not implemented yet.
-
-PRED can take the form
- FUNCTION in which case it gets called with one argument.
- (FUN ARG1 .. ARGN) in which case it gets called with an N+1'th argument
- which is the value being matched.
-A PRED of the form FUNCTION is equivalent to one of the form (FUNCTION).
-PRED patterns can refer to variables bound earlier in the pattern.
-E.g. you can match pairs where the cdr is larger than the car with a pattern
-like `(,a . ,(pred (< a))) or, with more checks:
-`(,(and a (pred numberp)) . ,(and (pred numberp) (pred (< a))))
-
-\(fn EXP &rest CASES)" nil t)
-
-(put 'pcase 'lisp-indent-function '1)
-
-(autoload 'pcase-let* "pcase" "\
-Like `let*' but where you can use `pcase' patterns for bindings.
-BODY should be an expression, and BINDINGS should be a list of bindings
-of the form (UPAT EXP).
-
-\(fn BINDINGS &rest BODY)" nil t)
-
-(put 'pcase-let* 'lisp-indent-function '1)
-
-(autoload 'pcase-let "pcase" "\
-Like `let' but where you can use `pcase' patterns for bindings.
-BODY should be a list of expressions, and BINDINGS should be a list of bindings
-of the form (UPAT EXP).
-
-\(fn BINDINGS &rest BODY)" nil t)
-
-(put 'pcase-let 'lisp-indent-function '1)
-
-;;;***
-\f
-;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from pcmpl-cvs.el
-
-(autoload 'pcomplete/cvs "pcmpl-cvs" "\
-Completion rules for the `cvs' command.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip)
-;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (20707 18685 911514 0))
-;;; Generated autoloads from pcmpl-gnu.el
-
-(autoload 'pcomplete/gzip "pcmpl-gnu" "\
-Completion for `gzip'.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/bzip2 "pcmpl-gnu" "\
-Completion for `bzip2'.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/make "pcmpl-gnu" "\
-Completion for GNU `make'.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/tar "pcmpl-gnu" "\
-Completion for the GNU tar utility.
-
-\(fn)" nil nil)
-
-(defalias 'pcomplete/gdb 'pcomplete/xargs)
-
-;;;***
-\f
-;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill)
-;;;;;; "pcmpl-linux" "pcmpl-linux.el" (20707 18685 911514 0))
-;;; Generated autoloads from pcmpl-linux.el
-
-(autoload 'pcomplete/kill "pcmpl-linux" "\
-Completion for GNU/Linux `kill', using /proc filesystem.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/umount "pcmpl-linux" "\
-Completion for GNU/Linux `umount'.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/mount "pcmpl-linux" "\
-Completion for GNU/Linux `mount'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from pcmpl-rpm.el
-
-(autoload 'pcomplete/rpm "pcmpl-rpm" "\
-Completion for the `rpm' command.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (pcomplete/scp pcomplete/ssh pcomplete/chgrp pcomplete/chown
-;;;;;; pcomplete/which pcomplete/xargs pcomplete/rm pcomplete/rmdir
-;;;;;; pcomplete/cd) "pcmpl-unix" "pcmpl-unix.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from pcmpl-unix.el
-
-(autoload 'pcomplete/cd "pcmpl-unix" "\
-Completion for `cd'.
-
-\(fn)" nil nil)
-
-(defalias 'pcomplete/pushd 'pcomplete/cd)
-
-(autoload 'pcomplete/rmdir "pcmpl-unix" "\
-Completion for `rmdir'.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/rm "pcmpl-unix" "\
-Completion for `rm'.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/xargs "pcmpl-unix" "\
-Completion for `xargs'.
-
-\(fn)" nil nil)
-
-(defalias 'pcomplete/time 'pcomplete/xargs)
-
-(autoload 'pcomplete/which "pcmpl-unix" "\
-Completion for `which'.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/chown "pcmpl-unix" "\
-Completion for the `chown' command.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/chgrp "pcmpl-unix" "\
-Completion for the `chgrp' command.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/ssh "pcmpl-unix" "\
-Completion rules for the `ssh' command.
-
-\(fn)" nil nil)
-
-(autoload 'pcomplete/scp "pcmpl-unix" "\
-Completion rules for the `scp' command.
-Includes files as well as host names followed by a colon.
-
-\(fn)" nil nil)
-
-;;;***
-\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" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from pcomplete.el
-
-(autoload 'pcomplete "pcomplete" "\
-Support extensible programmable completion.
-To use this function, just bind the TAB key to it, or add it to your
-completion functions list (it should occur fairly early in the list).
-
-\(fn &optional INTERACTIVELY)" t nil)
-
-(autoload 'pcomplete-reverse "pcomplete" "\
-If cycling completion is in use, cycle backwards.
-
-\(fn)" t nil)
-
-(autoload 'pcomplete-expand-and-complete "pcomplete" "\
-Expand the textual value of the current argument.
-This will modify the current buffer.
-
-\(fn)" t nil)
-
-(autoload 'pcomplete-continue "pcomplete" "\
-Complete without reference to any cycling completions.
-
-\(fn)" t nil)
-
-(autoload 'pcomplete-expand "pcomplete" "\
-Expand the textual value of the current argument.
-This will modify the current buffer.
-
-\(fn)" t nil)
-
-(autoload 'pcomplete-help "pcomplete" "\
-Display any help information relative to the current argument.
-
-\(fn)" t nil)
-
-(autoload 'pcomplete-list "pcomplete" "\
-Show the list of possible completions for the current argument.
-
-\(fn)" t nil)
-
-(autoload 'pcomplete-comint-setup "pcomplete" "\
-Setup a comint buffer to use pcomplete.
-COMPLETEF-SYM should be the symbol where the
-dynamic-complete-functions are kept. For comint mode itself,
-this is `comint-dynamic-complete-functions'.
-
-\(fn COMPLETEF-SYM)" nil nil)
-
-(autoload 'pcomplete-shell-setup "pcomplete" "\
-Setup `shell-mode' to use pcomplete.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status
-;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs"
-;;;;;; "vc/pcvs.el" (20707 18685 911514 0))
-;;; Generated autoloads from vc/pcvs.el
-
-(autoload 'cvs-checkout "pcvs" "\
-Run a 'cvs checkout MODULES' in DIR.
-Feed the output to a *cvs* buffer, display it in the current window,
-and run `cvs-mode' on it.
-
-With a prefix argument, prompt for cvs FLAGS to use.
-
-\(fn MODULES DIR FLAGS &optional ROOT)" t nil)
-
-(autoload 'cvs-quickdir "pcvs" "\
-Open a *cvs* buffer on DIR without running cvs.
-With a prefix argument, prompt for a directory to use.
-A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]),
- prevents reuse of an existing *cvs* buffer.
-Optional argument NOSHOW if non-nil means not to display the buffer.
-FLAGS is ignored.
-
-\(fn DIR &optional FLAGS NOSHOW)" t nil)
-
-(autoload 'cvs-examine "pcvs" "\
-Run a `cvs -n update' in the specified DIRECTORY.
-That is, check what needs to be done, but don't change the disc.
-Feed the output to a *cvs* buffer and run `cvs-mode' on it.
-With a prefix argument, prompt for a directory and cvs FLAGS to use.
-A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]),
- prevents reuse of an existing *cvs* buffer.
-Optional argument NOSHOW if non-nil means not to display the buffer.
-
-\(fn DIRECTORY FLAGS &optional NOSHOW)" t nil)
-
-(autoload 'cvs-update "pcvs" "\
-Run a `cvs update' in the current working DIRECTORY.
-Feed the output to a *cvs* buffer and run `cvs-mode' on it.
-With a \\[universal-argument] prefix argument, prompt for a directory to use.
-A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]),
- prevents reuse of an existing *cvs* buffer.
-The prefix is also passed to `cvs-flags-query' to select the FLAGS
- passed to cvs.
-
-\(fn DIRECTORY FLAGS)" t nil)
-
-(autoload 'cvs-status "pcvs" "\
-Run a `cvs status' in the current working DIRECTORY.
-Feed the output to a *cvs* buffer and run `cvs-mode' on it.
-With a prefix argument, prompt for a directory and cvs FLAGS to use.
-A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]),
- prevents reuse of an existing *cvs* buffer.
-Optional argument NOSHOW if non-nil means not to display the buffer.
-
-\(fn DIRECTORY FLAGS &optional NOSHOW)" t nil)
-
-(defvar cvs-dired-action 'cvs-quickdir "\
-The action to be performed when opening a CVS directory.
-Sensible values are `cvs-examine', `cvs-status' and `cvs-quickdir'.")
-
-(custom-autoload 'cvs-dired-action "pcvs" t)
-
-(defvar cvs-dired-use-hook '(4) "\
-Whether or not opening a CVS directory should run PCL-CVS.
-A value of nil means never do it.
-ALWAYS means to always do it unless a prefix argument is given to the
- command that prompted the opening of the directory.
-Anything else means to do it only if the prefix arg is equal to this value.")
-
-(custom-autoload 'cvs-dired-use-hook "pcvs" t)
-
-(defun cvs-dired-noselect (dir) "\
-Run `cvs-examine' if DIR is a CVS administrative directory.
-The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp dir) (setq dir (directory-file-name dir)) (when (and (string= "CVS" (file-name-nondirectory dir)) (file-readable-p (expand-file-name "Entries" dir)) cvs-dired-use-hook (if (eq cvs-dired-use-hook (quote always)) (not current-prefix-arg) (equal current-prefix-arg cvs-dired-use-hook))) (save-excursion (funcall cvs-dired-action (file-name-directory dir) t t)))))
-
-;;;***
-\f
-;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from vc/pcvs-defs.el
-
-(defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] `(menu-item ,(purecopy "Directory Status") cvs-status :help ,(purecopy "A more verbose status of a workarea"))) (define-key m [checkout] `(menu-item ,(purecopy "Checkout Module") cvs-checkout :help ,(purecopy "Check out a module from the repository"))) (define-key m [update] `(menu-item ,(purecopy "Update Directory") cvs-update :help ,(purecopy "Fetch updates from the repository"))) (define-key m [examine] `(menu-item ,(purecopy "Examine Directory") cvs-examine :help ,(purecopy "Examine the current state of a workarea"))) (fset 'cvs-global-menu m)) "\
-Global menu used by PCL-CVS.")
-
-;;;***
-\f
-;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/perl-mode.el
-(put 'perl-indent-level 'safe-local-variable 'integerp)
-(put 'perl-continued-statement-offset 'safe-local-variable 'integerp)
-(put 'perl-continued-brace-offset 'safe-local-variable 'integerp)
-(put 'perl-brace-offset 'safe-local-variable 'integerp)
-(put 'perl-brace-imaginary-offset 'safe-local-variable 'integerp)
-(put 'perl-label-offset 'safe-local-variable 'integerp)
-
-(autoload 'perl-mode "perl-mode" "\
-Major mode for editing Perl code.
-Expression and list commands understand all Perl brackets.
-Tab indents for Perl code.
-Comments are delimited with # ... \\n.
-Paragraphs are separated by blank lines only.
-Delete converts tabs to spaces as it moves back.
-\\{perl-mode-map}
-Variables controlling indentation style:
- `perl-tab-always-indent'
- Non-nil means TAB in Perl mode should always indent the current line,
- regardless of where in the line point is when the TAB command is used.
- `perl-tab-to-comment'
- Non-nil means that for lines which don't need indenting, TAB will
- either delete an empty comment, indent an existing comment, move
- to end-of-line, or if at end-of-line already, create a new comment.
- `perl-nochange'
- Lines starting with this regular expression are not auto-indented.
- `perl-indent-level'
- Indentation of Perl statements within surrounding block.
- The surrounding block's indentation is the indentation
- of the line on which the open-brace appears.
- `perl-continued-statement-offset'
- Extra indentation given to a substatement, such as the
- then-clause of an if or body of a while.
- `perl-continued-brace-offset'
- Extra indentation given to a brace that starts a substatement.
- This is in addition to `perl-continued-statement-offset'.
- `perl-brace-offset'
- Extra indentation for line if it starts with an open brace.
- `perl-brace-imaginary-offset'
- An open brace following other text is treated as if it were
- this far to the right of the start of its line.
- `perl-label-offset'
- Extra indentation for line that is a label.
- `perl-indent-continued-arguments'
- Offset of argument lines relative to usual indentation.
-
-Various indentation styles: K&R BSD BLK GNU LW
- perl-indent-level 5 8 0 2 4
- perl-continued-statement-offset 5 8 4 2 4
- perl-continued-brace-offset 0 0 0 0 -4
- perl-brace-offset -5 -8 0 0 0
- perl-brace-imaginary-offset 0 0 4 0 0
- perl-label-offset -5 -8 -2 -2 -2
-
-Turning on Perl mode runs the normal hook `perl-mode-hook'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/picture.el
-
-(autoload 'picture-mode "picture" "\
-Switch to Picture mode, in which a quarter-plane screen model is used.
-\\<picture-mode-map>
-Printing characters replace instead of inserting themselves with motion
-afterwards settable by these commands:
-
- Move left after insertion: \\[picture-movement-left]
- Move right after insertion: \\[picture-movement-right]
- Move up after insertion: \\[picture-movement-up]
- Move down after insertion: \\[picture-movement-down]
-
- Move northwest (nw) after insertion: \\[picture-movement-nw]
- Move northeast (ne) after insertion: \\[picture-movement-ne]
- Move southwest (sw) after insertion: \\[picture-movement-sw]
- Move southeast (se) after insertion: \\[picture-movement-se]
-
- Move westnorthwest (wnw) after insertion: C-u \\[picture-movement-nw]
- Move eastnortheast (ene) after insertion: C-u \\[picture-movement-ne]
- Move westsouthwest (wsw) after insertion: C-u \\[picture-movement-sw]
- Move eastsoutheast (ese) after insertion: C-u \\[picture-movement-se]
-
-The current direction is displayed in the mode line. The initial
-direction is right. Whitespace is inserted and tabs are changed to
-spaces when required by movement. You can move around in the buffer
-with these commands:
-
- Move vertically to SAME column in previous line: \\[picture-move-down]
- Move vertically to SAME column in next line: \\[picture-move-up]
- Move to column following last
- non-whitespace character: \\[picture-end-of-line]
- Move right, inserting spaces if required: \\[picture-forward-column]
- Move left changing tabs to spaces if required: \\[picture-backward-column]
- Move in direction of current picture motion: \\[picture-motion]
- Move opposite to current picture motion: \\[picture-motion-reverse]
- Move to beginning of next line: \\[next-line]
-
-You can edit tabular text with these commands:
-
- Move to column beneath (or at) next interesting
- character (see variable `picture-tab-chars'): \\[picture-tab-search]
- Move to next stop in tab stop list: \\[picture-tab]
- Set tab stops according to context of this line: \\[picture-set-tab-stops]
- (With ARG, resets tab stops to default value.)
- Change the tab stop list: \\[edit-tab-stops]
-
-You can manipulate text with these commands:
- Clear ARG columns after point without moving: \\[picture-clear-column]
- Delete char at point: \\[picture-delete-char]
- Clear ARG columns backward: \\[picture-backward-clear-column]
- Clear ARG lines, advancing over them: \\[picture-clear-line]
- (the cleared text is saved in the kill ring)
- Open blank line(s) beneath current line: \\[picture-open-line]
-
-You can manipulate rectangles with these commands:
- Clear a rectangle and save it: \\[picture-clear-rectangle]
- Clear a rectangle, saving in a named register: \\[picture-clear-rectangle-to-register]
- Insert currently saved rectangle at point: \\[picture-yank-rectangle]
- Insert rectangle from named register: \\[picture-yank-rectangle-from-register]
- Draw a rectangular box around mark and point: \\[picture-draw-rectangle]
- Copies a rectangle to a register: \\[copy-rectangle-to-register]
- Undo effects of rectangle overlay commands: \\[undo]
-
-You can return to the previous mode with \\[picture-mode-exit], which
-also strips trailing whitespace from every line. Stripping is suppressed
-by supplying an argument.
-
-Entry to this mode calls the value of `picture-mode-hook' if non-nil.
-
-Note that Picture mode commands will work outside of Picture mode, but
-they are not by default assigned to keys.
-
-\(fn)" t nil)
-
-(defalias 'edit-picture 'picture-mode)
-
-;;;***
-\f
-;;;### (autoloads (plstore-mode plstore-open) "plstore" "gnus/plstore.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/plstore.el
-
-(autoload 'plstore-open "plstore" "\
-Create a plstore instance associated with FILE.
-
-\(fn FILE)" nil nil)
-
-(autoload 'plstore-mode "plstore" "\
-Major mode for editing PLSTORE files.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/po.el
-
-(autoload 'po-find-file-coding-system "po" "\
-Return a (DECODING . ENCODING) pair, according to PO file's charset.
-Called through `file-coding-system-alist', before the file is visited for real.
-
-\(fn ARG-LIST)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (pong) "pong" "play/pong.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from play/pong.el
-
-(autoload 'pong "pong" "\
-Play pong and waste time.
-This is an implementation of the classical game pong.
-Move left and right bats and try to bounce the ball to your opponent.
-
-pong-mode keybindings:\\<pong-mode-map>
-
-\\{pong-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from gnus/pop3.el
-
-(autoload 'pop3-movemail "pop3" "\
-Transfer contents of a maildrop to the specified FILE.
-Use streaming commands.
-
-\(fn FILE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (pp-macroexpand-last-sexp pp-eval-last-sexp pp-macroexpand-expression
-;;;;;; pp-eval-expression pp pp-buffer pp-to-string) "pp" "emacs-lisp/pp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/pp.el
-
-(autoload 'pp-to-string "pp" "\
-Return a string containing the pretty-printed representation of OBJECT.
-OBJECT can be any Lisp object. Quoting characters are used as needed
-to make output that `read' can handle, whenever this is possible.
-
-\(fn OBJECT)" nil nil)
-
-(autoload 'pp-buffer "pp" "\
-Prettify the current buffer with printed representation of a Lisp object.
-
-\(fn)" nil nil)
-
-(autoload 'pp "pp" "\
-Output the pretty-printed representation of OBJECT, any Lisp object.
-Quoting characters are printed as needed to make output that `read'
-can handle, whenever this is possible.
-Output stream is STREAM, or value of `standard-output' (which see).
-
-\(fn OBJECT &optional STREAM)" nil nil)
-
-(autoload 'pp-eval-expression "pp" "\
-Evaluate EXPRESSION and pretty-print its value.
-Also add the value to the front of the list in the variable `values'.
-
-\(fn EXPRESSION)" t nil)
-
-(autoload 'pp-macroexpand-expression "pp" "\
-Macroexpand EXPRESSION and pretty-print its value.
-
-\(fn EXPRESSION)" t nil)
-
-(autoload 'pp-eval-last-sexp "pp" "\
-Run `pp-eval-expression' on sexp before point.
-With argument, pretty-print output into current buffer.
-Ignores leading comment characters.
-
-\(fn ARG)" t nil)
-
-(autoload 'pp-macroexpand-last-sexp "pp" "\
-Run `pp-macroexpand-expression' on sexp before point.
-With argument, pretty-print output into current buffer.
-Ignores leading comment characters.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (pr-txt-fast-fire pr-ps-fast-fire pr-show-lpr-setup
-;;;;;; pr-show-pr-setup pr-show-ps-setup pr-ps-utility pr-txt-name
-;;;;;; pr-ps-name pr-help lpr-customize pr-customize pr-toggle-mode
-;;;;;; pr-toggle-region pr-toggle-lock pr-toggle-header-frame pr-toggle-header
-;;;;;; pr-toggle-zebra pr-toggle-line pr-toggle-upside-down pr-toggle-landscape
-;;;;;; pr-toggle-tumble pr-toggle-duplex pr-toggle-spool pr-toggle-faces
-;;;;;; pr-toggle-ghostscript pr-toggle-file-landscape pr-toggle-file-tumble
-;;;;;; pr-toggle-file-duplex pr-ps-file-up-ps-print pr-ps-file-ps-print
-;;;;;; pr-ps-file-print pr-ps-file-using-ghostscript pr-ps-file-up-preview
-;;;;;; pr-ps-file-preview pr-despool-ps-print pr-despool-print pr-despool-using-ghostscript
-;;;;;; pr-despool-preview pr-txt-mode pr-txt-region pr-txt-buffer
-;;;;;; pr-txt-directory pr-printify-region pr-printify-buffer pr-printify-directory
-;;;;;; pr-ps-mode-ps-print pr-ps-mode-print pr-ps-mode-using-ghostscript
-;;;;;; pr-ps-mode-preview pr-ps-region-ps-print pr-ps-region-print
-;;;;;; pr-ps-region-using-ghostscript pr-ps-region-preview pr-ps-buffer-ps-print
-;;;;;; 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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from printing.el
-
-(autoload 'pr-interface "printing" "\
-Activate the printing interface buffer.
-
-If BUFFER is nil, the current buffer is used for printing.
-
-For more information, type \\[pr-interface-help].
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'pr-ps-directory-preview "printing" "\
-Preview directory using ghostview.
-
-Interactively, the command prompts for N-UP printing number, a directory, a
-file name regexp for matching and, when you use a prefix argument (C-u), the
-command prompts the user for a file name, and saves the PostScript image in
-that file instead of saving it in a temporary file.
-
-Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
-nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
-FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
-save the image in a temporary file. If FILENAME is a string, save the
-PostScript image in a file with that name. If FILENAME is t, prompts for a
-file name.
-
-See also documentation for `pr-list-directory'.
-
-\(fn N-UP DIR FILE-REGEXP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-directory-using-ghostscript "printing" "\
-Print directory using PostScript through ghostscript.
-
-Interactively, the command prompts for N-UP printing number, a directory, a
-file name regexp for matching and, when you use a prefix argument (C-u), the
-command prompts the user for a file name, and saves the PostScript image in
-that file instead of saving it in a temporary file.
-
-Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
-nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
-FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
-save the image in a temporary file. If FILENAME is a string, save the
-PostScript image in a file with that name. If FILENAME is t, prompts for a
-file name.
-
-See also documentation for `pr-list-directory'.
-
-\(fn N-UP DIR FILE-REGEXP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-directory-print "printing" "\
-Print directory using PostScript printer.
-
-Interactively, the command prompts for N-UP printing number, a directory, a
-file name regexp for matching and, when you use a prefix argument (C-u), the
-command prompts the user for a file name, and saves the PostScript image in
-that file instead of saving it in a temporary file.
-
-Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
-nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
-FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
-save the image in a temporary file. If FILENAME is a string, save the
-PostScript image in a file with that name. If FILENAME is t, prompts for a
-file name.
-
-See also documentation for `pr-list-directory'.
-
-\(fn N-UP DIR FILE-REGEXP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-directory-ps-print "printing" "\
-Print directory using PostScript printer or through ghostscript.
-
-It depends on `pr-print-using-ghostscript'.
-
-Interactively, the command prompts for N-UP printing number, a directory, a
-file name regexp for matching and, when you use a prefix argument (C-u), the
-command prompts the user for a file name, and saves the PostScript image in
-that file instead of saving it in a temporary file.
-
-Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
-nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
-FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
-save the image in a temporary file. If FILENAME is a string, save the
-PostScript image in a file with that name. If FILENAME is t, prompts for a
-file name.
-
-See also documentation for `pr-list-directory'.
-
-\(fn N-UP DIR FILE-REGEXP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-buffer-preview "printing" "\
-Preview buffer using ghostview.
-
-Interactively, the command prompts for N-UP printing number and, when you use a
-prefix argument (C-u), the command prompts the user for a file name, and saves
-the PostScript image in that file instead of saving it in a temporary file.
-
-Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
-argument FILENAME is treated as follows: if it's nil, save the image in a
-temporary file. If FILENAME is a string, save the PostScript image in a file
-with that name. If FILENAME is t, prompts for a file name.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-buffer-using-ghostscript "printing" "\
-Print buffer using PostScript through ghostscript.
-
-Interactively, the command prompts for N-UP printing number and, when you use a
-prefix argument (C-u), the command prompts the user for a file name, and saves
-the PostScript image in that file instead of sending it to the printer.
-
-Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
-argument FILENAME is treated as follows: if it's nil, send the image to the
-printer. If FILENAME is a string, save the PostScript image in a file with
-that name. If FILENAME is t, prompts for a file name.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-buffer-print "printing" "\
-Print buffer using PostScript printer.
-
-Interactively, the command prompts for N-UP printing number and, when you use a
-prefix argument (C-u), the command prompts the user for a file name, and saves
-the PostScript image in that file instead of sending it to the printer.
-
-Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
-argument FILENAME is treated as follows: if it's nil, send the image to the
-printer. If FILENAME is a string, save the PostScript image in a file with
-that name. If FILENAME is t, prompts for a file name.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-buffer-ps-print "printing" "\
-Print buffer using PostScript printer or through ghostscript.
-
-It depends on `pr-print-using-ghostscript'.
-
-Interactively, the command prompts for N-UP printing number and, when you use a
-prefix argument (C-u), the command prompts the user for a file name, and saves
-the PostScript image in that file instead of sending it to the printer.
-
-Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
-argument FILENAME is treated as follows: if it's nil, send the image to the
-printer. If FILENAME is a string, save the PostScript image in a file with
-that name. If FILENAME is t, prompts for a file name.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-region-preview "printing" "\
-Preview region using ghostview.
-
-See also `pr-ps-buffer-preview'.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-region-using-ghostscript "printing" "\
-Print region using PostScript through ghostscript.
-
-See also `pr-ps-buffer-using-ghostscript'.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-region-print "printing" "\
-Print region using PostScript printer.
-
-See also `pr-ps-buffer-print'.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-region-ps-print "printing" "\
-Print region using PostScript printer or through ghostscript.
-
-See also `pr-ps-buffer-ps-print'.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-mode-preview "printing" "\
-Preview major mode using ghostview.
-
-See also `pr-ps-buffer-preview'.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-mode-using-ghostscript "printing" "\
-Print major mode using PostScript through ghostscript.
-
-See also `pr-ps-buffer-using-ghostscript'.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-mode-print "printing" "\
-Print major mode using PostScript printer.
-
-See also `pr-ps-buffer-print'.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-mode-ps-print "printing" "\
-Print major mode using PostScript or through ghostscript.
-
-See also `pr-ps-buffer-ps-print'.
-
-\(fn N-UP &optional FILENAME)" t nil)
-
-(autoload 'pr-printify-directory "printing" "\
-Replace nonprinting characters in directory with printable representations.
-The printable representations use ^ (for ASCII control characters) or hex.
-The characters tab, linefeed, space, return and formfeed are not affected.
-
-Interactively, the command prompts for a directory and a file name regexp for
-matching.
-
-Noninteractively, if DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil,
-prompts for FILE(name)-REGEXP.
-
-See also documentation for `pr-list-directory'.
-
-\(fn &optional DIR FILE-REGEXP)" t nil)
-
-(autoload 'pr-printify-buffer "printing" "\
-Replace nonprinting characters in buffer with printable representations.
-The printable representations use ^ (for ASCII control characters) or hex.
-The characters tab, linefeed, space, return and formfeed are not affected.
-
-\(fn)" t nil)
-
-(autoload 'pr-printify-region "printing" "\
-Replace nonprinting characters in region with printable representations.
-The printable representations use ^ (for ASCII control characters) or hex.
-The characters tab, linefeed, space, return and formfeed are not affected.
-
-\(fn)" t nil)
-
-(autoload 'pr-txt-directory "printing" "\
-Print directory using text printer.
-
-Interactively, the command prompts for a directory and a file name regexp for
-matching.
-
-Noninteractively, if DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil,
-prompts for FILE(name)-REGEXP.
-
-See also documentation for `pr-list-directory'.
-
-\(fn &optional DIR FILE-REGEXP)" t nil)
-
-(autoload 'pr-txt-buffer "printing" "\
-Print buffer using text printer.
-
-\(fn)" t nil)
-
-(autoload 'pr-txt-region "printing" "\
-Print region using text printer.
-
-\(fn)" t nil)
-
-(autoload 'pr-txt-mode "printing" "\
-Print major mode using text printer.
-
-\(fn)" t nil)
-
-(autoload 'pr-despool-preview "printing" "\
-Preview spooled PostScript.
-
-Interactively, when you use a prefix argument (C-u), the command prompts the
-user for a file name, and saves the spooled PostScript image in that file
-instead of saving it in a temporary file.
-
-Noninteractively, the argument FILENAME is treated as follows: if it is nil,
-save the image in a temporary file. If FILENAME is a string, save the
-PostScript image in a file with that name.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'pr-despool-using-ghostscript "printing" "\
-Print spooled PostScript using ghostscript.
-
-Interactively, when you use a prefix argument (C-u), the command prompts the
-user for a file name, and saves the spooled PostScript image in that file
-instead of sending it to the printer.
-
-Noninteractively, the argument FILENAME is treated as follows: if it is nil,
-send the image to the printer. If FILENAME is a string, save the PostScript
-image in a file with that name.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'pr-despool-print "printing" "\
-Send the spooled PostScript to the printer.
-
-Interactively, when you use a prefix argument (C-u), the command prompts the
-user for a file name, and saves the spooled PostScript image in that file
-instead of sending it to the printer.
-
-Noninteractively, the argument FILENAME is treated as follows: if it is nil,
-send the image to the printer. If FILENAME is a string, save the PostScript
-image in a file with that name.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'pr-despool-ps-print "printing" "\
-Send the spooled PostScript to the printer or use ghostscript to print it.
-
-Interactively, when you use a prefix argument (C-u), the command prompts the
-user for a file name, and saves the spooled PostScript image in that file
-instead of sending it to the printer.
-
-Noninteractively, the argument FILENAME is treated as follows: if it is nil,
-send the image to the printer. If FILENAME is a string, save the PostScript
-image in a file with that name.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'pr-ps-file-preview "printing" "\
-Preview PostScript file FILENAME.
-
-\(fn FILENAME)" t nil)
-
-(autoload 'pr-ps-file-up-preview "printing" "\
-Preview PostScript file FILENAME.
-
-\(fn N-UP IFILENAME &optional OFILENAME)" t nil)
-
-(autoload 'pr-ps-file-using-ghostscript "printing" "\
-Print PostScript file FILENAME using ghostscript.
-
-\(fn FILENAME)" t nil)
-
-(autoload 'pr-ps-file-print "printing" "\
-Print PostScript file FILENAME.
-
-\(fn FILENAME)" t nil)
-
-(autoload 'pr-ps-file-ps-print "printing" "\
-Send PostScript file FILENAME to printer or use ghostscript to print it.
-
-\(fn FILENAME)" t nil)
-
-(autoload 'pr-ps-file-up-ps-print "printing" "\
-Process a PostScript file IFILENAME and send it to printer.
-
-Interactively, the command prompts for N-UP printing number, for an input
-PostScript file IFILENAME and, when you use a prefix argument (C-u), the
-command prompts the user for an output PostScript file name OFILENAME, and
-saves the PostScript image in that file instead of sending it to the printer.
-
-Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
-argument IFILENAME is treated as follows: if it's t, prompts for an input
-PostScript file name; otherwise, it *must* be a string that it's an input
-PostScript file name. The argument OFILENAME is treated as follows: if it's
-nil, send the image to the printer. If OFILENAME is a string, save the
-PostScript image in a file with that name. If OFILENAME is t, prompts for a
-file name.
-
-\(fn N-UP IFILENAME &optional OFILENAME)" t nil)
-
-(autoload 'pr-toggle-file-duplex "printing" "\
-Toggle duplex for PostScript file.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-file-tumble "printing" "\
-Toggle tumble for PostScript file.
-
-If tumble is off, produces a printing suitable for binding on the left or
-right.
-If tumble is on, produces a printing suitable for binding at the top or
-bottom.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-file-landscape "printing" "\
-Toggle landscape for PostScript file.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-ghostscript "printing" "\
-Toggle printing using ghostscript.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-faces "printing" "\
-Toggle printing with faces.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-spool "printing" "\
-Toggle spooling.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-duplex "printing" "\
-Toggle duplex.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-tumble "printing" "\
-Toggle tumble.
-
-If tumble is off, produces a printing suitable for binding on the left or
-right.
-If tumble is on, produces a printing suitable for binding at the top or
-bottom.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-landscape "printing" "\
-Toggle landscape.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-upside-down "printing" "\
-Toggle upside-down.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-line "printing" "\
-Toggle line number.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-zebra "printing" "\
-Toggle zebra stripes.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-header "printing" "\
-Toggle printing header.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-header-frame "printing" "\
-Toggle printing header frame.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-lock "printing" "\
-Toggle menu lock.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-region "printing" "\
-Toggle whether the region is automagically detected.
-
-\(fn)" t nil)
-
-(autoload 'pr-toggle-mode "printing" "\
-Toggle auto mode.
-
-\(fn)" t nil)
-
-(autoload 'pr-customize "printing" "\
-Customization of the `printing' group.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'lpr-customize "printing" "\
-Customization of the `lpr' group.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'pr-help "printing" "\
-Help for the printing package.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'pr-ps-name "printing" "\
-Interactively select a PostScript printer.
-
-\(fn)" t nil)
-
-(autoload 'pr-txt-name "printing" "\
-Interactively select a text printer.
-
-\(fn)" t nil)
-
-(autoload 'pr-ps-utility "printing" "\
-Interactively select a PostScript utility.
-
-\(fn)" t nil)
-
-(autoload 'pr-show-ps-setup "printing" "\
-Show current ps-print settings.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'pr-show-pr-setup "printing" "\
-Show current printing settings.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'pr-show-lpr-setup "printing" "\
-Show current lpr settings.
-
-\(fn &rest IGNORE)" t nil)
-
-(autoload 'pr-ps-fast-fire "printing" "\
-Fast fire function for PostScript printing.
-
-If a region is active, the region will be printed instead of the whole buffer.
-Also if the current major-mode is defined in `pr-mode-alist', the settings in
-`pr-mode-alist' will be used, that is, the current buffer or region will be
-printed using `pr-ps-mode-ps-print'.
-
-
-Interactively, you have the following situations:
-
- M-x pr-ps-fast-fire RET
- The command prompts the user for a N-UP value and printing will
- immediately be done using the current active printer.
-
- C-u M-x pr-ps-fast-fire RET
- C-u 0 M-x pr-ps-fast-fire RET
- The command prompts the user for a N-UP value and also for a current
- PostScript printer, then printing will immediately be done using the new
- current active printer.
-
- C-u 1 M-x pr-ps-fast-fire RET
- The command prompts the user for a N-UP value and also for a file name,
- and saves the PostScript image in that file instead of sending it to the
- printer.
-
- C-u 2 M-x pr-ps-fast-fire RET
- The command prompts the user for a N-UP value, then for a current
- PostScript printer and, finally, for a file name. Then change the active
- printer to that chosen by user and saves the PostScript image in
- that file instead of sending it to the printer.
-
-
-Noninteractively, the argument N-UP should be a positive integer greater than
-zero and the argument SELECT is treated as follows:
-
- If it's nil, send the image to the printer.
-
- If it's a list or an integer lesser or equal to zero, the command prompts
- the user for a current PostScript printer, then printing will immediately
- be done using the new current active printer.
-
- If it's an integer equal to 1, the command prompts the user for a file name
- and saves the PostScript image in that file instead of sending it to the
- printer.
-
- If it's an integer greater or equal to 2, the command prompts the user for a
- current PostScript printer and for a file name. Then change the active
- printer to that chosen by user and saves the PostScript image in that file
- instead of sending it to the printer.
-
- If it's a symbol which it's defined in `pr-ps-printer-alist', it's the new
- active printer and printing will immediately be done using the new active
- printer.
-
- Otherwise, send the image to the printer.
-
-
-Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode'
-are both set to t.
-
-\(fn N-UP &optional SELECT)" t nil)
-
-(autoload 'pr-txt-fast-fire "printing" "\
-Fast fire function for text printing.
-
-If a region is active, the region will be printed instead of the whole buffer.
-Also if the current major-mode is defined in `pr-mode-alist', the settings in
-`pr-mode-alist' will be used, that is, the current buffer or region will be
-printed using `pr-txt-mode'.
-
-Interactively, when you use a prefix argument (C-u), the command prompts the
-user for a new active text printer.
-
-Noninteractively, the argument SELECT-PRINTER is treated as follows:
-
- If it's nil, the printing is sent to the current active text printer.
-
- If it's a symbol which it's defined in `pr-txt-printer-alist', it's the new
- active printer and printing will immediately be done using the new active
- printer.
-
- If it's non-nil, the command prompts the user for a new active text printer.
-
-Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode'
-are both set to t.
-
-\(fn &optional SELECT-PRINTER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (proced) "proced" "proced.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from proced.el
-
-(autoload 'proced "proced" "\
-Generate a listing of UNIX system processes.
-\\<proced-mode-map>
-If invoked with optional ARG, do not select the window displaying
-the process information.
-
-This function runs the normal hook `proced-post-display-hook'.
-
-See `proced-mode' for a description of features available in
-Proced buffers.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (profiler-find-profile-other-frame profiler-find-profile-other-window
-;;;;;; profiler-find-profile profiler-start) "profiler" "profiler.el"
-;;;;;; (20731 13121 306545 521000))
-;;; Generated autoloads from profiler.el
-
-(autoload 'profiler-start "profiler" "\
-Start/restart profilers.
-MODE can be one of `cpu', `mem', or `cpu+mem'.
-If MODE is `cpu' or `cpu+mem', time-based profiler will be started.
-Also, if MODE is `mem' or `cpu+mem', then memory profiler will be started.
-
-\(fn MODE)" t nil)
-
-(autoload 'profiler-find-profile "profiler" "\
-Open profile FILENAME.
-
-\(fn FILENAME)" t nil)
-
-(autoload 'profiler-find-profile-other-window "profiler" "\
-Open profile FILENAME.
-
-\(fn FILENAME)" t nil)
-
-(autoload 'profiler-find-profile-other-frame "profiler" "\
-Open profile FILENAME.
-
-\(fn FILENAME)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (run-prolog mercury-mode prolog-mode) "prolog"
-;;;;;; "progmodes/prolog.el" (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/prolog.el
-
-(autoload 'prolog-mode "prolog" "\
-Major mode for editing Prolog code.
-
-Blank lines and `%%...' separate paragraphs. `%'s starts a comment
-line and comments can also be enclosed in /* ... */.
-
-If an optional argument SYSTEM is non-nil, set up mode for the given system.
-
-To find out what version of Prolog mode you are running, enter
-`\\[prolog-mode-version]'.
-
-Commands:
-\\{prolog-mode-map}
-Entry to this mode calls the value of `prolog-mode-hook'
-if that value is non-nil.
-
-\(fn)" t nil)
-
-(autoload 'mercury-mode "prolog" "\
-Major mode for editing Mercury programs.
-Actually this is just customized `prolog-mode'.
-
-\(fn)" t nil)
-
-(autoload 'run-prolog "prolog" "\
-Run an inferior Prolog process, input and output via buffer *prolog*.
-With prefix argument ARG, restart the Prolog process if running before.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (bdf-directory-list) "ps-bdf" "ps-bdf.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from ps-bdf.el
-
-(defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "\
-List of directories to search for `BDF' font files.
-The default value is '(\"/usr/local/share/emacs/fonts/bdf\").")
-
-(custom-autoload 'bdf-directory-list "ps-bdf" t)
-
-;;;***
-\f
-;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from progmodes/ps-mode.el
-
-(autoload 'ps-mode "ps-mode" "\
-Major mode for editing PostScript with GNU Emacs.
-
-Entry to this mode calls `ps-mode-hook'.
-
-The following variables hold user options, and can
-be set through the `customize' command:
-
- `ps-mode-auto-indent'
- `ps-mode-tab'
- `ps-mode-paper-size'
- `ps-mode-print-function'
- `ps-run-prompt'
- `ps-run-font-lock-keywords-2'
- `ps-run-x'
- `ps-run-dumb'
- `ps-run-init'
- `ps-run-error-line-numbers'
- `ps-run-tmp-dir'
-
-Type \\[describe-variable] for documentation on these options.
-
-
-\\{ps-mode-map}
-
-
-When starting an interactive PostScript process with \\[ps-run-start],
-a second window will be displayed, and `ps-run-mode-hook' will be called.
-The keymap for this second window is:
-
-\\{ps-run-mode-map}
-
-
-When Ghostscript encounters an error it displays an error message
-with a file position. Clicking mouse-2 on this number will bring
-point to the corresponding spot in the PostScript window, if input
-to the interpreter was sent from that window.
-Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number has the same effect.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ps-extend-face ps-extend-face-list ps-setup ps-nb-pages-region
-;;;;;; ps-nb-pages-buffer ps-line-lengths ps-despool ps-spool-region-with-faces
-;;;;;; 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" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from ps-print.el
-
-(defvar ps-page-dimensions-database (purecopy (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list 'letter (* 72 8.5) (* 72 11.0) "Letter") (list 'legal (* 72 8.5) (* 72 14.0) "Legal") (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall") (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid") (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger") (list 'statement (* 72 5.5) (* 72 8.5) "Statement") (list 'executive (* 72 7.5) (* 72 10.0) "Executive") (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small") (list 'b4 (* 72 10.125) (* 72 14.33) "B4") (list 'b5 (* 72 7.16) (* 72 10.125) "B5") '(addresslarge 236.0 99.0 "AddressLarge") '(addresssmall 236.0 68.0 "AddressSmall") '(cuthanging13 90.0 222.0 "CutHanging13") '(cuthanging15 90.0 114.0 "CutHanging15") '(diskette 181.0 136.0 "Diskette") '(eurofilefolder 139.0 112.0 "EuropeanFilefolder") '(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") '(eurofolderwide 526.0 136.0 "EuroFolderWide") '(euronamebadge 189.0 108.0 "EuroNameBadge") '(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") '(filefolder 230.0 37.0 "FileFolder") '(jewelry 76.0 136.0 "Jewelry") '(mediabadge 180.0 136.0 "MediaBadge") '(multipurpose 126.0 68.0 "MultiPurpose") '(retaillabel 90.0 104.0 "RetailLabel") '(shipping 271.0 136.0 "Shipping") '(slide35mm 26.0 104.0 "Slide35mm") '(spine8mm 187.0 26.0 "Spine8mm") '(topcoated 425.19685 136.0 "TopCoatedPaper") '(topcoatedpaper 396.0 136.0 "TopcoatedPaper150") '(vhsface 205.0 127.0 "VHSFace") '(vhsspine 400.0 50.0 "VHSSpine") '(zipdisk 156.0 136.0 "ZipDisk"))) "\
-List associating a symbolic paper type to its width, height and doc media.
-See `ps-paper-type'.")
-
-(custom-autoload 'ps-page-dimensions-database "ps-print" t)
-
-(defvar ps-paper-type 'letter "\
-Specify the size of paper to format for.
-Should be one of the paper types defined in `ps-page-dimensions-database', for
-example `letter', `legal' or `a4'.")
-
-(custom-autoload 'ps-paper-type "ps-print" t)
-
-(defvar ps-print-color-p (or (fboundp 'x-color-values) (fboundp 'color-instance-rgb-components)) "\
-Specify how buffer's text color is printed.
-
-Valid values are:
-
- nil Do not print colors.
-
- t Print colors.
-
- black-white Print colors on black/white printer.
- See also `ps-black-white-faces'.
-
-Any other value is treated as t.")
-
-(custom-autoload 'ps-print-color-p "ps-print" t)
-
-(autoload 'ps-print-customize "ps-print" "\
-Customization of ps-print group.
-
-\(fn)" t nil)
-
-(autoload 'ps-print-buffer "ps-print" "\
-Generate and print a PostScript image of the buffer.
-
-Interactively, when you use a prefix argument (\\[universal-argument]), the command prompts the
-user for a file name, and saves the PostScript image in that file instead of
-sending it to the printer.
-
-Noninteractively, the argument FILENAME is treated as follows: if it is nil,
-send the image to the printer. If FILENAME is a string, save the PostScript
-image in a file with that name.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'ps-print-buffer-with-faces "ps-print" "\
-Generate and print a PostScript image of the buffer.
-Like `ps-print-buffer', but includes font, color, and underline information in
-the generated image. This command works only if you are using a window system,
-so it has a way to determine color values.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'ps-print-region "ps-print" "\
-Generate and print a PostScript image of the region.
-Like `ps-print-buffer', but prints just the current region.
-
-\(fn FROM TO &optional FILENAME)" t nil)
-
-(autoload 'ps-print-region-with-faces "ps-print" "\
-Generate and print a PostScript image of the region.
-Like `ps-print-region', but includes font, color, and underline information in
-the generated image. This command works only if you are using a window system,
-so it has a way to determine color values.
-
-\(fn FROM TO &optional FILENAME)" t nil)
-
-(autoload 'ps-spool-buffer "ps-print" "\
-Generate and spool a PostScript image of the buffer.
-Like `ps-print-buffer' except that the PostScript image is saved in a local
-buffer to be sent to the printer later.
-
-Use the command `ps-despool' to send the spooled images to the printer.
-
-\(fn)" t nil)
-
-(autoload 'ps-spool-buffer-with-faces "ps-print" "\
-Generate and spool a PostScript image of the buffer.
-Like `ps-spool-buffer', but includes font, color, and underline information in
-the generated image. This command works only if you are using a window system,
-so it has a way to determine color values.
-
-Use the command `ps-despool' to send the spooled images to the printer.
-
-\(fn)" t nil)
-
-(autoload 'ps-spool-region "ps-print" "\
-Generate a PostScript image of the region and spool locally.
-Like `ps-spool-buffer', but spools just the current region.
-
-Use the command `ps-despool' to send the spooled images to the printer.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ps-spool-region-with-faces "ps-print" "\
-Generate a PostScript image of the region and spool locally.
-Like `ps-spool-region', but includes font, color, and underline information in
-the generated image. This command works only if you are using a window system,
-so it has a way to determine color values.
-
-Use the command `ps-despool' to send the spooled images to the printer.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ps-despool "ps-print" "\
-Send the spooled PostScript to the printer.
-
-Interactively, when you use a prefix argument (\\[universal-argument]), the command prompts the
-user for a file name, and saves the spooled PostScript image in that file
-instead of sending it to the printer.
-
-Noninteractively, the argument FILENAME is treated as follows: if it is nil,
-send the image to the printer. If FILENAME is a string, save the PostScript
-image in a file with that name.
-
-\(fn &optional FILENAME)" t nil)
-
-(autoload 'ps-line-lengths "ps-print" "\
-Display the correspondence between a line length and a font size.
-Done using the current ps-print setup.
-Try: pr -t file | awk '{printf \"%3d %s
-\", length($0), $0}' | sort -r | head
-
-\(fn)" t nil)
-
-(autoload 'ps-nb-pages-buffer "ps-print" "\
-Display number of pages to print this buffer, for various font heights.
-The table depends on the current ps-print setup.
-
-\(fn NB-LINES)" t nil)
-
-(autoload 'ps-nb-pages-region "ps-print" "\
-Display number of pages to print the region, for various font heights.
-The table depends on the current ps-print setup.
-
-\(fn NB-LINES)" t nil)
-
-(autoload 'ps-setup "ps-print" "\
-Return the current PostScript-generation setup.
-
-\(fn)" nil nil)
-
-(autoload 'ps-extend-face-list "ps-print" "\
-Extend face in ALIST-SYM.
-
-If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged
-with face extension in ALIST-SYM; otherwise, overrides.
-
-If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used;
-otherwise, it should be an alist symbol.
-
-The elements in FACE-EXTENSION-LIST are like those for `ps-extend-face'.
-
-See `ps-extend-face' for documentation.
-
-\(fn FACE-EXTENSION-LIST &optional MERGE-P ALIST-SYM)" nil nil)
-
-(autoload 'ps-extend-face "ps-print" "\
-Extend face in ALIST-SYM.
-
-If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged
-with face extensions in ALIST-SYM; otherwise, overrides.
-
-If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used;
-otherwise, it should be an alist symbol.
-
-The elements of FACE-EXTENSION list have the form:
-
- (FACE-NAME FOREGROUND BACKGROUND EXTENSION...)
-
-FACE-NAME is a face name symbol.
-
-FOREGROUND and BACKGROUND may be nil or a string that denotes the
-foreground and background colors respectively.
-
-EXTENSION is one of the following symbols:
- bold - use bold font.
- italic - use italic font.
- underline - put a line under text.
- strikeout - like underline, but the line is in middle of text.
- overline - like underline, but the line is over the text.
- shadow - text will have a shadow.
- box - text will be surrounded by a box.
- outline - print characters as hollow outlines.
-
-If EXTENSION is any other symbol, it is ignored.
-
-\(fn FACE-EXTENSION &optional MERGE-P ALIST-SYM)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (python-mode run-python) "python" "progmodes/python.el"
-;;;;;; (20773 47373 975742 0))
-;;; Generated autoloads from progmodes/python.el
-
-(add-to-list 'auto-mode-alist (cons (purecopy "\\.py\\'") 'python-mode))
-
-(add-to-list 'interpreter-mode-alist (cons (purecopy "python") 'python-mode))
-
-(autoload 'run-python "python" "\
-Run an inferior Python process.
-Input and output via buffer named after
-`python-shell-buffer-name'. If there is a process already
-running in that buffer, just switch to it.
-
-With argument, allows you to define CMD so you can edit the
-command used to call the interpreter and define DEDICATED, so a
-dedicated process for the current buffer is open. When numeric
-prefix arg is other than 0 or 4 do not SHOW.
-
-Runs the hook `inferior-python-mode-hook' (after the
-`comint-mode-hook' is run). (Type \\[describe-mode] in the
-process buffer for a list of commands.)
-
-\(fn CMD &optional DEDICATED SHOW)" t nil)
-
-(autoload 'python-mode "python" "\
-Major mode for editing Python files.
-
-\\{python-mode-map}
-Entry to this mode calls the value of `python-mode-hook'
-if that value is non-nil.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/qp.el
-
-(autoload 'quoted-printable-decode-region "qp" "\
-Decode quoted-printable in the region between FROM and TO, per RFC 2045.
-If CODING-SYSTEM is non-nil, decode bytes into characters with that
-coding-system.
-
-Interactively, you can supply the CODING-SYSTEM argument
-with \\[universal-coding-system-argument].
-
-The CODING-SYSTEM argument is a historical hangover and is deprecated.
-QP encodes raw bytes and should be decoded into raw bytes. Decoding
-them into characters should be done separately.
-
-\(fn FROM TO &optional CODING-SYSTEM)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (quail-update-leim-list-file quail-defrule-internal
-;;;;;; 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" (20707 18685 911514 0))
-;;; Generated autoloads from international/quail.el
-
-(autoload 'quail-title "quail" "\
-Return the title of the current Quail package.
-
-\(fn)" nil nil)
-
-(autoload 'quail-use-package "quail" "\
-Start using Quail package PACKAGE-NAME.
-The remaining arguments are LIBRARIES to be loaded before using the package.
-
-This activates input method defined by PACKAGE-NAME by running
-`quail-activate', which see.
-
-\(fn PACKAGE-NAME &rest LIBRARIES)" nil nil)
-
-(autoload 'quail-define-package "quail" "\
-Define NAME as a new Quail package for input LANGUAGE.
-TITLE is a string to be displayed at mode-line to indicate this package.
-Optional arguments are GUIDANCE, DOCSTRING, TRANSLATION-KEYS,
- FORGET-LAST-SELECTION, DETERMINISTIC, KBD-TRANSLATE, SHOW-LAYOUT,
- CREATE-DECODE-MAP, MAXIMUM-SHORTEST, OVERLAY-PLIST,
- UPDATE-TRANSLATION-FUNCTION, CONVERSION-KEYS and SIMPLE.
-
-GUIDANCE specifies how a guidance string is shown in echo area.
-If it is t, list of all possible translations for the current key is shown
- with the currently selected translation being highlighted.
-If it is an alist, the element has the form (CHAR . STRING). Each character
- in the current key is searched in the list and the corresponding string is
- shown.
-If it is nil, the current key is shown.
-
-DOCSTRING is the documentation string of this package. The command
-`describe-input-method' shows this string while replacing the form
-\\=\\<VAR> in the string by the value of VAR. That value should be a
-string. For instance, the form \\=\\<quail-translation-docstring> is
-replaced by a description about how to select a translation from a
-list of candidates.
-
-TRANSLATION-KEYS specifies additional key bindings used while translation
-region is active. It is an alist of single key character vs. corresponding
-command to be called.
-
-FORGET-LAST-SELECTION non-nil means a selected translation is not kept
-for the future to translate the same key. If this flag is nil, a
-translation selected for a key is remembered so that it can be the
-first candidate when the same key is entered later.
-
-DETERMINISTIC non-nil means the first candidate of translation is
-selected automatically without allowing users to select another
-translation for a key. In this case, unselected translations are of
-no use for an interactive use of Quail but can be used by some other
-programs. If this flag is non-nil, FORGET-LAST-SELECTION is also set
-to t.
-
-KBD-TRANSLATE non-nil means input characters are translated from a
-user's keyboard layout to the standard keyboard layout. See the
-documentation of `quail-keyboard-layout' and
-`quail-keyboard-layout-standard' for more detail.
-
-SHOW-LAYOUT non-nil means the `quail-help' command should show
-the user's keyboard layout visually with translated characters.
-If KBD-TRANSLATE is set, it is desirable to set also this flag unless
-this package defines no translations for single character keys.
-
-CREATE-DECODE-MAP non-nil means decode map is also created. A decode
-map is an alist of translations and corresponding original keys.
-Although this map is not used by Quail itself, it can be used by some
-other programs. For instance, Vietnamese supporting needs this map to
-convert Vietnamese text to VIQR format which uses only ASCII
-characters to represent Vietnamese characters.
-
-MAXIMUM-SHORTEST non-nil means break key sequence to get maximum
-length of the shortest sequence. When we don't have a translation of
-key \"..ABCD\" but have translations of \"..AB\" and \"CD..\", break
-the key at \"..AB\" and start translation of \"CD..\". Hangul
-packages, for instance, use this facility. If this flag is nil, we
-break the key just at \"..ABC\" and start translation of \"D..\".
-
-OVERLAY-PLIST if non-nil is a property list put on an overlay which
-covers Quail translation region.
-
-UPDATE-TRANSLATION-FUNCTION if non-nil is a function to call to update
-the current translation region according to a new translation data. By
-default, a translated text or a user's key sequence (if no translation
-for it) is inserted.
-
-CONVERSION-KEYS specifies additional key bindings used while
-conversion region is active. It is an alist of single key character
-vs. corresponding command to be called.
-
-If SIMPLE is non-nil, then we do not alter the meanings of
-commands such as C-f, C-b, C-n, C-p and TAB; they are treated as
-non-Quail commands.
-
-\(fn NAME LANGUAGE TITLE &optional GUIDANCE DOCSTRING TRANSLATION-KEYS FORGET-LAST-SELECTION DETERMINISTIC KBD-TRANSLATE SHOW-LAYOUT CREATE-DECODE-MAP MAXIMUM-SHORTEST OVERLAY-PLIST UPDATE-TRANSLATION-FUNCTION CONVERSION-KEYS SIMPLE)" nil nil)
-
-(autoload 'quail-set-keyboard-layout "quail" "\
-Set the current keyboard layout to the same as keyboard KBD-TYPE.
-
-Since some Quail packages depends on a physical layout of keys (not
-characters generated by them), those are created by assuming the
-standard layout defined in `quail-keyboard-layout-standard'. This
-function tells Quail system the layout of your keyboard so that what
-you type is correctly handled.
-
-\(fn KBD-TYPE)" t nil)
-
-(autoload 'quail-show-keyboard-layout "quail" "\
-Show the physical layout of the keyboard type KEYBOARD-TYPE.
-
-The variable `quail-keyboard-layout-type' holds the currently selected
-keyboard type.
-
-\(fn &optional KEYBOARD-TYPE)" t nil)
-
-(autoload 'quail-define-rules "quail" "\
-Define translation rules of the current Quail package.
-Each argument is a list of KEY and TRANSLATION.
-KEY is a string meaning a sequence of keystrokes to be translated.
-TRANSLATION is a character, a string, a vector, a Quail map, or a function.
-If it is a character, it is the sole translation of KEY.
-If it is a string, each character is a candidate for the translation.
-If it is a vector, each element (string or character) is a candidate
- for the translation.
-In these cases, a key specific Quail map is generated and assigned to KEY.
-
-If TRANSLATION is a Quail map or a function symbol which returns a Quail map,
- it is used to handle KEY.
-
-The first argument may be an alist of annotations for the following
-rules. Each element has the form (ANNOTATION . VALUE), where
-ANNOTATION is a symbol indicating the annotation type. Currently
-the following annotation types are supported.
-
- append -- the value non-nil means that the following rules should
- be appended to the rules of the current Quail package.
-
- face -- the value is a face to use for displaying TRANSLATIONs in
- candidate list.
-
- advice -- the value is a function to call after one of RULES is
- selected. The function is called with one argument, the
- selected TRANSLATION string, after the TRANSLATION is
- inserted.
-
- no-decode-map --- the value non-nil means that decoding map is not
- generated for the following translations.
-
-\(fn &rest RULES)" nil t)
-
-(autoload 'quail-install-map "quail" "\
-Install the Quail map MAP in the current Quail package.
-
-Optional 2nd arg NAME, if non-nil, is a name of Quail package for
-which to install MAP.
-
-The installed map can be referred by the function `quail-map'.
-
-\(fn MAP &optional NAME)" nil nil)
-
-(autoload 'quail-install-decode-map "quail" "\
-Install the Quail decode map DECODE-MAP in the current Quail package.
-
-Optional 2nd arg NAME, if non-nil, is a name of Quail package for
-which to install MAP.
-
-The installed decode map can be referred by the function `quail-decode-map'.
-
-\(fn DECODE-MAP &optional NAME)" nil nil)
-
-(autoload 'quail-defrule "quail" "\
-Add one translation rule, KEY to TRANSLATION, in the current Quail package.
-KEY is a string meaning a sequence of keystrokes to be translated.
-TRANSLATION is a character, a string, a vector, a Quail map,
- a function, or a cons.
-It it is a character, it is the sole translation of KEY.
-If it is a string, each character is a candidate for the translation.
-If it is a vector, each element (string or character) is a candidate
- for the translation.
-If it is a cons, the car is one of the above and the cdr is a function
- to call when translating KEY (the return value is assigned to the
- variable `quail-current-data'). If the cdr part is not a function,
- the value itself is assigned to `quail-current-data'.
-In these cases, a key specific Quail map is generated and assigned to KEY.
-
-If TRANSLATION is a Quail map or a function symbol which returns a Quail map,
- it is used to handle KEY.
-
-Optional 3rd argument NAME, if specified, says which Quail package
-to define this translation rule in. The default is to define it in the
-current Quail package.
-
-Optional 4th argument APPEND, if non-nil, appends TRANSLATION
-to the current translations for KEY instead of replacing them.
-
-\(fn KEY TRANSLATION &optional NAME APPEND)" nil nil)
-
-(autoload 'quail-defrule-internal "quail" "\
-Define KEY as TRANS in a Quail map MAP.
-
-If Optional 4th arg APPEND is non-nil, TRANS is appended to the
-current translations for KEY instead of replacing them.
-
-Optional 5th arg DECODE-MAP is a Quail decode map.
-
-Optional 6th arg PROPS is a property list annotating TRANS. See the
-function `quail-define-rules' for the detail.
-
-\(fn KEY TRANS MAP &optional APPEND DECODE-MAP PROPS)" nil nil)
-
-(autoload 'quail-update-leim-list-file "quail" "\
-Update entries for Quail packages in `LEIM' list file in directory DIRNAME.
-DIRNAME is a directory containing Emacs input methods;
-normally, it should specify the `leim' subdirectory
-of the Emacs source tree.
-
-It searches for Quail packages under `quail' subdirectory of DIRNAME,
-and update the file \"leim-list.el\" in DIRNAME.
-
-When called from a program, the remaining arguments are additional
-directory names to search for Quail packages under `quail' subdirectory
-of each directory.
-
-\(fn DIRNAME &rest DIRNAMES)" t nil)
-
-;;;***
-\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" (20707
-;;;;;; 18685 911514 0))
-;;; 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" "\
-Example `quickurl-postfix' text that adds a local variable to the
-`quickurl-url-file' so that if you edit it by hand it will ensure that
-`quickurl-urls' is updated with the new URL list.
-
-To make use of this do something like:
-
- (setq quickurl-postfix quickurl-reread-hook-postfix)
-
-in your init file (after loading/requiring quickurl).")
-
-(autoload 'quickurl "quickurl" "\
-Insert a URL based on LOOKUP.
-
-If not supplied LOOKUP is taken to be the word at point in the current
-buffer, this default action can be modified via
-`quickurl-grab-lookup-function'.
-
-\(fn &optional LOOKUP)" t nil)
-
-(autoload 'quickurl-ask "quickurl" "\
-Insert a URL, with `completing-read' prompt, based on LOOKUP.
-
-\(fn LOOKUP)" t nil)
-
-(autoload 'quickurl-add-url "quickurl" "\
-Allow the user to interactively add a new URL associated with WORD.
-
-See `quickurl-grab-url' for details on how the default word/URL combination
-is decided.
-
-\(fn WORD URL COMMENT)" t nil)
-
-(autoload 'quickurl-browse-url "quickurl" "\
-Browse the URL associated with LOOKUP.
-
-If not supplied LOOKUP is taken to be the word at point in the
-current buffer, this default action can be modified via
-`quickurl-grab-lookup-function'.
-
-\(fn &optional LOOKUP)" t nil)
-
-(autoload 'quickurl-browse-url-ask "quickurl" "\
-Browse the URL, with `completing-read' prompt, associated with LOOKUP.
-
-\(fn LOOKUP)" t nil)
-
-(autoload 'quickurl-edit-urls "quickurl" "\
-Pull `quickurl-url-file' into a buffer for hand editing.
-
-\(fn)" t nil)
-
-(autoload 'quickurl-list-mode "quickurl" "\
-A mode for browsing the quickurl URL list.
-
-The key bindings for `quickurl-list-mode' are:
-
-\\{quickurl-list-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'quickurl-list "quickurl" "\
-Display `quickurl-list' as a formatted list using `quickurl-list-mode'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc"
-;;;;;; "net/rcirc.el" (20707 18685 911514 0))
-;;; Generated autoloads from net/rcirc.el
-
-(autoload 'rcirc "rcirc" "\
-Connect to all servers in `rcirc-server-alist'.
-
-Do not connect to a server if it is already connected.
-
-If ARG is non-nil, instead prompt for connection parameters.
-
-\(fn ARG)" t nil)
-
-(defalias 'irc 'rcirc)
-
-(autoload 'rcirc-connect "rcirc" "\
-
-
-\(fn SERVER &optional PORT NICK USER-NAME FULL-NAME STARTUP-CHANNELS PASSWORD ENCRYPTION)" nil nil)
-
-(defvar rcirc-track-minor-mode nil "\
-Non-nil if Rcirc-Track minor mode is enabled.
-See the command `rcirc-track-minor-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `rcirc-track-minor-mode'.")
-
-(custom-autoload 'rcirc-track-minor-mode "rcirc" nil)
-
-(autoload 'rcirc-track-minor-mode "rcirc" "\
-Global minor mode for tracking activity in rcirc buffers.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from net/rcompile.el
-
-(autoload 'remote-compile "rcompile" "\
-Compile the current buffer's directory on HOST. Log in as USER.
-See \\[compile].
-
-\(fn HOST USER COMMAND)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/re-builder.el
-
-(defalias 'regexp-builder 're-builder)
-
-(autoload 're-builder "re-builder" "\
-Construct a regexp interactively.
-This command makes the current buffer the \"target\" buffer of
-the regexp builder. It displays a buffer named \"*RE-Builder*\"
-in another window, initially containing an empty regexp.
-
-As you edit the regexp in the \"*RE-Builder*\" buffer, the
-matching parts of the target buffer will be highlighted.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from recentf.el
-
-(defvar recentf-mode nil "\
-Non-nil if Recentf mode is enabled.
-See the command `recentf-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `recentf-mode'.")
-
-(custom-autoload 'recentf-mode "recentf" nil)
-
-(autoload 'recentf-mode "recentf" "\
-Toggle \"Open Recent\" menu (Recentf mode).
-With a prefix argument ARG, enable Recentf mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-Recentf mode if ARG is omitted or nil.
-
-When Recentf mode is enabled, a \"Open Recent\" submenu is
-displayed in the \"File\" menu, containing a list of files that
-were operated on recently.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rectangle-number-lines clear-rectangle string-insert-rectangle
-;;;;;; string-rectangle delete-whitespace-rectangle open-rectangle
-;;;;;; insert-rectangle yank-rectangle copy-rectangle-as-kill kill-rectangle
-;;;;;; extract-rectangle delete-extract-rectangle delete-rectangle)
-;;;;;; "rect" "rect.el" (20707 18685 911514 0))
-;;; Generated autoloads from rect.el
-
-(autoload 'delete-rectangle "rect" "\
-Delete (don't save) text in the region-rectangle.
-The same range of columns is deleted in each line starting with the
-line where the region begins and ending with the line where the region
-ends.
-
-When called from a program the rectangle's corners are START and END.
-With a prefix (or a FILL) argument, also fill lines where nothing has
-to be deleted.
-
-\(fn START END &optional FILL)" t nil)
-
-(autoload 'delete-extract-rectangle "rect" "\
-Delete the contents of the rectangle with corners at START and END.
-Return it as a list of strings, one for each line of the rectangle.
-
-When called from a program the rectangle's corners are START and END.
-With an optional FILL argument, also fill lines where nothing has to be
-deleted.
-
-\(fn START END &optional FILL)" nil nil)
-
-(autoload 'extract-rectangle "rect" "\
-Return the contents of the rectangle with corners at START and END.
-Return it as a list of strings, one for each line of the rectangle.
-
-\(fn START END)" nil nil)
-
-(autoload 'kill-rectangle "rect" "\
-Delete the region-rectangle and save it as the last killed one.
-
-When called from a program the rectangle's corners are START and END.
-You might prefer to use `delete-extract-rectangle' from a program.
-
-With a prefix (or a FILL) argument, also fill lines where nothing has to be
-deleted.
-
-If the buffer is read-only, Emacs will beep and refrain from deleting
-the rectangle, but put it in the kill ring anyway. This means that
-you can use this command to copy text from a read-only buffer.
-\(If the variable `kill-read-only-ok' is non-nil, then this won't
-even beep.)
-
-\(fn START END &optional FILL)" t nil)
-
-(autoload 'copy-rectangle-as-kill "rect" "\
-Copy the region-rectangle and save it as the last killed one.
-
-\(fn START END)" t nil)
-
-(autoload 'yank-rectangle "rect" "\
-Yank the last killed rectangle with upper left corner at point.
-
-\(fn)" t nil)
-
-(autoload 'insert-rectangle "rect" "\
-Insert text of RECTANGLE with upper left corner at point.
-RECTANGLE's first line is inserted at point, its second
-line is inserted at a point vertically under point, etc.
-RECTANGLE should be a list of strings.
-After this command, the mark is at the upper left corner
-and point is at the lower right corner.
-
-\(fn RECTANGLE)" nil nil)
-
-(autoload 'open-rectangle "rect" "\
-Blank out the region-rectangle, shifting text right.
-
-The text previously in the region is not overwritten by the blanks,
-but instead winds up to the right of the rectangle.
-
-When called from a program the rectangle's corners are START and END.
-With a prefix (or a FILL) argument, fill with blanks even if there is
-no text on the right side of the rectangle.
-
-\(fn START END &optional FILL)" t nil)
-
-(defalias 'close-rectangle 'delete-whitespace-rectangle)
-
-(autoload 'delete-whitespace-rectangle "rect" "\
-Delete all whitespace following a specified column in each line.
-The left edge of the rectangle specifies the position in each line
-at which whitespace deletion should begin. On each line in the
-rectangle, all continuous whitespace starting at that column is deleted.
-
-When called from a program the rectangle's corners are START and END.
-With a prefix (or a FILL) argument, also fill too short lines.
-
-\(fn START END &optional FILL)" t nil)
-
-(autoload 'string-rectangle "rect" "\
-Replace rectangle contents with STRING on each line.
-The length of STRING need not be the same as the rectangle width.
-
-Called from a program, takes three args; START, END and STRING.
-
-\(fn START END STRING)" t nil)
-
-(defalias 'replace-rectangle 'string-rectangle)
-
-(autoload 'string-insert-rectangle "rect" "\
-Insert STRING on each line of region-rectangle, shifting text right.
-
-When called from a program, the rectangle's corners are START and END.
-The left edge of the rectangle specifies the column for insertion.
-This command does not delete or overwrite any existing text.
-
-\(fn START END STRING)" t nil)
-
-(autoload 'clear-rectangle "rect" "\
-Blank out the region-rectangle.
-The text previously in the region is overwritten with blanks.
-
-When called from a program the rectangle's corners are START and END.
-With a prefix (or a FILL) argument, also fill with blanks the parts of the
-rectangle which were empty.
-
-\(fn START END &optional FILL)" t nil)
-
-(autoload 'rectangle-number-lines "rect" "\
-Insert numbers in front of the region-rectangle.
-
-START-AT, if non-nil, should be a number from which to begin
-counting. FORMAT, if non-nil, should be a format string to pass
-to `format' along with the line count. When called interactively
-with a prefix argument, prompt for START-AT and FORMAT.
-
-\(fn START END START-AT &optional FORMAT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from textmodes/refill.el
-
-(autoload 'refill-mode "refill" "\
-Toggle automatic refilling (Refill mode).
-With a prefix argument ARG, enable Refill mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Refill mode is a buffer-local minor mode. When enabled, the
-current paragraph is refilled as you edit. Self-inserting
-characters only cause refilling if they would cause
-auto-filling.
-
-For true \"word wrap\" behavior, use `visual-line-mode' instead.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (reftex-reset-scanning-information reftex-mode
-;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from textmodes/reftex.el
-
-(autoload 'turn-on-reftex "reftex" "\
-Turn on RefTeX mode.
-
-\(fn)" nil nil)
-
-(autoload 'reftex-mode "reftex" "\
-Minor mode with distinct support for \\label, \\ref and \\cite in LaTeX.
-
-\\<reftex-mode-map>A Table of Contents of the entire (multifile) document with browsing
-capabilities is available with `\\[reftex-toc]'.
-
-Labels can be created with `\\[reftex-label]' and referenced with `\\[reftex-reference]'.
-When referencing, you get a menu with all labels of a given type and
-context of the label definition. The selected label is inserted as a
-\\ref macro.
-
-Citations can be made with `\\[reftex-citation]' which will use a regular expression
-to pull out a *formatted* list of articles from your BibTeX
-database. The selected citation is inserted as a \\cite macro.
-
-Index entries can be made with `\\[reftex-index-selection-or-word]' which indexes the word at point
-or the current selection. More general index entries are created with
-`\\[reftex-index]'. `\\[reftex-display-index]' displays the compiled index.
-
-Most command have help available on the fly. This help is accessed by
-pressing `?' to any prompt mentioning this feature.
-
-Extensive documentation about RefTeX is available in Info format.
-You can view this information with `\\[reftex-info]'.
-
-\\{reftex-mode-map}
-Under X, these and other functions will also be available as `Ref' menu
-on the menu bar.
-
-------------------------------------------------------------------------------
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'reftex-reset-scanning-information "reftex" "\
-Reset the symbols containing information from buffer scanning.
-This enforces rescanning the buffer on next use.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/reftex-cite.el
-
-(autoload 'reftex-citation "reftex-cite" "\
-Make a citation using BibTeX database files.
-After prompting for a regular expression, scans the buffers with
-bibtex entries (taken from the \\bibliography command) and offers the
-matching entries for selection. The selected entry is formatted according
-to `reftex-cite-format' and inserted into the buffer.
-
-If NO-INSERT is non-nil, nothing is inserted, only the selected key returned.
-
-FORMAT-KEY can be used to pre-select a citation format.
-
-When called with a `C-u' prefix, prompt for optional arguments in
-cite macros. When called with a numeric prefix, make that many
-citations. When called with point inside the braces of a `\\cite'
-command, it will add another key, ignoring the value of
-`reftex-cite-format'.
-
-The regular expression uses an expanded syntax: && is interpreted as `and'.
-Thus, `aaaa&&bbb' matches entries which contain both `aaaa' and `bbb'.
-While entering the regexp, completion on knows citation keys is possible.
-`=' is a good regular expression to match all entries in all files.
-
-\(fn &optional NO-INSERT FORMAT-KEY)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/reftex-global.el
-
-(autoload 'reftex-isearch-minor-mode "reftex-global" "\
-When on, isearch searches the whole document, not only the current file.
-This minor mode allows isearch to search through all the files of
-the current TeX document.
-
-With no argument, this command toggles
-`reftex-isearch-minor-mode'. With a prefix argument ARG, turn
-`reftex-isearch-minor-mode' on if ARG is positive, otherwise turn it off.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/reftex-index.el
-
-(autoload 'reftex-index-phrases-mode "reftex-index" "\
-Major mode for managing the Index phrases of a LaTeX document.
-This buffer was created with RefTeX.
-
-To insert new phrases, use
- - `C-c \\' in the LaTeX document to copy selection or word
- - `\\[reftex-index-new-phrase]' in the phrases buffer.
-
-To index phrases use one of:
-
-\\[reftex-index-this-phrase] index current phrase
-\\[reftex-index-next-phrase] index next phrase (or N with prefix arg)
-\\[reftex-index-all-phrases] index all phrases
-\\[reftex-index-remaining-phrases] index current and following phrases
-\\[reftex-index-region-phrases] index the phrases in the region
-
-You can sort the phrases in this buffer with \\[reftex-index-sort-phrases].
-To display information about the phrase at point, use \\[reftex-index-phrases-info].
-
-For more information see the RefTeX User Manual.
-
-Here are all local bindings.
-
-\\{reftex-index-phrases-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/reftex-parse.el
-
-(autoload 'reftex-all-document-files "reftex-parse" "\
-Return a list of all files belonging to the current document.
-When RELATIVE is non-nil, give file names relative to directory
-of master file.
-
-\(fn &optional RELATIVE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (20707
-;;;;;; 18685 911514 0))
-;;; 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))))
-(put 'reftex-level-indent 'safe-local-variable 'integerp)
-(put 'reftex-guess-label-type 'safe-local-variable (lambda (x) (memq x '(nil t))))
-
-;;;***
-\f
-;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/regexp-opt.el
-
-(autoload 'regexp-opt "regexp-opt" "\
-Return a regexp to match a string in the list STRINGS.
-Each string should be unique in STRINGS and should not contain any regexps,
-quoted or not. If optional PAREN is non-nil, ensure that the returned regexp
-is enclosed by at least one regexp grouping construct.
-The returned regexp is typically more efficient than the equivalent regexp:
-
- (let ((open (if PAREN \"\\\\(\" \"\")) (close (if PAREN \"\\\\)\" \"\")))
- (concat open (mapconcat 'regexp-quote STRINGS \"\\\\|\") close))
-
-If PAREN is `words', then the resulting regexp is additionally surrounded
-by \\=\\< and \\>.
-If PAREN is `symbols', then the resulting regexp is additionally surrounded
-by \\=\\_< and \\_>.
-
-\(fn STRINGS &optional PAREN)" nil nil)
-
-(autoload 'regexp-opt-depth "regexp-opt" "\
-Return the depth of REGEXP.
-This means the number of non-shy regexp grouping constructs
-\(parenthesized expressions) in REGEXP.
-
-\(fn REGEXP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (remember-diary-extract-entries remember-clipboard
-;;;;;; remember-other-frame remember) "remember" "textmodes/remember.el"
-;;;;;; (20746 41950 779927 439000))
-;;; Generated autoloads from textmodes/remember.el
-
-(autoload 'remember "remember" "\
-Remember an arbitrary piece of data.
-INITIAL is the text to initially place in the *Remember* buffer,
-or nil to bring up a blank *Remember* buffer.
-
-With a prefix or a visible region, use the region as INITIAL.
-
-\(fn &optional INITIAL)" t nil)
-
-(autoload 'remember-other-frame "remember" "\
-Call `remember' in another frame.
-
-\(fn &optional INITIAL)" t nil)
-
-(autoload 'remember-clipboard "remember" "\
-Remember the contents of the current clipboard.
-Most useful for remembering things from other applications.
-
-\(fn)" t nil)
-
-(autoload 'remember-diary-extract-entries "remember" "\
-Extract diary entries from the region.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (repeat) "repeat" "repeat.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from repeat.el
-
-(autoload 'repeat "repeat" "\
-Repeat most recently executed command.
-If REPEAT-ARG is non-nil (interactively, with a prefix argument),
-supply a prefix argument to that command. Otherwise, give the
-command the same prefix argument it was given before, if any.
-
-If this command is invoked by a multi-character key sequence, it
-can then be repeated by repeating the final character of that
-sequence. This behavior can be modified by the global variable
-`repeat-on-final-keystroke'.
-
-`repeat' ignores commands bound to input events. Hence the term
-\"most recently executed command\" shall be read as \"most
-recently executed command not bound to an input event\".
-
-\(fn REPEAT-ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mail/reporter.el
-
-(autoload 'reporter-submit-bug-report "reporter" "\
-Begin submitting a bug report via email.
-
-ADDRESS is the email address for the package's maintainer. PKGNAME is
-the name of the package (if you want to include version numbers,
-you must put them into PKGNAME before calling this function).
-Optional PRE-HOOKS and POST-HOOKS are passed to `reporter-dump-state'.
-Optional SALUTATION is inserted at the top of the mail buffer,
-and point is left after the salutation.
-
-VARLIST is the list of variables to dump (see `reporter-dump-state'
-for details). The optional argument PRE-HOOKS and POST-HOOKS are
-passed to `reporter-dump-state'. Optional argument SALUTATION is text
-to be inserted at the top of the mail buffer; in that case, point is
-left after that text.
-
-This function prompts for a summary if `reporter-prompt-for-summary-p'
-is non-nil.
-
-This function does not send a message; it uses the given information
-to initialize a message, which the user can then edit and finally send
-\(or decline to send). The variable `mail-user-agent' controls which
-mail-sending package is used for editing and sending the message.
-
-\(fn ADDRESS PKGNAME VARLIST &optional PRE-HOOKS POST-HOOKS SALUTATION)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (reposition-window) "reposition" "reposition.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from reposition.el
-
-(autoload 'reposition-window "reposition" "\
-Make the current definition and/or comment visible.
-Further invocations move it to the top of the window or toggle the
-visibility of comments that precede it.
- Point is left unchanged unless prefix ARG is supplied.
- If the definition is fully onscreen, it is moved to the top of the
-window. If it is partly offscreen, the window is scrolled to get the
-definition (or as much as will fit) onscreen, unless point is in a comment
-which is also partly offscreen, in which case the scrolling attempts to get
-as much of the comment onscreen as possible.
- Initially `reposition-window' attempts to make both the definition and
-preceding comments visible. Further invocations toggle the visibility of
-the comment lines.
- If ARG is non-nil, point may move in order to make the whole defun
-visible (if only part could otherwise be made so), to make the defun line
-visible (if point is in code and it could not be made so, or if only
-comments, including the first comment line, are visible), or to make the
-first comment line visible (if point is in a comment).
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from reveal.el
-
-(autoload 'reveal-mode "reveal" "\
-Toggle uncloaking of invisible text near point (Reveal mode).
-With a prefix argument ARG, enable Reveal mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-Reveal mode if ARG is omitted or nil.
-
-Reveal mode is a buffer-local minor mode. When enabled, it
-reveals invisible text around point.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-reveal-mode nil "\
-Non-nil if Global-Reveal mode is enabled.
-See the command `global-reveal-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-reveal-mode'.")
-
-(custom-autoload 'global-reveal-mode "reveal" nil)
-
-(autoload 'global-reveal-mode "reveal" "\
-Toggle Reveal mode in all buffers (Global Reveal mode).
-Reveal mode renders invisible text around point visible again.
-
-With a prefix argument ARG, enable Global Reveal mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/ring.el
-
-(autoload 'ring-p "ring" "\
-Return t if X is a ring; nil otherwise.
-
-\(fn X)" nil nil)
-
-(autoload 'make-ring "ring" "\
-Make a ring that can contain SIZE elements.
-
-\(fn SIZE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from net/rlogin.el
-
-(autoload 'rlogin "rlogin" "\
-Open a network login connection via `rlogin' with args INPUT-ARGS.
-INPUT-ARGS should start with a host name; it may also contain
-other arguments for `rlogin'.
-
-Input is sent line-at-a-time to the remote connection.
-
-Communication with the remote host is recorded in a buffer `*rlogin-HOST*'
-\(or `*rlogin-USER@HOST*' if the remote username differs).
-If a prefix argument is given and the buffer `*rlogin-HOST*' already exists,
-a new buffer with a different connection will be made.
-
-When called from a program, if the optional second argument BUFFER is
-a string or buffer, it specifies the buffer to use.
-
-The variable `rlogin-program' contains the name of the actual program to
-run. It can be a relative or absolute path.
-
-The variable `rlogin-explicit-args' is a list of arguments to give to
-the rlogin when starting. They are added after any arguments given in
-INPUT-ARGS.
-
-If the default value of `rlogin-directory-tracking-mode' is t, then the
-default directory in that buffer is set to a remote (FTP) file name to
-access your home directory on the remote machine. Occasionally this causes
-an error, if you cannot access the home directory on that machine. This
-error is harmless as long as you don't try to use that default directory.
-
-If `rlogin-directory-tracking-mode' is neither t nor nil, then the default
-directory is initially set up to your (local) home directory.
-This is useful if the remote machine and your local machine
-share the same files via NFS. This is the default.
-
-If you wish to change directory tracking styles during a session, use the
-function `rlogin-directory-tracking-mode' rather than simply setting the
-variable.
-
-\(fn INPUT-ARGS &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rmail-set-remote-password rmail-input rmail-mode
-;;;;;; rmail rmail-show-message-hook rmail-secondary-file-regexp
-;;;;;; rmail-secondary-file-directory rmail-primary-inbox-list rmail-highlighted-headers
-;;;;;; rmail-retry-ignored-headers rmail-displayed-headers rmail-ignored-headers
-;;;;;; rmail-user-mail-address-regexp rmail-movemail-variant-p rmail-spool-directory
-;;;;;; rmail-file-name) "rmail" "mail/rmail.el" (20728 47414 952831
-;;;;;; 0))
-;;; Generated autoloads from mail/rmail.el
-
-(defvar rmail-file-name (purecopy "~/RMAIL") "\
-Name of user's primary mail file.")
-
-(custom-autoload 'rmail-file-name "rmail" t)
-
-(put 'rmail-spool-directory 'standard-value '((cond ((file-exists-p "/var/mail") "/var/mail/") ((file-exists-p "/var/spool/mail") "/var/spool/mail/") ((memq system-type '(hpux usg-unix-v irix)) "/usr/mail/") (t "/usr/spool/mail/"))))
-
-(defvar rmail-spool-directory (purecopy (cond ((file-exists-p "/var/mail") "/var/mail/") ((file-exists-p "/var/spool/mail") "/var/spool/mail/") ((memq system-type '(hpux usg-unix-v irix)) "/usr/mail/") (t "/usr/spool/mail/"))) "\
-Name of directory used by system mailer for delivering new mail.
-Its name should end with a slash.")
-
-(custom-autoload 'rmail-spool-directory "rmail" t)
-(custom-initialize-delay 'rmail-spool-directory nil)
-
-(autoload 'rmail-movemail-variant-p "rmail" "\
-Return t if the current movemail variant is any of VARIANTS.
-Currently known variants are 'emacs and 'mailutils.
-
-\(fn &rest VARIANTS)" nil nil)
-
-(defvar rmail-user-mail-address-regexp nil "\
-Regexp matching user mail addresses.
-If non-nil, this variable is used to identify the correspondent
-when receiving new mail. If it matches the address of the sender,
-the recipient is taken as correspondent of a mail.
-If nil (default value), your `user-login-name' and `user-mail-address'
-are used to exclude yourself as correspondent.
-
-Usually you don't have to set this variable, except if you collect mails
-sent by you under different user names.
-Then it should be a regexp matching your mail addresses.
-
-Setting this variable has an effect only before reading a mail.")
-
-(custom-autoload 'rmail-user-mail-address-regexp "rmail" t)
-
-(define-obsolete-variable-alias 'rmail-dont-reply-to-names 'mail-dont-reply-to-names "24.1")
-
-(defvar rmail-default-dont-reply-to-names nil "\
-Regexp specifying part of the default value of `mail-dont-reply-to-names'.
-This is used when the user does not set `mail-dont-reply-to-names'
-explicitly.")
-
-(make-obsolete-variable 'rmail-default-dont-reply-to-names 'mail-dont-reply-to-names "24.1")
-
-(defvar rmail-ignored-headers (purecopy (concat "^via:\\|^mail-from:\\|^origin:\\|^references:\\|^sender:" "\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:" "\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:" "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:" "\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:\\|^face:" "\\|^x-mailer:\\|^delivered-to:\\|^lines:" "\\|^content-transfer-encoding:\\|^x-coding-system:" "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:" "\\|^precedence:\\|^mime-version:" "\\|^list-owner:\\|^list-help:\\|^list-post:\\|^list-subscribe:" "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:" "\\|^content-length:\\|^nntp-posting-date:\\|^user-agent" "\\|^importance:\\|^envelope-to:\\|^delivery-date\\|^openpgp:" "\\|^mbox-line:\\|^cancel-lock:" "\\|^DomainKey-Signature:\\|^dkim-signature:" "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization:\\|^resent-openpgp:" "\\|^x-.*:")) "\
-Regexp to match header fields that Rmail should normally hide.
-\(See also `rmail-nonignored-headers', which overrides this regexp.)
-This variable is used for reformatting the message header,
-which normally happens once for each message,
-when you view the message for the first time in Rmail.
-To make a change in this variable take effect
-for a message that you have already viewed,
-go to that message and type \\[rmail-toggle-header] twice.")
-
-(custom-autoload 'rmail-ignored-headers "rmail" t)
-
-(defvar rmail-displayed-headers nil "\
-Regexp to match Header fields that Rmail should display.
-If nil, display all header fields except those matched by
-`rmail-ignored-headers'.")
-
-(custom-autoload 'rmail-displayed-headers "rmail" t)
-
-(defvar rmail-retry-ignored-headers (purecopy "^x-authentication-warning:\\|^x-detected-operating-system:\\|^x-spam[-a-z]*:\\|content-type:\\|content-transfer-encoding:\\|mime-version:\\|message-id:") "\
-Headers that should be stripped when retrying a failed message.")
-
-(custom-autoload 'rmail-retry-ignored-headers "rmail" t)
-
-(defvar rmail-highlighted-headers (purecopy "^From:\\|^Subject:") "\
-Regexp to match Header fields that Rmail should normally highlight.
-A value of nil means don't highlight. Uses the face `rmail-highlight'.")
-
-(custom-autoload 'rmail-highlighted-headers "rmail" t)
-
-(defvar rmail-primary-inbox-list nil "\
-List of files that are inboxes for your primary mail file `rmail-file-name'.
-If this is nil, uses the environment variable MAIL. If that is
-unset, uses a file named by the function `user-login-name' in the
-directory `rmail-spool-directory' (whose value depends on the
-operating system). For example, \"/var/mail/USER\".")
-
-(custom-autoload 'rmail-primary-inbox-list "rmail" t)
-
-(defvar rmail-secondary-file-directory (purecopy "~/") "\
-Directory for additional secondary Rmail files.")
-
-(custom-autoload 'rmail-secondary-file-directory "rmail" t)
-
-(defvar rmail-secondary-file-regexp (purecopy "\\.xmail$") "\
-Regexp for which files are secondary Rmail files.")
-
-(custom-autoload 'rmail-secondary-file-regexp "rmail" t)
-
-(defvar rmail-mode-hook nil "\
-List of functions to call when Rmail is invoked.")
-
-(defvar rmail-show-message-hook nil "\
-List of functions to call when Rmail displays a message.")
-
-(custom-autoload 'rmail-show-message-hook "rmail" t)
-
-(defvar rmail-file-coding-system nil "\
-Coding system used in RMAIL file.
-
-This is set to nil by default.")
-
-(defvar rmail-insert-mime-forwarded-message-function nil "\
-Function to insert a message in MIME format so it can be forwarded.
-This function is called if `rmail-enable-mime' and
-`rmail-enable-mime-composing' are non-nil.
-It is called with one argument FORWARD-BUFFER, which is a
-buffer containing the message to forward. The current buffer
-is the outgoing mail buffer.")
-
-(autoload 'rmail "rmail" "\
-Read and edit incoming mail.
-Moves messages into file named by `rmail-file-name' and edits that
-file in RMAIL Mode.
-Type \\[describe-mode] once editing that file, for a list of RMAIL commands.
-
-May be called with file name as argument; then performs rmail editing on
-that file, but does not copy any new mail into the file.
-Interactively, if you supply a prefix argument, then you
-have a chance to specify a file name with the minibuffer.
-
-If `rmail-display-summary' is non-nil, make a summary for this RMAIL file.
-
-\(fn &optional FILE-NAME-ARG)" t nil)
-
-(autoload 'rmail-mode "rmail" "\
-Rmail Mode is used by \\<rmail-mode-map>\\[rmail] for editing Rmail files.
-All normal editing commands are turned off.
-Instead, these commands are available:
-
-\\[rmail-beginning-of-message] Move point to front of this message.
-\\[rmail-end-of-message] Move point to bottom of this message.
-\\[scroll-up] Scroll to next screen of this message.
-\\[scroll-down] Scroll to previous screen of this message.
-\\[rmail-next-undeleted-message] Move to Next non-deleted message.
-\\[rmail-previous-undeleted-message] Move to Previous non-deleted message.
-\\[rmail-next-message] Move to Next message whether deleted or not.
-\\[rmail-previous-message] Move to Previous message whether deleted or not.
-\\[rmail-first-message] Move to the first message in Rmail file.
-\\[rmail-last-message] Move to the last message in Rmail file.
-\\[rmail-show-message] Jump to message specified by numeric position in file.
-\\[rmail-search] Search for string and show message it is found in.
-\\[rmail-delete-forward] Delete this message, move to next nondeleted.
-\\[rmail-delete-backward] Delete this message, move to previous nondeleted.
-\\[rmail-undelete-previous-message] Undelete message. Tries current message, then earlier messages
- till a deleted message is found.
-\\[rmail-edit-current-message] Edit the current message. \\[rmail-cease-edit] to return to Rmail.
-\\[rmail-expunge] Expunge deleted messages.
-\\[rmail-expunge-and-save] Expunge and save the file.
-\\[rmail-quit] Quit Rmail: expunge, save, then switch to another buffer.
-\\[save-buffer] Save without expunging.
-\\[rmail-get-new-mail] Move new mail from system spool directory into this file.
-\\[rmail-mail] Mail a message (same as \\[mail-other-window]).
-\\[rmail-continue] Continue composing outgoing message started before.
-\\[rmail-reply] Reply to this message. Like \\[rmail-mail] but initializes some fields.
-\\[rmail-retry-failure] Send this message again. Used on a mailer failure message.
-\\[rmail-forward] Forward this message to another user.
-\\[rmail-output] Output (append) this message to another mail file.
-\\[rmail-output-as-seen] Output (append) this message to file as it's displayed.
-\\[rmail-output-body-to-file] Save message body to a file. Default filename comes from Subject line.
-\\[rmail-input] Input Rmail file. Run Rmail on that file.
-\\[rmail-add-label] Add label to message. It will be displayed in the mode line.
-\\[rmail-kill-label] Kill label. Remove a label from current message.
-\\[rmail-next-labeled-message] Move to Next message with specified label
- (label defaults to last one specified).
- Standard labels: filed, unseen, answered, forwarded, deleted.
- Any other label is present only if you add it with \\[rmail-add-label].
-\\[rmail-previous-labeled-message] Move to Previous message with specified label
-\\[rmail-summary] Show headers buffer, with a one line summary of each message.
-\\[rmail-summary-by-labels] Summarize only messages with particular label(s).
-\\[rmail-summary-by-recipients] Summarize only messages with particular recipient(s).
-\\[rmail-summary-by-regexp] Summarize only messages with particular regexp(s).
-\\[rmail-summary-by-topic] Summarize only messages with subject line regexp(s).
-\\[rmail-toggle-header] Toggle display of complete header.
-
-\(fn)" t nil)
-
-(autoload 'rmail-input "rmail" "\
-Run Rmail on file FILENAME.
-
-\(fn FILENAME)" t nil)
-
-(autoload 'rmail-set-remote-password "rmail" "\
-Set PASSWORD to be used for retrieving mail from a POP or IMAP server.
-
-\(fn PASSWORD)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rmail-output-body-to-file rmail-output-as-seen
-;;;;;; rmail-output) "rmailout" "mail/rmailout.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from mail/rmailout.el
-(put 'rmail-output-file-alist 'risky-local-variable t)
-
-(autoload 'rmail-output "rmailout" "\
-Append this message to mail file FILE-NAME.
-Writes mbox format, unless FILE-NAME exists and is Babyl format, in which
-case it writes Babyl.
-
-Interactively, the default file name comes from `rmail-default-file',
-which is updated to the name you use in this command. In all uses, if
-FILE-NAME is not absolute, it is expanded with the directory part of
-`rmail-default-file'.
-
-If a buffer is visiting FILE-NAME, adds the text to that buffer
-rather than saving the file directly. If the buffer is an Rmail
-buffer, updates it accordingly.
-
-This command always outputs the complete message header, even if
-the header display is currently pruned.
-
-Optional prefix argument COUNT (default 1) says to output that
-many consecutive messages, starting with the current one (ignoring
-deleted messages). If `rmail-delete-after-output' is non-nil, deletes
-messages after output.
-
-The optional third argument NOATTRIBUTE, if non-nil, says not to
-set the `filed' attribute, and not to display a \"Wrote file\"
-message (if writing a file directly).
-
-Set the optional fourth argument NOT-RMAIL non-nil if you call this
-from a non-Rmail buffer. In this case, COUNT is ignored.
-
-\(fn FILE-NAME &optional COUNT NOATTRIBUTE NOT-RMAIL)" t nil)
-
-(autoload 'rmail-output-as-seen "rmailout" "\
-Append this message to mbox file named FILE-NAME.
-The details are as for `rmail-output', except that:
- i) the header is output as currently seen
- ii) this function cannot write to Babyl files
-iii) an Rmail buffer cannot be visiting FILE-NAME
-
-Note that if NOT-RMAIL is non-nil, there is no difference between this
-function and `rmail-output'. This argument may be removed in future,
-so you should call `rmail-output' directly in that case.
-
-\(fn FILE-NAME &optional COUNT NOATTRIBUTE NOT-RMAIL)" t nil)
-
-(autoload 'rmail-output-body-to-file "rmailout" "\
-Write this message body to the file FILE-NAME.
-Interactively, the default file name comes from either the message
-\"Subject\" header, or from `rmail-default-body-file'. Updates the value
-of `rmail-default-body-file' accordingly. In all uses, if FILE-NAME
-is not absolute, it is expanded with the directory part of
-`rmail-default-body-file'.
-
-Note that this overwrites FILE-NAME (after confirmation), rather
-than appending to it. Deletes the message after writing if
-`rmail-delete-after-output' is non-nil.
-
-\(fn FILE-NAME)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rng-c-load-schema) "rng-cmpct" "nxml/rng-cmpct.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from nxml/rng-cmpct.el
-
-(autoload 'rng-c-load-schema "rng-cmpct" "\
-Load a schema in RELAX NG compact syntax from FILENAME.
-Return a pattern.
-
-\(fn FILENAME)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (rng-nxml-mode-init) "rng-nxml" "nxml/rng-nxml.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from nxml/rng-nxml.el
-
-(autoload 'rng-nxml-mode-init "rng-nxml" "\
-Initialize `nxml-mode' to take advantage of `rng-validate-mode'.
-This is typically called from `nxml-mode-hook'.
-Validation will be enabled if `rng-nxml-auto-validate-flag' is non-nil.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rng-validate-mode) "rng-valid" "nxml/rng-valid.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from nxml/rng-valid.el
-
-(autoload 'rng-validate-mode "rng-valid" "\
-Minor mode performing continual validation against a RELAX NG schema.
-
-Checks whether the buffer is a well-formed XML 1.0 document,
-conforming to the XML Namespaces Recommendation and valid against a
-RELAX NG schema. The mode-line indicates whether it is or not. Any
-parts of the buffer that cause it not to be are considered errors and
-are highlighted with face `rng-error'. A description of each error is
-available as a tooltip. \\[rng-next-error] goes to the next error
-after point. Clicking mouse-1 on the word `Invalid' in the mode-line
-goes to the first error in the buffer. If the buffer changes, then it
-will be automatically rechecked when Emacs becomes idle; the
-rechecking will be paused whenever there is input pending.
-
-By default, uses a vacuous schema that allows any well-formed XML
-document. A schema can be specified explicitly using
-\\[rng-set-schema-file-and-validate], or implicitly based on the buffer's
-file name or on the root element name. In each case the schema must
-be a RELAX NG schema using the compact schema (such schemas
-conventionally have a suffix of `.rnc'). The variable
-`rng-schema-locating-files' specifies files containing rules
-to use for finding the schema.
-
-\(fn &optional ARG NO-CHANGE-SCHEMA)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from nxml/rng-xsd.el
-
-(put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile)
-
-(autoload 'rng-xsd-compile "rng-xsd" "\
-Provides W3C XML Schema as a RELAX NG datatypes library.
-NAME is a symbol giving the local name of the datatype. PARAMS is a
-list of pairs (PARAM-NAME . PARAM-VALUE) where PARAM-NAME is a symbol
-giving the name of the parameter and PARAM-VALUE is a string giving
-its value. If NAME or PARAMS are invalid, it calls rng-dt-error
-passing it arguments in the same style as format; the value from
-rng-dt-error will be returned. Otherwise, it returns a list. The
-first member of the list is t if any string is a legal value for the
-datatype and nil otherwise. The second argument is a symbol; this
-symbol will be called as a function passing it a string followed by
-the remaining members of the list. The function must return an object
-representing the value of the datatype that was represented by the
-string, or nil if the string is not a representation of any value.
-The object returned can be any convenient non-nil value, provided
-that, if two strings represent the same value, the returned objects
-must be equal.
-
-\(fn NAME PARAMS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (robin-use-package robin-modify-package robin-define-package)
-;;;;;; "robin" "international/robin.el" (20627 28531 447943 0))
-;;; Generated autoloads from international/robin.el
-
-(autoload 'robin-define-package "robin" "\
-Define a robin package.
-
-NAME is the string of this robin package.
-DOCSTRING is the documentation string of this robin package.
-Each RULE is of the form (INPUT OUTPUT) where INPUT is a string and
-OUTPUT is either a character or a string. RULES are not evaluated.
-
-If there already exists a robin package whose name is NAME, the new
-one replaces the old one.
-
-\(fn NAME DOCSTRING &rest RULES)" nil t)
-
-(autoload 'robin-modify-package "robin" "\
-Change a rule in an already defined robin package.
-
-NAME is the string specifying a robin package.
-INPUT is a string that specifies the input pattern.
-OUTPUT is either a character or a string to be generated.
-
-\(fn NAME INPUT OUTPUT)" nil nil)
-
-(autoload 'robin-use-package "robin" "\
-Start using robin package NAME, which is a string.
-
-\(fn NAME)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region
-;;;;;; rot13-string rot13) "rot13" "rot13.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from rot13.el
-
-(autoload 'rot13 "rot13" "\
-Return ROT13 encryption of OBJECT, a buffer or string.
-
-\(fn OBJECT &optional START END)" nil nil)
-
-(autoload 'rot13-string "rot13" "\
-Return ROT13 encryption of STRING.
-
-\(fn STRING)" nil nil)
-
-(autoload 'rot13-region "rot13" "\
-ROT13 encrypt the region between START and END in current buffer.
-
-\(fn START END)" t nil)
-
-(autoload 'rot13-other-window "rot13" "\
-Display current buffer in ROT13 in another window.
-The text itself is not modified, only the way it is displayed is affected.
-
-To terminate the ROT13 display, delete that window. As long as that window
-is not deleted, any buffer displayed in it will become instantly encoded
-in ROT13.
-
-See also `toggle-rot13-mode'.
-
-\(fn)" t nil)
-
-(autoload 'toggle-rot13-mode "rot13" "\
-Toggle the use of ROT13 encoding for the current window.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rst-minor-mode rst-mode) "rst" "textmodes/rst.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/rst.el
- (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode)))
-
-(autoload 'rst-mode "rst" "\
-Major mode for editing reStructuredText documents.
-\\<rst-mode-map>
-
-Turning on `rst-mode' calls the normal hooks `text-mode-hook'
-and `rst-mode-hook'. This mode also supports font-lock
-highlighting.
-
-\\{rst-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'rst-minor-mode "rst" "\
-Toggle ReST minor mode.
-With a prefix argument ARG, enable ReST minor mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-When ReST minor mode is enabled, the ReST mode keybindings
-are installed on top of the major mode bindings. Use this
-for modes derived from Text mode, like Mail mode.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ruby-mode) "ruby-mode" "progmodes/ruby-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/ruby-mode.el
-
-(autoload 'ruby-mode "ruby-mode" "\
-Major mode for editing Ruby scripts.
-\\[ruby-indent-line] properly indents subexpressions of multi-line
-class, module, def, if, while, for, do, and case statements, taking
-nesting into account.
-
-The variable `ruby-indent-level' controls the amount of indentation.
-
-\\{ruby-mode-map}
-
-\(fn)" t nil)
-
-(add-to-list 'auto-mode-alist (cons (purecopy "\\.rb\\'") 'ruby-mode))
-
-(dolist (name (list "ruby" "rbx" "jruby" "ruby1.9" "ruby1.8")) (add-to-list 'interpreter-mode-alist (cons (purecopy name) 'ruby-mode)))
-
-;;;***
-\f
-;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from ruler-mode.el
-
-(defvar ruler-mode nil "\
-Non-nil if Ruler mode is enabled.
-Use the command `ruler-mode' to change this variable.")
-
-(autoload 'ruler-mode "ruler-mode" "\
-Toggle display of ruler in header line (Ruler mode).
-With a prefix argument ARG, enable Ruler mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/rx.el
-
-(autoload 'rx-to-string "rx" "\
-Parse and produce code for regular expression FORM.
-FORM is a regular expression in sexp form.
-NO-GROUP non-nil means don't put shy groups around the result.
-
-\(fn FORM &optional NO-GROUP)" nil nil)
-
-(autoload 'rx "rx" "\
-Translate regular expressions REGEXPS in sexp form to a regexp string.
-REGEXPS is a non-empty sequence of forms of the sort listed below.
-
-Note that `rx' is a Lisp macro; when used in a Lisp program being
- compiled, the translation is performed by the compiler.
-See `rx-to-string' for how to do such a translation at run-time.
-
-The following are valid subforms of regular expressions in sexp
-notation.
-
-STRING
- matches string STRING literally.
-
-CHAR
- matches character CHAR literally.
-
-`not-newline', `nonl'
- matches any character except a newline.
-
-`anything'
- matches any character
-
-`(any SET ...)'
-`(in SET ...)'
-`(char SET ...)'
- matches any character in SET .... SET may be a character or string.
- Ranges of characters can be specified as `A-Z' in strings.
- Ranges may also be specified as conses like `(?A . ?Z)'.
-
- SET may also be the name of a character class: `digit',
- `control', `hex-digit', `blank', `graph', `print', `alnum',
- `alpha', `ascii', `nonascii', `lower', `punct', `space', `upper',
- `word', or one of their synonyms.
-
-`(not (any SET ...))'
- matches any character not in SET ...
-
-`line-start', `bol'
- matches the empty string, but only at the beginning of a line
- in the text being matched
-
-`line-end', `eol'
- is similar to `line-start' but matches only at the end of a line
-
-`string-start', `bos', `bot'
- matches the empty string, but only at the beginning of the
- string being matched against.
-
-`string-end', `eos', `eot'
- matches the empty string, but only at the end of the
- string being matched against.
-
-`buffer-start'
- matches the empty string, but only at the beginning of the
- buffer being matched against. Actually equivalent to `string-start'.
-
-`buffer-end'
- matches the empty string, but only at the end of the
- buffer being matched against. Actually equivalent to `string-end'.
-
-`point'
- matches the empty string, but only at point.
-
-`word-start', `bow'
- matches the empty string, but only at the beginning of a word.
-
-`word-end', `eow'
- matches the empty string, but only at the end of a word.
-
-`word-boundary'
- matches the empty string, but only at the beginning or end of a
- word.
-
-`(not word-boundary)'
-`not-word-boundary'
- matches the empty string, but not at the beginning or end of a
- word.
-
-`symbol-start'
- matches the empty string, but only at the beginning of a symbol.
-
-`symbol-end'
- matches the empty string, but only at the end of a symbol.
-
-`digit', `numeric', `num'
- matches 0 through 9.
-
-`control', `cntrl'
- matches ASCII control characters.
-
-`hex-digit', `hex', `xdigit'
- matches 0 through 9, a through f and A through F.
-
-`blank'
- matches space and tab only.
-
-`graphic', `graph'
- matches graphic characters--everything except ASCII control chars,
- space, and DEL.
-
-`printing', `print'
- matches printing characters--everything except ASCII control chars
- and DEL.
-
-`alphanumeric', `alnum'
- matches letters and digits. (But at present, for multibyte characters,
- it matches anything that has word syntax.)
-
-`letter', `alphabetic', `alpha'
- matches letters. (But at present, for multibyte characters,
- it matches anything that has word syntax.)
-
-`ascii'
- matches ASCII (unibyte) characters.
-
-`nonascii'
- matches non-ASCII (multibyte) characters.
-
-`lower', `lower-case'
- matches anything lower-case.
-
-`upper', `upper-case'
- matches anything upper-case.
-
-`punctuation', `punct'
- matches punctuation. (But at present, for multibyte characters,
- it matches anything that has non-word syntax.)
-
-`space', `whitespace', `white'
- matches anything that has whitespace syntax.
-
-`word', `wordchar'
- matches anything that has word syntax.
-
-`not-wordchar'
- matches anything that has non-word syntax.
-
-`(syntax SYNTAX)'
- matches a character with syntax SYNTAX. SYNTAX must be one
- of the following symbols, or a symbol corresponding to the syntax
- character, e.g. `\\.' for `\\s.'.
-
- `whitespace' (\\s- in string notation)
- `punctuation' (\\s.)
- `word' (\\sw)
- `symbol' (\\s_)
- `open-parenthesis' (\\s()
- `close-parenthesis' (\\s))
- `expression-prefix' (\\s')
- `string-quote' (\\s\")
- `paired-delimiter' (\\s$)
- `escape' (\\s\\)
- `character-quote' (\\s/)
- `comment-start' (\\s<)
- `comment-end' (\\s>)
- `string-delimiter' (\\s|)
- `comment-delimiter' (\\s!)
-
-`(not (syntax SYNTAX))'
- matches a character that doesn't have syntax SYNTAX.
-
-`(category CATEGORY)'
- matches a character with category CATEGORY. CATEGORY must be
- either a character to use for C, or one of the following symbols.
-
- `consonant' (\\c0 in string notation)
- `base-vowel' (\\c1)
- `upper-diacritical-mark' (\\c2)
- `lower-diacritical-mark' (\\c3)
- `tone-mark' (\\c4)
- `symbol' (\\c5)
- `digit' (\\c6)
- `vowel-modifying-diacritical-mark' (\\c7)
- `vowel-sign' (\\c8)
- `semivowel-lower' (\\c9)
- `not-at-end-of-line' (\\c<)
- `not-at-beginning-of-line' (\\c>)
- `alpha-numeric-two-byte' (\\cA)
- `chinse-two-byte' (\\cC)
- `greek-two-byte' (\\cG)
- `japanese-hiragana-two-byte' (\\cH)
- `indian-tow-byte' (\\cI)
- `japanese-katakana-two-byte' (\\cK)
- `korean-hangul-two-byte' (\\cN)
- `cyrillic-two-byte' (\\cY)
- `combining-diacritic' (\\c^)
- `ascii' (\\ca)
- `arabic' (\\cb)
- `chinese' (\\cc)
- `ethiopic' (\\ce)
- `greek' (\\cg)
- `korean' (\\ch)
- `indian' (\\ci)
- `japanese' (\\cj)
- `japanese-katakana' (\\ck)
- `latin' (\\cl)
- `lao' (\\co)
- `tibetan' (\\cq)
- `japanese-roman' (\\cr)
- `thai' (\\ct)
- `vietnamese' (\\cv)
- `hebrew' (\\cw)
- `cyrillic' (\\cy)
- `can-break' (\\c|)
-
-`(not (category CATEGORY))'
- matches a character that doesn't have category CATEGORY.
-
-`(and SEXP1 SEXP2 ...)'
-`(: SEXP1 SEXP2 ...)'
-`(seq SEXP1 SEXP2 ...)'
-`(sequence SEXP1 SEXP2 ...)'
- matches what SEXP1 matches, followed by what SEXP2 matches, etc.
-
-`(submatch SEXP1 SEXP2 ...)'
-`(group SEXP1 SEXP2 ...)'
- like `and', but makes the match accessible with `match-end',
- `match-beginning', and `match-string'.
-
-`(submatch-n N SEXP1 SEXP2 ...)'
-`(group-n N SEXP1 SEXP2 ...)'
- like `group', but make it an explicitly-numbered group with
- group number N.
-
-`(or SEXP1 SEXP2 ...)'
-`(| SEXP1 SEXP2 ...)'
- matches anything that matches SEXP1 or SEXP2, etc. If all
- args are strings, use `regexp-opt' to optimize the resulting
- regular expression.
-
-`(minimal-match SEXP)'
- produce a non-greedy regexp for SEXP. Normally, regexps matching
- zero or more occurrences of something are \"greedy\" in that they
- match as much as they can, as long as the overall regexp can
- still match. A non-greedy regexp matches as little as possible.
-
-`(maximal-match SEXP)'
- produce a greedy regexp for SEXP. This is the default.
-
-Below, `SEXP ...' represents a sequence of regexp forms, treated as if
-enclosed in `(and ...)'.
-
-`(zero-or-more SEXP ...)'
-`(0+ SEXP ...)'
- matches zero or more occurrences of what SEXP ... matches.
-
-`(* SEXP ...)'
- like `zero-or-more', but always produces a greedy regexp, independent
- of `rx-greedy-flag'.
-
-`(*? SEXP ...)'
- like `zero-or-more', but always produces a non-greedy regexp,
- independent of `rx-greedy-flag'.
-
-`(one-or-more SEXP ...)'
-`(1+ SEXP ...)'
- matches one or more occurrences of SEXP ...
-
-`(+ SEXP ...)'
- like `one-or-more', but always produces a greedy regexp.
-
-`(+? SEXP ...)'
- like `one-or-more', but always produces a non-greedy regexp.
-
-`(zero-or-one SEXP ...)'
-`(optional SEXP ...)'
-`(opt SEXP ...)'
- matches zero or one occurrences of A.
-
-`(? SEXP ...)'
- like `zero-or-one', but always produces a greedy regexp.
-
-`(?? SEXP ...)'
- like `zero-or-one', but always produces a non-greedy regexp.
-
-`(repeat N SEXP)'
-`(= N SEXP ...)'
- matches N occurrences.
-
-`(>= N SEXP ...)'
- matches N or more occurrences.
-
-`(repeat N M SEXP)'
-`(** N M SEXP ...)'
- matches N to M occurrences.
-
-`(backref N)'
- matches what was matched previously by submatch N.
-
-`(eval FORM)'
- evaluate FORM and insert result. If result is a string,
- `regexp-quote' it.
-
-`(regexp REGEXP)'
- include REGEXP in string notation in the result.
-
-\(fn &rest REGEXPS)" nil t)
-
-;;;***
-\f
-;;;### (autoloads (savehist-mode) "savehist" "savehist.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from savehist.el
-
-(defvar savehist-mode nil "\
-Non-nil if Savehist mode is enabled.
-See the command `savehist-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `savehist-mode'.")
-
-(custom-autoload 'savehist-mode "savehist" nil)
-
-(autoload 'savehist-mode "savehist" "\
-Toggle saving of minibuffer history (Savehist mode).
-With a prefix argument ARG, enable Savehist mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-When Savehist mode is enabled, minibuffer history is saved
-periodically and when exiting Emacs. When Savehist mode is
-enabled for the first time in an Emacs session, it loads the
-previous minibuffer history from `savehist-file'.
-
-This mode should normally be turned on from your Emacs init file.
-Calling it at any other time replaces your current minibuffer
-histories, which is probably undesirable.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/scheme.el
-
-(autoload 'scheme-mode "scheme" "\
-Major mode for editing Scheme code.
-Editing commands are similar to those of `lisp-mode'.
-
-In addition, if an inferior Scheme process is running, some additional
-commands will be defined, for evaluating expressions and controlling
-the interpreter, and the state of the process will be displayed in the
-mode line of all Scheme buffers. The names of commands that interact
-with the Scheme process start with \"xscheme-\" if you use the MIT
-Scheme-specific `xscheme' package; for more information see the
-documentation for `xscheme-interaction-mode'. Use \\[run-scheme] to
-start an inferior Scheme using the more general `cmuscheme' package.
-
-Commands:
-Delete converts tabs to spaces as it moves back.
-Blank lines separate paragraphs. Semicolons start comments.
-\\{scheme-mode-map}
-Entry to this mode calls the value of `scheme-mode-hook'
-if that value is non-nil.
-
-\(fn)" t nil)
-
-(autoload 'dsssl-mode "scheme" "\
-Major mode for editing DSSSL code.
-Editing commands are similar to those of `lisp-mode'.
-
-Commands:
-Delete converts tabs to spaces as it moves back.
-Blank lines separate paragraphs. Semicolons start comments.
-\\{scheme-mode-map}
-Entering this mode runs the hooks `scheme-mode-hook' and then
-`dsssl-mode-hook' and inserts the value of `dsssl-sgml-declaration' if
-that variable's value is a string.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/score-mode.el
-
-(autoload 'gnus-score-mode "score-mode" "\
-Mode for editing Gnus score files.
-This mode is an extended emacs-lisp mode.
-
-\\{gnus-score-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from scroll-all.el
-
-(defvar scroll-all-mode nil "\
-Non-nil if Scroll-All mode is enabled.
-See the command `scroll-all-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `scroll-all-mode'.")
-
-(custom-autoload 'scroll-all-mode "scroll-all" nil)
-
-(autoload 'scroll-all-mode "scroll-all" "\
-Toggle shared scrolling in same-frame windows (Scroll-All mode).
-With a prefix argument ARG, enable Scroll-All mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-When Scroll-All mode is enabled, scrolling commands invoked in
-one window apply to all visible windows in the same frame.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from scroll-lock.el
-
-(autoload 'scroll-lock-mode "scroll-lock" "\
-Buffer-local minor mode for pager-like scrolling.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil. When enabled, keys that normally move
-point by line or paragraph will scroll the buffer by the
-respective amount of lines instead and point will be kept
-vertically fixed relative to window boundaries during scrolling.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil "secrets" "net/secrets.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from net/secrets.el
-(when (featurep 'dbusbind)
- (autoload 'secrets-show-secrets "secrets" nil t))
-
-;;;***
-\f
-;;;### (autoloads (semantic-mode semantic-default-submodes) "semantic"
-;;;;;; "cedet/semantic.el" (20748 34276 6200 0))
-;;; Generated autoloads from cedet/semantic.el
-
-(defvar semantic-default-submodes '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode) "\
-List of auxiliary Semantic minor modes enabled by `semantic-mode'.
-The possible elements of this list include the following:
-
- `global-semanticdb-minor-mode' - Maintain tag database.
- `global-semantic-idle-scheduler-mode' - Reparse buffer when idle.
- `global-semantic-idle-summary-mode' - Show summary of tag at point.
- `global-semantic-idle-completions-mode' - Show completions when idle.
- `global-semantic-decoration-mode' - Additional tag decorations.
- `global-semantic-highlight-func-mode' - Highlight the current tag.
- `global-semantic-stickyfunc-mode' - Show current fun in header line.
- `global-semantic-mru-bookmark-mode' - Provide `switch-to-buffer'-like
- keybinding for tag names.
- `global-cedet-m3-minor-mode' - A mouse 3 context menu.
- `global-semantic-idle-local-symbol-highlight-mode' - Highlight references
- of the symbol under point.
-The following modes are more targeted at people who want to see
- some internal information of the semantic parser in action:
- `global-semantic-highlight-edits-mode' - Visualize incremental parser by
- highlighting not-yet parsed changes.
- `global-semantic-show-unmatched-syntax-mode' - Highlight unmatched lexical
- syntax tokens.
- `global-semantic-show-parser-state-mode' - Display the parser cache state.")
-
-(custom-autoload 'semantic-default-submodes "semantic" t)
-
-(defvar semantic-mode nil "\
-Non-nil if Semantic mode is enabled.
-See the command `semantic-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `semantic-mode'.")
-
-(custom-autoload 'semantic-mode "semantic" nil)
-
-(autoload 'semantic-mode "semantic" "\
-Toggle parser features (Semantic mode).
-With a prefix argument ARG, enable Semantic mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-Semantic mode if ARG is omitted or nil.
-
-In Semantic mode, Emacs parses the buffers you visit for their
-semantic content. This information is used by a variety of
-auxiliary minor modes, listed in `semantic-default-submodes';
-all the minor modes in this list are also enabled when you enable
-Semantic mode.
-
-\\{semantic-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (bovine-grammar-mode) "semantic/bovine/grammar"
-;;;;;; "cedet/semantic/bovine/grammar.el" (20707 18685 911514 0))
-;;; Generated autoloads from cedet/semantic/bovine/grammar.el
-
-(autoload 'bovine-grammar-mode "semantic/bovine/grammar" "\
-Major mode for editing Bovine grammars.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (wisent-grammar-mode) "semantic/wisent/grammar"
-;;;;;; "cedet/semantic/wisent/grammar.el" (20707 18685 911514 0))
-;;; Generated autoloads from cedet/semantic/wisent/grammar.el
-
-(autoload 'wisent-grammar-mode "semantic/wisent/grammar" "\
-Major mode for editing Wisent grammars.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mail-other-frame mail-other-window mail mail-mailing-lists
-;;;;;; mail-mode sendmail-user-agent-compose sendmail-query-once
-;;;;;; mail-default-headers mail-default-directory mail-signature-file
-;;;;;; mail-signature mail-citation-prefix-regexp mail-citation-hook
-;;;;;; mail-indentation-spaces mail-yank-prefix mail-setup-hook
-;;;;;; mail-personal-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" (20707 18685 911514 0))
-;;; Generated autoloads from mail/sendmail.el
-
-(defvar mail-from-style 'default "\
-Specifies how \"From:\" fields look.
-
-If `nil', they contain just the return address like:
- king@grassland.com
-If `parens', they look like:
- king@grassland.com (Elvis Parsley)
-If `angles', they look like:
- Elvis Parsley <king@grassland.com>
-
-Otherwise, most addresses look like `angles', but they look like
-`parens' if `angles' would need quoting and `parens' would not.")
-
-(custom-autoload 'mail-from-style "sendmail" t)
-
-(defvar mail-specify-envelope-from nil "\
-If non-nil, specify the envelope-from address when sending mail.
-The value used to specify it is whatever is found in
-the variable `mail-envelope-from', with `user-mail-address' as fallback.
-
-On most systems, specifying the envelope-from address is a
-privileged operation. This variable affects sendmail and
-smtpmail -- if you use feedmail to send mail, see instead the
-variable `feedmail-deduce-envelope-from'.")
-
-(custom-autoload 'mail-specify-envelope-from "sendmail" t)
-
-(defvar mail-self-blind nil "\
-Non-nil means insert BCC to self in messages to be sent.
-This is done when the message is initialized,
-so you can remove or alter the BCC field to override the default.")
-
-(custom-autoload 'mail-self-blind "sendmail" t)
-
-(defvar mail-interactive t "\
-Non-nil means when sending a message wait for and display errors.
-Otherwise, let mailer send back a message to report errors.")
-
-(custom-autoload 'mail-interactive "sendmail" t)
-
-(defvar send-mail-function (if (and (boundp 'smtpmail-smtp-server) smtpmail-smtp-server) 'smtpmail-send-it 'sendmail-query-once) "\
-Function to call to send the current buffer as mail.
-The headers should be delimited by a line which is
-not a valid RFC822 header or continuation line,
-that matches the variable `mail-header-separator'.
-This is used by the default mail-sending commands. See also
-`message-send-mail-function' for use with the Message package.")
-
-(custom-autoload 'send-mail-function "sendmail" t)
-
-(defvar mail-header-separator (purecopy "--text follows this line--") "\
-Line used to separate headers from text in messages being composed.")
-
-(custom-autoload 'mail-header-separator "sendmail" t)
-
-(defvar mail-archive-file-name nil "\
-Name of file to write all outgoing messages in, or nil for none.
-This is normally an mbox file, but for backwards compatibility may also
-be a Babyl file.")
-
-(custom-autoload 'mail-archive-file-name "sendmail" t)
-
-(defvar mail-default-reply-to nil "\
-Address to insert as default Reply-to field of outgoing messages.
-If nil, it will be initialized from the REPLYTO environment variable
-when you first send mail.")
-
-(custom-autoload 'mail-default-reply-to "sendmail" t)
-
-(defvar mail-personal-alias-file (purecopy "~/.mailrc") "\
-If non-nil, the name of the user's personal mail alias file.
-This file typically should be in same format as the `.mailrc' file used by
-the `Mail' or `mailx' program.
-This file need not actually exist.")
-
-(custom-autoload 'mail-personal-alias-file "sendmail" t)
-
-(defvar mail-setup-hook nil "\
-Normal hook, run each time a new outgoing message is initialized.")
-
-(custom-autoload 'mail-setup-hook "sendmail" t)
-
-(defvar mail-aliases t "\
-Alist of mail address aliases,
-or t meaning should be initialized from your mail aliases file.
-\(The file's name is normally `~/.mailrc', but `mail-personal-alias-file'
-can specify a different file name.)
-The alias definitions in the file have this form:
- alias ALIAS MEANING")
-
-(defvar mail-yank-prefix "> " "\
-Prefix insert on lines of yanked message being replied to.
-If this is nil, use indentation, as specified by `mail-indentation-spaces'.")
-
-(custom-autoload 'mail-yank-prefix "sendmail" t)
-
-(defvar mail-indentation-spaces 3 "\
-Number of spaces to insert at the beginning of each cited line.
-Used by `mail-yank-original' via `mail-indent-citation'.")
-
-(custom-autoload 'mail-indentation-spaces "sendmail" t)
-
-(defvar mail-citation-hook nil "\
-Hook for modifying a citation just inserted in the mail buffer.
-Each hook function can find the citation between (point) and (mark t),
-and should leave point and mark around the citation text as modified.
-The hook functions can find the header of the cited message
-in the variable `mail-citation-header', whether or not this is included
-in the cited portion of the message.
-
-If this hook is entirely empty (nil), a default action is taken
-instead of no action.")
-
-(custom-autoload 'mail-citation-hook "sendmail" t)
-
-(defvar mail-citation-prefix-regexp (purecopy "\\([ ]*\\(\\w\\|[_.]\\)+>+\\|[ ]*[]>|]\\)+") "\
-Regular expression to match a citation prefix plus whitespace.
-It should match whatever sort of citation prefixes you want to handle,
-with whitespace before and after; it should also match just whitespace.
-The default value matches citations like `foo-bar>' plus whitespace.")
-
-(custom-autoload 'mail-citation-prefix-regexp "sendmail" t)
-
-(defvar mail-signature t "\
-Text inserted at end of mail buffer when a message is initialized.
-If t, it means to insert the contents of the file `mail-signature-file'.
-If a string, that string is inserted.
- (To make a proper signature, the string should begin with \\n\\n-- \\n,
- which is the standard way to delimit a signature in a message.)
-Otherwise, it should be an expression; it is evaluated
-and should insert whatever you want to insert.")
-
-(custom-autoload 'mail-signature "sendmail" t)
-
-(defvar mail-signature-file (purecopy "~/.signature") "\
-File containing the text inserted at end of mail buffer.")
-
-(custom-autoload 'mail-signature-file "sendmail" t)
-
-(defvar mail-default-directory (purecopy "~/") "\
-Value of `default-directory' for Mail mode buffers.
-This directory is used for auto-save files of Mail mode buffers.
-
-Note that Message mode does not use this variable; it auto-saves
-in `message-auto-save-directory'.")
-
-(custom-autoload 'mail-default-directory "sendmail" t)
-
-(defvar mail-default-headers nil "\
-A string containing header lines, to be inserted in outgoing messages.
-It can contain newlines, and should end in one. It is inserted
-before you edit the message, so you can edit or delete the lines.")
-
-(custom-autoload 'mail-default-headers "sendmail" t)
-
-(autoload 'sendmail-query-once "sendmail" "\
-Query for `send-mail-function' and send mail with it.
-This also saves the value of `send-mail-function' via Customize.
-
-\(fn)" nil nil)
-
-(define-mail-user-agent 'sendmail-user-agent 'sendmail-user-agent-compose 'mail-send-and-exit)
-
-(autoload 'sendmail-user-agent-compose "sendmail" "\
-
-
-\(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-FUNCTION YANK-ACTION SEND-ACTIONS RETURN-ACTION &rest IGNORED)" nil nil)
-
-(autoload 'mail-mode "sendmail" "\
-Major mode for editing mail to be sent.
-Like Text Mode but with these additional commands:
-
-\\[mail-send] mail-send (send the message)
-\\[mail-send-and-exit] mail-send-and-exit (send the message and exit)
-
-Here are commands that move to a header field (and create it if there isn't):
- \\[mail-to] move to To: \\[mail-subject] move to Subj:
- \\[mail-bcc] move to BCC: \\[mail-cc] move to CC:
- \\[mail-fcc] move to FCC: \\[mail-reply-to] move to Reply-To:
- \\[mail-mail-reply-to] move to Mail-Reply-To:
- \\[mail-mail-followup-to] move to Mail-Followup-To:
-\\[mail-text] move to message text.
-\\[mail-signature] mail-signature (insert `mail-signature-file' file).
-\\[mail-yank-original] mail-yank-original (insert current message, in Rmail).
-\\[mail-fill-yanked-message] mail-fill-yanked-message (fill what was yanked).
-\\[mail-insert-file] insert a text file into the message.
-\\[mail-add-attachment] attach to the message a file as binary attachment.
-Turning on Mail mode runs the normal hooks `text-mode-hook' and
-`mail-mode-hook' (in that order).
-
-\(fn)" t nil)
-
-(defvar mail-mailing-lists nil "\
-List of mailing list addresses the user is subscribed to.
-The variable is used to trigger insertion of the \"Mail-Followup-To\"
-header when sending a message to a mailing list.")
-
-(custom-autoload 'mail-mailing-lists "sendmail" t)
-
-(defvar sendmail-coding-system nil "\
-Coding system for encoding the outgoing mail.
-This has higher priority than the default `buffer-file-coding-system'
-and `default-sendmail-coding-system',
-but lower priority than the local value of `buffer-file-coding-system'.
-See also the function `select-message-coding-system'.")
-
-(defvar default-sendmail-coding-system 'iso-latin-1 "\
-Default coding system for encoding the outgoing mail.
-This variable is used only when `sendmail-coding-system' is nil.
-
-This variable is set/changed by the command `set-language-environment'.
-User should not set this variable manually,
-instead use `sendmail-coding-system' to get a constant encoding
-of outgoing mails regardless of the current language environment.
-See also the function `select-message-coding-system'.")
-
-(autoload 'mail "sendmail" "\
-Edit a message to be sent. Prefix arg means resume editing (don't erase).
-When this function returns, the buffer `*mail*' is selected.
-The value is t if the message was newly initialized; otherwise, nil.
-
-Optionally, the signature file `mail-signature-file' can be inserted at the
-end; see the variable `mail-signature'.
-
-\\<mail-mode-map>
-While editing message, type \\[mail-send-and-exit] to send the message and exit.
-
-Various special commands starting with C-c are available in sendmail mode
-to move to message header fields:
-\\{mail-mode-map}
-
-If `mail-self-blind' is non-nil, a BCC to yourself is inserted
-when the message is initialized.
-
-If `mail-default-reply-to' is non-nil, it should be an address (a string);
-a Reply-to: field with that address is inserted.
-
-If `mail-archive-file-name' is non-nil, an FCC field with that file name
-is inserted.
-
-The normal hook `mail-setup-hook' is run after the message is
-initialized. It can add more default fields to the message.
-
-The first argument, NOERASE, determines what to do when there is
-an existing modified `*mail*' buffer. If NOERASE is nil, the
-existing mail buffer is used, and the user is prompted whether to
-keep the old contents or to erase them. If NOERASE has the value
-`new', a new mail buffer will be created instead of using the old
-one. Any other non-nil value means to always select the old
-buffer without erasing the contents.
-
-The second through fifth arguments,
- TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil
- the initial contents of those header fields.
- These arguments should not have final newlines.
-The sixth argument REPLYBUFFER is a buffer which contains an
- original message being replied to, or else an action
- of the form (FUNCTION . ARGS) which says how to insert the original.
- Or it can be nil, if not replying to anything.
-The seventh argument ACTIONS is a list of actions to take
- if/when the message is sent. Each action looks like (FUNCTION . ARGS);
- when the message is sent, we apply FUNCTION to ARGS.
- This is how Rmail arranges to mark messages `answered'.
-
-\(fn &optional NOERASE TO SUBJECT IN-REPLY-TO CC REPLYBUFFER ACTIONS RETURN-ACTION)" t nil)
-
-(autoload 'mail-other-window "sendmail" "\
-Like `mail' command, but display mail buffer in another window.
-
-\(fn &optional NOERASE TO SUBJECT IN-REPLY-TO CC REPLYBUFFER SENDACTIONS)" t nil)
-
-(autoload 'mail-other-frame "sendmail" "\
-Like `mail' command, but display mail buffer in another frame.
-
-\(fn &optional NOERASE TO SUBJECT IN-REPLY-TO CC REPLYBUFFER SENDACTIONS)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (server-save-buffers-kill-terminal server-mode
-;;;;;; server-force-delete server-start) "server" "server.el" (20763
-;;;;;; 5110 492774 0))
-;;; Generated autoloads from server.el
-
-(put 'server-host 'risky-local-variable t)
-
-(put 'server-port 'risky-local-variable t)
-
-(put 'server-auth-dir 'risky-local-variable t)
-
-(autoload 'server-start "server" "\
-Allow this Emacs process to be a server for client processes.
-This starts a server communications subprocess through which client
-\"editors\" can send your editing commands to this Emacs job.
-To use the server, set up the program `emacsclient' in the Emacs
-distribution as your standard \"editor\".
-
-Optional argument LEAVE-DEAD (interactively, a prefix arg) means just
-kill any existing server communications subprocess.
-
-If a server is already running, restart it. If clients are
-running, ask the user for confirmation first, unless optional
-argument INHIBIT-PROMPT is non-nil.
-
-To force-start a server, do \\[server-force-delete] and then
-\\[server-start].
-
-\(fn &optional LEAVE-DEAD INHIBIT-PROMPT)" t nil)
-
-(autoload 'server-force-delete "server" "\
-Unconditionally delete connection file for server NAME.
-If server is running, it is first stopped.
-NAME defaults to `server-name'. With argument, ask for NAME.
-
-\(fn &optional NAME)" t nil)
-
-(defvar server-mode nil "\
-Non-nil if Server mode is enabled.
-See the command `server-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `server-mode'.")
-
-(custom-autoload 'server-mode "server" nil)
-
-(autoload 'server-mode "server" "\
-Toggle Server mode.
-With a prefix argument ARG, enable Server mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-Server mode if ARG is omitted or nil.
-
-Server mode runs a process that accepts commands from the
-`emacsclient' program. See Info node `Emacs server' and
-`server-start' for details.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'server-save-buffers-kill-terminal "server" "\
-Offer to save each buffer, then kill the current client.
-With ARG non-nil, silently save all file-visiting buffers, then kill.
-
-If emacsclient was started with a list of filenames to edit, then
-only these files will be asked to be saved.
-
-\(fn ARG)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (ses-mode) "ses" "ses.el" (20707 18685 911514 0))
-;;; Generated autoloads from ses.el
-
-(autoload 'ses-mode "ses" "\
-Major mode for Simple Emacs Spreadsheet.
-See \"ses-example.ses\" (in `data-directory') for more info.
-
-Key definitions:
-\\{ses-mode-map}
-These key definitions are active only in the print area (the visible part):
-\\{ses-mode-print-map}
-These are active only in the minibuffer, when entering or editing a formula:
-\\{ses-mode-edit-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/sgml-mode.el
-
-(autoload 'sgml-mode "sgml-mode" "\
-Major mode for editing SGML documents.
-Makes > match <.
-Keys <, &, SPC within <>, \", / and ' can be electric depending on
-`sgml-quick-keys'.
-
-An argument of N to a tag-inserting command means to wrap it around
-the next N words. In Transient Mark mode, when the mark is active,
-N defaults to -1, which means to wrap it around the current region.
-
-If you like upcased tags, put (setq sgml-transformation-function 'upcase)
-in your init file.
-
-Use \\[sgml-validate] to validate your document with an SGML parser.
-
-Do \\[describe-variable] sgml- SPC to see available variables.
-Do \\[describe-key] on the following bindings to discover what they do.
-\\{sgml-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'html-mode "sgml-mode" "\
-Major mode based on SGML mode for editing HTML documents.
-This allows inserting skeleton constructs used in hypertext documents with
-completion. See below for an introduction to HTML. Use
-\\[browse-url-of-buffer] to see how this comes out. See also `sgml-mode' on
-which this is based.
-
-Do \\[describe-variable] html- SPC and \\[describe-variable] sgml- SPC to see available variables.
-
-To write fairly well formatted pages you only need to know few things. Most
-browsers have a function to read the source code of the page being seen, so
-you can imitate various tricks. Here's a very short HTML primer which you
-can also view with a browser to see what happens:
-
-<title>A Title Describing Contents</title> should be on every page. Pages can
-have <h1>Very Major Headlines</h1> through <h6>Very Minor Headlines</h6>
-<hr> Parts can be separated with horizontal rules.
-
-<p>Paragraphs only need an opening tag. Line breaks and multiple spaces are
-ignored unless the text is <pre>preformatted.</pre> Text can be marked as
-<b>bold</b>, <i>italic</i> or <u>underlined</u> using the normal M-o or
-Edit/Text Properties/Face commands.
-
-Pages can have <a name=\"SOMENAME\">named points</a> and can link other points
-to them with <a href=\"#SOMENAME\">see also somename</a>. In the same way <a
-href=\"URL\">see also URL</a> where URL is a filename relative to current
-directory, or absolute as in `http://www.cs.indiana.edu/elisp/w3/docs.html'.
-
-Images in many formats can be inlined with <img src=\"URL\">.
-
-If you mainly create your own documents, `sgml-specials' might be
-interesting. But note that some HTML 2 browsers can't handle `''.
-To work around that, do:
- (eval-after-load \"sgml-mode\" '(aset sgml-char-names ?' nil))
-
-\\{html-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/sh-script.el
-(put 'sh-shell 'safe-local-variable 'symbolp)
-
-(autoload 'sh-mode "sh-script" "\
-Major mode for editing shell scripts.
-This mode works for many shells, since they all have roughly the same syntax,
-as far as commands, arguments, variables, pipes, comments etc. are concerned.
-Unless the file's magic number indicates the shell, your usual shell is
-assumed. Since filenames rarely give a clue, they are not further analyzed.
-
-This mode adapts to the variations between shells (see `sh-set-shell') by
-means of an inheritance based feature lookup (see `sh-feature'). This
-mechanism applies to all variables (including skeletons) that pertain to
-shell-specific features.
-
-The default style of this mode is that of Rosenblatt's Korn shell book.
-The syntax of the statements varies with the shell being used. The
-following commands are available, based on the current shell's syntax:
-\\<sh-mode-map>
-\\[sh-case] case statement
-\\[sh-for] for loop
-\\[sh-function] function definition
-\\[sh-if] if statement
-\\[sh-indexed-loop] indexed loop from 1 to n
-\\[sh-while-getopts] while getopts loop
-\\[sh-repeat] repeat loop
-\\[sh-select] select loop
-\\[sh-until] until loop
-\\[sh-while] while loop
-
-For sh and rc shells indentation commands are:
-\\[sh-show-indent] Show the variable controlling this line's indentation.
-\\[sh-set-indent] Set then variable controlling this line's indentation.
-\\[sh-learn-line-indent] Change the indentation variable so this line
-would indent to the way it currently is.
-\\[sh-learn-buffer-indent] Set the indentation variables so the
-buffer indents as it currently is indented.
-
-
-\\[backward-delete-char-untabify] Delete backward one position, even if it was a tab.
-\\[newline-and-indent] Delete unquoted space and indent new line same as this one.
-\\[sh-end-of-command] Go to end of successive commands.
-\\[sh-beginning-of-command] Go to beginning of successive commands.
-\\[sh-set-shell] Set this buffer's shell, and maybe its magic number.
-\\[sh-execute-region] Have optional header and region be executed in a subshell.
-
-`sh-electric-here-document-mode' controls whether insertion of two
-unquoted < insert a here document.
-
-If you generally program a shell different from your login shell you can
-set `sh-shell-file' accordingly. If your shell's file name doesn't correctly
-indicate what shell it is use `sh-alias-alist' to translate.
-
-If your shell gives error messages with line numbers, you can use \\[executable-interpret]
-with your script for an edit-interpret-debug cycle.
-
-\(fn)" t nil)
-
-(defalias 'shell-script-mode 'sh-mode)
-
-;;;***
-\f
-;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/shadow.el
-
-(autoload 'list-load-path-shadows "shadow" "\
-Display a list of Emacs Lisp files that shadow other files.
-
-If STRINGP is non-nil, returns any shadows as a string.
-Otherwise, if interactive shows any shadows in a `*Shadows*' buffer;
-else prints messages listing any shadows.
-
-This function lists potential load path problems. Directories in
-the `load-path' variable are searched, in order, for Emacs Lisp
-files. When a previously encountered file name is found again, a
-message is displayed indicating that the later file is \"hidden\" by
-the earlier.
-
-For example, suppose `load-path' is set to
-
-\(\"/usr/gnu/emacs/site-lisp\" \"/usr/gnu/emacs/share/emacs/19.30/lisp\")
-
-and that each of these directories contains a file called XXX.el. Then
-XXX.el in the site-lisp directory is referred to by all of:
-\(require 'XXX), (autoload .... \"XXX\"), (load-library \"XXX\") etc.
-
-The first XXX.el file prevents Emacs from seeing the second (unless
-the second is loaded explicitly via `load-file').
-
-When not intended, such shadowings can be the source of subtle
-problems. For example, the above situation may have arisen because the
-XXX package was not distributed with versions of Emacs prior to
-19.30. An Emacs maintainer downloaded XXX from elsewhere and installed
-it. Later, XXX was updated and included in the Emacs distribution.
-Unless the Emacs maintainer checks for this, the new version of XXX
-will be hidden behind the old (which may no longer work with the new
-Emacs version).
-
-This function performs these checks and flags all possible
-shadowings. Because a .el file may exist without a corresponding .elc
-\(or vice-versa), these suffixes are essentially ignored. A file
-XXX.elc in an early directory (that does not contain XXX.el) is
-considered to shadow a later file XXX.el, and vice-versa.
-
-Shadowings are located by calling the (non-interactive) companion
-function, `load-path-shadows-find'.
-
-\(fn &optional STRINGP)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group
-;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from shadowfile.el
-
-(autoload 'shadow-define-cluster "shadowfile" "\
-Edit (or create) the definition of a cluster NAME.
-This is a group of hosts that share directories, so that copying to or from
-one of them is sufficient to update the file on all of them. Clusters are
-defined by a name, the network address of a primary host (the one we copy
-files to), and a regular expression that matches the hostnames of all the
-sites in the cluster.
-
-\(fn NAME)" t nil)
-
-(autoload 'shadow-define-literal-group "shadowfile" "\
-Declare a single file to be shared between sites.
-It may have different filenames on each site. When this file is edited, the
-new version will be copied to each of the other locations. Sites can be
-specific hostnames, or names of clusters (see `shadow-define-cluster').
-
-\(fn)" t nil)
-
-(autoload 'shadow-define-regexp-group "shadowfile" "\
-Make each of a group of files be shared between hosts.
-Prompts for regular expression; files matching this are shared between a list
-of sites, which are also prompted for. The filenames must be identical on all
-hosts (if they aren't, use `shadow-define-literal-group' instead of this
-function). Each site can be either a hostname or the name of a cluster (see
-`shadow-define-cluster').
-
-\(fn)" t nil)
-
-(autoload 'shadow-initialize "shadowfile" "\
-Set up file shadowing.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from shell.el
-
-(defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\
-Regexp to match shells that don't save their command history, and
-don't handle the backslash as a quote character. For shells that
-match this regexp, Emacs will write out the command history when the
-shell finishes, and won't remove backslashes when it unquotes shell
-arguments.")
-
-(custom-autoload 'shell-dumb-shell-regexp "shell" t)
-
-(autoload 'shell "shell" "\
-Run an inferior shell, with I/O through BUFFER (which defaults to `*shell*').
-Interactively, a prefix arg means to prompt for BUFFER.
-If `default-directory' is a remote file name, it is also prompted
-to change if called with a prefix arg.
-
-If BUFFER exists but shell process is not running, make new shell.
-If BUFFER exists and shell process is running, just switch to BUFFER.
-Program used comes from variable `explicit-shell-file-name',
- or (if that is nil) from the ESHELL environment variable,
- or (if that is nil) from `shell-file-name'.
-If a file `~/.emacs_SHELLNAME' exists, or `~/.emacs.d/init_SHELLNAME.sh',
-it is given as initial input (but this may be lost, due to a timing
-error, if the shell discards input when it starts up).
-The buffer is put in Shell mode, giving commands for sending input
-and controlling the subjobs of the shell. See `shell-mode'.
-See also the variable `shell-prompt-pattern'.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the shell, use \\[universal-coding-system-argument]
-before \\[shell]. You can also specify this with \\[set-buffer-process-coding-system]
-in the shell buffer, after you start the shell.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-The shell file name (sans directories) is used to make a symbol name
-such as `explicit-csh-args'. If that symbol is a variable,
-its value is used as a list of arguments when invoking the shell.
-Otherwise, one argument `-i' is passed to the shell.
-
-\(Type \\[describe-mode] in the shell buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from gnus/shr.el
-
-(autoload 'shr-insert-document "shr" "\
-Render the parsed document DOM into the current buffer.
-DOM should be a parse tree as generated by
-`libxml-parse-html-region' or similar.
-
-\(fn DOM)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (sieve-upload-and-kill sieve-upload-and-bury sieve-upload
-;;;;;; sieve-manage) "sieve" "gnus/sieve.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from gnus/sieve.el
-
-(autoload 'sieve-manage "sieve" "\
-
-
-\(fn SERVER &optional PORT)" t nil)
-
-(autoload 'sieve-upload "sieve" "\
-
-
-\(fn &optional NAME)" t nil)
-
-(autoload 'sieve-upload-and-bury "sieve" "\
-
-
-\(fn &optional NAME)" t nil)
-
-(autoload 'sieve-upload-and-kill "sieve" "\
-
-
-\(fn &optional NAME)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/sieve-mode.el
-
-(autoload 'sieve-mode "sieve-mode" "\
-Major mode for editing Sieve code.
-This is much like C mode except for the syntax of comments. Its keymap
-inherits from C mode's and it has the same variables for customizing
-indentation. It has its own abbrev table and its own syntax table.
-
-Turning on Sieve mode runs `sieve-mode-hook'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from progmodes/simula.el
-
-(autoload 'simula-mode "simula" "\
-Major mode for editing SIMULA code.
-\\{simula-mode-map}
-Variables controlling indentation style:
- `simula-tab-always-indent'
- Non-nil means TAB in SIMULA mode should always reindent the current line,
- regardless of where in the line point is when the TAB command is used.
- `simula-indent-level'
- Indentation of SIMULA statements with respect to containing block.
- `simula-substatement-offset'
- Extra indentation after DO, THEN, ELSE, WHEN and OTHERWISE.
- `simula-continued-statement-offset' 3
- Extra indentation for lines not starting a statement or substatement,
- e.g. a nested FOR-loop. If value is a list, each line in a multiple-
- line continued statement will have the car of the list extra indentation
- with respect to the previous line of the statement.
- `simula-label-offset' -4711
- Offset of SIMULA label lines relative to usual indentation.
- `simula-if-indent' '(0 . 0)
- Extra indentation of THEN and ELSE with respect to the starting IF.
- Value is a cons cell, the car is extra THEN indentation and the cdr
- extra ELSE indentation. IF after ELSE is indented as the starting IF.
- `simula-inspect-indent' '(0 . 0)
- Extra indentation of WHEN and OTHERWISE with respect to the
- corresponding INSPECT. Value is a cons cell, the car is
- extra WHEN indentation and the cdr extra OTHERWISE indentation.
- `simula-electric-indent' nil
- If this variable is non-nil, `simula-indent-line'
- will check the previous line to see if it has to be reindented.
- `simula-abbrev-keyword' 'upcase
- Determine how SIMULA keywords will be expanded. Value is one of
- the symbols `upcase', `downcase', `capitalize', (as in) `abbrev-table',
- or nil if they should not be changed.
- `simula-abbrev-stdproc' 'abbrev-table
- Determine how standard SIMULA procedure and class names will be
- expanded. Value is one of the symbols `upcase', `downcase', `capitalize',
- (as in) `abbrev-table', or nil if they should not be changed.
-
-Turning on SIMULA mode calls the value of the variable simula-mode-hook
-with no arguments, if that value is non-nil.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new
-;;;;;; define-skeleton) "skeleton" "skeleton.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from skeleton.el
-
-(defvar skeleton-filter-function 'identity "\
-Function for transforming a skeleton proxy's aliases' variable value.")
-
-(autoload 'define-skeleton "skeleton" "\
-Define a user-configurable COMMAND that enters a statement skeleton.
-DOCUMENTATION is that of the command.
-SKELETON is as defined under `skeleton-insert'.
-
-\(fn COMMAND DOCUMENTATION &rest SKELETON)" nil t)
-
-(put 'define-skeleton 'doc-string-elt '2)
-
-(autoload 'skeleton-proxy-new "skeleton" "\
-Insert SKELETON.
-Prefix ARG allows wrapping around words or regions (see `skeleton-insert').
-If no ARG was given, but the region is visible, ARG defaults to -1 depending
-on `skeleton-autowrap'. An ARG of M-0 will prevent this just for once.
-This command can also be an abbrev expansion (3rd and 4th columns in
-\\[edit-abbrevs] buffer: \"\" command-name).
-
-Optional second argument STR may also be a string which will be the value
-of `str' whereas the skeleton's interactor is then ignored.
-
-\(fn SKELETON &optional STR ARG)" nil nil)
-
-(autoload 'skeleton-insert "skeleton" "\
-Insert the complex statement skeleton SKELETON describes very concisely.
-
-With optional second argument REGIONS, wrap first interesting point
-\(`_') in skeleton around next REGIONS words, if REGIONS is positive.
-If REGIONS is negative, wrap REGIONS preceding interregions into first
-REGIONS interesting positions (successive `_'s) in skeleton.
-
-An interregion is the stretch of text between two contiguous marked
-points. If you marked A B C [] (where [] is the cursor) in
-alphabetical order, the 3 interregions are simply the last 3 regions.
-But if you marked B A [] C, the interregions are B-A, A-[], []-C.
-
-The optional third argument STR, if specified, is the value for the
-variable `str' within the skeleton. When this is non-nil, the
-interactor gets ignored, and this should be a valid skeleton element.
-
-SKELETON is made up as (INTERACTOR ELEMENT ...). INTERACTOR may be nil if
-not needed, a prompt-string or an expression for complex read functions.
-
-If ELEMENT is a string or a character it gets inserted (see also
-`skeleton-transformation-function'). Other possibilities are:
-
- \\n go to next line and indent according to mode
- _ interesting point, interregion here
- - interesting point, no interregion interaction, overrides
- interesting point set by _
- > indent line (or interregion if > _) according to major mode
- @ add position to `skeleton-positions'
- & do next ELEMENT if previous moved point
- | do next ELEMENT if previous didn't move point
- -num delete num preceding characters (see `skeleton-untabify')
- resume: skipped, continue here if quit is signaled
- nil skipped
-
-After termination, point will be positioned at the last occurrence of -
-or at the first occurrence of _ or at the end of the inserted text.
-
-Further elements can be defined via `skeleton-further-elements'. ELEMENT may
-itself be a SKELETON with an INTERACTOR. The user is prompted repeatedly for
-different inputs. The SKELETON is processed as often as the user enters a
-non-empty string. \\[keyboard-quit] terminates skeleton insertion, but
-continues after `resume:' and positions at `_' if any. If INTERACTOR in such
-a subskeleton is a prompt-string which contains a \".. %s ..\" it is
-formatted with `skeleton-subprompt'. Such an INTERACTOR may also be a list of
-strings with the subskeleton being repeated once for each string.
-
-Quoted Lisp expressions are evaluated for their side-effects.
-Other Lisp expressions are evaluated and the value treated as above.
-Note that expressions may not return t since this implies an
-endless loop. Modes can define other symbols by locally setting them
-to any valid skeleton element. The following local variables are
-available:
-
- str first time: read a string according to INTERACTOR
- then: insert previously read string once more
- help help-form during interaction with the user or nil
- input initial input (string or cons with index) while reading str
- v1, v2 local variables for memorizing anything you want
-
-When done with skeleton, but before going back to `_'-point call
-`skeleton-end-hook' if that is non-nil.
-
-\(fn SKELETON &optional REGIONS STR)" nil nil)
-
-(autoload 'skeleton-pair-insert-maybe "skeleton" "\
-Insert the character you type ARG times.
-
-With no ARG, if `skeleton-pair' is non-nil, pairing can occur. If the region
-is visible the pair is wrapped around it depending on `skeleton-autowrap'.
-Else, if `skeleton-pair-on-word' is non-nil or we are not before or inside a
-word, and if `skeleton-pair-filter-function' returns nil, pairing is performed.
-Pairing is also prohibited if we are right after a quoting character
-such as backslash.
-
-If a match is found in `skeleton-pair-alist', that is inserted, else
-the defaults are used. These are (), [], {}, <> and `' for the
-symmetrical ones, and the same character twice for the others.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (smerge-start-session smerge-mode smerge-ediff)
-;;;;;; "smerge-mode" "vc/smerge-mode.el" (20707 18685 911514 0))
-;;; Generated autoloads from vc/smerge-mode.el
-
-(autoload 'smerge-ediff "smerge-mode" "\
-Invoke ediff to resolve the conflicts.
-NAME-MINE, NAME-OTHER, and NAME-BASE, if non-nil, are used for the
-buffer names.
-
-\(fn &optional NAME-MINE NAME-OTHER NAME-BASE)" t nil)
-
-(autoload 'smerge-mode "smerge-mode" "\
-Minor mode to simplify editing output from the diff3 program.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-\\{smerge-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'smerge-start-session "smerge-mode" "\
-Turn on `smerge-mode' and move point to first conflict marker.
-If no conflict maker is found, turn off `smerge-mode'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/smiley.el
-
-(autoload 'smiley-region "smiley" "\
-Replace in the region `smiley-regexp-alist' matches with corresponding images.
-A list of images is returned.
-
-\(fn START END)" t nil)
-
-(autoload 'smiley-buffer "smiley" "\
-Run `smiley-region' at the BUFFER, specified in the argument or
-interactively. If there's no argument, do it at the current buffer.
-
-\(fn &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail"
-;;;;;; "mail/smtpmail.el" (20707 18685 911514 0))
-;;; Generated autoloads from mail/smtpmail.el
-
-(autoload 'smtpmail-send-it "smtpmail" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'smtpmail-send-queued-mail "smtpmail" "\
-Send mail that was queued as a result of setting `smtpmail-queue-mail'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (snake) "snake" "play/snake.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from play/snake.el
-
-(autoload 'snake "snake" "\
-Play the Snake game.
-Move the snake around without colliding with its tail or with the border.
-
-Eating dots causes the snake to get longer.
-
-Snake mode keybindings:
- \\<snake-mode-map>
-\\[snake-start-game] Starts a new game of Snake
-\\[snake-end-game] Terminates the current game
-\\[snake-pause-game] Pauses (or resumes) the current game
-\\[snake-move-left] Makes the snake move left
-\\[snake-move-right] Makes the snake move right
-\\[snake-move-up] Makes the snake move up
-\\[snake-move-down] Makes the snake move down
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from net/snmp-mode.el
-
-(autoload 'snmp-mode "snmp-mode" "\
-Major mode for editing SNMP MIBs.
-Expression and list commands understand all C brackets.
-Tab indents for C code.
-Comments start with -- and end with newline or another --.
-Delete converts tabs to spaces as it moves back.
-\\{snmp-mode-map}
-Turning on snmp-mode runs the hooks in `snmp-common-mode-hook', then
-`snmp-mode-hook'.
-
-\(fn)" t nil)
-
-(autoload 'snmpv2-mode "snmp-mode" "\
-Major mode for editing SNMPv2 MIBs.
-Expression and list commands understand all C brackets.
-Tab indents for C code.
-Comments start with -- and end with newline or another --.
-Delete converts tabs to spaces as it moves back.
-\\{snmp-mode-map}
-Turning on snmp-mode runs the hooks in `snmp-common-mode-hook',
-then `snmpv2-mode-hook'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (sunrise-sunset) "solar" "calendar/solar.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from calendar/solar.el
-
-(autoload 'sunrise-sunset "solar" "\
-Local time of sunrise and sunset for today. Accurate to a few seconds.
-If called with an optional prefix argument ARG, prompt for date.
-If called with an optional double prefix argument, prompt for
-longitude, latitude, time zone, and date, and always use standard time.
-
-This function is suitable for execution in an init file.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from play/solitaire.el
-
-(autoload 'solitaire "solitaire" "\
-Play Solitaire.
-
-To play Solitaire, type \\[solitaire].
-\\<solitaire-mode-map>
-Move around the board using the cursor keys.
-Move stones using \\[solitaire-move] followed by a direction key.
-Undo moves using \\[solitaire-undo].
-Check for possible moves using \\[solitaire-do-check].
-\(The variable `solitaire-auto-eval' controls whether to automatically
-check after each move or undo.)
-
-What is Solitaire?
-
-I don't know who invented this game, but it seems to be rather old and
-its origin seems to be northern Africa. Here's how to play:
-Initially, the board will look similar to this:
-
- Le Solitaire
- ============
-
- o o o
-
- o o o
-
- o o o o o o o
-
- o o o . o o o
-
- o o o o o o o
-
- o o o
-
- o o o
-
-Let's call the o's stones and the .'s holes. One stone fits into one
-hole. As you can see, all holes but one are occupied by stones. The
-aim of the game is to get rid of all but one stone, leaving that last
-one in the middle of the board if you're cool.
-
-A stone can be moved if there is another stone next to it, and a hole
-after that one. Thus there must be three fields in a row, either
-horizontally or vertically, up, down, left or right, which look like
-this: o o .
-
-Then the first stone is moved to the hole, jumping over the second,
-which therefore is taken away. The above thus `evaluates' to: . . o
-
-That's all. Here's the board after two moves:
-
- o o o
-
- . o o
-
- o o . o o o o
-
- o . o o o o o
-
- o o o o o o o
-
- o o o
-
- o o o
-
-Pick your favorite shortcuts:
-
-\\{solitaire-mode-map}
-
-\(fn ARG)" t nil)
-
-;;;***
-\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" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from sort.el
-(put 'sort-fold-case 'safe-local-variable 'booleanp)
-
-(autoload 'sort-subr "sort" "\
-General text sorting routine to divide buffer into records and sort them.
-
-We divide the accessible portion of the buffer into disjoint pieces
-called sort records. A portion of each sort record (perhaps all of
-it) is designated as the sort key. The records are rearranged in the
-buffer in order by their sort keys. The records may or may not be
-contiguous.
-
-Usually the records are rearranged in order of ascending sort key.
-If REVERSE is non-nil, they are rearranged in order of descending sort key.
-The variable `sort-fold-case' determines whether alphabetic case affects
-the sort order.
-
-The next four arguments are functions to be called to move point
-across a sort record. They will be called many times from within sort-subr.
-
-NEXTRECFUN is called with point at the end of the previous record.
-It moves point to the start of the next record.
-It should move point to the end of the buffer if there are no more records.
-The first record is assumed to start at the position of point when sort-subr
-is called.
-
-ENDRECFUN is called with point within the record.
-It should move point to the end of the record.
-
-STARTKEYFUN moves from the start of the record to the start of the key.
-It may return either a non-nil value to be used as the key, or
-else the key is the substring between the values of point after
-STARTKEYFUN and ENDKEYFUN are called. If STARTKEYFUN is nil, the key
-starts at the beginning of the record.
-
-ENDKEYFUN moves from the start of the sort key to the end of the sort key.
-ENDKEYFUN may be nil if STARTKEYFUN returns a value or if it would be the
-same as ENDRECFUN.
-
-PREDICATE, if non-nil, is the predicate function for comparing
-keys; it is called with two arguments, the keys to compare, and
-should return non-nil if the first key should sort before the
-second key. If PREDICATE is nil, comparison is done with `<' if
-the keys are numbers, with `compare-buffer-substrings' if the
-keys are cons cells (the car and cdr of each cons cell are taken
-as start and end positions), and with `string<' otherwise.
-
-\(fn REVERSE NEXTRECFUN ENDRECFUN &optional STARTKEYFUN ENDKEYFUN PREDICATE)" nil nil)
-
-(autoload 'sort-lines "sort" "\
-Sort lines in region alphabetically; argument means descending order.
-Called from a program, there are three arguments:
-REVERSE (non-nil means reverse order), BEG and END (region to sort).
-The variable `sort-fold-case' determines whether alphabetic case affects
-the sort order.
-
-\(fn REVERSE BEG END)" t nil)
-
-(autoload 'sort-paragraphs "sort" "\
-Sort paragraphs in region alphabetically; argument means descending order.
-Called from a program, there are three arguments:
-REVERSE (non-nil means reverse order), BEG and END (region to sort).
-The variable `sort-fold-case' determines whether alphabetic case affects
-the sort order.
-
-\(fn REVERSE BEG END)" t nil)
-
-(autoload 'sort-pages "sort" "\
-Sort pages in region alphabetically; argument means descending order.
-Called from a program, there are three arguments:
-REVERSE (non-nil means reverse order), BEG and END (region to sort).
-The variable `sort-fold-case' determines whether alphabetic case affects
-the sort order.
-
-\(fn REVERSE BEG END)" t nil)
-(put 'sort-numeric-base 'safe-local-variable 'integerp)
-
-(autoload 'sort-numeric-fields "sort" "\
-Sort lines in region numerically by the ARGth field of each line.
-Fields are separated by whitespace and numbered from 1 up.
-Specified field must contain a number in each line of the region,
-which may begin with \"0x\" or \"0\" for hexadecimal and octal values.
-Otherwise, the number is interpreted according to sort-numeric-base.
-With a negative arg, sorts by the ARGth field counted from the right.
-Called from a program, there are three arguments:
-FIELD, BEG and END. BEG and END specify region to sort.
-
-\(fn FIELD BEG END)" t nil)
-
-(autoload 'sort-fields "sort" "\
-Sort lines in region lexicographically by the ARGth field of each line.
-Fields are separated by whitespace and numbered from 1 up.
-With a negative arg, sorts by the ARGth field counted from the right.
-Called from a program, there are three arguments:
-FIELD, BEG and END. BEG and END specify region to sort.
-The variable `sort-fold-case' determines whether alphabetic case affects
-the sort order.
-
-\(fn FIELD BEG END)" t nil)
-
-(autoload 'sort-regexp-fields "sort" "\
-Sort the text in the region region lexicographically.
-If called interactively, prompt for two regular expressions,
-RECORD-REGEXP and KEY-REGEXP.
-
-RECORD-REGEXP specifies the textual units to be sorted.
- For example, to sort lines, RECORD-REGEXP would be \"^.*$\".
-
-KEY-REGEXP specifies the part of each record (i.e. each match for
- RECORD-REGEXP) to be used for sorting.
- If it is \"\\\\digit\", use the digit'th \"\\\\(...\\\\)\"
- match field specified by RECORD-REGEXP.
- If it is \"\\\\&\", use the whole record.
- Otherwise, KEY-REGEXP should be a regular expression with which
- to search within the record. If a match for KEY-REGEXP is not
- found within a record, that record is ignored.
-
-With a negative prefix arg, sort in reverse order.
-
-The variable `sort-fold-case' determines whether alphabetic case affects
-the sort order.
-
-For example: to sort lines in the region by the first word on each line
- starting with the letter \"f\",
- RECORD-REGEXP would be \"^.*$\" and KEY would be \"\\\\=\\<f\\\\w*\\\\>\"
-
-\(fn REVERSE RECORD-REGEXP KEY-REGEXP BEG END)" t nil)
-
-(autoload 'sort-columns "sort" "\
-Sort lines in region alphabetically by a certain range of columns.
-For the purpose of this command, the region BEG...END includes
-the entire line that point is in and the entire line the mark is in.
-The column positions of point and mark bound the range of columns to sort on.
-A prefix argument means sort into REVERSE order.
-The variable `sort-fold-case' determines whether alphabetic case affects
-the sort order.
-
-Note that `sort-columns' rejects text that contains tabs,
-because tabs could be split across the specified columns
-and it doesn't know how to handle that. Also, when possible,
-it uses the `sort' utility program, which doesn't understand tabs.
-Use \\[untabify] to convert tabs to spaces before sorting.
-
-\(fn REVERSE &optional BEG END)" t nil)
-
-(autoload 'reverse-region "sort" "\
-Reverse the order of lines in a region.
-From a program takes two point or marker arguments, BEG and END.
-
-\(fn BEG END)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from gnus/spam.el
-
-(autoload 'spam-initialize "spam" "\
-Install the spam.el hooks and do other initialization.
-When SYMBOLS is given, set those variables to t. This is so you
-can call `spam-initialize' before you set spam-use-* variables on
-explicitly, and matters only if you need the extra headers
-installed through `spam-necessary-extra-headers'.
-
-\(fn &rest SYMBOLS)" t nil)
-
-;;;***
-\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" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/spam-report.el
-
-(autoload 'spam-report-process-queue "spam-report" "\
-Report all queued requests from `spam-report-requests-file'.
-
-If FILE is given, use it instead of `spam-report-requests-file'.
-If KEEP is t, leave old requests in the file. If KEEP is the
-symbol `ask', query before flushing the queue file.
-
-\(fn &optional FILE KEEP)" t nil)
-
-(autoload 'spam-report-url-ping-mm-url "spam-report" "\
-Ping a host through HTTP, addressing a specific GET resource. Use
-the external program specified in `mm-url-program' to connect to
-server.
-
-\(fn HOST REPORT)" nil nil)
-
-(autoload 'spam-report-url-to-file "spam-report" "\
-Collect spam report requests in `spam-report-requests-file'.
-Customize `spam-report-url-ping-function' to use this function.
-
-\(fn HOST REPORT)" nil nil)
-
-(autoload 'spam-report-agentize "spam-report" "\
-Add spam-report support to the Agent.
-Spam reports will be queued with \\[spam-report-url-to-file] when
-the Agent is unplugged, and will be submitted in a batch when the
-Agent is plugged.
-
-\(fn)" t nil)
-
-(autoload 'spam-report-deagentize "spam-report" "\
-Remove spam-report support from the Agent.
-Spam reports will be queued with the method used when
-\\[spam-report-agentize] was run.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar"
-;;;;;; "speedbar.el" (20707 18685 911514 0))
-;;; Generated autoloads from speedbar.el
-
-(defalias 'speedbar 'speedbar-frame-mode)
-
-(autoload 'speedbar-frame-mode "speedbar" "\
-Enable or disable speedbar. Positive ARG means turn on, negative turn off.
-A nil ARG means toggle. Once the speedbar frame is activated, a buffer in
-`speedbar-mode' will be displayed. Currently, only one speedbar is
-supported at a time.
-`speedbar-before-popup-hook' is called before popping up the speedbar frame.
-`speedbar-before-delete-hook' is called before the frame is deleted.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'speedbar-get-focus "speedbar" "\
-Change frame focus to or from the speedbar frame.
-If the selected frame is not speedbar, then speedbar frame is
-selected. If the speedbar frame is active, then select the attached frame.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from play/spook.el
-
-(autoload 'spook "spook" "\
-Adds that special touch of class to your outgoing mail.
-
-\(fn)" t nil)
-
-(autoload 'snarf-spooks "spook" "\
-Return a vector containing the lines from `spook-phrases-file'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (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-connect
-;;;;;; sql-mode sql-help sql-add-product-keywords) "sql" "progmodes/sql.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/sql.el
-
-(autoload 'sql-add-product-keywords "sql" "\
-Add highlighting KEYWORDS for SQL PRODUCT.
-
-PRODUCT should be a symbol, the name of a SQL product, such as
-`oracle'. KEYWORDS should be a list; see the variable
-`font-lock-keywords'. By default they are added at the beginning
-of the current highlighting list. If optional argument APPEND is
-`set', they are used to replace the current highlighting list.
-If APPEND is any other non-nil value, they are added at the end
-of the current highlighting list.
-
-For example:
-
- (sql-add-product-keywords 'ms
- '((\"\\\\b\\\\w+_t\\\\b\" . font-lock-type-face)))
-
-adds a fontification pattern to fontify identifiers ending in
-`_t' as data types.
-
-\(fn PRODUCT KEYWORDS &optional APPEND)" nil nil)
-
-(autoload 'sql-help "sql" "\
-Show short help for the SQL modes.
-
-Use an entry function to open an interactive SQL buffer. This buffer is
-usually named `*SQL*'. The name of the major mode is SQLi.
-
-Use the following commands to start a specific SQL interpreter:
-
- \\\\FREE
-
-Other non-free SQL implementations are also supported:
-
- \\\\NONFREE
-
-But we urge you to choose a free implementation instead of these.
-
-You can also use \\[sql-product-interactive] to invoke the
-interpreter for the current `sql-product'.
-
-Once you have the SQLi buffer, you can enter SQL statements in the
-buffer. The output generated is appended to the buffer and a new prompt
-is generated. See the In/Out menu in the SQLi buffer for some functions
-that help you navigate through the buffer, the input history, etc.
-
-If you have a really complex SQL statement or if you are writing a
-procedure, you can do this in a separate buffer. Put the new buffer in
-`sql-mode' by calling \\[sql-mode]. The name of this buffer can be
-anything. The name of the major mode is SQL.
-
-In this SQL buffer (SQL mode), you can send the region or the entire
-buffer to the interactive SQL buffer (SQLi mode). The results are
-appended to the SQLi buffer without disturbing your SQL buffer.
-
-\(fn)" t nil)
-
-(autoload 'sql-mode "sql" "\
-Major mode to edit SQL.
-
-You can send SQL statements to the SQLi buffer using
-\\[sql-send-region]. Such a buffer must exist before you can do this.
-See `sql-help' on how to create SQLi buffers.
-
-\\{sql-mode-map}
-Customization: Entry to this mode runs the `sql-mode-hook'.
-
-When you put a buffer in SQL mode, the buffer stores the last SQLi
-buffer created as its destination in the variable `sql-buffer'. This
-will be the buffer \\[sql-send-region] sends the region to. If this
-SQLi buffer is killed, \\[sql-send-region] is no longer able to
-determine where the strings should be sent to. You can set the
-value of `sql-buffer' using \\[sql-set-sqli-buffer].
-
-For information on how to create multiple SQLi buffers, see
-`sql-interactive-mode'.
-
-Note that SQL doesn't have an escape character unless you specify
-one. If you specify backslash as escape character in SQL, you
-must tell Emacs. Here's how to do that in your init file:
-
-\(add-hook 'sql-mode-hook
- (lambda ()
- (modify-syntax-entry ?\\\\ \".\" sql-mode-syntax-table)))
-
-\(fn)" t nil)
-
-(autoload 'sql-connect "sql" "\
-Connect to an interactive session using CONNECTION settings.
-
-See `sql-connection-alist' to see how to define connections and
-their settings.
-
-The user will not be prompted for any login parameters if a value
-is specified in the connection settings.
-
-\(fn CONNECTION &optional NEW-NAME)" t nil)
-
-(autoload 'sql-product-interactive "sql" "\
-Run PRODUCT interpreter as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer `*SQL*'.
-
-To specify the SQL product, prefix the call with
-\\[universal-argument]. To set the buffer name as well, prefix
-the call to \\[sql-product-interactive] with
-\\[universal-argument] \\[universal-argument].
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional PRODUCT NEW-NAME)" t nil)
-
-(autoload 'sql-oracle "sql" "\
-Run sqlplus by Oracle as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-oracle-program'. Login uses
-the variables `sql-user', `sql-password', and `sql-database' as
-defaults, if set. Additional command line parameters can be stored in
-the list `sql-oracle-options'.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-oracle]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-oracle]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-sybase "sql" "\
-Run isql by Sybase as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-sybase-program'. Login uses
-the variables `sql-server', `sql-user', `sql-password', and
-`sql-database' as defaults, if set. Additional command line parameters
-can be stored in the list `sql-sybase-options'.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-sybase]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-sybase]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-informix "sql" "\
-Run dbaccess by Informix as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-informix-program'. Login uses
-the variable `sql-database' as default, if set.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-informix]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-informix]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-sqlite "sql" "\
-Run sqlite as an inferior process.
-
-SQLite is free software.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-sqlite-program'. Login uses
-the variables `sql-user', `sql-password', `sql-database', and
-`sql-server' as defaults, if set. Additional command line parameters
-can be stored in the list `sql-sqlite-options'.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-sqlite]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-sqlite]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-mysql "sql" "\
-Run mysql by TcX as an inferior process.
-
-Mysql versions 3.23 and up are free software.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-mysql-program'. Login uses
-the variables `sql-user', `sql-password', `sql-database', and
-`sql-server' as defaults, if set. Additional command line parameters
-can be stored in the list `sql-mysql-options'.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-mysql]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-mysql]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-solid "sql" "\
-Run solsql by Solid as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-solid-program'. Login uses
-the variables `sql-user', `sql-password', and `sql-server' as
-defaults, if set.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-solid]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-solid]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-ingres "sql" "\
-Run sql by Ingres as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-ingres-program'. Login uses
-the variable `sql-database' as default, if set.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-ingres]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-ingres]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-ms "sql" "\
-Run osql by Microsoft as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-ms-program'. Login uses the
-variables `sql-user', `sql-password', `sql-database', and `sql-server'
-as defaults, if set. Additional command line parameters can be stored
-in the list `sql-ms-options'.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-ms]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-ms]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-postgres "sql" "\
-Run psql by Postgres as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-postgres-program'. Login uses
-the variables `sql-database' and `sql-server' as default, if set.
-Additional command line parameters can be stored in the list
-`sql-postgres-options'.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-postgres]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-postgres]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'. If your output lines end with ^M,
-your might try undecided-dos as a coding system. If this doesn't help,
-Try to set `comint-output-filter-functions' like this:
-
-\(setq comint-output-filter-functions (append comint-output-filter-functions
- '(comint-strip-ctrl-m)))
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-interbase "sql" "\
-Run isql by Interbase as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-interbase-program'. Login
-uses the variables `sql-user', `sql-password', and `sql-database' as
-defaults, if set.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-interbase]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-interbase]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-db2 "sql" "\
-Run db2 by IBM as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-db2-program'. There is not
-automatic login.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-If you use \\[sql-accumulate-and-indent] to send multiline commands to
-db2, newlines will be escaped if necessary. If you don't want that, set
-`comint-input-sender' back to `comint-simple-send' by writing an after
-advice. See the elisp manual for more information.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-db2]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-To specify a coding system for converting non-ASCII characters
-in the input and output to the process, use \\[universal-coding-system-argument]
-before \\[sql-db2]. You can also specify this with \\[set-buffer-process-coding-system]
-in the SQL buffer, after you start the process.
-The default comes from `process-coding-system-alist' and
-`default-process-coding-system'.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload 'sql-linter "sql" "\
-Run inl by RELEX as an inferior process.
-
-If buffer `*SQL*' exists but no process is running, make a new process.
-If buffer exists and a process is running, just switch to buffer
-`*SQL*'.
-
-Interpreter used comes from variable `sql-linter-program' - usually `inl'.
-Login uses the variables `sql-user', `sql-password', `sql-database' and
-`sql-server' as defaults, if set. Additional command line parameters
-can be stored in the list `sql-linter-options'. Run inl -h to get help on
-parameters.
-
-`sql-database' is used to set the LINTER_MBX environment variable for
-local connections, `sql-server' refers to the server name from the
-`nodetab' file for the network connection (dbc_tcp or friends must run
-for this to work). If `sql-password' is an empty string, inl will use
-an empty password.
-
-The buffer is put in SQL interactive mode, giving commands for sending
-input. See `sql-interactive-mode'.
-
-To set the buffer name directly, use \\[universal-argument]
-before \\[sql-linter]. Once session has started,
-\\[sql-rename-buffer] can be called separately to rename the
-buffer.
-
-\(Type \\[describe-mode] in the SQL buffer for a list of commands.)
-
-\(fn &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (srecode-template-mode) "srecode/srt-mode" "cedet/srecode/srt-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from cedet/srecode/srt-mode.el
-
-(autoload 'srecode-template-mode "srecode/srt-mode" "\
-Major-mode for writing SRecode macros.
-
-\(fn)" t nil)
-
-(defalias 'srt-mode 'srecode-template-mode)
-
-;;;***
-\f
-;;;### (autoloads (starttls-open-stream) "starttls" "gnus/starttls.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from gnus/starttls.el
-
-(autoload 'starttls-open-stream "starttls" "\
-Open a TLS connection for a port to a host.
-Returns a subprocess object to represent the connection.
-Input and output work as for subprocesses; `delete-process' closes it.
-Args are NAME BUFFER HOST PORT.
-NAME is name for process. It is modified if necessary to make it unique.
-BUFFER is the buffer (or `buffer-name') to associate with the process.
- Process output goes at end of that buffer, unless you specify
- an output stream or filter function to handle the output.
- BUFFER may be also nil, meaning that this process is not associated
- with any buffer
-Third arg is name of the host to connect to, or its IP address.
-Fourth arg PORT is an integer specifying a port to connect to.
-If `starttls-use-gnutls' is nil, this may also be a service name, but
-GnuTLS requires a port number.
-
-\(fn NAME BUFFER HOST PORT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (strokes-compose-complex-stroke strokes-decode-buffer
-;;;;;; 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" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from strokes.el
-
-(autoload 'strokes-global-set-stroke "strokes" "\
-Interactively give STROKE the global binding as COMMAND.
-Operated just like `global-set-key', except for strokes.
-COMMAND is a symbol naming an interactively-callable function. STROKE
-is a list of sampled positions on the stroke grid as described in the
-documentation for the `strokes-define-stroke' function.
-
-See also `strokes-global-set-stroke-string'.
-
-\(fn STROKE COMMAND)" t nil)
-
-(autoload 'strokes-read-stroke "strokes" "\
-Read a simple stroke (interactively) and return the stroke.
-Optional PROMPT in minibuffer displays before and during stroke reading.
-This function will display the stroke interactively as it is being
-entered in the strokes buffer if the variable
-`strokes-use-strokes-buffer' is non-nil.
-Optional EVENT is acceptable as the starting event of the stroke.
-
-\(fn &optional PROMPT EVENT)" nil nil)
-
-(autoload 'strokes-read-complex-stroke "strokes" "\
-Read a complex stroke (interactively) and return the stroke.
-Optional PROMPT in minibuffer displays before and during stroke reading.
-Note that a complex stroke allows the user to pen-up and pen-down. This
-is implemented by allowing the user to paint with button 1 or button 2 and
-then complete the stroke with button 3.
-Optional EVENT is acceptable as the starting event of the stroke.
-
-\(fn &optional PROMPT EVENT)" nil nil)
-
-(autoload 'strokes-do-stroke "strokes" "\
-Read a simple stroke from the user and then execute its command.
-This must be bound to a mouse event.
-
-\(fn EVENT)" t nil)
-
-(autoload 'strokes-do-complex-stroke "strokes" "\
-Read a complex stroke from the user and then execute its command.
-This must be bound to a mouse event.
-
-\(fn EVENT)" t nil)
-
-(autoload 'strokes-describe-stroke "strokes" "\
-Displays the command which STROKE maps to, reading STROKE interactively.
-
-\(fn STROKE)" t nil)
-
-(autoload 'strokes-help "strokes" "\
-Get instruction on using the Strokes package.
-
-\(fn)" t nil)
-
-(autoload 'strokes-load-user-strokes "strokes" "\
-Load user-defined strokes from file named by `strokes-file'.
-
-\(fn)" t nil)
-
-(autoload 'strokes-list-strokes "strokes" "\
-Pop up a buffer containing an alphabetical listing of strokes in STROKES-MAP.
-With CHRONOLOGICAL prefix arg (\\[universal-argument]) list strokes
-chronologically by command name.
-If STROKES-MAP is not given, `strokes-global-map' will be used instead.
-
-\(fn &optional CHRONOLOGICAL STROKES-MAP)" t nil)
-
-(defvar strokes-mode nil "\
-Non-nil if Strokes mode is enabled.
-See the command `strokes-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `strokes-mode'.")
-
-(custom-autoload 'strokes-mode "strokes" nil)
-
-(autoload 'strokes-mode "strokes" "\
-Toggle Strokes mode, a global minor mode.
-With a prefix argument ARG, enable Strokes mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-\\<strokes-mode-map>
-Strokes are pictographic mouse gestures which invoke commands.
-Strokes are invoked with \\[strokes-do-stroke]. You can define
-new strokes with \\[strokes-global-set-stroke]. See also
-\\[strokes-do-complex-stroke] for `complex' strokes.
-
-To use strokes for pictographic editing, such as Chinese/Japanese, use
-\\[strokes-compose-complex-stroke], which draws strokes and inserts them.
-Encode/decode your strokes with \\[strokes-encode-buffer],
-\\[strokes-decode-buffer].
-
-\\{strokes-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'strokes-decode-buffer "strokes" "\
-Decode stroke strings in BUFFER and display their corresponding glyphs.
-Optional BUFFER defaults to the current buffer.
-Optional FORCE non-nil will ignore the buffer's read-only status.
-
-\(fn &optional BUFFER FORCE)" t nil)
-
-(autoload 'strokes-compose-complex-stroke "strokes" "\
-Read a complex stroke and insert its glyph into the current buffer.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (studlify-buffer studlify-word studlify-region)
-;;;;;; "studly" "play/studly.el" (20360 54279 565993 0))
-;;; Generated autoloads from play/studly.el
-
-(autoload 'studlify-region "studly" "\
-Studlify-case the region.
-
-\(fn BEGIN END)" t nil)
-
-(autoload 'studlify-word "studly" "\
-Studlify-case the current word, or COUNT words if given an argument.
-
-\(fn COUNT)" t nil)
-
-(autoload 'studlify-buffer "studly" "\
-Studlify-case the current buffer.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (global-subword-mode subword-mode) "subword" "progmodes/subword.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/subword.el
-
-(autoload 'subword-mode "subword" "\
-Toggle subword movement and editing (Subword mode).
-With a prefix argument ARG, enable Subword mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Subword mode is a buffer-local minor mode. Enabling it remaps
-word-based editing commands to subword-based commands that handle
-symbols with mixed uppercase and lowercase letters,
-e.g. \"GtkWidget\", \"EmacsFrameClass\", \"NSGraphicsContext\".
-
-Here we call these mixed case symbols `nomenclatures'. Each
-capitalized (or completely uppercase) part of a nomenclature is
-called a `subword'. Here are some examples:
-
- Nomenclature Subwords
- ===========================================================
- GtkWindow => \"Gtk\" and \"Window\"
- EmacsFrameClass => \"Emacs\", \"Frame\" and \"Class\"
- NSGraphicsContext => \"NS\", \"Graphics\" and \"Context\"
-
-The subword oriented commands activated in this minor mode recognize
-subwords in a nomenclature to move between subwords and to edit them
-as words.
-
-\\{subword-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-subword-mode nil "\
-Non-nil if Global-Subword mode is enabled.
-See the command `global-subword-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-subword-mode'.")
-
-(custom-autoload 'global-subword-mode "subword" nil)
-
-(autoload 'global-subword-mode "subword" "\
-Toggle Subword mode in all buffers.
-With prefix ARG, enable Global-Subword mode if ARG is positive;
-otherwise, disable it. If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Subword mode is enabled in all buffers where
-`(lambda nil (subword-mode 1))' would do it.
-See `subword-mode' for more information on Subword mode.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mail/supercite.el
-
-(autoload 'sc-cite-original "supercite" "\
-Workhorse citing function which performs the initial citation.
-This is callable from the various mail and news readers' reply
-function according to the agreed upon standard. See the associated
-info node `(SC)Top' for more details.
-`sc-cite-original' does not do any yanking of the
-original message but it does require a few things:
-
- 1) The reply buffer is the current buffer.
-
- 2) The original message has been yanked and inserted into the
- reply buffer.
-
- 3) Verbose mail headers from the original message have been
- inserted into the reply buffer directly before the text of the
- original message.
-
- 4) Point is at the beginning of the verbose headers.
-
- 5) Mark is at the end of the body of text to be cited.
-
-The region need not be active (and typically isn't when this
-function is called). Also, the hook `sc-pre-hook' is run before,
-and `sc-post-hook' is run after the guts of this function.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (gpm-mouse-mode) "t-mouse" "t-mouse.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from t-mouse.el
-
-(define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1")
-
-(defvar gpm-mouse-mode t "\
-Non-nil if Gpm-Mouse mode is enabled.
-See the command `gpm-mouse-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `gpm-mouse-mode'.")
-
-(custom-autoload 'gpm-mouse-mode "t-mouse" nil)
-
-(autoload 'gpm-mouse-mode "t-mouse" "\
-Toggle mouse support in GNU/Linux consoles (GPM Mouse mode).
-With a prefix argument ARG, enable GPM Mouse mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-This allows the use of the mouse when operating on a GNU/Linux console,
-in the same way as you can use the mouse under X11.
-It relies on the `gpm' daemon being activated.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from tabify.el
-
-(autoload 'untabify "tabify" "\
-Convert all tabs in region to multiple spaces, preserving columns.
-Called non-interactively, the region is specified by arguments
-START and END, rather than by the position of point and mark.
-The variable `tab-width' controls the spacing of tab stops.
-
-\(fn START END)" t nil)
-
-(autoload 'tabify "tabify" "\
-Convert multiple spaces in region to tabs when possible.
-A group of spaces is partially replaced by tabs
-when this can be done without changing the column they end at.
-Called non-interactively, the region is specified by arguments
-START and END, rather than by the position of point and mark.
-The variable `tab-width' controls the spacing of tab stops.
-
-\(fn START END)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (table-release table-capture table-delete-column
-;;;;;; table-delete-row table-insert-sequence table-generate-source
-;;;;;; table-query-dimension table-fixed-width-mode table-justify-column
-;;;;;; table-justify-row table-justify-cell table-justify table-split-cell
-;;;;;; table-split-cell-horizontally table-split-cell-vertically
-;;;;;; table-span-cell table-backward-cell table-forward-cell table-narrow-cell
-;;;;;; table-widen-cell table-shorten-cell table-heighten-cell table-unrecognize-cell
-;;;;;; table-recognize-cell table-unrecognize-table table-recognize-table
-;;;;;; table-unrecognize-region table-recognize-region table-unrecognize
-;;;;;; 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" (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/table.el
-
-(defvar table-cell-map-hook nil "\
-Normal hooks run when finishing construction of `table-cell-map'.
-User can modify `table-cell-map' by adding custom functions here.")
-
-(custom-autoload 'table-cell-map-hook "table" t)
-
-(defvar table-load-hook nil "\
-List of functions to be called after the table is first loaded.")
-
-(custom-autoload 'table-load-hook "table" t)
-
-(defvar table-point-entered-cell-hook nil "\
-List of functions to be called after point entered a table cell.")
-
-(custom-autoload 'table-point-entered-cell-hook "table" t)
-
-(defvar table-point-left-cell-hook nil "\
-List of functions to be called after point left a table cell.")
-
-(custom-autoload 'table-point-left-cell-hook "table" t)
-
-(autoload 'table-insert "table" "\
-Insert an editable text table.
-Insert a table of specified number of COLUMNS and ROWS. Optional
-parameter CELL-WIDTH and CELL-HEIGHT can specify the size of each
-cell. The cell size is uniform across the table if the specified size
-is a number. They can be a list of numbers to specify different size
-for each cell. When called interactively, the list of number is
-entered by simply listing all the numbers with space characters
-delimiting them.
-
-Examples:
-
-\\[table-insert] inserts a table at the current point location.
-
-Suppose we have the following situation where `-!-' indicates the
-location of point.
-
- -!-
-
-Type \\[table-insert] and hit ENTER key. As it asks table
-specification, provide 3 for number of columns, 1 for number of rows,
-5 for cell width and 1 for cell height. Now you shall see the next
-table and the point is automatically moved to the beginning of the
-first cell.
-
- +-----+-----+-----+
- |-!- | | |
- +-----+-----+-----+
-
-Inside a table cell, there are special key bindings. \\<table-cell-map>
-
-M-9 \\[table-widen-cell] (or \\[universal-argument] 9 \\[table-widen-cell]) widens the first cell by 9 character
-width, which results as
-
- +--------------+-----+-----+
- |-!- | | |
- +--------------+-----+-----+
-
-Type TAB \\[table-widen-cell] then type TAB M-2 M-7 \\[table-widen-cell] (or \\[universal-argument] 2 7 \\[table-widen-cell]). Typing
-TAB moves the point forward by a cell. The result now looks like this:
-
- +--------------+------+--------------------------------+
- | | |-!- |
- +--------------+------+--------------------------------+
-
-If you knew each width of the columns prior to the table creation,
-what you could have done better was to have had given the complete
-width information to `table-insert'.
-
-Cell width(s): 14 6 32
-
-instead of
-
-Cell width(s): 5
-
-This would have eliminated the previously mentioned width adjustment
-work all together.
-
-If the point is in the last cell type S-TAB S-TAB to move it to the
-first cell. Now type \\[table-heighten-cell] which heighten the row by a line.
-
- +--------------+------+--------------------------------+
- |-!- | | |
- | | | |
- +--------------+------+--------------------------------+
-
-Type \\[table-insert-row-column] and tell it to insert a row.
-
- +--------------+------+--------------------------------+
- |-!- | | |
- | | | |
- +--------------+------+--------------------------------+
- | | | |
- | | | |
- +--------------+------+--------------------------------+
-
-Move the point under the table as shown below.
-
- +--------------+------+--------------------------------+
- | | | |
- | | | |
- +--------------+------+--------------------------------+
- | | | |
- | | | |
- +--------------+------+--------------------------------+
- -!-
-
-Type M-x table-insert-row instead of \\[table-insert-row-column]. \\[table-insert-row-column] does not work
-when the point is outside of the table. This insertion at
-outside of the table effectively appends a row at the end.
-
- +--------------+------+--------------------------------+
- | | | |
- | | | |
- +--------------+------+--------------------------------+
- | | | |
- | | | |
- +--------------+------+--------------------------------+
- |-!- | | |
- | | | |
- +--------------+------+--------------------------------+
-
-Text editing inside the table cell produces reasonably expected
-results.
-
- +--------------+------+--------------------------------+
- | | | |
- | | | |
- +--------------+------+--------------------------------+
- | | |Text editing inside the table |
- | | |cell produces reasonably |
- | | |expected results.-!- |
- +--------------+------+--------------------------------+
- | | | |
- | | | |
- +--------------+------+--------------------------------+
-
-Inside a table cell has a special keymap.
-
-\\{table-cell-map}
-
-\(fn COLUMNS ROWS &optional CELL-WIDTH CELL-HEIGHT)" t nil)
-
-(autoload 'table-insert-row "table" "\
-Insert N table row(s).
-When point is in a table the newly inserted row(s) are placed above
-the current row. When point is outside of the table it must be below
-the table within the table width range, then the newly created row(s)
-are appended at the bottom of the table.
-
-\(fn N)" t nil)
-
-(autoload 'table-insert-column "table" "\
-Insert N table column(s).
-When point is in a table the newly inserted column(s) are placed left
-of the current column. When point is outside of the table it must be
-right side of the table within the table height range, then the newly
-created column(s) are appended at the right of the table.
-
-\(fn N)" t nil)
-
-(autoload 'table-insert-row-column "table" "\
-Insert row(s) or column(s).
-See `table-insert-row' and `table-insert-column'.
-
-\(fn ROW-COLUMN N)" t nil)
-
-(autoload 'table-recognize "table" "\
-Recognize all tables within the current buffer and activate them.
-Scans the entire buffer and recognizes valid table cells. If the
-optional numeric prefix argument ARG is negative the tables in the
-buffer become inactive, meaning the tables become plain text and loses
-all the table specific features.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'table-unrecognize "table" "\
-
-
-\(fn)" t nil)
-
-(autoload 'table-recognize-region "table" "\
-Recognize all tables within region.
-BEG and END specify the region to work on. If the optional numeric
-prefix argument ARG is negative the tables in the region become
-inactive, meaning the tables become plain text and lose all the table
-specific features.
-
-\(fn BEG END &optional ARG)" t nil)
-
-(autoload 'table-unrecognize-region "table" "\
-
-
-\(fn BEG END)" t nil)
-
-(autoload 'table-recognize-table "table" "\
-Recognize a table at point.
-If the optional numeric prefix argument ARG is negative the table
-becomes inactive, meaning the table becomes plain text and loses all
-the table specific features.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'table-unrecognize-table "table" "\
-
-
-\(fn)" t nil)
-
-(autoload 'table-recognize-cell "table" "\
-Recognize a table cell that contains current point.
-Probe the cell dimension and prepare the cell information. The
-optional two arguments FORCE and NO-COPY are for internal use only and
-must not be specified. When the optional numeric prefix argument ARG
-is negative the cell becomes inactive, meaning that the cell becomes
-plain text and loses all the table specific features.
-
-\(fn &optional FORCE NO-COPY ARG)" t nil)
-
-(autoload 'table-unrecognize-cell "table" "\
-
-
-\(fn)" t nil)
-
-(autoload 'table-heighten-cell "table" "\
-Heighten the current cell by N lines by expanding the cell vertically.
-Heightening is done by adding blank lines at the bottom of the current
-cell. Other cells aligned horizontally with the current one are also
-heightened in order to keep the rectangular table structure. The
-optional argument NO-COPY is internal use only and must not be
-specified.
-
-\(fn N &optional NO-COPY NO-UPDATE)" t nil)
-
-(autoload 'table-shorten-cell "table" "\
-Shorten the current cell by N lines by shrinking the cell vertically.
-Shortening is done by removing blank lines from the bottom of the cell
-and possibly from the top of the cell as well. Therefore, the cell
-must have some bottom/top blank lines to be shorten effectively. This
-is applicable to all the cells aligned horizontally with the current
-one because they are also shortened in order to keep the rectangular
-table structure.
-
-\(fn N)" t nil)
-
-(autoload 'table-widen-cell "table" "\
-Widen the current cell by N columns and expand the cell horizontally.
-Some other cells in the same table are widen as well to keep the
-table's rectangle structure.
-
-\(fn N &optional NO-COPY NO-UPDATE)" t nil)
-
-(autoload 'table-narrow-cell "table" "\
-Narrow the current cell by N columns and shrink the cell horizontally.
-Some other cells in the same table are narrowed as well to keep the
-table's rectangle structure.
-
-\(fn N)" t nil)
-
-(autoload 'table-forward-cell "table" "\
-Move point forward to the beginning of the next cell.
-With argument ARG, do it ARG times;
-a negative argument ARG = -N means move backward N cells.
-Do not specify NO-RECOGNIZE and UNRECOGNIZE. They are for internal use only.
-
-Sample Cell Traveling Order (In Irregular Table Cases)
-
-You can actually try how it works in this buffer. Press
-\\[table-recognize] and go to cells in the following tables and press
-\\[table-forward-cell] or TAB key.
-
-+-----+--+ +--+-----+ +--+--+--+ +--+--+--+ +---------+ +--+---+--+
-|0 |1 | |0 |1 | |0 |1 |2 | |0 |1 |2 | |0 | |0 |1 |2 |
-+--+--+ | | +--+--+ +--+ | | | | +--+ +----+----+ +--+-+-+--+
-|2 |3 | | | |2 |3 | |3 +--+ | | +--+3 | |1 |2 | |3 |4 |
-| +--+--+ +--+--+ | +--+4 | | | |4 +--+ +--+-+-+--+ +----+----+
-| |4 | |4 | | |5 | | | | | |5 | |3 |4 |5 | |5 |
-+--+-----+ +-----+--+ +--+--+--+ +--+--+--+ +--+---+--+ +---------+
-
-+--+--+--+ +--+--+--+ +--+--+--+ +--+--+--+
-|0 |1 |2 | |0 |1 |2 | |0 |1 |2 | |0 |1 |2 |
-| | | | | +--+ | | | | | +--+ +--+
-+--+ +--+ +--+3 +--+ | +--+ | |3 +--+4 |
-|3 | |4 | |4 +--+5 | | |3 | | +--+5 +--+
-| | | | | |6 | | | | | | |6 | |7 |
-+--+--+--+ +--+--+--+ +--+--+--+ +--+--+--+
-
-+--+--+--+ +--+--+--+ +--+--+--+--+ +--+-----+--+ +--+--+--+--+
-|0 |1 |2 | |0 |1 |2 | |0 |1 |2 |3 | |0 |1 |2 | |0 |1 |2 |3 |
-| +--+ | | +--+ | | +--+--+ | | | | | | +--+--+ |
-| |3 +--+ +--+3 | | +--+4 +--+ +--+ +--+ +--+4 +--+
-+--+ |4 | |4 | +--+ |5 +--+--+6 | |3 +--+--+4 | |5 | |6 |
-|5 +--+ | | +--+5 | | |7 |8 | | | |5 |6 | | | | | |
-| |6 | | | |6 | | +--+--+--+--+ +--+--+--+--+ +--+-----+--+
-+--+--+--+ +--+--+--+
-
-\(fn &optional ARG NO-RECOGNIZE UNRECOGNIZE)" t nil)
-
-(autoload 'table-backward-cell "table" "\
-Move backward to the beginning of the previous cell.
-With argument ARG, do it ARG times;
-a negative argument ARG = -N means move forward N cells.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'table-span-cell "table" "\
-Span current cell into adjacent cell in DIRECTION.
-DIRECTION is one of symbols; right, left, above or below.
-
-\(fn DIRECTION)" t nil)
-
-(autoload 'table-split-cell-vertically "table" "\
-Split current cell vertically.
-Creates a cell above and a cell below the current point location.
-
-\(fn)" t nil)
-
-(autoload 'table-split-cell-horizontally "table" "\
-Split current cell horizontally.
-Creates a cell on the left and a cell on the right of the current point location.
-
-\(fn)" t nil)
-
-(autoload 'table-split-cell "table" "\
-Split current cell in ORIENTATION.
-ORIENTATION is a symbol either horizontally or vertically.
-
-\(fn ORIENTATION)" t nil)
-
-(autoload 'table-justify "table" "\
-Justify contents of a cell, a row of cells or a column of cells.
-WHAT is a symbol 'cell, 'row or 'column. JUSTIFY is a symbol 'left,
-'center, 'right, 'top, 'middle, 'bottom or 'none.
-
-\(fn WHAT JUSTIFY)" t nil)
-
-(autoload 'table-justify-cell "table" "\
-Justify cell contents.
-JUSTIFY is a symbol 'left, 'center or 'right for horizontal, or 'top,
-'middle, 'bottom or 'none for vertical. When optional PARAGRAPH is
-non-nil the justify operation is limited to the current paragraph,
-otherwise the entire cell contents is justified.
-
-\(fn JUSTIFY &optional PARAGRAPH)" t nil)
-
-(autoload 'table-justify-row "table" "\
-Justify cells of a row.
-JUSTIFY is a symbol 'left, 'center or 'right for horizontal, or top,
-'middle, 'bottom or 'none for vertical.
-
-\(fn JUSTIFY)" t nil)
-
-(autoload 'table-justify-column "table" "\
-Justify cells of a column.
-JUSTIFY is a symbol 'left, 'center or 'right for horizontal, or top,
-'middle, 'bottom or 'none for vertical.
-
-\(fn JUSTIFY)" t nil)
-
-(autoload 'table-fixed-width-mode "table" "\
-Cell width is fixed when this is non-nil.
-Normally it should be nil for allowing automatic cell width expansion
-that widens a cell when it is necessary. When non-nil, typing in a
-cell does not automatically expand the cell width. A word that is too
-long to fit in a cell is chopped into multiple lines. The chopped
-location is indicated by `table-word-continuation-char'. This
-variable's value can be toggled by \\[table-fixed-width-mode] at
-run-time.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'table-query-dimension "table" "\
-Return the dimension of the current cell and the current table.
-The result is a list (cw ch tw th c r cells) where cw is the cell
-width, ch is the cell height, tw is the table width, th is the table
-height, c is the number of columns, r is the number of rows and cells
-is the total number of cells. The cell dimension excludes the cell
-frame while the table dimension includes the table frame. The columns
-and the rows are counted by the number of cell boundaries. Therefore
-the number tends to be larger than it appears for the tables with
-non-uniform cell structure (heavily spanned and split). When optional
-WHERE is provided the cell and table at that location is reported.
-
-\(fn &optional WHERE)" t nil)
-
-(autoload 'table-generate-source "table" "\
-Generate source of the current table in the specified language.
-LANGUAGE is a symbol that specifies the language to describe the
-structure of the table. It must be either 'html, 'latex or 'cals.
-The resulted source text is inserted into DEST-BUFFER and the buffer
-object is returned. When DEST-BUFFER is omitted or nil the default
-buffer specified in `table-dest-buffer-name' is used. In this case
-the content of the default buffer is erased prior to the generation.
-When DEST-BUFFER is non-nil it is expected to be either a destination
-buffer or a name of the destination buffer. In this case the
-generated result is inserted at the current point in the destination
-buffer and the previously existing contents in the buffer are
-untouched.
-
-References used for this implementation:
-
-HTML:
- URL `http://www.w3.org'
-
-LaTeX:
- URL `http://www.maths.tcd.ie/~dwilkins/LaTeXPrimer/Tables.html'
-
-CALS (DocBook DTD):
- URL `http://www.oasis-open.org/html/a502.htm'
- URL `http://www.oreilly.com/catalog/docbook/chapter/book/table.html#AEN114751'
-
-\(fn LANGUAGE &optional DEST-BUFFER CAPTION)" t nil)
-
-(autoload 'table-insert-sequence "table" "\
-Travel cells forward while inserting a specified sequence string in each cell.
-STR is the base string from which the sequence starts. When STR is an
-empty string then each cell content is erased. When STR ends with
-numerical characters (they may optionally be surrounded by a pair of
-parentheses) they are incremented as a decimal number. Otherwise the
-last character in STR is incremented in ASCII code order. N is the
-number of sequence elements to insert. When N is negative the cell
-traveling direction is backward. When N is zero it travels forward
-entire table. INCREMENT is the increment between adjacent sequence
-elements and can be a negative number for effectively decrementing.
-INTERVAL is the number of cells to travel between sequence element
-insertion which is normally 1. When zero or less is given for
-INTERVAL it is interpreted as number of cells per row so that sequence
-is placed straight down vertically as long as the table's cell
-structure is uniform. JUSTIFY is one of the symbol 'left, 'center or
-'right, that specifies justification of the inserted string.
-
-Example:
-
- (progn
- (table-insert 16 3 5 1)
- (table-forward-cell 15)
- (table-insert-sequence \"D0\" -16 1 1 'center)
- (table-forward-cell 16)
- (table-insert-sequence \"A[0]\" -16 1 1 'center)
- (table-forward-cell 1)
- (table-insert-sequence \"-\" 16 0 1 'center))
-
- (progn
- (table-insert 16 8 5 1)
- (table-insert-sequence \"@\" 0 1 2 'right)
- (table-forward-cell 1)
- (table-insert-sequence \"64\" 0 1 2 'left))
-
-\(fn STR N INCREMENT INTERVAL JUSTIFY)" t nil)
-
-(autoload 'table-delete-row "table" "\
-Delete N row(s) of cells.
-Delete N rows of cells from current row. The current row is the row
-contains the current cell where point is located. Each row must
-consists from cells of same height.
-
-\(fn N)" t nil)
-
-(autoload 'table-delete-column "table" "\
-Delete N column(s) of cells.
-Delete N columns of cells from current column. The current column is
-the column contains the current cell where point is located. Each
-column must consists from cells of same width.
-
-\(fn N)" t nil)
-
-(autoload 'table-capture "table" "\
-Convert plain text into a table by capturing the text in the region.
-Create a table with the text in region as cell contents. BEG and END
-specify the region. The text in the region is replaced with a table.
-The removed text is inserted in the table. When optional
-COL-DELIM-REGEXP and ROW-DELIM-REGEXP are provided the region contents
-is parsed and separated into individual cell contents by using the
-delimiter regular expressions. This parsing determines the number of
-columns and rows of the table automatically. If COL-DELIM-REGEXP and
-ROW-DELIM-REGEXP are omitted the result table has only one cell and
-the entire region contents is placed in that cell. Optional JUSTIFY
-is one of 'left, 'center or 'right, which specifies the cell
-justification. Optional MIN-CELL-WIDTH specifies the minimum cell
-width. Optional COLUMNS specify the number of columns when
-ROW-DELIM-REGEXP is not specified.
-
-
-Example 1:
-
-1, 2, 3, 4
-5, 6, 7, 8
-, 9, 10
-
-Running `table-capture' on above 3 line region with COL-DELIM-REGEXP
-\",\" and ROW-DELIM-REGEXP \"\\n\" creates the following table. In
-this example the cells are centered and minimum cell width is
-specified as 5.
-
-+-----+-----+-----+-----+
-| 1 | 2 | 3 | 4 |
-+-----+-----+-----+-----+
-| 5 | 6 | 7 | 8 |
-+-----+-----+-----+-----+
-| | 9 | 10 | |
-+-----+-----+-----+-----+
-
-Note:
-
-In case the function is called interactively user must use \\[quoted-insert] `quoted-insert'
-in order to enter \"\\n\" successfully. COL-DELIM-REGEXP at the end
-of each row is optional.
-
-
-Example 2:
-
-This example shows how a table can be used for text layout editing.
-Let `table-capture' capture the following region starting from
--!- and ending at -*-, that contains three paragraphs and two item
-name headers. This time specify empty string for both
-COL-DELIM-REGEXP and ROW-DELIM-REGEXP.
-
--!-`table-capture' is a powerful command however mastering its power
-requires some practice. Here is a list of items what it can do.
-
-Parse Cell Items By using column delimiter regular
- expression and raw delimiter regular
- expression, it parses the specified text
- area and extracts cell items from
- non-table text and then forms a table out
- of them.
-
-Capture Text Area When no delimiters are specified it
- creates a single cell table. The text in
- the specified region is placed in that
- cell.-*-
-
-Now the entire content is captured in a cell which is itself a table
-like this.
-
-+-----------------------------------------------------------------+
-|`table-capture' is a powerful command however mastering its power|
-|requires some practice. Here is a list of items what it can do. |
-| |
-|Parse Cell Items By using column delimiter regular |
-| expression and raw delimiter regular |
-| expression, it parses the specified text |
-| area and extracts cell items from |
-| non-table text and then forms a table out |
-| of them. |
-| |
-|Capture Text Area When no delimiters are specified it |
-| creates a single cell table. The text in |
-| the specified region is placed in that |
-| cell. |
-+-----------------------------------------------------------------+
-
-By splitting the cell appropriately we now have a table consisting of
-paragraphs occupying its own cell. Each cell can now be edited
-independently.
-
-+-----------------------------------------------------------------+
-|`table-capture' is a powerful command however mastering its power|
-|requires some practice. Here is a list of items what it can do. |
-+---------------------+-------------------------------------------+
-|Parse Cell Items |By using column delimiter regular |
-| |expression and raw delimiter regular |
-| |expression, it parses the specified text |
-| |area and extracts cell items from |
-| |non-table text and then forms a table out |
-| |of them. |
-+---------------------+-------------------------------------------+
-|Capture Text Area |When no delimiters are specified it |
-| |creates a single cell table. The text in |
-| |the specified region is placed in that |
-| |cell. |
-+---------------------+-------------------------------------------+
-
-By applying `table-release', which does the opposite process, the
-contents become once again plain text. `table-release' works as
-companion command to `table-capture' this way.
-
-\(fn BEG END &optional COL-DELIM-REGEXP ROW-DELIM-REGEXP JUSTIFY MIN-CELL-WIDTH COLUMNS)" t nil)
-
-(autoload 'table-release "table" "\
-Convert a table into plain text by removing the frame from a table.
-Remove the frame from a table and deactivate the table. This command
-converts a table into plain text without frames. It is a companion to
-`table-capture' which does the opposite process.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (talk talk-connect) "talk" "talk.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from talk.el
-
-(autoload 'talk-connect "talk" "\
-Connect to display DISPLAY for the Emacs talk group.
-
-\(fn DISPLAY)" t nil)
-
-(autoload 'talk "talk" "\
-Connect to the Emacs talk group from the current X display or tty frame.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from tar-mode.el
-
-(autoload 'tar-mode "tar-mode" "\
-Major mode for viewing a tar file as a dired-like listing of its contents.
-You can move around using the usual cursor motion commands.
-Letters no longer insert themselves.
-Type `e' to pull a file out of the tar file and into its own buffer;
-or click mouse-2 on the file's line in the Tar mode buffer.
-Type `c' to copy an entry from the tar file into another file on disk.
-
-If you edit a sub-file of this archive (as with the `e' command) and
-save it with \\[save-buffer], the contents of that buffer will be
-saved back into the tar-file buffer; in this way you can edit a file
-inside of a tar archive without extracting it and re-archiving it.
-
-See also: variables `tar-update-datestamp' and `tar-anal-blocksize'.
-\\{tar-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl"
-;;;;;; "progmodes/tcl.el" (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/tcl.el
-
-(autoload 'tcl-mode "tcl" "\
-Major mode for editing Tcl code.
-Expression and list commands understand all Tcl brackets.
-Tab indents for Tcl code.
-Paragraphs are separated by blank lines only.
-Delete converts tabs to spaces as it moves back.
-
-Variables controlling indentation style:
- `tcl-indent-level'
- Indentation of Tcl statements within surrounding block.
- `tcl-continued-indent-level'
- Indentation of continuation line relative to first line of command.
-
-Variables controlling user interaction with mode (see variable
-documentation for details):
- `tcl-tab-always-indent'
- Controls action of TAB key.
- `tcl-auto-newline'
- Non-nil means automatically newline before and after braces, brackets,
- and semicolons inserted in Tcl code.
- `tcl-use-smart-word-finder'
- If not nil, use a smarter, Tcl-specific way to find the current
- word when looking up help on a Tcl command.
-
-Turning on Tcl mode runs `tcl-mode-hook'. Read the documentation for
-`tcl-mode-hook' to see what kinds of interesting hook functions
-already exist.
-
-\(fn)" t nil)
-
-(autoload 'inferior-tcl "tcl" "\
-Run inferior Tcl process.
-Prefix arg means enter program name interactively.
-See documentation for function `inferior-tcl-mode' for more information.
-
-\(fn CMD)" t nil)
-
-(autoload 'tcl-help-on-word "tcl" "\
-Get help on Tcl command. Default is word at point.
-Prefix argument means invert sense of `tcl-use-smart-word-finder'.
-
-\(fn COMMAND &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from net/telnet.el
-
-(autoload 'telnet "telnet" "\
-Open a network login connection to host named HOST (a string).
-Optional arg PORT specifies alternative port to connect to.
-Interactively, use \\[universal-argument] prefix to be prompted for port number.
-
-Communication with HOST is recorded in a buffer `*PROGRAM-HOST*'
-where PROGRAM is the telnet program being used. This program
-is controlled by the contents of the global variable `telnet-host-properties',
-falling back on the value of the global variable `telnet-program'.
-Normally input is edited in Emacs and sent a line at a time.
-
-\(fn HOST &optional PORT)" t nil)
-
-(autoload 'rsh "telnet" "\
-Open a network login connection to host named HOST (a string).
-Communication with HOST is recorded in a buffer `*rsh-HOST*'.
-Normally input is edited in Emacs and sent a line at a time.
-
-\(fn HOST)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (serial-term ansi-term term make-term) "term" "term.el"
-;;;;;; (20709 10021 126382 806000))
-;;; Generated autoloads from term.el
-
-(autoload 'make-term "term" "\
-Make a term process NAME in a buffer, running PROGRAM.
-The name of the buffer is made by surrounding NAME with `*'s.
-If there is already a running process in that buffer, it is not restarted.
-Optional third arg STARTFILE is the name of a file to send the contents of to
-the process. Any more args are arguments to PROGRAM.
-
-\(fn NAME PROGRAM &optional STARTFILE &rest SWITCHES)" nil nil)
-
-(autoload 'term "term" "\
-Start a terminal-emulator in a new buffer.
-The buffer is in Term mode; see `term-mode' for the
-commands to use in that buffer.
-
-\\<term-raw-map>Type \\[switch-to-buffer] to switch to another buffer.
-
-\(fn PROGRAM)" t nil)
-
-(autoload 'ansi-term "term" "\
-Start a terminal-emulator in a new buffer.
-
-\(fn PROGRAM &optional NEW-BUFFER-NAME)" t nil)
-
-(autoload 'serial-term "term" "\
-Start a terminal-emulator for a serial port in a new buffer.
-PORT is the path or name of the serial port. For example, this
-could be \"/dev/ttyS0\" on Unix. On Windows, this could be
-\"COM1\" or \"\\\\.\\COM10\".
-SPEED is the speed of the serial port in bits per second. 9600
-is a common value. SPEED can be nil, see
-`serial-process-configure' for details.
-The buffer is in Term mode; see `term-mode' for the commands to
-use in that buffer.
-\\<term-raw-map>Type \\[switch-to-buffer] to switch to another buffer.
-
-\(fn PORT SPEED)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from terminal.el
-
-(autoload 'terminal-emulator "terminal" "\
-Under a display-terminal emulator in BUFFER, run PROGRAM on arguments ARGS.
-ARGS is a list of argument-strings. Remaining arguments are WIDTH and HEIGHT.
-BUFFER's contents are made an image of the display generated by that program,
-and any input typed when BUFFER is the current Emacs buffer is sent to that
-program as keyboard input.
-
-Interactively, BUFFER defaults to \"*terminal*\" and PROGRAM and ARGS
-are parsed from an input-string using your usual shell.
-WIDTH and HEIGHT are determined from the size of the current window
--- WIDTH will be one less than the window's width, HEIGHT will be its height.
-
-To switch buffers and leave the emulator, or to give commands
-to the emulator itself (as opposed to the program running under it),
-type Control-^. The following character is an emulator command.
-Type Control-^ twice to send it to the subprogram.
-This escape character may be changed using the variable `terminal-escape-char'.
-
-`Meta' characters may not currently be sent through the terminal emulator.
-
-Here is a list of some of the variables which control the behavior
-of the emulator -- see their documentation for more information:
-terminal-escape-char, terminal-scrolling, terminal-more-processing,
-terminal-redisplay-interval.
-
-This function calls the value of terminal-mode-hook if that exists
-and is non-nil after the terminal buffer has been set up and the
-subprocess started.
-
-\(fn BUFFER PROGRAM ARGS &optional WIDTH HEIGHT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/testcover.el
-
-(autoload 'testcover-this-defun "testcover" "\
-Start coverage on function under point.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tetris) "tetris" "play/tetris.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from play/tetris.el
-
-(autoload 'tetris "tetris" "\
-Play the Tetris game.
-Shapes drop from the top of the screen, and the user has to move and
-rotate the shape to fit in with those at the bottom of the screen so
-as to form complete rows.
-
-tetris-mode keybindings:
- \\<tetris-mode-map>
-\\[tetris-start-game] Starts a new game of Tetris
-\\[tetris-end-game] Terminates the current game
-\\[tetris-pause-game] Pauses (or resumes) the current game
-\\[tetris-move-left] Moves the shape one square to the left
-\\[tetris-move-right] Moves the shape one square to the right
-\\[tetris-rotate-prev] Rotates the shape clockwise
-\\[tetris-rotate-next] Rotates the shape anticlockwise
-\\[tetris-move-bottom] Drops the shape to the bottom of the playing area
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (doctex-mode tex-start-shell slitex-mode latex-mode
-;;;;;; plain-tex-mode tex-mode tex-close-quote tex-open-quote tex-default-mode
-;;;;;; tex-show-queue-command tex-dvi-view-command tex-alt-dvi-print-command
-;;;;;; tex-dvi-print-command tex-bibtex-command latex-block-names
-;;;;;; 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"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/tex-mode.el
-
-(defvar tex-shell-file-name nil "\
-If non-nil, the shell file name to run in the subshell used to run TeX.")
-
-(custom-autoload 'tex-shell-file-name "tex-mode" t)
-
-(defvar tex-directory (purecopy ".") "\
-Directory in which temporary files are written.
-You can make this `/tmp' if your TEXINPUTS has no relative directories in it
-and you don't try to apply \\[tex-region] or \\[tex-buffer] when there are
-`\\input' commands with relative directories.")
-
-(custom-autoload 'tex-directory "tex-mode" t)
-
-(defvar tex-first-line-header-regexp nil "\
-Regexp for matching a first line which `tex-region' should include.
-If this is non-nil, it should be a regular expression string;
-if it matches the first line of the file,
-`tex-region' always includes the first line in the TeX run.")
-
-(custom-autoload 'tex-first-line-header-regexp "tex-mode" t)
-
-(defvar tex-main-file nil "\
-The main TeX source file which includes this buffer's file.
-The command `tex-file' runs TeX on the file specified by `tex-main-file'
-if the variable is non-nil.")
-
-(custom-autoload 'tex-main-file "tex-mode" t)
-
-(defvar tex-offer-save t "\
-If non-nil, ask about saving modified buffers before \\[tex-file] is run.")
-
-(custom-autoload 'tex-offer-save "tex-mode" t)
-
-(defvar tex-run-command (purecopy "tex") "\
-Command used to run TeX subjob.
-TeX Mode sets `tex-command' to this string.
-See the documentation of that variable.")
-
-(custom-autoload 'tex-run-command "tex-mode" t)
-
-(defvar latex-run-command (purecopy "latex") "\
-Command used to run LaTeX subjob.
-LaTeX Mode sets `tex-command' to this string.
-See the documentation of that variable.")
-
-(custom-autoload 'latex-run-command "tex-mode" t)
-
-(defvar slitex-run-command (purecopy "slitex") "\
-Command used to run SliTeX subjob.
-SliTeX Mode sets `tex-command' to this string.
-See the documentation of that variable.")
-
-(custom-autoload 'slitex-run-command "tex-mode" t)
-
-(defvar tex-start-options (purecopy "") "\
-TeX options to use when starting TeX.
-These immediately precede the commands in `tex-start-commands'
-and the input file name, with no separating space and are not shell-quoted.
-If nil, TeX runs with no options. See the documentation of `tex-command'.")
-
-(custom-autoload 'tex-start-options "tex-mode" t)
-
-(defvar tex-start-commands (purecopy "\\nonstopmode\\input") "\
-TeX commands to use when starting TeX.
-They are shell-quoted and precede the input file name, with a separating space.
-If nil, no commands are used. See the documentation of `tex-command'.")
-
-(custom-autoload 'tex-start-commands "tex-mode" t)
-
-(defvar latex-block-names nil "\
-User defined LaTeX block names.
-Combined with `latex-standard-block-names' for minibuffer completion.")
-
-(custom-autoload 'latex-block-names "tex-mode" t)
-
-(defvar tex-bibtex-command (purecopy "bibtex") "\
-Command used by `tex-bibtex-file' to gather bibliographic data.
-If this string contains an asterisk (`*'), that is replaced by the file name;
-otherwise, the file name, preceded by blank, is added at the end.")
-
-(custom-autoload 'tex-bibtex-command "tex-mode" t)
-
-(defvar tex-dvi-print-command (purecopy "lpr -d") "\
-Command used by \\[tex-print] to print a .dvi file.
-If this string contains an asterisk (`*'), that is replaced by the file name;
-otherwise, the file name, preceded by blank, is added at the end.")
-
-(custom-autoload 'tex-dvi-print-command "tex-mode" t)
-
-(defvar tex-alt-dvi-print-command (purecopy "lpr -d") "\
-Command used by \\[tex-print] with a prefix arg to print a .dvi file.
-If this string contains an asterisk (`*'), that is replaced by the file name;
-otherwise, the file name, preceded by blank, is added at the end.
-
-If two printers are not enough of a choice, you can set the variable
-`tex-alt-dvi-print-command' to an expression that asks what you want;
-for example,
-
- (setq tex-alt-dvi-print-command
- '(format \"lpr -P%s\" (read-string \"Use printer: \")))
-
-would tell \\[tex-print] with a prefix argument to ask you which printer to
-use.")
-
-(custom-autoload 'tex-alt-dvi-print-command "tex-mode" t)
-
-(defvar tex-dvi-view-command `(cond ((eq window-system 'x) ,(purecopy "xdvi")) ((eq window-system 'w32) ,(purecopy "yap")) (t ,(purecopy "dvi2tty * | cat -s"))) "\
-Command used by \\[tex-view] to display a `.dvi' file.
-If it is a string, that specifies the command directly.
-If this string contains an asterisk (`*'), that is replaced by the file name;
-otherwise, the file name, preceded by a space, is added at the end.
-
-If the value is a form, it is evaluated to get the command to use.")
-
-(custom-autoload 'tex-dvi-view-command "tex-mode" t)
-
-(defvar tex-show-queue-command (purecopy "lpq") "\
-Command used by \\[tex-show-print-queue] to show the print queue.
-Should show the queue(s) that \\[tex-print] puts jobs on.")
-
-(custom-autoload 'tex-show-queue-command "tex-mode" t)
-
-(defvar tex-default-mode 'latex-mode "\
-Mode to enter for a new file that might be either TeX or LaTeX.
-This variable is used when it can't be determined whether the file
-is plain TeX or LaTeX or what because the file contains no commands.
-Normally set to either `plain-tex-mode' or `latex-mode'.")
-
-(custom-autoload 'tex-default-mode "tex-mode" t)
-
-(defvar tex-open-quote (purecopy "``") "\
-String inserted by typing \\[tex-insert-quote] to open a quotation.")
-
-(custom-autoload 'tex-open-quote "tex-mode" t)
-
-(defvar tex-close-quote (purecopy "''") "\
-String inserted by typing \\[tex-insert-quote] to close a quotation.")
-
-(custom-autoload 'tex-close-quote "tex-mode" t)
-
-(autoload 'tex-mode "tex-mode" "\
-Major mode for editing files of input for TeX, LaTeX, or SliTeX.
-Tries to determine (by looking at the beginning of the file) whether
-this file is for plain TeX, LaTeX, or SliTeX and calls `plain-tex-mode',
-`latex-mode', or `slitex-mode', respectively. If it cannot be determined,
-such as if there are no commands in the file, the value of `tex-default-mode'
-says which mode to use.
-
-\(fn)" t nil)
-
-(defalias 'TeX-mode 'tex-mode)
-
-(defalias 'plain-TeX-mode 'plain-tex-mode)
-
-(defalias 'LaTeX-mode 'latex-mode)
-
-(autoload 'plain-tex-mode "tex-mode" "\
-Major mode for editing files of input for plain TeX.
-Makes $ and } display the characters they match.
-Makes \" insert `` when it seems to be the beginning of a quotation,
-and '' when it appears to be the end; it inserts \" only after a \\.
-
-Use \\[tex-region] to run TeX on the current region, plus a \"header\"
-copied from the top of the file (containing macro definitions, etc.),
-running TeX under a special subshell. \\[tex-buffer] does the whole buffer.
-\\[tex-file] saves the buffer and then processes the file.
-\\[tex-print] prints the .dvi file made by any of these.
-\\[tex-view] previews the .dvi file made by any of these.
-\\[tex-bibtex-file] runs bibtex on the file of the current buffer.
-
-Use \\[tex-validate-buffer] to check buffer for paragraphs containing
-mismatched $'s or braces.
-
-Special commands:
-\\{plain-tex-mode-map}
-
-Mode variables:
-tex-run-command
- Command string used by \\[tex-region] or \\[tex-buffer].
-tex-directory
- Directory in which to create temporary files for TeX jobs
- run by \\[tex-region] or \\[tex-buffer].
-tex-dvi-print-command
- Command string used by \\[tex-print] to print a .dvi file.
-tex-alt-dvi-print-command
- Alternative command string used by \\[tex-print] (when given a prefix
- argument) to print a .dvi file.
-tex-dvi-view-command
- Command string used by \\[tex-view] to preview a .dvi file.
-tex-show-queue-command
- Command string used by \\[tex-show-print-queue] to show the print
- queue that \\[tex-print] put your job on.
-
-Entering Plain-tex mode runs the hook `text-mode-hook', then the hook
-`tex-mode-hook', and finally the hook `plain-tex-mode-hook'. When the
-special subshell is initiated, the hook `tex-shell-hook' is run.
-
-\(fn)" t nil)
-
-(autoload 'latex-mode "tex-mode" "\
-Major mode for editing files of input for LaTeX.
-Makes $ and } display the characters they match.
-Makes \" insert `` when it seems to be the beginning of a quotation,
-and '' when it appears to be the end; it inserts \" only after a \\.
-
-Use \\[tex-region] to run LaTeX on the current region, plus the preamble
-copied from the top of the file (containing \\documentstyle, etc.),
-running LaTeX under a special subshell. \\[tex-buffer] does the whole buffer.
-\\[tex-file] saves the buffer and then processes the file.
-\\[tex-print] prints the .dvi file made by any of these.
-\\[tex-view] previews the .dvi file made by any of these.
-\\[tex-bibtex-file] runs bibtex on the file of the current buffer.
-
-Use \\[tex-validate-buffer] to check buffer for paragraphs containing
-mismatched $'s or braces.
-
-Special commands:
-\\{latex-mode-map}
-
-Mode variables:
-latex-run-command
- Command string used by \\[tex-region] or \\[tex-buffer].
-tex-directory
- Directory in which to create temporary files for LaTeX jobs
- run by \\[tex-region] or \\[tex-buffer].
-tex-dvi-print-command
- Command string used by \\[tex-print] to print a .dvi file.
-tex-alt-dvi-print-command
- Alternative command string used by \\[tex-print] (when given a prefix
- argument) to print a .dvi file.
-tex-dvi-view-command
- Command string used by \\[tex-view] to preview a .dvi file.
-tex-show-queue-command
- Command string used by \\[tex-show-print-queue] to show the print
- queue that \\[tex-print] put your job on.
-
-Entering Latex mode runs the hook `text-mode-hook', then
-`tex-mode-hook', and finally `latex-mode-hook'. When the special
-subshell is initiated, `tex-shell-hook' is run.
-
-\(fn)" t nil)
-
-(autoload 'slitex-mode "tex-mode" "\
-Major mode for editing files of input for SliTeX.
-Makes $ and } display the characters they match.
-Makes \" insert `` when it seems to be the beginning of a quotation,
-and '' when it appears to be the end; it inserts \" only after a \\.
-
-Use \\[tex-region] to run SliTeX on the current region, plus the preamble
-copied from the top of the file (containing \\documentstyle, etc.),
-running SliTeX under a special subshell. \\[tex-buffer] does the whole buffer.
-\\[tex-file] saves the buffer and then processes the file.
-\\[tex-print] prints the .dvi file made by any of these.
-\\[tex-view] previews the .dvi file made by any of these.
-\\[tex-bibtex-file] runs bibtex on the file of the current buffer.
-
-Use \\[tex-validate-buffer] to check buffer for paragraphs containing
-mismatched $'s or braces.
-
-Special commands:
-\\{slitex-mode-map}
-
-Mode variables:
-slitex-run-command
- Command string used by \\[tex-region] or \\[tex-buffer].
-tex-directory
- Directory in which to create temporary files for SliTeX jobs
- run by \\[tex-region] or \\[tex-buffer].
-tex-dvi-print-command
- Command string used by \\[tex-print] to print a .dvi file.
-tex-alt-dvi-print-command
- Alternative command string used by \\[tex-print] (when given a prefix
- argument) to print a .dvi file.
-tex-dvi-view-command
- Command string used by \\[tex-view] to preview a .dvi file.
-tex-show-queue-command
- Command string used by \\[tex-show-print-queue] to show the print
- queue that \\[tex-print] put your job on.
-
-Entering SliTeX mode runs the hook `text-mode-hook', then the hook
-`tex-mode-hook', then the hook `latex-mode-hook', and finally the hook
-`slitex-mode-hook'. When the special subshell is initiated, the hook
-`tex-shell-hook' is run.
-
-\(fn)" t nil)
-
-(autoload 'tex-start-shell "tex-mode" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'doctex-mode "tex-mode" "\
-Major mode to edit DocTeX files.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer)
-;;;;;; "texinfmt" "textmodes/texinfmt.el" (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/texinfmt.el
-
-(autoload 'texinfo-format-buffer "texinfmt" "\
-Process the current buffer as texinfo code, into an Info file.
-The Info file output is generated in a buffer visiting the Info file
-name specified in the @setfilename command.
-
-Non-nil argument (prefix, if interactive) means don't make tag table
-and don't split the file if large. You can use `Info-tagify' and
-`Info-split' to do these manually.
-
-\(fn &optional NOSPLIT)" t nil)
-
-(autoload 'texinfo-format-region "texinfmt" "\
-Convert the current region of the Texinfo file to Info format.
-This lets you see what that part of the file will look like in Info.
-The command is bound to \\[texinfo-format-region]. The text that is
-converted to Info is stored in a temporary buffer.
-
-\(fn REGION-BEGINNING REGION-END)" t nil)
-
-(autoload 'texi2info "texinfmt" "\
-Convert the current buffer (written in Texinfo code) into an Info file.
-The Info file output is generated in a buffer visiting the Info file
-names specified in the @setfilename command.
-
-This function automatically updates all node pointers and menus, and
-creates a master menu. This work is done on a temporary buffer that
-is automatically removed when the Info file is created. The original
-Texinfo source buffer is not changed.
-
-Non-nil argument (prefix, if interactive) means don't split the file
-if large. You can use `Info-split' to do this manually.
-
-\(fn &optional NOSPLIT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote)
-;;;;;; "texinfo" "textmodes/texinfo.el" (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/texinfo.el
-
-(defvar texinfo-open-quote (purecopy "``") "\
-String inserted by typing \\[texinfo-insert-quote] to open a quotation.")
-
-(custom-autoload 'texinfo-open-quote "texinfo" t)
-
-(defvar texinfo-close-quote (purecopy "''") "\
-String inserted by typing \\[texinfo-insert-quote] to close a quotation.")
-
-(custom-autoload 'texinfo-close-quote "texinfo" t)
-
-(autoload 'texinfo-mode "texinfo" "\
-Major mode for editing Texinfo files.
-
- It has these extra commands:
-\\{texinfo-mode-map}
-
- These are files that are used as input for TeX to make printed manuals
-and also to be turned into Info files with \\[makeinfo-buffer] or
-the `makeinfo' program. These files must be written in a very restricted and
-modified version of TeX input format.
-
- Editing commands are like text-mode except that the syntax table is
-set up so expression commands skip Texinfo bracket groups. To see
-what the Info version of a region of the Texinfo file will look like,
-use \\[makeinfo-region], which runs `makeinfo' on the current region.
-
- You can show the structure of a Texinfo file with \\[texinfo-show-structure].
-This command shows the structure of a Texinfo file by listing the
-lines with the @-sign commands for @chapter, @section, and the like.
-These lines are displayed in another window called the *Occur* window.
-In that window, you can position the cursor over one of the lines and
-use \\[occur-mode-goto-occurrence], to jump to the corresponding spot
-in the Texinfo file.
-
- In addition, Texinfo mode provides commands that insert various
-frequently used @-sign commands into the buffer. You can use these
-commands to save keystrokes. And you can insert balanced braces with
-\\[texinfo-insert-braces] and later use the command \\[up-list] to
-move forward past the closing brace.
-
-Also, Texinfo mode provides functions for automatically creating or
-updating menus and node pointers. These functions
-
- * insert the `Next', `Previous' and `Up' pointers of a node,
- * insert or update the menu for a section, and
- * create a master menu for a Texinfo source file.
-
-Here are the functions:
-
- texinfo-update-node \\[texinfo-update-node]
- texinfo-every-node-update \\[texinfo-every-node-update]
- texinfo-sequential-node-update
-
- texinfo-make-menu \\[texinfo-make-menu]
- texinfo-all-menus-update \\[texinfo-all-menus-update]
- texinfo-master-menu
-
- texinfo-indent-menu-description (column &optional region-p)
-
-The `texinfo-column-for-description' variable specifies the column to
-which menu descriptions are indented.
-
-Passed an argument (a prefix argument, if interactive), the
-`texinfo-update-node' and `texinfo-make-menu' functions do their jobs
-in the region.
-
-To use the updating commands, you must structure your Texinfo file
-hierarchically, such that each `@node' line, with the exception of the
-Top node, is accompanied by some kind of section line, such as an
-`@chapter' or `@section' line.
-
-If the file has a `top' node, it must be called `top' or `Top' and
-be the first node in the file.
-
-Entering Texinfo mode calls the value of `text-mode-hook', and then the
-value of `texinfo-mode-hook'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (thai-composition-function thai-compose-buffer
-;;;;;; thai-compose-string thai-compose-region) "thai-util" "language/thai-util.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from language/thai-util.el
-
-(autoload 'thai-compose-region "thai-util" "\
-Compose Thai characters in the region.
-When called from a program, expects two arguments,
-positions (integers or markers) specifying the region.
-
-\(fn BEG END)" t nil)
-
-(autoload 'thai-compose-string "thai-util" "\
-Compose Thai characters in STRING and return the resulting string.
-
-\(fn STRING)" nil nil)
-
-(autoload 'thai-compose-buffer "thai-util" "\
-Compose Thai characters in the current buffer.
-
-\(fn)" t nil)
-
-(autoload 'thai-composition-function "thai-util" "\
-
-
-\(fn GSTRING)" nil nil)
-
-;;;***
-\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" (20707 18685 911514 0))
-;;; Generated autoloads from thingatpt.el
-
-(autoload 'forward-thing "thingatpt" "\
-Move forward to the end of the Nth next THING.
-THING should be a symbol specifying a type of syntactic entity.
-Possibilities include `symbol', `list', `sexp', `defun',
-`filename', `url', `email', `word', `sentence', `whitespace',
-`line', and `page'.
-
-\(fn THING &optional N)" nil nil)
-
-(autoload 'bounds-of-thing-at-point "thingatpt" "\
-Determine the start and end buffer locations for the THING at point.
-THING should be a symbol specifying a type of syntactic entity.
-Possibilities include `symbol', `list', `sexp', `defun',
-`filename', `url', `email', `word', `sentence', `whitespace',
-`line', and `page'.
-
-See the file `thingatpt.el' for documentation on how to define a
-valid THING.
-
-Return a cons cell (START . END) giving the start and end
-positions of the thing found.
-
-\(fn THING)" nil nil)
-
-(autoload 'thing-at-point "thingatpt" "\
-Return the THING at point.
-THING should be a symbol specifying a type of syntactic entity.
-Possibilities include `symbol', `list', `sexp', `defun',
-`filename', `url', `email', `word', `sentence', `whitespace',
-`line', `number', and `page'.
-
-See the file `thingatpt.el' for documentation on how to define
-a symbol as a valid THING.
-
-\(fn THING)" nil nil)
-
-(autoload 'sexp-at-point "thingatpt" "\
-Return the sexp at point, or nil if none is found.
-
-\(fn)" nil nil)
-
-(autoload 'symbol-at-point "thingatpt" "\
-Return the symbol at point, or nil if none is found.
-
-\(fn)" nil nil)
-
-(autoload 'number-at-point "thingatpt" "\
-Return the number at point, or nil if none is found.
-
-\(fn)" nil nil)
-
-(autoload 'list-at-point "thingatpt" "\
-Return the Lisp list at point, or nil if none is found.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked
-;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from thumbs.el
-
-(autoload 'thumbs-find-thumb "thumbs" "\
-Display the thumbnail for IMG.
-
-\(fn IMG)" t nil)
-
-(autoload 'thumbs-show-from-dir "thumbs" "\
-Make a preview buffer for all images in DIR.
-Optional argument REG to select file matching a regexp,
-and SAME-WINDOW to show thumbs in the same window.
-
-\(fn DIR &optional REG SAME-WINDOW)" t nil)
-
-(autoload 'thumbs-dired-show-marked "thumbs" "\
-In dired, make a thumbs buffer with marked files.
-
-\(fn)" t nil)
-
-(autoload 'thumbs-dired-show "thumbs" "\
-In dired, make a thumbs buffer with all files in current directory.
-
-\(fn)" t nil)
-
-(defalias 'thumbs 'thumbs-show-from-dir)
-
-(autoload 'thumbs-dired-setroot "thumbs" "\
-In dired, call the setroot program on the image at point.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tibetan-pre-write-canonicalize-for-unicode tibetan-pre-write-conversion
-;;;;;; tibetan-post-read-conversion tibetan-compose-buffer tibetan-decompose-buffer
-;;;;;; 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" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from language/tibet-util.el
-
-(autoload 'tibetan-char-p "tibet-util" "\
-Check if char CH is Tibetan character.
-Returns non-nil if CH is Tibetan. Otherwise, returns nil.
-
-\(fn CH)" nil nil)
-
-(autoload 'tibetan-tibetan-to-transcription "tibet-util" "\
-Transcribe Tibetan string STR and return the corresponding Roman string.
-
-\(fn STR)" nil nil)
-
-(autoload 'tibetan-transcription-to-tibetan "tibet-util" "\
-Convert Tibetan Roman string STR to Tibetan character string.
-The returned string has no composition information.
-
-\(fn STR)" nil nil)
-
-(autoload 'tibetan-compose-string "tibet-util" "\
-Compose Tibetan string STR.
-
-\(fn STR)" nil nil)
-
-(autoload 'tibetan-compose-region "tibet-util" "\
-Compose Tibetan text the region BEG and END.
-
-\(fn BEG END)" t nil)
-
-(autoload 'tibetan-decompose-region "tibet-util" "\
-Decompose Tibetan text in the region FROM and TO.
-This is different from decompose-region because precomposed Tibetan characters
-are decomposed into normal Tibetan character sequences.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'tibetan-decompose-string "tibet-util" "\
-Decompose Tibetan string STR.
-This is different from decompose-string because precomposed Tibetan characters
-are decomposed into normal Tibetan character sequences.
-
-\(fn STR)" nil nil)
-
-(autoload 'tibetan-decompose-buffer "tibet-util" "\
-Decomposes Tibetan characters in the buffer into their components.
-See also the documentation of the function `tibetan-decompose-region'.
-
-\(fn)" t nil)
-
-(autoload 'tibetan-compose-buffer "tibet-util" "\
-Composes Tibetan character components in the buffer.
-See also docstring of the function tibetan-compose-region.
-
-\(fn)" t nil)
-
-(autoload 'tibetan-post-read-conversion "tibet-util" "\
-
-
-\(fn LEN)" nil nil)
-
-(autoload 'tibetan-pre-write-conversion "tibet-util" "\
-
-
-\(fn FROM TO)" nil nil)
-
-(autoload 'tibetan-pre-write-canonicalize-for-unicode "tibet-util" "\
-
-
-\(fn FROM TO)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/tildify.el
-
-(autoload 'tildify-region "tildify" "\
-Add hard spaces in the region between BEG and END.
-See variables `tildify-pattern-alist', `tildify-string-alist', and
-`tildify-ignored-environments-alist' for information about configuration
-parameters.
-This function performs no refilling of the changed text.
-
-\(fn BEG END)" t nil)
-
-(autoload 'tildify-buffer "tildify" "\
-Add hard spaces in the current buffer.
-See variables `tildify-pattern-alist', `tildify-string-alist', and
-`tildify-ignored-environments-alist' for information about configuration
-parameters.
-This function performs no refilling of the changed text.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (emacs-init-time emacs-uptime display-time-world
-;;;;;; display-time-mode display-time display-time-day-and-date)
-;;;;;; "time" "time.el" (20707 18685 911514 0))
-;;; Generated autoloads from time.el
-
-(defvar display-time-day-and-date nil "\
-Non-nil means \\[display-time] should display day and date as well as time.")
-
-(custom-autoload 'display-time-day-and-date "time" t)
-(put 'display-time-string 'risky-local-variable t)
-
-(autoload 'display-time "time" "\
-Enable display of time, load level, and mail flag in mode lines.
-This display updates automatically every minute.
-If `display-time-day-and-date' is non-nil, the current day and date
-are displayed as well.
-This runs the normal hook `display-time-hook' after each update.
-
-\(fn)" t nil)
-
-(defvar display-time-mode nil "\
-Non-nil if Display-Time mode is enabled.
-See the command `display-time-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `display-time-mode'.")
-
-(custom-autoload 'display-time-mode "time" nil)
-
-(autoload 'display-time-mode "time" "\
-Toggle display of time, load level, and mail flag in mode lines.
-With a prefix argument ARG, enable Display Time mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-it if ARG is omitted or nil.
-
-When Display Time mode is enabled, it updates every minute (you
-can control the number of seconds between updates by customizing
-`display-time-interval'). If `display-time-day-and-date' is
-non-nil, the current day and date are displayed as well. This
-runs the normal hook `display-time-hook' after each update.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'display-time-world "time" "\
-Enable updating display of times in various time zones.
-`display-time-world-list' specifies the zones.
-To turn off the world time display, go to that window and type `q'.
-
-\(fn)" t nil)
-
-(autoload 'emacs-uptime "time" "\
-Return a string giving the uptime of this instance of Emacs.
-FORMAT is a string to format the result, using `format-seconds'.
-For example, the Unix uptime command format is \"%D, %z%2h:%.2m\".
-
-\(fn &optional FORMAT)" t nil)
-
-(autoload 'emacs-init-time "time" "\
-Return a string giving the duration of the Emacs initialization.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (format-seconds 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 date-to-time) "time-date" "calendar/time-date.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from calendar/time-date.el
-
-(autoload 'date-to-time "time-date" "\
-Parse a string DATE that represents a date-time and return a time value.
-If DATE lacks timezone information, GMT is assumed.
-
-\(fn DATE)" nil nil)
-(if (or (featurep 'emacs)
- (and (fboundp 'float-time)
- (subrp (symbol-function 'float-time))))
- (progn
- (defalias 'time-to-seconds 'float-time)
- (make-obsolete 'time-to-seconds 'float-time "21.1"))
- (autoload 'time-to-seconds "time-date"))
-
-(autoload 'seconds-to-time "time-date" "\
-Convert SECONDS (a floating point number) to a time value.
-
-\(fn SECONDS)" nil nil)
-
-(autoload 'time-less-p "time-date" "\
-Return non-nil if time value T1 is earlier than time value T2.
-
-\(fn T1 T2)" nil nil)
-
-(autoload 'days-to-time "time-date" "\
-Convert DAYS into a time value.
-
-\(fn DAYS)" nil nil)
-
-(autoload 'time-since "time-date" "\
-Return the time elapsed since TIME.
-TIME should be either a time value or a date-time string.
-
-\(fn TIME)" nil nil)
-
-(defalias 'subtract-time 'time-subtract)
-
-(autoload 'time-subtract "time-date" "\
-Subtract two time values, T1 minus T2.
-Return the difference in the format of a time value.
-
-\(fn T1 T2)" nil nil)
-
-(autoload 'time-add "time-date" "\
-Add two time values T1 and T2. One should represent a time difference.
-
-\(fn T1 T2)" nil nil)
-
-(autoload 'date-to-day "time-date" "\
-Return the number of days between year 1 and DATE.
-DATE should be a date-time string.
-
-\(fn DATE)" nil nil)
-
-(autoload 'days-between "time-date" "\
-Return the number of days between DATE1 and DATE2.
-DATE1 and DATE2 should be date-time strings.
-
-\(fn DATE1 DATE2)" nil nil)
-
-(autoload 'date-leap-year-p "time-date" "\
-Return t if YEAR is a leap year.
-
-\(fn YEAR)" nil nil)
-
-(autoload 'time-to-day-in-year "time-date" "\
-Return the day number within the year corresponding to TIME.
-
-\(fn TIME)" nil nil)
-
-(autoload 'time-to-days "time-date" "\
-The number of days between the Gregorian date 0001-12-31bce and TIME.
-TIME should be a time value.
-The Gregorian date Sunday, December 31, 1bce is imaginary.
-
-\(fn TIME)" nil nil)
-
-(autoload 'safe-date-to-time "time-date" "\
-Parse a string DATE that represents a date-time and return a time value.
-If DATE is malformed, return a time value of zeros.
-
-\(fn DATE)" nil nil)
-
-(autoload 'format-seconds "time-date" "\
-Use format control STRING to format the number SECONDS.
-The valid format specifiers are:
-%y is the number of (365-day) years.
-%d is the number of days.
-%h is the number of hours.
-%m is the number of minutes.
-%s is the number of seconds.
-%z is a non-printing control flag (see below).
-%% is a literal \"%\".
-
-Upper-case specifiers are followed by the unit-name (e.g. \"years\").
-Lower-case specifiers return only the unit.
-
-\"%\" may be followed by a number specifying a width, with an
-optional leading \".\" for zero-padding. For example, \"%.3Y\" will
-return something of the form \"001 year\".
-
-The \"%z\" specifier does not print anything. When it is used, specifiers
-must be given in order of decreasing size. To the left of \"%z\", nothing
-is output until the first non-zero unit is encountered.
-
-This function does not work for SECONDS greater than `most-positive-fixnum'.
-
-\(fn STRING SECONDS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp"
-;;;;;; "time-stamp.el" (20707 18685 911514 0))
-;;; Generated autoloads from time-stamp.el
-(put 'time-stamp-format 'safe-local-variable 'stringp)
-(put 'time-stamp-time-zone 'safe-local-variable 'string-or-null-p)
-(put 'time-stamp-line-limit 'safe-local-variable 'integerp)
-(put 'time-stamp-start 'safe-local-variable 'stringp)
-(put 'time-stamp-end 'safe-local-variable 'stringp)
-(put 'time-stamp-inserts-lines 'safe-local-variable 'symbolp)
-(put 'time-stamp-count 'safe-local-variable 'integerp)
-(put 'time-stamp-pattern 'safe-local-variable 'stringp)
-
-(autoload 'time-stamp "time-stamp" "\
-Update the time stamp string(s) in the buffer.
-A template in a file can be automatically updated with a new time stamp
-every time you save the file. Add this line to your init file:
- (add-hook 'before-save-hook 'time-stamp)
-or customize `before-save-hook' through Custom.
-Normally the template must appear in the first 8 lines of a file and
-look like one of the following:
- Time-stamp: <>
- Time-stamp: \" \"
-The time stamp is written between the brackets or quotes:
- Time-stamp: <2001-02-18 10:20:51 gildea>
-The time stamp is updated only if the variable `time-stamp-active' is non-nil.
-The format of the time stamp is set by the variable `time-stamp-pattern' or
-`time-stamp-format'. The variables `time-stamp-pattern',
-`time-stamp-line-limit', `time-stamp-start', `time-stamp-end',
-`time-stamp-count', and `time-stamp-inserts-lines' control finding
-the template.
-
-\(fn)" t nil)
-
-(autoload 'time-stamp-toggle-active "time-stamp" "\
-Toggle `time-stamp-active', setting whether \\[time-stamp] updates a buffer.
-With ARG, turn time stamping on if and only if arg is positive.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (timeclock-when-to-leave-string timeclock-workday-elapsed-string
-;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out
-;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in
-;;;;;; timeclock-mode-line-display) "timeclock" "calendar/timeclock.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from calendar/timeclock.el
-
-(autoload 'timeclock-mode-line-display "timeclock" "\
-Toggle display of the amount of time left today in the mode line.
-If `timeclock-use-display-time' is non-nil (the default), then
-the function `display-time-mode' must be active, and the mode line
-will be updated whenever the time display is updated. Otherwise,
-the timeclock will use its own sixty second timer to do its
-updating. With prefix ARG, turn mode line display on if and only
-if ARG is positive. Returns the new status of timeclock mode line
-display (non-nil means on).
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'timeclock-in "timeclock" "\
-Clock in, recording the current time moment in the timelog.
-With a numeric prefix ARG, record the fact that today has only that
-many hours in it to be worked. If ARG is a non-numeric prefix argument
-\(non-nil, but not a number), 0 is assumed (working on a holiday or
-weekend). *If not called interactively, ARG should be the number of
-_seconds_ worked today*. This feature only has effect the first time
-this function is called within a day.
-
-PROJECT is the project being clocked into. If PROJECT is nil, and
-FIND-PROJECT is non-nil -- or the user calls `timeclock-in'
-interactively -- call the function `timeclock-get-project-function' to
-discover the name of the project.
-
-\(fn &optional ARG PROJECT FIND-PROJECT)" t nil)
-
-(autoload 'timeclock-out "timeclock" "\
-Clock out, recording the current time moment in the timelog.
-If a prefix ARG is given, the user has completed the project that was
-begun during the last time segment.
-
-REASON is the user's reason for clocking out. If REASON is nil, and
-FIND-REASON is non-nil -- or the user calls `timeclock-out'
-interactively -- call the function `timeclock-get-reason-function' to
-discover the reason.
-
-\(fn &optional ARG REASON FIND-REASON)" t nil)
-
-(autoload 'timeclock-status-string "timeclock" "\
-Report the overall timeclock status at the present moment.
-If SHOW-SECONDS is non-nil, display second resolution.
-If TODAY-ONLY is non-nil, the display will be relative only to time
-worked today, ignoring the time worked on previous days.
-
-\(fn &optional SHOW-SECONDS TODAY-ONLY)" t nil)
-
-(autoload 'timeclock-change "timeclock" "\
-Change to working on a different project.
-This clocks out of the current project, then clocks in on a new one.
-With a prefix ARG, consider the previous project as finished at the
-time of changeover. PROJECT is the name of the last project you were
-working on.
-
-\(fn &optional ARG PROJECT)" t nil)
-
-(autoload 'timeclock-query-out "timeclock" "\
-Ask the user whether to clock out.
-This is a useful function for adding to `kill-emacs-query-functions'.
-
-\(fn)" nil nil)
-
-(autoload 'timeclock-reread-log "timeclock" "\
-Re-read the timeclock, to account for external changes.
-Returns the new value of `timeclock-discrepancy'.
-
-\(fn)" t nil)
-
-(autoload 'timeclock-workday-remaining-string "timeclock" "\
-Return a string representing the amount of time left today.
-Display second resolution if SHOW-SECONDS is non-nil. If TODAY-ONLY
-is non-nil, the display will be relative only to time worked today.
-See `timeclock-relative' for more information about the meaning of
-\"relative to today\".
-
-\(fn &optional SHOW-SECONDS TODAY-ONLY)" t nil)
-
-(autoload 'timeclock-workday-elapsed-string "timeclock" "\
-Return a string representing the amount of time worked today.
-Display seconds resolution if SHOW-SECONDS is non-nil. If RELATIVE is
-non-nil, the amount returned will be relative to past time worked.
-
-\(fn &optional SHOW-SECONDS)" t nil)
-
-(autoload 'timeclock-when-to-leave-string "timeclock" "\
-Return a string representing the end of today's workday.
-This string is relative to the value of `timeclock-workday'. If
-SHOW-SECONDS is non-nil, the value printed/returned will include
-seconds. If TODAY-ONLY is non-nil, the value returned will be
-relative only to the time worked today, and not to past time.
-
-\(fn &optional SHOW-SECONDS TODAY-ONLY)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv"
-;;;;;; "international/titdic-cnv.el" (20707 18685 911514 0))
-;;; Generated autoloads from international/titdic-cnv.el
-
-(autoload 'titdic-convert "titdic-cnv" "\
-Convert a TIT dictionary of FILENAME into a Quail package.
-Optional argument DIRNAME if specified is the directory name under which
-the generated Quail package is saved.
-
-\(fn FILENAME &optional DIRNAME)" t nil)
-
-(autoload 'batch-titdic-convert "titdic-cnv" "\
-Run `titdic-convert' on the files remaining on the command line.
-Use this from the command line, with `-batch';
-it won't work in an interactive Emacs.
-For example, invoke \"emacs -batch -f batch-titdic-convert XXX.tit\" to
- generate Quail package file \"xxx.el\" from TIT dictionary file \"XXX.tit\".
-To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\".
-
-\(fn &optional FORCE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm"
-;;;;;; "tmm.el" (20707 18685 911514 0))
-;;; Generated autoloads from tmm.el
- (define-key global-map "\M-`" 'tmm-menubar)
- (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse)
-
-(autoload 'tmm-menubar "tmm" "\
-Text-mode emulation of looking and choosing from a menubar.
-See the documentation for `tmm-prompt'.
-X-POSITION, if non-nil, specifies a horizontal position within the menu bar;
-we make that menu bar item (the one at that position) the default choice.
-
-\(fn &optional X-POSITION)" t nil)
-
-(autoload 'tmm-menubar-mouse "tmm" "\
-Text-mode emulation of looking and choosing from a menubar.
-This command is used when you click the mouse in the menubar
-on a console which has no window system but does have a mouse.
-See the documentation for `tmm-prompt'.
-
-\(fn EVENT)" t nil)
-
-(autoload 'tmm-prompt "tmm" "\
-Text-mode emulation of calling the bindings in keymap.
-Creates a text-mode menu of possible choices. You can access the elements
-in the menu in two ways:
- *) via history mechanism from minibuffer;
- *) Or via completion-buffer that is automatically shown.
-The last alternative is currently a hack, you cannot use mouse reliably.
-
-MENU is like the MENU argument to `x-popup-menu': either a
-keymap or an alist of alists.
-DEFAULT-ITEM, if non-nil, specifies an initial default choice.
-Its value should be an event that has a binding in MENU.
-
-\(fn MENU &optional IN-POPUP DEFAULT-ITEM)" nil nil)
-
-;;;***
-\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" (20707 18685 911514 0))
-;;; Generated autoloads from calendar/todo-mode.el
-
-(autoload 'todo-add-category "todo-mode" "\
-Add new category CAT to the TODO list.
-
-\(fn &optional CAT)" t nil)
-
-(autoload 'todo-add-item-non-interactively "todo-mode" "\
-Insert NEW-ITEM in TODO list as a new entry in CATEGORY.
-
-\(fn NEW-ITEM CATEGORY)" nil nil)
-
-(autoload 'todo-insert-item "todo-mode" "\
-Insert new TODO list entry.
-With a prefix argument ARG solicit the category, otherwise use the current
-category.
-
-\(fn ARG)" t nil)
-
-(autoload 'todo-top-priorities "todo-mode" "\
-List top priorities for each category.
-
-Number of entries for each category is given by NOF-PRIORITIES which
-defaults to `todo-show-priorities'.
-
-If CATEGORY-PR-PAGE is non-nil, a page separator '^L' is inserted
-between each category.
-INTERACTIVE should be non-nil if this function is called interactively.
-
-\(fn &optional NOF-PRIORITIES CATEGORY-PR-PAGE INTERACTIVE)" t nil)
-
-(autoload 'todo-print "todo-mode" "\
-Print todo summary using `todo-print-function'.
-If CATEGORY-PR-PAGE is non-nil, a page separator `^L' is inserted
-between each category.
-
-Number of entries for each category is given by `todo-print-priorities'.
-
-\(fn &optional CATEGORY-PR-PAGE)" t nil)
-
-(autoload 'todo-mode "todo-mode" "\
-Major mode for editing TODO lists.
-
-\(fn)" t nil)
-
-(autoload 'todo-cp "todo-mode" "\
-Make a diary entry appear only in the current date's diary.
-
-\(fn)" nil nil)
-
-(autoload 'todo-show "todo-mode" "\
-Show TODO list.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu
-;;;;;; tool-bar-local-item tool-bar-add-item toggle-tool-bar-mode-from-frame)
-;;;;;; "tool-bar" "tool-bar.el" (20707 18685 911514 0))
-;;; Generated autoloads from tool-bar.el
-
-(autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\
-Toggle tool bar on or off, based on the status of the current frame.
-See `tool-bar-mode' for more information.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'tool-bar-add-item "tool-bar" "\
-Add an item to the tool bar.
-ICON names the image, DEF is the key definition and KEY is a symbol
-for the fake function key in the menu keymap. Remaining arguments
-PROPS are additional items to add to the menu item specification. See
-Info node `(elisp)Tool Bar'. Items are added from left to right.
-
-ICON is the base name of a file containing the image to use. The
-function will first try to use low-color/ICON.xpm if `display-color-cells'
-is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
-ICON.xbm, using `find-image'.
-
-Use this function only to make bindings in the global value of `tool-bar-map'.
-To define items in any other map, use `tool-bar-local-item'.
-
-\(fn ICON DEF KEY &rest PROPS)" nil nil)
-
-(autoload 'tool-bar-local-item "tool-bar" "\
-Add an item to the tool bar in map MAP.
-ICON names the image, DEF is the key definition and KEY is a symbol
-for the fake function key in the menu keymap. Remaining arguments
-PROPS are additional items to add to the menu item specification. See
-Info node `(elisp)Tool Bar'. Items are added from left to right.
-
-ICON is the base name of a file containing the image to use. The
-function will first try to use low-color/ICON.xpm if `display-color-cells'
-is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
-ICON.xbm, using `find-image'.
-
-\(fn ICON DEF KEY MAP &rest PROPS)" nil nil)
-
-(autoload 'tool-bar-add-item-from-menu "tool-bar" "\
-Define tool bar binding for COMMAND in keymap MAP using the given ICON.
-This makes a binding for COMMAND in `tool-bar-map', copying its
-binding from the menu bar in MAP (which defaults to `global-map'), but
-modifies the binding by adding an image specification for ICON. It
-finds ICON just like `tool-bar-add-item'. PROPS are additional
-properties to add to the binding.
-
-MAP must contain appropriate binding for `[menu-bar]' which holds a keymap.
-
-Use this function only to make bindings in the global value of `tool-bar-map'.
-To define items in any other map, use `tool-bar-local-item-from-menu'.
-
-\(fn COMMAND ICON &optional MAP &rest PROPS)" nil nil)
-
-(autoload 'tool-bar-local-item-from-menu "tool-bar" "\
-Define local tool bar binding for COMMAND using the given ICON.
-This makes a binding for COMMAND in IN-MAP, copying its binding from
-the menu bar in FROM-MAP (which defaults to `global-map'), but
-modifies the binding by adding an image specification for ICON. It
-finds ICON just like `tool-bar-add-item'. PROPS are additional
-properties to add to the binding.
-
-FROM-MAP must contain appropriate binding for `[menu-bar]' which
-holds a keymap.
-
-\(fn COMMAND ICON IN-MAP &optional FROM-MAP &rest PROPS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emulation/tpu-edt.el
-
-(defvar tpu-edt-mode nil "\
-Non-nil if Tpu-Edt mode is enabled.
-See the command `tpu-edt-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `tpu-edt-mode'.")
-
-(custom-autoload 'tpu-edt-mode "tpu-edt" nil)
-
-(autoload 'tpu-edt-mode "tpu-edt" "\
-Toggle TPU/edt emulation on or off.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-(defalias 'tpu-edt 'tpu-edt-on)
-
-(autoload 'tpu-edt-on "tpu-edt" "\
-Turn on TPU/edt emulation.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tpu-mapper) "tpu-mapper" "emulation/tpu-mapper.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emulation/tpu-mapper.el
-
-(autoload 'tpu-mapper "tpu-mapper" "\
-Create an Emacs lisp file defining the TPU-edt keypad for X-windows.
-
-This command displays an instruction screen showing the TPU-edt keypad
-and asks you to press the TPU-edt editing keys. It uses the keys you
-press to create an Emacs Lisp file that will define a TPU-edt keypad
-for your X server. You can even re-arrange the standard EDT keypad to
-suit your tastes (or to cope with those silly Sun and PC keypads).
-
-Finally, you will be prompted for the name of the file to store the key
-definitions. If you chose the default, TPU-edt will find it and load it
-automatically. If you specify a different file name, you will need to
-set the variable ``tpu-xkeys-file'' before starting TPU-edt. Here's how
-you might go about doing that in your init file.
-
- (setq tpu-xkeys-file (expand-file-name \"~/.my-emacs-x-keys\"))
- (tpu-edt)
-
-Known Problems:
-
-Sometimes, tpu-mapper will ignore a key you press, and just continue to
-prompt for the same key. This can happen when your window manager sucks
-up the key and doesn't pass it on to Emacs, or it could be an Emacs bug.
-Either way, there's nothing that tpu-mapper can do about it. You must
-press RETURN, to skip the current key and continue. Later, you and/or
-your local X guru can try to figure out why the key is being ignored.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from emacs-lisp/tq.el
-
-(autoload 'tq-create "tq" "\
-Create and return a transaction queue communicating with PROCESS.
-PROCESS should be a subprocess capable of sending and receiving
-streams of bytes. It may be a local process, or it may be connected
-to a tcp server on another machine.
-
-\(fn PROCESS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (trace-function-background trace-function trace-buffer)
-;;;;;; "trace" "emacs-lisp/trace.el" (20716 60089 50197 777000))
-;;; Generated autoloads from emacs-lisp/trace.el
-
-(defvar trace-buffer (purecopy "*trace-output*") "\
-Trace output will by default go to that buffer.")
-
-(custom-autoload 'trace-buffer "trace" t)
-
-(autoload 'trace-function "trace" "\
-Traces FUNCTION with trace output going to BUFFER.
-For every call of FUNCTION Lisp-style trace messages that display argument
-and return values will be inserted into BUFFER. This function generates the
-trace advice for FUNCTION and activates it together with any other advice
-there might be!! The trace BUFFER will popup whenever FUNCTION is called.
-Do not use this to trace functions that switch buffers or do any other
-display oriented stuff, use `trace-function-background' instead.
-
-To untrace a function, use `untrace-function' or `untrace-all'.
-
-\(fn FUNCTION &optional BUFFER)" t nil)
-
-(autoload 'trace-function-background "trace" "\
-Traces FUNCTION with trace output going quietly to BUFFER.
-When this tracing is enabled, every call to FUNCTION writes
-a Lisp-style trace message (showing the arguments and return value)
-into BUFFER. This function generates advice to trace FUNCTION
-and activates it together with any other advice there might be.
-The trace output goes to BUFFER quietly, without changing
-the window or buffer configuration.
-
-BUFFER defaults to `trace-buffer'.
-
-To untrace a function, use `untrace-function' or `untrace-all'.
-
-\(fn FUNCTION &optional BUFFER)" t nil)
-
-;;;***
-\f
-;;;### (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-syntax tramp-mode) "tramp"
-;;;;;; "net/tramp.el" (20773 47373 975742 0))
-;;; Generated autoloads from net/tramp.el
-
-(defvar tramp-mode t "\
-Whether Tramp is enabled.
-If it is set to nil, all remote file names are used literally.")
-
-(custom-autoload 'tramp-mode "tramp" t)
-
-(defvar tramp-syntax (if (featurep 'xemacs) 'sep 'ftp) "\
-Tramp filename syntax to be used.
-
-It can have the following values:
-
- 'ftp -- Ange-FTP respective EFS like syntax (GNU Emacs default)
- 'sep -- Syntax as defined for XEmacs (not available yet for GNU Emacs)
- 'url -- URL-like syntax.")
-
-(custom-autoload 'tramp-syntax "tramp" t)
-
-(defconst tramp-file-name-regexp-unified (if (memq system-type '(cygwin windows-nt)) "\\`/\\([^[/|:]\\{2,\\}\\|[^/|]\\{2,\\}]\\):" "\\`/\\([^[/|:]+\\|[^/|]+]\\):") "\
-Value for `tramp-file-name-regexp' for unified remoting.
-Emacs (not XEmacs) uses a unified filename syntax for Ange-FTP and
-Tramp. See `tramp-file-name-structure' for more explanations.
-
-On W32 systems, the volume letter must be ignored.")
-
-(defconst tramp-file-name-regexp-separate "\\`/\\[.*\\]" "\
-Value for `tramp-file-name-regexp' for separate remoting.
-XEmacs uses a separate filename syntax for Tramp and EFS.
-See `tramp-file-name-structure' for more explanations.")
-
-(defconst tramp-file-name-regexp-url "\\`/[^/|:]+://" "\
-Value for `tramp-file-name-regexp' for URL-like remoting.
-See `tramp-file-name-structure' for more explanations.")
-
-(defconst tramp-file-name-regexp (cond ((equal tramp-syntax 'ftp) tramp-file-name-regexp-unified) ((equal tramp-syntax 'sep) tramp-file-name-regexp-separate) ((equal tramp-syntax 'url) tramp-file-name-regexp-url) (t (error "Wrong `tramp-syntax' defined"))) "\
-Regular expression matching file names handled by Tramp.
-This regexp should match Tramp file names but no other file names.
-When tramp.el is loaded, this regular expression is prepended to
-`file-name-handler-alist', and that is searched sequentially. Thus,
-if the Tramp entry appears rather early in the `file-name-handler-alist'
-and is a bit too general, then some files might be considered Tramp
-files which are not really Tramp files.
-
-Please note that the entry in `file-name-handler-alist' is made when
-this file (tramp.el) is loaded. This means that this variable must be set
-before loading tramp.el. Alternatively, `file-name-handler-alist' can be
-updated after changing this variable.
-
-Also see `tramp-file-name-structure'.")
-
-(defconst tramp-completion-file-name-regexp-unified (if (memq system-type '(cygwin windows-nt)) "\\`/[^/]\\{2,\\}\\'" "\\`/[^/]*\\'") "\
-Value for `tramp-completion-file-name-regexp' for unified remoting.
-GNU Emacs uses a unified filename syntax for Tramp and Ange-FTP.
-See `tramp-file-name-structure' for more explanations.
-
-On W32 systems, the volume letter must be ignored.")
-
-(defconst tramp-completion-file-name-regexp-separate "\\`/\\([[][^]]*\\)?\\'" "\
-Value for `tramp-completion-file-name-regexp' for separate remoting.
-XEmacs uses a separate filename syntax for Tramp and EFS.
-See `tramp-file-name-structure' for more explanations.")
-
-(defconst tramp-completion-file-name-regexp-url "\\`/[^/:]+\\(:\\(/\\(/[^/]*\\)?\\)?\\)?\\'" "\
-Value for `tramp-completion-file-name-regexp' for URL-like remoting.
-See `tramp-file-name-structure' for more explanations.")
-
-(defconst tramp-completion-file-name-regexp (cond ((equal tramp-syntax 'ftp) tramp-completion-file-name-regexp-unified) ((equal tramp-syntax 'sep) tramp-completion-file-name-regexp-separate) ((equal tramp-syntax 'url) tramp-completion-file-name-regexp-url) (t (error "Wrong `tramp-syntax' defined"))) "\
-Regular expression matching file names handled by Tramp completion.
-This regexp should match partial Tramp file names only.
-
-Please note that the entry in `file-name-handler-alist' is made when
-this file (tramp.el) is loaded. This means that this variable must be set
-before loading tramp.el. Alternatively, `file-name-handler-alist' can be
-updated after changing this variable.
-
-Also see `tramp-file-name-structure'.")
-
-(defconst tramp-completion-file-name-handler-alist '((file-name-all-completions . tramp-completion-handle-file-name-all-completions) (file-name-completion . tramp-completion-handle-file-name-completion)) "\
-Alist of completion handler functions.
-Used for file names matching `tramp-file-name-regexp'. Operations
-not mentioned here will be handled by Tramp's file name handler
-functions, or the normal Emacs functions.")
-
-(defun tramp-run-real-handler (operation args) "\
-Invoke normal file name handler for OPERATION.
-First arg specifies the OPERATION, second arg is a list of arguments to
-pass to the OPERATION." (let* ((inhibit-file-name-handlers (\` (tramp-file-name-handler tramp-vc-file-name-handler tramp-completion-file-name-handler cygwin-mount-name-hook-function cygwin-mount-map-drive-hook-function \, (and (eq inhibit-file-name-operation operation) inhibit-file-name-handlers)))) (inhibit-file-name-operation operation)) (apply operation args)))
-
-(defun tramp-completion-run-real-handler (operation args) "\
-Invoke `tramp-file-name-handler' for OPERATION.
-First arg specifies the OPERATION, second arg is a list of arguments to
-pass to the OPERATION." (let* ((inhibit-file-name-handlers (\` (tramp-completion-file-name-handler cygwin-mount-name-hook-function cygwin-mount-map-drive-hook-function \, (and (eq inhibit-file-name-operation operation) inhibit-file-name-handlers)))) (inhibit-file-name-operation operation)) (apply operation args)))
-
-(autoload 'tramp-file-name-handler "tramp" "\
-Invoke Tramp file name handler.
-Falls back to normal file name handler if no Tramp file name handler exists.
-
-\(fn OPERATION &rest ARGS)" nil nil)
-
-(defun tramp-completion-file-name-handler (operation &rest args) "\
-Invoke Tramp file name completion handler.
-Falls back to normal file name handler if no Tramp file name handler exists." (let ((directory-sep-char 47) (fn (assoc operation tramp-completion-file-name-handler-alist))) (if (and fn tramp-mode (or (eq tramp-syntax (quote sep)) (featurep (quote tramp)) (and (boundp (quote partial-completion-mode)) (symbol-value (quote partial-completion-mode))) (featurep (quote ido)) (featurep (quote icicles)))) (save-match-data (apply (cdr fn) args)) (tramp-completion-run-real-handler operation args))))
-
-(defun tramp-register-file-name-handlers nil "\
-Add Tramp file name handlers to `file-name-handler-alist'." (let ((a1 (rassq (quote tramp-file-name-handler) file-name-handler-alist))) (setq file-name-handler-alist (delq a1 file-name-handler-alist))) (let ((a1 (rassq (quote tramp-completion-file-name-handler) file-name-handler-alist))) (setq file-name-handler-alist (delq a1 file-name-handler-alist))) (add-to-list (quote file-name-handler-alist) (cons tramp-file-name-regexp (quote tramp-file-name-handler))) (put (quote tramp-file-name-handler) (quote safe-magic) t) (add-to-list (quote file-name-handler-alist) (cons tramp-completion-file-name-regexp (quote tramp-completion-file-name-handler))) (put (quote tramp-completion-file-name-handler) (quote safe-magic) t) (dolist (fnh (quote (epa-file-handler jka-compr-handler))) (let ((entry (rassoc fnh file-name-handler-alist))) (when entry (setq file-name-handler-alist (cons entry (delete entry file-name-handler-alist)))))))
-
-(tramp-register-file-name-handlers)
-
-(autoload 'tramp-unload-file-name-handlers "tramp" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'tramp-completion-handle-file-name-all-completions "tramp" "\
-Like `file-name-all-completions' for partial Tramp files.
-
-\(fn FILENAME DIRECTORY)" nil nil)
-
-(autoload 'tramp-completion-handle-file-name-completion "tramp" "\
-Like `file-name-completion' for Tramp files.
-
-\(fn FILENAME DIRECTORY &optional PREDICATE)" nil nil)
-
-(autoload 'tramp-unload-tramp "tramp" "\
-Discard Tramp from loading remote files.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from net/tramp-ftp.el
-
-(autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\
-
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from tutorial.el
-
-(autoload 'help-with-tutorial "tutorial" "\
-Select the Emacs learn-by-doing tutorial.
-If there is a tutorial version written in the language
-of the selected language environment, that version is used.
-If there's no tutorial in that language, `TUTORIAL' is selected.
-With ARG, you are asked to choose which language.
-If DONT-ASK-FOR-REVERT is non-nil the buffer is reverted without
-any question when restarting the tutorial.
-
-If any of the standard Emacs key bindings that are used in the
-tutorial have been changed then an explanatory note about this is
-shown in the beginning of the tutorial buffer.
-
-When the tutorial buffer is killed the content and the point
-position in the buffer is saved so that the tutorial may be
-resumed later.
-
-\(fn &optional ARG DONT-ASK-FOR-REVERT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tai-viet-composition-function) "tv-util" "language/tv-util.el"
-;;;;;; (20360 54279 565993 0))
-;;; Generated autoloads from language/tv-util.el
-
-(autoload 'tai-viet-composition-function "tv-util" "\
-
-
-\(fn FROM TO FONT-OBJECT STRING)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column"
-;;;;;; "textmodes/two-column.el" (20763 5110 492774 0))
-;;; Generated autoloads from textmodes/two-column.el
- (autoload '2C-command "two-column" () t 'keymap)
- (global-set-key "\C-x6" '2C-command)
- (global-set-key [f2] '2C-command)
-
-(autoload '2C-two-columns "two-column" "\
-Split current window vertically for two-column editing.
-\\<global-map>When called the first time, associates a buffer with the current
-buffer in two-column minor mode (use \\[describe-mode] once in the mode,
-for details.). It runs `2C-other-buffer-hook' in the new buffer.
-When called again, restores the screen layout with the current buffer
-first and the associated buffer to its right.
-
-\(fn &optional BUFFER)" t nil)
-
-(autoload '2C-associate-buffer "two-column" "\
-Associate another buffer with this one in two-column minor mode.
-Can also be used to associate a just previously visited file, by
-accepting the proposed default buffer.
-
-\(See \\[describe-mode] .)
-
-\(fn)" t nil)
-
-(autoload '2C-split "two-column" "\
-Split a two-column text at point, into two buffers in two-column minor mode.
-Point becomes the local value of `2C-window-width'. Only lines that
-have the ARG same preceding characters at that column get split. The
-ARG preceding characters without any leading whitespace become the local
-value for `2C-separator'. This way lines that continue across both
-columns remain untouched in the first buffer.
-
-This function can be used with a prototype line, to set up things. You
-write the first line of each column and then split that line. E.g.:
-
-First column's text sSs Second column's text
- \\___/\\
- / \\
- 5 character Separator You type M-5 \\[2C-split] with the point here.
-
-\(See \\[describe-mode] .)
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (type-break-guesstimate-keystroke-threshold type-break-statistics
-;;;;;; type-break type-break-mode) "type-break" "type-break.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from type-break.el
-
-(defvar type-break-mode nil "\
-Non-nil if Type-Break mode is enabled.
-See the command `type-break-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `type-break-mode'.")
-
-(custom-autoload 'type-break-mode "type-break" nil)
-
-(autoload 'type-break-mode "type-break" "\
-Enable or disable typing-break mode.
-This is a minor mode, but it is global to all buffers by default.
-
-When this mode is enabled, the user is encouraged to take typing breaks at
-appropriate intervals; either after a specified amount of time or when the
-user has exceeded a keystroke threshold. When the time arrives, the user
-is asked to take a break. If the user refuses at that time, Emacs will ask
-again in a short period of time. The idea is to give the user enough time
-to find a good breaking point in his or her work, but be sufficiently
-annoying to discourage putting typing breaks off indefinitely.
-
-A negative prefix argument disables this mode.
-No argument or any non-negative argument enables it.
-
-The user may enable or disable this mode by setting the variable of the
-same name, though setting it in that way doesn't reschedule a break or
-reset the keystroke counter.
-
-If the mode was previously disabled and is enabled as a consequence of
-calling this function, it schedules a break with `type-break-schedule' to
-make sure one occurs (the user can call that command to reschedule the
-break at any time). It also initializes the keystroke counter.
-
-The variable `type-break-interval' specifies the number of seconds to
-schedule between regular typing breaks. This variable doesn't directly
-affect the time schedule; it simply provides a default for the
-`type-break-schedule' command.
-
-If set, the variable `type-break-good-rest-interval' specifies the minimum
-amount of time which is considered a reasonable typing break. Whenever
-that time has elapsed, typing breaks are automatically rescheduled for
-later even if Emacs didn't prompt you to take one first. Also, if a break
-is ended before this much time has elapsed, the user will be asked whether
-or not to continue. A nil value for this variable prevents automatic
-break rescheduling, making `type-break-interval' an upper bound on the time
-between breaks. In this case breaks will be prompted for as usual before
-the upper bound if the keystroke threshold is reached.
-
-If `type-break-good-rest-interval' is nil and
-`type-break-good-break-interval' is set, then confirmation is required to
-interrupt a break before `type-break-good-break-interval' seconds
-have passed. This provides for an upper bound on the time between breaks
-together with confirmation of interruptions to these breaks.
-
-The variable `type-break-keystroke-threshold' is used to determine the
-thresholds at which typing breaks should be considered. You can use
-the command `type-break-guesstimate-keystroke-threshold' to try to
-approximate good values for this.
-
-There are several variables that affect how or when warning messages about
-imminent typing breaks are displayed. They include:
-
- `type-break-mode-line-message-mode'
- `type-break-time-warning-intervals'
- `type-break-keystroke-warning-intervals'
- `type-break-warning-repeat'
- `type-break-warning-countdown-string'
- `type-break-warning-countdown-string-type'
-
-There are several variables that affect if, how, and when queries to begin
-a typing break occur. They include:
-
- `type-break-query-mode'
- `type-break-query-function'
- `type-break-query-interval'
-
-The command `type-break-statistics' prints interesting things.
-
-Finally, a file (named `type-break-file-name') is used to store information
-across Emacs sessions. This provides recovery of the break status between
-sessions and after a crash. Manual changes to the file may result in
-problems.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'type-break "type-break" "\
-Take a typing break.
-
-During the break, a demo selected from the functions listed in
-`type-break-demo-functions' is run.
-
-After the typing break is finished, the next break is scheduled
-as per the function `type-break-schedule'.
-
-\(fn)" t nil)
-
-(autoload 'type-break-statistics "type-break" "\
-Print statistics about typing breaks in a temporary buffer.
-This includes the last time a typing break was taken, when the next one is
-scheduled, the keystroke thresholds and the current keystroke count, etc.
-
-\(fn)" t nil)
-
-(autoload 'type-break-guesstimate-keystroke-threshold "type-break" "\
-Guess values for the minimum/maximum keystroke threshold for typing breaks.
-
-If called interactively, the user is prompted for their guess as to how
-many words per minute they usually type. This value should not be your
-maximum WPM, but your average. Of course, this is harder to gauge since it
-can vary considerably depending on what you are doing. For example, one
-tends to type less when debugging a program as opposed to writing
-documentation. (Perhaps a separate program should be written to estimate
-average typing speed.)
-
-From that, this command sets the values in `type-break-keystroke-threshold'
-based on a fairly simple algorithm involving assumptions about the average
-length of words (5). For the minimum threshold, it uses about a fifth of
-the computed maximum threshold.
-
-When called from Lisp programs, the optional args WORDLEN and FRAC can be
-used to override the default assumption about average word length and the
-fraction of the maximum threshold to which to set the minimum threshold.
-FRAC should be the inverse of the fractional value; for example, a value of
-2 would mean to use one half, a value of 4 would mean to use one quarter, etc.
-
-\(fn WPM &optional WORDLEN FRAC)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (uce-reply-to-uce) "uce" "mail/uce.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from mail/uce.el
-
-(autoload 'uce-reply-to-uce "uce" "\
-Compose a reply to unsolicited commercial email (UCE).
-Sets up a reply buffer addressed to: the sender, his postmaster,
-his abuse@ address, and the postmaster of the mail relay used.
-You might need to set `uce-mail-reader' before using this.
-
-\(fn &optional IGNORED)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ucs-normalize-HFS-NFC-string ucs-normalize-HFS-NFC-region
-;;;;;; ucs-normalize-HFS-NFD-string ucs-normalize-HFS-NFD-region
-;;;;;; ucs-normalize-NFKC-string ucs-normalize-NFKC-region ucs-normalize-NFKD-string
-;;;;;; ucs-normalize-NFKD-region ucs-normalize-NFC-string ucs-normalize-NFC-region
-;;;;;; ucs-normalize-NFD-string ucs-normalize-NFD-region) "ucs-normalize"
-;;;;;; "international/ucs-normalize.el" (20707 18685 911514 0))
-;;; Generated autoloads from international/ucs-normalize.el
-
-(autoload 'ucs-normalize-NFD-region "ucs-normalize" "\
-Normalize the current region by the Unicode NFD.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ucs-normalize-NFD-string "ucs-normalize" "\
-Normalize the string STR by the Unicode NFD.
-
-\(fn STR)" nil nil)
-
-(autoload 'ucs-normalize-NFC-region "ucs-normalize" "\
-Normalize the current region by the Unicode NFC.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ucs-normalize-NFC-string "ucs-normalize" "\
-Normalize the string STR by the Unicode NFC.
-
-\(fn STR)" nil nil)
-
-(autoload 'ucs-normalize-NFKD-region "ucs-normalize" "\
-Normalize the current region by the Unicode NFKD.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ucs-normalize-NFKD-string "ucs-normalize" "\
-Normalize the string STR by the Unicode NFKD.
-
-\(fn STR)" nil nil)
-
-(autoload 'ucs-normalize-NFKC-region "ucs-normalize" "\
-Normalize the current region by the Unicode NFKC.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ucs-normalize-NFKC-string "ucs-normalize" "\
-Normalize the string STR by the Unicode NFKC.
-
-\(fn STR)" nil nil)
-
-(autoload 'ucs-normalize-HFS-NFD-region "ucs-normalize" "\
-Normalize the current region by the Unicode NFD and Mac OS's HFS Plus.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ucs-normalize-HFS-NFD-string "ucs-normalize" "\
-Normalize the string STR by the Unicode NFD and Mac OS's HFS Plus.
-
-\(fn STR)" nil nil)
-
-(autoload 'ucs-normalize-HFS-NFC-region "ucs-normalize" "\
-Normalize the current region by the Unicode NFC and Mac OS's HFS Plus.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'ucs-normalize-HFS-NFC-string "ucs-normalize" "\
-Normalize the string STR by the Unicode NFC and Mac OS's HFS Plus.
-
-\(fn STR)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (ununderline-region underline-region) "underline"
-;;;;;; "textmodes/underline.el" (20707 18685 911514 0))
-;;; Generated autoloads from textmodes/underline.el
-
-(autoload 'underline-region "underline" "\
-Underline all nonblank characters in the region.
-Works by overstriking underscores.
-Called from program, takes two arguments START and END
-which specify the range to operate on.
-
-\(fn START END)" t nil)
-
-(autoload 'ununderline-region "underline" "\
-Remove all underlining (overstruck underscores) in the region.
-Called from program, takes two arguments START and END
-which specify the range to operate on.
-
-\(fn START END)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mail/unrmail.el
-
-(autoload 'batch-unrmail "unrmail" "\
-Convert old-style Rmail Babyl files to system inbox format.
-Specify the input Rmail Babyl file names as command line arguments.
-For each Rmail file, the corresponding output file name
-is made by adding `.mail' at the end.
-For example, invoke `emacs -batch -f batch-unrmail RMAIL'.
-
-\(fn)" nil nil)
-
-(autoload 'unrmail "unrmail" "\
-Convert old-style Rmail Babyl file FILE to system inbox format file TO-FILE.
-
-\(fn FILE TO-FILE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/unsafep.el
-
-(autoload 'unsafep "unsafep" "\
-Return nil if evaluating FORM couldn't possibly do any harm.
-Otherwise result is a reason why FORM is unsafe.
-UNSAFEP-VARS is a list of symbols with local bindings.
-
-\(fn FORM &optional UNSAFEP-VARS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url"
-;;;;;; "url/url.el" (20707 18685 911514 0))
-;;; Generated autoloads from url/url.el
-
-(autoload 'url-retrieve "url" "\
-Retrieve URL asynchronously and call CALLBACK with CBARGS when finished.
-URL is either a string or a parsed URL. If it is a string
-containing characters that are not valid in a URI, those
-characters are percent-encoded; see `url-encode-url'.
-
-CALLBACK is called when the object has been completely retrieved, with
-the current buffer containing the object, and any MIME headers associated
-with it. It is called as (apply CALLBACK STATUS CBARGS).
-STATUS is a plist representing what happened during the request,
-with most recent events first, or an empty list if no events have
-occurred. Each pair is one of:
-
-\(:redirect REDIRECTED-TO) - the request was redirected to this URL
-\(:error (ERROR-SYMBOL . DATA)) - an error occurred. The error can be
-signaled with (signal ERROR-SYMBOL DATA).
-
-Return the buffer URL will load into, or nil if the process has
-already completed (i.e. URL was a mailto URL or similar; in this case
-the callback is not called).
-
-The variables `url-request-data', `url-request-method' and
-`url-request-extra-headers' can be dynamically bound around the
-request; dynamic binding of other variables doesn't necessarily
-take effect.
-
-If SILENT, then don't message progress reports and the like.
-If INHIBIT-COOKIES, cookies will neither be stored nor sent to
-the server.
-If URL is a multibyte string, it will be encoded as utf-8 and
-URL-encoded before it's used.
-
-\(fn URL CALLBACK &optional CBARGS SILENT INHIBIT-COOKIES)" nil nil)
-
-(autoload 'url-retrieve-synchronously "url" "\
-Retrieve URL synchronously.
-Return the buffer containing the data, or nil if there are no data
-associated with it (the case for dired, info, or mailto URLs that need
-no further processing). URL is either a string or a parsed URL.
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-register-auth-scheme url-get-authentication)
-;;;;;; "url-auth" "url/url-auth.el" (20707 18685 911514 0))
-;;; Generated autoloads from url/url-auth.el
-
-(autoload 'url-get-authentication "url-auth" "\
-Return an authorization string suitable for use in the WWW-Authenticate
-header in an HTTP/1.0 request.
-
-URL is the url you are requesting authorization to. This can be either a
- string representing the URL, or the parsed representation returned by
- `url-generic-parse-url'
-REALM is the realm at a specific site we are looking for. This should be a
- string specifying the exact realm, or nil or the symbol 'any' to
- specify that the filename portion of the URL should be used as the
- realm
-TYPE is the type of authentication to be returned. This is either a string
- representing the type (basic, digest, etc), or nil or the symbol 'any'
- to specify that any authentication is acceptable. If requesting 'any'
- the strongest matching authentication will be returned. If this is
- wrong, it's no big deal, the error from the server will specify exactly
- what type of auth to use
-PROMPT is boolean - specifies whether to ask the user for a username/password
- if one cannot be found in the cache
-
-\(fn URL REALM TYPE PROMPT &optional ARGS)" nil nil)
-
-(autoload 'url-register-auth-scheme "url-auth" "\
-Register an HTTP authentication method.
-
-TYPE is a string or symbol specifying the name of the method.
- This should be the same thing you expect to get returned in
- an Authenticate header in HTTP/1.0 - it will be downcased.
-FUNCTION is the function to call to get the authorization information.
- This defaults to `url-?-auth', where ? is TYPE.
-RATING a rating between 1 and 10 of the strength of the authentication.
- This is used when asking for the best authentication for a specific
- URL. The item with the highest rating is returned.
-
-\(fn TYPE &optional FUNCTION RATING)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-cache-extract url-is-cached url-store-in-cache)
-;;;;;; "url-cache" "url/url-cache.el" (20707 18685 911514 0))
-;;; Generated autoloads from url/url-cache.el
-
-(autoload 'url-store-in-cache "url-cache" "\
-Store buffer BUFF in the cache.
-
-\(fn &optional BUFF)" nil nil)
-
-(autoload 'url-is-cached "url-cache" "\
-Return non-nil if the URL is cached.
-The actual return value is the last modification time of the cache file.
-
-\(fn URL)" nil nil)
-
-(autoload 'url-cache-extract "url-cache" "\
-Extract FNAM from the local disk cache.
-
-\(fn FNAM)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from url/url-cid.el
-
-(autoload 'url-cid "url-cid" "\
-
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-dav-vc-registered url-dav-request url-dav-supported-p)
-;;;;;; "url-dav" "url/url-dav.el" (20707 18685 911514 0))
-;;; Generated autoloads from url/url-dav.el
-
-(autoload 'url-dav-supported-p "url-dav" "\
-Return WebDAV protocol version supported by URL.
-Returns nil if WebDAV is not supported.
-
-\(fn URL)" nil nil)
-
-(autoload 'url-dav-request "url-dav" "\
-Perform WebDAV operation METHOD on URL. Return the parsed responses.
-Automatically creates an XML request body if TAG is non-nil.
-BODY is the XML document fragment to be enclosed by <TAG></TAG>.
-
-DEPTH is how deep the request should propagate. Default is 0, meaning
-it should apply only to URL. A negative number means to use
-`Infinity' for the depth. Not all WebDAV servers support this depth
-though.
-
-HEADERS is an assoc list of extra headers to send in the request.
-
-NAMESPACES is an assoc list of (NAMESPACE . EXPANSION), and these are
-added to the <TAG> element. The DAV=DAV: namespace is automatically
-added to this list, so most requests can just pass in nil.
-
-\(fn URL METHOD TAG BODY &optional DEPTH HEADERS NAMESPACES)" nil nil)
-
-(autoload 'url-dav-vc-registered "url-dav" "\
-
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-file) "url-file" "url/url-file.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from url/url-file.el
-
-(autoload 'url-file "url-file" "\
-Handle file: and ftp: URLs.
-
-\(fn URL CALLBACK CBARGS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw"
-;;;;;; "url/url-gw.el" (20707 18685 911514 0))
-;;; Generated autoloads from url/url-gw.el
-
-(autoload 'url-gateway-nslookup-host "url-gw" "\
-Attempt to resolve the given HOST using nslookup if possible.
-
-\(fn HOST)" t nil)
-
-(autoload 'url-open-stream "url-gw" "\
-Open a stream to HOST, possibly via a gateway.
-Args per `open-network-stream'.
-Will not make a connection if `url-gateway-unplugged' is non-nil.
-Might do a non-blocking connection; use `process-status' to check.
-
-\(fn NAME BUFFER HOST SERVICE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file
-;;;;;; url-file-handler url-handler-mode) "url-handlers" "url/url-handlers.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from url/url-handlers.el
-
-(defvar url-handler-mode nil "\
-Non-nil if Url-Handler mode is enabled.
-See the command `url-handler-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `url-handler-mode'.")
-
-(custom-autoload 'url-handler-mode "url-handlers" nil)
-
-(autoload 'url-handler-mode "url-handlers" "\
-Toggle using `url' library for URL filenames (URL Handler mode).
-With a prefix argument ARG, enable URL Handler mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'url-file-handler "url-handlers" "\
-Function called from the `file-name-handler-alist' routines.
-OPERATION is what needs to be done (`file-exists-p', etc). ARGS are
-the arguments that would have been passed to OPERATION.
-
-\(fn OPERATION &rest ARGS)" nil nil)
-
-(autoload 'url-copy-file "url-handlers" "\
-Copy URL to NEWNAME. Both args must be strings.
-Signals a `file-already-exists' error if file NEWNAME already exists,
-unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.
-A number as third arg means request confirmation if NEWNAME already exists.
-This is what happens in interactive use with M-x.
-Fourth arg KEEP-TIME non-nil means give the new file the same
-last-modified time as the old one. (This works on only some systems.)
-Fifth arg PRESERVE-UID-GID is ignored.
-A prefix arg makes KEEP-TIME non-nil.
-
-\(fn URL NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-TIME PRESERVE-UID-GID)" nil nil)
-
-(autoload 'url-file-local-copy "url-handlers" "\
-Copy URL into a temporary file on this machine.
-Returns the name of the local copy, or nil, if FILE is directly
-accessible.
-
-\(fn URL &rest IGNORED)" nil nil)
-
-(autoload 'url-insert-file-contents "url-handlers" "\
-
-
-\(fn URL &optional VISIT BEG END REPLACE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "url-http" "url/url-http.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from url/url-http.el
- (autoload 'url-default-expander "url-expand")
-
-(defalias 'url-https-expand-file-name 'url-default-expander)
- (autoload 'url-https "url-http")
- (autoload 'url-https-file-exists-p "url-http")
- (autoload 'url-https-file-readable-p "url-http")
- (autoload 'url-https-file-attributes "url-http")
-
-;;;***
-\f
-;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from url/url-irc.el
-
-(autoload 'url-irc "url-irc" "\
-
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from url/url-ldap.el
-
-(autoload 'url-ldap "url-ldap" "\
-Perform an LDAP search specified by URL.
-The return value is a buffer displaying the search results in HTML.
-URL can be a URL string, or a URL vector of the type returned by
-`url-generic-parse-url'.
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from url/url-mailto.el
-
-(autoload 'url-mail "url-mailto" "\
-
-
-\(fn &rest ARGS)" t nil)
-
-(autoload 'url-mailto "url-mailto" "\
-Handle the mailto: URL syntax.
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-data url-generic-emulator-loader url-info
-;;;;;; url-man) "url-misc" "url/url-misc.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from url/url-misc.el
-
-(autoload 'url-man "url-misc" "\
-Fetch a Unix manual page URL.
-
-\(fn URL)" nil nil)
-
-(autoload 'url-info "url-misc" "\
-Fetch a GNU Info URL.
-
-\(fn URL)" nil nil)
-
-(autoload 'url-generic-emulator-loader "url-misc" "\
-
-
-\(fn URL)" nil nil)
-
-(defalias 'url-rlogin 'url-generic-emulator-loader)
-
-(defalias 'url-telnet 'url-generic-emulator-loader)
-
-(defalias 'url-tn3270 'url-generic-emulator-loader)
-
-(autoload 'url-data "url-misc" "\
-Fetch a data URL (RFC 2397).
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from url/url-news.el
-
-(autoload 'url-news "url-news" "\
-
-
-\(fn URL)" nil nil)
-
-(autoload 'url-snews "url-news" "\
-
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable
-;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from url/url-ns.el
-
-(autoload 'isPlainHostName "url-ns" "\
-
-
-\(fn HOST)" nil nil)
-
-(autoload 'dnsDomainIs "url-ns" "\
-
-
-\(fn HOST DOM)" nil nil)
-
-(autoload 'dnsResolve "url-ns" "\
-
-
-\(fn HOST)" nil nil)
-
-(autoload 'isResolvable "url-ns" "\
-
-
-\(fn HOST)" nil nil)
-
-(autoload 'isInNet "url-ns" "\
-
-
-\(fn IP NET MASK)" nil nil)
-
-(autoload 'url-ns-prefs "url-ns" "\
-
-
-\(fn &optional FILE)" nil nil)
-
-(autoload 'url-ns-user-pref "url-ns" "\
-
-
-\(fn KEY &optional DEFAULT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse"
-;;;;;; "url/url-parse.el" (20707 18685 911514 0))
-;;; Generated autoloads from url/url-parse.el
-
-(autoload 'url-recreate-url "url-parse" "\
-Recreate a URL string from the parsed URLOBJ.
-
-\(fn URLOBJ)" nil nil)
-
-(autoload 'url-generic-parse-url "url-parse" "\
-Return an URL-struct of the parts of URL.
-The CL-style struct contains the following fields:
-
-TYPE is the URI scheme (string or nil).
-USER is the user name (string or nil).
-PASSWORD is the password (string [deprecated] or nil).
-HOST is the host (a registered name, IP literal in square
- brackets, or IPv4 address in dotted-decimal form).
-PORTSPEC is the specified port (a number), or nil.
-FILENAME is the path AND the query component of the URI.
-TARGET is the fragment identifier component (used to refer to a
- subordinate resource, e.g. a part of a webpage).
-ATTRIBUTES is nil; this slot originally stored the attribute and
- value alists for IMAP URIs, but this feature was removed
- since it conflicts with RFC 3986.
-FULLNESS is non-nil iff the hierarchical sequence component of
- the URL starts with two slashes, \"//\".
-
-The parser follows RFC 3986, except that it also tries to handle
-URIs that are not fully specified (e.g. lacking TYPE), and it
-does not check for or perform %-encoding.
-
-Here is an example. The URL
-
- foo://bob:pass@example.com:42/a/b/c.dtb?type=animal&name=narwhal#nose
-
-parses to
-
- TYPE = \"foo\"
- USER = \"bob\"
- PASSWORD = \"pass\"
- HOST = \"example.com\"
- PORTSPEC = 42
- FILENAME = \"/a/b/c.dtb?type=animal&name=narwhal\"
- TARGET = \"nose\"
- ATTRIBUTES = nil
- FULLNESS = t
-
-\(fn URL)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from url/url-privacy.el
-
-(autoload 'url-setup-privacy-info "url-privacy" "\
-Setup variables that expose info about you and your system.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (url-queue-retrieve) "url-queue" "url/url-queue.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from url/url-queue.el
-
-(autoload 'url-queue-retrieve "url-queue" "\
-Retrieve URL asynchronously and call CALLBACK with CBARGS when finished.
-This is like `url-retrieve' (which see for details of the arguments),
-but with limits on the degree of parallelism. The variable
-`url-queue-parallel-processes' sets the number of concurrent processes.
-The variable `url-queue-timeout' sets a timeout.
-
-\(fn URL CALLBACK &optional CBARGS SILENT INHIBIT-COOKIES)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (url-view-url url-truncate-url-for-viewing url-file-extension
-;;;;;; url-encode-url url-hexify-string url-unhex-string url-build-query-string
-;;;;;; url-parse-query-string url-file-nondirectory url-file-directory
-;;;;;; url-percentage url-display-percentage url-pretty-length 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" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from url/url-util.el
-
-(defvar url-debug nil "\
-What types of debug messages from the URL library to show.
-Debug messages are logged to the *URL-DEBUG* buffer.
-
-If t, all messages will be logged.
-If a number, all messages will be logged, as well shown via `message'.
-If a list, it is a list of the types of messages to be logged.")
-
-(custom-autoload 'url-debug "url-util" t)
-
-(autoload 'url-debug "url-util" "\
-
-
-\(fn TAG &rest ARGS)" nil nil)
-
-(autoload 'url-parse-args "url-util" "\
-
-
-\(fn STR &optional NODOWNCASE)" nil nil)
-
-(autoload 'url-insert-entities-in-string "url-util" "\
-Convert HTML markup-start characters to entity references in STRING.
-Also replaces the \" character, so that the result may be safely used as
-an attribute value in a tag. Returns a new string with the result of the
-conversion. Replaces these characters as follows:
- & ==> &
- < ==> <
- > ==> >
- \" ==> "
-
-\(fn STRING)" nil nil)
-
-(autoload 'url-normalize-url "url-util" "\
-Return a 'normalized' version of URL.
-Strips out default port numbers, etc.
-
-\(fn URL)" nil nil)
-
-(autoload 'url-lazy-message "url-util" "\
-Just like `message', but is a no-op if called more than once a second.
-Will not do anything if `url-show-status' is nil.
-
-\(fn &rest ARGS)" nil nil)
-
-(autoload 'url-get-normalized-date "url-util" "\
-Return a 'real' date string that most HTTP servers can understand.
-
-\(fn &optional SPECIFIED-TIME)" nil nil)
-
-(autoload 'url-eat-trailing-space "url-util" "\
-Remove spaces/tabs at the end of a string.
-
-\(fn X)" nil nil)
-
-(autoload 'url-strip-leading-spaces "url-util" "\
-Remove spaces at the front of a string.
-
-\(fn X)" nil nil)
-
-(autoload 'url-pretty-length "url-util" "\
-
-
-\(fn N)" nil nil)
-
-(autoload 'url-display-percentage "url-util" "\
-
-
-\(fn FMT PERC &rest ARGS)" nil nil)
-
-(autoload 'url-percentage "url-util" "\
-
-
-\(fn X Y)" nil nil)
-
-(defalias 'url-basepath 'url-file-directory)
-
-(autoload 'url-file-directory "url-util" "\
-Return the directory part of FILE, for a URL.
-
-\(fn FILE)" nil nil)
-
-(autoload 'url-file-nondirectory "url-util" "\
-Return the nondirectory part of FILE, for a URL.
-
-\(fn FILE)" nil nil)
-
-(autoload 'url-parse-query-string "url-util" "\
-
-
-\(fn QUERY &optional DOWNCASE ALLOW-NEWLINES)" nil nil)
-
-(autoload 'url-build-query-string "url-util" "\
-Build a query-string.
-
-Given a QUERY in the form:
-'((key1 val1)
- (key2 val2)
- (key3 val1 val2)
- (key4)
- (key5 \"\"))
-
-\(This is the same format as produced by `url-parse-query-string')
-
-This will return a string
-\"key1=val1&key2=val2&key3=val1&key3=val2&key4&key5\". Keys may
-be strings or symbols; if they are symbols, the symbol name will
-be used.
-
-When SEMICOLONS is given, the separator will be \";\".
-
-When KEEP-EMPTY is given, empty values will show as \"key=\"
-instead of just \"key\" as in the example above.
-
-\(fn QUERY &optional SEMICOLONS KEEP-EMPTY)" nil nil)
-
-(autoload 'url-unhex-string "url-util" "\
-Remove %XX embedded spaces, etc in a URL.
-If optional second argument ALLOW-NEWLINES is non-nil, then allow the
-decoding of carriage returns and line feeds in the string, which is normally
-forbidden in URL encoding.
-
-\(fn STR &optional ALLOW-NEWLINES)" nil nil)
-
-(autoload 'url-hexify-string "url-util" "\
-URI-encode STRING and return the result.
-If STRING is multibyte, it is first converted to a utf-8 byte
-string. Each byte corresponding to an allowed character is left
-as-is, while all other bytes are converted to a three-character
-string: \"%\" followed by two upper-case hex digits.
-
-The allowed characters are specified by ALLOWED-CHARS. If this
-argument is nil, the list `url-unreserved-chars' determines the
-allowed characters. Otherwise, ALLOWED-CHARS should be a vector
-whose Nth element is non-nil if character N is allowed.
-
-\(fn STRING &optional ALLOWED-CHARS)" nil nil)
-
-(autoload 'url-encode-url "url-util" "\
-Return a properly URI-encoded version of URL.
-This function also performs URI normalization, e.g. converting
-the scheme to lowercase if it is uppercase. Apart from
-normalization, if URL is already URI-encoded, this function
-should return it unchanged.
-
-\(fn URL)" nil nil)
-
-(autoload 'url-file-extension "url-util" "\
-Return the filename extension of FNAME.
-If optional argument X is t, then return the basename
-of the file with the extension stripped off.
-
-\(fn FNAME &optional X)" nil nil)
-
-(autoload 'url-truncate-url-for-viewing "url-util" "\
-Return a shortened version of URL that is WIDTH characters wide or less.
-WIDTH defaults to the current frame width.
-
-\(fn URL &optional WIDTH)" nil nil)
-
-(autoload 'url-view-url "url-util" "\
-View the current document's URL.
-Optional argument NO-SHOW means just return the URL, don't show it in
-the minibuffer.
-
-This uses `url-current-object', set locally to the buffer.
-
-\(fn &optional NO-SHOW)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock)
-;;;;;; "userlock" "userlock.el" (20707 18685 911514 0))
-;;; Generated autoloads from userlock.el
-
-(autoload 'ask-user-about-lock "userlock" "\
-Ask user what to do when he wants to edit FILE but it is locked by OPPONENT.
-This function has a choice of three things to do:
- do (signal 'file-locked (list FILE OPPONENT))
- to refrain from editing the file
- return t (grab the lock on the file)
- return nil (edit the file even though it is locked).
-You can redefine this function to choose among those three alternatives
-in any way you like.
-
-\(fn FILE OPPONENT)" nil nil)
-
-(autoload 'ask-user-about-supersession-threat "userlock" "\
-Ask a user who is about to modify an obsolete buffer what to do.
-This function has two choices: it can return, in which case the modification
-of the buffer will proceed, or it can (signal 'file-supersession (file)),
-in which case the proposed buffer modification will not be made.
-
-You can rewrite this to use any criterion you like to choose which one to do.
-The buffer in question is current when this function is called.
-
-\(fn FN)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (utf-7-imap-pre-write-conversion utf-7-pre-write-conversion
-;;;;;; utf-7-imap-post-read-conversion utf-7-post-read-conversion)
-;;;;;; "utf-7" "international/utf-7.el" (20707 18685 911514 0))
-;;; Generated autoloads from international/utf-7.el
-
-(autoload 'utf-7-post-read-conversion "utf-7" "\
-
-
-\(fn LEN)" nil nil)
-
-(autoload 'utf-7-imap-post-read-conversion "utf-7" "\
-
-
-\(fn LEN)" nil nil)
-
-(autoload 'utf-7-pre-write-conversion "utf-7" "\
-
-
-\(fn FROM TO)" nil nil)
-
-(autoload 'utf-7-imap-pre-write-conversion "utf-7" "\
-
-
-\(fn FROM TO)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (utf7-encode) "utf7" "gnus/utf7.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from gnus/utf7.el
-
-(autoload 'utf7-encode "utf7" "\
-Encode UTF-7 STRING. Use IMAP modification if FOR-IMAP is non-nil.
-
-\(fn STRING &optional FOR-IMAP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal
-;;;;;; uudecode-decode-region-external) "uudecode" "mail/uudecode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mail/uudecode.el
-
-(autoload 'uudecode-decode-region-external "uudecode" "\
-Uudecode region between START and END using external program.
-If FILE-NAME is non-nil, save the result to FILE-NAME. The program
-used is specified by `uudecode-decoder-program'.
-
-\(fn START END &optional FILE-NAME)" t nil)
-
-(autoload 'uudecode-decode-region-internal "uudecode" "\
-Uudecode region between START and END without using an external program.
-If FILE-NAME is non-nil, save the result to FILE-NAME.
-
-\(fn START END &optional FILE-NAME)" t nil)
-
-(autoload 'uudecode-decode-region "uudecode" "\
-Uudecode region between START and END.
-If FILE-NAME is non-nil, save the result to FILE-NAME.
-
-\(fn START END &optional FILE-NAME)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (vc-branch-part vc-update-change-log vc-rename-file
-;;;;;; vc-delete-file vc-transfer-file vc-switch-backend vc-pull
-;;;;;; vc-rollback vc-revert vc-log-outgoing vc-log-incoming vc-print-root-log
-;;;;;; vc-print-log vc-retrieve-tag vc-create-tag vc-merge vc-insert-headers
-;;;;;; vc-revision-other-window vc-root-diff vc-ediff vc-version-ediff
-;;;;;; vc-diff vc-version-diff vc-register vc-next-action vc-before-checkin-hook
-;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from vc/vc.el
-
-(defvar vc-checkout-hook nil "\
-Normal hook (list of functions) run after checking out a file.
-See `run-hooks'.")
-
-(custom-autoload 'vc-checkout-hook "vc" t)
-
-(defvar vc-checkin-hook nil "\
-Normal hook (list of functions) run after commit or file checkin.
-See also `log-edit-done-hook'.")
-
-(custom-autoload 'vc-checkin-hook "vc" t)
-
-(defvar vc-before-checkin-hook nil "\
-Normal hook (list of functions) run before a commit or a file checkin.
-See `run-hooks'.")
-
-(custom-autoload 'vc-before-checkin-hook "vc" t)
-
-(autoload 'vc-next-action "vc" "\
-Do the next logical version control operation on the current fileset.
-This requires that all files in the current VC fileset be in the
-same state. If not, signal an error.
-
-For merging-based version control systems:
- If every file in the VC fileset is not registered for version
- control, register the fileset (but don't commit).
- If every work file in the VC fileset is added or changed, pop
- up a *vc-log* buffer to commit the fileset.
- For a centralized version control system, if any work file in
- the VC fileset is out of date, offer to update the fileset.
-
-For old-style locking-based version control systems, like RCS:
- If every file is not registered, register the file(s).
- If every file is registered and unlocked, check out (lock)
- the file(s) for editing.
- If every file is locked by you and has changes, pop up a
- *vc-log* buffer to check in the changes. If the variable
- `vc-keep-workfiles' is non-nil (the default), leave a
- read-only copy of each changed file after checking in.
- If every file is locked by you and unchanged, unlock them.
- If every file is locked by someone else, offer to steal the lock.
-
-\(fn VERBOSE)" t nil)
-
-(autoload 'vc-register "vc" "\
-Register into a version control system.
-If VC-FILESET is given, register the files in that fileset.
-Otherwise register the current file.
-With prefix argument SET-REVISION, allow user to specify initial revision
-level. If COMMENT is present, use that as an initial comment.
-
-The version control system to use is found by cycling through the list
-`vc-handled-backends'. The first backend in that list which declares
-itself responsible for the file (usually because other files in that
-directory are already registered under that backend) will be used to
-register the file. If no backend declares itself responsible, the
-first backend that could register the file is used.
-
-\(fn &optional SET-REVISION VC-FILESET COMMENT)" t nil)
-
-(autoload 'vc-version-diff "vc" "\
-Report diffs between revisions of the fileset in the repository history.
-
-\(fn FILES REV1 REV2)" t nil)
-
-(autoload 'vc-diff "vc" "\
-Display diffs between file revisions.
-Normally this compares the currently selected fileset with their
-working revisions. With a prefix argument HISTORIC, it reads two revision
-designators specifying which revisions to compare.
-
-The optional argument NOT-URGENT non-nil means it is ok to say no to
-saving the buffer.
-
-\(fn &optional HISTORIC NOT-URGENT)" t nil)
-
-(autoload 'vc-version-ediff "vc" "\
-Show differences between revisions of the fileset in the
-repository history using ediff.
-
-\(fn FILES REV1 REV2)" t nil)
-
-(autoload 'vc-ediff "vc" "\
-Display diffs between file revisions using ediff.
-Normally this compares the currently selected fileset with their
-working revisions. With a prefix argument HISTORIC, it reads two revision
-designators specifying which revisions to compare.
-
-The optional argument NOT-URGENT non-nil means it is ok to say no to
-saving the buffer.
-
-\(fn HISTORIC &optional NOT-URGENT)" t nil)
-
-(autoload 'vc-root-diff "vc" "\
-Display diffs between VC-controlled whole tree revisions.
-Normally, this compares the tree corresponding to the current
-fileset with the working revision.
-With a prefix argument HISTORIC, prompt for two revision
-designators specifying which revisions to compare.
-
-The optional argument NOT-URGENT non-nil means it is ok to say no to
-saving the buffer.
-
-\(fn HISTORIC &optional NOT-URGENT)" t nil)
-
-(autoload 'vc-revision-other-window "vc" "\
-Visit revision REV of the current file in another window.
-If the current file is named `F', the revision is named `F.~REV~'.
-If `F.~REV~' already exists, use it instead of checking it out again.
-
-\(fn REV)" t nil)
-
-(autoload 'vc-insert-headers "vc" "\
-Insert headers into a file for use with a version control system.
-Headers desired are inserted at point, and are pulled from
-the variable `vc-BACKEND-header'.
-
-\(fn)" t nil)
-
-(autoload 'vc-merge "vc" "\
-Perform a version control merge operation.
-You must be visiting a version controlled file, or in a `vc-dir' buffer.
-On a distributed version control system, this runs a \"merge\"
-operation to incorporate changes from another branch onto the
-current branch, prompting for an argument list.
-
-On a non-distributed version control system, this merges changes
-between two revisions into the current fileset. This asks for
-two revisions to merge from in the minibuffer. If the first
-revision is a branch number, then merge all changes from that
-branch. If the first revision is empty, merge the most recent
-changes from the current branch.
-
-\(fn)" t nil)
-
-(defalias 'vc-resolve-conflicts 'smerge-ediff)
-
-(autoload 'vc-create-tag "vc" "\
-Descending recursively from DIR, make a tag called NAME.
-For each registered file, the working revision becomes part of
-the named configuration. If the prefix argument BRANCHP is
-given, the tag is made as a new branch and the files are
-checked out in that new branch.
-
-\(fn DIR NAME BRANCHP)" t nil)
-
-(autoload 'vc-retrieve-tag "vc" "\
-Descending recursively from DIR, retrieve the tag called NAME.
-If NAME is empty, it refers to the latest revisions.
-If locking is used for the files in DIR, then there must not be any
-locked files at or below DIR (but if NAME is empty, locked files are
-allowed and simply skipped).
-
-\(fn DIR NAME)" t nil)
-
-(autoload 'vc-print-log "vc" "\
-List the change log of the current fileset in a window.
-If WORKING-REVISION is non-nil, leave point at that revision.
-If LIMIT is non-nil, it should be a number specifying the maximum
-number of revisions to show; the default is `vc-log-show-limit'.
-
-When called interactively with a prefix argument, prompt for
-WORKING-REVISION and LIMIT.
-
-\(fn &optional WORKING-REVISION LIMIT)" t nil)
-
-(autoload 'vc-print-root-log "vc" "\
-List the change log for the current VC controlled tree in a window.
-If LIMIT is non-nil, it should be a number specifying the maximum
-number of revisions to show; the default is `vc-log-show-limit'.
-When called interactively with a prefix argument, prompt for LIMIT.
-
-\(fn &optional LIMIT)" t nil)
-
-(autoload 'vc-log-incoming "vc" "\
-Show a log of changes that will be received with a pull operation from REMOTE-LOCATION.
-When called interactively with a prefix argument, prompt for REMOTE-LOCATION..
-
-\(fn &optional REMOTE-LOCATION)" t nil)
-
-(autoload 'vc-log-outgoing "vc" "\
-Show a log of changes that will be sent with a push operation to REMOTE-LOCATION.
-When called interactively with a prefix argument, prompt for REMOTE-LOCATION.
-
-\(fn &optional REMOTE-LOCATION)" t nil)
-
-(autoload 'vc-revert "vc" "\
-Revert working copies of the selected fileset to their repository contents.
-This asks for confirmation if the buffer contents are not identical
-to the working revision (except for keyword expansion).
-
-\(fn)" t nil)
-
-(autoload 'vc-rollback "vc" "\
-Roll back (remove) the most recent changeset committed to the repository.
-This may be either a file-level or a repository-level operation,
-depending on the underlying version-control system.
-
-\(fn)" t nil)
-
-(define-obsolete-function-alias 'vc-revert-buffer 'vc-revert "23.1")
-
-(autoload 'vc-pull "vc" "\
-Update the current fileset or branch.
-You must be visiting a version controlled file, or in a `vc-dir' buffer.
-On a distributed version control system, this runs a \"pull\"
-operation to update the current branch, prompting for an argument
-list if required. Optional prefix ARG forces a prompt.
-
-On a non-distributed version control system, update the current
-fileset to the tip revisions. For each unchanged and unlocked
-file, this simply replaces the work file with the latest revision
-on its branch. If the file contains changes, any changes in the
-tip revision are merged into the working file.
-
-\(fn &optional ARG)" t nil)
-
-(defalias 'vc-update 'vc-pull)
-
-(autoload 'vc-switch-backend "vc" "\
-Make BACKEND the current version control system for FILE.
-FILE must already be registered in BACKEND. The change is not
-permanent, only for the current session. This function only changes
-VC's perspective on FILE, it does not register or unregister it.
-By default, this command cycles through the registered backends.
-To get a prompt, use a prefix argument.
-
-\(fn FILE BACKEND)" t nil)
-
-(autoload 'vc-transfer-file "vc" "\
-Transfer FILE to another version control system NEW-BACKEND.
-If NEW-BACKEND has a higher precedence than FILE's current backend
-\(i.e. it comes earlier in `vc-handled-backends'), then register FILE in
-NEW-BACKEND, using the revision number from the current backend as the
-base level. If NEW-BACKEND has a lower precedence than the current
-backend, then commit all changes that were made under the current
-backend to NEW-BACKEND, and unregister FILE from the current backend.
-\(If FILE is not yet registered under NEW-BACKEND, register it.)
-
-\(fn FILE NEW-BACKEND)" nil nil)
-
-(autoload 'vc-delete-file "vc" "\
-Delete file and mark it as such in the version control system.
-
-\(fn FILE)" t nil)
-
-(autoload 'vc-rename-file "vc" "\
-Rename file OLD to NEW in both work area and repository.
-
-\(fn OLD NEW)" t nil)
-
-(autoload 'vc-update-change-log "vc" "\
-Find change log file and add entries from recent version control logs.
-Normally, find log entries for all registered files in the default
-directory.
-
-With prefix arg of \\[universal-argument], only find log entries for the current buffer's file.
-
-With any numeric prefix arg, find log entries for all currently visited
-files that are under version control. This puts all the entries in the
-log for the default directory, which may not be appropriate.
-
-From a program, any ARGS are assumed to be filenames for which
-log entries should be gathered.
-
-\(fn &rest ARGS)" t nil)
-
-(autoload 'vc-branch-part "vc" "\
-Return the branch part of a revision number REV.
-
-\(fn REV)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (vc-annotate) "vc-annotate" "vc/vc-annotate.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/vc-annotate.el
-
-(autoload 'vc-annotate "vc-annotate" "\
-Display the edit history of the current FILE using colors.
-
-This command creates a buffer that shows, for each line of the current
-file, when it was last edited and by whom. Additionally, colors are
-used to show the age of each line--blue means oldest, red means
-youngest, and intermediate colors indicate intermediate ages. By
-default, the time scale stretches back one year into the past;
-everything that is older than that is shown in blue.
-
-With a prefix argument, this command asks two questions in the
-minibuffer. First, you may enter a revision number REV; then the buffer
-displays and annotates that revision instead of the working revision
-\(type RET in the minibuffer to leave that default unchanged). Then,
-you are prompted for the time span in days which the color range
-should cover. For example, a time span of 20 days means that changes
-over the past 20 days are shown in red to blue, according to their
-age, and everything that is older than that is shown in blue.
-
-If MOVE-POINT-TO is given, move the point to that line.
-
-If VC-BK is given used that VC backend.
-
-Customization variables:
-
-`vc-annotate-menu-elements' customizes the menu elements of the
-mode-specific menu. `vc-annotate-color-map' and
-`vc-annotate-very-old-color' define the mapping of time to colors.
-`vc-annotate-background' specifies the background color.
-
-\(fn FILE REV &optional DISPLAY-MODE BUF MOVE-POINT-TO VC-BK)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from vc/vc-arch.el
- (defun vc-arch-registered (file)
- (if (vc-find-root file "{arch}/=tagging-method")
- (progn
- (load "vc-arch")
- (vc-arch-registered file))))
-
-;;;***
-\f
-;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from vc/vc-bzr.el
-
-(defconst vc-bzr-admin-dirname ".bzr" "\
-Name of the directory containing Bzr repository status files.")
-
-(defconst vc-bzr-admin-checkout-format-file (concat vc-bzr-admin-dirname "/checkout/format") "\
-Name of the format file in a .bzr directory.")
- (defun vc-bzr-registered (file)
- (if (vc-find-root file vc-bzr-admin-checkout-format-file)
- (progn
- (load "vc-bzr")
- (vc-bzr-registered file))))
-
-;;;***
-\f
-;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from vc/vc-cvs.el
-(defun vc-cvs-registered (f)
- "Return non-nil if file F is registered with CVS."
- (when (file-readable-p (expand-file-name
- "CVS/Entries" (file-name-directory f)))
- (load "vc-cvs")
- (vc-cvs-registered f)))
-
-;;;***
-\f
-;;;### (autoloads (vc-dir) "vc-dir" "vc/vc-dir.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from vc/vc-dir.el
-
-(autoload 'vc-dir "vc-dir" "\
-Show the VC status for \"interesting\" files in and below DIR.
-This allows you to mark files and perform VC operations on them.
-The list omits files which are up to date, with no changes in your copy
-or the repository, if there is nothing in particular to say about them.
-
-Preparing the list of file status takes time; when the buffer
-first appears, it has only the first few lines of summary information.
-The file lines appear later.
-
-Optional second argument BACKEND specifies the VC backend to use.
-Interactively, a prefix argument means to ask for the backend.
-
-These are the commands available for use in the file status buffer:
-
-\\{vc-dir-mode-map}
-
-\(fn DIR &optional BACKEND)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (vc-do-command) "vc-dispatcher" "vc/vc-dispatcher.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/vc-dispatcher.el
-
-(autoload 'vc-do-command "vc-dispatcher" "\
-Execute a slave command, notifying user and checking for errors.
-Output from COMMAND goes to BUFFER, or the current buffer if
-BUFFER is t. If the destination buffer is not already current,
-set it up properly and erase it. The command is considered
-successful if its exit status does not exceed OKSTATUS (if
-OKSTATUS is nil, that means to ignore error status, if it is
-`async', that means not to wait for termination of the
-subprocess; if it is t it means to ignore all execution errors).
-FILE-OR-LIST is the name of a working file; it may be a list of
-files or be nil (to execute commands that don't expect a file
-name or set of files). If an optional list of FLAGS is present,
-that is inserted into the command line before the filename.
-Return the return value of the slave command in the synchronous
-case, and the process object in the asynchronous case.
-
-\(fn BUFFER OKSTATUS COMMAND FILE-OR-LIST &rest FLAGS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "vc-git" "vc/vc-git.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from vc/vc-git.el
- (defun vc-git-registered (file)
- "Return non-nil if FILE is registered with git."
- (if (vc-find-root file ".git") ; Short cut.
- (progn
- (load "vc-git")
- (vc-git-registered file))))
-
-;;;***
-\f
-;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (20707 18685 911514 0))
-;;; Generated autoloads from vc/vc-hg.el
- (defun vc-hg-registered (file)
- "Return non-nil if FILE is registered with hg."
- (if (vc-find-root file ".hg") ; short cut
- (progn
- (load "vc-hg")
- (vc-hg-registered file))))
-
-;;;***
-\f
-;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from vc/vc-mtn.el
-
-(defconst vc-mtn-admin-dir "_MTN" "\
-Name of the monotone directory.")
-
-(defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format") "\
-Name of the monotone directory's format file.")
- (defun vc-mtn-registered (file)
- (if (vc-find-root file vc-mtn-admin-format)
- (progn
- (load "vc-mtn")
- (vc-mtn-registered file))))
-
-;;;***
-\f
-;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc/vc-rcs.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/vc-rcs.el
-
-(defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\
-Where to look for RCS master files.
-For a description of possible values, see `vc-check-master-templates'.")
-
-(custom-autoload 'vc-rcs-master-templates "vc-rcs" t)
-
-(defun vc-rcs-registered (f) (vc-default-registered 'RCS f))
-
-;;;***
-\f
-;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc/vc-sccs.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from vc/vc-sccs.el
-
-(defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\
-Where to look for SCCS master files.
-For a description of possible values, see `vc-check-master-templates'.")
-
-(custom-autoload 'vc-sccs-master-templates "vc-sccs" t)
-
-(defun vc-sccs-registered (f) (vc-default-registered 'SCCS f))
-
-(defun vc-sccs-search-project-dir (dirname basename) "\
-Return the name of a master file in the SCCS project directory.
-Does not check whether the file exists but returns nil if it does not
-find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) (when project-dir (if (file-name-absolute-p project-dir) (setq dirs (quote ("SCCS" ""))) (setq dirs (quote ("src/SCCS" "src" "source/SCCS" "source"))) (setq project-dir (expand-file-name (concat "~" project-dir)))) (while (and (not dir) dirs) (setq dir (expand-file-name (car dirs) project-dir)) (unless (file-directory-p dir) (setq dir nil) (setq dirs (cdr dirs)))) (and dir (expand-file-name (concat "s." basename) dir)))))
-
-;;;***
-\f
-;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from vc/vc-svn.el
- (defun vc-svn-registered (f)
- (let ((admin-dir (cond ((and (eq system-type 'windows-nt)
- (getenv "SVN_ASP_DOT_NET_HACK"))
- "_svn")
- (t ".svn"))))
- (when (vc-find-root f admin-dir)
- (load "vc-svn")
- (vc-svn-registered f))))
-
-;;;***
-\f
-;;;### (autoloads (vera-mode) "vera-mode" "progmodes/vera-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/vera-mode.el
- (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode))
-
-(autoload 'vera-mode "vera-mode" "\
-Major mode for editing Vera code.
-
-Usage:
-------
-
- INDENTATION: Typing `TAB' at the beginning of a line indents the line.
- The amount of indentation is specified by option `vera-basic-offset'.
- Indentation can be done for an entire region (`M-C-\\') or buffer (menu).
- `TAB' always indents the line if option `vera-intelligent-tab' is nil.
-
- WORD/COMMAND COMPLETION: Typing `TAB' after a (not completed) word looks
- for a word in the buffer or a Vera keyword that starts alike, inserts it
- and adjusts case. Re-typing `TAB' toggles through alternative word
- completions.
-
- Typing `TAB' after a non-word character inserts a tabulator stop (if not
- at the beginning of a line). `M-TAB' always inserts a tabulator stop.
-
- COMMENTS: `C-c C-c' comments out a region if not commented out, and
- uncomments a region if already commented out.
-
- HIGHLIGHTING (fontification): Vera keywords, predefined types and
- constants, function names, declaration names, directives, as well as
- comments and strings are highlighted using different colors.
-
- VERA VERSION: OpenVera 1.4 and Vera version 6.2.8.
-
-
-Maintenance:
-------------
-
-To submit a bug report, use the corresponding menu entry within Vera Mode.
-Add a description of the problem and include a reproducible test case.
-
-Feel free to send questions and enhancement requests to <reto@gnu.org>.
-
-Official distribution is at
-URL `http://www.iis.ee.ethz.ch/~zimmi/emacs/vera-mode.html'
-
-
- The Vera Mode Maintainer
- Reto Zimmermann <reto@gnu.org>
-
-Key bindings:
--------------
-
-\\{vera-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (verilog-mode) "verilog-mode" "progmodes/verilog-mode.el"
-;;;;;; (20763 5110 492774 0))
-;;; Generated autoloads from progmodes/verilog-mode.el
-
-(autoload 'verilog-mode "verilog-mode" "\
-Major mode for editing Verilog code.
-\\<verilog-mode-map>
-See \\[describe-function] verilog-auto (\\[verilog-auto]) for details on how
-AUTOs can improve coding efficiency.
-
-Use \\[verilog-faq] for a pointer to frequently asked questions.
-
-NEWLINE, TAB indents for Verilog code.
-Delete converts tabs to spaces as it moves back.
-
-Supports highlighting.
-
-Turning on Verilog mode calls the value of the variable `verilog-mode-hook'
-with no args, if that value is non-nil.
-
-Variables controlling indentation/edit style:
-
- variable `verilog-indent-level' (default 3)
- Indentation of Verilog statements with respect to containing block.
- `verilog-indent-level-module' (default 3)
- Absolute indentation of Module level Verilog statements.
- Set to 0 to get initial and always statements lined up
- on the left side of your screen.
- `verilog-indent-level-declaration' (default 3)
- Indentation of declarations with respect to containing block.
- Set to 0 to get them list right under containing block.
- `verilog-indent-level-behavioral' (default 3)
- Indentation of first begin in a task or function block
- Set to 0 to get such code to lined up underneath the task or
- function keyword.
- `verilog-indent-level-directive' (default 1)
- Indentation of `ifdef/`endif blocks.
- `verilog-cexp-indent' (default 1)
- Indentation of Verilog statements broken across lines i.e.:
- if (a)
- begin
- `verilog-case-indent' (default 2)
- Indentation for case statements.
- `verilog-auto-newline' (default nil)
- Non-nil means automatically newline after semicolons and the punctuation
- mark after an end.
- `verilog-auto-indent-on-newline' (default t)
- Non-nil means automatically indent line after newline.
- `verilog-tab-always-indent' (default t)
- Non-nil means TAB in Verilog mode should always reindent the current line,
- regardless of where in the line point is when the TAB command is used.
- `verilog-indent-begin-after-if' (default t)
- Non-nil means to indent begin statements following a preceding
- if, else, while, for and repeat statements, if any. Otherwise,
- the begin is lined up with the preceding token. If t, you get:
- if (a)
- begin // amount of indent based on `verilog-cexp-indent'
- otherwise you get:
- if (a)
- begin
- `verilog-auto-endcomments' (default t)
- Non-nil means a comment /* ... */ is set after the ends which ends
- cases, tasks, functions and modules.
- The type and name of the object will be set between the braces.
- `verilog-minimum-comment-distance' (default 10)
- Minimum distance (in lines) between begin and end required before a comment
- will be inserted. Setting this variable to zero results in every
- end acquiring a comment; the default avoids too many redundant
- comments in tight quarters.
- `verilog-auto-lineup' (default 'declarations)
- List of contexts where auto lineup of code should be done.
-
-Variables controlling other actions:
-
- `verilog-linter' (default surelint)
- Unix program to call to run the lint checker. This is the default
- command for \\[compile-command] and \\[verilog-auto-save-compile].
-
-See \\[customize] for the complete list of variables.
-
-AUTO expansion functions are, in part:
-
- \\[verilog-auto] Expand AUTO statements.
- \\[verilog-delete-auto] Remove the AUTOs.
- \\[verilog-inject-auto] Insert AUTOs for the first time.
-
-Some other functions are:
-
- \\[verilog-complete-word] Complete word with appropriate possibilities.
- \\[verilog-mark-defun] Mark function.
- \\[verilog-beg-of-defun] Move to beginning of current function.
- \\[verilog-end-of-defun] Move to end of current function.
- \\[verilog-label-be] Label matching begin ... end, fork ... join, etc statements.
-
- \\[verilog-comment-region] Put marked area in a comment.
- \\[verilog-uncomment-region] Uncomment an area commented with \\[verilog-comment-region].
- \\[verilog-insert-block] Insert begin ... end.
- \\[verilog-star-comment] Insert /* ... */.
-
- \\[verilog-sk-always] Insert an always @(AS) begin .. end block.
- \\[verilog-sk-begin] Insert a begin .. end block.
- \\[verilog-sk-case] Insert a case block, prompting for details.
- \\[verilog-sk-for] Insert a for (...) begin .. end block, prompting for details.
- \\[verilog-sk-generate] Insert a generate .. endgenerate block.
- \\[verilog-sk-header] Insert a header block at the top of file.
- \\[verilog-sk-initial] Insert an initial begin .. end block.
- \\[verilog-sk-fork] Insert a fork begin .. end .. join block.
- \\[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block.
- \\[verilog-sk-ovm-class] Insert an OVM Class block.
- \\[verilog-sk-uvm-class] Insert an UVM Class block.
- \\[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block.
- \\[verilog-sk-repeat] Insert a repeat (..) begin .. end block.
- \\[verilog-sk-specify] Insert a specify .. endspecify block.
- \\[verilog-sk-task] Insert a task .. begin .. end endtask block.
- \\[verilog-sk-while] Insert a while (...) begin .. end block, prompting for details.
- \\[verilog-sk-casex] Insert a casex (...) item: begin.. end endcase block, prompting for details.
- \\[verilog-sk-casez] Insert a casez (...) item: begin.. end endcase block, prompting for details.
- \\[verilog-sk-if] Insert an if (..) begin .. end block.
- \\[verilog-sk-else-if] Insert an else if (..) begin .. end block.
- \\[verilog-sk-comment] Insert a comment block.
- \\[verilog-sk-assign] Insert an assign .. = ..; statement.
- \\[verilog-sk-function] Insert a function .. begin .. end endfunction block.
- \\[verilog-sk-input] Insert an input declaration, prompting for details.
- \\[verilog-sk-output] Insert an output declaration, prompting for details.
- \\[verilog-sk-state-machine] Insert a state machine definition, prompting for details.
- \\[verilog-sk-inout] Insert an inout declaration, prompting for details.
- \\[verilog-sk-wire] Insert a wire declaration, prompting for details.
- \\[verilog-sk-reg] Insert a register declaration, prompting for details.
- \\[verilog-sk-define-signal] Define signal under point as a register at the top of the module.
-
-All key bindings can be seen in a Verilog-buffer with \\[describe-bindings].
-Key bindings specific to `verilog-mode-map' are:
-
-\\{verilog-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/vhdl-mode.el
-
-(autoload 'vhdl-mode "vhdl-mode" "\
-Major mode for editing VHDL code.
-
-Usage:
-------
-
- TEMPLATE INSERTION (electrification):
- After typing a VHDL keyword and entering `SPC', you are prompted for
- arguments while a template is generated for that VHDL construct. Typing
- `RET' or `C-g' at the first (mandatory) prompt aborts the current
- template generation. Optional arguments are indicated by square
- brackets and removed if the queried string is left empty. Prompts for
- mandatory arguments remain in the code if the queried string is left
- empty. They can be queried again by `C-c C-t C-q'. Enabled
- electrification is indicated by `/e' in the mode line.
-
- Typing `M-SPC' after a keyword inserts a space without calling the
- template generator. Automatic template generation (i.e.
- electrification) can be disabled (enabled) by typing `C-c C-m C-e' or by
- setting option `vhdl-electric-mode' (see OPTIONS).
-
- Template generators can be invoked from the VHDL menu, by key
- bindings, by typing `C-c C-i C-c' and choosing a construct, or by typing
- the keyword (i.e. first word of menu entry not in parenthesis) and
- `SPC'. The following abbreviations can also be used: arch, attr, cond,
- conf, comp, cons, func, inst, pack, sig, var.
-
- Template styles can be customized in customization group
- `vhdl-template' (see OPTIONS).
-
-
- HEADER INSERTION:
- A file header can be inserted by `C-c C-t C-h'. A file footer
- (template at the end of the file) can be inserted by `C-c C-t C-f'.
- See customization group `vhdl-header'.
-
-
- STUTTERING:
- Double striking of some keys inserts cumbersome VHDL syntax elements.
- Stuttering can be disabled (enabled) by typing `C-c C-m C-s' or by
- option `vhdl-stutter-mode'. Enabled stuttering is indicated by `/s' in
- the mode line. The stuttering keys and their effects are:
-
- ;; --> \" : \" [ --> ( -- --> comment
- ;;; --> \" := \" [[ --> [ --CR --> comment-out code
- .. --> \" => \" ] --> ) --- --> horizontal line
- ,, --> \" <= \" ]] --> ] ---- --> display comment
- == --> \" == \" '' --> \\\"
-
-
- WORD COMPLETION:
- Typing `TAB' after a (not completed) word looks for a VHDL keyword or a
- word in the buffer that starts alike, inserts it and adjusts case.
- Re-typing `TAB' toggles through alternative word completions. This also
- works in the minibuffer (i.e. in template generator prompts).
-
- Typing `TAB' after `(' looks for and inserts complete parenthesized
- expressions (e.g. for array index ranges). All keywords as well as
- standard types and subprograms of VHDL have predefined abbreviations
- (e.g. type \"std\" and `TAB' will toggle through all standard types
- beginning with \"std\").
-
- Typing `TAB' after a non-word character indents the line if at the
- beginning of a line (i.e. no preceding non-blank characters), and
- inserts a tabulator stop otherwise. `M-TAB' always inserts a tabulator
- stop.
-
-
- COMMENTS:
- `--' puts a single comment.
- `---' draws a horizontal line for separating code segments.
- `----' inserts a display comment, i.e. two horizontal lines
- with a comment in between.
- `--CR' comments out code on that line. Re-hitting CR comments
- out following lines.
- `C-c C-c' comments out a region if not commented out,
- uncomments a region if already commented out. Option
- `comment-style' defines where the comment characters
- should be placed (beginning of line, indent, etc.).
-
- You are prompted for comments after object definitions (i.e. signals,
- variables, constants, ports) and after subprogram and process
- specifications if option `vhdl-prompt-for-comments' is non-nil.
- Comments are automatically inserted as additional labels (e.g. after
- begin statements) and as help comments if `vhdl-self-insert-comments' is
- non-nil.
-
- Inline comments (i.e. comments after a piece of code on the same line)
- are indented at least to `vhdl-inline-comment-column'. Comments go at
- maximum to `vhdl-end-comment-column'. `RET' after a space in a comment
- will open a new comment line. Typing beyond `vhdl-end-comment-column'
- in a comment automatically opens a new comment line. `M-q' re-fills
- multi-line comments.
-
-
- INDENTATION:
- `TAB' indents a line if at the beginning of the line. The amount of
- indentation is specified by option `vhdl-basic-offset'. `C-c C-i C-l'
- always indents the current line (is bound to `TAB' if option
- `vhdl-intelligent-tab' is nil). If a region is active, `TAB' indents
- the entire region.
-
- Indentation can be done for a group of lines (`C-c C-i C-g'), a region
- (`M-C-\\') or the entire buffer (menu). Argument and port lists are
- indented normally (nil) or relative to the opening parenthesis (non-nil)
- according to option `vhdl-argument-list-indent'.
-
- If option `vhdl-indent-tabs-mode' is nil, spaces are used instead of
- tabs. `M-x tabify' and `M-x untabify' allow to convert spaces to tabs
- and vice versa.
-
- Syntax-based indentation can be very slow in large files. Option
- `vhdl-indent-syntax-based' allows to use faster but simpler indentation.
-
- Option `vhdl-indent-comment-like-next-code-line' controls whether
- comment lines are indented like the preceding or like the following code
- line.
-
-
- ALIGNMENT:
- The alignment functions align operators, keywords, and inline comments
- to beautify the code. `C-c C-a C-a' aligns a group of consecutive lines
- separated by blank lines, `C-c C-a C-i' a block of lines with same
- indent. `C-c C-a C-l' aligns all lines belonging to a list enclosed by
- a pair of parentheses (e.g. port clause/map, argument list), and `C-c
- C-a C-d' all lines within the declarative part of a design unit. `C-c
- C-a M-a' aligns an entire region. `C-c C-a C-c' aligns inline comments
- for a group of lines, and `C-c C-a M-c' for a region.
-
- If option `vhdl-align-groups' is non-nil, groups of code lines
- separated by special lines (see option `vhdl-align-group-separate') are
- aligned individually. If option `vhdl-align-same-indent' is non-nil,
- blocks of lines with same indent are aligned separately. Some templates
- are automatically aligned after generation if option `vhdl-auto-align'
- is non-nil.
-
- Alignment tries to align inline comments at
- `vhdl-inline-comment-column' and tries inline comment not to exceed
- `vhdl-end-comment-column'.
-
- `C-c C-x M-w' fixes up whitespace in a region. That is, operator
- symbols are surrounded by one space, and multiple spaces are eliminated.
-
-
- CODE FILLING:
- Code filling allows to condense code (e.g. sensitivity lists or port
- maps) by removing comments and newlines and re-wrapping so that all
- lines are maximally filled (block filling). `C-c C-f C-f' fills a list
- enclosed by parenthesis, `C-c C-f C-g' a group of lines separated by
- blank lines, `C-c C-f C-i' a block of lines with same indent, and
- `C-c C-f M-f' an entire region.
-
-
- CODE BEAUTIFICATION:
- `C-c M-b' and `C-c C-b' beautify the code of a region or of the entire
- buffer respectively. This includes indentation, alignment, and case
- fixing. Code beautification can also be run non-interactively using the
- command:
-
- emacs -batch -l ~/.emacs filename.vhd -f vhdl-beautify-buffer
-
-
- PORT TRANSLATION:
- Generic and port clauses from entity or component declarations can be
- copied (`C-c C-p C-w') and pasted as entity and component declarations,
- as component instantiations and corresponding internal constants and
- signals, as a generic map with constants as actual generics, and as
- internal signal initializations (menu).
-
- To include formals in component instantiations, see option
- `vhdl-association-list-with-formals'. To include comments in pasting,
- see options `vhdl-include-...-comments'.
-
- A clause with several generic/port names on the same line can be
- flattened (`C-c C-p C-f') so that only one name per line exists. The
- direction of ports can be reversed (`C-c C-p C-r'), i.e., inputs become
- outputs and vice versa, which can be useful in testbenches. (This
- reversion is done on the internal data structure and is only reflected
- in subsequent paste operations.)
-
- Names for actual ports, instances, testbenches, and
- design-under-test instances can be derived from existing names according
- to options `vhdl-...-name'. See customization group `vhdl-port'.
-
-
- SUBPROGRAM TRANSLATION:
- Similar functionality exists for copying/pasting the interface of
- subprograms (function/procedure). A subprogram interface can be copied
- and then pasted as a subprogram declaration, body or call (uses
- association list with formals).
-
-
- TESTBENCH GENERATION:
- A copied port can also be pasted as a testbench. The generated
- testbench includes an entity, an architecture, and an optional
- configuration. The architecture contains the component declaration and
- instantiation of the DUT as well as internal constant and signal
- declarations. Additional user-defined templates can be inserted. The
- names used for entity/architecture/configuration/DUT as well as the file
- structure to be generated can be customized. See customization group
- `vhdl-testbench'.
-
-
- KEY BINDINGS:
- Key bindings (`C-c ...') exist for most commands (see in menu).
-
-
- VHDL MENU:
- All commands can be found in the VHDL menu including their key bindings.
-
-
- FILE BROWSER:
- The speedbar allows browsing of directories and file contents. It can
- be accessed from the VHDL menu and is automatically opened if option
- `vhdl-speedbar-auto-open' is non-nil.
-
- In speedbar, open files and directories with `mouse-2' on the name and
- browse/rescan their contents with `mouse-2'/`S-mouse-2' on the `+'.
-
-
- DESIGN HIERARCHY BROWSER:
- The speedbar can also be used for browsing the hierarchy of design units
- contained in the source files of the current directory or the specified
- projects (see option `vhdl-project-alist').
-
- The speedbar can be switched between file, directory hierarchy and
- project hierarchy browsing mode in the speedbar menu or by typing `f',
- `h' or `H' in speedbar.
-
- In speedbar, open design units with `mouse-2' on the name and browse
- their hierarchy with `mouse-2' on the `+'. Ports can directly be copied
- from entities and components (in packages). Individual design units and
- complete designs can directly be compiled (\"Make\" menu entry).
-
- The hierarchy is automatically updated upon saving a modified source
- file when option `vhdl-speedbar-update-on-saving' is non-nil. The
- hierarchy is only updated for projects that have been opened once in the
- speedbar. The hierarchy is cached between Emacs sessions in a file (see
- options in group `vhdl-speedbar').
-
- Simple design consistency checks are done during scanning, such as
- multiple declarations of the same unit or missing primary units that are
- required by secondary units.
-
-
- STRUCTURAL COMPOSITION:
- Enables simple structural composition. `C-c C-m C-n' creates a skeleton
- for a new component. Subcomponents (i.e. component declaration and
- instantiation) can be automatically placed from a previously read port
- (`C-c C-m C-p') or directly from the hierarchy browser (`P'). Finally,
- all subcomponents can be automatically connected using internal signals
- and ports (`C-c C-m C-w') following these rules:
- - subcomponent actual ports with same name are considered to be
- connected by a signal (internal signal or port)
- - signals that are only inputs to subcomponents are considered as
- inputs to this component -> input port created
- - signals that are only outputs from subcomponents are considered as
- outputs from this component -> output port created
- - signals that are inputs to AND outputs from subcomponents are
- considered as internal connections -> internal signal created
-
- Purpose: With appropriate naming conventions it is possible to
- create higher design levels with only a few mouse clicks or key
- strokes. A new design level can be created by simply generating a new
- component, placing the required subcomponents from the hierarchy
- browser, and wiring everything automatically.
-
- Note: Automatic wiring only works reliably on templates of new
- components and component instantiations that were created by VHDL mode.
-
- Component declarations can be placed in a components package (option
- `vhdl-use-components-package') which can be automatically generated for
- an entire directory or project (`C-c C-m M-p'). The VHDL'93 direct
- component instantiation is also supported (option
- `vhdl-use-direct-instantiation').
-
- Configuration declarations can automatically be generated either from
- the menu (`C-c C-m C-f') (for the architecture the cursor is in) or from
- the speedbar menu (for the architecture under the cursor). The
- configurations can optionally be hierarchical (i.e. include all
- component levels of a hierarchical design, option
- `vhdl-compose-configuration-hierarchical') or include subconfigurations
- (option `vhdl-compose-configuration-use-subconfiguration'). For
- subcomponents in hierarchical configurations, the most-recently-analyzed
- (mra) architecture is selected. If another architecture is desired, it
- can be marked as most-recently-analyzed (speedbar menu) before
- generating the configuration.
-
- Note: Configurations of subcomponents (i.e. hierarchical configuration
- declarations) are currently not considered when displaying
- configurations in speedbar.
-
- See the options group `vhdl-compose' for all relevant user options.
-
-
- SOURCE FILE COMPILATION:
- The syntax of the current buffer can be analyzed by calling a VHDL
- compiler (menu, `C-c C-k'). The compiler to be used is specified by
- option `vhdl-compiler'. The available compilers are listed in option
- `vhdl-compiler-alist' including all required compilation command,
- command options, compilation directory, and error message syntax
- information. New compilers can be added.
-
- All the source files of an entire design can be compiled by the `make'
- command (menu, `C-c M-C-k') if an appropriate Makefile exists.
-
-
- MAKEFILE GENERATION:
- Makefiles can be generated automatically by an internal generation
- routine (`C-c M-k'). The library unit dependency information is
- obtained from the hierarchy browser. Makefile generation can be
- customized for each compiler in option `vhdl-compiler-alist'.
-
- Makefile generation can also be run non-interactively using the
- command:
-
- emacs -batch -l ~/.emacs -l vhdl-mode
- [-compiler compilername] [-project projectname]
- -f vhdl-generate-makefile
-
- The Makefile's default target \"all\" compiles the entire design, the
- target \"clean\" removes it and the target \"library\" creates the
- library directory if not existent. These target names can be customized
- by option `vhdl-makefile-default-targets'. The Makefile also includes a
- target for each primary library unit which allows selective compilation
- of this unit, its secondary units and its subhierarchy (example:
- compilation of a design specified by a configuration). User specific
- parts can be inserted into a Makefile with option
- `vhdl-makefile-generation-hook'.
-
- Limitations:
- - Only library units and dependencies within the current library are
- considered. Makefiles for designs that span multiple libraries are
- not (yet) supported.
- - Only one-level configurations are supported (also hierarchical),
- but configurations that go down several levels are not.
- - The \"others\" keyword in configurations is not supported.
-
-
- PROJECTS:
- Projects can be defined in option `vhdl-project-alist' and a current
- project be selected using option `vhdl-project' (permanently) or from
- the menu or speedbar (temporarily). For each project, title and
- description strings (for the file headers), source files/directories
- (for the hierarchy browser and Makefile generation), library name, and
- compiler-dependent options, exceptions and compilation directory can be
- specified. Compilation settings overwrite the settings of option
- `vhdl-compiler-alist'.
-
- Project setups can be exported (i.e. written to a file) and imported.
- Imported setups are not automatically saved in `vhdl-project-alist' but
- can be saved afterwards in its customization buffer. When starting
- Emacs with VHDL Mode (i.e. load a VHDL file or use \"emacs -l
- vhdl-mode\") in a directory with an existing project setup file, it is
- automatically loaded and its project activated if option
- `vhdl-project-auto-load' is non-nil. Names/paths of the project setup
- files can be specified in option `vhdl-project-file-name'. Multiple
- project setups can be automatically loaded from global directories.
- This is an alternative to specifying project setups with option
- `vhdl-project-alist'.
-
-
- SPECIAL MENUES:
- As an alternative to the speedbar, an index menu can be added (set
- option `vhdl-index-menu' to non-nil) or made accessible as a mouse menu
- (e.g. add \"(global-set-key '[S-down-mouse-3] 'imenu)\" to your start-up
- file) for browsing the file contents (is not populated if buffer is
- larger than `font-lock-maximum-size'). Also, a source file menu can be
- added (set option `vhdl-source-file-menu' to non-nil) for browsing the
- current directory for VHDL source files.
-
-
- VHDL STANDARDS:
- The VHDL standards to be used are specified in option `vhdl-standard'.
- Available standards are: VHDL'87/'93(02), VHDL-AMS, and Math Packages.
-
-
- KEYWORD CASE:
- Lower and upper case for keywords and standardized types, attributes,
- and enumeration values is supported. If the option
- `vhdl-upper-case-keywords' is set to non-nil, keywords can be typed in
- lower case and are converted into upper case automatically (not for
- types, attributes, and enumeration values). The case of keywords,
- types, attributes,and enumeration values can be fixed for an entire
- region (menu) or buffer (`C-c C-x C-c') according to the options
- `vhdl-upper-case-{keywords,types,attributes,enum-values}'.
-
-
- HIGHLIGHTING (fontification):
- Keywords and standardized types, attributes, enumeration values, and
- function names (controlled by option `vhdl-highlight-keywords'), as well
- as comments, strings, and template prompts are highlighted using
- different colors. Unit, subprogram, signal, variable, constant,
- parameter and generic/port names in declarations as well as labels are
- highlighted if option `vhdl-highlight-names' is non-nil.
-
- Additional reserved words or words with a forbidden syntax (e.g. words
- that should be avoided) can be specified in option
- `vhdl-forbidden-words' or `vhdl-forbidden-syntax' and be highlighted in
- a warning color (option `vhdl-highlight-forbidden-words'). Verilog
- keywords are highlighted as forbidden words if option
- `vhdl-highlight-verilog-keywords' is non-nil.
-
- Words with special syntax can be highlighted by specifying their
- syntax and color in option `vhdl-special-syntax-alist' and by setting
- option `vhdl-highlight-special-words' to non-nil. This allows to
- establish some naming conventions (e.g. to distinguish different kinds
- of signals or other objects by using name suffices) and to support them
- visually.
-
- Option `vhdl-highlight-case-sensitive' can be set to non-nil in order
- to support case-sensitive highlighting. However, keywords are then only
- highlighted if written in lower case.
-
- Code between \"translate_off\" and \"translate_on\" pragmas is
- highlighted using a different background color if option
- `vhdl-highlight-translate-off' is non-nil.
-
- For documentation and customization of the used colors see
- customization group `vhdl-highlight-faces' (`M-x customize-group'). For
- highlighting of matching parenthesis, see customization group
- `paren-showing'. Automatic buffer highlighting is turned on/off by
- option `global-font-lock-mode' (`font-lock-auto-fontify' in XEmacs).
-
-
- USER MODELS:
- VHDL models (templates) can be specified by the user and made accessible
- in the menu, through key bindings (`C-c C-m ...'), or by keyword
- electrification. See option `vhdl-model-alist'.
-
-
- HIDE/SHOW:
- The code of blocks, processes, subprograms, component declarations and
- instantiations, generic/port clauses, and configuration declarations can
- be hidden using the `Hide/Show' menu or by pressing `S-mouse-2' within
- the code (see customization group `vhdl-menu'). XEmacs: limited
- functionality due to old `hideshow.el' package.
-
-
- CODE UPDATING:
- - Sensitivity List: `C-c C-u C-s' updates the sensitivity list of the
- current process, `C-c C-u M-s' of all processes in the current buffer.
- Limitations:
- - Only declared local signals (ports, signals declared in
- architecture and blocks) are automatically inserted.
- - Global signals declared in packages are not automatically inserted.
- Insert them once manually (will be kept afterwards).
- - Out parameters of procedures are considered to be read.
- Use option `vhdl-entity-file-name' to specify the entity file name
- (used to obtain the port names).
- Use option `vhdl-array-index-record-field-in-sensitivity-list' to
- specify whether to include array indices and record fields in
- sensitivity lists.
-
-
- CODE FIXING:
- `C-c C-x C-p' fixes the closing parenthesis of a generic/port clause
- (e.g. if the closing parenthesis is on the wrong line or is missing).
-
-
- PRINTING:
- PostScript printing with different faces (an optimized set of faces is
- used if `vhdl-print-customize-faces' is non-nil) or colors (if
- `ps-print-color-p' is non-nil) is possible using the standard Emacs
- PostScript printing commands. Option `vhdl-print-two-column' defines
- appropriate default settings for nice landscape two-column printing.
- The paper format can be set by option `ps-paper-type'. Do not forget to
- switch `ps-print-color-p' to nil for printing on black-and-white
- printers.
-
-
- OPTIONS:
- User options allow customization of VHDL Mode. All options are
- accessible from the \"Options\" menu entry. Simple options (switches
- and choices) can directly be changed, while for complex options a
- customization buffer is opened. Changed options can be saved for future
- sessions using the \"Save Options\" menu entry.
-
- Options and their detailed descriptions can also be accessed by using
- the \"Customize\" menu entry or the command `M-x customize-option' (`M-x
- customize-group' for groups). Some customizations only take effect
- after some action (read the NOTE in the option documentation).
- Customization can also be done globally (i.e. site-wide, read the
- INSTALL file).
-
- Not all options are described in this documentation, so go and see
- what other useful user options there are (`M-x vhdl-customize' or menu)!
-
-
- FILE EXTENSIONS:
- As default, files with extensions \".vhd\" and \".vhdl\" are
- automatically recognized as VHDL source files. To add an extension
- \".xxx\", add the following line to your Emacs start-up file (`.emacs'):
-
- (setq auto-mode-alist (cons '(\"\\\\.xxx\\\\'\" . vhdl-mode) auto-mode-alist))
-
-
- HINTS:
- - To start Emacs with open VHDL hierarchy browser without having to load
- a VHDL file first, use the command:
-
- emacs -l vhdl-mode -f speedbar-frame-mode
-
- - Type `C-g C-g' to interrupt long operations or if Emacs hangs.
-
- - Some features only work on properly indented code.
-
-
- RELEASE NOTES:
- See also the release notes (menu) for added features in new releases.
-
-
-Maintenance:
-------------
-
-To submit a bug report, enter `M-x vhdl-submit-bug-report' within VHDL Mode.
-Add a description of the problem and include a reproducible test case.
-
-Questions and enhancement requests can be sent to <reto@gnu.org>.
-
-The `vhdl-mode-announce' mailing list informs about new VHDL Mode releases.
-The `vhdl-mode-victims' mailing list informs about new VHDL Mode beta
-releases. You are kindly invited to participate in beta testing. Subscribe
-to above mailing lists by sending an email to <reto@gnu.org>.
-
-VHDL Mode is officially distributed at
-http://www.iis.ee.ethz.ch/~zimmi/emacs/vhdl-mode.html
-where the latest version can be found.
-
-
-Known problems:
----------------
-
-- XEmacs: Incorrect start-up when automatically opening speedbar.
-- XEmacs: Indentation in XEmacs 21.4 (and higher).
-- Indentation incorrect for new 'postponed' VHDL keyword.
-- Indentation incorrect for 'protected body' construct.
-
-
- The VHDL Mode Authors
- Reto Zimmermann and Rod Whitby
-
-Key bindings:
--------------
-
-\\{vhdl-mode-map}
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (20627 28531 447943
-;;;;;; 0))
-;;; Generated autoloads from emulation/vi.el
-
-(autoload 'vi-mode "vi" "\
-Major mode that acts like the `vi' editor.
-The purpose of this mode is to provide you the combined power of vi (namely,
-the \"cross product\" effect of commands and repeat last changes) and Emacs.
-
-This command redefines nearly all keys to look like vi commands.
-It records the previous major mode, and any vi command for input
-\(`i', `a', `s', etc.) switches back to that mode.
-Thus, ordinary Emacs (in whatever major mode you had been using)
-is \"input\" mode as far as vi is concerned.
-
-To get back into vi from \"input\" mode, you must issue this command again.
-Therefore, it is recommended that you assign it to a key.
-
-Major differences between this mode and real vi :
-
-* Limitations and unsupported features
- - Search patterns with line offset (e.g. /pat/+3 or /pat/z.) are
- not supported.
- - Ex commands are not implemented; try ':' to get some hints.
- - No line undo (i.e. the 'U' command), but multi-undo is a standard feature.
-
-* Modifications
- - The stopping positions for some point motion commands (word boundary,
- pattern search) are slightly different from standard 'vi'.
- Also, no automatic wrap around at end of buffer for pattern searching.
- - Since changes are done in two steps (deletion then insertion), you need
- to undo twice to completely undo a change command. But this is not needed
- for undoing a repeated change command.
- - No need to set/unset 'magic', to search for a string with regular expr
- in it just put a prefix arg for the search commands. Replace cmds too.
- - ^R is bound to incremental backward search, so use ^L to redraw screen.
-
-* Extensions
- - Some standard (or modified) Emacs commands were integrated, such as
- incremental search, query replace, transpose objects, and keyboard macros.
- - In command state, ^X links to the 'ctl-x-map', and ESC can be linked to
- esc-map or set undefined. These can give you the full power of Emacs.
- - See vi-com-map for those keys that are extensions to standard vi, e.g.
- `vi-name-last-change-or-macro', `vi-verify-spelling', `vi-locate-def',
- `vi-mark-region', and 'vi-quote-words'. Some of them are quite handy.
- - Use \\[vi-switch-mode] to switch among different modes quickly.
-
-Syntax table and abbrevs while in vi mode remain as they were in Emacs.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (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" (20707 18685 911514 0))
-;;; Generated autoloads from language/viet-util.el
-
-(autoload 'viet-encode-viscii-char "viet-util" "\
-Return VISCII character code of CHAR if appropriate.
-
-\(fn CHAR)" nil nil)
-
-(autoload 'viet-decode-viqr-region "viet-util" "\
-Convert `VIQR' mnemonics of the current region to Vietnamese characters.
-When called from a program, expects two arguments,
-positions (integers or markers) specifying the stretch of the region.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'viet-decode-viqr-buffer "viet-util" "\
-Convert `VIQR' mnemonics of the current buffer to Vietnamese characters.
-
-\(fn)" t nil)
-
-(autoload 'viet-encode-viqr-region "viet-util" "\
-Convert Vietnamese characters of the current region to `VIQR' mnemonics.
-When called from a program, expects two arguments,
-positions (integers or markers) specifying the stretch of the region.
-
-\(fn FROM TO)" t nil)
-
-(autoload 'viet-encode-viqr-buffer "viet-util" "\
-Convert Vietnamese characters of the current buffer to `VIQR' mnemonics.
-
-\(fn)" t nil)
-
-(autoload 'viqr-post-read-conversion "viet-util" "\
-
-
-\(fn LEN)" nil nil)
-
-(autoload 'viqr-pre-write-conversion "viet-util" "\
-
-
-\(fn FROM TO)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (View-exit-and-edit view-mode-enter view-return-to-alist-update
-;;;;;; view-mode view-buffer-other-frame view-buffer-other-window
-;;;;;; view-buffer view-file-other-frame view-file-other-window
-;;;;;; view-file kill-buffer-if-not-modified view-remove-frame-by-deleting)
-;;;;;; "view" "view.el" (20707 18685 911514 0))
-;;; Generated autoloads from view.el
-
-(defvar view-remove-frame-by-deleting t "\
-Determine how View mode removes a frame no longer needed.
-If nil, make an icon of the frame. If non-nil, delete the frame.")
-
-(custom-autoload 'view-remove-frame-by-deleting "view" t)
-
-(defvar view-mode nil "\
-Non-nil if View mode is enabled.
-Don't change this variable directly, you must change it by one of the
-functions that enable or disable view mode.")
-
-(make-variable-buffer-local 'view-mode)
-
-(autoload 'kill-buffer-if-not-modified "view" "\
-Like `kill-buffer', but does nothing if the buffer is modified.
-
-\(fn BUF)" nil nil)
-
-(autoload 'view-file "view" "\
-View FILE in View mode, returning to previous buffer when done.
-Emacs commands editing the buffer contents are not available; instead, a
-special set of commands (mostly letters and punctuation) are defined for
-moving around in the buffer.
-Space scrolls forward, Delete scrolls backward.
-For a list of all View commands, type H or h while viewing.
-
-This command runs the normal hook `view-mode-hook'.
-
-\(fn FILE)" t nil)
-
-(autoload 'view-file-other-window "view" "\
-View FILE in View mode in another window.
-When done, return that window to its previous buffer, and kill the
-buffer visiting FILE if unmodified and if it wasn't visited before.
-
-Emacs commands editing the buffer contents are not available; instead,
-a special set of commands (mostly letters and punctuation)
-are defined for moving around in the buffer.
-Space scrolls forward, Delete scrolls backward.
-For a list of all View commands, type H or h while viewing.
-
-This command runs the normal hook `view-mode-hook'.
-
-\(fn FILE)" t nil)
-
-(autoload 'view-file-other-frame "view" "\
-View FILE in View mode in another frame.
-When done, kill the buffer visiting FILE if unmodified and if it wasn't
-visited before; also, maybe delete other frame and/or return to previous
-buffer.
-
-Emacs commands editing the buffer contents are not available; instead,
-a special set of commands (mostly letters and punctuation)
-are defined for moving around in the buffer.
-Space scrolls forward, Delete scrolls backward.
-For a list of all View commands, type H or h while viewing.
-
-This command runs the normal hook `view-mode-hook'.
-
-\(fn FILE)" t nil)
-
-(autoload 'view-buffer "view" "\
-View BUFFER in View mode, returning to previous buffer when done.
-Emacs commands editing the buffer contents are not available; instead, a
-special set of commands (mostly letters and punctuation) are defined for
-moving around in the buffer.
-Space scrolls forward, Delete scrolls backward.
-For a list of all View commands, type H or h while viewing.
-
-This command runs the normal hook `view-mode-hook'.
-
-Optional argument EXIT-ACTION is either nil or a function with buffer as
-argument. This function is called when finished viewing buffer. Use
-this argument instead of explicitly setting `view-exit-action'.
-
-Do not set EXIT-ACTION to `kill-buffer' when BUFFER visits a
-file: Users may suspend viewing in order to modify the buffer.
-Exiting View mode will then discard the user's edits. Setting
-EXIT-ACTION to `kill-buffer-if-not-modified' avoids this.
-
-This function does not enable View mode if the buffer's major-mode
-has a `special' mode-class, because such modes usually have their
-own View-like bindings.
-
-\(fn BUFFER &optional EXIT-ACTION)" t nil)
-
-(autoload 'view-buffer-other-window "view" "\
-View BUFFER in View mode in another window.
-Emacs commands editing the buffer contents are not available;
-instead, a special set of commands (mostly letters and
-punctuation) are defined for moving around in the buffer.
-Space scrolls forward, Delete scrolls backward.
-For a list of all View commands, type H or h while viewing.
-
-This command runs the normal hook `view-mode-hook'.
-
-Optional argument NOT-RETURN is ignored.
-
-Optional argument EXIT-ACTION is either nil or a function with buffer as
-argument. This function is called when finished viewing buffer. Use
-this argument instead of explicitly setting `view-exit-action'.
-
-This function does not enable View mode if the buffer's major-mode
-has a `special' mode-class, because such modes usually have their
-own View-like bindings.
-
-\(fn BUFFER &optional NOT-RETURN EXIT-ACTION)" t nil)
-
-(autoload 'view-buffer-other-frame "view" "\
-View BUFFER in View mode in another frame.
-Emacs commands editing the buffer contents are not available;
-instead, a special set of commands (mostly letters and
-punctuation) are defined for moving around in the buffer.
-Space scrolls forward, Delete scrolls backward.
-For a list of all View commands, type H or h while viewing.
-
-This command runs the normal hook `view-mode-hook'.
-
-Optional argument NOT-RETURN is ignored.
-
-Optional argument EXIT-ACTION is either nil or a function with buffer as
-argument. This function is called when finished viewing buffer. Use
-this argument instead of explicitly setting `view-exit-action'.
-
-This function does not enable View mode if the buffer's major-mode
-has a `special' mode-class, because such modes usually have their
-own View-like bindings.
-
-\(fn BUFFER &optional NOT-RETURN EXIT-ACTION)" t nil)
-
-(autoload 'view-mode "view" "\
-Toggle View mode, a minor mode for viewing text but not editing it.
-With a prefix argument ARG, enable View mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable View mode
-if ARG is omitted or nil.
-
-When View mode is enabled, commands that do not change the buffer
-contents are available as usual. Kill commands insert text in
-kill buffers but do not delete. Most other commands beep and
-tell the user that the buffer is read-only.
-
-\\<view-mode-map>
-
-The following additional commands are provided. Most commands
-take prefix arguments. Page commands default to \"page size\"
-lines which is almost a whole window, or number of lines set by
-\\[View-scroll-page-forward-set-page-size] or \\[View-scroll-page-backward-set-page-size].
-Half page commands default to and set \"half page size\" lines
-which initially is half a window full. Search commands default
-to a repeat count of one.
-
-H, h, ? This message.
-Digits provide prefix arguments.
-\\[negative-argument] negative prefix argument.
-\\[beginning-of-buffer] move to the beginning of buffer.
-> move to the end of buffer.
-\\[View-scroll-to-buffer-end] scroll so that buffer end is at last line of window.
-SPC scroll forward \"page size\" lines.
- With prefix scroll forward prefix lines.
-DEL scroll backward \"page size\" lines.
- With prefix scroll backward prefix lines.
-\\[View-scroll-page-forward-set-page-size] like \\[View-scroll-page-forward] but with prefix sets \"page size\" to prefix.
-\\[View-scroll-page-backward-set-page-size] like \\[View-scroll-page-backward] but with prefix sets \"page size\" to prefix.
-\\[View-scroll-half-page-forward] scroll forward \"half page size\" lines. With prefix, sets
- \"half page size\" to prefix lines and scrolls forward that much.
-\\[View-scroll-half-page-backward] scroll backward \"half page size\" lines. With prefix, sets
- \"half page size\" to prefix lines and scrolls backward that much.
-RET, LFD scroll forward one line. With prefix scroll forward prefix line(s).
-y scroll backward one line. With prefix scroll backward prefix line(s).
-\\[View-revert-buffer-scroll-page-forward] revert-buffer if necessary and scroll forward.
- Use this to view a changing file.
-\\[what-line] prints the current line number.
-\\[View-goto-percent] goes prefix argument (default 100) percent into buffer.
-\\[View-goto-line] goes to line given by prefix argument (default first line).
-. set the mark.
-x exchanges point and mark.
-\\[View-back-to-mark] return to mark and pops mark ring.
- Mark ring is pushed at start of every successful search and when
- jump to line occurs. The mark is set on jump to buffer start or end.
-\\[point-to-register] save current position in character register.
-' go to position saved in character register.
-s do forward incremental search.
-r do reverse incremental search.
-\\[View-search-regexp-forward] searches forward for regular expression, starting after current page.
- ! and @ have a special meaning at the beginning of the regexp.
- ! means search for a line with no match for regexp. @ means start
- search at beginning (end for backward search) of buffer.
-\\ searches backward for regular expression, starting before current page.
-\\[View-search-last-regexp-forward] searches forward for last regular expression.
-p searches backward for last regular expression.
-\\[View-quit] quit View mode, restoring this window and buffer to previous state.
- \\[View-quit] is the normal way to leave view mode.
-\\[View-exit] exit View mode but stay in current buffer. Use this if you started
- viewing a buffer (file) and find out you want to edit it.
- This command restores the previous read-only status of the buffer.
-\\[View-exit-and-edit] exit View mode, and make the current buffer editable
- even if it was not editable before entry to View mode.
-\\[View-quit-all] quit View mode, restoring all windows to previous state.
-\\[View-leave] quit View mode and maybe switch buffers, but don't kill this buffer.
-\\[View-kill-and-leave] quit View mode, kill current buffer and go back to other buffer.
-
-The effect of \\[View-leave], \\[View-quit] and \\[View-kill-and-leave] depends on how view-mode was entered. If it was
-entered by view-file, view-file-other-window, view-file-other-frame, or
-\\[dired-view-file] (\\[view-file], \\[view-file-other-window],
-\\[view-file-other-frame], or the Dired mode v command),
-then \\[View-quit] will try to kill the current buffer.
-If view-mode was entered from another buffer, by \\[view-buffer],
-\\[view-buffer-other-window], \\[view-buffer-other frame], \\[view-file],
-\\[view-file-other-window], or \\[view-file-other-frame],
-then \\[View-leave], \\[View-quit] and \\[View-kill-and-leave] will return to that buffer.
-
-Entry to view-mode runs the normal hook `view-mode-hook'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'view-return-to-alist-update "view" "\
-Update `view-return-to-alist' of buffer BUFFER.
-Remove from `view-return-to-alist' all entries referencing dead
-windows. Optional argument ITEM non-nil means add ITEM to
-`view-return-to-alist' after purging. For a description of items
-that can be added see the RETURN-TO-ALIST argument of the
-function `view-mode-exit'. If `view-return-to-alist' contains an
-entry for the selected window, purge that entry from
-`view-return-to-alist' before adding ITEM.
-
-\(fn BUFFER &optional ITEM)" nil nil)
-
-(make-obsolete 'view-return-to-alist-update '"this function has no effect." "24.1")
-
-(autoload 'view-mode-enter "view" "\
-Enter View mode and set up exit from view mode depending on optional arguments.
-Optional argument QUIT-RESTORE if non-nil must specify a valid
-entry for quitting and restoring any window showing the current
-buffer. This entry replaces any parameter installed by
-`display-buffer' and is used by `view-mode-exit'.
-
-Optional argument EXIT-ACTION, if non-nil, must specify a
-function that takes a buffer as argument. This function will be
-called by `view-mode-exit'.
-
-For a list of all View commands, type H or h while viewing.
-
-This function runs the normal hook `view-mode-hook'.
-
-\(fn &optional QUIT-RESTORE EXIT-ACTION)" nil nil)
-
-(autoload 'View-exit-and-edit "view" "\
-Exit View mode and make the current buffer editable.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from emulation/vip.el
-
-(autoload 'vip-setup "vip" "\
-Set up bindings for C-x 7 and C-z that are useful for VIP users.
-
-\(fn)" nil nil)
-
-(autoload 'vip-mode "vip" "\
-Turn on VIP emulation of VI.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emulation/viper.el
-
-(autoload 'toggle-viper-mode "viper" "\
-Toggle Viper on/off.
-If Viper is enabled, turn it off. Otherwise, turn it on.
-
-\(fn)" t nil)
-
-(autoload 'viper-mode "viper" "\
-Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emacs-lisp/warnings.el
-
-(defvar warning-prefix-function nil "\
-Function to generate warning prefixes.
-This function, if non-nil, is called with two arguments,
-the severity level and its entry in `warning-levels',
-and should return the entry that should actually be used.
-The warnings buffer is current when this function is called
-and the function can insert text in it. This text becomes
-the beginning of the warning.")
-
-(defvar warning-series nil "\
-Non-nil means treat multiple `display-warning' calls as a series.
-A marker indicates a position in the warnings buffer
-which is the start of the current series; it means that
-additional warnings in the same buffer should not move point.
-If t, the next warning begins a series (and stores a marker here).
-A symbol with a function definition is like t, except
-also call that function before the next warning.")
-
-(defvar warning-fill-prefix nil "\
-Non-nil means fill each warning text using this string as `fill-prefix'.")
-
-(defvar warning-type-format (purecopy " (%s)") "\
-Format for displaying the warning type in the warning message.
-The result of formatting the type this way gets included in the
-message under the control of the string in `warning-levels'.")
-
-(autoload 'display-warning "warnings" "\
-Display a warning message, MESSAGE.
-TYPE is the warning type: either a custom group name (a symbol),
-or a list of symbols whose first element is a custom group name.
-\(The rest of the symbols represent subcategories, for warning purposes
-only, and you can use whatever symbols you like.)
-
-LEVEL should be either :debug, :warning, :error, or :emergency
-\(but see `warning-minimum-level' and `warning-minimum-log-level').
-Default is :warning.
-
-:emergency -- a problem that will seriously impair Emacs operation soon
- if you do not attend to it promptly.
-:error -- data or circumstances that are inherently wrong.
-:warning -- data or circumstances that are not inherently wrong,
- but raise suspicion of a possible problem.
-:debug -- info for debugging only.
-
-BUFFER-NAME, if specified, is the name of the buffer for logging
-the warning. By default, it is `*Warnings*'. If this function
-has to create the buffer, it disables undo in the buffer.
-
-See the `warnings' custom group for user customization features.
-
-See also `warning-series', `warning-prefix-function' and
-`warning-fill-prefix' for additional programming features.
-
-\(fn TYPE MESSAGE &optional LEVEL BUFFER-NAME)" nil nil)
-
-(autoload 'lwarn "warnings" "\
-Display a warning message made from (format MESSAGE ARGS...).
-Aside from generating the message with `format',
-this is equivalent to `display-warning'.
-
-TYPE is the warning type: either a custom group name (a symbol),
-or a list of symbols whose first element is a custom group name.
-\(The rest of the symbols represent subcategories and
-can be whatever you like.)
-
-LEVEL should be either :debug, :warning, :error, or :emergency
-\(but see `warning-minimum-level' and `warning-minimum-log-level').
-
-:emergency -- a problem that will seriously impair Emacs operation soon
- if you do not attend to it promptly.
-:error -- invalid data or circumstances.
-:warning -- suspicious data or circumstances.
-:debug -- info for debugging only.
-
-\(fn TYPE LEVEL MESSAGE &rest ARGS)" nil nil)
-
-(autoload 'warn "warnings" "\
-Display a warning message made from (format MESSAGE ARGS...).
-Aside from generating the message with `format',
-this is equivalent to `display-warning', using
-`emacs' as the type and `:warning' as the level.
-
-\(fn MESSAGE &rest ARGS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from wdired.el
-
-(autoload 'wdired-change-to-wdired-mode "wdired" "\
-Put a Dired buffer in Writable Dired (WDired) mode.
-\\<wdired-mode-map>
-In WDired mode, you can edit the names of the files in the
-buffer, the target of the links, and the permission bits of the
-files. After typing \\[wdired-finish-edit], Emacs modifies the files and
-directories to reflect your edits.
-
-See `wdired-mode'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (webjump) "webjump" "net/webjump.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from net/webjump.el
-
-(autoload 'webjump "webjump" "\
-Jumps to a Web site from a programmable hotlist.
-
-See the documentation for the `webjump-sites' variable for how to customize the
-hotlist.
-
-Please submit bug reports and other feedback to the author, Neil W. Van Dyke
-<nwv@acm.org>.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from progmodes/which-func.el
- (put 'which-func-format 'risky-local-variable t)
- (put 'which-func-current 'risky-local-variable t)
-
-(define-obsolete-function-alias 'which-func-mode 'which-function-mode "24.1")
-
-(defvar which-function-mode nil "\
-Non-nil if Which-Function mode is enabled.
-See the command `which-function-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `which-function-mode'.")
-
-(custom-autoload 'which-function-mode "which-func" nil)
-
-(autoload 'which-function-mode "which-func" "\
-Toggle mode line display of current function (Which Function mode).
-With a prefix argument ARG, enable Which Function mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Which Function mode is a global minor mode. When enabled, the
-current function name is continuously displayed in the mode line,
-in certain major modes.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (whitespace-report-region whitespace-report whitespace-cleanup-region
-;;;;;; whitespace-cleanup global-whitespace-toggle-options whitespace-toggle-options
-;;;;;; global-whitespace-newline-mode global-whitespace-mode whitespace-newline-mode
-;;;;;; whitespace-mode) "whitespace" "whitespace.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from whitespace.el
-
-(autoload 'whitespace-mode "whitespace" "\
-Toggle whitespace visualization (Whitespace mode).
-With a prefix argument ARG, enable Whitespace mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-See also `whitespace-style', `whitespace-newline' and
-`whitespace-display-mappings'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'whitespace-newline-mode "whitespace" "\
-Toggle newline visualization (Whitespace Newline mode).
-With a prefix argument ARG, enable Whitespace Newline mode if ARG
-is positive, and disable it otherwise. If called from Lisp,
-enable the mode if ARG is omitted or nil.
-
-Use `whitespace-newline-mode' only for NEWLINE visualization
-exclusively. For other visualizations, including NEWLINE
-visualization together with (HARD) SPACEs and/or TABs, please,
-use `whitespace-mode'.
-
-See also `whitespace-newline' and `whitespace-display-mappings'.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-whitespace-mode nil "\
-Non-nil if Global-Whitespace mode is enabled.
-See the command `global-whitespace-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-whitespace-mode'.")
-
-(custom-autoload 'global-whitespace-mode "whitespace" nil)
-
-(autoload 'global-whitespace-mode "whitespace" "\
-Toggle whitespace visualization globally (Global Whitespace mode).
-With a prefix argument ARG, enable Global Whitespace mode if ARG
-is positive, and disable it otherwise. If called from Lisp,
-enable it if ARG is omitted or nil.
-
-See also `whitespace-style', `whitespace-newline' and
-`whitespace-display-mappings'.
-
-\(fn &optional ARG)" t nil)
-
-(defvar global-whitespace-newline-mode nil "\
-Non-nil if Global-Whitespace-Newline mode is enabled.
-See the command `global-whitespace-newline-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-whitespace-newline-mode'.")
-
-(custom-autoload 'global-whitespace-newline-mode "whitespace" nil)
-
-(autoload 'global-whitespace-newline-mode "whitespace" "\
-Toggle global newline visualization (Global Whitespace Newline mode).
-With a prefix argument ARG, enable Global Whitespace Newline mode
-if ARG is positive, and disable it otherwise. If called from
-Lisp, enable it if ARG is omitted or nil.
-
-Use `global-whitespace-newline-mode' only for NEWLINE
-visualization exclusively. For other visualizations, including
-NEWLINE visualization together with (HARD) SPACEs and/or TABs,
-please use `global-whitespace-mode'.
-
-See also `whitespace-newline' and `whitespace-display-mappings'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'whitespace-toggle-options "whitespace" "\
-Toggle local `whitespace-mode' options.
-
-If local whitespace-mode is off, toggle the option given by ARG
-and turn on local whitespace-mode.
-
-If local whitespace-mode is on, toggle the option given by ARG
-and restart local whitespace-mode.
-
-Interactively, it reads one of the following chars:
-
- CHAR MEANING
- (VIA FACES)
- f toggle face visualization
- t toggle TAB visualization
- s toggle SPACE and HARD SPACE visualization
- r toggle trailing blanks visualization
- l toggle \"long lines\" visualization
- L toggle \"long lines\" tail visualization
- n toggle NEWLINE visualization
- e toggle empty line at bob and/or eob visualization
- C-i toggle indentation SPACEs visualization (via `indent-tabs-mode')
- I toggle indentation SPACEs visualization
- i toggle indentation TABs visualization
- C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode')
- A toggle SPACEs after TAB: SPACEs visualization
- a toggle SPACEs after TAB: TABs visualization
- C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode')
- B toggle SPACEs before TAB: SPACEs visualization
- b toggle SPACEs before TAB: TABs visualization
-
- (VIA DISPLAY TABLE)
- T toggle TAB visualization
- S toggle SPACEs before TAB visualization
- N toggle NEWLINE visualization
-
- x restore `whitespace-style' value
- ? display brief help
-
-Non-interactively, ARG should be a symbol or a list of symbols.
-The valid symbols are:
-
- face toggle face visualization
- tabs toggle TAB visualization
- spaces toggle SPACE and HARD SPACE visualization
- trailing toggle trailing blanks visualization
- lines toggle \"long lines\" visualization
- lines-tail toggle \"long lines\" tail visualization
- newline toggle NEWLINE visualization
- empty toggle empty line at bob and/or eob visualization
- indentation toggle indentation SPACEs visualization
- indentation::tab toggle indentation SPACEs visualization
- indentation::space toggle indentation TABs visualization
- space-after-tab toggle SPACEs after TAB visualization
- space-after-tab::tab toggle SPACEs after TAB: SPACEs visualization
- space-after-tab::space toggle SPACEs after TAB: TABs visualization
- space-before-tab toggle SPACEs before TAB visualization
- space-before-tab::tab toggle SPACEs before TAB: SPACEs visualization
- space-before-tab::space toggle SPACEs before TAB: TABs visualization
-
- tab-mark toggle TAB visualization
- space-mark toggle SPACEs before TAB visualization
- newline-mark toggle NEWLINE visualization
-
- whitespace-style restore `whitespace-style' value
-
-See `whitespace-style' and `indent-tabs-mode' for documentation.
-
-\(fn ARG)" t nil)
-
-(autoload 'global-whitespace-toggle-options "whitespace" "\
-Toggle global `whitespace-mode' options.
-
-If global whitespace-mode is off, toggle the option given by ARG
-and turn on global whitespace-mode.
-
-If global whitespace-mode is on, toggle the option given by ARG
-and restart global whitespace-mode.
-
-Interactively, it accepts one of the following chars:
-
- CHAR MEANING
- (VIA FACES)
- f toggle face visualization
- t toggle TAB visualization
- s toggle SPACE and HARD SPACE visualization
- r toggle trailing blanks visualization
- l toggle \"long lines\" visualization
- L toggle \"long lines\" tail visualization
- n toggle NEWLINE visualization
- e toggle empty line at bob and/or eob visualization
- C-i toggle indentation SPACEs visualization (via `indent-tabs-mode')
- I toggle indentation SPACEs visualization
- i toggle indentation TABs visualization
- C-a toggle SPACEs after TAB visualization (via `indent-tabs-mode')
- A toggle SPACEs after TAB: SPACEs visualization
- a toggle SPACEs after TAB: TABs visualization
- C-b toggle SPACEs before TAB visualization (via `indent-tabs-mode')
- B toggle SPACEs before TAB: SPACEs visualization
- b toggle SPACEs before TAB: TABs visualization
-
- (VIA DISPLAY TABLE)
- T toggle TAB visualization
- S toggle SPACEs before TAB visualization
- N toggle NEWLINE visualization
-
- x restore `whitespace-style' value
- ? display brief help
-
-Non-interactively, ARG should be a symbol or a list of symbols.
-The valid symbols are:
-
- face toggle face visualization
- tabs toggle TAB visualization
- spaces toggle SPACE and HARD SPACE visualization
- trailing toggle trailing blanks visualization
- lines toggle \"long lines\" visualization
- lines-tail toggle \"long lines\" tail visualization
- newline toggle NEWLINE visualization
- empty toggle empty line at bob and/or eob visualization
- indentation toggle indentation SPACEs visualization
- indentation::tab toggle indentation SPACEs visualization
- indentation::space toggle indentation TABs visualization
- space-after-tab toggle SPACEs after TAB visualization
- space-after-tab::tab toggle SPACEs after TAB: SPACEs visualization
- space-after-tab::space toggle SPACEs after TAB: TABs visualization
- space-before-tab toggle SPACEs before TAB visualization
- space-before-tab::tab toggle SPACEs before TAB: SPACEs visualization
- space-before-tab::space toggle SPACEs before TAB: TABs visualization
-
- tab-mark toggle TAB visualization
- space-mark toggle SPACEs before TAB visualization
- newline-mark toggle NEWLINE visualization
-
- whitespace-style restore `whitespace-style' value
-
-See `whitespace-style' and `indent-tabs-mode' for documentation.
-
-\(fn ARG)" t nil)
-
-(autoload 'whitespace-cleanup "whitespace" "\
-Cleanup some blank problems in all buffer or at region.
-
-It usually applies to the whole buffer, but in transient mark
-mode when the mark is active, it applies to the region. It also
-applies to the region when it is not in transient mark mode, the
-mark is active and \\[universal-argument] was pressed just before
-calling `whitespace-cleanup' interactively.
-
-See also `whitespace-cleanup-region'.
-
-The problems cleaned up are:
-
-1. empty lines at beginning of buffer.
-2. empty lines at end of buffer.
- If `whitespace-style' includes the value `empty', remove all
- empty lines at beginning and/or end of buffer.
-
-3. 8 or more SPACEs at beginning of line.
- If `whitespace-style' includes the value `indentation':
- replace 8 or more SPACEs at beginning of line by TABs, if
- `indent-tabs-mode' is non-nil; otherwise, replace TABs by
- SPACEs.
- If `whitespace-style' includes the value `indentation::tab',
- replace 8 or more SPACEs at beginning of line by TABs.
- If `whitespace-style' includes the value `indentation::space',
- replace TABs by SPACEs.
-
-4. SPACEs before TAB.
- If `whitespace-style' includes the value `space-before-tab':
- replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
- otherwise, replace TABs by SPACEs.
- If `whitespace-style' includes the value
- `space-before-tab::tab', replace SPACEs by TABs.
- If `whitespace-style' includes the value
- `space-before-tab::space', replace TABs by SPACEs.
-
-5. SPACEs or TABs at end of line.
- If `whitespace-style' includes the value `trailing', remove
- all SPACEs or TABs at end of line.
-
-6. 8 or more SPACEs after TAB.
- If `whitespace-style' includes the value `space-after-tab':
- replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
- otherwise, replace TABs by SPACEs.
- If `whitespace-style' includes the value
- `space-after-tab::tab', replace SPACEs by TABs.
- If `whitespace-style' includes the value
- `space-after-tab::space', replace TABs by SPACEs.
-
-See `whitespace-style', `indent-tabs-mode' and `tab-width' for
-documentation.
-
-\(fn)" t nil)
-
-(autoload 'whitespace-cleanup-region "whitespace" "\
-Cleanup some blank problems at region.
-
-The problems cleaned up are:
-
-1. 8 or more SPACEs at beginning of line.
- If `whitespace-style' includes the value `indentation':
- replace 8 or more SPACEs at beginning of line by TABs, if
- `indent-tabs-mode' is non-nil; otherwise, replace TABs by
- SPACEs.
- If `whitespace-style' includes the value `indentation::tab',
- replace 8 or more SPACEs at beginning of line by TABs.
- If `whitespace-style' includes the value `indentation::space',
- replace TABs by SPACEs.
-
-2. SPACEs before TAB.
- If `whitespace-style' includes the value `space-before-tab':
- replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
- otherwise, replace TABs by SPACEs.
- If `whitespace-style' includes the value
- `space-before-tab::tab', replace SPACEs by TABs.
- If `whitespace-style' includes the value
- `space-before-tab::space', replace TABs by SPACEs.
-
-3. SPACEs or TABs at end of line.
- If `whitespace-style' includes the value `trailing', remove
- all SPACEs or TABs at end of line.
-
-4. 8 or more SPACEs after TAB.
- If `whitespace-style' includes the value `space-after-tab':
- replace SPACEs by TABs, if `indent-tabs-mode' is non-nil;
- otherwise, replace TABs by SPACEs.
- If `whitespace-style' includes the value
- `space-after-tab::tab', replace SPACEs by TABs.
- If `whitespace-style' includes the value
- `space-after-tab::space', replace TABs by SPACEs.
-
-See `whitespace-style', `indent-tabs-mode' and `tab-width' for
-documentation.
-
-\(fn START END)" t nil)
-
-(autoload 'whitespace-report "whitespace" "\
-Report some whitespace problems in buffer.
-
-Return nil if there is no whitespace problem; otherwise, return
-non-nil.
-
-If FORCE is non-nil or \\[universal-argument] was pressed just
-before calling `whitespace-report' interactively, it forces
-`whitespace-style' to have:
-
- empty
- trailing
- indentation
- space-before-tab
- space-after-tab
-
-If REPORT-IF-BOGUS is non-nil, it reports only when there are any
-whitespace problems in buffer.
-
-Report if some of the following whitespace problems exist:
-
-* If `indent-tabs-mode' is non-nil:
- empty 1. empty lines at beginning of buffer.
- empty 2. empty lines at end of buffer.
- trailing 3. SPACEs or TABs at end of line.
- indentation 4. 8 or more SPACEs at beginning of line.
- space-before-tab 5. SPACEs before TAB.
- space-after-tab 6. 8 or more SPACEs after TAB.
-
-* If `indent-tabs-mode' is nil:
- empty 1. empty lines at beginning of buffer.
- empty 2. empty lines at end of buffer.
- trailing 3. SPACEs or TABs at end of line.
- indentation 4. TABS at beginning of line.
- space-before-tab 5. SPACEs before TAB.
- space-after-tab 6. 8 or more SPACEs after TAB.
-
-See `whitespace-style' for documentation.
-See also `whitespace-cleanup' and `whitespace-cleanup-region' for
-cleaning up these problems.
-
-\(fn &optional FORCE REPORT-IF-BOGUS)" t nil)
-
-(autoload 'whitespace-report-region "whitespace" "\
-Report some whitespace problems in a region.
-
-Return nil if there is no whitespace problem; otherwise, return
-non-nil.
-
-If FORCE is non-nil or \\[universal-argument] was pressed just
-before calling `whitespace-report-region' interactively, it
-forces `whitespace-style' to have:
-
- empty
- indentation
- space-before-tab
- trailing
- space-after-tab
-
-If REPORT-IF-BOGUS is non-nil, it reports only when there are any
-whitespace problems in buffer.
-
-Report if some of the following whitespace problems exist:
-
-* If `indent-tabs-mode' is non-nil:
- empty 1. empty lines at beginning of buffer.
- empty 2. empty lines at end of buffer.
- trailing 3. SPACEs or TABs at end of line.
- indentation 4. 8 or more SPACEs at beginning of line.
- space-before-tab 5. SPACEs before TAB.
- space-after-tab 6. 8 or more SPACEs after TAB.
-
-* If `indent-tabs-mode' is nil:
- empty 1. empty lines at beginning of buffer.
- empty 2. empty lines at end of buffer.
- trailing 3. SPACEs or TABs at end of line.
- indentation 4. TABS at beginning of line.
- space-before-tab 5. SPACEs before TAB.
- space-after-tab 6. 8 or more SPACEs after TAB.
-
-See `whitespace-style' for documentation.
-See also `whitespace-cleanup' and `whitespace-cleanup-region' for
-cleaning up these problems.
-
-\(fn START END &optional FORCE REPORT-IF-BOGUS)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse
-;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from wid-browse.el
-
-(autoload 'widget-browse-at "wid-browse" "\
-Browse the widget under point.
-
-\(fn POS)" t nil)
-
-(autoload 'widget-browse "wid-browse" "\
-Create a widget browser for WIDGET.
-
-\(fn WIDGET)" t nil)
-
-(autoload 'widget-browse-other-window "wid-browse" "\
-Show widget browser for WIDGET in other window.
-
-\(fn &optional WIDGET)" t nil)
-
-(autoload 'widget-minor-mode "wid-browse" "\
-Minor mode for traversing widgets.
-With a prefix argument ARG, enable the mode if ARG is positive,
-and disable it otherwise. If called from Lisp, enable the mode
-if ARG is omitted or nil.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (widget-setup widget-insert widget-delete widget-create
-;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from wid-edit.el
-
-(autoload 'widgetp "wid-edit" "\
-Return non-nil if WIDGET is a widget.
-
-\(fn WIDGET)" nil nil)
-
-(autoload 'widget-prompt-value "wid-edit" "\
-Prompt for a value matching WIDGET, using PROMPT.
-The current value is assumed to be VALUE, unless UNBOUND is non-nil.
-
-\(fn WIDGET PROMPT &optional VALUE UNBOUND)" nil nil)
-
-(autoload 'widget-create "wid-edit" "\
-Create widget of TYPE.
-The optional ARGS are additional keyword arguments.
-
-\(fn TYPE &rest ARGS)" nil nil)
-
-(autoload 'widget-delete "wid-edit" "\
-Delete WIDGET.
-
-\(fn WIDGET)" nil nil)
-
-(autoload 'widget-insert "wid-edit" "\
-Call `insert' with ARGS even if surrounding text is read only.
-
-\(fn &rest ARGS)" nil nil)
-
-(defvar widget-keymap (let ((map (make-sparse-keymap))) (define-key map " " 'widget-forward) (define-key map "\e " 'widget-backward) (define-key map [(shift tab)] 'widget-backward) (put 'widget-backward :advertised-binding [(shift tab)]) (define-key map [backtab] 'widget-backward) (define-key map [down-mouse-2] 'widget-button-click) (define-key map [down-mouse-1] 'widget-button-click) (define-key map [(control 109)] 'widget-button-press) map) "\
-Keymap containing useful binding for buffers containing widgets.
-Recommended as a parent keymap for modes using widgets.
-Note that such modes will need to require wid-edit.")
-
-(autoload 'widget-setup "wid-edit" "\
-Setup current buffer so editing string widgets works.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right
-;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from windmove.el
-
-(autoload 'windmove-left "windmove" "\
-Select the window to the left of the current one.
-With no prefix argument, or with prefix argument equal to zero,
-\"left\" is relative to the position of point in the window; otherwise
-it is relative to the top edge (for positive ARG) or the bottom edge
-\(for negative ARG) of the current window.
-If no window is at the desired location, an error is signaled.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'windmove-up "windmove" "\
-Select the window above the current one.
-With no prefix argument, or with prefix argument equal to zero, \"up\"
-is relative to the position of point in the window; otherwise it is
-relative to the left edge (for positive ARG) or the right edge (for
-negative ARG) of the current window.
-If no window is at the desired location, an error is signaled.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'windmove-right "windmove" "\
-Select the window to the right of the current one.
-With no prefix argument, or with prefix argument equal to zero,
-\"right\" is relative to the position of point in the window;
-otherwise it is relative to the top edge (for positive ARG) or the
-bottom edge (for negative ARG) of the current window.
-If no window is at the desired location, an error is signaled.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'windmove-down "windmove" "\
-Select the window below the current one.
-With no prefix argument, or with prefix argument equal to zero,
-\"down\" is relative to the position of point in the window; otherwise
-it is relative to the left edge (for positive ARG) or the right edge
-\(for negative ARG) of the current window.
-If no window is at the desired location, an error is signaled.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'windmove-default-keybindings "windmove" "\
-Set up keybindings for `windmove'.
-Keybindings are of the form MODIFIER-{left,right,up,down}.
-Default MODIFIER is 'shift.
-
-\(fn &optional MODIFIER)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (winner-mode) "winner" "winner.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from winner.el
-
-(defvar winner-mode nil "\
-Non-nil if Winner mode is enabled.
-See the command `winner-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `winner-mode'.")
-
-(custom-autoload 'winner-mode "winner" nil)
-
-(autoload 'winner-mode "winner" "\
-Toggle Winner mode on or off.
-With a prefix argument ARG, enable Winner mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
-\\{winner-mode-map}
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (woman-bookmark-jump woman-find-file woman-dired-find-file
-;;;;;; woman woman-locale) "woman" "woman.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from woman.el
-
-(defvar woman-locale nil "\
-String specifying a manual page locale, or nil.
-If a manual page is available in the specified locale
-\(e.g. \"sv_SE.ISO8859-1\"), it will be offered in preference to the
-default version. Normally, `set-locale-environment' sets this at startup.")
-
-(custom-autoload 'woman-locale "woman" t)
-
-(autoload 'woman "woman" "\
-Browse UN*X man page for TOPIC (Without using external Man program).
-The major browsing mode used is essentially the standard Man mode.
-Choose the filename for the man page using completion, based on the
-topic selected from the directories specified in `woman-manpath' and
-`woman-path'. The directory expansions and topics are cached for
-speed, but a non-nil interactive argument forces the caches to be
-updated (e.g. to re-interpret the current directory).
-
-Used non-interactively, arguments are optional: if given then TOPIC
-should be a topic string and non-nil RE-CACHE forces re-caching.
-
-\(fn &optional TOPIC RE-CACHE)" t nil)
-
-(autoload 'woman-dired-find-file "woman" "\
-In dired, run the WoMan man-page browser on this file.
-
-\(fn)" t nil)
-
-(autoload 'woman-find-file "woman" "\
-Find, decode and browse a specific UN*X man-page source file FILE-NAME.
-Use existing buffer if possible; reformat only if prefix arg given.
-When called interactively, optional argument REFORMAT forces reformatting
-of an existing WoMan buffer formatted earlier.
-No external programs are used, except that `gunzip' will be used to
-decompress the file if appropriate. See the documentation for the
-`woman' command for further details.
-
-\(fn FILE-NAME &optional REFORMAT)" t nil)
-
-(autoload 'woman-bookmark-jump "woman" "\
-Default bookmark handler for Woman buffers.
-
-\(fn BOOKMARK)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from emulation/ws-mode.el
-
-(autoload 'wordstar-mode "ws-mode" "\
-Major mode with WordStar-like key bindings.
-
-BUGS:
- - Help menus with WordStar commands (C-j just calls help-for-help)
- are not implemented
- - Options for search and replace
- - Show markers (C-k h) is somewhat strange
- - Search and replace (C-q a) is only available in forward direction
-
-No key bindings beginning with ESC are installed, they will work
-Emacs-like.
-
-The key bindings are:
-
- C-a backward-word
- C-b fill-paragraph
- C-c scroll-up-line
- C-d forward-char
- C-e previous-line
- C-f forward-word
- C-g delete-char
- C-h backward-char
- C-i indent-for-tab-command
- C-j help-for-help
- C-k ordstar-C-k-map
- C-l ws-repeat-search
- C-n open-line
- C-p quoted-insert
- C-r scroll-down-line
- C-s backward-char
- C-t kill-word
- C-u keyboard-quit
- C-v overwrite-mode
- C-w scroll-down
- C-x next-line
- C-y kill-complete-line
- C-z scroll-up
-
- C-k 0 ws-set-marker-0
- C-k 1 ws-set-marker-1
- C-k 2 ws-set-marker-2
- C-k 3 ws-set-marker-3
- C-k 4 ws-set-marker-4
- C-k 5 ws-set-marker-5
- C-k 6 ws-set-marker-6
- C-k 7 ws-set-marker-7
- C-k 8 ws-set-marker-8
- C-k 9 ws-set-marker-9
- C-k b ws-begin-block
- C-k c ws-copy-block
- C-k d save-buffers-kill-emacs
- C-k f find-file
- C-k h ws-show-markers
- C-k i ws-indent-block
- C-k k ws-end-block
- C-k p ws-print-block
- C-k q kill-emacs
- C-k r insert-file
- C-k s save-some-buffers
- C-k t ws-mark-word
- C-k u ws-exdent-block
- C-k C-u keyboard-quit
- C-k v ws-move-block
- C-k w ws-write-block
- C-k x kill-emacs
- C-k y ws-delete-block
-
- C-o c wordstar-center-line
- C-o b switch-to-buffer
- C-o j justify-current-line
- C-o k kill-buffer
- C-o l list-buffers
- C-o m auto-fill-mode
- C-o r set-fill-column
- C-o C-u keyboard-quit
- C-o wd delete-other-windows
- C-o wh split-window-right
- C-o wo other-window
- C-o wv split-window-below
-
- C-q 0 ws-find-marker-0
- C-q 1 ws-find-marker-1
- C-q 2 ws-find-marker-2
- C-q 3 ws-find-marker-3
- C-q 4 ws-find-marker-4
- C-q 5 ws-find-marker-5
- C-q 6 ws-find-marker-6
- C-q 7 ws-find-marker-7
- C-q 8 ws-find-marker-8
- C-q 9 ws-find-marker-9
- C-q a ws-query-replace
- C-q b ws-to-block-begin
- C-q c end-of-buffer
- C-q d end-of-line
- C-q f ws-search
- C-q k ws-to-block-end
- C-q l ws-undo
- C-q p ws-last-cursorp
- C-q r beginning-of-buffer
- C-q C-u keyboard-quit
- C-q w ws-last-error
- C-q y ws-kill-eol
- C-q DEL ws-kill-bol
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (xesam-search) "xesam" "net/xesam.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from net/xesam.el
-
-(autoload 'xesam-search "xesam" "\
-Perform an interactive search.
-ENGINE is the Xesam search engine to be applied, it must be one of the
-entries of `xesam-search-engines'. QUERY is the search string in the
-Xesam user query language. If the search engine does not support
-the Xesam user query language, a Xesam fulltext search is applied.
-
-The default search engine is the first entry in `xesam-search-engines'.
-Example:
-
- (xesam-search (car (xesam-search-engines)) \"emacs\")
-
-\(fn ENGINE QUERY)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el"
-;;;;;; (20764 37850 245357 0))
-;;; Generated autoloads from xml.el
-
-(autoload 'xml-parse-file "xml" "\
-Parse the well-formed XML file FILE.
-Return the top node with all its children.
-If PARSE-DTD is non-nil, the DTD is parsed rather than skipped.
-
-If PARSE-NS is non-nil, then QNAMES are expanded. By default,
-the variable `xml-default-ns' is the mapping from namespaces to
-URIs, and expanded names will be returned as a cons
-
- (\"namespace:\" . \"foo\").
-
-If PARSE-NS is an alist, it will be used as the mapping from
-namespace to URIs instead.
-
-If it is the symbol 'symbol-qnames, expanded names will be
-returned as a plain symbol 'namespace:foo instead of a cons.
-
-Both features can be combined by providing a cons cell
-
- (symbol-qnames . ALIST).
-
-\(fn FILE &optional PARSE-DTD PARSE-NS)" nil nil)
-
-(autoload 'xml-parse-region "xml" "\
-Parse the region from BEG to END in BUFFER.
-Return the XML parse tree, or raise an error if the region does
-not contain well-formed XML.
-
-If BEG is nil, it defaults to `point-min'.
-If END is nil, it defaults to `point-max'.
-If BUFFER is nil, it defaults to the current buffer.
-If PARSE-DTD is non-nil, parse the DTD and return it as the first
-element of the list.
-If PARSE-NS is non-nil, then QNAMES are expanded. By default,
-the variable `xml-default-ns' is the mapping from namespaces to
-URIs, and expanded names will be returned as a cons
-
- (\"namespace:\" . \"foo\").
-
-If PARSE-NS is an alist, it will be used as the mapping from
-namespace to URIs instead.
-
-If it is the symbol 'symbol-qnames, expanded names will be
-returned as a plain symbol 'namespace:foo instead of a cons.
-
-Both features can be combined by providing a cons cell
-
- (symbol-qnames . ALIST).
-
-\(fn &optional BEG END BUFFER PARSE-DTD PARSE-NS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (xmltok-get-declared-encoding-position) "xmltok"
-;;;;;; "nxml/xmltok.el" (20707 18685 911514 0))
-;;; Generated autoloads from nxml/xmltok.el
-
-(autoload 'xmltok-get-declared-encoding-position "xmltok" "\
-Return the position of the encoding in the XML declaration at point.
-If there is a well-formed XML declaration starting at point and it
-contains an encoding declaration, then return (START . END)
-where START and END are the positions of the start and the end
-of the encoding name; if there is no encoding declaration return
-the position where and encoding declaration could be inserted.
-If there is XML that is not well-formed that looks like an XML
-declaration, return nil. Otherwise, return t.
-If LIMIT is non-nil, then do not consider characters beyond LIMIT.
-
-\(fn &optional LIMIT)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from xt-mouse.el
-
-(defvar xterm-mouse-mode nil "\
-Non-nil if Xterm-Mouse mode is enabled.
-See the command `xterm-mouse-mode' for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `xterm-mouse-mode'.")
-
-(custom-autoload 'xterm-mouse-mode "xt-mouse" nil)
-
-(autoload 'xterm-mouse-mode "xt-mouse" "\
-Toggle XTerm mouse mode.
-With a prefix argument ARG, enable XTerm mouse mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-Turn it on to use Emacs mouse commands, and off to use xterm mouse commands.
-This works in terminal emulators compatible with xterm. It only
-works for simple uses of the mouse. Basically, only non-modified
-single clicks are supported. When turned on, the normal xterm
-mouse functionality for such clicks is still available by holding
-down the SHIFT key while pressing the mouse button.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc"
-;;;;;; "gnus/yenc.el" (20707 18685 911514 0))
-;;; Generated autoloads from gnus/yenc.el
-
-(autoload 'yenc-decode-region "yenc" "\
-Yenc decode region between START and END using an internal decoder.
-
-\(fn START END)" t nil)
-
-(autoload 'yenc-extract-filename "yenc" "\
-Extract file name from an yenc header.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism
-;;;;;; yow) "yow" "play/yow.el" (20707 18685 911514 0))
-;;; Generated autoloads from play/yow.el
-
-(autoload 'yow "yow" "\
-Return or display a random Zippy quotation. With prefix arg, insert it.
-
-\(fn &optional INSERT DISPLAY)" t nil)
-
-(autoload 'insert-zippyism "yow" "\
-Prompt with completion for a known Zippy quotation, and insert it at point.
-
-\(fn &optional ZIPPYISM)" t nil)
-
-(autoload 'apropos-zippy "yow" "\
-Return a list of all Zippy quotes matching REGEXP.
-If called interactively, display a list of matches.
-
-\(fn REGEXP)" t nil)
-
-(autoload 'psychoanalyze-pinhead "yow" "\
-Zippy goes to the analyst.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (zone) "zone" "play/zone.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from play/zone.el
-
-(autoload 'zone "zone" "\
-Zone out, completely.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads nil nil ("calc/calc-aent.el" "calc/calc-alg.el"
-;;;;;; "calc/calc-arith.el" "calc/calc-bin.el" "calc/calc-comb.el"
-;;;;;; "calc/calc-cplx.el" "calc/calc-embed.el" "calc/calc-ext.el"
-;;;;;; "calc/calc-fin.el" "calc/calc-forms.el" "calc/calc-frac.el"
-;;;;;; "calc/calc-funcs.el" "calc/calc-graph.el" "calc/calc-help.el"
-;;;;;; "calc/calc-incom.el" "calc/calc-keypd.el" "calc/calc-lang.el"
-;;;;;; "calc/calc-macs.el" "calc/calc-map.el" "calc/calc-math.el"
-;;;;;; "calc/calc-menu.el" "calc/calc-misc.el" "calc/calc-mode.el"
-;;;;;; "calc/calc-mtx.el" "calc/calc-nlfit.el" "calc/calc-poly.el"
-;;;;;; "calc/calc-prog.el" "calc/calc-rewr.el" "calc/calc-rules.el"
-;;;;;; "calc/calc-sel.el" "calc/calc-stat.el" "calc/calc-store.el"
-;;;;;; "calc/calc-stuff.el" "calc/calc-trail.el" "calc/calc-units.el"
-;;;;;; "calc/calc-vec.el" "calc/calc-yank.el" "calc/calcalg2.el"
-;;;;;; "calc/calcalg3.el" "calc/calccomp.el" "calc/calcsel2.el"
-;;;;;; "calendar/cal-bahai.el" "calendar/cal-coptic.el" "calendar/cal-french.el"
-;;;;;; "calendar/cal-html.el" "calendar/cal-islam.el" "calendar/cal-iso.el"
-;;;;;; "calendar/cal-julian.el" "calendar/cal-loaddefs.el" "calendar/cal-mayan.el"
-;;;;;; "calendar/cal-menu.el" "calendar/cal-move.el" "calendar/cal-persia.el"
-;;;;;; "calendar/cal-tex.el" "calendar/cal-x.el" "calendar/diary-loaddefs.el"
-;;;;;; "calendar/hol-loaddefs.el" "cdl.el" "cedet/cedet-cscope.el"
-;;;;;; "cedet/cedet-files.el" "cedet/cedet-global.el" "cedet/cedet-idutils.el"
-;;;;;; "cedet/cedet.el" "cedet/ede/auto.el" "cedet/ede/autoconf-edit.el"
-;;;;;; "cedet/ede/base.el" "cedet/ede/cpp-root.el" "cedet/ede/custom.el"
-;;;;;; "cedet/ede/dired.el" "cedet/ede/emacs.el" "cedet/ede/files.el"
-;;;;;; "cedet/ede/generic.el" "cedet/ede/linux.el" "cedet/ede/locate.el"
-;;;;;; "cedet/ede/make.el" "cedet/ede/makefile-edit.el" "cedet/ede/pconf.el"
-;;;;;; "cedet/ede/pmake.el" "cedet/ede/proj-archive.el" "cedet/ede/proj-aux.el"
-;;;;;; "cedet/ede/proj-comp.el" "cedet/ede/proj-elisp.el" "cedet/ede/proj-info.el"
-;;;;;; "cedet/ede/proj-misc.el" "cedet/ede/proj-obj.el" "cedet/ede/proj-prog.el"
-;;;;;; "cedet/ede/proj-scheme.el" "cedet/ede/proj-shared.el" "cedet/ede/proj.el"
-;;;;;; "cedet/ede/project-am.el" "cedet/ede/shell.el" "cedet/ede/simple.el"
-;;;;;; "cedet/ede/source.el" "cedet/ede/speedbar.el" "cedet/ede/srecode.el"
-;;;;;; "cedet/ede/system.el" "cedet/ede/util.el" "cedet/pulse.el"
-;;;;;; "cedet/semantic/analyze.el" "cedet/semantic/analyze/complete.el"
-;;;;;; "cedet/semantic/analyze/debug.el" "cedet/semantic/analyze/fcn.el"
-;;;;;; "cedet/semantic/analyze/refs.el" "cedet/semantic/bovine.el"
-;;;;;; "cedet/semantic/bovine/c-by.el" "cedet/semantic/bovine/c.el"
-;;;;;; "cedet/semantic/bovine/debug.el" "cedet/semantic/bovine/el.el"
-;;;;;; "cedet/semantic/bovine/gcc.el" "cedet/semantic/bovine/make-by.el"
-;;;;;; "cedet/semantic/bovine/make.el" "cedet/semantic/bovine/scm-by.el"
-;;;;;; "cedet/semantic/bovine/scm.el" "cedet/semantic/chart.el"
-;;;;;; "cedet/semantic/complete.el" "cedet/semantic/ctxt.el" "cedet/semantic/db-debug.el"
-;;;;;; "cedet/semantic/db-ebrowse.el" "cedet/semantic/db-el.el"
-;;;;;; "cedet/semantic/db-file.el" "cedet/semantic/db-find.el" "cedet/semantic/db-global.el"
-;;;;;; "cedet/semantic/db-javascript.el" "cedet/semantic/db-mode.el"
-;;;;;; "cedet/semantic/db-ref.el" "cedet/semantic/db-typecache.el"
-;;;;;; "cedet/semantic/db.el" "cedet/semantic/debug.el" "cedet/semantic/decorate.el"
-;;;;;; "cedet/semantic/decorate/include.el" "cedet/semantic/decorate/mode.el"
-;;;;;; "cedet/semantic/dep.el" "cedet/semantic/doc.el" "cedet/semantic/ede-grammar.el"
-;;;;;; "cedet/semantic/edit.el" "cedet/semantic/find.el" "cedet/semantic/format.el"
-;;;;;; "cedet/semantic/fw.el" "cedet/semantic/grammar-wy.el" "cedet/semantic/grammar.el"
-;;;;;; "cedet/semantic/html.el" "cedet/semantic/ia-sb.el" "cedet/semantic/ia.el"
-;;;;;; "cedet/semantic/idle.el" "cedet/semantic/imenu.el" "cedet/semantic/java.el"
-;;;;;; "cedet/semantic/lex-spp.el" "cedet/semantic/lex.el" "cedet/semantic/mru-bookmark.el"
-;;;;;; "cedet/semantic/sb.el" "cedet/semantic/scope.el" "cedet/semantic/senator.el"
-;;;;;; "cedet/semantic/sort.el" "cedet/semantic/symref.el" "cedet/semantic/symref/cscope.el"
-;;;;;; "cedet/semantic/symref/filter.el" "cedet/semantic/symref/global.el"
-;;;;;; "cedet/semantic/symref/grep.el" "cedet/semantic/symref/idutils.el"
-;;;;;; "cedet/semantic/symref/list.el" "cedet/semantic/tag-file.el"
-;;;;;; "cedet/semantic/tag-ls.el" "cedet/semantic/tag-write.el"
-;;;;;; "cedet/semantic/tag.el" "cedet/semantic/texi.el" "cedet/semantic/util-modes.el"
-;;;;;; "cedet/semantic/util.el" "cedet/semantic/wisent.el" "cedet/semantic/wisent/comp.el"
-;;;;;; "cedet/semantic/wisent/java-tags.el" "cedet/semantic/wisent/javascript.el"
-;;;;;; "cedet/semantic/wisent/javat-wy.el" "cedet/semantic/wisent/js-wy.el"
-;;;;;; "cedet/semantic/wisent/python-wy.el" "cedet/semantic/wisent/python.el"
-;;;;;; "cedet/semantic/wisent/wisent.el" "cedet/srecode.el" "cedet/srecode/args.el"
-;;;;;; "cedet/srecode/compile.el" "cedet/srecode/cpp.el" "cedet/srecode/ctxt.el"
-;;;;;; "cedet/srecode/dictionary.el" "cedet/srecode/document.el"
-;;;;;; "cedet/srecode/el.el" "cedet/srecode/expandproto.el" "cedet/srecode/extract.el"
-;;;;;; "cedet/srecode/fields.el" "cedet/srecode/filters.el" "cedet/srecode/find.el"
-;;;;;; "cedet/srecode/getset.el" "cedet/srecode/insert.el" "cedet/srecode/java.el"
-;;;;;; "cedet/srecode/map.el" "cedet/srecode/mode.el" "cedet/srecode/semantic.el"
-;;;;;; "cedet/srecode/srt-wy.el" "cedet/srecode/srt.el" "cedet/srecode/table.el"
-;;;;;; "cedet/srecode/template.el" "cedet/srecode/texi.el" "cus-dep.el"
-;;;;;; "dframe.el" "dired-aux.el" "dired-x.el" "dos-fns.el" "dos-vars.el"
-;;;;;; "dos-w32.el" "dynamic-setting.el" "emacs-lisp/authors.el"
-;;;;;; "emacs-lisp/avl-tree.el" "emacs-lisp/bindat.el" "emacs-lisp/byte-opt.el"
-;;;;;; "emacs-lisp/chart.el" "emacs-lisp/cl-extra.el" "emacs-lisp/cl-loaddefs.el"
-;;;;;; "emacs-lisp/cl-macs.el" "emacs-lisp/cl-seq.el" "emacs-lisp/cl.el"
-;;;;;; "emacs-lisp/eieio-base.el" "emacs-lisp/eieio-datadebug.el"
-;;;;;; "emacs-lisp/eieio-speedbar.el" "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el"
-;;;;;; "emacs-lisp/gulp.el" "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el"
-;;;;;; "emacs-lisp/regi.el" "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el"
-;;;;;; "emacs-lisp/tcover-unsafep.el" "emulation/cua-gmrk.el" "emulation/cua-rect.el"
-;;;;;; "emulation/edt-lk201.el" "emulation/edt-mapper.el" "emulation/edt-pc.el"
-;;;;;; "emulation/edt-vt100.el" "emulation/tpu-extras.el" "emulation/viper-cmd.el"
-;;;;;; "emulation/viper-ex.el" "emulation/viper-init.el" "emulation/viper-keym.el"
-;;;;;; "emulation/viper-macs.el" "emulation/viper-mous.el" "emulation/viper-util.el"
-;;;;;; "erc/erc-backend.el" "erc/erc-goodies.el" "erc/erc-ibuffer.el"
-;;;;;; "erc/erc-lang.el" "eshell/em-alias.el" "eshell/em-banner.el"
-;;;;;; "eshell/em-basic.el" "eshell/em-cmpl.el" "eshell/em-dirs.el"
-;;;;;; "eshell/em-glob.el" "eshell/em-hist.el" "eshell/em-ls.el"
-;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el"
-;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el"
-;;;;;; "eshell/em-unix.el" "eshell/em-xtra.el" "eshell/esh-arg.el"
-;;;;;; "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-io.el"
-;;;;;; "eshell/esh-module.el" "eshell/esh-opt.el" "eshell/esh-proc.el"
-;;;;;; "eshell/esh-util.el" "eshell/esh-var.el" "ezimage.el" "foldout.el"
-;;;;;; "format-spec.el" "fringe.el" "generic-x.el" "gnus/compface.el"
-;;;;;; "gnus/gnus-async.el" "gnus/gnus-bcklg.el" "gnus/gnus-cite.el"
-;;;;;; "gnus/gnus-cus.el" "gnus/gnus-demon.el" "gnus/gnus-dup.el"
-;;;;;; "gnus/gnus-eform.el" "gnus/gnus-ems.el" "gnus/gnus-int.el"
-;;;;;; "gnus/gnus-logic.el" "gnus/gnus-mh.el" "gnus/gnus-salt.el"
-;;;;;; "gnus/gnus-score.el" "gnus/gnus-setup.el" "gnus/gnus-srvr.el"
-;;;;;; "gnus/gnus-topic.el" "gnus/gnus-undo.el" "gnus/gnus-util.el"
-;;;;;; "gnus/gnus-uu.el" "gnus/gnus-vm.el" "gnus/gssapi.el" "gnus/ietf-drums.el"
-;;;;;; "gnus/legacy-gnus-agent.el" "gnus/mail-parse.el" "gnus/mail-prsvr.el"
-;;;;;; "gnus/mail-source.el" "gnus/mailcap.el" "gnus/messcompat.el"
-;;;;;; "gnus/mm-archive.el" "gnus/mm-bodies.el" "gnus/mm-decode.el"
-;;;;;; "gnus/mm-util.el" "gnus/mm-view.el" "gnus/mml-sec.el" "gnus/mml-smime.el"
-;;;;;; "gnus/nnagent.el" "gnus/nnbabyl.el" "gnus/nndir.el" "gnus/nndraft.el"
-;;;;;; "gnus/nneething.el" "gnus/nngateway.el" "gnus/nnheader.el"
-;;;;;; "gnus/nnimap.el" "gnus/nnir.el" "gnus/nnmail.el" "gnus/nnmaildir.el"
-;;;;;; "gnus/nnmairix.el" "gnus/nnmbox.el" "gnus/nnmh.el" "gnus/nnnil.el"
-;;;;;; "gnus/nnoo.el" "gnus/nnregistry.el" "gnus/nnrss.el" "gnus/nnspool.el"
-;;;;;; "gnus/nntp.el" "gnus/nnvirtual.el" "gnus/nnweb.el" "gnus/registry.el"
-;;;;;; "gnus/rfc1843.el" "gnus/rfc2045.el" "gnus/rfc2047.el" "gnus/rfc2104.el"
-;;;;;; "gnus/rfc2231.el" "gnus/rtree.el" "gnus/shr-color.el" "gnus/sieve-manage.el"
-;;;;;; "gnus/smime.el" "gnus/spam-stat.el" "gnus/spam-wash.el" "hex-util.el"
-;;;;;; "hfy-cmap.el" "ibuf-ext.el" "international/cp51932.el" "international/eucjp-ms.el"
-;;;;;; "international/fontset.el" "international/iso-ascii.el" "international/ja-dic-cnv.el"
-;;;;;; "international/ja-dic-utl.el" "international/ogonek.el" "international/uni-bidi.el"
-;;;;;; "international/uni-category.el" "international/uni-combining.el"
-;;;;;; "international/uni-comment.el" "international/uni-decimal.el"
-;;;;;; "international/uni-decomposition.el" "international/uni-digit.el"
-;;;;;; "international/uni-lowercase.el" "international/uni-mirrored.el"
-;;;;;; "international/uni-name.el" "international/uni-numeric.el"
-;;;;;; "international/uni-old-name.el" "international/uni-titlecase.el"
-;;;;;; "international/uni-uppercase.el" "json.el" "kermit.el" "language/hanja-util.el"
-;;;;;; "language/thai-word.el" "ldefs-boot.el" "loadup.el" "mail/blessmail.el"
-;;;;;; "mail/mailheader.el" "mail/mspools.el" "mail/rfc2368.el"
-;;;;;; "mail/rfc822.el" "mail/rmail-spam-filter.el" "mail/rmailedit.el"
-;;;;;; "mail/rmailkwd.el" "mail/rmailmm.el" "mail/rmailmsc.el" "mail/rmailsort.el"
-;;;;;; "mail/rmailsum.el" "mail/undigest.el" "md4.el" "mh-e/mh-acros.el"
-;;;;;; "mh-e/mh-alias.el" "mh-e/mh-buffers.el" "mh-e/mh-compat.el"
-;;;;;; "mh-e/mh-funcs.el" "mh-e/mh-gnus.el" "mh-e/mh-identity.el"
-;;;;;; "mh-e/mh-inc.el" "mh-e/mh-junk.el" "mh-e/mh-letter.el" "mh-e/mh-limit.el"
-;;;;;; "mh-e/mh-loaddefs.el" "mh-e/mh-mime.el" "mh-e/mh-print.el"
-;;;;;; "mh-e/mh-scan.el" "mh-e/mh-search.el" "mh-e/mh-seq.el" "mh-e/mh-show.el"
-;;;;;; "mh-e/mh-speed.el" "mh-e/mh-thread.el" "mh-e/mh-tool-bar.el"
-;;;;;; "mh-e/mh-utils.el" "mh-e/mh-xface.el" "mouse-copy.el" "mouse.el"
-;;;;;; "mwheel.el" "net/dns.el" "net/eudc-vars.el" "net/eudcb-bbdb.el"
-;;;;;; "net/eudcb-ldap.el" "net/eudcb-mab.el" "net/eudcb-ph.el"
-;;;;;; "net/hmac-def.el" "net/hmac-md5.el" "net/imap.el" "net/ldap.el"
-;;;;;; "net/mairix.el" "net/newsticker.el" "net/ntlm.el" "net/sasl-cram.el"
-;;;;;; "net/sasl-digest.el" "net/sasl-ntlm.el" "net/sasl.el" "net/soap-client.el"
-;;;;;; "net/soap-inspect.el" "net/socks.el" "net/tls.el" "net/tramp-cache.el"
-;;;;;; "net/tramp-cmds.el" "net/tramp-compat.el" "net/tramp-gvfs.el"
-;;;;;; "net/tramp-gw.el" "net/tramp-loaddefs.el" "net/tramp-sh.el"
-;;;;;; "net/tramp-smb.el" "net/tramp-uu.el" "net/trampver.el" "net/zeroconf.el"
-;;;;;; "notifications.el" "nxml/nxml-enc.el" "nxml/nxml-maint.el"
-;;;;;; "nxml/nxml-ns.el" "nxml/nxml-outln.el" "nxml/nxml-parse.el"
-;;;;;; "nxml/nxml-rap.el" "nxml/nxml-util.el" "nxml/rng-dt.el" "nxml/rng-loc.el"
-;;;;;; "nxml/rng-maint.el" "nxml/rng-match.el" "nxml/rng-parse.el"
-;;;;;; "nxml/rng-pttrn.el" "nxml/rng-uri.el" "nxml/rng-util.el"
-;;;;;; "nxml/xsd-regexp.el" "org/ob-C.el" "org/ob-R.el" "org/ob-asymptote.el"
-;;;;;; "org/ob-awk.el" "org/ob-calc.el" "org/ob-clojure.el" "org/ob-comint.el"
-;;;;;; "org/ob-css.el" "org/ob-ditaa.el" "org/ob-dot.el" "org/ob-emacs-lisp.el"
-;;;;;; "org/ob-eval.el" "org/ob-exp.el" "org/ob-fortran.el" "org/ob-gnuplot.el"
-;;;;;; "org/ob-haskell.el" "org/ob-io.el" "org/ob-java.el" "org/ob-js.el"
-;;;;;; "org/ob-keys.el" "org/ob-latex.el" "org/ob-ledger.el" "org/ob-lilypond.el"
-;;;;;; "org/ob-lisp.el" "org/ob-lob.el" "org/ob-matlab.el" "org/ob-maxima.el"
-;;;;;; "org/ob-mscgen.el" "org/ob-ocaml.el" "org/ob-octave.el" "org/ob-org.el"
-;;;;;; "org/ob-perl.el" "org/ob-picolisp.el" "org/ob-plantuml.el"
-;;;;;; "org/ob-python.el" "org/ob-ref.el" "org/ob-ruby.el" "org/ob-sass.el"
-;;;;;; "org/ob-scala.el" "org/ob-scheme.el" "org/ob-screen.el" "org/ob-sh.el"
-;;;;;; "org/ob-shen.el" "org/ob-sql.el" "org/ob-sqlite.el" "org/ob-table.el"
-;;;;;; "org/ob-tangle.el" "org/ob.el" "org/org-archive.el" "org/org-ascii.el"
-;;;;;; "org/org-attach.el" "org/org-bbdb.el" "org/org-bibtex.el"
-;;;;;; "org/org-clock.el" "org/org-crypt.el" "org/org-ctags.el"
-;;;;;; "org/org-datetree.el" "org/org-docbook.el" "org/org-docview.el"
-;;;;;; "org/org-element.el" "org/org-entities.el" "org/org-eshell.el"
-;;;;;; "org/org-exp-blocks.el" "org/org-exp.el" "org/org-faces.el"
-;;;;;; "org/org-feed.el" "org/org-footnote.el" "org/org-freemind.el"
-;;;;;; "org/org-gnus.el" "org/org-habit.el" "org/org-html.el" "org/org-icalendar.el"
-;;;;;; "org/org-id.el" "org/org-indent.el" "org/org-info.el" "org/org-inlinetask.el"
-;;;;;; "org/org-install.el" "org/org-irc.el" "org/org-jsinfo.el"
-;;;;;; "org/org-latex.el" "org/org-list.el" "org/org-loaddefs.el"
-;;;;;; "org/org-lparse.el" "org/org-mac-message.el" "org/org-macs.el"
-;;;;;; "org/org-mew.el" "org/org-mhe.el" "org/org-mks.el" "org/org-mobile.el"
-;;;;;; "org/org-mouse.el" "org/org-odt.el" "org/org-pcomplete.el"
-;;;;;; "org/org-plot.el" "org/org-protocol.el" "org/org-publish.el"
-;;;;;; "org/org-remember.el" "org/org-rmail.el" "org/org-special-blocks.el"
-;;;;;; "org/org-src.el" "org/org-table.el" "org/org-taskjuggler.el"
-;;;;;; "org/org-timer.el" "org/org-vm.el" "org/org-w3m.el" "org/org-wl.el"
-;;;;;; "org/org-xoxo.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/cc-langs.el" "progmodes/cc-menus.el"
-;;;;;; "progmodes/ebnf-abn.el" "progmodes/ebnf-bnf.el" "progmodes/ebnf-dtd.el"
-;;;;;; "progmodes/ebnf-ebx.el" "progmodes/ebnf-iso.el" "progmodes/ebnf-otz.el"
-;;;;;; "progmodes/ebnf-yac.el" "progmodes/idlw-complete-structtag.el"
-;;;;;; "progmodes/idlw-help.el" "progmodes/idlw-toolbar.el" "progmodes/mantemp.el"
-;;;;;; "progmodes/xscheme.el" "ps-def.el" "ps-mule.el" "ps-samp.el"
-;;;;;; "saveplace.el" "sb-image.el" "scroll-bar.el" "select.el"
-;;;;;; "soundex.el" "subdirs.el" "tempo.el" "textmodes/bib-mode.el"
-;;;;;; "textmodes/makeinfo.el" "textmodes/page-ext.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" "timezone.el" "tooltip.el" "tree-widget.el"
-;;;;;; "uniquify.el" "url/url-about.el" "url/url-cookie.el" "url/url-dired.el"
-;;;;;; "url/url-domsuf.el" "url/url-expand.el" "url/url-ftp.el"
-;;;;;; "url/url-future.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" "vc/ediff-diff.el" "vc/ediff-init.el" "vc/ediff-merg.el"
-;;;;;; "vc/ediff-ptch.el" "vc/ediff-vers.el" "vc/ediff-wind.el"
-;;;;;; "vc/pcvs-info.el" "vc/pcvs-parse.el" "vc/pcvs-util.el" "vc/vc-dav.el"
-;;;;;; "vcursor.el" "vt-control.el" "vt100-led.el" "w32-common-fns.el"
-;;;;;; "w32-fns.el" "w32-vars.el" "x-dnd.el") (20793 40503 49878
-;;;;;; 878000))
-
-;;;***
-\f
-(provide 'loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; loaddefs.el ends here
+++ /dev/null
-;;; mh-loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (mh-iterate-on-range mh-iterate-on-messages-in-region
-;;;;;; mh-do-at-event-location mh-in-show-buffer with-mh-folder-updating
-;;;;;; mh-defstruct mh-mark-active-p mh-make-local-hook defmacro-mh
-;;;;;; defun-mh mh-funcall-if-exists mh-do-in-xemacs mh-do-in-gnu-emacs
-;;;;;; mh-require-cl) "mh-acros" "mh-acros.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from mh-acros.el
-
-(autoload 'mh-require-cl "mh-acros" "\
-Macro to load \"cl\" if needed.
-
-Emacs coding conventions require that the \"cl\" package not be
-required at runtime. However, the \"cl\" package in Emacs 21.4
-and earlier left \"cl\" routines in their macro expansions. In
-particular, the expansion of (setf (gethash ...) ...) used
-functions in \"cl\" at run time. This macro recognizes that and
-loads \"cl\" appropriately.
-
-\(fn)" nil t)
-
-(autoload 'mh-do-in-gnu-emacs "mh-acros" "\
-Execute BODY if in GNU Emacs.
-
-\(fn &rest BODY)" nil t)
-
-(autoload 'mh-do-in-xemacs "mh-acros" "\
-Execute BODY if in XEmacs.
-
-\(fn &rest BODY)" nil t)
-
-(autoload 'mh-funcall-if-exists "mh-acros" "\
-Call FUNCTION with ARGS as parameters if it exists.
-
-\(fn FUNCTION &rest ARGS)" nil t)
-
-(autoload 'defun-mh "mh-acros" "\
-Create function NAME.
-If FUNCTION exists, then NAME becomes an alias for FUNCTION.
-Otherwise, create function NAME with ARG-LIST and BODY.
-
-\(fn NAME FUNCTION ARG-LIST &rest BODY)" nil t)
-
-(autoload 'defmacro-mh "mh-acros" "\
-Create macro NAME.
-If MACRO exists, then NAME becomes an alias for MACRO.
-Otherwise, create macro NAME with ARG-LIST and BODY.
-
-\(fn NAME MACRO ARG-LIST &rest BODY)" nil t)
-
-(autoload 'mh-make-local-hook "mh-acros" "\
-Make HOOK local if needed.
-XEmacs and versions of GNU Emacs before 21.1 require
-`make-local-hook' to be called.
-
-\(fn HOOK)" nil t)
-
-(autoload 'mh-mark-active-p "mh-acros" "\
-A macro that expands into appropriate code in XEmacs and nil in GNU Emacs.
-In GNU Emacs if CHECK-TRANSIENT-MARK-MODE-FLAG is non-nil then
-check if variable `transient-mark-mode' is active.
-
-\(fn CHECK-TRANSIENT-MARK-MODE-FLAG)" nil t)
-
-(autoload 'mh-defstruct "mh-acros" "\
-Replacement for `defstruct' from the \"cl\" package.
-The `defstruct' in the \"cl\" library produces compiler warnings,
-and generates code that uses functions present in \"cl\" at
-run-time. This is a partial replacement, that avoids these
-issues.
-
-NAME-SPEC declares the name of the structure, while FIELDS
-describes the various structure fields. Lookup `defstruct' for
-more details.
-
-\(fn NAME-SPEC &rest FIELDS)" nil t)
-
-(autoload 'with-mh-folder-updating "mh-acros" "\
-Format is (with-mh-folder-updating (SAVE-MODIFICATION-FLAG) &body BODY).
-Execute BODY, which can modify the folder buffer without having to
-worry about file locking or the read-only flag, and return its result.
-If SAVE-MODIFICATION-FLAG is non-nil, the buffer's modification flag
-is unchanged, otherwise it is cleared.
-
-\(fn SAVE-MODIFICATION-FLAG &rest BODY)" nil t)
-
-(autoload 'mh-in-show-buffer "mh-acros" "\
-Format is (mh-in-show-buffer (SHOW-BUFFER) &body BODY).
-Display buffer SHOW-BUFFER in other window and execute BODY in it.
-Stronger than `save-excursion', weaker than `save-window-excursion'.
-
-\(fn SHOW-BUFFER &rest BODY)" nil t)
-
-(autoload 'mh-do-at-event-location "mh-acros" "\
-Switch to the location of EVENT and execute BODY.
-After BODY has been executed return to original window. The
-modification flag of the buffer in the event window is
-preserved.
-
-\(fn EVENT &rest BODY)" nil t)
-
-(defsubst mh-seq-msgs (sequence) "\
-Extract messages from the given SEQUENCE." (cdr sequence))
-
-(autoload 'mh-iterate-on-messages-in-region "mh-acros" "\
-Iterate over region.
-
-VAR is bound to the message on the current line as we loop
-starting from BEGIN till END. In each step BODY is executed.
-
-If VAR is nil then the loop is executed without any binding.
-
-\(fn VAR BEGIN END &rest BODY)" nil t)
-
-(autoload 'mh-iterate-on-range "mh-acros" "\
-Iterate an operation over a region or sequence.
-
-VAR is bound to each message in turn in a loop over RANGE, which
-can be a message number, a list of message numbers, a sequence, a
-region in a cons cell, or a MH range (something like last:20) in
-a string. In each iteration, BODY is executed.
-
-The parameter RANGE is usually created with
-`mh-interactive-range' in order to provide a uniform interface to
-MH-E functions.
-
-\(fn VAR RANGE &rest BODY)" nil t)
-
-;;;***
-\f
-;;;### (autoloads (mh-alias-grab-from-field mh-alias-for-from-p mh-alias-address-to-alias
-;;;;;; mh-alias-letter-expand-alias mh-alias-minibuffer-confirm-address
-;;;;;; mh-read-address mh-alias-expand mh-alias-reload-maybe) "mh-alias"
-;;;;;; "mh-alias.el" (20707 18685 911514 0))
-;;; Generated autoloads from mh-alias.el
-
-(autoload 'mh-alias-reload-maybe "mh-alias" "\
-Load new MH aliases.
-
-\(fn)" nil nil)
-
-(autoload 'mh-alias-expand "mh-alias" "\
-Return expansion for ALIAS.
-Blind aliases or users from /etc/passwd are not expanded.
-
-\(fn ALIAS)" nil nil)
-
-(autoload 'mh-read-address "mh-alias" "\
-Read an address from the minibuffer with PROMPT.
-
-\(fn PROMPT)" nil nil)
-
-(autoload 'mh-alias-minibuffer-confirm-address "mh-alias" "\
-Display the alias expansion if `mh-alias-flash-on-comma' is non-nil.
-
-\(fn)" t nil)
-
-(autoload 'mh-alias-letter-expand-alias "mh-alias" "\
-Expand mail alias before point.
-
-\(fn)" nil nil)
-
-(autoload 'mh-alias-address-to-alias "mh-alias" "\
-Return the ADDRESS alias if defined, or nil.
-
-\(fn ADDRESS)" nil nil)
-
-(autoload 'mh-alias-for-from-p "mh-alias" "\
-Return t if sender's address has a corresponding alias.
-
-\(fn)" nil nil)
-
-(autoload 'mh-alias-grab-from-field "mh-alias" "\
-Add alias for the sender of the current message.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-insert-auto-fields mh-show-buffer-message-number
-;;;;;; mh-send mh-reply mh-redistribute mh-forward mh-extract-rejected-mail
-;;;;;; mh-edit-again) "mh-comp" "mh-comp.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from mh-comp.el
-
-(autoload 'mh-edit-again "mh-comp" "\
-Edit a MESSAGE to send it again.
-
-If you don't complete a draft for one reason or another, and if
-the draft buffer is no longer available, you can pick your draft
-up again with this command. If you don't use a draft folder, your
-last \"draft\" file will be used. If you use draft folders,
-you'll need to visit the draft folder with \"\\[mh-visit-folder]
-drafts <RET>\", use \\[mh-next-undeleted-msg] to move to the
-appropriate message, and then use \\[mh-edit-again] to prepare
-the message for editing.
-
-This command can also be used to take messages that were sent to
-you and to send them to more people.
-
-Don't use this command to re-edit a message from a Mailer-Daemon
-who complained that your mail wasn't posted for some reason or
-another (see `mh-extract-rejected-mail').
-
-The default message is the current message.
-
-See also `mh-send'.
-
-\(fn MESSAGE)" t nil)
-
-(autoload 'mh-extract-rejected-mail "mh-comp" "\
-Edit a MESSAGE that was returned by the mail system.
-
-This command prepares the message for editing by removing the
-Mailer-Daemon envelope and unneeded header fields. Fix whatever
-addressing problem you had, and send the message again with
-\\[mh-send-letter].
-
-The default message is the current message.
-
-See also `mh-send'.
-
-\(fn MESSAGE)" t nil)
-
-(autoload 'mh-forward "mh-comp" "\
-Forward message.
-
-You are prompted for the TO and CC recipients. You are given a
-draft to edit that looks like it would if you had run the MH
-command \"forw\". You can then add some text.
-
-You can forward several messages by using a RANGE. All of the
-messages in the range are inserted into your draft. Check the
-documentation of `mh-interactive-range' to see how RANGE is read
-in interactive use.
-
-The hook `mh-forward-hook' is called on the draft.
-
-See also `mh-compose-forward-as-mime-flag',
-`mh-forward-subject-format', and `mh-send'.
-
-\(fn TO CC &optional RANGE)" t nil)
-
-(autoload 'mh-redistribute "mh-comp" "\
-Redistribute a message.
-
-This command is similar in function to forwarding mail, but it
-does not allow you to edit the message, nor does it add your name
-to the \"From\" header field. It appears to the recipient as if
-the message had come from the original sender. When you run this
-command, you are prompted for the TO and CC recipients. The
-default MESSAGE is the current message.
-
-Also investigate the command \\[mh-edit-again] for another way to
-redistribute messages.
-
-See also `mh-redist-full-contents-flag'.
-
-The hook `mh-annotate-msg-hook' is run after annotating the
-message and scan line.
-
-\(fn TO CC &optional MESSAGE)" t nil)
-
-(autoload 'mh-reply "mh-comp" "\
-Reply to a MESSAGE.
-
-When you reply to a message, you are first prompted with \"Reply
-to whom?\" (unless the optional argument REPLY-TO is provided).
-You have several choices here.
-
- Response Reply Goes To
-
- from The person who sent the message. This is the
- default, so <RET> is sufficient.
-
- to Replies to the sender, plus all recipients in the
- \"To:\" header field.
-
- all cc Forms a reply to the addresses in the
- \"Mail-Followup-To:\" header field if one
- exists; otherwise forms a reply to the sender,
- plus all recipients.
-
-Depending on your answer, \"repl\" is given a different argument
-to form your reply. Specifically, a choice of \"from\" or none at
-all runs \"repl -nocc all\", and a choice of \"to\" runs \"repl
--cc to\". Finally, either \"cc\" or \"all\" runs \"repl -cc all
--nocc me\".
-
-Two windows are then created. One window contains the message to
-which you are replying in an MH-Show buffer. Your draft, in
-MH-Letter mode (*note `mh-letter-mode'), is in the other window.
-If the reply draft was not one that you expected, check the
-things that affect the behavior of \"repl\" which include the
-\"repl:\" profile component and the \"replcomps\" and
-\"replgroupcomps\" files.
-
-If you supply a prefix argument INCLUDEP, the message you are
-replying to is inserted in your reply after having first been run
-through \"mhl\" with the format file \"mhl.reply\".
-
-Alternatively, you can customize the option `mh-yank-behavior'
-and choose one of its \"Automatically\" variants to do the same
-thing. If you do so, the prefix argument has no effect.
-
-Another way to include the message automatically in your draft is
-to use \"repl: -filter repl.filter\" in your MH profile.
-
-If you wish to customize the header or other parts of the reply
-draft, please see \"repl\" and \"mh-format\".
-
-See also `mh-reply-show-message-flag',
-`mh-reply-default-reply-to', and `mh-send'.
-
-\(fn MESSAGE &optional REPLY-TO INCLUDEP)" t nil)
-
-(autoload 'mh-send "mh-comp" "\
-Compose a message.
-
-Your letter appears in an Emacs buffer whose mode is
-MH-Letter (see `mh-letter-mode').
-
-The arguments TO, CC, and SUBJECT can be used to prefill the
-draft fields or suppress the prompts if `mh-compose-prompt-flag'
-is on. They are also passed to the function set in the option
-`mh-compose-letter-function'.
-
-See also `mh-insert-x-mailer-flag' and `mh-letter-mode-hook'.
-
-Outside of an MH-Folder buffer (`mh-folder-mode'), you must call
-either \\[mh-smail] or \\[mh-smail-other-window] to compose a new
-message.
-
-\(fn TO CC SUBJECT)" t nil)
-
-(autoload 'mh-show-buffer-message-number "mh-comp" "\
-Message number of displayed message in corresponding show buffer.
-
-Return nil if show buffer not displayed.
-If in `mh-letter-mode', don't display the message number being replied
-to, but rather the message number of the show buffer associated with
-our originating folder buffer.
-Optional argument BUFFER can be used to specify the buffer.
-
-\(fn &optional BUFFER)" nil nil)
-
-(autoload 'mh-insert-auto-fields "mh-comp" "\
-Insert custom fields if recipient is found in `mh-auto-fields-list'.
-
-Once the header contains one or more recipients, you may run this
-command to insert these fields manually. However, if you use this
-command, the automatic insertion when the message is sent is
-disabled.
-
-In a program, set buffer-local `mh-insert-auto-fields-done-local'
-if header fields were added. If NON-INTERACTIVE is non-nil,
-perform actions quietly and only if
-`mh-insert-auto-fields-done-local' is nil. Return t if fields
-added; otherwise return nil.
-
-\(fn &optional NON-INTERACTIVE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-msg-filename mh-refile-a-msg mh-delete-a-msg
-;;;;;; mh-folder-from-address mh-prompt-for-refile-folder mh-next-msg
-;;;;;; mh-reset-threads-and-narrowing mh-regenerate-headers mh-process-or-undo-commands
-;;;;;; mh-scan-folder mh-make-folder-mode-line mh-set-folder-modified-p
-;;;;;; mh-outstanding-commands-p mh-recenter mh-goto-cur-msg mh-update-sequences
-;;;;;; mh-write-msg-to-file mh-visit-folder mh-undo mh-toggle-showing
-;;;;;; mh-rescan-folder mh-refile-or-write-again mh-refile-msg mh-quit
-;;;;;; mh-previous-unread-msg mh-previous-undeleted-msg mh-previous-page
-;;;;;; mh-prev-button mh-page-msg mh-next-unread-msg mh-next-undeleted-msg
-;;;;;; mh-next-button mh-modify mh-last-msg mh-inc-folder mh-goto-msg
-;;;;;; mh-first-msg mh-execute-commands mh-delete-msg-no-motion
-;;;;;; mh-delete-msg) "mh-folder" "mh-folder.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from mh-folder.el
-
-(autoload 'mh-delete-msg "mh-folder" "\
-Delete RANGE\\<mh-folder-mode-map>.
-
-To mark a message for deletion, use this command. A \"D\" is
-placed by the message in the scan window, and the next undeleted
-message is displayed. If the previous command had been
-\\[mh-previous-undeleted-msg], then the next message displayed is
-the first undeleted message previous to the message just deleted.
-Use \\[mh-next-undeleted-msg] to force subsequent
-\\[mh-delete-msg] commands to move forward to the next undeleted
-message after deleting the message under the cursor.
-
-The hook `mh-delete-msg-hook' is called after you mark a message
-for deletion. For example, a past maintainer of MH-E used this
-once when he kept statistics on his mail usage.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-delete-msg-no-motion "mh-folder" "\
-Delete RANGE, don't move to next message.
-
-This command marks the RANGE for deletion but leaves the cursor
-at the current message in case you wish to perform other
-operations on the message.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-execute-commands "mh-folder" "\
-Process outstanding delete and refile requests\\<mh-folder-mode-map>.
-
-If you've marked messages to be deleted or refiled and you want
-to go ahead and delete or refile the messages, use this command.
-Many MH-E commands that may affect the numbering of the
-messages (such as \\[mh-rescan-folder] or \\[mh-pack-folder])
-will ask if you want to process refiles or deletes first and then
-either run this command for you or undo the pending refiles and
-deletes.
-
-This function runs `mh-before-commands-processed-hook' before the
-commands are processed and `mh-after-commands-processed-hook'
-after the commands are processed.
-
-\(fn)" t nil)
-
-(autoload 'mh-first-msg "mh-folder" "\
-Display first message.
-
-\(fn)" t nil)
-
-(autoload 'mh-goto-msg "mh-folder" "\
-Go to a message\\<mh-folder-mode-map>.
-
-You can enter the message NUMBER either before or after typing
-\\[mh-goto-msg]. In the latter case, Emacs prompts you.
-
-In a program, optional non-nil second argument NO-ERROR-IF-NO-MESSAGE
-means return nil instead of signaling an error if message does not
-exist; in this case, the cursor is positioned near where the message
-would have been. Non-nil third argument DONT-SHOW means not to show
-the message.
-
-\(fn NUMBER &optional NO-ERROR-IF-NO-MESSAGE DONT-SHOW)" t nil)
-
-(autoload 'mh-inc-folder "mh-folder" "\
-Incorporate new mail into a folder.
-
-You can incorporate mail from any file into the current folder by
-specifying a prefix argument; you'll be prompted for the name of
-the FILE to use as well as the destination FOLDER
-
-The hook `mh-inc-folder-hook' is run after incorporating new
-mail.
-
-Do not call this function from outside MH-E; use \\[mh-rmail]
-instead.
-
-\(fn &optional FILE FOLDER)" t nil)
-
-(autoload 'mh-last-msg "mh-folder" "\
-Display last message.
-
-\(fn)" t nil)
-
-(autoload 'mh-modify "mh-folder" "\
-Edit message.
-
-There are times when you need to edit a message. For example, you
-may need to fix a broken Content-Type header field. You can do
-this with this command. It displays the raw message in an
-editable buffer. When you are done editing, save and kill the
-buffer as you would any other.
-
-From a program, edit MESSAGE; nil means edit current message.
-
-\(fn &optional MESSAGE)" t nil)
-
-(autoload 'mh-next-button "mh-folder" "\
-Go to the next button.
-
-If the end of the buffer is reached then the search wraps over to
-the start of the buffer.
-
-If an optional prefix argument BACKWARD-FLAG is given, the cursor
-will move to the previous button.
-
-\(fn &optional BACKWARD-FLAG)" t nil)
-
-(autoload 'mh-next-undeleted-msg "mh-folder" "\
-Display next message.
-
-This command can be given a prefix argument COUNT to specify how
-many unread messages to skip.
-
-In a program, pause for a second after printing message if we are
-at the last undeleted message and optional argument
-WAIT-AFTER-COMPLAINING-FLAG is non-nil.
-
-\(fn &optional COUNT WAIT-AFTER-COMPLAINING-FLAG)" t nil)
-
-(autoload 'mh-next-unread-msg "mh-folder" "\
-Display next unread message.
-
-This command can be given a prefix argument COUNT to specify how
-many unread messages to skip.
-
-\(fn &optional COUNT)" t nil)
-
-(autoload 'mh-page-msg "mh-folder" "\
-Display next page in message.
-
-You can give this command a prefix argument that specifies the
-number of LINES to scroll. This command will also show the next
-undeleted message if it is used at the bottom of a message.
-
-\(fn &optional LINES)" t nil)
-
-(autoload 'mh-prev-button "mh-folder" "\
-Go to the previous button.
-
-If the beginning of the buffer is reached then the search wraps
-over to the end of the buffer.
-
-\(fn)" t nil)
-
-(autoload 'mh-previous-page "mh-folder" "\
-Display next page in message.
-
-You can give this command a prefix argument that specifies the
-number of LINES to scroll.
-
-\(fn &optional LINES)" t nil)
-
-(autoload 'mh-previous-undeleted-msg "mh-folder" "\
-Display previous message.
-
-This command can be given a prefix argument COUNT to specify how
-many unread messages to skip.
-
-In a program, pause for a second after printing message if we are
-at the last undeleted message and optional argument
-WAIT-AFTER-COMPLAINING-FLAG is non-nil.
-
-\(fn &optional COUNT WAIT-AFTER-COMPLAINING-FLAG)" t nil)
-
-(autoload 'mh-previous-unread-msg "mh-folder" "\
-Display previous unread message.
-
-This command can be given a prefix argument COUNT to specify how
-many unread messages to skip.
-
-\(fn &optional COUNT)" t nil)
-
-(autoload 'mh-quit "mh-folder" "\
-Quit the current MH-E folder.
-
-When you want to quit using MH-E and go back to editing, you can use
-this command. This buries the buffers of the current MH-E folder and
-restores the buffers that were present when you first ran
-\\[mh-rmail]. It also removes any MH-E working buffers whose name
-begins with \" *mh-\" or \"*MH-E \". You can later restore your MH-E
-session by selecting the \"+inbox\" buffer or by running \\[mh-rmail]
-again.
-
-The two hooks `mh-before-quit-hook' and `mh-quit-hook' are called by
-this function. The former one is called before the quit occurs, so you
-might use it to perform any MH-E operations; you could perform some
-query and abort the quit or call `mh-execute-commands', for example.
-The latter is not run in an MH-E context, so you might use it to
-modify the window setup.
-
-\(fn)" t nil)
-
-(autoload 'mh-refile-msg "mh-folder" "\
-Refile (output) RANGE into FOLDER.
-
-You are prompted for the folder name. Note that this command can also
-be used to create folders. If you specify a folder that does not
-exist, you will be prompted to create it.
-
-The hook `mh-refile-msg-hook' is called after a message is marked to
-be refiled.
-
-Check the documentation of `mh-interactive-range' to see how RANGE is
-read in interactive use.
-
-In a program, the variables `mh-last-destination' and
-`mh-last-destination-folder' are not updated if
-DONT-UPDATE-LAST-DESTINATION-FLAG is non-nil.
-
-\(fn RANGE FOLDER &optional DONT-UPDATE-LAST-DESTINATION-FLAG)" t nil)
-
-(autoload 'mh-refile-or-write-again "mh-folder" "\
-Repeat last output command.
-
-If you are refiling several messages into the same folder, you
-can use this command to repeat the last
-refile (\\[mh-refile-msg]) or write (\\[mh-write-msg-to-file]).
-You can use a range.
-
-Check the documentation of `mh-interactive-range' to see how RANGE is
-read in interactive use.
-
-In a program, a non-nil INTERACTIVE-FLAG means that the function was
-called interactively.
-
-\(fn RANGE &optional INTERACTIVE-FLAG)" t nil)
-
-(autoload 'mh-rescan-folder "mh-folder" "\
-Rescan folder\\<mh-folder-mode-map>.
-
-This command is useful to grab all messages in your \"+inbox\" after
-processing your new mail for the first time. If you don't want to
-rescan the entire folder, this command will accept a RANGE. Check the
-documentation of `mh-interactive-range' to see how RANGE is read in
-interactive use.
-
-This command will ask if you want to process refiles or deletes first
-and then either run \\[mh-execute-commands] for you or undo the
-pending refiles and deletes.
-
-In a program, the processing of outstanding commands is not performed
-if DONT-EXEC-PENDING is non-nil.
-
-\(fn &optional RANGE DONT-EXEC-PENDING)" t nil)
-
-(autoload 'mh-toggle-showing "mh-folder" "\
-Toggle between MH-Folder and MH-Folder Show modes.
-
-This command switches between MH-Folder mode and MH-Folder Show
-mode. MH-Folder mode turns off the associated show buffer so that
-you can perform operations on the messages quickly without
-reading them. This is an excellent way to prune out your junk
-mail or to refile a group of messages to another folder for later
-examination.
-
-\(fn)" t nil)
-
-(autoload 'mh-undo "mh-folder" "\
-Undo pending deletes or refiles in RANGE.
-
-If you've deleted a message or refiled it, but changed your mind,
-you can cancel the action before you've executed it. Use this
-command to undo a refile on or deletion of a single message. You
-can also undo refiles and deletes for messages that are found in
-a given RANGE.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-visit-folder "mh-folder" "\
-Visit FOLDER.
-
-When you want to read the messages that you have refiled into folders,
-use this command to visit the folder. You are prompted for the folder
-name.
-
-The folder buffer will show just unseen messages if there are any;
-otherwise, it will show all the messages in the buffer as long there
-are fewer than `mh-large-folder' messages. If there are more, then you
-are prompted for a range of messages to scan.
-
-You can provide a prefix argument in order to specify a RANGE of
-messages to show when you visit the folder. In this case, regions are
-not used to specify the range and `mh-large-folder' is ignored. Check
-the documentation of `mh-interactive-range' to see how RANGE is read
-in interactive use.
-
-Note that this command can also be used to create folders. If you
-specify a folder that does not exist, you will be prompted to create
-it.
-
-Do not call this function from outside MH-E; use \\[mh-rmail] instead.
-
-If, in a program, RANGE is nil (the default), then all messages in
-FOLDER are displayed. If an index buffer is being created then
-INDEX-DATA is used to initialize the index buffer specific data
-structures.
-
-\(fn FOLDER &optional RANGE INDEX-DATA)" t nil)
-
-(autoload 'mh-write-msg-to-file "mh-folder" "\
-Append MESSAGE to end of FILE\\<mh-folder-mode-map>.
-
-You are prompted for the filename. If the file already exists,
-the message is appended to it. You can also write the message to
-the file without the header by specifying a prefix argument
-NO-HEADER. Subsequent writes to the same file can be made with
-the command \\[mh-refile-or-write-again].
-
-\(fn MESSAGE FILE NO-HEADER)" t nil)
-
-(autoload 'mh-update-sequences "mh-folder" "\
-Flush MH-E's state out to MH.
-
-This function updates the sequence specified by your
-\"Unseen-Sequence:\" profile component, \"cur\", and the sequence
-listed by the `mh-tick-seq' option which is \"tick\" by default.
-The message at the cursor is used for \"cur\".
-
-\(fn)" t nil)
-
-(autoload 'mh-goto-cur-msg "mh-folder" "\
-Position the cursor at the current message.
-When optional argument MINIMAL-CHANGES-FLAG is non-nil, the
-function doesn't recenter the folder buffer.
-
-\(fn &optional MINIMAL-CHANGES-FLAG)" nil nil)
-
-(autoload 'mh-recenter "mh-folder" "\
-Like recenter but with three improvements:
-
-- At the end of the buffer it tries to show fewer empty lines.
-
-- operates only if the current buffer is in the selected window.
- (Commands like `save-some-buffers' can make this false.)
-
-- nil ARG means recenter as if prefix argument had been given.
-
-\(fn ARG)" nil nil)
-
-(autoload 'mh-outstanding-commands-p "mh-folder" "\
-Return non-nil if there are outstanding deletes or refiles.
-
-\(fn)" nil nil)
-
-(autoload 'mh-set-folder-modified-p "mh-folder" "\
-Mark current folder as modified or unmodified according to FLAG.
-
-\(fn FLAG)" nil nil)
-
-(autoload 'mh-make-folder-mode-line "mh-folder" "\
-Set the fields of the mode line for a folder buffer.
-The optional argument is now obsolete and IGNORED. It used to be
-used to pass in what is now stored in the buffer-local variable
-`mh-mode-line-annotation'.
-
-\(fn &optional IGNORED)" nil nil)
-
-(autoload 'mh-scan-folder "mh-folder" "\
-Scan FOLDER over RANGE.
-
-After the scan is performed, switch to the buffer associated with
-FOLDER.
-
-Check the documentation of `mh-interactive-range' to see how RANGE is
-read in interactive use.
-
-The processing of outstanding commands is not performed if
-DONT-EXEC-PENDING is non-nil.
-
-\(fn FOLDER RANGE &optional DONT-EXEC-PENDING)" nil nil)
-
-(autoload 'mh-process-or-undo-commands "mh-folder" "\
-If FOLDER has outstanding commands, then either process or discard them.
-Called by functions like `mh-sort-folder', so also invalidate
-show buffer.
-
-\(fn FOLDER)" nil nil)
-
-(autoload 'mh-regenerate-headers "mh-folder" "\
-Scan folder over RANGE.
-If UPDATE, append the scan lines, otherwise replace.
-
-\(fn RANGE &optional UPDATE)" nil nil)
-
-(autoload 'mh-reset-threads-and-narrowing "mh-folder" "\
-Reset all variables pertaining to threads and narrowing.
-Also removes all content from the folder buffer.
-
-\(fn)" nil nil)
-
-(autoload 'mh-next-msg "mh-folder" "\
-Move backward or forward to the next undeleted message in the buffer.
-If optional argument WAIT-AFTER-COMPLAINING-FLAG is non-nil and
-we are at the last message, then wait for a second after telling
-the user that there aren't any more unread messages.
-
-\(fn &optional WAIT-AFTER-COMPLAINING-FLAG)" nil nil)
-
-(autoload 'mh-prompt-for-refile-folder "mh-folder" "\
-Prompt the user for a folder in which the message should be filed.
-The folder is returned as a string.
-
-The default folder name is generated by the option
-`mh-default-folder-for-message-function' if it is non-nil or
-`mh-folder-from-address'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-folder-from-address "mh-folder" "\
-Derive folder name from sender.
-
-The name of the folder is derived as follows:
-
- a) The folder name associated with the first address found in
- the list `mh-default-folder-list' is used. Each element in
- this list contains a \"Check Recipient\" item. If this item is
- turned on, then the address is checked against the recipient
- instead of the sender. This is useful for mailing lists.
-
- b) An alias prefixed by `mh-default-folder-prefix'
- corresponding to the address is used. The prefix is used to
- prevent clutter in your mail directory.
-
-Return nil if a folder name was not derived, or if the variable
-`mh-default-folder-must-exist-flag' is t and the folder does not
-exist.
-
-\(fn)" nil nil)
-
-(autoload 'mh-delete-a-msg "mh-folder" "\
-Delete MESSAGE.
-If MESSAGE is nil then the message at point is deleted.
-The hook `mh-delete-msg-hook' is called after you mark a message
-for deletion. For example, a past maintainer of MH-E used this
-once when he kept statistics on his mail usage.
-
-\(fn MESSAGE)" nil nil)
-
-(autoload 'mh-refile-a-msg "mh-folder" "\
-Refile MESSAGE in FOLDER.
-If MESSAGE is nil then the message at point is refiled.
-Folder is a symbol, not a string.
-The hook `mh-refile-msg-hook' is called after a message is marked to
-be refiled.
-
-\(fn MESSAGE FOLDER)" nil nil)
-
-(autoload 'mh-msg-filename "mh-folder" "\
-Return the file name of MSG in FOLDER (default current folder).
-
-\(fn MSG &optional FOLDER)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-undo-folder mh-store-msg mh-sort-folder mh-pipe-msg
-;;;;;; mh-page-digest-backwards mh-page-digest mh-pack-folder mh-list-folders
-;;;;;; mh-kill-folder mh-copy-msg mh-burst-digest) "mh-funcs" "mh-funcs.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mh-funcs.el
-
-(autoload 'mh-burst-digest "mh-funcs" "\
-Break up digest into separate messages\\<mh-folder-mode-map>.
-
-This command uses the MH command \"burst\" to break out each
-message in the digest into its own message. Using this command,
-you can quickly delete unwanted messages, like this: Once the
-digest is split up, toggle out of MH-Folder Show mode with
-\\[mh-toggle-showing] so that the scan lines fill the screen and
-messages aren't displayed. Then use \\[mh-delete-msg] to quickly
-delete messages that you don't want to read (based on the
-\"Subject:\" header field). You can also burst the digest to
-reply directly to the people who posted the messages in the
-digest. One problem you may encounter is that the \"From:\"
-header fields are preceded with a \">\" so that your reply can't
-create the \"To:\" field correctly. In this case, you must
-correct the \"To:\" field yourself.
-
-\(fn)" t nil)
-
-(autoload 'mh-copy-msg "mh-funcs" "\
-Copy RANGE to FOLDER\\<mh-folder-mode-map>.
-
-If you wish to copy a message to another folder, you can use this
-command (see the \"-link\" argument to \"refile\"). Like the
-command \\[mh-refile-msg], this command prompts you for the name
-of the target folder and you can specify a range. Note that
-unlike the command \\[mh-refile-msg], the copy takes place
-immediately. The original copy remains in the current folder.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-\(fn RANGE FOLDER)" t nil)
-
-(autoload 'mh-kill-folder "mh-funcs" "\
-Remove folder.
-
-Remove all of the messages (files) within the current folder, and
-then remove the folder (directory) itself.
-
-Run the abnormal hook `mh-kill-folder-suppress-prompt-hooks'. The
-hook functions are called with no arguments and should return a
-non-nil value to suppress the normal prompt when you remove a
-folder. This is useful for folders that are easily regenerated.
-
-\(fn)" t nil)
-
-(autoload 'mh-list-folders "mh-funcs" "\
-List mail folders.
-
-\(fn)" t nil)
-
-(autoload 'mh-pack-folder "mh-funcs" "\
-Pack folder\\<mh-folder-mode-map>.
-
-This command packs the folder, removing gaps from the numbering
-sequence. If you don't want to rescan the entire folder
-afterward, this command will accept a RANGE. Check the
-documentation of `mh-interactive-range' to see how RANGE is read
-in interactive use.
-
-This command will ask if you want to process refiles or deletes
-first and then either run \\[mh-execute-commands] for you or undo
-the pending refiles and deletes.
-
-The hook `mh-pack-folder-hook' is run after the folder is packed;
-see its documentation for variables it can use.
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-page-digest "mh-funcs" "\
-Display next message in digest.
-
-\(fn)" t nil)
-
-(autoload 'mh-page-digest-backwards "mh-funcs" "\
-Display previous message in digest.
-
-\(fn)" t nil)
-
-(autoload 'mh-pipe-msg "mh-funcs" "\
-Pipe message through shell command COMMAND.
-
-You are prompted for the Unix command through which you wish to
-run your message. If you give a prefix argument INCLUDE-HEADER to
-this command, the message header is included in the text passed
-to the command.
-
-\(fn COMMAND INCLUDE-HEADER)" t nil)
-
-(autoload 'mh-sort-folder "mh-funcs" "\
-Sort folder.
-
-By default, messages are sorted by date. The option
-`mh-sortm-args' holds extra arguments to pass on to the command
-\"sortm\" when a prefix argument EXTRA-ARGS is used.
-
-\(fn &optional EXTRA-ARGS)" t nil)
-
-(autoload 'mh-store-msg "mh-funcs" "\
-Unpack message created with \"uudecode\" or \"shar\".
-
-The default DIRECTORY for extraction is the current directory;
-however, you have a chance to specify a different extraction
-directory. The next time you use this command, the default
-directory is the last directory you used. If you would like to
-change the initial default directory, customize the option
-`mh-store-default-directory', change the value from \"Current\"
-to \"Directory\", and then enter the name of the directory for
-storing the content of these messages.
-
-\(fn DIRECTORY)" t nil)
-
-(autoload 'mh-undo-folder "mh-funcs" "\
-Undo all refiles and deletes in the current folder.
-Arguments are IGNORED (for `revert-buffer').
-
-\(fn &rest IGNORED)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-identity-handler-bottom mh-identity-handler-top
-;;;;;; mh-identity-insert-attribution-verb mh-identity-handler-attribution-verb
-;;;;;; mh-identity-handler-signature mh-identity-handler-gpg-identity
-;;;;;; mh-insert-identity mh-identity-add-menu mh-identity-make-menu)
-;;;;;; "mh-identity" "mh-identity.el" (20707 18685 911514 0))
-;;; Generated autoloads from mh-identity.el
-
-(autoload 'mh-identity-make-menu "mh-identity" "\
-Build the Identity menu.
-This should be called any time `mh-identity-list' or
-`mh-auto-fields-list' change.
-See `mh-identity-add-menu'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-identity-add-menu "mh-identity" "\
-Add the current Identity menu.
-See `mh-identity-make-menu'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-insert-identity "mh-identity" "\
-Insert fields specified by given IDENTITY.
-
-In a program, do not insert fields if MAYBE-INSERT is non-nil,
-`mh-identity-default' is non-nil, and fields have already been
-inserted.
-
-See `mh-identity-list'.
-
-\(fn IDENTITY &optional MAYBE-INSERT)" t nil)
-
-(autoload 'mh-identity-handler-gpg-identity "mh-identity" "\
-Process header FIELD \":pgg-default-user-id\".
-The ACTION is one of 'remove or 'add. If 'add, the VALUE is added.
-The buffer-local variable `mh-identity-pgg-default-user-id' is set to
-VALUE when action 'add is selected.
-
-\(fn FIELD ACTION &optional VALUE)" nil nil)
-
-(autoload 'mh-identity-handler-signature "mh-identity" "\
-Process header FIELD \":signature\".
-The ACTION is one of 'remove or 'add. If 'add, the VALUE is
-added.
-
-\(fn FIELD ACTION &optional VALUE)" nil nil)
-
-(autoload 'mh-identity-handler-attribution-verb "mh-identity" "\
-Process header FIELD \":attribution-verb\".
-The ACTION is one of 'remove or 'add. If 'add, the VALUE is
-added.
-
-\(fn FIELD ACTION &optional VALUE)" nil nil)
-
-(autoload 'mh-identity-insert-attribution-verb "mh-identity" "\
-Insert VALUE as attribution verb, setting up delimiting markers.
-If VALUE is nil, use `mh-extract-from-attribution-verb'.
-
-\(fn VALUE)" nil nil)
-
-(autoload 'mh-identity-handler-top "mh-identity" "\
-Process header FIELD.
-The ACTION is one of 'remove or 'add. If 'add, the VALUE is
-added. If the field wasn't present, it is added to the top of the
-header.
-
-\(fn FIELD ACTION &optional VALUE)" nil nil)
-
-(autoload 'mh-identity-handler-bottom "mh-identity" "\
-Process header FIELD.
-The ACTION is one of 'remove or 'add. If 'add, the VALUE is
-added. If the field wasn't present, it is added to the bottom of
-the header.
-
-\(fn FIELD ACTION &optional VALUE)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-inc-spool-make) "mh-inc" "mh-inc.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from mh-inc.el
-
-(autoload 'mh-inc-spool-make "mh-inc" "\
-Make all commands and defines keys for contents of `mh-inc-spool-list'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-spamprobe-whitelist mh-spamprobe-blacklist
-;;;;;; mh-bogofilter-whitelist mh-bogofilter-blacklist mh-spamassassin-identify-spammers
-;;;;;; mh-spamassassin-whitelist mh-spamassassin-blacklist mh-junk-whitelist
-;;;;;; mh-junk-blacklist) "mh-junk" "mh-junk.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from mh-junk.el
-
-(autoload 'mh-junk-blacklist "mh-junk" "\
-Blacklist RANGE as spam.
-
-This command trains the spam program in use (see the option
-`mh-junk-program') with the content of RANGE and then handles the
-message(s) as specified by the option `mh-junk-disposition'.
-
-Check the documentation of `mh-interactive-range' to see how RANGE is
-read in interactive use.
-
-For more information about using your particular spam fighting
-program, see:
-
- - `mh-spamassassin-blacklist'
- - `mh-bogofilter-blacklist'
- - `mh-spamprobe-blacklist'
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-junk-whitelist "mh-junk" "\
-Whitelist RANGE as ham.
-
-This command reclassifies the RANGE as ham if it were incorrectly
-classified as spam (see the option `mh-junk-program'). It then
-refiles the message into the \"+inbox\" folder.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-spamassassin-blacklist "mh-junk" "\
-Blacklist MSG with SpamAssassin.
-
-SpamAssassin is one of the more popular spam filtering programs.
-Get it from your local distribution or from the SpamAssassin web
-site at URL `http://spamassassin.org/'.
-
-To use SpamAssassin, add the following recipes to
-\".procmailrc\":
-
- PATH=$PATH:/usr/bin/mh
- MAILDIR=$HOME/`mhparam Path`
-
- # Fight spam with SpamAssassin.
- :0fw
- | spamc
-
- # Anything with a spam level of 10 or more is junked immediately.
- :0:
- * ^X-Spam-Level: ..........
- /dev/null
-
- :0:
- * ^X-Spam-Status: Yes
- spam/.
-
-If you don't use \"spamc\", use \"spamassassin -P -a\".
-
-Note that one of the recipes above throws away messages with a
-score greater than or equal to 10. Here's how you can determine a
-value that works best for you.
-
-First, run \"spamassassin -t\" on every mail message in your
-archive and use Gnumeric to verify that the average plus the
-standard deviation of good mail is under 5, the SpamAssassin
-default for \"spam\".
-
-Using Gnumeric, sort the messages by score and view the messages
-with the highest score. Determine the score which encompasses all
-of your interesting messages and add a couple of points to be
-conservative. Add that many dots to the \"X-Spam-Level:\" header
-field above to send messages with that score down the drain.
-
-In the example above, messages with a score of 5-9 are set aside
-in the \"+spam\" folder for later review. The major weakness of
-rules-based filters is a plethora of false positives so it is
-worthwhile to check.
-
-If SpamAssassin classifies a message incorrectly, or is unsure,
-you can use the MH-E commands \\[mh-junk-blacklist] and
-\\[mh-junk-whitelist].
-
-The command \\[mh-junk-blacklist] adds a \"blacklist_from\" entry
-to \"~/spamassassin/user_prefs\", deletes the message, and sends
-the message to the Razor, so that others might not see this spam.
-If the \"sa-learn\" command is available, the message is also
-recategorized as spam.
-
-The command \\[mh-junk-whitelist] adds a \"whitelist_from\" rule
-to the \"~/.spamassassin/user_prefs\" file. If the \"sa-learn\"
-command is available, the message is also recategorized as ham.
-
-Over time, you'll observe that the same host or domain occurs
-repeatedly in the \"blacklist_from\" entries, so you might think
-that you could avoid future spam by blacklisting all mail from a
-particular domain. The utility function
-`mh-spamassassin-identify-spammers' helps you do precisely that.
-This function displays a frequency count of the hosts and domains
-in the \"blacklist_from\" entries from the last blank line in
-\"~/.spamassassin/user_prefs\" to the end of the file. This
-information can be used so that you can replace multiple
-\"blacklist_from\" entries with a single wildcard entry such as:
-
- blacklist_from *@*amazingoffersdirect2u.com
-
-In versions of SpamAssassin (2.50 and on) that support a Bayesian
-classifier, \\[mh-junk-blacklist] uses the program \"sa-learn\"
-to recategorize the message as spam. Neither MH-E, nor
-SpamAssassin, rebuilds the database after adding words, so you
-will need to run \"sa-learn --rebuild\" periodically. This can be
-done by adding the following to your crontab:
-
- 0 * * * * sa-learn --rebuild > /dev/null 2>&1
-
-\(fn MSG)" nil nil)
-
-(autoload 'mh-spamassassin-whitelist "mh-junk" "\
-Whitelist MSG with SpamAssassin.
-
-The \\[mh-junk-whitelist] command adds a \"whitelist_from\" rule to
-the \"~/.spamassassin/user_prefs\" file. If the \"sa-learn\" command
-is available, the message is also recategorized as ham.
-
-See `mh-spamassassin-blacklist' for more information.
-
-\(fn MSG)" nil nil)
-
-(autoload 'mh-spamassassin-identify-spammers "mh-junk" "\
-Identify spammers who are repeat offenders.
-
-This function displays a frequency count of the hosts and domains
-in the \"blacklist_from\" entries from the last blank line in
-\"~/.spamassassin/user_prefs\" to the end of the file. This
-information can be used so that you can replace multiple
-\"blacklist_from\" entries with a single wildcard entry such as:
-
- blacklist_from *@*amazingoffersdirect2u.com
-
-\(fn)" t nil)
-
-(autoload 'mh-bogofilter-blacklist "mh-junk" "\
-Blacklist MSG with bogofilter.
-
-Bogofilter is a Bayesian spam filtering program. Get it from your
-local distribution or from the bogofilter web site at URL
-`http://bogofilter.sourceforge.net/'.
-
-Bogofilter is taught by running:
-
- bogofilter -n < good-message
-
-on every good message, and
-
- bogofilter -s < spam-message
-
-on every spam message. This is called a full training; three other
-training methods are described in the FAQ that is distributed with
-bogofilter. Note that most Bayesian filters need 1000 to 5000 of each
-type of message to start doing a good job.
-
-To use bogofilter, add the following recipes to \".procmailrc\":
-
- PATH=$PATH:/usr/bin/mh
- MAILDIR=$HOME/`mhparam Path`
-
- # Fight spam with bogofilter.
- :0fw
- | bogofilter -3 -e -p
-
- :0:
- * ^X-Bogosity: Yes, tests=bogofilter
- spam/.
-
- :0:
- * ^X-Bogosity: Unsure, tests=bogofilter
- spam/unsure/.
-
-If bogofilter classifies a message incorrectly, or is unsure, you can
-use the MH-E commands \\[mh-junk-blacklist] and \\[mh-junk-whitelist]
-to update bogofilter's training.
-
-The \"Bogofilter FAQ\" suggests that you run the following
-occasionally to shrink the database:
-
- bogoutil -d wordlist.db | bogoutil -l wordlist.db.new
- mv wordlist.db wordlist.db.prv
- mv wordlist.db.new wordlist.db
-
-The \"Bogofilter tuning HOWTO\" describes how you can fine-tune Bogofilter.
-
-\(fn MSG)" nil nil)
-
-(autoload 'mh-bogofilter-whitelist "mh-junk" "\
-Whitelist MSG with bogofilter.
-
-See `mh-bogofilter-blacklist' for more information.
-
-\(fn MSG)" nil nil)
-
-(autoload 'mh-spamprobe-blacklist "mh-junk" "\
-Blacklist MSG with SpamProbe.
-
-SpamProbe is a Bayesian spam filtering program. Get it from your
-local distribution or from the SpamProbe web site at URL
-`http://spamprobe.sourceforge.net'.
-
-To use SpamProbe, add the following recipes to \".procmailrc\":
-
- PATH=$PATH:/usr/bin/mh
- MAILDIR=$HOME/`mhparam Path`
-
- # Fight spam with SpamProbe.
- :0
- SCORE=| spamprobe receive
-
- :0 wf
- | formail -I \"X-SpamProbe: $SCORE\"
-
- :0:
- *^X-SpamProbe: SPAM
- spam/.
-
-If SpamProbe classifies a message incorrectly, you can use the
-MH-E commands \\[mh-junk-blacklist] and \\[mh-junk-whitelist] to
-update SpamProbe's training.
-
-\(fn MSG)" nil nil)
-
-(autoload 'mh-spamprobe-whitelist "mh-junk" "\
-Whitelist MSG with SpamProbe.
-
-See `mh-spamprobe-blacklist' for more information.
-
-\(fn MSG)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-letter-toggle-header-field-display-button mh-complete-word
-;;;;;; mh-position-on-field mh-letter-next-header-field mh-yank-cur-msg
-;;;;;; mh-insert-signature mh-letter-mode) "mh-letter" "mh-letter.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mh-letter.el
-
-(autoload 'mh-letter-mode "mh-letter" "\
-Mode for composing letters in MH-E\\<mh-letter-mode-map>.
-
-When you have finished composing, type \\[mh-send-letter] to send
-the message using the MH mail handling system.
-
-There are two types of tags used by MH-E when composing MIME
-messages: MML and MH. The option `mh-compose-insertion' controls
-what type of tags are inserted by MH-E commands. These tags can
-be converted to MIME body parts by running \\[mh-mh-to-mime] for
-MH-style directives or \\[mh-mml-to-mime] for MML tags.
-
-Options that control this mode can be changed with
-\\[customize-group]; specify the \"mh-compose\" group.
-
-When a message is composed, the hooks `text-mode-hook',
-`mail-mode-hook', and `mh-letter-mode-hook' are run (in that
-order).
-
-\\{mh-letter-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'mh-insert-signature "mh-letter" "\
-Insert signature in message.
-
-This command inserts your signature at the current cursor location.
-
-By default, the text of your signature is taken from the file
-\"~/.signature\". You can read from other sources by changing the
-option `mh-signature-file-name'.
-
-A signature separator (\"-- \") will be added if the signature block
-does not contain one and `mh-signature-separator-flag' is on.
-
-The hook `mh-insert-signature-hook' is run after the signature is
-inserted. Hook functions may access the actual name of the file or the
-function used to insert the signature with `mh-signature-file-name'.
-
-The signature can also be inserted using Identities (see
-`mh-identity-list').
-
-In a program, you can pass in a signature FILE.
-
-\(fn &optional FILE)" t nil)
-
-(autoload 'mh-yank-cur-msg "mh-letter" "\
-Insert the current message into the draft buffer.
-
-It is often useful to insert a snippet of text from a letter that
-someone mailed to provide some context for your reply. This
-command does this by adding an attribution, yanking a portion of
-text from the message to which you're replying, and inserting
-`mh-ins-buf-prefix' (`> ') before each line.
-
-The attribution consists of the sender's name and email address
-followed by the content of the option
-`mh-extract-from-attribution-verb'.
-
-You can also turn on the option
-`mh-delete-yanked-msg-window-flag' to delete the window
-containing the original message after yanking it to make more
-room on your screen for your reply.
-
-You can control how the message to which you are replying is
-yanked into your reply using `mh-yank-behavior'.
-
-If this isn't enough, you can gain full control over the
-appearance of the included text by setting `mail-citation-hook'
-to a function that modifies it. For example, if you set this hook
-to `trivial-cite' (which is NOT part of Emacs), set
-`mh-yank-behavior' to \"Body and Header\" (see URL
-`http://shasta.cs.uiuc.edu/~lrclause/tc.html').
-
-Note that if `mail-citation-hook' is set, `mh-ins-buf-prefix' is
-not inserted. If the option `mh-yank-behavior' is set to one of
-the supercite flavors, the hook `mail-citation-hook' is ignored
-and `mh-ins-buf-prefix' is not inserted.
-
-\(fn)" t nil)
-
-(autoload 'mh-letter-next-header-field "mh-letter" "\
-Cycle to the next header field.
-If we are at the last header field go to the start of the message
-body.
-
-\(fn)" nil nil)
-
-(autoload 'mh-position-on-field "mh-letter" "\
-Move to the end of the FIELD in the header.
-Move to end of entire header if FIELD not found.
-Returns non-nil if FIELD was found.
-The optional second arg is for pre-version 4 compatibility and is
-IGNORED.
-
-\(fn FIELD &optional IGNORED)" nil nil)
-
-(autoload 'mh-complete-word "mh-letter" "\
-Complete WORD from CHOICES.
-Any match found replaces the text from BEGIN to END.
-
-\(fn WORD CHOICES BEGIN END)" nil nil)
-
-(autoload 'mh-letter-toggle-header-field-display-button "mh-letter" "\
-Toggle header field display at location of EVENT.
-This function does the same thing as
-`mh-letter-toggle-header-field-display' except that it is
-callable from a mouse button.
-
-\(fn EVENT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-narrow-to-to mh-narrow-to-subject mh-narrow-to-range
-;;;;;; mh-narrow-to-from mh-narrow-to-cc mh-delete-subject-or-thread
-;;;;;; mh-delete-subject) "mh-limit" "mh-limit.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from mh-limit.el
-
-(autoload 'mh-delete-subject "mh-limit" "\
-Delete messages with same subject\\<mh-folder-mode-map>.
-
-To delete messages faster, you can use this command to delete all
-the messages with the same subject as the current message. This
-command puts these messages in a sequence named \"subject\". You
-can undo this action by using \\[mh-undo] with a prefix argument
-and then specifying the \"subject\" sequence.
-
-\(fn)" t nil)
-
-(autoload 'mh-delete-subject-or-thread "mh-limit" "\
-Delete messages with same subject or thread\\<mh-folder-mode-map>.
-
-To delete messages faster, you can use this command to delete all
-the messages with the same subject as the current message. This
-command puts these messages in a sequence named \"subject\". You
-can undo this action by using \\[mh-undo] with a prefix argument
-and then specifying the \"subject\" sequence.
-
-However, if the buffer is displaying a threaded view of the
-folder then this command behaves like \\[mh-thread-delete].
-
-\(fn)" t nil)
-
-(autoload 'mh-narrow-to-cc "mh-limit" "\
-Limit to messages with the same \"Cc:\" field.
-With a prefix argument, edit PICK-EXPR.
-
-Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command.
-
-\(fn &optional PICK-EXPR)" t nil)
-
-(autoload 'mh-narrow-to-from "mh-limit" "\
-Limit to messages with the same \"From:\" field.
-With a prefix argument, edit PICK-EXPR.
-
-Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command.
-
-\(fn &optional PICK-EXPR)" t nil)
-
-(autoload 'mh-narrow-to-range "mh-limit" "\
-Limit to RANGE.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command.
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-narrow-to-subject "mh-limit" "\
-Limit to messages with same subject.
-With a prefix argument, edit PICK-EXPR.
-The string Re: is removed from the search.
-
-Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command.
-
-\(fn &optional PICK-EXPR)" t nil)
-
-(autoload 'mh-narrow-to-to "mh-limit" "\
-Limit to messages with the same \"To:\" field.
-With a prefix argument, edit PICK-EXPR.
-
-Use \\<mh-folder-mode-map>\\[mh-widen] to undo this command.
-
-\(fn &optional PICK-EXPR)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-destroy-postponed-handles mh-mime-cleanup mh-have-file-command
-;;;;;; mh-file-mime-type mh-mh-directive-present-p mh-mml-tag-present-p
-;;;;;; mh-mml-unsecure-message mh-mml-to-mime mh-mml-secure-message-signencrypt
-;;;;;; mh-mml-secure-message-sign mh-mml-secure-message-encrypt
-;;;;;; mh-mh-to-mime-undo mh-mh-to-mime mh-mh-compose-external-type
-;;;;;; mh-mh-compose-external-compressed-tar mh-mh-compose-anon-ftp
-;;;;;; mh-compose-insertion mh-mml-forward-message mh-compose-forward
-;;;;;; mh-display-emphasis mh-display-smileys mh-add-missing-mime-version-header
-;;;;;; mh-goto-next-button mh-mime-display mh-decode-message-subject
-;;;;;; mh-decode-message-header mh-toggle-mime-buttons mh-toggle-mh-decode-mime-flag
-;;;;;; mh-mime-save-parts mh-folder-toggle-mime-part mh-folder-save-mime-part
-;;;;;; mh-folder-inline-mime-part mh-display-with-external-viewer
-;;;;;; mh-buffer-data) "mh-mime" "mh-mime.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from mh-mime.el
-
-(autoload 'mh-buffer-data "mh-mime" "\
-Convenience macro to get the MIME data structures of the current buffer.
-
-\(fn)" nil t)
-
-(autoload 'mh-display-with-external-viewer "mh-mime" "\
-View attachment externally.
-
-If Emacs does not know how to view an attachment, you could save
-it into a file and then run some program to open it. It is
-easier, however, to launch the program directly from MH-E with
-this command. While you'll most likely use this to view
-spreadsheets and documents, it is also useful to use your browser
-to view HTML attachments with higher fidelity than what Emacs can
-provide.
-
-This command displays the attachment associated with the button
-under the cursor. If the cursor is not located over a button,
-then the cursor first moves to the next button, wrapping to the
-beginning of the message if necessary. You can provide a numeric
-prefix argument PART-INDEX to view the attachment labeled with
-that number.
-
-This command tries to provide a reasonable default for the viewer
-by calling the Emacs function `mailcap-mime-info'. This function
-usually reads the file \"/etc/mailcap\".
-
-\(fn PART-INDEX)" t nil)
-
-(autoload 'mh-folder-inline-mime-part "mh-mime" "\
-Show attachment verbatim.
-
-You can view the raw contents of an attachment with this command.
-This command displays (or hides) the contents of the attachment
-associated with the button under the cursor verbatim. If the
-cursor is not located over a button, then the cursor first moves
-to the next button, wrapping to the beginning of the message if
-necessary.
-
-You can also provide a numeric prefix argument PART-INDEX to view
-the attachment labeled with that number.
-
-\(fn PART-INDEX)" t nil)
-
-(autoload 'mh-folder-save-mime-part "mh-mime" "\
-Save (output) attachment.
-
-This command saves the attachment associated with the button under the
-cursor. If the cursor is not located over a button, then the cursor
-first moves to the next button, wrapping to the beginning of the
-message if necessary.
-
-You can also provide a numeric prefix argument PART-INDEX to save the
-attachment labeled with that number.
-
-This command prompts you for a filename and suggests a specific name
-if it is available.
-
-\(fn PART-INDEX)" t nil)
-
-(autoload 'mh-folder-toggle-mime-part "mh-mime" "\
-View attachment.
-
-This command displays (or hides) the attachment associated with
-the button under the cursor. If the cursor is not located over a
-button, then the cursor first moves to the next button, wrapping
-to the beginning of the message if necessary. This command has
-the advantage over related commands of working from the MH-Folder
-buffer.
-
-You can also provide a numeric prefix argument PART-INDEX to view
-the attachment labeled with that number. If Emacs does not know
-how to display the attachment, then Emacs offers to save the
-attachment in a file.
-
-\(fn PART-INDEX)" t nil)
-
-(autoload 'mh-mime-save-parts "mh-mime" "\
-Save attachments.
-
-You can save all of the attachments at once with this command.
-The attachments are saved in the directory specified by the
-option `mh-mime-save-parts-default-directory' unless you use a
-prefix argument PROMPT in which case you are prompted for the
-directory. These directories may be superseded by MH profile
-components, since this function calls on \"mhstore\" (\"mhn\") to
-do the work.
-
-\(fn PROMPT)" t nil)
-
-(autoload 'mh-toggle-mh-decode-mime-flag "mh-mime" "\
-Toggle the value of `mh-decode-mime-flag'.
-
-\(fn)" t nil)
-
-(autoload 'mh-toggle-mime-buttons "mh-mime" "\
-Toggle option `mh-display-buttons-for-inline-parts-flag'.
-
-\(fn)" t nil)
-
-(autoload 'mh-decode-message-header "mh-mime" "\
-Decode RFC2047 encoded message header fields.
-
-\(fn)" nil nil)
-
-(autoload 'mh-decode-message-subject "mh-mime" "\
-Decode RFC2047 encoded message header fields.
-
-\(fn)" nil nil)
-
-(autoload 'mh-mime-display "mh-mime" "\
-Display (and possibly decode) MIME handles.
-Optional argument, PRE-DISSECTED-HANDLES is a list of MIME
-handles. If present they are displayed otherwise the buffer is
-parsed and then displayed.
-
-\(fn &optional PRE-DISSECTED-HANDLES)" nil nil)
-
-(autoload 'mh-goto-next-button "mh-mime" "\
-Search for next button satisfying criterion.
-
-If BACKWARD-FLAG is non-nil search backward in the buffer for a mime
-button.
-If CRITERION is a function or a symbol which has a function binding
-then that function must return non-nil at the button we stop.
-
-\(fn BACKWARD-FLAG &optional CRITERION)" nil nil)
-
-(autoload 'mh-add-missing-mime-version-header "mh-mime" "\
-Some mail programs don't put a MIME-Version header.
-I have seen this only in spam, so maybe we shouldn't fix
-this ;-)
-
-\(fn)" nil nil)
-
-(autoload 'mh-display-smileys "mh-mime" "\
-Display smileys.
-
-\(fn)" nil nil)
-
-(autoload 'mh-display-emphasis "mh-mime" "\
-Display graphical emphasis.
-
-\(fn)" nil nil)
-
-(autoload 'mh-compose-forward "mh-mime" "\
-Add tag to forward a message.
-
-You are prompted for a content DESCRIPTION, the name of the
-FOLDER in which the messages to forward are located, and a RANGE
-of messages, which defaults to the current message in that
-folder. Check the documentation of `mh-interactive-range' to see
-how RANGE is read in interactive use.
-
-The option `mh-compose-insertion' controls what type of tags are inserted.
-
-\(fn &optional DESCRIPTION FOLDER RANGE)" t nil)
-
-(autoload 'mh-mml-forward-message "mh-mime" "\
-Forward a message as attachment.
-
-The function will prompt the user for a DESCRIPTION, a FOLDER and
-MESSAGE number.
-
-\(fn DESCRIPTION FOLDER MESSAGE)" nil nil)
-
-(autoload 'mh-compose-insertion "mh-mime" "\
-Add tag to include a file such as an image or sound.
-
-You are prompted for the filename containing the object, the
-media type if it cannot be determined automatically, and a
-content description. If you're using MH-style directives, you
-will also be prompted for additional attributes.
-
-The option `mh-compose-insertion' controls what type of tags are
-inserted. Optional argument INLINE means make it an inline
-attachment.
-
-\(fn &optional INLINE)" t nil)
-
-(autoload 'mh-mh-compose-anon-ftp "mh-mime" "\
-Add tag to include anonymous ftp reference to a file.
-
-You can have your message initiate an \"ftp\" transfer when the
-recipient reads the message. You are prompted for the remote HOST
-and FILENAME, the media TYPE, and the content DESCRIPTION.
-
-See also \\[mh-mh-to-mime].
-
-\(fn HOST FILENAME TYPE DESCRIPTION)" t nil)
-
-(autoload 'mh-mh-compose-external-compressed-tar "mh-mime" "\
-Add tag to include anonymous ftp reference to a compressed tar file.
-
-In addition to retrieving the file via anonymous \"ftp\" as per
-the command \\[mh-mh-compose-anon-ftp], the file will also be
-uncompressed and untarred. You are prompted for the remote HOST
-and FILENAME and the content DESCRIPTION.
-
-See also \\[mh-mh-to-mime].
-
-\(fn HOST FILENAME DESCRIPTION)" t nil)
-
-(autoload 'mh-mh-compose-external-type "mh-mime" "\
-Add tag to refer to a remote file.
-
-This command is a general utility for referencing external files.
-In fact, all of the other commands that insert directives to
-access external files call this command. You are prompted for the
-ACCESS-TYPE, remote HOST and FILENAME, and content TYPE. If you
-provide a prefix argument, you are also prompted for a content
-DESCRIPTION, ATTRIBUTES, PARAMETERS, and a COMMENT.
-
-See also \\[mh-mh-to-mime].
-
-\(fn ACCESS-TYPE HOST FILENAME TYPE &optional DESCRIPTION ATTRIBUTES PARAMETERS COMMENT)" t nil)
-
-(autoload 'mh-mh-to-mime "mh-mime" "\
-Compose MIME message from MH-style directives.
-
-Typically, you send a message with attachments just like any other
-message. However, you may take a sneak preview of the MIME encoding if
-you wish by running this command.
-
-If you wish to pass additional arguments to \"mhbuild\" (\"mhn\")
-to affect how it builds your message, use the option
-`mh-mh-to-mime-args'. For example, you can build a consistency
-check into the message by setting `mh-mh-to-mime-args' to
-\"-check\". The recipient of your message can then run \"mhbuild
--check\" on the message--\"mhbuild\" (\"mhn\") will complain if
-the message has been corrupted on the way. This command only
-consults this option when given a prefix argument EXTRA-ARGS.
-
-The hook `mh-mh-to-mime-hook' is called after the message has been
-formatted.
-
-The effects of this command can be undone by running
-\\[mh-mh-to-mime-undo].
-
-\(fn &optional EXTRA-ARGS)" t nil)
-
-(autoload 'mh-mh-to-mime-undo "mh-mime" "\
-Undo effects of \\[mh-mh-to-mime].
-
-It does this by reverting to a backup file. You are prompted to
-confirm this action, but you can avoid the confirmation by adding
-a prefix argument NOCONFIRM.
-
-\(fn NOCONFIRM)" t nil)
-
-(autoload 'mh-mml-secure-message-encrypt "mh-mime" "\
-Add tag to encrypt the message.
-
-A proper multipart message is created for you when you send the
-message. Use the command \\[mh-mml-unsecure-message] to remove
-this tag. Use a prefix argument METHOD to be prompted for one of
-the possible security methods (see `mh-mml-method-default').
-
-\(fn METHOD)" t nil)
-
-(autoload 'mh-mml-secure-message-sign "mh-mime" "\
-Add tag to sign the message.
-
-A proper multipart message is created for you when you send the
-message. Use the command \\[mh-mml-unsecure-message] to remove
-this tag. Use a prefix argument METHOD to be prompted for one of
-the possible security methods (see `mh-mml-method-default').
-
-\(fn METHOD)" t nil)
-
-(autoload 'mh-mml-secure-message-signencrypt "mh-mime" "\
-Add tag to encrypt and sign the message.
-
-A proper multipart message is created for you when you send the
-message. Use the command \\[mh-mml-unsecure-message] to remove
-this tag. Use a prefix argument METHOD to be prompted for one of
-the possible security methods (see `mh-mml-method-default').
-
-\(fn METHOD)" t nil)
-
-(autoload 'mh-mml-to-mime "mh-mime" "\
-Compose MIME message from MML tags.
-
-Typically, you send a message with attachments just like any
-other message. However, you may take a sneak preview of the MIME
-encoding if you wish by running this command.
-
-This action can be undone by running \\[undo].
-
-\(fn)" t nil)
-
-(autoload 'mh-mml-unsecure-message "mh-mime" "\
-Remove any secure message tags.
-
-\(fn)" t nil)
-
-(autoload 'mh-mml-tag-present-p "mh-mime" "\
-Check if the current buffer has text which may be a MML tag.
-
-\(fn)" nil nil)
-
-(autoload 'mh-mh-directive-present-p "mh-mime" "\
-Check if the text between BEGIN and END might be a MH-style directive.
-The optional argument BEGIN defaults to the beginning of the
-buffer, while END defaults to the end of the buffer.
-
-\(fn &optional BEGIN END)" nil nil)
-
-(autoload 'mh-file-mime-type "mh-mime" "\
-Return MIME type of FILENAME from file command.
-Returns nil if file command not on system.
-
-\(fn FILENAME)" nil nil)
-
-(autoload 'mh-have-file-command "mh-mime" "\
-Return t if 'file' command is on the system.
-'file -i' is used to get MIME type of composition insertion.
-
-\(fn)" nil nil)
-
-(autoload 'mh-mime-cleanup "mh-mime" "\
-Free the decoded MIME parts.
-
-\(fn)" nil nil)
-
-(autoload 'mh-destroy-postponed-handles "mh-mime" "\
-Free MIME data for externally displayed MIME parts.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-print-msg mh-ps-print-toggle-color mh-ps-print-toggle-faces
-;;;;;; mh-ps-print-msg-file mh-ps-print-msg) "mh-print" "mh-print.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mh-print.el
-
-(autoload 'mh-ps-print-msg "mh-print" "\
-Print RANGE\\<mh-folder-mode-map>.
-
-Check the documentation of `mh-interactive-range' to see how RANGE is
-read in interactive use.
-
-This command will print inline text attachments but will not decrypt
-messages. However, when a message is displayed in an MH-Show buffer,
-then that buffer is used verbatim for printing with the caveat that
-only text attachments, if opened inline, are printed. Therefore,
-encrypted messages can be printed by showing and decrypting them
-first.
-
-MH-E uses the \"ps-print\" package to do the printing, so you can
-customize the printing further by going to the `ps-print'
-customization group. This command does not use the options
-`mh-lpr-command-format' or `mh-print-background-flag'. See also the
-commands \\[mh-ps-print-toggle-color] and
-\\[mh-ps-print-toggle-faces].
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-ps-print-msg-file "mh-print" "\
-Print RANGE to FILE\\<mh-folder-mode-map>.
-
-Check the documentation of `mh-interactive-range' to see how RANGE is
-read in interactive use.
-
-This command will print inline text attachments but will not decrypt
-messages. However, when a message is displayed in an MH-Show buffer,
-then that buffer is used verbatim for printing with the caveat that
-only text attachments, if opened inline, are printed. Therefore,
-encrypted messages can be printed by showing and decrypting them
-first.
-
-MH-E uses the \"ps-print\" package to do the printing, so you can
-customize the printing further by going to the `ps-print'
-customization group. This command does not use the options
-`mh-lpr-command-format' or `mh-print-background-flag'. See also the
-commands \\[mh-ps-print-toggle-color] and
-\\[mh-ps-print-toggle-faces].
-
-\(fn RANGE FILE)" t nil)
-
-(autoload 'mh-ps-print-toggle-faces "mh-print" "\
-Toggle whether printing is done with faces or not.
-
-When faces are enabled, the printed message will look very
-similar to the message in the MH-Show buffer.
-
-\(fn)" t nil)
-
-(autoload 'mh-ps-print-toggle-color "mh-print" "\
-Toggle whether color is used in printing messages.
-
-Colors are emulated on black-and-white printers with shades of
-gray. This might produce illegible output, even if your screen
-colors only use shades of gray. If this is the case, try using
-this command to toggle between color, no color, and a black and
-white representation of the colors and see which works best. You
-change this setting permanently by customizing the option
-`ps-print-color-p'.
-
-\(fn)" t nil)
-
-(autoload 'mh-print-msg "mh-print" "\
-Print RANGE the old fashioned way\\<mh-folder-mode-map>.
-
-The message is formatted with \"mhl\" (see option
-`mh-mhl-format-file') and printed with the \"lpr\" command (see
-option `mh-lpr-command-format').
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-Consider using \\[mh-ps-print-msg] instead.
-
-\(fn RANGE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-msg-num-width-to-column mh-msg-num-width mh-scan-format
-;;;;;; mh-set-cmd-note mh-scan-msg-search-regexp mh-scan-msg-number-regexp)
-;;;;;; "mh-scan" "mh-scan.el" (20707 18685 911514 0))
-;;; Generated autoloads from mh-scan.el
-
-(autoload 'mh-scan-msg-number-regexp "mh-scan" "\
-Return value of variable `mh-scan-msg-number-regexp'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-scan-msg-search-regexp "mh-scan" "\
-Return value of variable `mh-scan-msg-search-regexp'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-set-cmd-note "mh-scan" "\
-Set `mh-cmd-note' to COLUMN.
-Note that columns in Emacs start with 0.
-
-\(fn COLUMN)" nil nil)
-
-(autoload 'mh-scan-format "mh-scan" "\
-Return the output format argument for the scan program.
-
-\(fn)" nil nil)
-
-(autoload 'mh-msg-num-width "mh-scan" "\
-Return the width of the largest message number in this FOLDER.
-
-\(fn FOLDER)" nil nil)
-
-(autoload 'mh-msg-num-width-to-column "mh-scan" "\
-Return the column for notations given message number WIDTH.
-Note that columns in Emacs start with 0.
-
-If `mh-scan-format-file' is set to \"Use MH-E scan Format\" this
-means that either `mh-scan-format-mh' or `mh-scan-format-nmh' are
-in use. This function therefore assumes that the first column is
-empty (to provide room for the cursor), the following WIDTH
-columns contain the message number, and the column for notations
-comes after that.
-
-\(fn WIDTH)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-index-update-maps mh-index-read-data mh-index-delete-from-sequence
-;;;;;; mh-index-add-to-sequence mh-create-sequence-map mh-index-create-sequences
-;;;;;; mh-index-execute-commands mh-search-p mh-index-create-imenu-index
-;;;;;; mh-index-delete-folder-headers mh-index-insert-folder-headers
-;;;;;; mh-index-group-by-folder mh-index-visit-folder mh-index-previous-folder
-;;;;;; mh-index-next-folder mh-index-sequenced-messages mh-index-ticked-messages
-;;;;;; mh-index-new-messages mh-search) "mh-search" "mh-search.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from mh-search.el
-
-(autoload 'mh-search "mh-search" "\
-Search your MH mail.
-
-This command helps you find messages in your entire corpus of
-mail. You can search for messages to or from a particular person
-or about a particular subject. In fact, you can also search for
-messages containing selected strings in any arbitrary header
-field or any string found within the messages.
-
-Out of the box, MH-E uses \"pick\" to find messages. With a
-little extra effort, you can set an indexing program which
-rewards you with extremely quick results. The drawback is that
-sometimes the index does not contain the words you're looking
-for. You can still use \"pick\" in these situations.
-
-You are prompted for the FOLDER to search. This can be \"all\" to
-search all folders. Note that the search works recursively on the
-listed folder.
-
-Next, an MH-Search buffer appears where you can enter search
-criteria SEARCH-REGEXP.
-
- From:
- To:
- Cc:
- Date:
- Subject:
- --------
-
-Edit this template by entering your search criteria in an
-appropriate header field that is already there, or create a new
-field yourself. If the string you're looking for could be
-anywhere in a message, then place the string underneath the row
-of dashes.
-
-As an example, let's say that we want to find messages from
-Ginnean about horseback riding in the Kosciusko National
-Park (Australia) during January, 1994. Normally we would start
-with a broad search and narrow it down if necessary to produce a
-manageable amount of data, but we'll cut to the chase and create
-a fairly restrictive set of criteria as follows:\\<mh-search-mode-map>
-
- From: ginnean
- To:
- Cc:
- Date: Jan 1994
- Subject:
- --------
- horse
- kosciusko
-
-As with MH-Letter mode, MH-Search provides commands like
-\\[mh-to-field] to help you fill in the blanks.\\<mh-folder-mode-map>
-
-If you find that you do the same thing over and over when editing
-the search template, you may wish to bind some shortcuts to keys.
-This can be done with the variable `mh-search-mode-hook', which is
-called when \\[mh-search] is run on a new pattern.\\<mh-search-mode-map>
-
-To perform the search, type \\[mh-index-do-search].
-
-Sometimes you're searching for text that is either not indexed,
-or hasn't been indexed yet. In this case you can override the
-default method with the pick method by running the command
-\\[mh-pick-do-search].
-
-The messages that are found are put in a temporary sub-folder of
-\"+mhe-index\" and are displayed in an MH-Folder buffer. This
-buffer is special because it displays messages from multiple
-folders; each set of messages from a given folder has a heading
-with the folder name.\\<mh-folder-mode-map>
-
-The appearance of the heading can be modified by customizing the
-face `mh-search-folder'. You can jump back and forth between the
-headings using the commands \\[mh-index-next-folder] and
-\\[mh-index-previous-folder].
-
-In addition, the command \\[mh-index-visit-folder] can be used to
-visit the folder of the message at point. Initially, only the
-messages that matched the search criteria are displayed in the
-folder. While the temporary buffer has its own set of message
-numbers, the actual messages numbers are shown in the visited
-folder. Thus, the command \\[mh-index-visit-folder] is useful to
-find the actual message number of an interesting message, or to
-view surrounding messages with the command \\[mh-rescan-folder].
-
-Because this folder is temporary, you'll probably get in the
-habit of killing it when you're done with \\[mh-kill-folder].
-
-You can regenerate the results by running this command with a
-prefix argument REDO-SEARCH-FLAG.
-
-Note: This command uses an \"X-MHE-Checksum:\" header field to
-cache the MD5 checksum of a message. This means that if an
-incoming message already contains an \"X-MHE-Checksum:\" field,
-that message might not be found by this command. The following
-\"procmail\" recipe avoids this problem by renaming the existing
-header field:
-
- :0 wf
- | formail -R \"X-MHE-Checksum\" \"X-Old-MHE-Checksum\"
-
-Configuring Indexed Searches
-
-The command \\[mh-search] runs the command defined by the option
-`mh-search-program'. The default value is \"Auto-detect\" which
-means that MH-E will automatically choose one of \"swish++\",
-\"swish-e\", \"mairix\", \"namazu\", \"pick\" and \"grep\" in
-that order. If, for example, you have both \"swish++\" and
-\"mairix\" installed and you want to use \"mairix\", then you can
-set this option to \"mairix\".
-
-The documentation for the following commands describe how to set
-up the various indexing programs to use with MH-E.
-
- - `mh-swish++-execute-search'
- - `mh-swish-execute-search'
- - `mh-mairix-execute-search'
- - `mh-namazu-execute-search'
- - `mh-pick-execute-search'
- - `mh-grep-execute-search'
-
-In a program, if FOLDER is \"+\" or nil, then mail in all folders
-are searched. Optional argument WINDOW-CONFIG stores the window
-configuration that will be restored after the user quits the
-folder containing the index search results.
-
-\(fn FOLDER SEARCH-REGEXP &optional REDO-SEARCH-FLAG WINDOW-CONFIG)" t nil)
-
-(autoload 'mh-index-new-messages "mh-search" "\
-Display unseen messages.
-
-If you use a program such as \"procmail\" to use \"rcvstore\" to file
-your incoming mail automatically, you can display new, unseen,
-messages using this command. All messages in the \"unseen\"
-sequence from the folders in `mh-new-messages-folders' are
-listed.
-
-With a prefix argument, enter a space-separated list of FOLDERS,
-or nothing to search all folders.
-
-\(fn FOLDERS)" t nil)
-
-(autoload 'mh-index-ticked-messages "mh-search" "\
-Display ticked messages.
-
-All messages in `mh-tick-seq' from the folders in
-`mh-ticked-messages-folders' are listed.
-
-With a prefix argument, enter a space-separated list of FOLDERS,
-or nothing to search all folders.
-
-\(fn FOLDERS)" t nil)
-
-(autoload 'mh-index-sequenced-messages "mh-search" "\
-Display messages in any sequence.
-
-All messages from the FOLDERS in `mh-new-messages-folders' in the
-SEQUENCE you provide are listed. With a prefix argument, enter a
-space-separated list of folders at the prompt, or nothing to
-search all folders.
-
-\(fn FOLDERS SEQUENCE)" t nil)
-
-(autoload 'mh-index-next-folder "mh-search" "\
-Jump to the next folder marker.
-
-With non-nil optional argument BACKWARD-FLAG, jump to the previous
-group of results.
-
-\(fn &optional BACKWARD-FLAG)" t nil)
-
-(autoload 'mh-index-previous-folder "mh-search" "\
-Jump to the previous folder marker.
-
-\(fn)" t nil)
-
-(autoload 'mh-index-visit-folder "mh-search" "\
-Visit original folder from where the message at point was found.
-
-\(fn)" t nil)
-
-(autoload 'mh-index-group-by-folder "mh-search" "\
-Partition the messages based on source folder.
-Returns an alist with the folder names in the car and the cdr
-being the list of messages originally from that folder.
-
-\(fn)" nil nil)
-
-(autoload 'mh-index-insert-folder-headers "mh-search" "\
-Annotate the search results with original folder names.
-
-\(fn)" nil nil)
-
-(autoload 'mh-index-delete-folder-headers "mh-search" "\
-Delete the folder headers.
-
-\(fn)" nil nil)
-
-(autoload 'mh-index-create-imenu-index "mh-search" "\
-Create alist of folder names and positions in index folder buffers.
-
-\(fn)" nil nil)
-
-(autoload 'mh-search-p "mh-search" "\
-Non-nil means that this folder was generated by searching.
-
-\(fn)" nil nil)
-
-(autoload 'mh-index-execute-commands "mh-search" "\
-Delete/refile the actual messages.
-The copies in the searched folder are then deleted/refiled to get
-the desired result. Before deleting the messages we make sure
-that the message being deleted is identical to the one that the
-user has marked in the index buffer.
-
-\(fn)" nil nil)
-
-(autoload 'mh-index-create-sequences "mh-search" "\
-Mirror sequences present in source folders in index folder.
-
-\(fn)" nil nil)
-
-(autoload 'mh-create-sequence-map "mh-search" "\
-Return a map from msg number to list of sequences in which it is present.
-SEQ-LIST is an assoc list whose keys are sequence names and whose
-cdr is the list of messages in that sequence.
-
-\(fn SEQ-LIST)" nil nil)
-
-(autoload 'mh-index-add-to-sequence "mh-search" "\
-Add to SEQ the messages in the list MSGS.
-This function updates the source folder sequences. Also makes an
-attempt to update the source folder buffer if we have it open.
-
-\(fn SEQ MSGS)" nil nil)
-
-(autoload 'mh-index-delete-from-sequence "mh-search" "\
-Delete from SEQ the messages in MSGS.
-This function updates the source folder sequences. Also makes an
-attempt to update the source folder buffer if present.
-
-\(fn SEQ MSGS)" nil nil)
-
-(autoload 'mh-index-read-data "mh-search" "\
-Read index data from file.
-
-\(fn)" nil nil)
-
-(autoload 'mh-index-update-maps "mh-search" "\
-Annotate all as yet unannotated messages in FOLDER with their MD5 hash.
-As a side effect msg -> checksum map is updated. Optional
-argument ORIGIN-MAP is a hashtable which maps each message in the
-index folder to the original folder and message from whence it
-was copied. If present the checksum -> (origin-folder,
-origin-index) map is updated too.
-
-\(fn FOLDER &optional ORIGIN-MAP)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-remove-all-notation mh-notate-user-sequences
-;;;;;; mh-notate-deleted-and-refiled mh-remove-cur-notation mh-notate-cur
-;;;;;; mh-notate mh-read-folder-sequences mh-parse-flist-output-line
-;;;;;; mh-translate-range mh-range-to-msg-list mh-read-range mh-interactive-range
-;;;;;; mh-valid-view-change-operation-p mh-add-msgs-to-seq mh-undefine-sequence
-;;;;;; mh-define-sequence mh-seq-to-msgs mh-find-seq mh-valid-seq-p
-;;;;;; mh-read-seq-default mh-widen mh-toggle-tick mh-put-msg-in-seq
-;;;;;; mh-narrow-to-tick mh-narrow-to-seq mh-msg-is-in-seq mh-list-sequences
-;;;;;; mh-delete-seq mh-delete-msg-from-seq mh-catchup) "mh-seq"
-;;;;;; "mh-seq.el" (20707 18685 911514 0))
-;;; Generated autoloads from mh-seq.el
-
-(autoload 'mh-catchup "mh-seq" "\
-Delete RANGE from the \"unseen\" sequence.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-delete-msg-from-seq "mh-seq" "\
-Delete RANGE from SEQUENCE.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-In a program, non-nil INTERNAL-FLAG means do not inform MH of the
-change.
-
-\(fn RANGE SEQUENCE &optional INTERNAL-FLAG)" t nil)
-
-(autoload 'mh-delete-seq "mh-seq" "\
-Delete SEQUENCE.
-
-You are prompted for the sequence to delete. Note that this
-deletes only the sequence, not the messages in the sequence. If
-you want to delete the messages, use \"\\[universal-argument]
-\\[mh-delete-msg]\".
-
-\(fn SEQUENCE)" t nil)
-
-(autoload 'mh-list-sequences "mh-seq" "\
-List all sequences in folder.
-
-The list appears in a buffer named \"*MH-E Sequences*\".
-
-\(fn)" t nil)
-
-(autoload 'mh-msg-is-in-seq "mh-seq" "\
-Display the sequences in which the current message appears.
-
-Use a prefix argument to display the sequences in which another
-MESSAGE appears.
-
-\(fn MESSAGE)" t nil)
-
-(autoload 'mh-narrow-to-seq "mh-seq" "\
-Restrict display to messages in SEQUENCE.
-
-You are prompted for the name of the sequence. What this command
-does is show only those messages that are in the selected
-sequence in the MH-Folder buffer. In addition, it limits further
-MH-E searches to just those messages.
-
-When you want to widen the view to all your messages again, use
-\\[mh-widen].
-
-\(fn SEQUENCE)" t nil)
-
-(autoload 'mh-narrow-to-tick "mh-seq" "\
-Limit to ticked messages.
-
-What this command does is show only those messages that are in
-the \"tick\" sequence (which you can customize via the
-`mh-tick-seq' option) in the MH-Folder buffer. In addition, it
-limits further MH-E searches to just those messages. When you
-want to widen the view to all your messages again, use
-\\[mh-widen].
-
-\(fn)" t nil)
-
-(autoload 'mh-put-msg-in-seq "mh-seq" "\
-Add RANGE to SEQUENCE\\<mh-folder-mode-map>.
-
-Give this command a RANGE and you can add all the messages in a
-sequence to another sequence (for example,
-\"\\[universal-argument] \\[mh-put-msg-in-seq] SourceSequence RET
-DestSequence RET\"). Check the documentation of
-`mh-interactive-range' to see how RANGE is read in interactive
-use.
-
-\(fn RANGE SEQUENCE)" t nil)
-
-(autoload 'mh-toggle-tick "mh-seq" "\
-Toggle tick mark of RANGE.
-
-This command adds messages to the \"tick\" sequence (which you can customize
-via the option `mh-tick-seq'). This sequence can be viewed later with the
-\\[mh-index-ticked-messages] command.
-
-Check the documentation of `mh-interactive-range' to see how RANGE is read in
-interactive use.
-
-\(fn RANGE)" t nil)
-
-(autoload 'mh-widen "mh-seq" "\
-Remove last restriction.
-
-Each limit or sequence restriction can be undone in turn with
-this command. Give this command a prefix argument ALL-FLAG to
-remove all limits and sequence restrictions.
-
-\(fn &optional ALL-FLAG)" t nil)
-
-(autoload 'mh-read-seq-default "mh-seq" "\
-Read and return sequence name with default narrowed or previous sequence.
-PROMPT is the prompt to use when reading. If NOT-EMPTY is non-nil
-then a non-empty sequence is read.
-
-\(fn PROMPT NOT-EMPTY)" nil nil)
-
-(autoload 'mh-valid-seq-p "mh-seq" "\
-Return non-nil if NAME is a valid MH sequence name.
-
-\(fn NAME)" nil nil)
-
-(autoload 'mh-find-seq "mh-seq" "\
-Return sequence NAME.
-
-\(fn NAME)" nil nil)
-
-(autoload 'mh-seq-to-msgs "mh-seq" "\
-Return a list of the messages in SEQ.
-
-\(fn SEQ)" nil nil)
-
-(autoload 'mh-define-sequence "mh-seq" "\
-Define the SEQ to contain the list of MSGS.
-Do not mark pseudo-sequences or empty sequences.
-Signals an error if SEQ is an invalid name.
-
-\(fn SEQ MSGS)" nil nil)
-
-(autoload 'mh-undefine-sequence "mh-seq" "\
-Remove from the SEQ the list of MSGS.
-
-\(fn SEQ MSGS)" nil nil)
-
-(autoload 'mh-add-msgs-to-seq "mh-seq" "\
-Add MSGS to SEQ.
-
-Remove duplicates and keep sequence sorted. If optional
-INTERNAL-FLAG is non-nil, do not mark the message in the scan
-listing or inform MH of the addition.
-
-If DONT-ANNOTATE-FLAG is non-nil then the annotations in the
-folder buffer are not updated.
-
-\(fn MSGS SEQ &optional INTERNAL-FLAG DONT-ANNOTATE-FLAG)" nil nil)
-
-(autoload 'mh-valid-view-change-operation-p "mh-seq" "\
-Check if the view change operation can be performed.
-OP is one of 'widen and 'unthread.
-
-\(fn OP)" nil nil)
-
-(autoload 'mh-interactive-range "mh-seq" "\
-Return interactive specification for message, sequence, range or region.
-By convention, the name of this argument is RANGE.
-
-If variable `transient-mark-mode' is non-nil and the mark is active,
-then this function returns a cons-cell of the region.
-
-If optional prefix argument is provided, then prompt for message range
-with RANGE-PROMPT. A list of messages in that range is returned.
-
-If a MH range is given, say something like last:20, then a list
-containing the messages in that range is returned.
-
-If DEFAULT non-nil then it is returned.
-
-Otherwise, the message number at point is returned.
-
-This function is usually used with `mh-iterate-on-range' in order to
-provide a uniform interface to MH-E functions.
-
-\(fn RANGE-PROMPT &optional DEFAULT)" nil nil)
-
-(autoload 'mh-read-range "mh-seq" "\
-Read a message range with PROMPT.
-
-If FOLDER is non-nil then a range is read from that folder, otherwise
-use `mh-current-folder'.
-
-If DEFAULT is a string then use that as default range to return. If
-DEFAULT is nil then ask user with default answer a range based on the
-sequences that seem relevant. Finally if DEFAULT is t, try to avoid
-prompting the user. Unseen messages, if present, are returned. If the
-folder has fewer than `mh-large-folder' messages then \"all\" messages
-are returned. Finally as a last resort prompt the user.
-
-If EXPAND-FLAG is non-nil then a list of message numbers corresponding
-to the input is returned. If this list is empty then an error is
-raised. If EXPAND-FLAG is nil just return the input string. In this
-case we don't check if the range is empty.
-
-If ASK-FLAG is non-nil, then the user is always queried for a range of
-messages. If ASK-FLAG is nil, then the function checks if the unseen
-sequence is non-empty. If that is the case, `mh-unseen-seq', or the
-list of messages in it depending on the value of EXPAND, is returned.
-Otherwise if the folder has fewer than `mh-large-folder' messages then
-the list of messages corresponding to \"all\" is returned. If neither
-of the above holds then as a last resort the user is queried for a
-range of messages.
-
-If NUMBER-AS-RANGE-FLAG is non-nil, then if a number, N is read as
-input, it is interpreted as the range \"last:N\".
-
-This function replaces the existing function `mh-read-msg-range'.
-Calls to:
-
- (mh-read-msg-range folder flag)
-
-should be replaced with:
-
- (mh-read-range \"Suitable prompt\" folder t nil flag
- mh-interpret-number-as-range-flag)
-
-\(fn PROMPT &optional FOLDER DEFAULT EXPAND-FLAG ASK-FLAG NUMBER-AS-RANGE-FLAG)" nil nil)
-
-(autoload 'mh-range-to-msg-list "mh-seq" "\
-Return a list of messages for RANGE.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use.
-
-\(fn RANGE)" nil nil)
-
-(autoload 'mh-translate-range "mh-seq" "\
-In FOLDER, translate the string EXPR to a list of messages numbers.
-
-\(fn FOLDER EXPR)" nil nil)
-
-(autoload 'mh-parse-flist-output-line "mh-seq" "\
-Parse LINE to generate folder name, unseen messages and total messages.
-If CURRENT-FOLDER is non-nil then it contains the current folder
-name and it is used to avoid problems in corner cases involving
-folders whose names end with a '+' character.
-
-\(fn LINE &optional CURRENT-FOLDER)" nil nil)
-
-(autoload 'mh-read-folder-sequences "mh-seq" "\
-Read and return the predefined sequences for a FOLDER.
-If SAVE-REFILES is non-nil, then keep the sequences
-that note messages to be refiled.
-
-\(fn FOLDER SAVE-REFILES)" nil nil)
-
-(autoload 'mh-notate "mh-seq" "\
-Mark MSG with the character NOTATION at position OFFSET.
-Null MSG means the message at cursor.
-If NOTATION is nil then no change in the buffer occurs.
-
-\(fn MSG NOTATION OFFSET)" nil nil)
-
-(autoload 'mh-notate-cur "mh-seq" "\
-Mark the MH sequence cur.
-In addition to notating the current message with `mh-note-cur'
-the function uses `overlay-arrow-position' to put a marker in the
-fringe.
-
-\(fn)" nil nil)
-
-(autoload 'mh-remove-cur-notation "mh-seq" "\
-Remove old cur notation.
-
-\(fn)" nil nil)
-
-(autoload 'mh-notate-deleted-and-refiled "mh-seq" "\
-Notate messages marked for deletion or refiling.
-Messages to be deleted are given by `mh-delete-list' while
-messages to be refiled are present in `mh-refile-list'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-notate-user-sequences "mh-seq" "\
-Mark user-defined sequences in RANGE.
-
-Check the documentation of `mh-interactive-range' to see how
-RANGE is read in interactive use; if nil all messages are
-notated.
-
-\(fn &optional RANGE)" nil nil)
-
-(autoload 'mh-remove-all-notation "mh-seq" "\
-Remove all notations on all scan lines that MH-E introduces.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-gnus-article-highlight-citation mh-show-addr
-;;;;;; mh-show-mode mh-show-font-lock-keywords-with-cite mh-show-font-lock-keywords
-;;;;;; mh-invalidate-show-buffer mh-clean-msg-header mh-display-msg
-;;;;;; mh-start-of-uncleaned-message mh-maybe-show mh-show-preferred-alternative
-;;;;;; mh-header-display mh-show) "mh-show" "mh-show.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from mh-show.el
-
-(autoload 'mh-show "mh-show" "\
-Display message\\<mh-folder-mode-map>.
-
-If the message under the cursor is already displayed, this command
-scrolls to the beginning of the message. MH-E normally hides a lot of
-the superfluous header fields that mailers add to a message, but if
-you wish to see all of them, use the command \\[mh-header-display].
-
-Two hooks can be used to control how messages are displayed. The
-first hook, `mh-show-mode-hook', is called early on in the
-process of the message display. It is usually used to perform
-some action on the message's content. The second hook,
-`mh-show-hook', is the last thing called after messages are
-displayed. It's used to affect the behavior of MH-E in general or
-when `mh-show-mode-hook' is too early.
-
-From a program, optional argument MESSAGE can be used to display an
-alternative message. The optional argument REDISPLAY-FLAG forces the
-redisplay of the message even if the show buffer was already
-displaying the correct message.
-
-See the \"mh-show\" customization group for a litany of options that
-control what displayed messages look like.
-
-\(fn &optional MESSAGE REDISPLAY-FLAG)" t nil)
-
-(autoload 'mh-header-display "mh-show" "\
-Display message with all header fields\\<mh-folder-mode-map>.
-
-Use the command \\[mh-show] to show the message normally again.
-
-\(fn)" t nil)
-
-(autoload 'mh-show-preferred-alternative "mh-show" "\
-Display message with the default preferred alternative.
-This is as if `mm-discouraged-alternatives' is set to nil.
-
-Use the command \\[mh-show] to show the message normally again.
-
-\(fn)" t nil)
-
-(autoload 'mh-maybe-show "mh-show" "\
-Display message at cursor, but only if in show mode.
-If optional arg MSG is non-nil, display that message instead.
-
-\(fn &optional MSG)" nil nil)
-
-(autoload 'mh-start-of-uncleaned-message "mh-show" "\
-Position uninteresting headers off the top of the window.
-
-\(fn)" nil nil)
-
-(autoload 'mh-display-msg "mh-show" "\
-Display MSG-NUM of FOLDER-NAME.
-Sets the current buffer to the show buffer.
-
-\(fn MSG-NUM FOLDER-NAME)" nil nil)
-
-(autoload 'mh-clean-msg-header "mh-show" "\
-Flush extraneous lines in message header.
-
-Header is cleaned from START to the end of the message header.
-INVISIBLE-HEADERS contains a regular expression specifying lines
-to delete from the header. VISIBLE-HEADERS contains a regular
-expression specifying the lines to display. INVISIBLE-HEADERS is
-ignored if VISIBLE-HEADERS is non-nil.
-
-\(fn START INVISIBLE-HEADERS VISIBLE-HEADERS)" nil nil)
-
-(autoload 'mh-invalidate-show-buffer "mh-show" "\
-Invalidate the show buffer so we must update it to use it.
-
-\(fn)" nil nil)
-
-(autoload 'mh-show-font-lock-keywords "mh-show" "\
-Return variable `mh-show-font-lock-keywords'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-show-font-lock-keywords-with-cite "mh-show" "\
-Return variable `mh-show-font-lock-keywords-with-cite'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-show-mode "mh-show" "\
-Major mode for showing messages in MH-E.\\<mh-show-mode-map>
-
-Email addresses and URLs in the message are highlighted if the
-option `goto-address-highlight-p' is on, which it is by default.
-To view the web page for a highlighted URL or to send a message
-using a highlighted email address, use the middle mouse button or
-\\[goto-address-at-point]. See Info node `(mh-e)Sending Mail' to
-see how to configure Emacs to send the message using MH-E.
-
-The hook `mh-show-mode-hook' is called upon entry to this mode.
-
-See also `mh-folder-mode'.
-
-\\{mh-show-mode-map}
-
-\(fn)" t nil)
-
-(autoload 'mh-show-addr "mh-show" "\
-Use `goto-address'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-gnus-article-highlight-citation "mh-show" "\
-Highlight cited text in current buffer using Gnus.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-speed-add-folder mh-speed-invalidate-map mh-speed-flists
-;;;;;; mh-folder-speedbar-buttons) "mh-speed" "mh-speed.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from mh-speed.el
-
-(autoload 'mh-folder-speedbar-buttons "mh-speed" "\
-Interface function to create MH-E speedbar buffer.
-BUFFER is the MH-E buffer for which the speedbar buffer is to be
-created.
-
-\(fn BUFFER)" nil nil)
-
-(defalias 'mh-show-speedbar-buttons 'mh-folder-speedbar-buttons)
-
-(defalias 'mh-letter-speedbar-buttons 'mh-folder-speedbar-buttons)
-
-(autoload 'mh-speed-flists "mh-speed" "\
-Execute flists -recurse and update message counts.
-If FORCE is non-nil the timer is reset.
-
-Any number of optional FOLDERS can be specified. If specified,
-flists is run only for that one folder.
-
-\(fn FORCE &rest FOLDERS)" t nil)
-
-(autoload 'mh-speed-invalidate-map "mh-speed" "\
-Remove FOLDER from various optimization caches.
-
-\(fn FOLDER)" t nil)
-
-(autoload 'mh-speed-add-folder "mh-speed" "\
-Add FOLDER since it is being created.
-The function invalidates the latest ancestor that is present.
-
-\(fn FOLDER)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-thread-forget-message mh-thread-add-spaces
-;;;;;; mh-thread-find-msg-subject mh-thread-update-scan-line-map
-;;;;;; mh-thread-print-scan-lines mh-thread-generate mh-thread-parse-scan-line
-;;;;;; mh-thread-inc mh-toggle-threads mh-thread-refile mh-thread-previous-sibling
-;;;;;; mh-thread-next-sibling mh-thread-delete mh-thread-ancestor)
-;;;;;; "mh-thread" "mh-thread.el" (20707 18685 911514 0))
-;;; Generated autoloads from mh-thread.el
-
-(autoload 'mh-thread-ancestor "mh-thread" "\
-Display ancestor of current message.
-
-If you do not care for the way a particular thread has turned,
-you can move up the chain of messages with this command. This
-command can also take a prefix argument THREAD-ROOT-FLAG to jump
-to the message that started everything.
-
-\(fn &optional THREAD-ROOT-FLAG)" t nil)
-
-(autoload 'mh-thread-delete "mh-thread" "\
-Delete thread.
-
-\(fn)" t nil)
-
-(autoload 'mh-thread-next-sibling "mh-thread" "\
-Display next sibling.
-
-With non-nil optional argument PREVIOUS-FLAG jump to the previous
-sibling.
-
-\(fn &optional PREVIOUS-FLAG)" t nil)
-
-(autoload 'mh-thread-previous-sibling "mh-thread" "\
-Display previous sibling.
-
-\(fn)" t nil)
-
-(autoload 'mh-thread-refile "mh-thread" "\
-Refile (output) thread into FOLDER.
-
-\(fn FOLDER)" t nil)
-
-(autoload 'mh-toggle-threads "mh-thread" "\
-Toggle threaded view of folder.
-
-\(fn)" t nil)
-
-(autoload 'mh-thread-inc "mh-thread" "\
-Update thread tree for FOLDER.
-All messages after START-POINT are added to the thread tree.
-
-\(fn FOLDER START-POINT)" nil nil)
-
-(autoload 'mh-thread-parse-scan-line "mh-thread" "\
-Parse a scan line.
-If optional argument STRING is given then that is assumed to be
-the scan line. Otherwise uses the line at point as the scan line
-to parse.
-
-\(fn &optional STRING)" nil nil)
-
-(autoload 'mh-thread-generate "mh-thread" "\
-Scan FOLDER to get info for threading.
-Only information about messages in MSG-LIST are added to the tree.
-
-\(fn FOLDER MSG-LIST)" nil nil)
-
-(autoload 'mh-thread-print-scan-lines "mh-thread" "\
-Print scan lines in THREAD-TREE in threaded mode.
-
-\(fn THREAD-TREE)" nil nil)
-
-(autoload 'mh-thread-update-scan-line-map "mh-thread" "\
-In threaded view update `mh-thread-scan-line-map'.
-MSG is the message being notated with NOTATION at OFFSET.
-
-\(fn MSG NOTATION OFFSET)" nil nil)
-
-(autoload 'mh-thread-find-msg-subject "mh-thread" "\
-Find canonicalized subject of MSG.
-This function can only be used the folder is threaded.
-
-\(fn MSG)" nil nil)
-
-(autoload 'mh-thread-add-spaces "mh-thread" "\
-Add COUNT spaces to each scan line in `mh-thread-scan-line-map'.
-
-\(fn COUNT)" nil nil)
-
-(autoload 'mh-thread-forget-message "mh-thread" "\
-Forget the message INDEX from the threading tables.
-
-\(fn INDEX)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-signature-separator-p mh-letter-skip-leading-whitespace-in-header-field
-;;;;;; mh-letter-toggle-header-field-display mh-letter-skipped-header-field-p
-;;;;;; mh-letter-hide-all-skipped-fields mh-header-field-end mh-header-field-beginning
-;;;;;; mh-mail-header-end mh-goto-header-end mh-goto-header-field
-;;;;;; mh-get-header-field mh-extract-from-header-value mh-in-header-p
-;;;;;; mh-prompt-for-folder mh-folder-completion-function mh-speed-flists-active-p
-;;;;;; mh-expand-file-name mh-folder-name-p mh-remove-from-sub-folders-cache
-;;;;;; mh-sub-folders mh-folder-list mh-clear-sub-folders-cache
-;;;;;; mh-get-msg-num mh-lessp mh-coalesce-msg-list mh-prefix-help
-;;;;;; mh-help mh-set-help mh-ephem-message mh-find-path mh-logo-display
-;;;;;; mh-replace-string mh-quote-pick-expr mh-mapc mh-make-local-vars
-;;;;;; mh-delete-line mh-colors-in-use-p mh-colors-available-p mh-beginning-of-word
-;;;;;; mh-search-from-end) "mh-utils" "mh-utils.el" (20707 18685
-;;;;;; 911514 0))
-;;; Generated autoloads from mh-utils.el
-
-(autoload 'mh-search-from-end "mh-utils" "\
-Return the position of last occurrence of CHAR in STRING.
-If CHAR is not present in STRING then return nil. The function is
-used in lieu of `search' in the CL package.
-
-\(fn CHAR STRING)" nil nil)
-
-(autoload 'mh-beginning-of-word "mh-utils" "\
-Return position of the N th word backwards.
-
-\(fn &optional N)" nil nil)
-
-(autoload 'mh-colors-available-p "mh-utils" "\
-Check if colors are available in the Emacs being used.
-
-\(fn)" nil nil)
-
-(autoload 'mh-colors-in-use-p "mh-utils" "\
-Check if colors are being used in the folder buffer.
-
-\(fn)" nil nil)
-
-(autoload 'mh-delete-line "mh-utils" "\
-Delete the next LINES lines.
-
-\(fn LINES)" nil nil)
-
-(autoload 'mh-make-local-vars "mh-utils" "\
-Initialize local variables according to the variable-value PAIRS.
-
-\(fn &rest PAIRS)" nil nil)
-
-(autoload 'mh-mapc "mh-utils" "\
-Apply FUNCTION to each element of LIST for side effects only.
-
-\(fn FUNCTION LIST)" nil nil)
-
-(autoload 'mh-quote-pick-expr "mh-utils" "\
-Quote `mh-pick-regexp-chars' in PICK-EXPR.
-PICK-EXPR is a list of strings. Return nil if PICK-EXPR is nil.
-
-\(fn PICK-EXPR)" nil nil)
-
-(autoload 'mh-replace-string "mh-utils" "\
-Replace all occurrences of OLD with NEW in the current buffer.
-Ignores case when searching for OLD.
-
-\(fn OLD NEW)" nil nil)
-
-(autoload 'mh-logo-display "mh-utils" "\
-Modify mode line to display MH-E logo.
-
-\(fn)" nil nil)
-
-(autoload 'mh-find-path "mh-utils" "\
-Set variables from user's MH profile.
-
-This function sets `mh-user-path' from your \"Path:\" MH profile
-component (but defaults to \"Mail\" if one isn't present),
-`mh-draft-folder' from \"Draft-Folder:\", `mh-unseen-seq' from
-\"Unseen-Sequence:\", `mh-previous-seq' from
-\"Previous-Sequence:\", and `mh-inbox' from \"Inbox:\" (defaults
-to \"+inbox\").
-
-The hook `mh-find-path-hook' is run after these variables have
-been set. This hook can be used the change the value of these
-variables if you need to run with different values between MH and
-MH-E.
-
-\(fn)" nil nil)
-
-(autoload 'mh-ephem-message "mh-utils" "\
-Display STRING in the minibuffer momentarily.
-
-\(fn STRING)" nil nil)
-
-(autoload 'mh-set-help "mh-utils" "\
-Set help messages.
-
-The MESSAGES are assumed to be an associative array. It is used
-to show help for the most common commands in the current mode.
-The key is a prefix char. The value is one or more strings which
-are concatenated together and displayed in a help buffer if ? is
-pressed after the prefix character. The special key nil is used
-to display the non-prefixed commands.
-
-The substitutions described in `substitute-command-keys' are performed as
-well.
-
-If optional argument DEFAULT is non-nil, then these messages will
-be used if help is asked for an unknown mode.
-
-\(fn MESSAGES &optional DEFAULT)" nil nil)
-
-(autoload 'mh-help "mh-utils" "\
-Display cheat sheet for the MH-E commands.
-See `mh-set-help' for setting the help messages.
-HELP-MESSAGES are used instead if given.
-This is a list of one or more strings which are concatenated together
-and displayed in a help buffer.
-
-\(fn &optional HELP-MESSAGES)" t nil)
-
-(autoload 'mh-prefix-help "mh-utils" "\
-Display cheat sheet for the commands of the current prefix in minibuffer.
-
-\(fn)" t nil)
-
-(autoload 'mh-coalesce-msg-list "mh-utils" "\
-Given a list of MESSAGES, return a list of message number ranges.
-This is the inverse of `mh-read-msg-list', which expands ranges.
-Message lists passed to MH programs should be processed by this
-function to avoid exceeding system command line argument limits.
-
-\(fn MESSAGES)" nil nil)
-
-(autoload 'mh-lessp "mh-utils" "\
-Return the lesser of two message indicators MSG1 and MSG2.
-Strings are \"smaller\" than numbers.
-Valid values are things like \"cur\", \"last\", 1, and 1820.
-
-\(fn MSG1 MSG2)" nil nil)
-
-(autoload 'mh-get-msg-num "mh-utils" "\
-Return the message number of the displayed message.
-If the argument ERROR-IF-NO-MESSAGE is non-nil, then complain if
-the cursor is not pointing to a message.
-
-\(fn ERROR-IF-NO-MESSAGE)" nil nil)
-
-(autoload 'mh-clear-sub-folders-cache "mh-utils" "\
-Clear `mh-sub-folders-cache'.
-
-\(fn)" nil nil)
-
-(autoload 'mh-folder-list "mh-utils" "\
-Return FOLDER and its descendants.
-FOLDER may have a + prefix. Returns a list of strings without the
-+ prefix. If FOLDER is nil, then all folders are considered. For
-example, if your Mail directory only contains the folders +inbox,
-+outbox, +lists, and +lists/mh-e, then
-
- (mh-folder-list nil)
- => (\"inbox\" \"lists\" \"lists/mh-e\" \"outbox\")
- (mh-folder-list \"+lists\")
- => (\"lists\" \"lists/mh-e\")
-
-Respects the value of `mh-recursive-folders-flag'. If this flag
-is nil, and the sub-folders have not been explicitly viewed, then
-they will not be returned.
-
-\(fn FOLDER)" nil nil)
-
-(autoload 'mh-sub-folders "mh-utils" "\
-Find the subfolders of FOLDER.
-The function avoids running folders unnecessarily by caching the
-results of the actual folders call.
-
-If optional argument ADD-TRAILING-SLASH-FLAG is non-nil then a
-slash is added to each of the sub-folder names that may have
-nested folders within them.
-
-\(fn FOLDER &optional ADD-TRAILING-SLASH-FLAG)" nil nil)
-
-(autoload 'mh-remove-from-sub-folders-cache "mh-utils" "\
-Remove FOLDER and its parent from `mh-sub-folders-cache'.
-FOLDER should be unconditionally removed from the cache. Also the
-last ancestor of FOLDER present in the cache must be removed as
-well.
-
-To see why this is needed assume we have a folder +foo which has
-a single sub-folder qux. Now we create the folder +foo/bar/baz.
-Here we will need to invalidate the cached sub-folders of +foo,
-otherwise completion on +foo won't tell us about the option
-+foo/bar!
-
-\(fn FOLDER)" nil nil)
-
-(autoload 'mh-folder-name-p "mh-utils" "\
-Return non-nil if NAME is the name of a folder.
-A name (a string or symbol) can be a folder name if it begins
-with \"+\".
-
-\(fn NAME)" nil nil)
-
-(autoload 'mh-expand-file-name "mh-utils" "\
-Expand FILENAME like `expand-file-name', but also handle MH folder names.
-Any filename that starts with '+' is treated as a folder name.
-See `expand-file-name' for description of DEFAULT.
-
-\(fn FILENAME &optional DEFAULT)" nil nil)
-
-(autoload 'mh-speed-flists-active-p "mh-utils" "\
-Check if speedbar is running with message counts enabled.
-
-\(fn)" nil nil)
-
-(autoload 'mh-folder-completion-function "mh-utils" "\
-Programmable completion for folder names.
-NAME is the partial folder name that has been input. PREDICATE if
-non-nil is a function that is used to filter the possible
-choices. FLAG is nil to indicate `try-completion', t for
-`all-completions', or the symbol lambda for `test-completion'.
-See Info node `(elisp) Programmed Completion' for details.
-
-\(fn NAME PREDICATE FLAG)" nil nil)
-
-(autoload 'mh-prompt-for-folder "mh-utils" "\
-Prompt for a folder name with PROMPT.
-Returns the folder's name as a string. DEFAULT is used if the
-folder exists and the user types return. If the CAN-CREATE flag
-is t, then a folder is created if it doesn't already exist. If
-optional argument DEFAULT-STRING is non-nil, use it in the prompt
-instead of DEFAULT. If ALLOW-ROOT-FOLDER-FLAG is non-nil then the
-function will accept the folder +, which means all folders when
-used in searching.
-
-\(fn PROMPT DEFAULT CAN-CREATE &optional DEFAULT-STRING ALLOW-ROOT-FOLDER-FLAG)" nil nil)
-
-(autoload 'mh-in-header-p "mh-utils" "\
-Return non-nil if the point is in the header of a draft message.
-
-\(fn)" nil nil)
-
-(autoload 'mh-extract-from-header-value "mh-utils" "\
-Extract From: string from header.
-
-\(fn)" nil nil)
-
-(autoload 'mh-get-header-field "mh-utils" "\
-Find and return the body of FIELD in the mail header.
-Returns the empty string if the field is not in the header of the
-current buffer.
-
-\(fn FIELD)" nil nil)
-
-(autoload 'mh-goto-header-field "mh-utils" "\
-Move to FIELD in the message header.
-Move to the end of the FIELD name, which should end in a colon.
-Returns t if found, nil if not.
-
-\(fn FIELD)" nil nil)
-
-(autoload 'mh-goto-header-end "mh-utils" "\
-Move the cursor ARG lines after the header.
-
-\(fn ARG)" nil nil)
-
-(autoload 'mh-mail-header-end "mh-utils" "\
-Substitute for `mail-header-end' that doesn't widen the buffer.
-
-In MH-E we frequently need to find the end of headers in nested
-messages, where the buffer has been narrowed. This function works
-in this situation.
-
-\(fn)" nil nil)
-
-(autoload 'mh-header-field-beginning "mh-utils" "\
-Move to the beginning of the current header field.
-Handles RFC 822 continuation lines.
-
-\(fn)" nil nil)
-
-(autoload 'mh-header-field-end "mh-utils" "\
-Move to the end of the current header field.
-Handles RFC 822 continuation lines.
-
-\(fn)" nil nil)
-
-(autoload 'mh-letter-hide-all-skipped-fields "mh-utils" "\
-Hide all skipped fields.
-
-\(fn)" nil nil)
-
-(autoload 'mh-letter-skipped-header-field-p "mh-utils" "\
-Check if FIELD is to be skipped.
-
-\(fn FIELD)" nil nil)
-
-(autoload 'mh-letter-toggle-header-field-display "mh-utils" "\
-Toggle display of header field at point.
-
-Use this command to display truncated header fields. This command
-is a toggle so entering it again will hide the field. This
-command takes a prefix argument ARG: if negative then the field
-is hidden, if positive then the field is displayed.
-
-\(fn ARG)" t nil)
-
-(autoload 'mh-letter-skip-leading-whitespace-in-header-field "mh-utils" "\
-Skip leading whitespace in a header field.
-If the header field doesn't have at least one space after the
-colon then a space character is added.
-
-\(fn)" nil nil)
-
-(autoload 'mh-signature-separator-p "mh-utils" "\
-Return non-nil if buffer includes \"^-- $\".
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (mh-set-x-image-cache-directory mh-show-xface)
-;;;;;; "mh-xface" "mh-xface.el" (20707 18685 911514 0))
-;;; Generated autoloads from mh-xface.el
-
-(autoload 'mh-show-xface "mh-xface" "\
-Display X-Face.
-
-\(fn)" nil nil)
-
-(autoload 'mh-set-x-image-cache-directory "mh-xface" "\
-Set the DIRECTORY where X-Image-URL images are cached.
-This is only done if `mh-x-image-cache-directory' is nil.
-
-\(fn DIRECTORY)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil nil ("mh-buffers.el" "mh-compat.el" "mh-e.el"
-;;;;;; "mh-gnus.el" "mh-tool-bar.el") (20793 40499 323992 759000))
-
-;;;***
-\f
-(provide 'mh-loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; mh-loaddefs.el ends here
+++ /dev/null
-;;; tramp-loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (tramp-shell-quote-argument tramp-time-diff tramp-time-less-p
-;;;;;; tramp-clear-passwd tramp-read-passwd tramp-make-tramp-temp-file
-;;;;;; tramp-local-host-p tramp-mode-string-to-int tramp-parse-putty
-;;;;;; tramp-parse-netrc tramp-parse-passwd tramp-parse-hosts tramp-parse-sknownhosts
-;;;;;; tramp-parse-shostkeys tramp-parse-sconfig tramp-parse-shosts
-;;;;;; tramp-parse-rhosts tramp-completion-mode-p tramp-set-completion-function
-;;;;;; tramp-tramp-file-p tramp-default-user-alist tramp-default-method-alist)
-;;;;;; "tramp" "tramp.el" (20773 47373 975742 0))
-;;; Generated autoloads from tramp.el
-
-(defvar tramp-methods nil "\
-Alist of methods for remote files.
-This is a list of entries of the form (NAME PARAM1 PARAM2 ...).
-Each NAME stands for a remote access method. Each PARAM is a
-pair of the form (KEY VALUE). The following KEYs are defined:
- * `tramp-remote-shell'
- This specifies the shell to use on the remote host. This
- MUST be a Bourne-like shell. It is normally not necessary to
- set this to any value other than \"/bin/sh\": Tramp wants to
- use a shell which groks tilde expansion, but it can search
- for it. Also note that \"/bin/sh\" exists on all Unixen,
- this might not be true for the value that you decide to use.
- You Have Been Warned.
- * `tramp-remote-shell-args'
- For implementation of `shell-command', this specifies the
- arguments to let `tramp-remote-shell' run a single command.
- * `tramp-login-program'
- This specifies the name of the program to use for logging in to the
- remote host. This may be the name of rsh or a workalike program,
- or the name of telnet or a workalike, or the name of su or a workalike.
- * `tramp-login-args'
- This specifies the list of arguments to pass to the above
- mentioned program. Please note that this is a list of list of arguments,
- that is, normally you don't want to put \"-a -b\" or \"-f foo\"
- here. Instead, you want a list (\"-a\" \"-b\"), or (\"-f\" \"foo\").
- There are some patterns: \"%h\" in this list is replaced by the host
- name, \"%u\" is replaced by the user name, \"%p\" is replaced by the
- port number, and \"%%\" can be used to obtain a literal percent character.
- If a list containing \"%h\", \"%u\" or \"%p\" is unchanged during
- expansion (i.e. no host or no user specified), this list is not used as
- argument. By this, arguments like (\"-l\" \"%u\") are optional.
- \"%t\" is replaced by the temporary file name produced with
- `tramp-make-tramp-temp-file'. \"%k\" indicates the keep-date
- parameter of a program, if exists.
- * `tramp-async-args'
- When an asynchronous process is started, we know already that
- the connection works. Therefore, we can pass additional
- parameters to suppress diagnostic messages, in order not to
- tamper the process output.
- * `tramp-copy-program'
- This specifies the name of the program to use for remotely copying
- the file; this might be the absolute filename of rcp or the name of
- a workalike program.
- * `tramp-copy-args'
- This specifies the list of parameters to pass to the above mentioned
- program, the hints for `tramp-login-args' also apply here.
- * `tramp-copy-keep-date'
- This specifies whether the copying program when the preserves the
- timestamp of the original file.
- * `tramp-copy-keep-tmpfile'
- This specifies whether a temporary local file shall be kept
- for optimization reasons (useful for \"rsync\" methods).
- * `tramp-copy-recursive'
- Whether the operation copies directories recursively.
- * `tramp-default-port'
- The default port of a method is needed in case of gateway connections.
- Additionally, it is used as indication which method is prepared for
- passing gateways.
- * `tramp-gw-args'
- As the attribute name says, additional arguments are specified here
- when a method is applied via a gateway.
- * `tramp-tmpdir'
- A directory on the remote host for temporary files. If not
- specified, \"/tmp\" is taken as default.
-
-What does all this mean? Well, you should specify `tramp-login-program'
-for all methods; this program is used to log in to the remote site. Then,
-there are two ways to actually transfer the files between the local and the
-remote side. One way is using an additional rcp-like program. If you want
-to do this, set `tramp-copy-program' in the method.
-
-Another possibility for file transfer is inline transfer, i.e. the
-file is passed through the same buffer used by `tramp-login-program'. In
-this case, the file contents need to be protected since the
-`tramp-login-program' might use escape codes or the connection might not
-be eight-bit clean. Therefore, file contents are encoded for transit.
-See the variables `tramp-local-coding-commands' and
-`tramp-remote-coding-commands' for details.
-
-So, to summarize: if the method is an out-of-band method, then you
-must specify `tramp-copy-program' and `tramp-copy-args'. If it is an
-inline method, then these two parameters should be nil. Methods which
-are fit for gateways must have `tramp-default-port' at least.
-
-Notes:
-
-When using `su' or `sudo' the phrase `open connection to a remote
-host' sounds strange, but it is used nevertheless, for consistency.
-No connection is opened to a remote host, but `su' or `sudo' is
-started on the local host. You should specify a remote host
-`localhost' or the name of the local host. Another host name is
-useful only in combination with `tramp-default-proxies-alist'.")
-
-(defvar tramp-default-method-alist nil "\
-Default method to use for specific host/user pairs.
-This is an alist of items (HOST USER METHOD). The first matching item
-specifies the method to use for a file name which does not specify a
-method. HOST and USER are regular expressions or nil, which is
-interpreted as a regular expression which always matches. If no entry
-matches, the variable `tramp-default-method' takes effect.
-
-If the file name does not specify the user, lookup is done using the
-empty string for the user name.
-
-See `tramp-methods' for a list of possibilities for METHOD.")
-
-(custom-autoload 'tramp-default-method-alist "tramp" t)
-
-(defvar tramp-default-user-alist nil "\
-Default user to use for specific method/host pairs.
-This is an alist of items (METHOD HOST USER). The first matching item
-specifies the user to use for a file name which does not specify a
-user. METHOD and USER are regular expressions or nil, which is
-interpreted as a regular expression which always matches. If no entry
-matches, the variable `tramp-default-user' takes effect.
-
-If the file name does not specify the method, lookup is done using the
-empty string for the method name.")
-
-(custom-autoload 'tramp-default-user-alist "tramp" t)
-
-(defconst tramp-local-host-regexp (concat "\\`" (regexp-opt (list "localhost" "localhost6" (system-name) "127.0.0.1" "::1") t) "\\'") "\
-Host names which are regarded as local host.")
-
-(defconst tramp-prefix-domain-format "%" "\
-String matching delimiter between user and domain names.")
-
-(defconst tramp-prefix-domain-regexp (regexp-quote tramp-prefix-domain-format) "\
-Regexp matching delimiter between user and domain names.
-Derived from `tramp-prefix-domain-format'.")
-
-(defvar tramp-foreign-file-name-handler-alist nil "\
-Alist of elements (FUNCTION . HANDLER) for foreign methods handled specially.
-If (FUNCTION FILENAME) returns non-nil, then all I/O on that file is done by
-calling HANDLER.")
-
-(autoload 'tramp-tramp-file-p "tramp" "\
-Return t if NAME is a string with Tramp file name syntax.
-
-\(fn NAME)" nil nil)
-
-(autoload 'tramp-set-completion-function "tramp" "\
-Sets the list of completion functions for METHOD.
-FUNCTION-LIST is a list of entries of the form (FUNCTION FILE).
-The FUNCTION is intended to parse FILE according its syntax.
-It might be a predefined FUNCTION, or a user defined FUNCTION.
-For the list of predefined FUNCTIONs see `tramp-completion-function-alist'.
-
-Example:
-
- (tramp-set-completion-function
- \"ssh\"
- '((tramp-parse-sconfig \"/etc/ssh_config\")
- (tramp-parse-sconfig \"~/.ssh/config\")))
-
-\(fn METHOD FUNCTION-LIST)" nil nil)
-
-(autoload 'tramp-completion-mode-p "tramp" "\
-Check, whether method / user name / host name completion is active.
-
-\(fn)" nil nil)
-
-(autoload 'tramp-parse-rhosts "tramp" "\
-Return a list of (user host) tuples allowed to access.
-Either user or host may be nil.
-
-\(fn FILENAME)" nil nil)
-
-(autoload 'tramp-parse-shosts "tramp" "\
-Return a list of (user host) tuples allowed to access.
-User is always nil.
-
-\(fn FILENAME)" nil nil)
-
-(autoload 'tramp-parse-sconfig "tramp" "\
-Return a list of (user host) tuples allowed to access.
-User is always nil.
-
-\(fn FILENAME)" nil nil)
-
-(autoload 'tramp-parse-shostkeys "tramp" "\
-Return a list of (user host) tuples allowed to access.
-User is always nil.
-
-\(fn DIRNAME)" nil nil)
-
-(autoload 'tramp-parse-sknownhosts "tramp" "\
-Return a list of (user host) tuples allowed to access.
-User is always nil.
-
-\(fn DIRNAME)" nil nil)
-
-(autoload 'tramp-parse-hosts "tramp" "\
-Return a list of (user host) tuples allowed to access.
-User is always nil.
-
-\(fn FILENAME)" nil nil)
-
-(autoload 'tramp-parse-passwd "tramp" "\
-Return a list of (user host) tuples allowed to access.
-Host is always \"localhost\".
-
-\(fn FILENAME)" nil nil)
-
-(autoload 'tramp-parse-netrc "tramp" "\
-Return a list of (user host) tuples allowed to access.
-User may be nil.
-
-\(fn FILENAME)" nil nil)
-
-(autoload 'tramp-parse-putty "tramp" "\
-Return a list of (user host) tuples allowed to access.
-User is always nil.
-
-\(fn REGISTRY-OR-DIRNAME)" nil nil)
-
-(autoload 'tramp-mode-string-to-int "tramp" "\
-Converts a ten-letter `drwxrwxrwx'-style mode string into mode bits.
-
-\(fn MODE-STRING)" nil nil)
-
-(autoload 'tramp-local-host-p "tramp" "\
-Return t if this points to the local host, nil otherwise.
-
-\(fn VEC)" nil nil)
-
-(autoload 'tramp-make-tramp-temp-file "tramp" "\
-Create a temporary file on the remote host identified by VEC.
-Return the local name of the temporary file.
-
-\(fn VEC)" nil nil)
-
-(autoload 'tramp-read-passwd "tramp" "\
-Read a password from user (compat function).
-Consults the auth-source package.
-Invokes `password-read' if available, `read-passwd' else.
-
-\(fn PROC &optional PROMPT)" nil nil)
-
-(autoload 'tramp-clear-passwd "tramp" "\
-Clear password cache for connection related to VEC.
-
-\(fn VEC)" nil nil)
-
-(autoload 'tramp-time-less-p "tramp" "\
-Say whether time value T1 is less than time value T2.
-
-\(fn T1 T2)" nil nil)
-
-(autoload 'tramp-time-diff "tramp" "\
-Return the difference between the two times, in seconds.
-T1 and T2 are time values (as returned by `current-time' for example).
-
-\(fn T1 T2)" nil nil)
-
-(autoload 'tramp-shell-quote-argument "tramp" "\
-Similar to `shell-quote-argument', but groks newlines.
-Only works for Bourne-like shells.
-
-\(fn S)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (tramp-parse-connection-properties tramp-list-connections
-;;;;;; tramp-cache-print tramp-flush-connection-property tramp-set-connection-property
-;;;;;; tramp-get-connection-property tramp-flush-directory-property
-;;;;;; tramp-flush-file-property tramp-set-file-property tramp-get-file-property)
-;;;;;; "tramp-cache" "tramp-cache.el" (20707 18685 911514 0))
-;;; Generated autoloads from tramp-cache.el
-
-(defvar tramp-cache-data (make-hash-table :test 'equal) "\
-Hash table for remote files properties.")
-
-(autoload 'tramp-get-file-property "tramp-cache" "\
-Get the PROPERTY of FILE from the cache context of VEC.
-Returns DEFAULT if not set.
-
-\(fn VEC FILE PROPERTY DEFAULT)" nil nil)
-
-(autoload 'tramp-set-file-property "tramp-cache" "\
-Set the PROPERTY of FILE to VALUE, in the cache context of VEC.
-Returns VALUE.
-
-\(fn VEC FILE PROPERTY VALUE)" nil nil)
-
-(autoload 'tramp-flush-file-property "tramp-cache" "\
-Remove all properties of FILE in the cache context of VEC.
-
-\(fn VEC FILE)" nil nil)
-
-(autoload 'tramp-flush-directory-property "tramp-cache" "\
-Remove all properties of DIRECTORY in the cache context of VEC.
-Remove also properties of all files in subdirectories.
-
-\(fn VEC DIRECTORY)" nil nil)
-
-(autoload 'tramp-get-connection-property "tramp-cache" "\
-Get the named PROPERTY for the connection.
-KEY identifies the connection, it is either a process or a vector.
-If the value is not set for the connection, returns DEFAULT.
-
-\(fn KEY PROPERTY DEFAULT)" nil nil)
-
-(autoload 'tramp-set-connection-property "tramp-cache" "\
-Set the named PROPERTY of a connection to VALUE.
-KEY identifies the connection, it is either a process or a vector.
-PROPERTY is set persistent when KEY is a vector.
-
-\(fn KEY PROPERTY VALUE)" nil nil)
-
-(autoload 'tramp-flush-connection-property "tramp-cache" "\
-Remove all properties identified by KEY.
-KEY identifies the connection, it is either a process or a vector.
-
-\(fn KEY)" nil nil)
-
-(autoload 'tramp-cache-print "tramp-cache" "\
-Print hash table TABLE.
-
-\(fn TABLE)" nil nil)
-
-(autoload 'tramp-list-connections "tramp-cache" "\
-Return a list of all known connection vectors according to `tramp-cache'.
-
-\(fn)" nil nil)
-
-(autoload 'tramp-parse-connection-properties "tramp-cache" "\
-Return a list of (user host) tuples allowed to access for METHOD.
-This function is added always in `tramp-get-completion-function'
-for all methods. Resulting data are derived from connection history.
-
-\(fn METHOD)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (tramp-bug tramp-version tramp-cleanup-all-buffers
-;;;;;; tramp-cleanup-all-connections tramp-cleanup-this-connection
-;;;;;; tramp-cleanup-connection) "tramp-cmds" "tramp-cmds.el" (20707
-;;;;;; 18685 911514 0))
-;;; Generated autoloads from tramp-cmds.el
-
-(autoload 'tramp-cleanup-connection "tramp-cmds" "\
-Flush all connection related objects.
-This includes password cache, file cache, connection cache, buffers.
-When called interactively, a Tramp connection has to be selected.
-
-\(fn VEC)" t nil)
-
-(autoload 'tramp-cleanup-this-connection "tramp-cmds" "\
-Flush all connection related objects of the current buffer's connection.
-
-\(fn)" t nil)
-
-(autoload 'tramp-cleanup-all-connections "tramp-cmds" "\
-Flush all Tramp internal objects.
-This includes password cache, file cache, connection cache, buffers.
-
-\(fn)" t nil)
-
-(autoload 'tramp-cleanup-all-buffers "tramp-cmds" "\
-Kill all remote buffers.
-
-\(fn)" t nil)
-
-(autoload 'tramp-version "tramp-cmds" "\
-Print version number of tramp.el in minibuffer or current buffer.
-
-\(fn ARG)" t nil)
-
-(autoload 'tramp-bug "tramp-cmds" "\
-Submit a bug report to the Tramp developers.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (tramp-ftp-file-name-handler) "tramp-ftp" "tramp-ftp.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from tramp-ftp.el
-
-(defconst tramp-ftp-method "ftp" "\
-When this method name is used, forward all calls to Ange-FTP.")
-
-(unless (featurep 'xemacs) (add-to-list 'tramp-methods (cons tramp-ftp-method nil)) (add-to-list 'tramp-default-method-alist (list "\\`ftp\\." nil tramp-ftp-method)) (add-to-list 'tramp-default-method-alist (list nil "\\`\\(anonymous\\|ftp\\)\\'" tramp-ftp-method)))
-
-(eval-after-load 'tramp '(tramp-set-completion-function tramp-ftp-method '((tramp-parse-netrc "~/.netrc"))))
-
-(autoload 'tramp-ftp-file-name-handler "tramp-ftp" "\
-Invoke the Ange-FTP handler for OPERATION.
-First arg specifies the OPERATION, second arg is a list of arguments to
-pass to the OPERATION.
-
-\(fn OPERATION &rest ARGS)" nil nil)
-
-(defsubst tramp-ftp-file-name-p (filename) "\
-Check if it's a filename that should be forwarded to Ange-FTP." (string= (tramp-file-name-method (tramp-dissect-file-name filename)) tramp-ftp-method))
-
-(unless (featurep 'xemacs) (add-to-list 'tramp-foreign-file-name-handler-alist (cons 'tramp-ftp-file-name-p 'tramp-ftp-file-name-handler)))
-
-;;;***
-\f
-;;;### (autoloads (tramp-gvfs-file-name-handler tramp-gvfs-methods)
-;;;;;; "tramp-gvfs" "tramp-gvfs.el" (20707 18685 911514 0))
-;;; Generated autoloads from tramp-gvfs.el
-
-(defvar tramp-gvfs-methods '("dav" "davs" "obex" "synce") "\
-List of methods for remote files, accessed with GVFS.")
-
-(custom-autoload 'tramp-gvfs-methods "tramp-gvfs" t)
-
-(add-to-list 'tramp-default-user-alist '("\\`synce\\'" nil nil))
-
-(when (featurep 'dbusbind) (dolist (elt tramp-gvfs-methods) (unless (assoc elt tramp-methods) (add-to-list 'tramp-methods (cons elt nil)))))
-
-(defsubst tramp-gvfs-file-name-p (filename) "\
-Check if it's a filename handled by the GVFS daemon." (and (tramp-tramp-file-p filename) (let ((method (tramp-file-name-method (tramp-dissect-file-name filename)))) (and (stringp method) (member method tramp-gvfs-methods)))))
-
-(autoload 'tramp-gvfs-file-name-handler "tramp-gvfs" "\
-Invoke the GVFS related OPERATION.
-First arg specifies the OPERATION, second arg is a list of arguments to
-pass to the OPERATION.
-
-\(fn OPERATION &rest ARGS)" nil nil)
-
-(when (featurep 'dbusbind) (add-to-list 'tramp-foreign-file-name-handler-alist (cons 'tramp-gvfs-file-name-p 'tramp-gvfs-file-name-handler)))
-
-;;;***
-\f
-;;;### (autoloads (tramp-gw-open-connection) "tramp-gw" "tramp-gw.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from tramp-gw.el
-
-(defconst tramp-gw-tunnel-method "tunnel" "\
-Method to connect HTTP gateways.")
-
-(defconst tramp-gw-socks-method "socks" "\
-Method to connect SOCKS servers.")
-
-(add-to-list 'tramp-default-user-alist (list (concat "\\`" (regexp-opt (list tramp-gw-tunnel-method tramp-gw-socks-method)) "\\'") nil (user-login-name)))
-
-(autoload 'tramp-gw-open-connection "tramp-gw" "\
-Open a remote connection to VEC (see `tramp-file-name' structure).
-Take GW-VEC as SOCKS or HTTP gateway, i.e. its method must be a
-gateway method. TARGET-VEC identifies where to connect to via
-the gateway, it can be different from VEC when there are more
-hops to be applied.
-
-It returns a string like \"localhost#port\", which must be used
-instead of the host name declared in TARGET-VEC.
-
-\(fn VEC GW-VEC TARGET-VEC)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (tramp-sh-file-name-handler tramp-remote-path tramp-terminal-type)
-;;;;;; "tramp-sh" "tramp-sh.el" (20770 34246 257277 0))
-;;; Generated autoloads from tramp-sh.el
-
-(defvar tramp-terminal-type "dumb" "\
-Value of TERM environment variable for logging in to remote host.
-Because Tramp wants to parse the output of the remote shell, it is easily
-confused by ANSI color escape sequences and suchlike. Often, shell init
-files conditionalize this setup based on the TERM environment variable.")
-
-(custom-autoload 'tramp-terminal-type "tramp-sh" t)
-
-(defconst tramp-initial-end-of-output "#$ " "\
-Prompt when establishing a connection.")
-
-(add-to-list 'tramp-methods '("rcp" (tramp-login-program "rsh") (tramp-login-args (("%h") ("-l" "%u"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "rcp") (tramp-copy-args (("-p" "%k") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t)))
-
-(add-to-list 'tramp-methods '("remcp" (tramp-login-program "remsh") (tramp-login-args (("%h") ("-l" "%u"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "rcp") (tramp-copy-args (("-p" "%k"))) (tramp-copy-keep-date t)))
-
-(add-to-list 'tramp-methods '("scp" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "scp") (tramp-copy-args (("-P" "%p") ("-p" "%k") ("-q") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("scp1" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-1") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "scp") (tramp-copy-args (("-1") ("-P" "%p") ("-p" "%k") ("-q") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("scp2" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-2") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "scp") (tramp-copy-args (("-2") ("-P" "%p") ("-p" "%k") ("-q") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("scpc" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-o" "ControlPath=%t.%%r@%%h:%%p") ("-o" "ControlMaster=yes") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "scp") (tramp-copy-args (("-P" "%p") ("-p" "%k") ("-q") ("-r") ("-o" "ControlPath=%t.%%r@%%h:%%p") ("-o" "ControlMaster=auto"))) (tramp-copy-keep-date t) (tramp-copy-recursive t) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("scpx" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none") ("-t" "-t") ("%h") ("/bin/sh"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "scp") (tramp-copy-args (("-P" "%p") ("-p" "%k") ("-q") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("sftp" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "sftp")))
-
-(add-to-list 'tramp-methods '("rsync" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "rsync") (tramp-copy-args (("-e" "ssh") ("-t" "%k") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-keep-tmpfile t) (tramp-copy-recursive t)))
-
-(add-to-list 'tramp-methods `("rsyncc" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-o" "ControlPath=%t.%%r@%%h:%%p") ("-o" "ControlMaster=yes") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "rsync") (tramp-copy-args (("-t" "%k") ("-r"))) (tramp-copy-env (("RSYNC_RSH") (,(concat "ssh" " -o ControlPath=%t.%%r@%%h:%%p" " -o ControlMaster=auto")))) (tramp-copy-keep-date t) (tramp-copy-keep-tmpfile t) (tramp-copy-recursive t)))
-
-(add-to-list 'tramp-methods '("rsh" (tramp-login-program "rsh") (tramp-login-args (("%h") ("-l" "%u"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c"))))
-
-(add-to-list 'tramp-methods '("remsh" (tramp-login-program "remsh") (tramp-login-args (("%h") ("-l" "%u"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c"))))
-
-(add-to-list 'tramp-methods '("ssh" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("ssh1" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-1") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("ssh2" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-2") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("sshx" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none") ("-t" "-t") ("%h") ("/bin/sh"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("telnet" (tramp-login-program "telnet") (tramp-login-args (("%h") ("%p"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-default-port 23)))
-
-(add-to-list 'tramp-methods '("su" (tramp-login-program "su") (tramp-login-args (("-") ("%u"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c"))))
-
-(add-to-list 'tramp-methods '("sudo" (tramp-login-program "sudo") (tramp-login-args (("-u" "%u") ("-s") ("-H") ("-p" "Password:"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c"))))
-
-(add-to-list 'tramp-methods '("ksu" (tramp-login-program "ksu") (tramp-login-args (("%u") ("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c"))))
-
-(add-to-list 'tramp-methods '("krlogin" (tramp-login-program "krlogin") (tramp-login-args (("%h") ("-l" "%u") ("-x"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c"))))
-
-(add-to-list 'tramp-methods '("plink" (tramp-login-program "plink") (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh") ("%h"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("plink1" (tramp-login-program "plink") (tramp-login-args (("-l" "%u") ("-P" "%p") ("-1" "-ssh") ("%h"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods `("plinkx" (tramp-login-program "plink") (tramp-login-args (("-load") ("%h") ("-t") (,(format "env 'TERM=%s' 'PROMPT_COMMAND=' 'PS1=%s'" tramp-terminal-type tramp-initial-end-of-output)) ("/bin/sh"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c"))))
-
-(add-to-list 'tramp-methods '("pscp" (tramp-login-program "plink") (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh") ("%h"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "pscp") (tramp-copy-args (("-l" "%u") ("-P" "%p") ("-scp") ("-p" "%k") ("-q") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t) (tramp-default-port 22)))
-
-(add-to-list 'tramp-methods '("psftp" (tramp-login-program "plink") (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh") ("%h"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-c")) (tramp-copy-program "pscp") (tramp-copy-args (("-l" "%u") ("-P" "%p") ("-sftp") ("-p" "%k") ("-q") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t)))
-
-(add-to-list 'tramp-methods '("fcp" (tramp-login-program "fsh") (tramp-login-args (("%h") ("-l" "%u") ("sh" "-i"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-args ("-i") ("-c")) (tramp-copy-program "fcp") (tramp-copy-args (("-p" "%k"))) (tramp-copy-keep-date t)))
-
-(add-to-list 'tramp-default-method-alist `(,tramp-local-host-regexp "\\`root\\'" "su"))
-
-(add-to-list 'tramp-default-user-alist `(,(concat "\\`" (regexp-opt '("su" "sudo" "ksu")) "\\'") nil "root"))
-
-(add-to-list 'tramp-default-user-alist `(,(concat "\\`" (regexp-opt '("rcp" "remcp" "rsh" "telnet" "krlogin" "fcp")) "\\'") nil ,(user-login-name)))
-
-(defconst tramp-completion-function-alist-rsh '((tramp-parse-rhosts "/etc/hosts.equiv") (tramp-parse-rhosts "~/.rhosts")) "\
-Default list of (FUNCTION FILE) pairs to be examined for rsh methods.")
-
-(defconst tramp-completion-function-alist-ssh '((tramp-parse-rhosts "/etc/hosts.equiv") (tramp-parse-rhosts "/etc/shosts.equiv") (tramp-parse-shosts "/etc/ssh_known_hosts") (tramp-parse-sconfig "/etc/ssh_config") (tramp-parse-shostkeys "/etc/ssh2/hostkeys") (tramp-parse-sknownhosts "/etc/ssh2/knownhosts") (tramp-parse-rhosts "~/.rhosts") (tramp-parse-rhosts "~/.shosts") (tramp-parse-shosts "~/.ssh/known_hosts") (tramp-parse-sconfig "~/.ssh/config") (tramp-parse-shostkeys "~/.ssh2/hostkeys") (tramp-parse-sknownhosts "~/.ssh2/knownhosts")) "\
-Default list of (FUNCTION FILE) pairs to be examined for ssh methods.")
-
-(defconst tramp-completion-function-alist-telnet '((tramp-parse-hosts "/etc/hosts")) "\
-Default list of (FUNCTION FILE) pairs to be examined for telnet methods.")
-
-(defconst tramp-completion-function-alist-su '((tramp-parse-passwd "/etc/passwd")) "\
-Default list of (FUNCTION FILE) pairs to be examined for su methods.")
-
-(defconst tramp-completion-function-alist-putty `((tramp-parse-putty ,(if (memq system-type '(windows-nt)) "HKEY_CURRENT_USER\\Software\\SimonTatham\\PuTTY\\Sessions" "~/.putty/sessions"))) "\
-Default list of (FUNCTION REGISTRY) pairs to be examined for putty sessions.")
-
-(eval-after-load 'tramp '(progn (tramp-set-completion-function "rcp" tramp-completion-function-alist-rsh) (tramp-set-completion-function "remcp" tramp-completion-function-alist-rsh) (tramp-set-completion-function "scp" tramp-completion-function-alist-ssh) (tramp-set-completion-function "scp1" tramp-completion-function-alist-ssh) (tramp-set-completion-function "scp2" tramp-completion-function-alist-ssh) (tramp-set-completion-function "scpc" tramp-completion-function-alist-ssh) (tramp-set-completion-function "scpx" tramp-completion-function-alist-ssh) (tramp-set-completion-function "sftp" tramp-completion-function-alist-ssh) (tramp-set-completion-function "rsync" tramp-completion-function-alist-ssh) (tramp-set-completion-function "rsyncc" tramp-completion-function-alist-ssh) (tramp-set-completion-function "rsh" tramp-completion-function-alist-rsh) (tramp-set-completion-function "remsh" tramp-completion-function-alist-rsh) (tramp-set-completion-function "ssh" tramp-completion-function-alist-ssh) (tramp-set-completion-function "ssh1" tramp-completion-function-alist-ssh) (tramp-set-completion-function "ssh2" tramp-completion-function-alist-ssh) (tramp-set-completion-function "ssh1_old" tramp-completion-function-alist-ssh) (tramp-set-completion-function "ssh2_old" tramp-completion-function-alist-ssh) (tramp-set-completion-function "sshx" tramp-completion-function-alist-ssh) (tramp-set-completion-function "telnet" tramp-completion-function-alist-telnet) (tramp-set-completion-function "su" tramp-completion-function-alist-su) (tramp-set-completion-function "sudo" tramp-completion-function-alist-su) (tramp-set-completion-function "ksu" tramp-completion-function-alist-su) (tramp-set-completion-function "krlogin" tramp-completion-function-alist-rsh) (tramp-set-completion-function "plink" tramp-completion-function-alist-ssh) (tramp-set-completion-function "plink1" tramp-completion-function-alist-ssh) (tramp-set-completion-function "plinkx" tramp-completion-function-alist-putty) (tramp-set-completion-function "pscp" tramp-completion-function-alist-ssh) (tramp-set-completion-function "fcp" tramp-completion-function-alist-ssh)))
-
-(defvar tramp-remote-path '(tramp-default-remote-path "/bin" "/usr/bin" "/sbin" "/usr/sbin" "/usr/local/bin" "/usr/local/sbin" "/local/bin" "/local/freeware/bin" "/local/gnu/bin" "/usr/freeware/bin" "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin" "/opt/sbin" "/opt/local/bin") "\
-List of directories to search for executables on remote host.
-For every remote host, this variable will be set buffer local,
-keeping the list of existing directories on that host.
-
-You can use `~' in this list, but when searching for a shell which groks
-tilde expansion, all directory names starting with `~' will be ignored.
-
-`Default Directories' represent the list of directories given by
-the command \"getconf PATH\". It is recommended to use this
-entry on top of this list, because these are the default
-directories for POSIX compatible commands. On remote hosts which
-do not offer the getconf command (like cygwin), the value
-\"/bin:/usr/bin\" is used instead of.
-
-`Private Directories' are the settings of the $PATH environment,
-as given in your `~/.profile'.")
-
-(custom-autoload 'tramp-remote-path "tramp-sh" t)
-
-(add-to-list 'tramp-foreign-file-name-handler-alist '(identity . tramp-sh-file-name-handler) 'append)
-
-(autoload 'tramp-sh-file-name-handler "tramp-sh" "\
-Invoke remote-shell Tramp file name handler.
-Fall back to normal file name handler if no Tramp handler exists.
-
-\(fn OPERATION &rest ARGS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (tramp-smb-file-name-handler) "tramp-smb" "tramp-smb.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from tramp-smb.el
-
-(defconst tramp-smb-method "smb" "\
-Method to connect SAMBA and M$ SMB servers.")
-
-(unless (memq system-type '(cygwin windows-nt)) (add-to-list 'tramp-methods `(,tramp-smb-method (tramp-remote-shell "") (tramp-tmpdir "/C$/Temp"))))
-
-(add-to-list 'tramp-default-method-alist `(nil ,tramp-prefix-domain-regexp ,tramp-smb-method))
-
-(add-to-list 'tramp-default-user-alist `(,(concat "\\`" tramp-smb-method "\\'") nil nil))
-
-(eval-after-load 'tramp '(tramp-set-completion-function tramp-smb-method '((tramp-parse-netrc "~/.netrc"))))
-
-(defsubst tramp-smb-file-name-p (filename) "\
-Check if it's a filename for SMB servers." (string= (tramp-file-name-method (tramp-dissect-file-name filename)) tramp-smb-method))
-
-(autoload 'tramp-smb-file-name-handler "tramp-smb" "\
-Invoke the SMB related OPERATION.
-First arg specifies the OPERATION, second arg is a list of arguments to
-pass to the OPERATION.
-
-\(fn OPERATION &rest ARGS)" nil nil)
-
-(unless (memq system-type '(cygwin windows-nt)) (add-to-list 'tramp-foreign-file-name-handler-alist (cons 'tramp-smb-file-name-p 'tramp-smb-file-name-handler)))
-
-;;;***
-\f
-;;;### (autoloads (tramp-uuencode-region) "tramp-uu" "tramp-uu.el"
-;;;;;; (20707 18685 911514 0))
-;;; Generated autoloads from tramp-uu.el
-
-(autoload 'tramp-uuencode-region "tramp-uu" "\
-UU-encode the region between BEG and END.
-
-\(fn BEG END)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads nil "trampver" "trampver.el" (20707 18685 911514
-;;;;;; 0))
-;;; Generated autoloads from trampver.el
-
-(defconst tramp-version "2.2.6-24.3" "\
-This version of Tramp.")
-
-(defconst tramp-bug-report-address "tramp-devel@gnu.org" "\
-Email address to send bug reports to.")
-
-;;;***
-\f
-;;;### (autoloads nil nil ("ange-ftp.el" "browse-url.el" "dbus.el"
-;;;;;; "dig.el" "dns.el" "eudc-bob.el" "eudc-export.el" "eudc-hotlist.el"
-;;;;;; "eudc-vars.el" "eudc.el" "eudcb-bbdb.el" "eudcb-ldap.el"
-;;;;;; "eudcb-mab.el" "eudcb-ph.el" "gnutls.el" "goto-addr.el" "hmac-def.el"
-;;;;;; "hmac-md5.el" "imap.el" "ldap.el" "mairix.el" "net-utils.el"
-;;;;;; "netrc.el" "network-stream.el" "newst-backend.el" "newst-plainview.el"
-;;;;;; "newst-reader.el" "newst-ticker.el" "newst-treeview.el" "newsticker.el"
-;;;;;; "ntlm.el" "quickurl.el" "rcirc.el" "rcompile.el" "rlogin.el"
-;;;;;; "sasl-cram.el" "sasl-digest.el" "sasl-ntlm.el" "sasl.el"
-;;;;;; "secrets.el" "snmp-mode.el" "soap-client.el" "soap-inspect.el"
-;;;;;; "socks.el" "telnet.el" "tls.el" "tramp-compat.el" "webjump.el"
-;;;;;; "xesam.el" "zeroconf.el") (20793 40500 415379 745000))
-
-;;;***
-\f
-(provide 'tramp-loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; tramp-loaddefs.el ends here
+++ /dev/null
-;;; org-loaddefs.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-\f
-;;;### (autoloads (org-babel-mark-block org-babel-previous-src-block
-;;;;;; org-babel-next-src-block org-babel-goto-named-result org-babel-goto-named-src-block
-;;;;;; org-babel-goto-src-block-head org-babel-hide-result-toggle-maybe
-;;;;;; org-babel-sha1-hash org-babel-execute-subtree org-babel-execute-buffer
-;;;;;; org-babel-map-executables org-babel-map-call-lines org-babel-map-inline-src-blocks
-;;;;;; org-babel-map-src-blocks org-babel-open-src-block-result
-;;;;;; org-babel-switch-to-session-with-code org-babel-switch-to-session
-;;;;;; org-babel-initiate-session org-babel-load-in-session org-babel-insert-header-arg
-;;;;;; org-babel-check-src-block org-babel-expand-src-block org-babel-execute-src-block
-;;;;;; org-babel-pop-to-session-maybe org-babel-load-in-session-maybe
-;;;;;; org-babel-expand-src-block-maybe org-babel-view-src-block-info
-;;;;;; org-babel-execute-maybe org-babel-execute-safely-maybe) "ob"
-;;;;;; "ob.el" "d7149a9570cdc0164c5483b27216b5fb")
-;;; Generated autoloads from ob.el
-
-(autoload 'org-babel-execute-safely-maybe "ob" "\
-
-
-\(fn)" nil nil)
-
-(autoload 'org-babel-execute-maybe "ob" "\
-
-
-\(fn)" t nil)
-
-(autoload 'org-babel-view-src-block-info "ob" "\
-Display information on the current source block.
-This includes header arguments, language and name, and is largely
-a window into the `org-babel-get-src-block-info' function.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-expand-src-block-maybe "ob" "\
-Conditionally expand a source block.
-Detect if this is context for a org-babel src-block and if so
-then run `org-babel-expand-src-block'.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-load-in-session-maybe "ob" "\
-Conditionally load a source block in a session.
-Detect if this is context for a org-babel src-block and if so
-then run `org-babel-load-in-session'.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-pop-to-session-maybe "ob" "\
-Conditionally pop to a session.
-Detect if this is context for a org-babel src-block and if so
-then run `org-babel-pop-to-session'.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-execute-src-block "ob" "\
-Execute the current source code block.
-Insert the results of execution into the buffer. Source code
-execution and the collection and formatting of results can be
-controlled through a variety of header arguments.
-
-With prefix argument ARG, force re-execution even if an existing
-result cached in the buffer would otherwise have been returned.
-
-Optionally supply a value for INFO in the form returned by
-`org-babel-get-src-block-info'.
-
-Optionally supply a value for PARAMS which will be merged with
-the header arguments specified at the front of the source code
-block.
-
-\(fn &optional ARG INFO PARAMS)" t nil)
-
-(autoload 'org-babel-expand-src-block "ob" "\
-Expand the current source code block.
-Expand according to the source code block's header
-arguments and pop open the results in a preview buffer.
-
-\(fn &optional ARG INFO PARAMS)" t nil)
-
-(autoload 'org-babel-check-src-block "ob" "\
-Check for misspelled header arguments in the current code block.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-insert-header-arg "ob" "\
-Insert a header argument selecting from lists of common args and values.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-load-in-session "ob" "\
-Load the body of the current source-code block.
-Evaluate the header arguments for the source block before
-entering the session. After loading the body this pops open the
-session.
-
-\(fn &optional ARG INFO)" t nil)
-
-(autoload 'org-babel-initiate-session "ob" "\
-Initiate session for current code block.
-If called with a prefix argument then resolve any variable
-references in the header arguments and assign these variables in
-the session. Copy the body of the code block to the kill ring.
-
-\(fn &optional ARG INFO)" t nil)
-
-(autoload 'org-babel-switch-to-session "ob" "\
-Switch to the session of the current code block.
-Uses `org-babel-initiate-session' to start the session. If called
-with a prefix argument then this is passed on to
-`org-babel-initiate-session'.
-
-\(fn &optional ARG INFO)" t nil)
-
-(autoload 'org-babel-switch-to-session-with-code "ob" "\
-Switch to code buffer and display session.
-
-\(fn &optional ARG INFO)" t nil)
-
-(autoload 'org-babel-open-src-block-result "ob" "\
-If `point' is on a src block then open the results of the
-source code block, otherwise return nil. With optional prefix
-argument RE-RUN the source-code block is evaluated even if
-results already exist.
-
-\(fn &optional RE-RUN)" t nil)
-
-(autoload 'org-babel-map-src-blocks "ob" "\
-Evaluate BODY forms on each source-block in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer. During evaluation of BODY the following local variables
-are set relative to the currently matched code block.
-
-full-block ------- string holding the entirety of the code block
-beg-block -------- point at the beginning of the code block
-end-block -------- point at the end of the matched code block
-lang ------------- string holding the language of the code block
-beg-lang --------- point at the beginning of the lang
-end-lang --------- point at the end of the lang
-switches --------- string holding the switches
-beg-switches ----- point at the beginning of the switches
-end-switches ----- point at the end of the switches
-header-args ------ string holding the header-args
-beg-header-args -- point at the beginning of the header-args
-end-header-args -- point at the end of the header-args
-body ------------- string holding the body of the code block
-beg-body --------- point at the beginning of the body
-end-body --------- point at the end of the body
-
-\(fn FILE &rest BODY)" nil t)
-
-(put 'org-babel-map-src-blocks 'lisp-indent-function '1)
-
-(autoload 'org-babel-map-inline-src-blocks "ob" "\
-Evaluate BODY forms on each inline source-block in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer.
-
-\(fn FILE &rest BODY)" nil t)
-
-(put 'org-babel-map-inline-src-blocks 'lisp-indent-function '1)
-
-(autoload 'org-babel-map-call-lines "ob" "\
-Evaluate BODY forms on each call line in FILE.
-If FILE is nil evaluate BODY forms on source blocks in current
-buffer.
-
-\(fn FILE &rest BODY)" nil t)
-
-(put 'org-babel-map-call-lines 'lisp-indent-function '1)
-
-(autoload 'org-babel-map-executables "ob" "\
-
-
-\(fn FILE &rest BODY)" nil t)
-
-(put 'org-babel-map-executables 'lisp-indent-function '1)
-
-(autoload 'org-babel-execute-buffer "ob" "\
-Execute source code blocks in a buffer.
-Call `org-babel-execute-src-block' on every source block in
-the current buffer.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-babel-execute-subtree "ob" "\
-Execute source code blocks in a subtree.
-Call `org-babel-execute-src-block' on every source block in
-the current subtree.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-babel-sha1-hash "ob" "\
-Generate an sha1 hash based on the value of info.
-
-\(fn &optional INFO)" t nil)
-
-(autoload 'org-babel-hide-result-toggle-maybe "ob" "\
-Toggle visibility of result at point.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-goto-src-block-head "ob" "\
-Go to the beginning of the current code block.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-goto-named-src-block "ob" "\
-Go to a named source-code block.
-
-\(fn NAME)" t nil)
-
-(autoload 'org-babel-goto-named-result "ob" "\
-Go to a named result.
-
-\(fn NAME)" t nil)
-
-(autoload 'org-babel-next-src-block "ob" "\
-Jump to the next source block.
-With optional prefix argument ARG, jump forward ARG many source blocks.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-babel-previous-src-block "ob" "\
-Jump to the previous source block.
-With optional prefix argument ARG, jump backward ARG many source blocks.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-babel-mark-block "ob" "\
-Mark current src block.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-babel-describe-bindings) "ob-keys" "ob-keys.el"
-;;;;;; "f50ec310c1d81f092bdf4223aaf86661")
-;;; Generated autoloads from ob-keys.el
-
-(autoload 'org-babel-describe-bindings "ob-keys" "\
-Describe all keybindings behind `org-babel-key-prefix'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-babel-lob-get-info org-babel-lob-execute-maybe)
-;;;;;; "ob-lob" "ob-lob.el" "2911a7425b09b2411451d82e761878e6")
-;;; Generated autoloads from ob-lob.el
-
-(autoload 'org-babel-lob-execute-maybe "ob-lob" "\
-Execute a Library of Babel source block, if appropriate.
-Detect if this is context for a Library Of Babel source block and
-if so then run the appropriate source block from the Library.
-
-\(fn)" t nil)
-
-(autoload 'org-babel-lob-get-info "ob-lob" "\
-Return a Library of Babel function call as a string.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (org-babel-tangle org-babel-tangle-file org-babel-load-file)
-;;;;;; "ob-tangle" "ob-tangle.el" "a644e6de191ba768c92787d800b110d3")
-;;; Generated autoloads from ob-tangle.el
-
-(autoload 'org-babel-load-file "ob-tangle" "\
-Load Emacs Lisp source code blocks in the Org-mode FILE.
-This function exports the source code using
-`org-babel-tangle' and then loads the resulting file using
-`load-file'.
-
-\(fn FILE)" t nil)
-
-(autoload 'org-babel-tangle-file "ob-tangle" "\
-Extract the bodies of source code blocks in FILE.
-Source code blocks are extracted with `org-babel-tangle'.
-Optional argument TARGET-FILE can be used to specify a default
-export file for all source blocks. Optional argument LANG can be
-used to limit the exported source code blocks by language.
-
-\(fn FILE &optional TARGET-FILE LANG)" t nil)
-
-(autoload 'org-babel-tangle "ob-tangle" "\
-Write code blocks to source-specific files.
-Extract the bodies of all source code blocks from the current
-file into their own source-specific files. Optional argument
-TARGET-FILE can be used to specify a default export file for all
-source blocks. Optional argument LANG can be used to limit the
-exported source code blocks by language.
-
-\(fn &optional ONLY-THIS-BLOCK TARGET-FILE LANG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-archive-subtree-default-with-confirmation
-;;;;;; org-archive-subtree-default org-toggle-archive-tag org-archive-to-archive-sibling
-;;;;;; org-archive-subtree) "org-archive" "org-archive.el" "cb370581950dc2bde1c89a6a9d082023")
-;;; Generated autoloads from org-archive.el
-
-(autoload 'org-archive-subtree "org-archive" "\
-Move the current subtree to the archive.
-The archive can be a certain top-level heading in the current file, or in
-a different file. The tree will be moved to that location, the subtree
-heading be marked DONE, and the current time will be added.
-
-When called with prefix argument FIND-DONE, find whole trees without any
-open TODO items and archive them (after getting confirmation from the user).
-If the cursor is not at a headline when this command is called, try all level
-1 trees. If the cursor is on a headline, only try the direct children of
-this heading.
-
-\(fn &optional FIND-DONE)" t nil)
-
-(autoload 'org-archive-to-archive-sibling "org-archive" "\
-Archive the current heading by moving it under the archive sibling.
-The archive sibling is a sibling of the heading with the heading name
-`org-archive-sibling-heading' and an `org-archive-tag' tag. If this
-sibling does not exist, it will be created at the end of the subtree.
-
-\(fn)" t nil)
-
-(autoload 'org-toggle-archive-tag "org-archive" "\
-Toggle the archive tag for the current headline.
-With prefix ARG, check all children of current headline and offer tagging
-the children that do not contain any open TODO items.
-
-\(fn &optional FIND-DONE)" t nil)
-
-(autoload 'org-archive-subtree-default "org-archive" "\
-Archive the current subtree with the default command.
-This command is set with the variable `org-archive-default-command'.
-
-\(fn)" t nil)
-
-(autoload 'org-archive-subtree-default-with-confirmation "org-archive" "\
-Archive the current subtree with the default command.
-This command is set with the variable `org-archive-default-command'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-export-ascii-preprocess org-export-as-ascii
-;;;;;; org-export-region-as-ascii org-replace-region-by-ascii org-export-as-ascii-to-buffer
-;;;;;; org-export-as-utf8-to-buffer org-export-as-utf8 org-export-as-latin1-to-buffer
-;;;;;; org-export-as-latin1) "org-ascii" "org-ascii.el" "da07ccc26a5d463f4837cb635b822408")
-;;; Generated autoloads from org-ascii.el
-
-(autoload 'org-export-as-latin1 "org-ascii" "\
-Like `org-export-as-ascii', use latin1 encoding for special symbols.
-
-\(fn &rest ARGS)" t nil)
-
-(autoload 'org-export-as-latin1-to-buffer "org-ascii" "\
-Like `org-export-as-ascii-to-buffer', use latin1 encoding for symbols.
-
-\(fn &rest ARGS)" t nil)
-
-(autoload 'org-export-as-utf8 "org-ascii" "\
-Like `org-export-as-ascii', use encoding for special symbols.
-
-\(fn &rest ARGS)" t nil)
-
-(autoload 'org-export-as-utf8-to-buffer "org-ascii" "\
-Like `org-export-as-ascii-to-buffer', use utf8 encoding for symbols.
-
-\(fn &rest ARGS)" t nil)
-
-(autoload 'org-export-as-ascii-to-buffer "org-ascii" "\
-Call `org-export-as-ascii` with output to a temporary buffer.
-No file is created. The prefix ARG is passed through to `org-export-as-ascii'.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-replace-region-by-ascii "org-ascii" "\
-Assume the current region has org-mode syntax, and convert it to plain ASCII.
-This can be used in any buffer. For example, you could write an
-itemized list in org-mode syntax in a Mail buffer and then use this
-command to convert it.
-
-\(fn BEG END)" t nil)
-
-(autoload 'org-export-region-as-ascii "org-ascii" "\
-Convert region from BEG to END in org-mode buffer to plain ASCII.
-If prefix arg BODY-ONLY is set, omit file header, footer, and table of
-contents, and only produce the region of converted text, useful for
-cut-and-paste operations.
-If BUFFER is a buffer or a string, use/create that buffer as a target
-of the converted ASCII. If BUFFER is the symbol `string', return the
-produced ASCII as a string and leave not buffer behind. For example,
-a Lisp program could call this function in the following way:
-
- (setq ascii (org-export-region-as-ascii beg end t 'string))
-
-When called interactively, the output buffer is selected, and shown
-in a window. A non-interactive call will only return the buffer.
-
-\(fn BEG END &optional BODY-ONLY BUFFER)" t nil)
-
-(autoload 'org-export-as-ascii "org-ascii" "\
-Export the outline as a pretty ASCII file.
-If there is an active region, export only the region.
-The prefix ARG specifies how many levels of the outline should become
-underlined headlines, default is 3. Lower levels will become bulleted
-lists. EXT-PLIST is a property list with external parameters overriding
-org-mode's default settings, but still inferior to file-local
-settings. When TO-BUFFER is non-nil, create a buffer with that
-name and export to that buffer. If TO-BUFFER is the symbol
-`string', don't leave any buffer behind but just return the
-resulting ASCII as a string. When BODY-ONLY is set, don't produce
-the file header and footer. When PUB-DIR is set, use this as the
-publishing directory.
-
-\(fn ARG &optional EXT-PLIST TO-BUFFER BODY-ONLY PUB-DIR)" t nil)
-
-(autoload 'org-export-ascii-preprocess "org-ascii" "\
-Do extra work for ASCII export.
-
-\(fn PARAMETERS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (org-attach) "org-attach" "org-attach.el" "79417b5570af2dd67ba42a8530b52e02")
-;;; Generated autoloads from org-attach.el
-
-(autoload 'org-attach "org-attach" "\
-The dispatcher for attachment commands.
-Shows a list of commands and prompts for another key to execute a command.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-bbdb-anniversaries) "org-bbdb" "org-bbdb.el"
-;;;;;; "74769a415220e4a0eedde063eb20d5e3")
-;;; Generated autoloads from org-bbdb.el
-
-(autoload 'org-bbdb-anniversaries "org-bbdb" "\
-Extract anniversaries from BBDB for display in the agenda.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (org-dblock-write:clocktable org-clock-report org-clock-get-clocktable
-;;;;;; org-clock-display org-clock-sum org-clock-goto org-clock-cancel
-;;;;;; org-clock-out org-clock-in-last org-clock-in org-resolve-clocks)
-;;;;;; "org-clock" "org-clock.el" "e35774b5fbd9b7ebba87d4c4e9121980")
-;;; Generated autoloads from org-clock.el
-
-(autoload 'org-resolve-clocks "org-clock" "\
-Resolve all currently open org-mode clocks.
-If `only-dangling-p' is non-nil, only ask to resolve dangling
-\(i.e., not currently open and valid) clocks.
-
-\(fn &optional ONLY-DANGLING-P PROMPT-FN LAST-VALID)" t nil)
-
-(autoload 'org-clock-in "org-clock" "\
-Start the clock on the current item.
-If necessary, clock-out of the currently active clock.
-With a prefix argument SELECT (\\[universal-argument]), offer a list of recently clocked
-tasks to clock into. When SELECT is \\[universal-argument] \\[universal-argument], clock into the current task
-and mark it as the default task, a special task that will always be offered
-in the clocking selection, associated with the letter `d'.
-When SELECT is \\[universal-argument] \\[universal-argument] \\[universal-argument], clock in by using the last clock-out
-time as the start time (see `org-clock-continuously' to
-make this the default behavior.)
-
-\(fn &optional SELECT START-TIME)" t nil)
-
-(autoload 'org-clock-in-last "org-clock" "\
-Clock in the last closed clocked item.
-When already clocking in, send an warning.
-With a universal prefix argument, select the task you want to
-clock in from the last clocked in tasks.
-With two universal prefix arguments, start clocking using the
-last clock-out time, if any.
-With three universal prefix arguments, interactively prompt
-for a todo state to switch to, overriding the existing value
-`org-clock-in-switch-to-state'.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-clock-out "org-clock" "\
-Stop the currently running clock.
-Throw an error if there is no running clock and FAIL-QUIETLY is nil.
-With a universal prefix, prompt for a state to switch the clocked out task
-to, overriding the existing value of `org-clock-out-switch-to-state'.
-
-\(fn &optional SWITCH-TO-STATE FAIL-QUIETLY AT-TIME)" t nil)
-
-(autoload 'org-clock-cancel "org-clock" "\
-Cancel the running clock by removing the start timestamp.
-
-\(fn)" t nil)
-
-(autoload 'org-clock-goto "org-clock" "\
-Go to the currently clocked-in entry, or to the most recently clocked one.
-With prefix arg SELECT, offer recently clocked tasks for selection.
-
-\(fn &optional SELECT)" t nil)
-
-(autoload 'org-clock-sum "org-clock" "\
-Sum the times for each subtree.
-Puts the resulting times in minutes as a text property on each headline.
-TSTART and TEND can mark a time range to be considered.
-HEADLINE-FILTER is a zero-arg function that, if specified, is called for
-each headline in the time range with point at the headline. Headlines for
-which HEADLINE-FILTER returns nil are excluded from the clock summation.
-PROPNAME lets you set a custom text property instead of :org-clock-minutes.
-
-\(fn &optional TSTART TEND HEADLINE-FILTER PROPNAME)" t nil)
-
-(autoload 'org-clock-display "org-clock" "\
-Show subtree times in the entire buffer.
-If TOTAL-ONLY is non-nil, only show the total time for the entire file
-in the echo area.
-
-Use \\[org-clock-remove-overlays] to remove the subtree times.
-
-\(fn &optional TOTAL-ONLY)" t nil)
-
-(autoload 'org-clock-get-clocktable "org-clock" "\
-Get a formatted clocktable with parameters according to PROPS.
-The table is created in a temporary buffer, fully formatted and
-fontified, and then returned.
-
-\(fn &rest PROPS)" nil nil)
-
-(autoload 'org-clock-report "org-clock" "\
-Create a table containing a report about clocked time.
-If the cursor is inside an existing clocktable block, then the table
-will be updated. If not, a new clocktable will be inserted. The scope
-of the new clock will be subtree when called from within a subtree, and
-file elsewhere.
-
-When called with a prefix argument, move to the first clock table in the
-buffer and update it.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-dblock-write:clocktable "org-clock" "\
-Write the standard clocktable.
-
-\(fn PARAMS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (org-datetree-find-date-create) "org-datetree"
-;;;;;; "org-datetree.el" "2cb302124ac99d69dbbac0950cf664e9")
-;;; Generated autoloads from org-datetree.el
-
-(autoload 'org-datetree-find-date-create "org-datetree" "\
-Find or create an entry for DATE.
-If KEEP-RESTRICTION is non-nil, do not widen the buffer.
-When it is nil, the buffer will be widened to make sure an existing date
-tree can be found.
-
-\(fn DATE &optional KEEP-RESTRICTION)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (org-export-as-docbook org-export-as-docbook-pdf-and-open
-;;;;;; org-export-as-docbook-pdf org-export-region-as-docbook org-replace-region-by-docbook
-;;;;;; org-export-as-docbook-to-buffer org-export-as-docbook-batch)
-;;;;;; "org-docbook" "org-docbook.el" "b5175098b85e3e658a821b488bc0a9a9")
-;;; Generated autoloads from org-docbook.el
-
-(autoload 'org-export-as-docbook-batch "org-docbook" "\
-Call `org-export-as-docbook' in batch style.
-This function can be used in batch processing.
-
-For example:
-
-$ emacs --batch
- --load=$HOME/lib/emacs/org.el
- --visit=MyOrgFile.org --funcall org-export-as-docbook-batch
-
-\(fn)" nil nil)
-
-(autoload 'org-export-as-docbook-to-buffer "org-docbook" "\
-Call `org-export-as-docbook' with output to a temporary buffer.
-No file is created.
-
-\(fn)" t nil)
-
-(autoload 'org-replace-region-by-docbook "org-docbook" "\
-Replace the region from BEG to END with its DocBook export.
-It assumes the region has `org-mode' syntax, and then convert it to
-DocBook. This can be used in any buffer. For example, you could
-write an itemized list in `org-mode' syntax in an DocBook buffer and
-then use this command to convert it.
-
-\(fn BEG END)" t nil)
-
-(autoload 'org-export-region-as-docbook "org-docbook" "\
-Convert region from BEG to END in `org-mode' buffer to DocBook.
-If prefix arg BODY-ONLY is set, omit file header and footer and
-only produce the region of converted text, useful for
-cut-and-paste operations. If BUFFER is a buffer or a string,
-use/create that buffer as a target of the converted DocBook. If
-BUFFER is the symbol `string', return the produced DocBook as a
-string and leave not buffer behind. For example, a Lisp program
-could call this function in the following way:
-
- (setq docbook (org-export-region-as-docbook beg end t 'string))
-
-When called interactively, the output buffer is selected, and shown
-in a window. A non-interactive call will only return the buffer.
-
-\(fn BEG END &optional BODY-ONLY BUFFER)" t nil)
-
-(autoload 'org-export-as-docbook-pdf "org-docbook" "\
-Export as DocBook XML file, and generate PDF file.
-
-\(fn &optional EXT-PLIST TO-BUFFER BODY-ONLY PUB-DIR)" t nil)
-
-(autoload 'org-export-as-docbook-pdf-and-open "org-docbook" "\
-Export as DocBook XML file, generate PDF file, and open it.
-
-\(fn)" t nil)
-
-(autoload 'org-export-as-docbook "org-docbook" "\
-Export the current buffer as a DocBook file.
-If there is an active region, export only the region. When
-HIDDEN is obsolete and does nothing. EXT-PLIST is a
-property list with external parameters overriding org-mode's
-default settings, but still inferior to file-local settings.
-When TO-BUFFER is non-nil, create a buffer with that name and
-export to that buffer. If TO-BUFFER is the symbol `string',
-don't leave any buffer behind but just return the resulting HTML
-as a string. When BODY-ONLY is set, don't produce the file
-header and footer, simply return the content of the document (all
-top-level sections). When PUB-DIR is set, use this as the
-publishing directory.
-
-\(fn &optional EXT-PLIST TO-BUFFER BODY-ONLY PUB-DIR)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-element-context org-element-at-point org-element-interpret-data)
-;;;;;; "org-element" "org-element.el" "7177c62bdb11690ea8e28badc07262cf")
-;;; Generated autoloads from org-element.el
-
-(autoload 'org-element-interpret-data "org-element" "\
-Interpret DATA as Org syntax.
-
-DATA is a parse tree, an element, an object or a secondary string
-to interpret.
-
-Optional argument PARENT is used for recursive calls. It contains
-the element or object containing data, or nil.
-
-Return Org syntax as a string.
-
-\(fn DATA &optional PARENT)" nil nil)
-
-(autoload 'org-element-at-point "org-element" "\
-Determine closest element around point.
-
-Return value is a list like (TYPE PROPS) where TYPE is the type
-of the element and PROPS a plist of properties associated to the
-element.
-
-Possible types are defined in `org-element-all-elements'.
-Properties depend on element or object type, but always include
-`:begin', `:end', `:parent' and `:post-blank' properties.
-
-As a special case, if point is at the very beginning of a list or
-sub-list, returned element will be that list instead of the first
-item. In the same way, if point is at the beginning of the first
-row of a table, returned element will be the table instead of the
-first row.
-
-If optional argument KEEP-TRAIL is non-nil, the function returns
-a list of elements leading to element at point. The list's CAR
-is always the element at point. The following positions contain
-element's siblings, then parents, siblings of parents, until the
-first element of current section.
-
-\(fn &optional KEEP-TRAIL)" nil nil)
-
-(autoload 'org-element-context "org-element" "\
-Return closest element or object around point.
-
-Return value is a list like (TYPE PROPS) where TYPE is the type
-of the element or object and PROPS a plist of properties
-associated to it.
-
-Possible types are defined in `org-element-all-elements' and
-`org-element-all-objects'. Properties depend on element or
-object type, but always include `:begin', `:end', `:parent' and
-`:post-blank'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (org-export-as-org org-export-visible org-export)
-;;;;;; "org-exp" "org-exp.el" "a54f2298e39d40d75e8609cb32dc3bc3")
-;;; Generated autoloads from org-exp.el
-
-(autoload 'org-export "org-exp" "\
-Export dispatcher for Org-mode.
-When `org-export-run-in-background' is non-nil, try to run the command
-in the background. This will be done only for commands that write
-to a file. For details see the docstring of `org-export-run-in-background'.
-
-The prefix argument ARG will be passed to the exporter. However, if
-ARG is a double universal prefix \\[universal-argument] \\[universal-argument], that means to inverse the
-value of `org-export-run-in-background'.
-
-If `org-export-initial-scope' is set to 'subtree, try to export
-the current subtree, otherwise try to export the whole buffer.
-Pressing `1' will switch between these two options.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-export-visible "org-exp" "\
-Create a copy of the visible part of the current buffer, and export it.
-The copy is created in a temporary buffer and removed after use.
-TYPE is the final key (as a string) that also selects the export command in
-the \\<org-mode-map>\\[org-export] export dispatcher.
-As a special case, if the you type SPC at the prompt, the temporary
-org-mode file will not be removed but presented to you so that you can
-continue to use it. The prefix arg ARG is passed through to the exporting
-command.
-
-\(fn TYPE ARG)" t nil)
-
-(autoload 'org-export-as-org "org-exp" "\
-Make a copy with not-exporting stuff removed.
-The purpose of this function is to provide a way to export the source
-Org file of a webpage in Org format, but with sensitive and/or irrelevant
-stuff removed. This command will remove the following:
-
-- archived trees (if the variable `org-export-with-archived-trees' is nil)
-- comment blocks and trees starting with the COMMENT keyword
-- only trees that are consistent with `org-export-select-tags'
- and `org-export-exclude-tags'.
-
-The only arguments that will be used are EXT-PLIST and PUB-DIR,
-all the others will be ignored (but are present so that the general
-mechanism to call publishing functions will work).
-
-EXT-PLIST is a property list with external parameters overriding
-org-mode's default settings, but still inferior to file-local
-settings. When PUB-DIR is set, use this as the publishing
-directory.
-
-\(fn ARG &optional EXT-PLIST TO-BUFFER BODY-ONLY PUB-DIR)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-feed-show-raw-feed org-feed-goto-inbox org-feed-update
-;;;;;; org-feed-update-all) "org-feed" "org-feed.el" "f5f190118c0e7321f88972d9a4749f5f")
-;;; Generated autoloads from org-feed.el
-
-(autoload 'org-feed-update-all "org-feed" "\
-Get inbox items from all feeds in `org-feed-alist'.
-
-\(fn)" t nil)
-
-(autoload 'org-feed-update "org-feed" "\
-Get inbox items from FEED.
-FEED can be a string with an association in `org-feed-alist', or
-it can be a list structured like an entry in `org-feed-alist'.
-
-\(fn FEED &optional RETRIEVE-ONLY)" t nil)
-
-(autoload 'org-feed-goto-inbox "org-feed" "\
-Go to the inbox that captures the feed named FEED.
-
-\(fn FEED)" t nil)
-
-(autoload 'org-feed-show-raw-feed "org-feed" "\
-Show the raw feed buffer of a feed.
-
-\(fn FEED)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-footnote-normalize org-footnote-action) "org-footnote"
-;;;;;; "org-footnote.el" "49d69a14a72114f4eaecb17e797760bb")
-;;; Generated autoloads from org-footnote.el
-
-(autoload 'org-footnote-action "org-footnote" "\
-Do the right thing for footnotes.
-
-When at a footnote reference, jump to the definition.
-
-When at a definition, jump to the references if they exist, offer
-to create them otherwise.
-
-When neither at definition or reference, create a new footnote,
-interactively.
-
-With prefix arg SPECIAL, offer additional commands in a menu.
-
-\(fn &optional SPECIAL)" t nil)
-
-(autoload 'org-footnote-normalize "org-footnote" "\
-Collect the footnotes in various formats and normalize them.
-
-This finds the different sorts of footnotes allowed in Org, and
-normalizes them to the usual [N] format that is understood by the
-Org-mode exporters.
-
-When SORT-ONLY is set, only sort the footnote definitions into the
-referenced sequence.
-
-If Org is amidst an export process, EXPORT-PROPS will hold the
-export properties of the buffer.
-
-When EXPORT-PROPS is non-nil, the default action is to insert
-normalized footnotes towards the end of the pre-processing
-buffer. Some exporters (docbook, odt...) expect footnote
-definitions to be available before any references to them. Such
-exporters can let bind `org-footnote-insert-pos-for-preprocessor'
-to symbol `point-min' to achieve the desired behaviour.
-
-Additional note on `org-footnote-insert-pos-for-preprocessor':
-1. This variable has not effect when FOR-PREPROCESSOR is nil.
-2. This variable (potentially) obviates the need for extra scan
- of pre-processor buffer as witnessed in
- `org-export-docbook-get-footnotes'.
-
-\(fn &optional SORT-ONLY EXPORT-PROPS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (org-freemind-to-org-mode org-freemind-from-org-sparse-tree
-;;;;;; org-freemind-from-org-mode org-freemind-from-org-mode-node
-;;;;;; org-freemind-show org-export-as-freemind) "org-freemind"
-;;;;;; "org-freemind.el" "3a98110463e00bcdab11d312409658b5")
-;;; Generated autoloads from org-freemind.el
-
-(autoload 'org-export-as-freemind "org-freemind" "\
-Export the current buffer as a Freemind file.
-If there is an active region, export only the region. HIDDEN is
-obsolete and does nothing. EXT-PLIST is a property list with
-external parameters overriding org-mode's default settings, but
-still inferior to file-local settings. When TO-BUFFER is
-non-nil, create a buffer with that name and export to that
-buffer. If TO-BUFFER is the symbol `string', don't leave any
-buffer behind but just return the resulting HTML as a string.
-When BODY-ONLY is set, don't produce the file header and footer,
-simply return the content of the document (all top level
-sections). When PUB-DIR is set, use this as the publishing
-directory.
-
-See `org-freemind-from-org-mode' for more information.
-
-\(fn &optional HIDDEN EXT-PLIST TO-BUFFER BODY-ONLY PUB-DIR)" t nil)
-
-(autoload 'org-freemind-show "org-freemind" "\
-Show file MM-FILE in Freemind.
-
-\(fn MM-FILE)" t nil)
-
-(autoload 'org-freemind-from-org-mode-node "org-freemind" "\
-Convert node at line NODE-LINE to the FreeMind file MM-FILE.
-See `org-freemind-from-org-mode' for more information.
-
-\(fn NODE-LINE MM-FILE)" t nil)
-
-(autoload 'org-freemind-from-org-mode "org-freemind" "\
-Convert the `org-mode' file ORG-FILE to the FreeMind file MM-FILE.
-All the nodes will be opened or closed in Freemind just as you
-have them in `org-mode'.
-
-Note that exporting to Freemind also gives you an alternative way
-to export from `org-mode' to html. You can create a dynamic html
-version of the your org file, by first exporting to Freemind and
-then exporting from Freemind to html. The 'As
-XHTML (JavaScript)' version in Freemind works very well (and you
-can use a CSS stylesheet to style it).
-
-\(fn ORG-FILE MM-FILE)" t nil)
-
-(autoload 'org-freemind-from-org-sparse-tree "org-freemind" "\
-Convert visible part of buffer ORG-BUFFER to FreeMind file MM-FILE.
-
-\(fn ORG-BUFFER MM-FILE)" t nil)
-
-(autoload 'org-freemind-to-org-mode "org-freemind" "\
-Convert FreeMind file MM-FILE to `org-mode' file ORG-FILE.
-
-\(fn MM-FILE ORG-FILE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-export-as-html org-export-region-as-html org-replace-region-by-html
-;;;;;; org-export-as-html-to-buffer org-export-as-html-batch org-export-as-html-and-open)
-;;;;;; "org-html" "org-html.el" "6b53aed335800c4c16dde448e67b64e0")
-;;; Generated autoloads from org-html.el
-
-(put 'org-export-html-style-include-default 'safe-local-variable 'booleanp)
-
-(put 'org-export-html-style 'safe-local-variable 'stringp)
-
-(put 'org-export-html-style-extra 'safe-local-variable 'stringp)
-
-(autoload 'org-export-as-html-and-open "org-html" "\
-Export the outline as HTML and immediately open it with a browser.
-If there is an active region, export only the region.
-The prefix ARG specifies how many levels of the outline should become
-headlines. The default is 3. Lower levels will become bulleted lists.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-export-as-html-batch "org-html" "\
-Call the function `org-export-as-html'.
-This function can be used in batch processing as:
-emacs --batch
- --load=$HOME/lib/emacs/org.el
- --eval \"(setq org-export-headline-levels 2)\"
- --visit=MyFile --funcall org-export-as-html-batch
-
-\(fn)" nil nil)
-
-(autoload 'org-export-as-html-to-buffer "org-html" "\
-Call `org-export-as-html` with output to a temporary buffer.
-No file is created. The prefix ARG is passed through to `org-export-as-html'.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-replace-region-by-html "org-html" "\
-Assume the current region has org-mode syntax, and convert it to HTML.
-This can be used in any buffer. For example, you could write an
-itemized list in org-mode syntax in an HTML buffer and then use this
-command to convert it.
-
-\(fn BEG END)" t nil)
-
-(autoload 'org-export-region-as-html "org-html" "\
-Convert region from BEG to END in org-mode buffer to HTML.
-If prefix arg BODY-ONLY is set, omit file header, footer, and table of
-contents, and only produce the region of converted text, useful for
-cut-and-paste operations.
-If BUFFER is a buffer or a string, use/create that buffer as a target
-of the converted HTML. If BUFFER is the symbol `string', return the
-produced HTML as a string and leave not buffer behind. For example,
-a Lisp program could call this function in the following way:
-
- (setq html (org-export-region-as-html beg end t 'string))
-
-When called interactively, the output buffer is selected, and shown
-in a window. A non-interactive call will only return the buffer.
-
-\(fn BEG END &optional BODY-ONLY BUFFER)" t nil)
-
-(autoload 'org-export-as-html "org-html" "\
-Export the outline as a pretty HTML file.
-If there is an active region, export only the region. The prefix
-ARG specifies how many levels of the outline should become
-headlines. The default is 3. Lower levels will become bulleted
-lists. EXT-PLIST is a property list with external parameters overriding
-org-mode's default settings, but still inferior to file-local
-settings. When TO-BUFFER is non-nil, create a buffer with that
-name and export to that buffer. If TO-BUFFER is the symbol
-`string', don't leave any buffer behind but just return the
-resulting HTML as a string. When BODY-ONLY is set, don't produce
-the file header and footer, simply return the content of
-<body>...</body>, without even the body tags themselves. When
-PUB-DIR is set, use this as the publishing directory.
-
-\(fn ARG &optional EXT-PLIST TO-BUFFER BODY-ONLY PUB-DIR)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files
-;;;;;; org-export-icalendar-this-file) "org-icalendar" "org-icalendar.el"
-;;;;;; "1017e9f1f85d0c25fae1a0ea5703a34f")
-;;; Generated autoloads from org-icalendar.el
-
-(autoload 'org-export-icalendar-this-file "org-icalendar" "\
-Export current file as an iCalendar file.
-The iCalendar file will be located in the same directory as the Org-mode
-file, but with extension `.ics'.
-
-\(fn)" t nil)
-
-(autoload 'org-export-icalendar-all-agenda-files "org-icalendar" "\
-Export all files in the variable `org-agenda-files' to iCalendar .ics files.
-Each iCalendar file will be located in the same directory as the Org-mode
-file, but with extension `.ics'.
-
-\(fn)" t nil)
-
-(autoload 'org-export-icalendar-combine-agenda-files "org-icalendar" "\
-Export all files in `org-agenda-files' to a single combined iCalendar file.
-The file is stored under the name `org-combined-agenda-icalendar-file'.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-id-store-link org-id-find-id-file org-id-find
-;;;;;; org-id-goto org-id-get org-id-get-create) "org-id" "org-id.el"
-;;;;;; "2442d9a483de7a9376abb7a2726e8e49")
-;;; Generated autoloads from org-id.el
-
-(autoload 'org-id-get-create "org-id" "\
-Create an ID for the current entry and return it.
-If the entry already has an ID, just return it.
-With optional argument FORCE, force the creation of a new ID.
-
-\(fn &optional FORCE)" t nil)
-
-(autoload 'org-id-get "org-id" "\
-Get the ID property of the entry at point-or-marker POM.
-If POM is nil, refer to the entry at point.
-If the entry does not have an ID, the function returns nil.
-However, when CREATE is non nil, create an ID if none is present already.
-PREFIX will be passed through to `org-id-new'.
-In any case, the ID of the entry is returned.
-
-\(fn &optional POM CREATE PREFIX)" nil nil)
-
-(autoload 'org-id-goto "org-id" "\
-Switch to the buffer containing the entry with id ID.
-Move the cursor to that entry in that buffer.
-
-\(fn ID)" t nil)
-
-(autoload 'org-id-find "org-id" "\
-Return the location of the entry with the id ID.
-The return value is a cons cell (file-name . position), or nil
-if there is no entry with that ID.
-With optional argument MARKERP, return the position as a new marker.
-
-\(fn ID &optional MARKERP)" nil nil)
-
-(autoload 'org-id-find-id-file "org-id" "\
-Query the id database for the file in which this ID is located.
-
-\(fn ID)" nil nil)
-
-(autoload 'org-id-store-link "org-id" "\
-Store a link to the current entry, using its ID.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-indent-mode) "org-indent" "org-indent.el"
-;;;;;; "7aadb0ad045ed0beae0b129e7caa9795")
-;;; Generated autoloads from org-indent.el
-
-(autoload 'org-indent-mode "org-indent" "\
-When active, indent text according to outline structure.
-
-Internally this works by adding `line-prefix' and `wrap-prefix'
-properties, after each buffer modification, on the modified zone.
-
-The process is synchronous. Though, initial indentation of
-buffer, which can take a few seconds on large buffers, is done
-during idle time.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-irc-store-link) "org-irc" "org-irc.el" "f5d45d21f475b63408f333384ce1cc61")
-;;; Generated autoloads from org-irc.el
-
-(autoload 'org-irc-store-link "org-irc" "\
-Dispatch to the appropriate function to store a link to an IRC session.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (org-export-as-pdf-and-open org-export-as-pdf org-export-as-latex
-;;;;;; org-export-region-as-latex org-replace-region-by-latex org-export-as-latex-to-buffer
-;;;;;; org-export-as-latex-batch) "org-latex" "org-latex.el" "f5224057e83fb06e245b730d41ab8fee")
-;;; Generated autoloads from org-latex.el
-
-(autoload 'org-export-as-latex-batch "org-latex" "\
-Call `org-export-as-latex', may be used in batch processing.
-For example:
-
-emacs --batch
- --load=$HOME/lib/emacs/org.el
- --eval \"(setq org-export-headline-levels 2)\"
- --visit=MyFile --funcall org-export-as-latex-batch
-
-\(fn)" nil nil)
-
-(autoload 'org-export-as-latex-to-buffer "org-latex" "\
-Call `org-export-as-latex` with output to a temporary buffer.
-No file is created. The prefix ARG is passed through to `org-export-as-latex'.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-replace-region-by-latex "org-latex" "\
-Replace the region from BEG to END with its LaTeX export.
-It assumes the region has `org-mode' syntax, and then convert it to
-LaTeX. This can be used in any buffer. For example, you could
-write an itemized list in `org-mode' syntax in an LaTeX buffer and
-then use this command to convert it.
-
-\(fn BEG END)" t nil)
-
-(autoload 'org-export-region-as-latex "org-latex" "\
-Convert region from BEG to END in `org-mode' buffer to LaTeX.
-If prefix arg BODY-ONLY is set, omit file header, footer, and table of
-contents, and only produce the region of converted text, useful for
-cut-and-paste operations.
-If BUFFER is a buffer or a string, use/create that buffer as a target
-of the converted LaTeX. If BUFFER is the symbol `string', return the
-produced LaTeX as a string and leave no buffer behind. For example,
-a Lisp program could call this function in the following way:
-
- (setq latex (org-export-region-as-latex beg end t 'string))
-
-When called interactively, the output buffer is selected, and shown
-in a window. A non-interactive call will only return the buffer.
-
-\(fn BEG END &optional BODY-ONLY BUFFER)" t nil)
-
-(autoload 'org-export-as-latex "org-latex" "\
-Export current buffer to a LaTeX file.
-If there is an active region, export only the region. The prefix
-ARG specifies how many levels of the outline should become
-headlines. The default is 3. Lower levels will be exported
-depending on `org-export-latex-low-levels'. The default is to
-convert them as description lists.
-EXT-PLIST is a property list with external parameters overriding
-org-mode's default settings, but still inferior to file-local settings.
-When TO-BUFFER is non-nil, create a buffer with that name and export
-to that buffer. If TO-BUFFER is the symbol `string', don't leave any
-buffer behind and just return the resulting LaTeX as a string, with
-no LaTeX header.
-When BODY-ONLY is set, don't produce the file header and footer,
-simply return the content of \\begin{document}...\\end{document},
-without even the \\begin{document} and \\end{document} commands.
-When PUB-DIR is set, use this as the publishing directory.
-
-\(fn ARG &optional EXT-PLIST TO-BUFFER BODY-ONLY PUB-DIR)" t nil)
-
-(autoload 'org-export-as-pdf "org-latex" "\
-Export as LaTeX, then process through to PDF.
-
-\(fn ARG &optional HIDDEN EXT-PLIST TO-BUFFER BODY-ONLY PUB-DIR)" t nil)
-
-(autoload 'org-export-as-pdf-and-open "org-latex" "\
-Export as LaTeX, then process through to PDF, and open.
-
-\(fn ARG)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-mobile-pull org-mobile-push) "org-mobile"
-;;;;;; "org-mobile.el" "0f14dc86f73136f3d5446296f15b6e5a")
-;;; Generated autoloads from org-mobile.el
-
-(autoload 'org-mobile-push "org-mobile" "\
-Push the current state of Org affairs to the target directory.
-This will create the index file, copy all agenda files there, and also
-create all custom agenda views, for upload to the mobile phone.
-
-\(fn)" t nil)
-
-(autoload 'org-mobile-pull "org-mobile" "\
-Pull the contents of `org-mobile-capture-file' and integrate them.
-Apply all flagged actions, flag entries to be flagged and then call an
-agenda view showing the flagged items.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-export-as-odf-and-open org-export-as-odf org-export-odt-convert
-;;;;;; org-export-as-odt org-export-as-odt-batch org-export-as-odt-and-open)
-;;;;;; "org-odt" "org-odt.el" "a362046f28ee07a026ab3cd95cf2f391")
-;;; Generated autoloads from org-odt.el
-
-(put 'org-export-odt-preferred-output-format 'safe-local-variable 'stringp)
-
-(autoload 'org-export-as-odt-and-open "org-odt" "\
-Export the outline as ODT and immediately open it with a browser.
-If there is an active region, export only the region.
-The prefix ARG specifies how many levels of the outline should become
-headlines. The default is 3. Lower levels will become bulleted lists.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-export-as-odt-batch "org-odt" "\
-Call the function `org-lparse-batch'.
-This function can be used in batch processing as:
-emacs --batch
- --load=$HOME/lib/emacs/org.el
- --eval \"(setq org-export-headline-levels 2)\"
- --visit=MyFile --funcall org-export-as-odt-batch
-
-\(fn)" nil nil)
-
-(autoload 'org-export-as-odt "org-odt" "\
-Export the outline as a OpenDocumentText file.
-If there is an active region, export only the region. The prefix
-ARG specifies how many levels of the outline should become
-headlines. The default is 3. Lower levels will become bulleted
-lists. HIDDEN is obsolete and does nothing.
-EXT-PLIST is a property list with external parameters overriding
-org-mode's default settings, but still inferior to file-local
-settings. When TO-BUFFER is non-nil, create a buffer with that
-name and export to that buffer. If TO-BUFFER is the symbol
-`string', don't leave any buffer behind but just return the
-resulting XML as a string. When BODY-ONLY is set, don't produce
-the file header and footer, simply return the content of
-<body>...</body>, without even the body tags themselves. When
-PUB-DIR is set, use this as the publishing directory.
-
-\(fn ARG &optional HIDDEN EXT-PLIST TO-BUFFER BODY-ONLY PUB-DIR)" t nil)
-
-(autoload 'org-export-odt-convert "org-odt" "\
-Convert IN-FILE to format OUT-FMT using a command line converter.
-IN-FILE is the file to be converted. If unspecified, it defaults
-to variable `buffer-file-name'. OUT-FMT is the desired output
-format. Use `org-export-odt-convert-process' as the converter.
-If PREFIX-ARG is non-nil then the newly converted file is opened
-using `org-open-file'.
-
-\(fn &optional IN-FILE OUT-FMT PREFIX-ARG)" t nil)
-
-(autoload 'org-export-as-odf "org-odt" "\
-Export LATEX-FRAG as OpenDocument formula file ODF-FILE.
-Use `org-create-math-formula' to convert LATEX-FRAG first to
-MathML. When invoked as an interactive command, use
-`org-latex-regexps' to infer LATEX-FRAG from currently active
-region. If no LaTeX fragments are found, prompt for it. Push
-MathML source to kill ring, if `org-export-copy-to-kill-ring' is
-non-nil.
-
-\(fn LATEX-FRAG &optional ODF-FILE)" t nil)
-
-(autoload 'org-export-as-odf-and-open "org-odt" "\
-Export LaTeX fragment as OpenDocument formula and immediately open it.
-Use `org-export-as-odf' to read LaTeX fragment and OpenDocument
-formula file.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-plot/gnuplot) "org-plot" "org-plot.el" "c0ade398350d86fcbe2d2a2db8c9e9ef")
-;;; Generated autoloads from org-plot.el
-
-(autoload 'org-plot/gnuplot "org-plot" "\
-Plot table using gnuplot. Gnuplot options can be specified with PARAMS.
-If not given options will be taken from the +PLOT
-line directly before or after the table.
-
-\(fn &optional PARAMS)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-publish-current-project org-publish-current-file
-;;;;;; org-publish-all org-publish) "org-publish" "org-publish.el"
-;;;;;; "5b8f7e096ac50ffe61b1efc23ade67e6")
-;;; Generated autoloads from org-publish.el
-
-(defalias 'org-publish-project 'org-publish)
-
-(autoload 'org-publish "org-publish" "\
-Publish PROJECT.
-
-\(fn PROJECT &optional FORCE)" t nil)
-
-(autoload 'org-publish-all "org-publish" "\
-Publish all projects.
-With prefix argument, remove all files in the timestamp
-directory and force publishing all files.
-
-\(fn &optional FORCE)" t nil)
-
-(autoload 'org-publish-current-file "org-publish" "\
-Publish the current file.
-With prefix argument, force publish the file.
-
-\(fn &optional FORCE)" t nil)
-
-(autoload 'org-publish-current-project "org-publish" "\
-Publish the project associated with the current file.
-With a prefix argument, force publishing of all files in
-the project.
-
-\(fn &optional FORCE)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-remember-handler org-remember org-remember-apply-template
-;;;;;; org-remember-annotation org-remember-insinuate) "org-remember"
-;;;;;; "org-remember.el" "8695b11a6682036dacc8caac7c71be0d")
-;;; Generated autoloads from org-remember.el
-
-(autoload 'org-remember-insinuate "org-remember" "\
-Setup remember.el for use with Org-mode.
-
-\(fn)" nil nil)
-
-(autoload 'org-remember-annotation "org-remember" "\
-Return a link to the current location as an annotation for remember.el.
-If you are using Org-mode files as target for data storage with
-remember.el, then the annotations should include a link compatible with the
-conventions in Org-mode. This function returns such a link.
-
-\(fn)" nil nil)
-
-(autoload 'org-remember-apply-template "org-remember" "\
-Initialize *remember* buffer with template, invoke `org-mode'.
-This function should be placed into `remember-mode-hook' and in fact requires
-to be run from that hook to function properly.
-
-\(fn &optional USE-CHAR SKIP-INTERACTIVE)" nil nil)
-
-(autoload 'org-remember "org-remember" "\
-Call `remember'. If this is already a remember buffer, re-apply template.
-If there is an active region, make sure remember uses it as initial content
-of the remember buffer.
-
-When called interactively with a \\[universal-argument] prefix argument GOTO, don't remember
-anything, just go to the file/headline where the selected template usually
-stores its notes. With a double prefix argument \\[universal-argument] \\[universal-argument], go to the last
-note stored by remember.
-
-Lisp programs can set ORG-FORCE-REMEMBER-TEMPLATE-CHAR to a character
-associated with a template in `org-remember-templates'.
-
-\(fn &optional GOTO ORG-FORCE-REMEMBER-TEMPLATE-CHAR)" t nil)
-
-(autoload 'org-remember-handler "org-remember" "\
-Store stuff from remember.el into an org file.
-When the template has specified a file and a headline, the entry is filed
-there, or in the location defined by `org-default-notes-file' and
-`org-remember-default-headline'.
-\\<org-remember-mode-map>
-If no defaults have been defined, or if the current prefix argument
-is 1 (using C-1 \\[org-remember-finalize] to exit remember), an interactive
-process is used to select the target location.
-
-When the prefix is 0 (i.e. when remember is exited with C-0 \\[org-remember-finalize]),
-the entry is filed to the same location as the previous note.
-
-When the prefix is 2 (i.e. when remember is exited with C-2 \\[org-remember-finalize]),
-the entry is filed as a subentry of the entry where the clock is
-currently running.
-
-When \\[universal-argument] has been used as prefix argument, the
-note is stored and Emacs moves point to the new location of the
-note, so that editing can be continued there (similar to
-inserting \"%&\" into the template).
-
-Before storing the note, the function ensures that the text has an
-org-mode-style headline, i.e. a first line that starts with
-a \"*\". If not, a headline is constructed from the current date and
-some additional data.
-
-If the variable `org-adapt-indentation' is non-nil, the entire text is
-also indented so that it starts in the same column as the headline
-\(i.e. after the stars).
-
-See also the variable `org-reverse-note-order'.
-
-\(fn)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (orgtbl-to-orgtbl orgtbl-to-texinfo orgtbl-to-html
-;;;;;; orgtbl-to-latex orgtbl-to-csv orgtbl-to-tsv orgtbl-to-generic
-;;;;;; org-table-to-lisp orgtbl-mode org-table-toggle-formula-debugger
-;;;;;; org-table-toggle-coordinate-overlays org-table-edit-formulas
-;;;;;; org-table-iterate-buffer-tables org-table-recalculate-buffer-tables
-;;;;;; org-table-iterate org-table-recalculate org-table-eval-formula
-;;;;;; org-table-maybe-recalculate-line org-table-rotate-recalc-marks
-;;;;;; org-table-maybe-eval-formula org-table-get-stored-formulas
-;;;;;; org-table-sum org-table-edit-field org-table-wrap-region
-;;;;;; org-table-convert org-table-paste-rectangle org-table-copy-region
-;;;;;; org-table-cut-region org-table-sort-lines org-table-kill-row
-;;;;;; org-table-hline-and-move org-table-insert-hline org-table-insert-row
-;;;;;; org-table-move-row org-table-move-row-up org-table-move-row-down
-;;;;;; org-table-move-column org-table-move-column-left org-table-move-column-right
-;;;;;; org-table-delete-column org-table-insert-column org-table-goto-column
-;;;;;; org-table-current-dline org-table-field-info org-table-copy-down
-;;;;;; org-table-next-row org-table-previous-field org-table-next-field
-;;;;;; org-table-justify-field-maybe org-table-align org-table-export
-;;;;;; org-table-import org-table-convert-region org-table-create
-;;;;;; org-table-create-or-convert-from-region org-table-create-with-table\.el)
-;;;;;; "org-table" "org-table.el" "bb1b4edf5c1f6affbc4a4ac93e48e43f")
-;;; Generated autoloads from org-table.el
-
-(autoload 'org-table-create-with-table\.el "org-table" "\
-Use the table.el package to insert a new table.
-If there is already a table at point, convert between Org-mode tables
-and table.el tables.
-
-\(fn)" t nil)
-
-(autoload 'org-table-create-or-convert-from-region "org-table" "\
-Convert region to table, or create an empty table.
-If there is an active region, convert it to a table, using the function
-`org-table-convert-region'. See the documentation of that function
-to learn how the prefix argument is interpreted to determine the field
-separator.
-If there is no such region, create an empty table with `org-table-create'.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-table-create "org-table" "\
-Query for a size and insert a table skeleton.
-SIZE is a string Columns x Rows like for example \"3x2\".
-
-\(fn &optional SIZE)" t nil)
-
-(autoload 'org-table-convert-region "org-table" "\
-Convert region to a table.
-The region goes from BEG0 to END0, but these borders will be moved
-slightly, to make sure a beginning of line in the first line is included.
-
-SEPARATOR specifies the field separator in the lines. It can have the
-following values:
-
-'(4) Use the comma as a field separator
-'(16) Use a TAB as field separator
-integer When a number, use that many spaces as field separator
-nil When nil, the command tries to be smart and figure out the
- separator in the following way:
- - when each line contains a TAB, assume TAB-separated material
- - when each line contains a comma, assume CSV material
- - else, assume one or more SPACE characters as separator.
-
-\(fn BEG0 END0 &optional SEPARATOR)" t nil)
-
-(autoload 'org-table-import "org-table" "\
-Import FILE as a table.
-The file is assumed to be tab-separated. Such files can be produced by most
-spreadsheet and database applications. If no tabs (at least one per line)
-are found, lines will be split on whitespace into fields.
-
-\(fn FILE ARG)" t nil)
-
-(autoload 'org-table-export "org-table" "\
-Export table to a file, with configurable format.
-Such a file can be imported into usual spreadsheet programs.
-
-FILE can be the output file name. If not given, it will be taken
-from a TABLE_EXPORT_FILE property in the current entry or higher
-up in the hierarchy, or the user will be prompted for a file
-name. FORMAT can be an export format, of the same kind as it
-used when `orgtbl-mode' sends a table in a different format.
-
-The command suggests a format depending on TABLE_EXPORT_FORMAT,
-whether it is set locally or up in the hierarchy, then on the
-extension of the given file name, and finally on the variable
-`org-table-export-default-format'.
-
-\(fn &optional FILE FORMAT)" t nil)
-
-(autoload 'org-table-align "org-table" "\
-Align the table at point by aligning all vertical bars.
-
-\(fn)" t nil)
-
-(autoload 'org-table-justify-field-maybe "org-table" "\
-Justify the current field, text to left, number to right.
-Optional argument NEW may specify text to replace the current field content.
-
-\(fn &optional NEW)" nil nil)
-
-(autoload 'org-table-next-field "org-table" "\
-Go to the next field in the current table, creating new lines as needed.
-Before doing so, re-align the table if necessary.
-
-\(fn)" t nil)
-
-(autoload 'org-table-previous-field "org-table" "\
-Go to the previous field in the table.
-Before doing so, re-align the table if necessary.
-
-\(fn)" t nil)
-
-(autoload 'org-table-next-row "org-table" "\
-Go to the next row (same column) in the current table.
-Before doing so, re-align the table if necessary.
-
-\(fn)" t nil)
-
-(autoload 'org-table-copy-down "org-table" "\
-Copy a field down in the current column.
-If the field at the cursor is empty, copy into it the content of
-the nearest non-empty field above. With argument N, use the Nth
-non-empty field. If the current field is not empty, it is copied
-down to the next row, and the cursor is moved with it.
-Therefore, repeating this command causes the column to be filled
-row-by-row.
-If the variable `org-table-copy-increment' is non-nil and the
-field is an integer or a timestamp, it will be incremented while
-copying. In the case of a timestamp, increment by one day.
-
-\(fn N)" t nil)
-
-(autoload 'org-table-field-info "org-table" "\
-Show info about the current field, and highlight any reference at point.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-table-current-dline "org-table" "\
-Find out what table data line we are in.
-Only data lines count for this.
-
-\(fn)" t nil)
-
-(autoload 'org-table-goto-column "org-table" "\
-Move the cursor to the Nth column in the current table line.
-With optional argument ON-DELIM, stop with point before the left delimiter
-of the field.
-If there are less than N fields, just go to after the last delimiter.
-However, when FORCE is non-nil, create new columns if necessary.
-
-\(fn N &optional ON-DELIM FORCE)" t nil)
-
-(autoload 'org-table-insert-column "org-table" "\
-Insert a new column into the table.
-
-\(fn)" t nil)
-
-(autoload 'org-table-delete-column "org-table" "\
-Delete a column from the table.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-column-right "org-table" "\
-Move column to the right.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-column-left "org-table" "\
-Move column to the left.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-column "org-table" "\
-Move the current column to the right. With arg LEFT, move to the left.
-
-\(fn &optional LEFT)" t nil)
-
-(autoload 'org-table-move-row-down "org-table" "\
-Move table row down.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-row-up "org-table" "\
-Move table row up.
-
-\(fn)" t nil)
-
-(autoload 'org-table-move-row "org-table" "\
-Move the current table line down. With arg UP, move it up.
-
-\(fn &optional UP)" t nil)
-
-(autoload 'org-table-insert-row "org-table" "\
-Insert a new row above the current line into the table.
-With prefix ARG, insert below the current line.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-table-insert-hline "org-table" "\
-Insert a horizontal-line below the current line into the table.
-With prefix ABOVE, insert above the current line.
-
-\(fn &optional ABOVE)" t nil)
-
-(autoload 'org-table-hline-and-move "org-table" "\
-Insert a hline and move to the row below that line.
-
-\(fn &optional SAME-COLUMN)" t nil)
-
-(autoload 'org-table-kill-row "org-table" "\
-Delete the current row or horizontal line from the table.
-
-\(fn)" t nil)
-
-(autoload 'org-table-sort-lines "org-table" "\
-Sort table lines according to the column at point.
-
-The position of point indicates the column to be used for
-sorting, and the range of lines is the range between the nearest
-horizontal separator lines, or the entire table of no such lines
-exist. If point is before the first column, you will be prompted
-for the sorting column. If there is an active region, the mark
-specifies the first line and the sorting column, while point
-should be in the last line to be included into the sorting.
-
-The command then prompts for the sorting type which can be
-alphabetically, numerically, or by time (as given in a time stamp
-in the field). Sorting in reverse order is also possible.
-
-With prefix argument WITH-CASE, alphabetic sorting will be case-sensitive.
-
-If SORTING-TYPE is specified when this function is called from a Lisp
-program, no prompting will take place. SORTING-TYPE must be a character,
-any of (?a ?A ?n ?N ?t ?T) where the capital letter indicate that sorting
-should be done in reverse order.
-
-\(fn WITH-CASE &optional SORTING-TYPE)" t nil)
-
-(autoload 'org-table-cut-region "org-table" "\
-Copy region in table to the clipboard and blank all relevant fields.
-If there is no active region, use just the field at point.
-
-\(fn BEG END)" t nil)
-
-(autoload 'org-table-copy-region "org-table" "\
-Copy rectangular region in table to clipboard.
-A special clipboard is used which can only be accessed
-with `org-table-paste-rectangle'.
-
-\(fn BEG END &optional CUT)" t nil)
-
-(autoload 'org-table-paste-rectangle "org-table" "\
-Paste a rectangular region into a table.
-The upper right corner ends up in the current field. All involved fields
-will be overwritten. If the rectangle does not fit into the present table,
-the table is enlarged as needed. The process ignores horizontal separator
-lines.
-
-\(fn)" t nil)
-
-(autoload 'org-table-convert "org-table" "\
-Convert from `org-mode' table to table.el and back.
-Obviously, this only works within limits. When an Org-mode table is
-converted to table.el, all horizontal separator lines get lost, because
-table.el uses these as cell boundaries and has no notion of horizontal lines.
-A table.el table can be converted to an Org-mode table only if it does not
-do row or column spanning. Multiline cells will become multiple cells.
-Beware, Org-mode does not test if the table can be successfully converted - it
-blindly applies a recipe that works for simple tables.
-
-\(fn)" t nil)
-
-(autoload 'org-table-wrap-region "org-table" "\
-Wrap several fields in a column like a paragraph.
-This is useful if you'd like to spread the contents of a field over several
-lines, in order to keep the table compact.
-
-If there is an active region, and both point and mark are in the same column,
-the text in the column is wrapped to minimum width for the given number of
-lines. Generally, this makes the table more compact. A prefix ARG may be
-used to change the number of desired lines. For example, `C-2 \\[org-table-wrap]'
-formats the selected text to two lines. If the region was longer than two
-lines, the remaining lines remain empty. A negative prefix argument reduces
-the current number of lines by that amount. The wrapped text is pasted back
-into the table. If you formatted it to more lines than it was before, fields
-further down in the table get overwritten - so you might need to make space in
-the table first.
-
-If there is no region, the current field is split at the cursor position and
-the text fragment to the right of the cursor is prepended to the field one
-line down.
-
-If there is no region, but you specify a prefix ARG, the current field gets
-blank, and the content is appended to the field above.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-table-edit-field "org-table" "\
-Edit table field in a different window.
-This is mainly useful for fields that contain hidden parts.
-When called with a \\[universal-argument] prefix, just make the full field visible so that
-it can be edited in place.
-
-\(fn ARG)" t nil)
-
-(autoload 'org-table-sum "org-table" "\
-Sum numbers in region of current table column.
-The result will be displayed in the echo area, and will be available
-as kill to be inserted with \\[yank].
-
-If there is an active region, it is interpreted as a rectangle and all
-numbers in that rectangle will be summed. If there is no active
-region and point is located in a table column, sum all numbers in that
-column.
-
-If at least one number looks like a time HH:MM or HH:MM:SS, all other
-numbers are assumed to be times as well (in decimal hours) and the
-numbers are added as such.
-
-If NLAST is a number, only the NLAST fields will actually be summed.
-
-\(fn &optional BEG END NLAST)" t nil)
-
-(autoload 'org-table-get-stored-formulas "org-table" "\
-Return an alist with the stored formulas directly after current table.
-
-\(fn &optional NOERROR)" t nil)
-
-(autoload 'org-table-maybe-eval-formula "org-table" "\
-Check if the current field starts with \"=\" or \":=\".
-If yes, store the formula and apply it.
-
-\(fn)" nil nil)
-
-(autoload 'org-table-rotate-recalc-marks "org-table" "\
-Rotate the recalculation mark in the first column.
-If in any row, the first field is not consistent with a mark,
-insert a new column for the markers.
-When there is an active region, change all the lines in the region,
-after prompting for the marking character.
-After each change, a message will be displayed indicating the meaning
-of the new mark.
-
-\(fn &optional NEWCHAR)" t nil)
-
-(autoload 'org-table-maybe-recalculate-line "org-table" "\
-Recompute the current line if marked for it, and if we haven't just done it.
-
-\(fn)" t nil)
-
-(autoload 'org-table-eval-formula "org-table" "\
-Replace the table field value at the cursor by the result of a calculation.
-
-This function makes use of Dave Gillespie's Calc package, in my view the
-most exciting program ever written for GNU Emacs. So you need to have Calc
-installed in order to use this function.
-
-In a table, this command replaces the value in the current field with the
-result of a formula. It also installs the formula as the \"current\" column
-formula, by storing it in a special line below the table. When called
-with a `C-u' prefix, the current field must be a named field, and the
-formula is installed as valid in only this specific field.
-
-When called with two `C-u' prefixes, insert the active equation
-for the field back into the current field, so that it can be
-edited there. This is useful in order to use \\[org-table-show-reference]
-to check the referenced fields.
-
-When called, the command first prompts for a formula, which is read in
-the minibuffer. Previously entered formulas are available through the
-history list, and the last used formula is offered as a default.
-These stored formulas are adapted correctly when moving, inserting, or
-deleting columns with the corresponding commands.
-
-The formula can be any algebraic expression understood by the Calc package.
-For details, see the Org-mode manual.
-
-This function can also be called from Lisp programs and offers
-additional arguments: EQUATION can be the formula to apply. If this
-argument is given, the user will not be prompted. SUPPRESS-ALIGN is
-used to speed-up recursive calls by by-passing unnecessary aligns.
-SUPPRESS-CONST suppresses the interpretation of constants in the
-formula, assuming that this has been done already outside the function.
-SUPPRESS-STORE means the formula should not be stored, either because
-it is already stored, or because it is a modified equation that should
-not overwrite the stored one.
-
-\(fn &optional ARG EQUATION SUPPRESS-ALIGN SUPPRESS-CONST SUPPRESS-STORE SUPPRESS-ANALYSIS)" t nil)
-
-(autoload 'org-table-recalculate "org-table" "\
-Recalculate the current table line by applying all stored formulas.
-With prefix arg ALL, do this for all lines in the table.
-With the prefix argument ALL is `(16)' (a double \\[universal-prefix] \\[universal-prefix] prefix), or if
-it is the symbol `iterate', recompute the table until it no longer changes.
-If NOALIGN is not nil, do not re-align the table after the computations
-are done. This is typically used internally to save time, if it is
-known that the table will be realigned a little later anyway.
-
-\(fn &optional ALL NOALIGN)" t nil)
-
-(autoload 'org-table-iterate "org-table" "\
-Recalculate the table until it does not change anymore.
-The maximum number of iterations is 10, but you can choose a different value
-with the prefix ARG.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-table-recalculate-buffer-tables "org-table" "\
-Recalculate all tables in the current buffer.
-
-\(fn)" t nil)
-
-(autoload 'org-table-iterate-buffer-tables "org-table" "\
-Iterate all tables in the buffer, to converge inter-table dependencies.
-
-\(fn)" t nil)
-
-(autoload 'org-table-edit-formulas "org-table" "\
-Edit the formulas of the current table in a separate buffer.
-
-\(fn)" t nil)
-
-(autoload 'org-table-toggle-coordinate-overlays "org-table" "\
-Toggle the display of Row/Column numbers in tables.
-
-\(fn)" t nil)
-
-(autoload 'org-table-toggle-formula-debugger "org-table" "\
-Toggle the formula debugger in tables.
-
-\(fn)" t nil)
-
-(autoload 'orgtbl-mode "org-table" "\
-The `org-mode' table editor as a minor mode for use in other modes.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-table-to-lisp "org-table" "\
-Convert the table at point to a Lisp structure.
-The structure will be a list. Each item is either the symbol `hline'
-for a horizontal separator line, or a list of field values as strings.
-The table is taken from the parameter TXT, or from the buffer at point.
-
-\(fn &optional TXT)" nil nil)
-
-(autoload 'orgtbl-to-generic "org-table" "\
-Convert the orgtbl-mode TABLE to some other format.
-This generic routine can be used for many standard cases.
-TABLE is a list, each entry either the symbol `hline' for a horizontal
-separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the conversion.
-For the generic converter, some parameters are obligatory: you need to
-specify either :lfmt, or all of (:lstart :lend :sep).
-
-Valid parameters are:
-
-:splice When set to t, return only table body lines, don't wrap
- them into :tstart and :tend. Default is nil. When :splice
- is non-nil, this also means that the exporter should not look
- for and interpret header and footer sections.
-
-:hline String to be inserted on horizontal separation lines.
- May be nil to ignore hlines.
-
-:sep Separator between two fields
-:remove-nil-lines Do not include lines that evaluate to nil.
-
-Each in the following group may be either a string or a function
-of no arguments returning a string:
-
-:tstart String to start the table. Ignored when :splice is t.
-:tend String to end the table. Ignored when :splice is t.
-:lstart String to start a new table line.
-:llstart String to start the last table line, defaults to :lstart.
-:lend String to end a table line
-:llend String to end the last table line, defaults to :lend.
-
-Each in the following group may be a string, a function of one
-argument (the field or line) returning a string, or a plist
-mapping columns to either of the above:
-
-:lfmt Format for entire line, with enough %s to capture all fields.
- If this is present, :lstart, :lend, and :sep are ignored.
-:llfmt Format for the entire last line, defaults to :lfmt.
-:fmt A format to be used to wrap the field, should contain
- %s for the original field value. For example, to wrap
- everything in dollars, you could use :fmt \"$%s$\".
- This may also be a property list with column numbers and
- formats. For example :fmt (2 \"$%s$\" 4 \"%s%%\")
-:hlstart :hllstart :hlend :hllend :hlsep :hlfmt :hllfmt :hfmt
- Same as above, specific for the header lines in the table.
- All lines before the first hline are treated as header.
- If any of these is not present, the data line value is used.
-
-This may be either a string or a function of two arguments:
-
-:efmt Use this format to print numbers with exponentials.
- The format should have %s twice for inserting mantissa
- and exponent, for example \"%s\\\\times10^{%s}\". This
- may also be a property list with column numbers and
- formats. :fmt will still be applied after :efmt.
-
-In addition to this, the parameters :skip and :skipcols are always handled
-directly by `orgtbl-send-table'. See manual.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-tsv "org-table" "\
-Convert the orgtbl-mode table to TAB separated material.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-csv "org-table" "\
-Convert the orgtbl-mode table to CSV material.
-This does take care of the proper quoting of fields with comma or quotes.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-latex "org-table" "\
-Convert the orgtbl-mode TABLE to LaTeX.
-TABLE is a list, each entry either the symbol `hline' for a horizontal
-separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the conversion.
-Supports all parameters from `orgtbl-to-generic'. Most important for
-LaTeX are:
-
-:splice When set to t, return only table body lines, don't wrap
- them into a tabular environment. Default is nil.
-
-:fmt A format to be used to wrap the field, should contain %s for the
- original field value. For example, to wrap everything in dollars,
- use :fmt \"$%s$\". This may also be a property list with column
- numbers and formats. For example :fmt (2 \"$%s$\" 4 \"%s%%\")
- The format may also be a function that formats its one argument.
-
-:efmt Format for transforming numbers with exponentials. The format
- should have %s twice for inserting mantissa and exponent, for
- example \"%s\\\\times10^{%s}\". LaTeX default is \"%s\\\\,(%s)\".
- This may also be a property list with column numbers and formats.
- The format may also be a function that formats its two arguments.
-
-:llend If you find too much space below the last line of a table,
- pass a value of \"\" for :llend to suppress the final \\\\.
-
-The general parameters :skip and :skipcols have already been applied when
-this function is called.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-html "org-table" "\
-Convert the orgtbl-mode TABLE to HTML.
-TABLE is a list, each entry either the symbol `hline' for a horizontal
-separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the conversion.
-Currently this function recognizes the following parameters:
-
-:splice When set to t, return only table body lines, don't wrap
- them into a <table> environment. Default is nil.
-
-The general parameters :skip and :skipcols have already been applied when
-this function is called. The function does *not* use `orgtbl-to-generic',
-so you cannot specify parameters for it.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-texinfo "org-table" "\
-Convert the orgtbl-mode TABLE to TeXInfo.
-TABLE is a list, each entry either the symbol `hline' for a horizontal
-separator line, or a list of fields for that line.
-PARAMS is a property list of parameters that can influence the conversion.
-Supports all parameters from `orgtbl-to-generic'. Most important for
-TeXInfo are:
-
-:splice nil/t When set to t, return only table body lines, don't wrap
- them into a multitable environment. Default is nil.
-
-:fmt fmt A format to be used to wrap the field, should contain
- %s for the original field value. For example, to wrap
- everything in @kbd{}, you could use :fmt \"@kbd{%s}\".
- This may also be a property list with column numbers and
- formats. For example :fmt (2 \"@kbd{%s}\" 4 \"@code{%s}\").
- Each format also may be a function that formats its one
- argument.
-
-:cf \"f1 f2..\" The column fractions for the table. By default these
- are computed automatically from the width of the columns
- under org-mode.
-
-The general parameters :skip and :skipcols have already been applied when
-this function is called.
-
-\(fn TABLE PARAMS)" nil nil)
-
-(autoload 'orgtbl-to-orgtbl "org-table" "\
-Convert the orgtbl-mode TABLE into another orgtbl-mode table.
-Useful when slicing one table into many. The :hline, :sep,
-:lstart, and :lend provide orgtbl framing. The default nil :tstart
-and :tend suppress strings without splicing; they can be set to
-provide ORGTBL directives for the generated table.
-
-\(fn TABLE PARAMS)" nil nil)
-
-;;;***
-\f
-;;;### (autoloads (org-export-as-taskjuggler-and-open org-export-as-taskjuggler)
-;;;;;; "org-taskjuggler" "org-taskjuggler.el" "32757b981673218b34878b9a05e46c8a")
-;;; Generated autoloads from org-taskjuggler.el
-
-(autoload 'org-export-as-taskjuggler "org-taskjuggler" "\
-Export parts of the current buffer as a TaskJuggler file.
-The exporter looks for a tree with tag, property or todo that
-matches `org-export-taskjuggler-project-tag' and takes this as
-the tasks for this project. The first node of this tree defines
-the project properties such as project name and project period.
-If there is a tree with tag, property or todo that matches
-`org-export-taskjuggler-resource-tag' this three is taken as
-resources for the project. If no resources are specified, a
-default resource is created and allocated to the project. Also
-the taskjuggler project will be created with default reports as
-defined in `org-export-taskjuggler-default-reports'.
-
-\(fn)" t nil)
-
-(autoload 'org-export-as-taskjuggler-and-open "org-taskjuggler" "\
-Export the current buffer as a TaskJuggler file and open it
-with the TaskJuggler GUI.
-
-\(fn)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-timer-set-timer org-timer-item org-timer-change-times-in-region
-;;;;;; org-timer org-timer-start) "org-timer" "org-timer.el" "24d58bf234f548224d83186703c58ff0")
-;;; Generated autoloads from org-timer.el
-
-(autoload 'org-timer-start "org-timer" "\
-Set the starting time for the relative timer to now.
-When called with prefix argument OFFSET, prompt the user for an offset time,
-with the default taken from a timer stamp at point, if any.
-If OFFSET is a string or an integer, it is directly taken to be the offset
-without user interaction.
-When called with a double prefix arg, all timer strings in the active
-region will be shifted by a specific amount. You will be prompted for
-the amount, with the default to make the first timer string in
-the region 0:00:00.
-
-\(fn &optional OFFSET)" t nil)
-
-(autoload 'org-timer "org-timer" "\
-Insert a H:MM:SS string from the timer into the buffer.
-The first time this command is used, the timer is started. When used with
-a \\[universal-argument] prefix, force restarting the timer.
-When used with a double prefix argument \\[universal-argument], change all the timer string
-in the region by a fixed amount. This can be used to recalibrate a timer
-that was not started at the correct moment.
-
-If NO-INSERT-P is non-nil, return the string instead of inserting
-it in the buffer.
-
-\(fn &optional RESTART NO-INSERT-P)" t nil)
-
-(autoload 'org-timer-change-times-in-region "org-timer" "\
-Change all h:mm:ss time in region by a DELTA.
-
-\(fn BEG END DELTA)" t nil)
-
-(autoload 'org-timer-item "org-timer" "\
-Insert a description-type item with the current timer value.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'org-timer-set-timer "org-timer" "\
-Prompt for a duration and set a timer.
-
-If `org-timer-default-timer' is not zero, suggest this value as
-the default duration for the timer. If a timer is already set,
-prompt the user if she wants to replace it.
-
-Called with a numeric prefix argument, use this numeric value as
-the duration of the timer.
-
-Called with a `C-u' prefix arguments, use `org-timer-default-timer'
-without prompting the user for a duration.
-
-With two `C-u' prefix arguments, use `org-timer-default-timer'
-without prompting the user for a duration and automatically
-replace any running timer.
-
-\(fn &optional OPT)" t nil)
-
-;;;***
-\f
-;;;### (autoloads (org-export-as-xoxo) "org-xoxo" "org-xoxo.el" "3ff04d93032e66aca1e0c6a021c28eca")
-;;; Generated autoloads from org-xoxo.el
-
-(autoload 'org-export-as-xoxo "org-xoxo" "\
-Export the org buffer as XOXO.
-The XOXO buffer is named *xoxo-<source buffer name>*
-
-\(fn &optional BUFFER)" t nil)
-
-;;;***
-\f
-(provide 'org-loaddefs)
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; org-loaddefs.el ends here
+++ /dev/null
-;; In load-path, after this directory should come
-;; certain of its subdirectories. Here we specify them.
-(normal-top-level-add-to-load-path '("vc" "url" "textmodes" "progmodes" "play" "org" "nxml" "net" "mh-e" "mail" "language" "international" "gnus" "eshell" "erc" "emulation" "emacs-lisp" "cedet" "calendar" "calc" "obsolete"))
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; End:
--- /dev/null
+config.log
+stamp_BLD
+
+oo/
+oo-spd/
BuildRequires: pkgconfig(freetype2)
BuildRequires: pkgconfig(libxml-2.0)
BuildRequires: pkgconfig(xft)
-BuildRequires: pkgconfig(gtk+-3.0)
+#BuildRequires: pkgconfig(gtk+-3.0)
BuildRequires: pkgconfig(xpm)
BuildRequires: fdupes
cp %{SOURCE1001} .
%build
-%configure
+./autogen.sh
+%configure --with-x-toolkit=no \
+ --with-png=no
make
%install
--- /dev/null
+buildobj.h
+config.h
+epaths.h
+stamp_BLD
+stamp-h.in
+
+oo/
+oo-spd/
--- /dev/null
+2013-03-11 Glenn Morris <rgm@gnu.org>
+
+ * Version 24.3 released.
+
+2013-02-21 Fabián Ezequiel Gallina <fgallina@cuca>
+
+ * automated/python-tests.el
+ (python-tests-with-temp-buffer): Doc fix.
+ (python-tests-with-temp-file): New macro.
+ (python-tests-shell-interpreter): New var.
+ (python-shell-get-process-name-1)
+ (python-shell-internal-get-process-name-1)
+ (python-shell-parse-command-1)
+ (python-shell-calculate-process-environment-1)
+ (python-shell-calculate-process-environment-2)
+ (python-shell-calculate-process-environment-3)
+ (python-shell-calculate-exec-path-1)
+ (python-shell-calculate-exec-path-2)
+ (python-shell-make-comint-1)
+ (python-shell-make-comint-2)
+ (python-shell-get-process-1)
+ (python-shell-get-or-create-process-1)
+ (python-shell-internal-get-or-create-process-1): New tests.
+
+2013-02-20 Fabián Ezequiel Gallina <fgallina@cuca>
+
+ * automated/python-tests.el: New file.
+
+2012-12-26 Dmitry Gutov <dgutov@yandex.ru>
+
+ * automated/ruby-mode-tests.el
+ (ruby-indent-after-block-in-continued-expression): New test.
+
+2012-10-14 Eli Zaretskii <eliz@gnu.org>
+
+ * automated/compile-tests.el (compile-tests--test-regexps-data):
+ Add new data for msft's new format.
+
+2012-09-08 Dmitry Gutov <dgutov@yandex.ru>
+
+ * automated/ruby-mode-tests.el:
+ (ruby-toggle-block-to-multiline): New test.
+ (ruby-should-indent-buffer, ruby-toggle-block-to-do-end)
+ (ruby-toggle-block-to-brace): Use buffer-string.
+
+2012-09-07 Dmitry Gutov <dgutov@yandex.ru>
+
+ * automated/ruby-mode-tests.el: New tests (Bug#11613).
+
+2012-08-28 Chong Yidong <cyd@gnu.org>
+
+ * automated/files.el: Test every combination of values for
+ enable-local-variables and enable-local-eval.
+
+2012-08-19 Chong Yidong <cyd@gnu.org>
+
+ * redisplay-testsuite.el (test-redisplay): Use switch-to-buffer.
+
+2012-08-18 Chong Yidong <cyd@gnu.org>
+
+ * redisplay-testsuite.el (test-redisplay-4): New test (Bug#3874).
+
+2012-08-14 Dmitry Gutov <dgutov@yandex.ru>
+
+ * indent/ruby.rb: Rearrange examples, add new ones.
+
+2012-08-12 Dmitry Gutov <dgutov@yandex.ru>
+
+ * automated/ruby-mode-tests.el (ruby-move-to-block-stops-at-opening)
+ (ruby-toggle-block-to-do-end, ruby-toggle-block-to-brace): New test.
+
+2012-08-11 Glenn Morris <rgm@gnu.org>
+
+ * automated/files.el: New file.
+
+ * automated/Makefile.in (all): Fix typo.
+
+2012-08-10 Dmitry Gutov <dgutov@yandex.ru>
+
+ * automated/ruby-mode-tests.el (ruby-should-indent):
+ Add docstring, check (current-indentation) instead of (current-column).
+ (ruby-should-indent-buffer): New function.
+ Add tests for `ruby-deep-indent-paren' behavior.
+ Port all tests from test/misc/test_ruby_mode.rb in Ruby repo.
+
+2012-08-10 Nobuyoshi Nakada <nobu@ruby-lang.org>
+
+ Original tests in test_ruby_mode.rb in upstream (author).
+
+2012-08-09 Dmitry Gutov <dgutov@yandex.ru>
+
+ * automated/ruby-mode-tests.el (ruby-should-indent)
+ (ruby-assert-state): New functions.
+ Add new tests.
+
+2012-07-29 David Engster <deng@randomsample.de>
+
+ * automated/xml-parse-tests.el (xml-parse-tests--qnames):
+ New variable to hold test data for name expansion.
+ (xml-parse-tests): Test the two different types of name expansion.
+
+2012-07-29 Juri Linkov <juri@jurta.org>
+
+ * automated/occur-tests.el (occur-test-case): Use predefined
+ buffer name " *test-occur*" instead of a random buffer name.
+
+2012-07-20 Dmitry Gutov <dgutov@yandex.ru>
+
+ * automated/ruby-mode-tests.el: New file with one test.
+
+2012-07-17 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/shell.sh: Add test case for ${#VAR}.
+
+ * indent/latex-mode.tex: New file.
+
+2012-07-11 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * eshell.el: Use cl-lib.
+
+2012-07-03 Chong Yidong <cyd@gnu.org>
+
+ * automated/xml-parse-tests.el (xml-parse-tests--bad-data): New.
+
+2012-07-02 Chong Yidong <cyd@gnu.org>
+
+ * automated/xml-parse-tests.el (xml-parse-tests--data):
+ More testcases.
+
+2012-07-01 Chong Yidong <cyd@gnu.org>
+
+ * automated/xml-parse-tests.el: New file.
+
+2012-06-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * automated/ert-x-tests.el (ert-test-run-tests-interactively-2):
+ Use cl-flet.
+
+2012-06-08 Ulf Jasper <ulf.jasper@web.de>
+
+ * automated/icalendar-tests.el (icalendar--parse-vtimezone):
+ Test escaped commas in TZID (Bug#11473).
+ (icalendar-import-with-timezone): New.
+ (icalendar-real-world): Add new testcase as given in the bugreport
+ of Bug#11473.
+
+2012-05-29 Ulf Jasper <ulf.jasper@web.de>
+
+ * automated/icalendar-tests.el (icalendar-tests--test-import):
+ Include UID in import tests (Bug#11525).
+ (icalendar-import-non-recurring, icalendar-import-rrule)
+ (icalendar-import-duration, icalendar-import-bug-6766): Adjust to
+ UID-import change.
+ (icalendar-import-with-uid): New.
+ (icalendar-tests--test-cycle, icalendar-tests--do-test-cycle):
+ Include UID in cycle tests.
+ (icalendar-cycle, icalendar-real-world): UID-import change.
+
+2012-05-21 Glenn Morris <rgm@gnu.org>
+
+ * automated/Makefile.in (setwins): Scrap superfluous subshell.
+
+2012-05-15 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * automated/url-util-tests.el: New file to test
+ lisp/url/url-util.el. Only `url-build-query-string' and
+ `url-parse-query-string' are tested right now (Bug#8706).
+
+2012-04-28 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/shell.sh:
+ * indent/shell.rc: Ad some test cases.
+
+2012-04-24 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/ruby.rb: New file, to test new syntax-propertize code.
+
+2012-04-11 Glenn Morris <rgm@gnu.org>
+
+ * automated/vc-bzr.el (vc-bzr-test-faulty-bzr-autoloads): New test.
+
+2012-02-13 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * automated/url-future-tests.el (url-future-tests): Move from
+ lisp/url/url-future.el and rename.
+
+2012-01-29 Ulf Jasper <ulf.jasper@web.de>
+
+ * automated/icalendar-tests.el (icalendar-import-non-recurring):
+ Fix broken test, caused by missing trailing blank.
+
+2011-12-03 Chong Yidong <cyd@gnu.org>
+
+ * automated/compile-tests.el (compile-tests--test-regexps-data):
+ Increase column numbers by one to reflect change in how
+ compilation-message is recorded (Bug#10172).
+
+2011-11-22 Glenn Morris <rgm@gnu.org>
+
+ * rmailmm.el: New file, split from lisp/mail/rmailmm.el.
+
+2011-11-20 Juanma Barranquero <lekktu@gmail.com>
+
+ * cedet/semantic-utest-c.el (semantic-utest-c-comparisons): Fix typo.
+
+2011-11-16 Juanma Barranquero <lekktu@gmail.com>
+
+ * automated/icalendar-tests.el (icalendar-tests--get-ical-event)
+ (icalendar-tests--test-export, icalendar-tests--do-test-export):
+ * cedet/srecode-tests.el (srecode-field-utest-impl): Fix typo.
+
+2011-10-30 Ulf Jasper <ulf.jasper@web.de>
+
+ * automated/newsticker-tests.el
+ (newsticker--group-manage-orphan-feeds): Remove fsetting of
+ newsticker--treeview-tree-update.
+
+2011-10-29 Ulf Jasper <ulf.jasper@web.de>
+
+ * automated/newsticker-tests.el
+ (newsticker--group-manage-orphan-feeds): Use fset instead of flet.
+
+ * trunk/test/automated/newsticker-tests.el
+ (newsticker--group-manage-orphan-feeds): Prevent updating
+ newsticker treeview. Fixed bug#9763.
+
+2011-10-20 Glenn Morris <rgm@gnu.org>
+
+ * automated/vc-bzr.el (vc-bzr-test-bug9781): New test.
+
+ * automated/vc-bzr.el: New file.
+
+2011-10-15 Glenn Morris <rgm@gnu.org>
+
+ * automated/f90.el: New file.
+
+2011-09-27 Ulf Jasper <ulf.jasper@web.de>
+
+ * automated/newsticker-tests.el: Move newsticker-testsuite.el
+ to automated/newsticker-tests.el. Convert to ERT.
+
+2011-07-26 Ulf Jasper <ulf.jasper@web.de>
+
+ * automated/icalendar-tests.el (icalendar-tests--compare-strings):
+ Removed, simply use string=.
+ (icalendar--diarytime-to-isotime)
+ (icalendar--datetime-to-diary-date)
+ (icalendar--datestring-to-isodate)
+ (icalendar--format-ical-event)
+ (icalendar--parse-summary-and-rest)
+ (icalendar-tests--do-test-import)
+ (icalendar-tests--do-test-cycle): Change argument order of
+ string= to EXPECTED ACTUAL.
+ (icalendar--import-format-sample)
+ (icalendar--format-ical-event)
+ (icalendar-import-non-recurring)
+ (icalendar-import-rrule)
+ (icalendar-import-duration)
+ (icalendar-import-bug-6766)
+ (icalendar-real-world): Adjust to string= instead of
+ icalendar-tests--compare-strings.
+ (icalendar-import-multiple-vcalendars): New.
+
+2011-05-11 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * automated/gnus-tests.el: Add wrapper for Gnus tests.
+ Require CL.
+
+2011-05-09 Juri Linkov <juri@jurta.org>
+
+ * automated/occur-tests.el: Move from test/occur-testsuite.el.
+ Convert to ERT.
+
+2011-05-09 Chong Yidong <cyd@stupidchicken.com>
+
+ * automated/compile-tests.el: New file.
+
+2011-05-08 Chong Yidong <cyd@stupidchicken.com>
+
+ * automated/font-parse-tests.el: Don't byte-compile.
+
+ * automated/comint-testsuite.el: Move from test/. Convert to ERT.
+
+2011-03-10 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * automated/lexbind-tests.el: New file.
+
+2011-03-07 Chong Yidong <cyd@stupidchicken.com>
+
+ * Version 23.3 released.
+
+2011-03-05 Glenn Morris <rgm@gnu.org>
+
+ * eshell.el: Move here from lisp/eshell/esh-test.el.
+
+2011-03-03 Christian Ohler <ohler@gnu.org>
+
+ * automated/ert-tests.el (ert-test-explain-not-equal-keymaps):
+ New test.
+
+2011-02-20 Ulf Jasper <ulf.jasper@web.de>
+
+ * automated/icalendar-tests.el: Move from icalendar-testsuite.el;
+ convert to ERT format.
+
+2011-02-14 Chong Yidong <cyd@stupidchicken.com>
+
+ * automated/bytecomp-tests.el: Move from bytecomp-testsuite.el;
+ convert to ERT format.
+
+2011-02-09 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/shell.sh:
+ * indent/shell.rc: New files.
+
+2011-01-27 Chong Yidong <cyd@stupidchicken.com>
+
+ * automated/font-parse-tests.el: Move from
+ font-parse-testsuite.el.
+
+2011-01-26 Chong Yidong <cyd@stupidchicken.com>
+
+ * font-parse-testsuite.el (test-font-parse-data): New file.
+
+2011-01-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/prolog.prolog: Add tokenizing tests.
+
+2011-01-13 Christian Ohler <ohler@gnu.org>
+
+ * automated: New directory for automated tests.
+
+ * automated/ert-tests.el, automated/ert-x-tests.el: New files.
+
+ * automated/Makefile.in: New file.
+
+2010-11-11 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/modula2.mod: New file.
+
+2010-10-27 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/octave.m: Add a test to ensure indentation is local.
+
+2010-10-23 Glenn Morris <rgm@gnu.org>
+
+ * comint-testsuite.el
+ (comint-testsuite--test-comint-password-prompt-regexp):
+ Add "Please enter the password". (Bug#7224)
+
+2010-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/prolog.prolog: Use normal spacing around !.
+
+2010-09-18 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/octave.m: Remove one more `fixindent'. Use `end'.
+
+2010-09-10 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/octave.m: Remove some `fixindent' not needed any more.
+
+2010-08-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent/octave.m: New file.
+
+2010-08-08 Ulf Jasper <ulf.jasper@web.de>
+
+ * icalendar-testsuite.el (icalendar-testsuite-run): Add internal tests.
+ (icalendar-testsuite--trim, icalendar-testsuite--compare-strings)
+ (icalendar-testsuite--run-internal-tests): New.
+ (icalendar-testsuite--test-convert-ordinary-to-ical)
+ (icalendar-testsuite--test-convert-block-to-ical)
+ (icalendar-testsuite--test-convert-anniversary-to-ical)
+ (icalendar-testsuite--test-parse-vtimezone)
+ (icalendar-testsuite--do-test-export): Code formatting.
+ (icalendar-testsuite--test-parse-vtimezone): Doc fix.
+ (icalendar-testsuite--do-test-import)
+ (icalendar-testsuite--do-test-cycle):
+ Use icalendar-testsuite--compare-strings
+ (icalendar-testsuite--run-import-tests): Comment added.
+ (icalendar-testsuite--run-import-tests)
+ (icalendar-testsuite--run-real-world-tests): Fix expected results.
+
+2010-06-25 Chong Yidong <cyd@stupidchicken.com>
+
+ * redisplay-testsuite.el (test-redisplay-3): New test.
+
+2010-06-11 Chong Yidong <cyd@stupidchicken.com>
+
+ * comint-testsuite.el: New file.
+
+2010-06-02 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * indent: New dir.
+
+2010-05-07 Chong Yidong <cyd@stupidchicken.com>
+
+ * Version 23.2 released.
+
+2010-03-29 Chong Yidong <cyd@stupidchicken.com>
+
+ * cedet/semantic-ia-utest.el
+ (semantic-symref-test-count-hits-in-tag): Add function, from
+ semantic-test.el.
+
+ * cedet/tests/test.cpp:
+ * cedet/tests/test.py:
+ * cedet/tests/teststruct.cpp:
+ * cedet/tests/testtemplates.cpp:
+ * cedet/tests/testusing.cpp:
+ * cedet/tests/scopetest.cpp:
+ * cedet/tests/scopetest.java: Files deleted.
+
+ * cedet/tests/test.make:
+ * cedet/tests/test.c:
+ * cedet/tests/testjavacomp.java:
+ * cedet/tests/testspp.c:
+ * cedet/tests/testsppreplace.c:
+ * cedet/tests/testsppreplaced.c:
+ * cedet/tests/testsubclass.cpp:
+ * cedet/tests/testsubclass.hh:
+ * cedet/tests/testtypedefs.cpp:
+ * cedet/tests/testvarnames.c:
+ * cedet/tests/test.el:
+ * cedet/tests/testdoublens.cpp:
+ * cedet/tests/testdoublens.hpp: Add copyright header.
+
+ * cedet/semantic-tests.el (semanticdb-test-gnu-global):
+ Remove reference to deleted files.
+
+2010-03-30 Juri Linkov <juri@jurta.org>
+
+ * occur-testsuite.el (occur-tests): Add tests for context lines.
+
+2010-03-23 Juri Linkov <juri@jurta.org>
+
+ * occur-testsuite.el: New file.
+
+2010-03-10 Chong Yidong <cyd@stupidchicken.com>
+
+ * Branch for 23.2.
+
+2010-02-19 Ulf Jasper <ulf.jasper@web.de>
+
+ * icalendar-testsuite.el
+ (icalendar-testsuite--run-function-tests): Add new tests.
+ (icalendar-testsuite--test-diarytime-to-isotime): Add another
+ testcase.
+ (icalendar-testsuite--test-convert-ordinary-to-ical): New.
+ (icalendar-testsuite--test-convert-weekly-to-ical): New.
+ (icalendar-testsuite--test-convert-yearly-to-ical): New.
+ (icalendar-testsuite--test-convert-block-to-ical): New.
+ (icalendar-testsuite--test-convert-cyclic-to-ical): New.
+ (icalendar-testsuite--test-convert-anniversary-to-ical): New.
+
+2010-01-18 Juanma Barranquero <lekktu@gmail.com>
+
+ * cedet/semantic-tests.el (semanticdb-test-gnu-global)
+ (semantic-lex-test-full-depth, semantic-symref-test-count-hits-in-tag):
+ Fix typos in docstrings and error messages.
+ (semanticdb-ebrowse-run-tests): Fix typos in error messages.
+
+2010-01-14 Juanma Barranquero <lekktu@gmail.com>
+
+ * cedet/cedet-utests.el (cedet-utest-log-shutdown, pulse-test):
+ * cedet/semantic-ia-utest.el (semantic-ia-utest-error-log-list)
+ (semantic-ia-utest-buffer-refs): Fix typos in docstrings.
+
+2009-12-18 Ulf Jasper <ulf.jasper@web.de>
+
+ * icalendar-testsuite.el
+ (icalendar-testsuite--run-function-tests):
+ Add icalendar-testsuite--test-parse-vtimezone.
+ (icalendar-testsuite--test-parse-vtimezone): New.
+ (icalendar-testsuite--do-test-cycle): Doc changes.
+ (icalendar-testsuite--run-real-world-tests): Remove trailing
+ whitespace -- see change of icalendar--add-diary-entry in
+ icalendar.el.
+ (icalendar-testsuite--run-cycle-tests): Re-enable all tests.
+
+2009-09-30 Glenn Morris <rgm@gnu.org>
+
+ * cedet/semantic-utest-c.el: Relicense under GPLv3+.
+
+2009-06-26 Eric Ludlam <zappo@gnu.org>
+
+ * cedet/*: New unit tests, from CEDET repository.
+
+2009-06-26 Chong Yidong <cyd@stupidchicken.com>
+
+ * redisplay-testsuite.el: New file.
+
+2009-06-21 Chong Yidong <cyd@stupidchicken.com>
+
+ * Branch for 23.1.
+
+2009-01-25 Ulf Jasper <ulf.jasper@web.de>
+
+ * icalendar-testsuite.el
+ (icalendar-testsuite--run-function-tests):
+ Add icalendar-testsuite--test-diarytime-to-isotime.
+ (icalendar-testsuite--test-parse-summary-and-rest): Adjust to
+ recent icalendar fixes.
+ (icalendar-testsuite--test-diarytime-to-isotime): New.
+ (icalendar-testsuite--test-create-uid): Adjust to recent
+ icalendar changes.
+
+2008-11-30 Shigeru Fukaya <shigeru.fukaya@gmail.com>
+
+ * bytecomp-testsuite.el: New file.
+
+2008-10-31 Ulf Jasper <ulf.jasper@web.de>
+
+ * icalendar-testsuite.el (icalendar-testsuite--run-function-tests):
+ Add `icalendar-testsuite--test-create-uid'.
+ (icalendar-testsuite--test-create-uid): New.
+
+2008-06-14 Ulf Jasper <ulf.jasper@web.de>
+
+ * newsticker-testsuite.el: New file.
+
+2008-05-24 Ulf Jasper <ulf.jasper@web.de>
+
+ * icalendar-testsuite.el (icalendar-testsuite--run-function-tests):
+ Add icalendar-testsuite--test-datestring-to-isodate,
+ icalendar-testsuite--test-datetime-to-diary-date, and
+ icalendar-testsuite--test-calendar-style.
+ (icalendar-testsuite--test-format-ical-event):
+ (icalendar-testsuite--test-parse-summary-and-rest):
+ Doc fix. Remove european-calendar-style.
+ (icalendar-testsuite--get-ical-event): Doc fix.
+ (icalendar-testsuite--test-first-weekday-of-year):
+ (icalendar-testsuite--run-cycle-tests): Add doc string.
+ (icalendar-testsuite--test-datestring-to-isodate):
+ (icalendar-testsuite--test-datetime-to-diary-date):
+ (icalendar-testsuite--test-calendar-style): New functions.
+ (icalendar-testsuite--test-export): Handle iso date style.
+ New arg INPUT-ISO. Use calendar-date-style.
+ (icalendar-testsuite--test-import): Handle iso date style.
+ New arg EXPECTED-ISO. Use calendar-date-style.
+ (icalendar-testsuite--test-cycle): Handle iso date style.
+ (icalendar-testsuite--run-import-tests):
+ (icalendar-testsuite--run-export-tests):
+ (icalendar-testsuite--run-real-world-tests): Add iso style tests.
+
+2008-02-29 Glenn Morris <rgm@gnu.org>
+
+ * README: New file.
+
+2008-02-29 Ulf Jasper <ulf.jasper@web.de>
+
+ * icalendar-testsuite.el: New file.
+
+;; Local Variables:
+;; coding: utf-8
+;; End:
+
+ Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+ This file is part of GNU Emacs.
+
+ GNU Emacs is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ GNU Emacs is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
--- /dev/null
+This directory contains files intended to test various aspects of
+Emacs's functionality. Please help add tests!
+
+(Also, see etc/compilation.txt for compilation mode font lock tests.)
--- /dev/null
+# Maintenance productions for the automated test directory
+# Copyright (C) 2010-2013 Free Software Foundation, Inc.
+
+# This file is part of GNU Emacs.
+
+# GNU Emacs is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# GNU Emacs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+SHELL = /bin/sh
+
+srcdir = @srcdir@
+top_srcdir = @top_srcdir@
+abs_top_builddir = @abs_top_builddir@
+test = $(srcdir)
+VPATH = $(srcdir)
+lispsrc = $(top_srcdir)/lisp
+lisp = ${abs_top_builddir}/lisp
+
+# You can specify a different executable on the make command line,
+# e.g. "make EMACS=../src/emacs ...".
+
+# We sometimes change directory before running Emacs (typically when
+# building out-of-tree, we chdir to the source directory), so we need
+# to use an absolute file name.
+EMACS = ${abs_top_builddir}/src/emacs
+
+# Command line flags for Emacs.
+
+EMACSOPT = -batch --no-site-file --no-site-lisp
+
+# Extra flags to pass to the byte compiler
+BYTE_COMPILE_EXTRA_FLAGS =
+# For example to not display the undefined function warnings you can use this:
+# BYTE_COMPILE_EXTRA_FLAGS = --eval '(setq byte-compile-warnings (quote (not unresolved)))'
+# The example above is just for developers, it should not be used by default.
+
+# The actual Emacs command run in the targets below.
+emacs = EMACSLOADPATH=$(lispsrc):$(test) LC_ALL=C $(EMACS) $(EMACSOPT)
+
+# Common command to find subdirectories
+setwins=subdirs=`find . -type d -print`; \
+ for file in $$subdirs; do \
+ case $$file in */.* | */.*/* | */=* ) ;; \
+ *) wins="$$wins $$file" ;; \
+ esac; \
+ done
+
+all: check
+
+doit:
+
+
+# Files MUST be compiled one by one. If we compile several files in a
+# row (i.e., in the same instance of Emacs) we can't make sure that
+# the compilation environment is clean. We also set the load-path of
+# the Emacs used for compilation to the current directory and its
+# subdirectories, to make sure require's and load's in the files being
+# compiled find the right files.
+
+.SUFFIXES: .elc .el
+
+# An old-fashioned suffix rule, which, according to the GNU Make manual,
+# cannot have prerequisites.
+.el.elc:
+ @echo Compiling $<
+ @$(emacs) $(BYTE_COMPILE_EXTRA_FLAGS) -f batch-byte-compile $<
+
+.PHONY: lisp-compile compile-main compile compile-always
+
+lisp-compile:
+ cd $(lisp); $(MAKE) $(MFLAGS) compile EMACS=$(EMACS)
+
+# In `compile-main' we could directly do
+# ... | xargs $(MAKE) $(MFLAGS) EMACS="$(EMACS)"
+# and it works, but it generates a lot of messages like
+# make[2]: « gnus/gnus-mlspl.elc » is up to date.
+# so instead, we use "xargs echo" to split the list of file into manageable
+# chunks and then use an intermediate `compile-targets' target so the
+# actual targets (the .elc files) are not mentioned as targets on the
+# make command line.
+
+
+.PHONY: compile-targets
+# TARGETS is set dynamically in the recursive call from `compile-main'.
+compile-targets: $(TARGETS)
+
+# Compile all the Elisp files that need it. Beware: it approximates
+# `no-byte-compile', so watch out for false-positives!
+compile-main: compile-clean lisp-compile
+ @(cd $(test); $(setwins); \
+ els=`echo "$$wins " | sed -e 's|/\./|/|g' -e 's|/\. | |g' -e 's| |/*.el |g'`; \
+ for el in $$els; do \
+ test -f $$el || continue; \
+ test ! -f $${el}c && GREP_OPTIONS= grep '^;.*no-byte-compile: t' $$el > /dev/null && continue; \
+ echo "$${el}c"; \
+ done | xargs echo) | \
+ while read chunk; do \
+ $(MAKE) $(MFLAGS) compile-targets EMACS="$(EMACS)" TARGETS="$$chunk"; \
+ done
+
+.PHONY: compile-clean
+# Erase left-over .elc files that do not have a corresponding .el file.
+compile-clean:
+ @cd $(test); $(setwins); \
+ elcs=`echo "$$wins " | sed -e 's|/\./|/|g' -e 's|/\. | |g' -e 's| |/*.elc |g'`; \
+ for el in $$(echo $$elcs | sed -e 's/\.elc/\.el/g'); do \
+ if test -f "$$el" -o \! -f "$${el}c"; then :; else \
+ echo rm "$${el}c"; \
+ rm "$${el}c"; \
+ fi \
+ done
+
+# Compile all Lisp files, but don't recompile those that are up to
+# date. Some .el files don't get compiled because they set the
+# local variable no-byte-compile.
+# Calling make recursively because suffix rule cannot have prerequisites.
+# Explicitly pass EMACS (sometimes ../src/bootstrap-emacs) to those
+# sub-makes that run rules that use it, for the sake of some non-GNU makes.
+compile: $(LOADDEFS) autoloads compile-first
+ $(MAKE) $(MFLAGS) compile-main EMACS=$(EMACS)
+
+# Compile all Lisp files. This is like `compile' but compiles files
+# unconditionally. Some files don't actually get compiled because they
+# set the local variable no-byte-compile.
+compile-always: doit
+ cd $(test); rm -f *.elc */*.elc */*/*.elc */*/*/*.elc
+ $(MAKE) $(MFLAGS) compile EMACS=$(EMACS)
+
+bootstrap-clean:
+ cd $(test); rm -f *.elc */*.elc */*/*.elc */*/*/*.elc
+
+distclean:
+ -rm -f ./Makefile
+
+maintainer-clean: distclean bootstrap-clean
+
+check: compile-main
+ @(cd $(test); $(setwins); \
+ pattern=`echo "$$wins " | sed -e 's|/\./|/|g' -e 's|/\. | |g' -e 's| |/*.el |g'`; \
+ for el in $$pattern; do \
+ test -f $$el || continue; \
+ args="$$args -l $$el"; \
+ els="$$els $$el"; \
+ done; \
+ echo Testing $$els; \
+ $(emacs) $$args -f ert-run-tests-batch-and-exit)
+
+# Makefile ends here.
--- /dev/null
+;;; bytecomp-testsuite.el
+
+;; Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+;; Author: Shigeru Fukaya <shigeru.fukaya@gmail.com>
+;; Created: November 2008
+;; Keywords: internal
+;; Human-Keywords: internal
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+(require 'ert)
+
+;;; Code:
+(defconst byte-opt-testsuite-arith-data
+ '(
+ ;; some functional tests
+ (let ((a most-positive-fixnum) (b 1) (c 1.0)) (+ a b c))
+ (let ((a most-positive-fixnum) (b -2) (c 1.0)) (- a b c))
+ (let ((a most-positive-fixnum) (b 2) (c 1.0)) (* a b c))
+ (let ((a 3) (b 2) (c 1.0)) (/ a b c))
+ (let ((a (+ 1 (expt 2 -64))) (b (expt 2 -65))) (+ a -1 b))
+ (let ((a (+ 1 (expt 2 -64))) (b (expt 2 -65))) (- a 1 (- b)))
+ ;; This fails. Should it be a bug?
+ ;; (let ((a (expt 2 -1074)) (b 0.125)) (* a 8 b))
+ (let ((a 1.0)) (* a 0))
+ (let ((a 1.0)) (* a 2.0 0))
+ (let ((a 1.0)) (/ 0 a))
+ (let ((a 1.0)) (/ 3 a 2))
+ (let ((a most-positive-fixnum) (b 2.0)) (* a 2 b))
+ (let ((a 3) (b 2)) (/ a b 1.0))
+ (/ 3 -1)
+ (+ 4 3 2 1)
+ (+ 4 3 2.0 1)
+ (- 4 3 2 1) ; not new, for reference
+ (- 4 3 2.0 1) ; not new, for reference
+ (* 4 3 2 1)
+ (* 4 3 2.0 1)
+ (/ 4 3 2 1)
+ (/ 4 3 2.0 1)
+ (let ((a 3) (b 2)) (+ a b 1))
+ (let ((a 3) (b 2)) (+ a b -1))
+ (let ((a 3) (b 2)) (- a b 1))
+ (let ((a 3) (b 2)) (- a b -1))
+ (let ((a 3) (b 2)) (+ a b a 1))
+ (let ((a 3) (b 2)) (+ a b a -1))
+ (let ((a 3) (b 2)) (- a b a 1))
+ (let ((a 3) (b 2)) (- a b a -1))
+ (let ((a 3) (b 2)) (* a b -1))
+ (let ((a 3) (b 2)) (* a -1))
+ (let ((a 3) (b 2)) (/ a b 1))
+ (let ((a 3) (b 2)) (/ (+ a b) 1))
+
+ ;; coverage test
+ (let ((a 3) (b 2) (c 1.0)) (+))
+ (let ((a 3) (b 2) (c 1.0)) (+ 2))
+ (let ((a 3) (b 2) (c 1.0)) (+ 2 0))
+ (let ((a 3) (b 2) (c 1.0)) (+ 2 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (+ 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (+ 2.0 0))
+ (let ((a 3) (b 2) (c 1.0)) (+ 2.0 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0 2))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0.0 2))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0.0 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (+ a))
+ (let ((a 3) (b 2) (c 1.0)) (+ a 0))
+ (let ((a 3) (b 2) (c 1.0)) (+ a 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0 a))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0.0 a))
+ (let ((a 3) (b 2) (c 1.0)) (+ c 0))
+ (let ((a 3) (b 2) (c 1.0)) (+ c 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0 c))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0.0 c))
+ (let ((a 3) (b 2) (c 1.0)) (+ a b 0 c 0))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0 a))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0 a b))
+ (let ((a 3) (b 2) (c 1.0)) (+ 0 a b c))
+ (let ((a 3) (b 2) (c 1.0)) (+ 1 2 3))
+ (let ((a 3) (b 2) (c 1.0)) (+ 3.0 2.0 1))
+ (let ((a 3) (b 2) (c 1.0)) (+ 3.0 2.0 1 4))
+ (let ((a 3) (b 2) (c 1.0)) (+ a 1))
+ (let ((a 3) (b 2) (c 1.0)) (+ a -1))
+ (let ((a 3) (b 2) (c 1.0)) (+ 1 a))
+ (let ((a 3) (b 2) (c 1.0)) (+ -1 a))
+ (let ((a 3) (b 2) (c 1.0)) (+ c 1))
+ (let ((a 3) (b 2) (c 1.0)) (+ c -1))
+ (let ((a 3) (b 2) (c 1.0)) (+ 1 c))
+ (let ((a 3) (b 2) (c 1.0)) (+ -1 c))
+ (let ((a 3) (b 2) (c 1.0)) (+ a b 0))
+ (let ((a 3) (b 2) (c 1.0)) (+ a b 1))
+ (let ((a 3) (b 2) (c 1.0)) (+ a b -1))
+ (let ((a 3) (b 2) (c 1.0)) (+ a b 2))
+ (let ((a 3) (b 2) (c 1.0)) (+ 1 a b c))
+ (let ((a 3) (b 2) (c 1.0)) (+ a b c 0))
+ (let ((a 3) (b 2) (c 1.0)) (+ a b c 1))
+ (let ((a 3) (b 2) (c 1.0)) (+ a b c -1))
+
+ (let ((a 3) (b 2) (c 1.0)) (-))
+ (let ((a 3) (b 2) (c 1.0)) (- 2))
+ (let ((a 3) (b 2) (c 1.0)) (- 2 0))
+ (let ((a 3) (b 2) (c 1.0)) (- 2 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (- 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (- 2.0 0))
+ (let ((a 3) (b 2) (c 1.0)) (- 2.0 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (- 0 2))
+ (let ((a 3) (b 2) (c 1.0)) (- 0 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (- 0.0 2))
+ (let ((a 3) (b 2) (c 1.0)) (- 0.0 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (- a))
+ (let ((a 3) (b 2) (c 1.0)) (- a 0))
+ (let ((a 3) (b 2) (c 1.0)) (- a 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (- 0 a))
+ (let ((a 3) (b 2) (c 1.0)) (- 0.0 a))
+ (let ((a 3) (b 2) (c 1.0)) (- c 0))
+ (let ((a 3) (b 2) (c 1.0)) (- c 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (- 0 c))
+ (let ((a 3) (b 2) (c 1.0)) (- 0.0 c))
+ (let ((a 3) (b 2) (c 1.0)) (- a b 0 c 0))
+ (let ((a 3) (b 2) (c 1.0)) (- 0 a))
+ (let ((a 3) (b 2) (c 1.0)) (- 0 a b))
+ (let ((a 3) (b 2) (c 1.0)) (- 0 a b c))
+ (let ((a 3) (b 2) (c 1.0)) (- 1 2 3))
+ (let ((a 3) (b 2) (c 1.0)) (- 3.0 2.0 1))
+ (let ((a 3) (b 2) (c 1.0)) (- 3.0 2.0 1 4))
+ (let ((a 3) (b 2) (c 1.0)) (- a 1))
+ (let ((a 3) (b 2) (c 1.0)) (- a -1))
+ (let ((a 3) (b 2) (c 1.0)) (- 1 a))
+ (let ((a 3) (b 2) (c 1.0)) (- -1 a))
+ (let ((a 3) (b 2) (c 1.0)) (- c 1))
+ (let ((a 3) (b 2) (c 1.0)) (- c -1))
+ (let ((a 3) (b 2) (c 1.0)) (- 1 c))
+ (let ((a 3) (b 2) (c 1.0)) (- -1 c))
+ (let ((a 3) (b 2) (c 1.0)) (- a b 0))
+ (let ((a 3) (b 2) (c 1.0)) (- a b 1))
+ (let ((a 3) (b 2) (c 1.0)) (- a b -1))
+ (let ((a 3) (b 2) (c 1.0)) (- a b 2))
+ (let ((a 3) (b 2) (c 1.0)) (- 1 a b c))
+ (let ((a 3) (b 2) (c 1.0)) (- a b c 0))
+ (let ((a 3) (b 2) (c 1.0)) (- a b c 1))
+ (let ((a 3) (b 2) (c 1.0)) (- a b c -1))
+
+ (let ((a 3) (b 2) (c 1.0)) (*))
+ (let ((a 3) (b 2) (c 1.0)) (* 2))
+ (let ((a 3) (b 2) (c 1.0)) (* 2 0))
+ (let ((a 3) (b 2) (c 1.0)) (* 2 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (* 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (* 2.0 0))
+ (let ((a 3) (b 2) (c 1.0)) (* 2.0 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (* 0 2))
+ (let ((a 3) (b 2) (c 1.0)) (* 0 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (* 0.0 2))
+ (let ((a 3) (b 2) (c 1.0)) (* 0.0 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (* a))
+ (let ((a 3) (b 2) (c 1.0)) (* a 0))
+ (let ((a 3) (b 2) (c 1.0)) (* a 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (* 0 a))
+ (let ((a 3) (b 2) (c 1.0)) (* 0.0 a))
+ (let ((a 3) (b 2) (c 1.0)) (* c 0))
+ (let ((a 3) (b 2) (c 1.0)) (* c 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (* 0 c))
+ (let ((a 3) (b 2) (c 1.0)) (* 0.0 c))
+ (let ((a 3) (b 2) (c 1.0)) (* a b 0 c 0))
+ (let ((a 3) (b 2) (c 1.0)) (* 0 a))
+ (let ((a 3) (b 2) (c 1.0)) (* 0 a b))
+ (let ((a 3) (b 2) (c 1.0)) (* 0 a b c))
+ (let ((a 3) (b 2) (c 1.0)) (* 1 2 3))
+ (let ((a 3) (b 2) (c 1.0)) (* 3.0 2.0 1))
+ (let ((a 3) (b 2) (c 1.0)) (* 3.0 2.0 1 4))
+ (let ((a 3) (b 2) (c 1.0)) (* a 1))
+ (let ((a 3) (b 2) (c 1.0)) (* a -1))
+ (let ((a 3) (b 2) (c 1.0)) (* 1 a))
+ (let ((a 3) (b 2) (c 1.0)) (* -1 a))
+ (let ((a 3) (b 2) (c 1.0)) (* c 1))
+ (let ((a 3) (b 2) (c 1.0)) (* c -1))
+ (let ((a 3) (b 2) (c 1.0)) (* 1 c))
+ (let ((a 3) (b 2) (c 1.0)) (* -1 c))
+ (let ((a 3) (b 2) (c 1.0)) (* a b 0))
+ (let ((a 3) (b 2) (c 1.0)) (* a b 1))
+ (let ((a 3) (b 2) (c 1.0)) (* a b -1))
+ (let ((a 3) (b 2) (c 1.0)) (* a b 2))
+ (let ((a 3) (b 2) (c 1.0)) (* 1 a b c))
+ (let ((a 3) (b 2) (c 1.0)) (* a b c 0))
+ (let ((a 3) (b 2) (c 1.0)) (* a b c 1))
+ (let ((a 3) (b 2) (c 1.0)) (* a b c -1))
+
+ (let ((a 3) (b 2) (c 1.0)) (/))
+ (let ((a 3) (b 2) (c 1.0)) (/ 2))
+ (let ((a 3) (b 2) (c 1.0)) (/ 2 0))
+ (let ((a 3) (b 2) (c 1.0)) (/ 2 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (/ 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (/ 2.0 0))
+ (let ((a 3) (b 2) (c 1.0)) (/ 2.0 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0 2))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0.0 2))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0.0 2.0))
+ (let ((a 3) (b 2) (c 1.0)) (/ a))
+ (let ((a 3) (b 2) (c 1.0)) (/ a 0))
+ (let ((a 3) (b 2) (c 1.0)) (/ a 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0 a))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0.0 a))
+ (let ((a 3) (b 2) (c 1.0)) (/ c 0))
+ (let ((a 3) (b 2) (c 1.0)) (/ c 0.0))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0 c))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0.0 c))
+ (let ((a 3) (b 2) (c 1.0)) (/ a b 0 c 0))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0 a))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0 a b))
+ (let ((a 3) (b 2) (c 1.0)) (/ 0 a b c))
+ (let ((a 3) (b 2) (c 1.0)) (/ 1 2 3))
+ (let ((a 3) (b 2) (c 1.0)) (/ 3.0 2.0 1))
+ (let ((a 3) (b 2) (c 1.0)) (/ 3.0 2.0 1 4))
+ (let ((a 3) (b 2) (c 1.0)) (/ a 1))
+ (let ((a 3) (b 2) (c 1.0)) (/ a -1))
+ (let ((a 3) (b 2) (c 1.0)) (/ 1 a))
+ (let ((a 3) (b 2) (c 1.0)) (/ -1 a))
+ (let ((a 3) (b 2) (c 1.0)) (/ c 1))
+ (let ((a 3) (b 2) (c 1.0)) (/ c -1))
+ (let ((a 3) (b 2) (c 1.0)) (/ 1 c))
+ (let ((a 3) (b 2) (c 1.0)) (/ -1 c))
+ (let ((a 3) (b 2) (c 1.0)) (/ a b 0))
+ (let ((a 3) (b 2) (c 1.0)) (/ a b 1))
+ (let ((a 3) (b 2) (c 1.0)) (/ a b -1))
+ (let ((a 3) (b 2) (c 1.0)) (/ a b 2))
+ (let ((a 3) (b 2) (c 1.0)) (/ 1 a b c))
+ (let ((a 3) (b 2) (c 1.0)) (/ a b c 0))
+ (let ((a 3) (b 2) (c 1.0)) (/ a b c 1))
+ (let ((a 3) (b 2) (c 1.0)) (/ a b c -1)))
+ "List of expression for test.
+Each element will be executed by interpreter and with
+bytecompiled code, and their results compared.")
+
+(defun bytecomp-check-1 (pat)
+ "Return non-nil if PAT is the same whether directly evalled or compiled."
+ (let ((warning-minimum-log-level :emergency)
+ (byte-compile-warnings nil)
+ (v0 (condition-case nil
+ (eval pat)
+ (error nil)))
+ (v1 (condition-case nil
+ (funcall (byte-compile (list 'lambda nil pat)))
+ (error nil))))
+ (equal v0 v1)))
+
+(put 'bytecomp-check-1 'ert-explainer 'bytecomp-explain-1)
+
+(defun bytecomp-explain-1 (pat)
+ (let ((v0 (condition-case nil
+ (eval pat)
+ (error nil)))
+ (v1 (condition-case nil
+ (funcall (byte-compile (list 'lambda nil pat)))
+ (error nil))))
+ (format "Expression `%s' gives `%s' if directly evalled, `%s' if compiled."
+ pat v0 v1)))
+
+(ert-deftest bytecomp-tests ()
+ "Test the Emacs byte compiler."
+ (dolist (pat byte-opt-testsuite-arith-data)
+ (should (bytecomp-check-1 pat))))
+
+(defun test-byte-opt-arithmetic (&optional arg)
+ "Unit test for byte-opt arithmetic operations.
+Subtests signal errors if something goes wrong."
+ (interactive "P")
+ (switch-to-buffer (generate-new-buffer "*Font Pase Test*"))
+ (let ((warning-minimum-log-level :emergency)
+ (byte-compile-warnings nil)
+ (pass-face '((t :foreground "green")))
+ (fail-face '((t :foreground "red")))
+ (print-escape-nonascii t)
+ (print-escape-newlines t)
+ (print-quoted t)
+ v0 v1)
+ (dolist (pat byte-opt-testsuite-arith-data)
+ (condition-case nil
+ (setq v0 (eval pat))
+ (error (setq v0 nil)))
+ (condition-case nil
+ (setq v1 (funcall (byte-compile (list 'lambda nil pat))))
+ (error (setq v1 nil)))
+ (insert (format "%s" pat))
+ (indent-to-column 65)
+ (if (equal v0 v1)
+ (insert (propertize "OK" 'face pass-face))
+ (insert (propertize "FAIL\n" 'face fail-face))
+ (indent-to-column 55)
+ (insert (propertize (format "[%s] vs [%s]" v0 v1)
+ 'face fail-face)))
+ (insert "\n"))))
+
+
+;; Local Variables:
+;; no-byte-compile: t
+;; End:
+
+(provide 'byte-opt-testsuite)
+
--- /dev/null
+;;; comint-testsuite.el
+
+;; Copyright (C) 2010-2013 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Tests for comint and related modes.
+
+;;; Code:
+
+(require 'comint)
+(require 'ert)
+
+(defvar comint-testsuite-password-strings
+ '("foo@example.net's password: " ;ssh
+ "Password for foo@example.org: " ; kinit
+ "Please enter the password for foo@example.org: " ; kinit
+ "Kerberos password for devnull/root <at> GNU.ORG: " ; ksu
+ "Enter passphrase: " ; ssh-add
+ "Enter passphrase (empty for no passphrase): " ; ssh-keygen
+ "Enter same passphrase again: " ; ssh-keygen
+ "Passphrase for key root@GNU.ORG: " ; plink
+ "[sudo] password for user:" ; Ubuntu sudo
+ "Password (again):"
+ "Enter password:")
+ "List of strings that should match `comint-password-prompt-regexp'.")
+
+(ert-deftest comint-test-password-regexp ()
+ "Test `comint-password-prompt-regexp' against common password strings."
+ (dolist (str comint-testsuite-password-strings)
+ (should (string-match comint-password-prompt-regexp str))))
+
+;; Local Variables:
+;; no-byte-compile: t
+;; End:
+
+;;; comint-testsuite.el ends here
--- /dev/null
+;;; compile-tests.el --- Test suite for font parsing.
+
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
+
+;; Author: Chong Yidong <cyd@stupidchicken.com>
+;; Keywords: internal
+;; Human-Keywords: internal
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert)
+(require 'compile)
+
+(defvar compile-tests--test-regexps-data
+ ;; The computed column numbers are zero-indexed, so subtract 1 from
+ ;; what's reported in the string. The end column numbers are for
+ ;; the character after, so it matches what's reported in the string.
+ '(;; absoft
+ ("Error on line 3 of t.f: Execution error unclassifiable statement"
+ 1 nil 3 "t.f")
+ ("Line 45 of \"foo.c\": bloofle undefined"
+ 1 nil 45 "foo.c")
+ ("error on line 19 of fplot.f: spelling error?"
+ 1 nil 19 "fplot.f")
+ ("warning on line 17 of fplot.f: data type is undefined for variable d"
+ 1 nil 17 "fplot.f")
+ ;; Ada & Mpatrol
+ ("foo.adb:61:11: [...] in call to size declared at foo.ads:11"
+ 1 11 61 "foo.adb")
+ ("foo.adb:61:11: [...] in call to size declared at foo.ads:11"
+ 52 nil 11 "foo.ads")
+ (" 0x8008621 main+16 at error.c:17"
+ 23 nil 17 "error.c")
+ ;; aix
+ ("****** Error number 140 in line 8 of file errors.c ******"
+ 25 nil 8 "errors.c")
+ ;; ant
+ ("[javac] /src/DataBaseTestCase.java:27: unreported exception ..."
+ 13 nil 27 "/src/DataBaseTestCase.java")
+ ("[javac] /src/DataBaseTestCase.java:49: warning: finally clause cannot complete normally"
+ 13 nil 49 "/src/DataBaseTestCase.java")
+ ("[jikes] foo.java:3:5:7:9: blah blah"
+ 14 (5 . 10) (3 . 7) "foo.java")
+ ;; bash
+ ("a.sh: line 1: ls-l: command not found"
+ 1 nil 1 "a.sh")
+ ;; borland
+ ("Error ping.c 15: Unable to open include file 'sys/types.h'"
+ 1 nil 15 "ping.c")
+ ("Warning pong.c 68: Call to function 'func' with no prototype"
+ 1 nil 68 "pong.c")
+ ("Error E2010 ping.c 15: Unable to open include file 'sys/types.h'"
+ 1 nil 15 "ping.c")
+ ("Warning W1022 pong.c 68: Call to function 'func' with no prototype"
+ 1 nil 68 "pong.c")
+ ;; caml
+ ("File \"foobar.ml\", lines 5-8, characters 20-155: blah blah"
+ 1 (20 . 156) (5 . 8) "foobar.ml")
+ ("File \"F:\\ocaml\\sorting.ml\", line 65, characters 2-145:\nWarning 26: unused variable equ."
+ 1 (2 . 146) 65 "F:\\ocaml\\sorting.ml")
+ ("File \"/usr/share/gdesklets/display/TargetGauge.py\", line 41, in add_children"
+ 1 nil 41 "/usr/share/gdesklets/display/TargetGauge.py")
+ ("File \\lib\\python\\Products\\PythonScripts\\PythonScript.py, line 302, in _exec"
+ 1 nil 302 "\\lib\\python\\Products\\PythonScripts\\PythonScript.py")
+ ("File \"/tmp/foo.py\", line 10"
+ 1 nil 10 "/tmp/foo.py")
+ ;; comma
+ ("\"foo.f\", line 3: Error: syntax error near end of statement"
+ 1 nil 3 "foo.f")
+ ("\"vvouch.c\", line 19.5: 1506-046 (S) Syntax error."
+ 1 5 19 "vvouch.c")
+ ("\"foo.c\", line 32 pos 1; (E) syntax error; unexpected symbol: \"lossage\""
+ 1 1 32 "foo.c")
+ ("\"foo.adb\", line 2(11): warning: file name does not match ..."
+ 1 11 2 "foo.adb")
+ ("\"src/swapping.c\", line 30.34: 1506-342 (W) \"/*\" detected in comment."
+ 1 34 30 "src/swapping.c")
+ ;; cucumber
+ ("Scenario: undefined step # features/cucumber.feature:3"
+ 29 nil 3 "features/cucumber.feature")
+ (" /home/gusev/.rvm/foo/bar.rb:500:in `_wrap_assertion'"
+ 1 nil 500 "/home/gusev/.rvm/foo/bar.rb")
+ ;; edg-1 edg-2
+ ("build/intel/debug/../../../struct.cpp(42): error: identifier \"foo\" is undefined"
+ 1 nil 42 "build/intel/debug/../../../struct.cpp")
+ ("build/intel/debug/struct.cpp(44): warning #1011: missing return statement at end of"
+ 1 nil 44 "build/intel/debug/struct.cpp")
+ ("build/intel/debug/iptr.h(302): remark #981: operands are evaluated in unspecified order"
+ 1 nil 302 "build/intel/debug/iptr.h")
+ (" detected during ... at line 62 of \"build/intel/debug/../../../trace.h\""
+ 31 nil 62 "build/intel/debug/../../../trace.h")
+ ;; epc
+ ("Error 24 at (2:progran.f90) : syntax error"
+ 1 nil 2 "progran.f90")
+ ;; ftnchek
+ (" Dummy arg W in module SUBA line 8 file arrayclash.f is array"
+ 32 nil 8 "arrayclash.f")
+ (" L4 used at line 55 file test/assign.f; never set"
+ 16 nil 55 "test/assign.f")
+ ("Warning near line 10 file arrayclash.f: Module contains no executable"
+ 1 nil 10 "arrayclash.f")
+ ("Nonportable usage near line 31 col 9 file assign.f: mixed default and explicit"
+ 24 9 31 "assign.f")
+ ;; iar
+ ("\"foo.c\",3 Error[32]: Error message"
+ 1 nil 3 "foo.c")
+ ("\"foo.c\",3 Warning[32]: Error message"
+ 1 nil 3 "foo.c")
+ ;; ibm
+ ("foo.c(2:0) : informational EDC0804: Function foo is not referenced."
+ 1 0 2 "foo.c")
+ ("foo.c(3:8) : warning EDC0833: Implicit return statement encountered."
+ 1 8 3 "foo.c")
+ ("foo.c(5:5) : error EDC0350: Syntax error."
+ 1 5 5 "foo.c")
+ ;; irix
+ ("ccom: Error: foo.c, line 2: syntax error"
+ 1 nil 2 "foo.c")
+ ("cc: Severe: /src/Python-2.3.3/Modules/_curses_panel.c, line 17: Cannot find file <panel.h> ..."
+ 1 nil 17 "/src/Python-2.3.3/Modules/_curses_panel.c")
+ ("cc: Info: foo.c, line 27: ..."
+ 1 nil 27 "foo.c")
+ ("cfe: Warning 712: foo.c, line 2: illegal combination of pointer and ..."
+ 1 nil 2 "foo.c")
+ ("cfe: Warning 600: xfe.c: 170: Not in a conditional directive while ..."
+ 1 nil 170 "xfe.c")
+ ("/usr/lib/cmplrs/cc/cfe: Error: foo.c: 1: blah blah"
+ 1 nil 1 "foo.c")
+ ("/usr/lib/cmplrs/cc/cfe: warning: foo.c: 1: blah blah"
+ 1 nil 1 "foo.c")
+ ("foo bar: baz.f, line 27: ..."
+ 1 nil 27 "baz.f")
+ ;; java
+ ("\tat org.foo.ComponentGateway.doGet(ComponentGateway.java:172)"
+ 5 nil 172 "ComponentGateway.java")
+ ("\tat javax.servlet.http.HttpServlet.service(HttpServlet.java:740)"
+ 5 nil 740 "HttpServlet.java")
+ ("==1332== at 0x4040743C: System::getErrorString() (../src/Lib/System.cpp:217)"
+ 13 nil 217 "../src/Lib/System.cpp")
+ ("==1332== by 0x8008621: main (vtest.c:180)"
+ 13 nil 180 "vtest.c")
+ ;; jikes-file jikes-line
+ ("Found 2 semantic errors compiling \"../javax/swing/BorderFactory.java\":"
+ 1 nil nil "../javax/swing/BorderFactory.java")
+ ("Issued 1 semantic warning compiling \"java/awt/Toolkit.java\":"
+ 1 nil nil "java/awt/Toolkit.java")
+ ;; gcc-include
+ ("In file included from /usr/include/c++/3.3/backward/warn.h:4,"
+ 1 nil 4 "/usr/include/c++/3.3/backward/warn.h")
+ (" from /usr/include/c++/3.3/backward/iostream.h:31:0,"
+ 1 0 31 "/usr/include/c++/3.3/backward/iostream.h")
+ (" from test_clt.cc:1:"
+ 1 nil 1 "test_clt.cc")
+ ;; gnu
+ ("foo.c:8: message" 1 nil 8 "foo.c")
+ ("../foo.c:8: W: message" 1 nil 8 "../foo.c")
+ ("/tmp/foo.c:8:warning message" 1 nil 8 "/tmp/foo.c")
+ ("foo/bar.py:8: FutureWarning message" 1 nil 8 "foo/bar.py")
+ ("foo.py:8: RuntimeWarning message" 1 nil 8 "foo.py")
+ ("foo.c:8:I: message" 1 nil 8 "foo.c")
+ ("foo.c:8.23: note: message" 1 23 8 "foo.c")
+ ("foo.c:8.23: info: message" 1 23 8 "foo.c")
+ ("foo.c:8:23:information: message" 1 23 8 "foo.c")
+ ("foo.c:8.23-45: Informational: message" 1 (23 . nil) (8 . 45) "foo.c")
+ ("foo.c:8-23: message" 1 nil (8 . 23) "foo.c")
+ ("foo.c:8-45.3: message" 1 (nil . 4) (8 . 45) "foo.c")
+ ("foo.c:8.23-9.1: message" 1 (23 . 2) (8 . 9) "foo.c")
+ ("jade:dbcommon.dsl:133:17:E: missing argument for function call"
+ 1 17 133 "dbcommon.dsl")
+ ("G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found."
+ 1 nil 54 "G:/cygwin/dev/build-myproj.xml")
+ ("file:G:/cygwin/dev/build-myproj.xml:54: Compiler Adapter 'javac' can't be found."
+ 1 nil 54 "G:/cygwin/dev/build-myproj.xml")
+ ("{standard input}:27041: Warning: end of file not at end of a line; newline inserted"
+ 1 nil 27041 "{standard input}")
+ ;; lcc
+ ("E, file.cc(35,52) Illegal operation on pointers" 1 52 35 "file.cc")
+ ("W, file.cc(36,52) blah blah" 1 52 36 "file.cc")
+ ;; makepp
+ ("makepp: Scanning `/foo/bar.c'" 19 nil nil "/foo/bar.c")
+ ("makepp: warning: bla bla `/foo/bar.c' and `/foo/bar.h'" 27 nil nil "/foo/bar.c")
+ ("makepp: bla bla `/foo/Makeppfile:12' bla" 18 nil 12 "/foo/Makeppfile")
+ ("makepp: bla bla `/foo/bar.c' and `/foo/bar.h'" 35 nil nil "/foo/bar.h")
+ ;; maven
+ ("FooBar.java:[111,53] no interface expected here"
+ 1 53 111 "FooBar.java")
+ (" [ERROR] /Users/cinsk/hello.java:[651,96] ';' expected"
+ 15 96 651 "/Users/cinsk/hello.java") ;Bug#11517.
+ ;; mips-1 mips-2
+ ("TrimMask (255) in solomon.c may be indistinguishable from TrimMasks (93) in solomo.c due to truncation"
+ 11 nil 255 "solomon.c")
+ ("TrimMask (255) in solomon.c may be indistinguishable from TrimMasks (93) in solomo.c due to truncation"
+ 70 nil 93 "solomo.c")
+ ("name defined but never used: LinInt in cmap_calc.c(199)"
+ 40 nil 199 "cmap_calc.c")
+ ;; msft
+ ("keyboard handler.c(537) : warning C4005: 'min' : macro redefinition"
+ 1 nil 537 "keyboard handler.c")
+ ("d:\\tmp\\test.c(23) : error C2143: syntax error : missing ';' before 'if'"
+ 1 nil 23 "d:\\tmp\\test.c")
+ ("d:\\tmp\\test.c(1145) : see declaration of 'nsRefPtr'"
+ 1 nil 1145 "d:\\tmp\\test.c")
+ ("1>test_main.cpp(29): error C2144: syntax error : 'int' should be preceded by ';'"
+ 3 nil 29 "test_main.cpp")
+ ("1>test_main.cpp(29): error C4430: missing type specifier - int assumed. Note: C++ does not support default-int"
+ 3 nil 29 "test_main.cpp")
+ ;; watcom
+ ("..\src\ctrl\lister.c(109): Error! E1009: Expecting ';' but found '{'"
+ 1 nil 109 "..\src\ctrl\lister.c")
+ ("..\src\ctrl\lister.c(120): Warning! W201: Unreachable code"
+ 1 nil 120 "..\src\ctrl\lister.c")
+ ;; oracle
+ ("Semantic error at line 528, column 5, file erosacqdb.pc:"
+ 1 5 528 "erosacqdb.pc")
+ ("Error at line 41, column 10 in file /usr/src/sb/ODBI_BHP.hpp"
+ 1 10 41 "/usr/src/sb/ODBI_BHP.hpp")
+ ("PCC-02150: error at line 49, column 27 in file /usr/src/sb/ODBI_dxfgh.pc"
+ 1 27 49 "/usr/src/sb/ODBI_dxfgh.pc")
+ ("PCC-00003: invalid SQL Identifier at column name in line 12 of file /usr/src/sb/ODBI_BHP.hpp"
+ 1 nil 12 "/usr/src/sb/ODBI_BHP.hpp")
+ ("PCC-00004: mismatched IF/ELSE/ENDIF block at line 27 in file /usr/src/sb/ODBI_BHP.hpp"
+ 1 nil 27 "/usr/src/sb/ODBI_BHP.hpp")
+ ("PCC-02151: line 21 column 40 file /usr/src/sb/ODBI_BHP.hpp:"
+ 1 40 21 "/usr/src/sb/ODBI_BHP.hpp")
+ ;; perl
+ ("syntax error at automake line 922, near \"':'\""
+ 14 nil 922 "automake")
+ ("Died at test.pl line 27."
+ 6 nil 27 "test.pl")
+ ("store::odrecall('File_A', 'x2') called at store.pm line 90"
+ 40 nil 90 "store.pm")
+ ("\t(in cleanup) something bad at foo.pl line 3 during global destruction."
+ 29 nil 3 "foo.pl")
+ ("GLib-GObject-WARNING **: /build/buildd/glib2.0-2.14.5/gobject/gsignal.c:1741: instance `0x8206790' has no handler with id `1234' at t-compilation-perl-gtk.pl line 3."
+ 130 nil 3 "t-compilation-perl-gtk.pl")
+ ;; php
+ ("Parse error: parse error, unexpected $ in main.php on line 59"
+ 1 nil 59 "main.php")
+ ("Fatal error: Call to undefined function: mysql_pconnect() in db.inc on line 66"
+ 1 nil 66 "db.inc")
+ ;; ruby
+ ("plain-exception.rb:7:in `fun': unhandled exception"
+ 1 nil 7 "plain-exception.rb")
+ ("\tfrom plain-exception.rb:3:in `proxy'" 2 nil 3 "plain-exception.rb")
+ ("\tfrom plain-exception.rb:12" 2 nil 12 "plain-exception.rb")
+ ;; ruby-Test::Unit
+ ;; FIXME
+ (" [examples/test-unit.rb:28:in `here_is_a_deep_assert'"
+ 5 nil 28 "examples/test-unit.rb")
+ (" examples/test-unit.rb:19:in `test_a_deep_assert']:"
+ 6 nil 19 "examples/test-unit.rb")
+ ("examples/test-unit.rb:10:in `test_assert_raise'"
+ 1 nil 10 "examples/test-unit.rb")
+ ;; rxp
+ ("Error: Mismatched end tag: expected </geroup>, got </group>\nin unnamed entity at line 71 char 8 of file:///home/reto/test/group.xml"
+ 1 8 71 "/home/reto/test/group.xml")
+ ("Warning: Start tag for undeclared element geroup\nin unnamed entity at line 4 char 8 of file:///home/reto/test/group.xml"
+ 1 8 4 "/home/reto/test/group.xml")
+ ;; sparc-pascal-file sparc-pascal-line sparc-pascal-example
+ ("Thu May 14 10:46:12 1992 mom3.p:"
+ 1 nil nil "mom3.p")
+ ;; sun
+ ("cc-1020 CC: REMARK File = CUI_App.h, Line = 735"
+ 13 nil 735 "CUI_App.h")
+ ("cc-1070 cc: WARNING File = linkl.c, Line = 38"
+ 13 nil 38 "linkl.c")
+ ("cf90-113 f90comp: ERROR NSE, File = Hoved.f90, Line = 16, Column = 3"
+ 18 3 16 "Hoved.f90")
+ ;; sun-ada
+ ("/home3/xdhar/rcds_rc/main.a, line 361, char 6:syntax error: \",\" inserted"
+ 1 6 361 "/home3/xdhar/rcds_rc/main.a")
+ ;; 4bsd
+ ("/usr/src/foo/foo.c(8): warning: w may be used before set"
+ 1 nil 8 "/usr/src/foo/foo.c")
+ ("/usr/src/foo/foo.c(9): error: w is used before set"
+ 1 nil 9 "/usr/src/foo/foo.c")
+ ("strcmp: variable # of args. llib-lc(359) :: /usr/src/foo/foo.c(8)"
+ 44 nil 8 "/usr/src/foo/foo.c")
+ ("bloofle defined( /users/wolfgang/foo.c(4) ), but never used"
+ 18 nil 4 "/users/wolfgang/foo.c")
+ ;; perl--Pod::Checker
+ ;; FIXME
+ ;; *** ERROR: Spurious text after =cut at line 193 in file foo.pm
+ ;; *** ERROR: =over on line 37 without closing =back at line EOF in file bar.pm
+ ;; *** ERROR: =over on line 1 without closing =back (at head1) at line 3 in file x.pod
+ ;; perl--Test
+ ("# Failed test 1 in foo.t at line 6"
+ 1 nil 6 "foo.t")
+ ;; perl--Test::Harness
+ ("NOK 1# Test 1 got: \"1234\" (t/foo.t at line 46)"
+ 1 nil 46 "t/foo.t")
+ ;; weblint
+ ("index.html (13:1) Unknown element <fdjsk>"
+ 1 1 13 "index.html"))
+ "List of tests for `compilation-error-regexp-alist'.
+Each element has the form (STR POS COLUMN LINE FILENAME), where
+STR is an error string, POS is the position of the error in STR,
+COLUMN and LINE are the reported column and line numbers (or nil)
+for that error, and FILENAME is the reported filename.
+
+LINE can also be of the form (LINE . END-LINE) meaning a range of
+lines. COLUMN can also be of the form (COLUMN . END-COLUMN)
+meaning a range of columns starting on LINE and ending on
+END-LINE, if that matched.")
+
+(defun compile--test-error-line (test)
+ (erase-buffer)
+ (setq compilation-locs (make-hash-table))
+ (insert (car test))
+ (compilation-parse-errors (point-min) (point-max))
+ (let ((msg (get-text-property (nth 1 test) 'compilation-message)))
+ (when msg
+ (let ((loc (compilation--message->loc msg))
+ (col (nth 2 test))
+ (line (nth 3 test))
+ (file (nth 4 test))
+ end-col end-line)
+ (if (consp col)
+ (setq end-col (cdr col) col (car col)))
+ (if (consp line)
+ (setq end-line (cdr line) line (car line)))
+ (and (equal (compilation--loc->col loc) col)
+ (equal (compilation--loc->line loc) line)
+ (equal (caar (compilation--loc->file-struct loc)) file)
+ (or (null end-col)
+ (equal (car (cadr (nth 2 (compilation--loc->file-struct loc))))
+ end-col))
+ (equal (car (nth 2 (compilation--loc->file-struct loc)))
+ (or end-line line)))))))
+
+(ert-deftest compile-test-error-regexps ()
+ "Test the `compilation-error-regexp-alist' regexps.
+The test data is in `compile-tests--test-regexps-data'."
+ (with-temp-buffer
+ (font-lock-mode -1)
+ (dolist (test compile-tests--test-regexps-data)
+ (should (compile--test-error-line test)))))
+
+;;; compile-tests.el ends here.
--- /dev/null
+;;; ert-tests.el --- ERT's self-tests
+
+;; Copyright (C) 2007-2008, 2010-2013 Free Software Foundation, Inc.
+
+;; Author: Christian Ohler <ohler@gnu.org>
+
+;; This file is part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation, either version 3 of the
+;; License, or (at your option) any later version.
+;;
+;; This program 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 this program. If not, see `http://www.gnu.org/licenses/'.
+
+;;; Commentary:
+
+;; This file is part of ERT, the Emacs Lisp Regression Testing tool.
+;; See ert.el or the texinfo manual for more details.
+
+;;; Code:
+
+(eval-when-compile
+ (require 'cl))
+(require 'ert)
+
+
+;;; Self-test that doesn't rely on ERT, for bootstrapping.
+
+;; This is used to test that bodies actually run.
+(defvar ert--test-body-was-run)
+(ert-deftest ert-test-body-runs ()
+ (setq ert--test-body-was-run t))
+
+(defun ert-self-test ()
+ "Run ERT's self-tests and make sure they actually ran."
+ (let ((window-configuration (current-window-configuration)))
+ (let ((ert--test-body-was-run nil))
+ ;; The buffer name chosen here should not compete with the default
+ ;; results buffer name for completion in `switch-to-buffer'.
+ (let ((stats (ert-run-tests-interactively "^ert-" " *ert self-tests*")))
+ (assert ert--test-body-was-run)
+ (if (zerop (ert-stats-completed-unexpected stats))
+ ;; Hide results window only when everything went well.
+ (set-window-configuration window-configuration)
+ (error "ERT self-test failed"))))))
+
+(defun ert-self-test-and-exit ()
+ "Run ERT's self-tests and exit Emacs.
+
+The exit code will be zero if the tests passed, nonzero if they
+failed or if there was a problem."
+ (unwind-protect
+ (progn
+ (ert-self-test)
+ (kill-emacs 0))
+ (unwind-protect
+ (progn
+ (message "Error running tests")
+ (backtrace))
+ (kill-emacs 1))))
+
+
+;;; Further tests are defined using ERT.
+
+(ert-deftest ert-test-nested-test-body-runs ()
+ "Test that nested test bodies run."
+ (lexical-let ((was-run nil))
+ (let ((test (make-ert-test :body (lambda ()
+ (setq was-run t)))))
+ (assert (not was-run))
+ (ert-run-test test)
+ (assert was-run))))
+
+
+;;; Test that pass/fail works.
+(ert-deftest ert-test-pass ()
+ (let ((test (make-ert-test :body (lambda ()))))
+ (let ((result (ert-run-test test)))
+ (assert (ert-test-passed-p result)))))
+
+(ert-deftest ert-test-fail ()
+ (let ((test (make-ert-test :body (lambda () (ert-fail "failure message")))))
+ (let ((result (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (assert (ert-test-failed-p result) t)
+ (assert (equal (ert-test-result-with-condition-condition result)
+ '(ert-test-failed "failure message"))
+ t))))
+
+(ert-deftest ert-test-fail-debug-with-condition-case ()
+ (let ((test (make-ert-test :body (lambda () (ert-fail "failure message")))))
+ (condition-case condition
+ (progn
+ (let ((ert-debug-on-error t))
+ (ert-run-test test))
+ (assert nil))
+ ((error)
+ (assert (equal condition '(ert-test-failed "failure message")) t)))))
+
+(ert-deftest ert-test-fail-debug-with-debugger-1 ()
+ (let ((test (make-ert-test :body (lambda () (ert-fail "failure message")))))
+ (let ((debugger (lambda (&rest debugger-args)
+ (assert nil))))
+ (let ((ert-debug-on-error nil))
+ (ert-run-test test)))))
+
+(ert-deftest ert-test-fail-debug-with-debugger-2 ()
+ (let ((test (make-ert-test :body (lambda () (ert-fail "failure message")))))
+ (block nil
+ (let ((debugger (lambda (&rest debugger-args)
+ (return-from nil nil))))
+ (let ((ert-debug-on-error t))
+ (ert-run-test test))
+ (assert nil)))))
+
+(ert-deftest ert-test-fail-debug-nested-with-debugger ()
+ (let ((test (make-ert-test :body (lambda ()
+ (let ((ert-debug-on-error t))
+ (ert-fail "failure message"))))))
+ (let ((debugger (lambda (&rest debugger-args)
+ (assert nil nil "Assertion a"))))
+ (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (let ((test (make-ert-test :body (lambda ()
+ (let ((ert-debug-on-error nil))
+ (ert-fail "failure message"))))))
+ (block nil
+ (let ((debugger (lambda (&rest debugger-args)
+ (return-from nil nil))))
+ (let ((ert-debug-on-error t))
+ (ert-run-test test))
+ (assert nil nil "Assertion b")))))
+
+(ert-deftest ert-test-error ()
+ (let ((test (make-ert-test :body (lambda () (error "Error message")))))
+ (let ((result (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (assert (ert-test-failed-p result) t)
+ (assert (equal (ert-test-result-with-condition-condition result)
+ '(error "Error message"))
+ t))))
+
+(ert-deftest ert-test-error-debug ()
+ (let ((test (make-ert-test :body (lambda () (error "Error message")))))
+ (condition-case condition
+ (progn
+ (let ((ert-debug-on-error t))
+ (ert-run-test test))
+ (assert nil))
+ ((error)
+ (assert (equal condition '(error "Error message")) t)))))
+
+
+;;; Test that `should' works.
+(ert-deftest ert-test-should ()
+ (let ((test (make-ert-test :body (lambda () (should nil)))))
+ (let ((result (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (assert (ert-test-failed-p result) t)
+ (assert (equal (ert-test-result-with-condition-condition result)
+ '(ert-test-failed ((should nil) :form nil :value nil)))
+ t)))
+ (let ((test (make-ert-test :body (lambda () (should t)))))
+ (let ((result (ert-run-test test)))
+ (assert (ert-test-passed-p result) t))))
+
+(ert-deftest ert-test-should-value ()
+ (should (eql (should 'foo) 'foo))
+ (should (eql (should 'bar) 'bar)))
+
+(ert-deftest ert-test-should-not ()
+ (let ((test (make-ert-test :body (lambda () (should-not t)))))
+ (let ((result (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (assert (ert-test-failed-p result) t)
+ (assert (equal (ert-test-result-with-condition-condition result)
+ '(ert-test-failed ((should-not t) :form t :value t)))
+ t)))
+ (let ((test (make-ert-test :body (lambda () (should-not nil)))))
+ (let ((result (ert-run-test test)))
+ (assert (ert-test-passed-p result)))))
+
+(ert-deftest ert-test-should-with-macrolet ()
+ (let ((test (make-ert-test :body (lambda ()
+ (macrolet ((foo () `(progn t nil)))
+ (should (foo)))))))
+ (let ((result (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (should (ert-test-failed-p result))
+ (should (equal
+ (ert-test-result-with-condition-condition result)
+ '(ert-test-failed ((should (foo))
+ :form (progn t nil)
+ :value nil)))))))
+
+(ert-deftest ert-test-should-error ()
+ ;; No error.
+ (let ((test (make-ert-test :body (lambda () (should-error (progn))))))
+ (let ((result (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (should (ert-test-failed-p result))
+ (should (equal (ert-test-result-with-condition-condition result)
+ '(ert-test-failed
+ ((should-error (progn))
+ :form (progn)
+ :value nil
+ :fail-reason "did not signal an error"))))))
+ ;; A simple error.
+ (should (equal (should-error (error "Foo"))
+ '(error "Foo")))
+ ;; Error of unexpected type.
+ (let ((test (make-ert-test :body (lambda ()
+ (should-error (error "Foo")
+ :type 'singularity-error)))))
+ (let ((result (ert-run-test test)))
+ (should (ert-test-failed-p result))
+ (should (equal
+ (ert-test-result-with-condition-condition result)
+ '(ert-test-failed
+ ((should-error (error "Foo") :type 'singularity-error)
+ :form (error "Foo")
+ :condition (error "Foo")
+ :fail-reason
+ "the error signaled did not have the expected type"))))))
+ ;; Error of the expected type.
+ (let* ((error nil)
+ (test (make-ert-test
+ :body (lambda ()
+ (setq error
+ (should-error (signal 'singularity-error nil)
+ :type 'singularity-error))))))
+ (let ((result (ert-run-test test)))
+ (should (ert-test-passed-p result))
+ (should (equal error '(singularity-error))))))
+
+(ert-deftest ert-test-should-error-subtypes ()
+ (should-error (signal 'singularity-error nil)
+ :type 'singularity-error
+ :exclude-subtypes t)
+ (let ((test (make-ert-test
+ :body (lambda ()
+ (should-error (signal 'arith-error nil)
+ :type 'singularity-error)))))
+ (let ((result (ert-run-test test)))
+ (should (ert-test-failed-p result))
+ (should (equal
+ (ert-test-result-with-condition-condition result)
+ '(ert-test-failed
+ ((should-error (signal 'arith-error nil)
+ :type 'singularity-error)
+ :form (signal arith-error nil)
+ :condition (arith-error)
+ :fail-reason
+ "the error signaled did not have the expected type"))))))
+ (let ((test (make-ert-test
+ :body (lambda ()
+ (should-error (signal 'arith-error nil)
+ :type 'singularity-error
+ :exclude-subtypes t)))))
+ (let ((result (ert-run-test test)))
+ (should (ert-test-failed-p result))
+ (should (equal
+ (ert-test-result-with-condition-condition result)
+ '(ert-test-failed
+ ((should-error (signal 'arith-error nil)
+ :type 'singularity-error
+ :exclude-subtypes t)
+ :form (signal arith-error nil)
+ :condition (arith-error)
+ :fail-reason
+ "the error signaled did not have the expected type"))))))
+ (let ((test (make-ert-test
+ :body (lambda ()
+ (should-error (signal 'singularity-error nil)
+ :type 'arith-error
+ :exclude-subtypes t)))))
+ (let ((result (ert-run-test test)))
+ (should (ert-test-failed-p result))
+ (should (equal
+ (ert-test-result-with-condition-condition result)
+ '(ert-test-failed
+ ((should-error (signal 'singularity-error nil)
+ :type 'arith-error
+ :exclude-subtypes t)
+ :form (signal singularity-error nil)
+ :condition (singularity-error)
+ :fail-reason
+ "the error signaled was a subtype of the expected type")))))
+ ))
+
+(defmacro ert--test-my-list (&rest args)
+ "Don't use this. Instead, call `list' with ARGS, it does the same thing.
+
+This macro is used to test if macroexpansion in `should' works."
+ `(list ,@args))
+
+(ert-deftest ert-test-should-failure-debugging ()
+ "Test that `should' errors contain the information we expect them to."
+ (loop for (body expected-condition) in
+ `((,(lambda () (let ((x nil)) (should x)))
+ (ert-test-failed ((should x) :form x :value nil)))
+ (,(lambda () (let ((x t)) (should-not x)))
+ (ert-test-failed ((should-not x) :form x :value t)))
+ (,(lambda () (let ((x t)) (should (not x))))
+ (ert-test-failed ((should (not x)) :form (not t) :value nil)))
+ (,(lambda () (let ((x nil)) (should-not (not x))))
+ (ert-test-failed ((should-not (not x)) :form (not nil) :value t)))
+ (,(lambda () (let ((x t) (y nil)) (should-not
+ (ert--test-my-list x y))))
+ (ert-test-failed
+ ((should-not (ert--test-my-list x y))
+ :form (list t nil)
+ :value (t nil))))
+ (,(lambda () (let ((x t)) (should (error "Foo"))))
+ (error "Foo")))
+ do
+ (let ((test (make-ert-test :body body)))
+ (condition-case actual-condition
+ (progn
+ (let ((ert-debug-on-error t))
+ (ert-run-test test))
+ (assert nil))
+ ((error)
+ (should (equal actual-condition expected-condition)))))))
+
+(ert-deftest ert-test-deftest ()
+ (should (equal (macroexpand '(ert-deftest abc () "foo" :tags '(bar)))
+ '(progn
+ (ert-set-test 'abc
+ (make-ert-test :name 'abc
+ :documentation "foo"
+ :tags '(bar)
+ :body (lambda ())))
+ (push '(ert-deftest . abc) current-load-list)
+ 'abc)))
+ (should (equal (macroexpand '(ert-deftest def ()
+ :expected-result ':passed))
+ '(progn
+ (ert-set-test 'def
+ (make-ert-test :name 'def
+ :expected-result-type ':passed
+ :body (lambda ())))
+ (push '(ert-deftest . def) current-load-list)
+ 'def)))
+ ;; :documentation keyword is forbidden
+ (should-error (macroexpand '(ert-deftest ghi ()
+ :documentation "foo"))))
+
+(ert-deftest ert-test-record-backtrace ()
+ (let ((test (make-ert-test :body (lambda () (ert-fail "foo")))))
+ (let ((result (ert-run-test test)))
+ (should (ert-test-failed-p result))
+ (with-temp-buffer
+ (ert--print-backtrace (ert-test-failed-backtrace result))
+ (goto-char (point-min))
+ (end-of-line)
+ (let ((first-line (buffer-substring-no-properties (point-min) (point))))
+ (should (equal first-line " signal(ert-test-failed (\"foo\"))")))))))
+
+(ert-deftest ert-test-messages ()
+ :tags '(:causes-redisplay)
+ (let* ((message-string "Test message")
+ (messages-buffer (get-buffer-create "*Messages*"))
+ (test (make-ert-test :body (lambda () (message "%s" message-string)))))
+ (with-current-buffer messages-buffer
+ (let ((result (ert-run-test test)))
+ (should (equal (concat message-string "\n")
+ (ert-test-result-messages result)))))))
+
+(ert-deftest ert-test-running-tests ()
+ (let ((outer-test (ert-get-test 'ert-test-running-tests)))
+ (should (equal (ert-running-test) outer-test))
+ (let (test1 test2 test3)
+ (setq test1 (make-ert-test
+ :name "1"
+ :body (lambda ()
+ (should (equal (ert-running-test) outer-test))
+ (should (equal ert--running-tests
+ (list test1 test2 test3
+ outer-test)))))
+ test2 (make-ert-test
+ :name "2"
+ :body (lambda ()
+ (should (equal (ert-running-test) outer-test))
+ (should (equal ert--running-tests
+ (list test3 test2 outer-test)))
+ (ert-run-test test1)))
+ test3 (make-ert-test
+ :name "3"
+ :body (lambda ()
+ (should (equal (ert-running-test) outer-test))
+ (should (equal ert--running-tests
+ (list test3 outer-test)))
+ (ert-run-test test2))))
+ (should (ert-test-passed-p (ert-run-test test3))))))
+
+(ert-deftest ert-test-test-result-expected-p ()
+ "Test `ert-test-result-expected-p' and (implicitly) `ert-test-result-type-p'."
+ ;; passing test
+ (let ((test (make-ert-test :body (lambda ()))))
+ (should (ert-test-result-expected-p test (ert-run-test test))))
+ ;; unexpected failure
+ (let ((test (make-ert-test :body (lambda () (ert-fail "failed")))))
+ (should-not (ert-test-result-expected-p test (ert-run-test test))))
+ ;; expected failure
+ (let ((test (make-ert-test :body (lambda () (ert-fail "failed"))
+ :expected-result-type ':failed)))
+ (should (ert-test-result-expected-p test (ert-run-test test))))
+ ;; `not' expected type
+ (let ((test (make-ert-test :body (lambda ())
+ :expected-result-type '(not :failed))))
+ (should (ert-test-result-expected-p test (ert-run-test test))))
+ (let ((test (make-ert-test :body (lambda ())
+ :expected-result-type '(not :passed))))
+ (should-not (ert-test-result-expected-p test (ert-run-test test))))
+ ;; `and' expected type
+ (let ((test (make-ert-test :body (lambda ())
+ :expected-result-type '(and :passed :failed))))
+ (should-not (ert-test-result-expected-p test (ert-run-test test))))
+ (let ((test (make-ert-test :body (lambda ())
+ :expected-result-type '(and :passed
+ (not :failed)))))
+ (should (ert-test-result-expected-p test (ert-run-test test))))
+ ;; `or' expected type
+ (let ((test (make-ert-test :body (lambda ())
+ :expected-result-type '(or (and :passed :failed)
+ :passed))))
+ (should (ert-test-result-expected-p test (ert-run-test test))))
+ (let ((test (make-ert-test :body (lambda ())
+ :expected-result-type '(or (and :passed :failed)
+ nil (not t)))))
+ (should-not (ert-test-result-expected-p test (ert-run-test test)))))
+
+;;; Test `ert-select-tests'.
+(ert-deftest ert-test-select-regexp ()
+ (should (equal (ert-select-tests "^ert-test-select-regexp$" t)
+ (list (ert-get-test 'ert-test-select-regexp)))))
+
+(ert-deftest ert-test-test-boundp ()
+ (should (ert-test-boundp 'ert-test-test-boundp))
+ (should-not (ert-test-boundp (make-symbol "ert-not-a-test"))))
+
+(ert-deftest ert-test-select-member ()
+ (should (equal (ert-select-tests '(member ert-test-select-member) t)
+ (list (ert-get-test 'ert-test-select-member)))))
+
+(ert-deftest ert-test-select-test ()
+ (should (equal (ert-select-tests (ert-get-test 'ert-test-select-test) t)
+ (list (ert-get-test 'ert-test-select-test)))))
+
+(ert-deftest ert-test-select-symbol ()
+ (should (equal (ert-select-tests 'ert-test-select-symbol t)
+ (list (ert-get-test 'ert-test-select-symbol)))))
+
+(ert-deftest ert-test-select-and ()
+ (let ((test (make-ert-test
+ :name nil
+ :body nil
+ :most-recent-result (make-ert-test-failed
+ :condition nil
+ :backtrace nil
+ :infos nil))))
+ (should (equal (ert-select-tests `(and (member ,test) :failed) t)
+ (list test)))))
+
+(ert-deftest ert-test-select-tag ()
+ (let ((test (make-ert-test
+ :name nil
+ :body nil
+ :tags '(a b))))
+ (should (equal (ert-select-tests `(tag a) (list test)) (list test)))
+ (should (equal (ert-select-tests `(tag b) (list test)) (list test)))
+ (should (equal (ert-select-tests `(tag c) (list test)) '()))))
+
+
+;;; Tests for utility functions.
+(ert-deftest ert-test-proper-list-p ()
+ (should (ert--proper-list-p '()))
+ (should (ert--proper-list-p '(1)))
+ (should (ert--proper-list-p '(1 2)))
+ (should (ert--proper-list-p '(1 2 3)))
+ (should (ert--proper-list-p '(1 2 3 4)))
+ (should (not (ert--proper-list-p 'a)))
+ (should (not (ert--proper-list-p '(1 . a))))
+ (should (not (ert--proper-list-p '(1 2 . a))))
+ (should (not (ert--proper-list-p '(1 2 3 . a))))
+ (should (not (ert--proper-list-p '(1 2 3 4 . a))))
+ (let ((a (list 1)))
+ (setf (cdr (last a)) a)
+ (should (not (ert--proper-list-p a))))
+ (let ((a (list 1 2)))
+ (setf (cdr (last a)) a)
+ (should (not (ert--proper-list-p a))))
+ (let ((a (list 1 2 3)))
+ (setf (cdr (last a)) a)
+ (should (not (ert--proper-list-p a))))
+ (let ((a (list 1 2 3 4)))
+ (setf (cdr (last a)) a)
+ (should (not (ert--proper-list-p a))))
+ (let ((a (list 1 2)))
+ (setf (cdr (last a)) (cdr a))
+ (should (not (ert--proper-list-p a))))
+ (let ((a (list 1 2 3)))
+ (setf (cdr (last a)) (cdr a))
+ (should (not (ert--proper-list-p a))))
+ (let ((a (list 1 2 3 4)))
+ (setf (cdr (last a)) (cdr a))
+ (should (not (ert--proper-list-p a))))
+ (let ((a (list 1 2 3)))
+ (setf (cdr (last a)) (cddr a))
+ (should (not (ert--proper-list-p a))))
+ (let ((a (list 1 2 3 4)))
+ (setf (cdr (last a)) (cddr a))
+ (should (not (ert--proper-list-p a))))
+ (let ((a (list 1 2 3 4)))
+ (setf (cdr (last a)) (cdddr a))
+ (should (not (ert--proper-list-p a)))))
+
+(ert-deftest ert-test-parse-keys-and-body ()
+ (should (equal (ert--parse-keys-and-body '(foo)) '(nil (foo))))
+ (should (equal (ert--parse-keys-and-body '(:bar foo)) '((:bar foo) nil)))
+ (should (equal (ert--parse-keys-and-body '(:bar foo a (b)))
+ '((:bar foo) (a (b)))))
+ (should (equal (ert--parse-keys-and-body '(:bar foo :a (b)))
+ '((:bar foo :a (b)) nil)))
+ (should (equal (ert--parse-keys-and-body '(bar foo :a (b)))
+ '(nil (bar foo :a (b)))))
+ (should-error (ert--parse-keys-and-body '(:bar foo :a))))
+
+
+(ert-deftest ert-test-run-tests-interactively ()
+ :tags '(:causes-redisplay)
+ (let ((passing-test (make-ert-test :name 'passing-test
+ :body (lambda () (ert-pass))))
+ (failing-test (make-ert-test :name 'failing-test
+ :body (lambda () (ert-fail
+ "failure message")))))
+ (let ((ert-debug-on-error nil))
+ (let* ((buffer-name (generate-new-buffer-name " *ert-test-run-tests*"))
+ (messages nil)
+ (mock-message-fn
+ (lambda (format-string &rest args)
+ (push (apply #'format format-string args) messages))))
+ (save-window-excursion
+ (unwind-protect
+ (let ((case-fold-search nil))
+ (ert-run-tests-interactively
+ `(member ,passing-test ,failing-test) buffer-name
+ mock-message-fn)
+ (should (equal messages `(,(concat
+ "Ran 2 tests, 1 results were "
+ "as expected, 1 unexpected"))))
+ (with-current-buffer buffer-name
+ (goto-char (point-min))
+ (should (equal
+ (buffer-substring (point-min)
+ (save-excursion
+ (forward-line 4)
+ (point)))
+ (concat
+ "Selector: (member <passing-test> <failing-test>)\n"
+ "Passed: 1\n"
+ "Failed: 1 (1 unexpected)\n"
+ "Total: 2/2\n")))))
+ (when (get-buffer buffer-name)
+ (kill-buffer buffer-name))))))))
+
+(ert-deftest ert-test-special-operator-p ()
+ (should (ert--special-operator-p 'if))
+ (should-not (ert--special-operator-p 'car))
+ (should-not (ert--special-operator-p 'ert--special-operator-p))
+ (let ((b (ert--gensym)))
+ (should-not (ert--special-operator-p b))
+ (fset b 'if)
+ (should (ert--special-operator-p b))))
+
+(ert-deftest ert-test-list-of-should-forms ()
+ (let ((test (make-ert-test :body (lambda ()
+ (should t)
+ (should (null '()))
+ (should nil)
+ (should t)))))
+ (let ((result (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (should (equal (ert-test-result-should-forms result)
+ '(((should t) :form t :value t)
+ ((should (null '())) :form (null nil) :value t)
+ ((should nil) :form nil :value nil)))))))
+
+(ert-deftest ert-test-list-of-should-forms-observers-should-not-stack ()
+ (let ((test (make-ert-test
+ :body (lambda ()
+ (let ((test2 (make-ert-test
+ :body (lambda ()
+ (should t)))))
+ (let ((result (ert-run-test test2)))
+ (should (ert-test-passed-p result))))))))
+ (let ((result (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (should (ert-test-passed-p result))
+ (should (eql (length (ert-test-result-should-forms result))
+ 1)))))
+
+(ert-deftest ert-test-list-of-should-forms-no-deep-copy ()
+ (let ((test (make-ert-test :body (lambda ()
+ (let ((obj (list 'a)))
+ (should (equal obj '(a)))
+ (setf (car obj) 'b)
+ (should (equal obj '(b))))))))
+ (let ((result (let ((ert-debug-on-error nil))
+ (ert-run-test test))))
+ (should (ert-test-passed-p result))
+ (should (equal (ert-test-result-should-forms result)
+ '(((should (equal obj '(a))) :form (equal (b) (a)) :value t
+ :explanation nil)
+ ((should (equal obj '(b))) :form (equal (b) (b)) :value t
+ :explanation nil)
+ ))))))
+
+(ert-deftest ert-test-remprop ()
+ (let ((x (ert--gensym)))
+ (should (equal (symbol-plist x) '()))
+ ;; Remove nonexistent property on empty plist.
+ (ert--remprop x 'b)
+ (should (equal (symbol-plist x) '()))
+ (put x 'a 1)
+ (should (equal (symbol-plist x) '(a 1)))
+ ;; Remove nonexistent property on nonempty plist.
+ (ert--remprop x 'b)
+ (should (equal (symbol-plist x) '(a 1)))
+ (put x 'b 2)
+ (put x 'c 3)
+ (put x 'd 4)
+ (should (equal (symbol-plist x) '(a 1 b 2 c 3 d 4)))
+ ;; Remove property that is neither first nor last.
+ (ert--remprop x 'c)
+ (should (equal (symbol-plist x) '(a 1 b 2 d 4)))
+ ;; Remove last property from a plist of length >1.
+ (ert--remprop x 'd)
+ (should (equal (symbol-plist x) '(a 1 b 2)))
+ ;; Remove first property from a plist of length >1.
+ (ert--remprop x 'a)
+ (should (equal (symbol-plist x) '(b 2)))
+ ;; Remove property when there is only one.
+ (ert--remprop x 'b)
+ (should (equal (symbol-plist x) '()))))
+
+(ert-deftest ert-test-remove-if-not ()
+ (let ((list (list 'a 'b 'c 'd))
+ (i 0))
+ (let ((result (ert--remove-if-not (lambda (x)
+ (should (eql x (nth i list)))
+ (incf i)
+ (member i '(2 3)))
+ list)))
+ (should (equal i 4))
+ (should (equal result '(b c)))
+ (should (equal list '(a b c d)))))
+ (should (equal '()
+ (ert--remove-if-not (lambda (x) (should nil)) '()))))
+
+(ert-deftest ert-test-remove* ()
+ (let ((list (list 'a 'b 'c 'd))
+ (key-index 0)
+ (test-index 0))
+ (let ((result
+ (ert--remove* 'foo list
+ :key (lambda (x)
+ (should (eql x (nth key-index list)))
+ (prog1
+ (list key-index x)
+ (incf key-index)))
+ :test
+ (lambda (a b)
+ (should (eql a 'foo))
+ (should (equal b (list test-index
+ (nth test-index list))))
+ (incf test-index)
+ (member test-index '(2 3))))))
+ (should (equal key-index 4))
+ (should (equal test-index 4))
+ (should (equal result '(a d)))
+ (should (equal list '(a b c d)))))
+ (let ((x (cons nil nil))
+ (y (cons nil nil)))
+ (should (equal (ert--remove* x (list x y))
+ ;; or (list x), since we use `equal' -- the
+ ;; important thing is that only one element got
+ ;; removed, this proves that the default test is
+ ;; `eql', not `equal'
+ (list y)))))
+
+
+(ert-deftest ert-test-set-functions ()
+ (let ((c1 (cons nil nil))
+ (c2 (cons nil nil))
+ (sym (make-symbol "a")))
+ (let ((e '())
+ (a (list 'a 'b sym nil "" "x" c1 c2))
+ (b (list c1 'y 'b sym 'x)))
+ (should (equal (ert--set-difference e e) e))
+ (should (equal (ert--set-difference a e) a))
+ (should (equal (ert--set-difference e a) e))
+ (should (equal (ert--set-difference a a) e))
+ (should (equal (ert--set-difference b e) b))
+ (should (equal (ert--set-difference e b) e))
+ (should (equal (ert--set-difference b b) e))
+ (should (equal (ert--set-difference a b) (list 'a nil "" "x" c2)))
+ (should (equal (ert--set-difference b a) (list 'y 'x)))
+
+ ;; We aren't testing whether this is really using `eq' rather than `eql'.
+ (should (equal (ert--set-difference-eq e e) e))
+ (should (equal (ert--set-difference-eq a e) a))
+ (should (equal (ert--set-difference-eq e a) e))
+ (should (equal (ert--set-difference-eq a a) e))
+ (should (equal (ert--set-difference-eq b e) b))
+ (should (equal (ert--set-difference-eq e b) e))
+ (should (equal (ert--set-difference-eq b b) e))
+ (should (equal (ert--set-difference-eq a b) (list 'a nil "" "x" c2)))
+ (should (equal (ert--set-difference-eq b a) (list 'y 'x)))
+
+ (should (equal (ert--union e e) e))
+ (should (equal (ert--union a e) a))
+ (should (equal (ert--union e a) a))
+ (should (equal (ert--union a a) a))
+ (should (equal (ert--union b e) b))
+ (should (equal (ert--union e b) b))
+ (should (equal (ert--union b b) b))
+ (should (equal (ert--union a b) (list 'a 'b sym nil "" "x" c1 c2 'y 'x)))
+ (should (equal (ert--union b a) (list c1 'y 'b sym 'x 'a nil "" "x" c2)))
+
+ (should (equal (ert--intersection e e) e))
+ (should (equal (ert--intersection a e) e))
+ (should (equal (ert--intersection e a) e))
+ (should (equal (ert--intersection a a) a))
+ (should (equal (ert--intersection b e) e))
+ (should (equal (ert--intersection e b) e))
+ (should (equal (ert--intersection b b) b))
+ (should (equal (ert--intersection a b) (list 'b sym c1)))
+ (should (equal (ert--intersection b a) (list c1 'b sym))))))
+
+(ert-deftest ert-test-gensym ()
+ ;; Since the expansion of `should' calls `ert--gensym' and thus has a
+ ;; side-effect on `ert--gensym-counter', we have to make sure all
+ ;; macros in our test body are expanded before we rebind
+ ;; `ert--gensym-counter' and run the body. Otherwise, the test would
+ ;; fail if run interpreted.
+ (let ((body (byte-compile
+ '(lambda ()
+ (should (equal (symbol-name (ert--gensym)) "G0"))
+ (should (equal (symbol-name (ert--gensym)) "G1"))
+ (should (equal (symbol-name (ert--gensym)) "G2"))
+ (should (equal (symbol-name (ert--gensym "foo")) "foo3"))
+ (should (equal (symbol-name (ert--gensym "bar")) "bar4"))
+ (should (equal ert--gensym-counter 5))))))
+ (let ((ert--gensym-counter 0))
+ (funcall body))))
+
+(ert-deftest ert-test-coerce-to-vector ()
+ (let* ((a (vector))
+ (b (vector 1 a 3))
+ (c (list))
+ (d (list b a)))
+ (should (eql (ert--coerce-to-vector a) a))
+ (should (eql (ert--coerce-to-vector b) b))
+ (should (equal (ert--coerce-to-vector c) (vector)))
+ (should (equal (ert--coerce-to-vector d) (vector b a)))))
+
+(ert-deftest ert-test-string-position ()
+ (should (eql (ert--string-position ?x "") nil))
+ (should (eql (ert--string-position ?a "abc") 0))
+ (should (eql (ert--string-position ?b "abc") 1))
+ (should (eql (ert--string-position ?c "abc") 2))
+ (should (eql (ert--string-position ?d "abc") nil))
+ (should (eql (ert--string-position ?A "abc") nil)))
+
+(ert-deftest ert-test-mismatch ()
+ (should (eql (ert--mismatch "" "") nil))
+ (should (eql (ert--mismatch "" "a") 0))
+ (should (eql (ert--mismatch "a" "a") nil))
+ (should (eql (ert--mismatch "ab" "a") 1))
+ (should (eql (ert--mismatch "Aa" "aA") 0))
+ (should (eql (ert--mismatch '(a b c) '(a b d)) 2)))
+
+(ert-deftest ert-test-string-first-line ()
+ (should (equal (ert--string-first-line "") ""))
+ (should (equal (ert--string-first-line "abc") "abc"))
+ (should (equal (ert--string-first-line "abc\n") "abc"))
+ (should (equal (ert--string-first-line "foo\nbar") "foo"))
+ (should (equal (ert--string-first-line " foo\nbar\nbaz\n") " foo")))
+
+(ert-deftest ert-test-explain-equal ()
+ (should (equal (ert--explain-equal nil 'foo)
+ '(different-atoms nil foo)))
+ (should (equal (ert--explain-equal '(a a) '(a b))
+ '(list-elt 1 (different-atoms a b))))
+ (should (equal (ert--explain-equal '(1 48) '(1 49))
+ '(list-elt 1 (different-atoms (48 "#x30" "?0")
+ (49 "#x31" "?1")))))
+ (should (equal (ert--explain-equal 'nil '(a))
+ '(different-types nil (a))))
+ (should (equal (ert--explain-equal '(a b c) '(a b c d))
+ '(proper-lists-of-different-length 3 4 (a b c) (a b c d)
+ first-mismatch-at 3)))
+ (let ((sym (make-symbol "a")))
+ (should (equal (ert--explain-equal 'a sym)
+ `(different-symbols-with-the-same-name a ,sym)))))
+
+(ert-deftest ert-test-explain-equal-improper-list ()
+ (should (equal (ert--explain-equal '(a . b) '(a . c))
+ '(cdr (different-atoms b c)))))
+
+(ert-deftest ert-test-explain-equal-keymaps ()
+ ;; This used to be very slow.
+ (should (equal (make-keymap) (make-keymap)))
+ (should (equal (make-sparse-keymap) (make-sparse-keymap))))
+
+(ert-deftest ert-test-significant-plist-keys ()
+ (should (equal (ert--significant-plist-keys '()) '()))
+ (should (equal (ert--significant-plist-keys '(a b c d e f c g p q r nil s t))
+ '(a c e p s))))
+
+(ert-deftest ert-test-plist-difference-explanation ()
+ (should (equal (ert--plist-difference-explanation
+ '(a b c nil) '(a b))
+ nil))
+ (should (equal (ert--plist-difference-explanation
+ '(a b c t) '(a b))
+ '(different-properties-for-key c (different-atoms t nil))))
+ (should (equal (ert--plist-difference-explanation
+ '(a b c t) '(c nil a b))
+ '(different-properties-for-key c (different-atoms t nil))))
+ (should (equal (ert--plist-difference-explanation
+ '(a b c (foo . bar)) '(c (foo . baz) a b))
+ '(different-properties-for-key c
+ (cdr
+ (different-atoms bar baz))))))
+
+(ert-deftest ert-test-abbreviate-string ()
+ (should (equal (ert--abbreviate-string "foo" 4 nil) "foo"))
+ (should (equal (ert--abbreviate-string "foo" 3 nil) "foo"))
+ (should (equal (ert--abbreviate-string "foo" 3 nil) "foo"))
+ (should (equal (ert--abbreviate-string "foo" 2 nil) "fo"))
+ (should (equal (ert--abbreviate-string "foo" 1 nil) "f"))
+ (should (equal (ert--abbreviate-string "foo" 0 nil) ""))
+ (should (equal (ert--abbreviate-string "bar" 4 t) "bar"))
+ (should (equal (ert--abbreviate-string "bar" 3 t) "bar"))
+ (should (equal (ert--abbreviate-string "bar" 3 t) "bar"))
+ (should (equal (ert--abbreviate-string "bar" 2 t) "ar"))
+ (should (equal (ert--abbreviate-string "bar" 1 t) "r"))
+ (should (equal (ert--abbreviate-string "bar" 0 t) "")))
+
+(ert-deftest ert-test-explain-equal-string-properties ()
+ (should
+ (equal (ert--explain-equal-including-properties #("foo" 0 1 (a b))
+ "foo")
+ '(char 0 "f"
+ (different-properties-for-key a (different-atoms b nil))
+ context-before ""
+ context-after "oo")))
+ (should (equal (ert--explain-equal-including-properties
+ #("foo" 1 3 (a b))
+ #("goo" 0 1 (c d)))
+ '(array-elt 0 (different-atoms (?f "#x66" "?f")
+ (?g "#x67" "?g")))))
+ (should
+ (equal (ert--explain-equal-including-properties
+ #("foo" 0 1 (a b c d) 1 3 (a b))
+ #("foo" 0 1 (c d a b) 1 2 (a foo)))
+ '(char 1 "o" (different-properties-for-key a (different-atoms b foo))
+ context-before "f" context-after "o"))))
+
+(ert-deftest ert-test-equal-including-properties ()
+ (should (equal-including-properties "foo" "foo"))
+ (should (ert-equal-including-properties "foo" "foo"))
+
+ (should (equal-including-properties #("foo" 0 3 (a b))
+ (propertize "foo" 'a 'b)))
+ (should (ert-equal-including-properties #("foo" 0 3 (a b))
+ (propertize "foo" 'a 'b)))
+
+ (should (equal-including-properties #("foo" 0 3 (a b c d))
+ (propertize "foo" 'a 'b 'c 'd)))
+ (should (ert-equal-including-properties #("foo" 0 3 (a b c d))
+ (propertize "foo" 'a 'b 'c 'd)))
+
+ (should-not (equal-including-properties #("foo" 0 3 (a b c e))
+ (propertize "foo" 'a 'b 'c 'd)))
+ (should-not (ert-equal-including-properties #("foo" 0 3 (a b c e))
+ (propertize "foo" 'a 'b 'c 'd)))
+
+ ;; This is bug 6581.
+ (should-not (equal-including-properties #("foo" 0 3 (a (t)))
+ (propertize "foo" 'a (list t))))
+ (should (ert-equal-including-properties #("foo" 0 3 (a (t)))
+ (propertize "foo" 'a (list t)))))
+
+(ert-deftest ert-test-stats-set-test-and-result ()
+ (let* ((test-1 (make-ert-test :name 'test-1
+ :body (lambda () nil)))
+ (test-2 (make-ert-test :name 'test-2
+ :body (lambda () nil)))
+ (test-3 (make-ert-test :name 'test-2
+ :body (lambda () nil)))
+ (stats (ert--make-stats (list test-1 test-2) 't))
+ (failed (make-ert-test-failed :condition nil
+ :backtrace nil
+ :infos nil)))
+ (should (eql 2 (ert-stats-total stats)))
+ (should (eql 0 (ert-stats-completed stats)))
+ (should (eql 0 (ert-stats-completed-expected stats)))
+ (should (eql 0 (ert-stats-completed-unexpected stats)))
+ (ert--stats-set-test-and-result stats 0 test-1 (make-ert-test-passed))
+ (should (eql 2 (ert-stats-total stats)))
+ (should (eql 1 (ert-stats-completed stats)))
+ (should (eql 1 (ert-stats-completed-expected stats)))
+ (should (eql 0 (ert-stats-completed-unexpected stats)))
+ (ert--stats-set-test-and-result stats 0 test-1 failed)
+ (should (eql 2 (ert-stats-total stats)))
+ (should (eql 1 (ert-stats-completed stats)))
+ (should (eql 0 (ert-stats-completed-expected stats)))
+ (should (eql 1 (ert-stats-completed-unexpected stats)))
+ (ert--stats-set-test-and-result stats 0 test-1 nil)
+ (should (eql 2 (ert-stats-total stats)))
+ (should (eql 0 (ert-stats-completed stats)))
+ (should (eql 0 (ert-stats-completed-expected stats)))
+ (should (eql 0 (ert-stats-completed-unexpected stats)))
+ (ert--stats-set-test-and-result stats 0 test-3 failed)
+ (should (eql 2 (ert-stats-total stats)))
+ (should (eql 1 (ert-stats-completed stats)))
+ (should (eql 0 (ert-stats-completed-expected stats)))
+ (should (eql 1 (ert-stats-completed-unexpected stats)))
+ (ert--stats-set-test-and-result stats 1 test-2 (make-ert-test-passed))
+ (should (eql 2 (ert-stats-total stats)))
+ (should (eql 2 (ert-stats-completed stats)))
+ (should (eql 1 (ert-stats-completed-expected stats)))
+ (should (eql 1 (ert-stats-completed-unexpected stats)))
+ (ert--stats-set-test-and-result stats 0 test-1 (make-ert-test-passed))
+ (should (eql 2 (ert-stats-total stats)))
+ (should (eql 2 (ert-stats-completed stats)))
+ (should (eql 2 (ert-stats-completed-expected stats)))
+ (should (eql 0 (ert-stats-completed-unexpected stats)))))
+
+
+(provide 'ert-tests)
+
+;;; ert-tests.el ends here
--- /dev/null
+;;; ert-x-tests.el --- Tests for ert-x.el
+
+;; Copyright (C) 2008, 2010-2013 Free Software Foundation, Inc.
+
+;; Author: Phil Hagelberg
+;; Christian Ohler <ohler@gnu.org>
+
+;; This file is part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation, either version 3 of the
+;; License, or (at your option) any later version.
+;;
+;; This program 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 this program. If not, see `http://www.gnu.org/licenses/'.
+
+;;; Commentary:
+
+;; This file is part of ERT, the Emacs Lisp Regression Testing tool.
+;; See ert.el or the texinfo manual for more details.
+
+;;; Code:
+
+(eval-when-compile
+ (require 'cl))
+(require 'ert)
+(require 'ert-x)
+
+;;; Utilities
+
+(ert-deftest ert-test-buffer-string-reindented ()
+ (ert-with-test-buffer (:name "well-indented")
+ (insert (concat "(hello (world\n"
+ " 'elisp)\n"))
+ (emacs-lisp-mode)
+ (should (equal (ert-buffer-string-reindented) (buffer-string))))
+ (ert-with-test-buffer (:name "badly-indented")
+ (insert (concat "(hello\n"
+ " world)"))
+ (emacs-lisp-mode)
+ (should-not (equal (ert-buffer-string-reindented) (buffer-string)))))
+
+(defun ert--hash-table-to-alist (table)
+ (let ((accu nil))
+ (maphash (lambda (key value)
+ (push (cons key value) accu))
+ table)
+ (nreverse accu)))
+
+(ert-deftest ert-test-test-buffers ()
+ (let (buffer-1
+ buffer-2)
+ (let ((test-1
+ (make-ert-test
+ :name 'test-1
+ :body (lambda ()
+ (ert-with-test-buffer (:name "foo")
+ (should (string-match
+ "[*]Test buffer (ert-test-test-buffers): foo[*]"
+ (buffer-name)))
+ (setq buffer-1 (current-buffer))))))
+ (test-2
+ (make-ert-test
+ :name 'test-2
+ :body (lambda ()
+ (ert-with-test-buffer (:name "bar")
+ (should (string-match
+ "[*]Test buffer (ert-test-test-buffers): bar[*]"
+ (buffer-name)))
+ (setq buffer-2 (current-buffer))
+ (ert-fail "fail for test"))))))
+ (let ((ert--test-buffers (make-hash-table :weakness t)))
+ (ert-run-tests `(member ,test-1 ,test-2) #'ignore)
+ (should (equal (ert--hash-table-to-alist ert--test-buffers)
+ `((,buffer-2 . t))))
+ (should-not (buffer-live-p buffer-1))
+ (should (buffer-live-p buffer-2))))))
+
+
+(ert-deftest ert-filter-string ()
+ (should (equal (ert-filter-string "foo bar baz" "quux")
+ "foo bar baz"))
+ (should (equal (ert-filter-string "foo bar baz" "bar")
+ "foo baz")))
+
+(ert-deftest ert-propertized-string ()
+ (should (ert-equal-including-properties
+ (ert-propertized-string "a" '(a b) "b" '(c t) "cd")
+ #("abcd" 1 2 (a b) 2 4 (c t))))
+ (should (ert-equal-including-properties
+ (ert-propertized-string "foo " '(face italic) "bar" " baz" nil
+ " quux")
+ #("foo bar baz quux" 4 11 (face italic)))))
+
+
+;;; Tests for ERT itself that require test features from ert-x.el.
+
+(ert-deftest ert-test-run-tests-interactively-2 ()
+ :tags '(:causes-redisplay)
+ (let* ((passing-test (make-ert-test :name 'passing-test
+ :body (lambda () (ert-pass))))
+ (failing-test (make-ert-test :name 'failing-test
+ :body (lambda ()
+ (ert-info ((propertize "foo\nbar"
+ 'a 'b))
+ (ert-fail
+ "failure message")))))
+ (ert-debug-on-error nil)
+ (buffer-name (generate-new-buffer-name "*ert-test-run-tests*"))
+ (messages nil)
+ (mock-message-fn
+ (lambda (format-string &rest args)
+ (push (apply #'format format-string args) messages))))
+ (cl-flet ((expected-string (with-font-lock-p)
+ (ert-propertized-string
+ "Selector: (member <passing-test> <failing-test>)\n"
+ "Passed: 1\n"
+ "Failed: 1 (1 unexpected)\n"
+ "Total: 2/2\n\n"
+ "Started at:\n"
+ "Finished.\n"
+ "Finished at:\n\n"
+ `(category ,(button-category-symbol
+ 'ert--results-progress-bar-button)
+ button (t)
+ face ,(if with-font-lock-p
+ 'ert-test-result-unexpected
+ 'button))
+ ".F" nil "\n\n"
+ `(category ,(button-category-symbol
+ 'ert--results-expand-collapse-button)
+ button (t)
+ face ,(if with-font-lock-p
+ 'ert-test-result-unexpected
+ 'button))
+ "F" nil " "
+ `(category ,(button-category-symbol
+ 'ert--test-name-button)
+ button (t)
+ ert-test-name failing-test)
+ "failing-test"
+ nil "\n Info: " '(a b) "foo\n"
+ nil " " '(a b) "bar"
+ nil "\n (ert-test-failed \"failure message\")\n\n\n"
+ )))
+ (save-window-excursion
+ (unwind-protect
+ (let ((case-fold-search nil))
+ (ert-run-tests-interactively
+ `(member ,passing-test ,failing-test) buffer-name
+ mock-message-fn)
+ (should (equal messages `(,(concat
+ "Ran 2 tests, 1 results were "
+ "as expected, 1 unexpected"))))
+ (with-current-buffer buffer-name
+ (font-lock-mode 0)
+ (should (ert-equal-including-properties
+ (ert-filter-string (buffer-string)
+ '("Started at:\\(.*\\)$" 1)
+ '("Finished at:\\(.*\\)$" 1))
+ (expected-string nil)))
+ ;; `font-lock-mode' only works if interactive, so
+ ;; pretend we are.
+ (let ((noninteractive nil))
+ (font-lock-mode 1))
+ (should (ert-equal-including-properties
+ (ert-filter-string (buffer-string)
+ '("Started at:\\(.*\\)$" 1)
+ '("Finished at:\\(.*\\)$" 1))
+ (expected-string t)))))
+ (when (get-buffer buffer-name)
+ (kill-buffer buffer-name)))))))
+
+(ert-deftest ert-test-describe-test ()
+ "Tests `ert-describe-test'."
+ (save-window-excursion
+ (ert-with-buffer-renamed ("*Help*")
+ (if (< emacs-major-version 24)
+ (should (equal (should-error (ert-describe-test 'ert-describe-test))
+ '(error "Requires Emacs 24")))
+ (ert-describe-test 'ert-test-describe-test)
+ (with-current-buffer "*Help*"
+ (let ((case-fold-search nil))
+ (should (string-match (concat
+ "\\`ert-test-describe-test is a test"
+ " defined in `ert-x-tests.elc?'\\.\n\n"
+ "Tests `ert-describe-test'\\.\n\\'")
+ (buffer-string)))))))))
+
+(ert-deftest ert-test-message-log-truncation ()
+ :tags '(:causes-redisplay)
+ (let ((test (make-ert-test
+ :body (lambda ()
+ ;; Emacs would combine messages if we
+ ;; generate the same message multiple
+ ;; times.
+ (message "a")
+ (message "b")
+ (message "c")
+ (message "d")))))
+ (let (result)
+ (ert-with-buffer-renamed ("*Messages*")
+ (let ((message-log-max 2))
+ (setq result (ert-run-test test)))
+ (should (equal (with-current-buffer "*Messages*"
+ (buffer-string))
+ "c\nd\n")))
+ (should (equal (ert-test-result-messages result) "a\nb\nc\nd\n")))))
+
+(ert-deftest ert-test-builtin-message-log-flushing ()
+ "This test attempts to demonstrate that there is no way to
+force immediate truncation of the *Messages* buffer from Lisp
+\(and hence justifies the existence of
+`ert--force-message-log-buffer-truncation'\): The only way that
+came to my mind was \(message \"\"\), which doesn't have the
+desired effect."
+ :tags '(:causes-redisplay)
+ (ert-with-buffer-renamed ("*Messages*")
+ (with-current-buffer "*Messages*"
+ (should (equal (buffer-string) ""))
+ ;; We used to get sporadic failures in this test that involved
+ ;; a spurious newline at the beginning of the buffer, before
+ ;; the first message. Below, we print a message and erase the
+ ;; buffer since this seems to eliminate the sporadic failures.
+ (message "foo")
+ (erase-buffer)
+ (should (equal (buffer-string) ""))
+ (let ((message-log-max 2))
+ (let ((message-log-max t))
+ (loop for i below 4 do
+ (message "%s" i))
+ (should (equal (buffer-string) "0\n1\n2\n3\n")))
+ (should (equal (buffer-string) "0\n1\n2\n3\n"))
+ (message "")
+ (should (equal (buffer-string) "0\n1\n2\n3\n"))
+ (message "Test message")
+ (should (equal (buffer-string) "3\nTest message\n"))))))
+
+(ert-deftest ert-test-force-message-log-buffer-truncation ()
+ :tags '(:causes-redisplay)
+ (labels ((body ()
+ (loop for i below 3 do
+ (message "%s" i)))
+ ;; Uses the implicit messages buffer truncation implemented
+ ;; in Emacs' C core.
+ (c (x)
+ (ert-with-buffer-renamed ("*Messages*")
+ (let ((message-log-max x))
+ (body))
+ (with-current-buffer "*Messages*"
+ (buffer-string))))
+ ;; Uses our lisp reimplementation.
+ (lisp (x)
+ (ert-with-buffer-renamed ("*Messages*")
+ (let ((message-log-max t))
+ (body))
+ (let ((message-log-max x))
+ (ert--force-message-log-buffer-truncation))
+ (with-current-buffer "*Messages*"
+ (buffer-string)))))
+ (loop for x in '(0 1 2 3 4 t) do
+ (should (equal (c x) (lisp x))))))
+
+
+(provide 'ert-x-tests)
+
+;;; ert-x-tests.el ends here
--- /dev/null
+;;; f90.el --- tests for progmodes/f90.el
+
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
+
+;; Author: Glenn Morris <rgm@gnu.org>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This file does not have "test" in the name, because it lives under
+;; a test/ directory, so that would be superfluous.
+
+;;; Code:
+
+(require 'ert)
+(require 'f90)
+
+(defconst f90-test-indent "\
+!! Comment before code.
+!!! Comments before code.
+#preprocessor before code
+
+program progname
+
+ implicit none
+
+ integer :: i
+
+ !! Comment.
+
+ do i = 1, 10
+
+#preprocessor
+
+ !! Comment.
+ if ( i % 2 == 0 ) then
+ !! Comment.
+ cycle
+ else
+ write(*,*) i
+ end if
+ end do
+
+!!! Comment.
+
+end program progname
+"
+ "Test string for F90 indentation.")
+
+(ert-deftest f90-test-indent ()
+ "Test F90 indentation."
+ (with-temp-buffer
+ (f90-mode)
+ (insert f90-test-indent)
+ (indent-rigidly (point-min) (point-max) -999)
+ (f90-indent-region (point-min) (point-max))
+ (should (string-equal (buffer-string) f90-test-indent))))
+
+(ert-deftest f90-test-bug3729 ()
+ "Test for http://debbugs.gnu.org/3729 ."
+ :expected-result :failed
+ (with-temp-buffer
+ (f90-mode)
+ (insert "!! Comment
+
+include \"file.f90\"
+
+subroutine test (x)
+ real x
+ x = x+1.
+ return
+end subroutine test")
+ (goto-char (point-min))
+ (forward-line 2)
+ (f90-indent-subprogram)
+ (should (= 0 (current-indentation)))))
+
+(ert-deftest f90-test-bug3730 ()
+ "Test for http://debbugs.gnu.org/3730 ."
+ (with-temp-buffer
+ (f90-mode)
+ (insert "a" )
+ (move-to-column 68 t)
+ (insert "(/ x /)")
+ (f90-do-auto-fill)
+ (beginning-of-line)
+ (skip-chars-forward "[ \t]")
+ (should (equal "&(/" (buffer-substring (point) (+ 3 (point)))))))
+
+;; TODO bug#5593
+
+(ert-deftest f90-test-bug8691 ()
+ "Test for http://debbugs.gnu.org/8691 ."
+ (with-temp-buffer
+ (f90-mode)
+ (insert "module modname
+type, bind(c) :: type1
+integer :: part1
+end type type1
+end module modname")
+ (f90-indent-subprogram)
+ (forward-line -1)
+ (should (= 2 (current-indentation)))))
+
+;; TODO bug#8812
+
+(ert-deftest f90-test-bug8820 ()
+ "Test for http://debbugs.gnu.org/8820 ."
+ (with-temp-buffer
+ (f90-mode)
+ (should (eq (char-syntax ?%) (string-to-char ".")))))
+
+(ert-deftest f90-test-bug9553a ()
+ "Test for http://debbugs.gnu.org/9553 ."
+ (with-temp-buffer
+ (f90-mode)
+ (insert "!!!")
+ (dotimes (_i 20) (insert " aaaa"))
+ (f90-do-auto-fill)
+ (beginning-of-line)
+ ;; This gives a more informative failure than looking-at.
+ (should (equal "!!! a" (buffer-substring (point) (+ 5 (point)))))))
+
+(ert-deftest f90-test-bug9553b ()
+ "Test for http://debbugs.gnu.org/9553 ."
+ (with-temp-buffer
+ (f90-mode)
+ (insert "!!!")
+ (dotimes (_i 13) (insert " aaaa"))
+ (insert "a, aaaa")
+ (f90-do-auto-fill)
+ (beginning-of-line)
+ (should (equal "!!! a" (buffer-substring (point) (+ 5 (point)))))))
+
+(ert-deftest f90-test-bug9690 ()
+ "Test for http://debbugs.gnu.org/9690 ."
+ (with-temp-buffer
+ (f90-mode)
+ (insert "#include \"foo.h\"")
+ (f90-indent-line)
+ (should (= 0 (current-indentation)))))
+
+
+;;; f90.el ends here
--- /dev/null
+;;; files.el --- tests for file handling.
+
+;; Copyright (C) 2012-2013 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert)
+
+;; Set to t if the local variable was set, `query' if the query was
+;; triggered.
+(defvar files-test-result)
+
+(defvar files-test-safe-result)
+(put 'files-test-safe-result 'safe-local-variable 'booleanp)
+
+(defun files-test-fun1 ()
+ (setq files-test-result t))
+
+;; Test combinations:
+;; `enable-local-variables' t, nil, :safe, :all, or something else.
+;; `enable-local-eval' t, nil, or something else.
+
+(defvar files-test-local-variable-data
+ ;; Unsafe eval form
+ '((("eval: (files-test-fun1)")
+ (t t (eq files-test-result t))
+ (t nil (eq files-test-result nil))
+ (t maybe (eq files-test-result 'query))
+ (nil t (eq files-test-result nil))
+ (nil nil (eq files-test-result nil))
+ (nil maybe (eq files-test-result nil))
+ (:safe t (eq files-test-result nil))
+ (:safe nil (eq files-test-result nil))
+ (:safe maybe (eq files-test-result nil))
+ (:all t (eq files-test-result t))
+ (:all nil (eq files-test-result nil))
+ (:all maybe (eq files-test-result t)) ; This combination is ambiguous.
+ (maybe t (eq files-test-result 'query))
+ (maybe nil (eq files-test-result 'query))
+ (maybe maybe (eq files-test-result 'query)))
+ ;; Unsafe local variable value
+ (("files-test-result: t")
+ (t t (eq files-test-result 'query))
+ (t nil (eq files-test-result 'query))
+ (t maybe (eq files-test-result 'query))
+ (nil t (eq files-test-result nil))
+ (nil nil (eq files-test-result nil))
+ (nil maybe (eq files-test-result nil))
+ (:safe t (eq files-test-result nil))
+ (:safe nil (eq files-test-result nil))
+ (:safe maybe (eq files-test-result nil))
+ (:all t (eq files-test-result t))
+ (:all nil (eq files-test-result t))
+ (:all maybe (eq files-test-result t))
+ (maybe t (eq files-test-result 'query))
+ (maybe nil (eq files-test-result 'query))
+ (maybe maybe (eq files-test-result 'query)))
+ ;; Safe local variable
+ (("files-test-safe-result: t")
+ (t t (eq files-test-safe-result t))
+ (t nil (eq files-test-safe-result t))
+ (t maybe (eq files-test-safe-result t))
+ (nil t (eq files-test-safe-result nil))
+ (nil nil (eq files-test-safe-result nil))
+ (nil maybe (eq files-test-safe-result nil))
+ (:safe t (eq files-test-safe-result t))
+ (:safe nil (eq files-test-safe-result t))
+ (:safe maybe (eq files-test-safe-result t))
+ (:all t (eq files-test-safe-result t))
+ (:all nil (eq files-test-safe-result t))
+ (:all maybe (eq files-test-safe-result t))
+ (maybe t (eq files-test-result 'query))
+ (maybe nil (eq files-test-result 'query))
+ (maybe maybe (eq files-test-result 'query)))
+ ;; Safe local variable with unsafe value
+ (("files-test-safe-result: 1")
+ (t t (eq files-test-result 'query))
+ (t nil (eq files-test-result 'query))
+ (t maybe (eq files-test-result 'query))
+ (nil t (eq files-test-safe-result nil))
+ (nil nil (eq files-test-safe-result nil))
+ (nil maybe (eq files-test-safe-result nil))
+ (:safe t (eq files-test-safe-result nil))
+ (:safe nil (eq files-test-safe-result nil))
+ (:safe maybe (eq files-test-safe-result nil))
+ (:all t (eq files-test-safe-result 1))
+ (:all nil (eq files-test-safe-result 1))
+ (:all maybe (eq files-test-safe-result 1))
+ (maybe t (eq files-test-result 'query))
+ (maybe nil (eq files-test-result 'query))
+ (maybe maybe (eq files-test-result 'query))))
+ "List of file-local variable tests.
+Each list element should have the form
+
+ (LOCAL-VARS-LIST . TEST-LIST)
+
+where LOCAL-VARS-LISTS should be a list of local variable
+definitions (strings) and TEST-LIST is a list of tests to
+perform. Each entry of TEST-LIST should have the form
+
+ (ENABLE-LOCAL-VARIABLES ENABLE-LOCAL-EVAL FORM)
+
+where ENABLE-LOCAL-VARIABLES is the value to assign to
+`enable-local-variables', ENABLE-LOCAL-EVAL is the value to
+assign to `enable-local-eval', and FORM is a desired `should'
+form.")
+
+(defun file-test--do-local-variables-test (str test-settings)
+ (with-temp-buffer
+ (insert str)
+ (let ((enable-local-variables (nth 0 test-settings))
+ (enable-local-eval (nth 1 test-settings))
+ (files-test-result nil)
+ (files-test-queried nil)
+ (files-test-safe-result nil))
+ (hack-local-variables)
+ (eval (nth 2 test-settings)))))
+
+(ert-deftest files-test-local-variables ()
+ "Test the file-local variables implementation."
+ (unwind-protect
+ (progn
+ (defadvice hack-local-variables-confirm (around files-test activate)
+ (setq files-test-result 'query)
+ nil)
+ (dolist (test files-test-local-variable-data)
+ (let ((str (concat "text\n\n;; Local Variables:\n;; "
+ (mapconcat 'identity (car test) "\n;; ")
+ "\n;; End:\n")))
+ (dolist (subtest (cdr test))
+ (should (file-test--do-local-variables-test str subtest))))))
+ (ad-disable-advice 'hack-local-variables-confirm 'around 'files-test)))
+
+;;; files.el ends here
--- /dev/null
+;;; font-parse-tests.el --- Test suite for font parsing.
+
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
+
+;; Author: Chong Yidong <cyd@stupidchicken.com>
+;; Keywords: internal
+;; Human-Keywords: internal
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Type M-x test-font-parse RET to generate the test buffer.
+
+;;; Code:
+
+(require 'ert)
+
+(defvar font-parse-tests--data
+ `((" " ,(intern " ") nil nil nil nil)
+ ("Monospace" Monospace nil nil nil nil)
+ ("Foo1" Foo1 nil nil nil nil)
+ ("12" nil 12.0 nil nil nil)
+ ("12 " ,(intern "12 ") nil nil nil nil)
+ ;; Fontconfig format
+ ("Foo:" Foo nil nil nil nil)
+ ("Foo-8" Foo 8.0 nil nil nil)
+ ("Foo-18:" Foo 18.0 nil nil nil)
+ ("Foo-18:light" Foo 18.0 light nil nil)
+ ("Foo 10:weight=bold" ,(intern "Foo 10") nil bold nil nil)
+ ("Foo-12:weight=bold" Foo 12.0 bold nil nil)
+ ("Foo 8-20:slant=oblique" ,(intern "Foo 8") 20.0 nil oblique nil)
+ ("Foo:light:roman" Foo nil light roman nil)
+ ("Foo:italic:roman" Foo nil nil roman nil)
+ ("Foo 12:light:oblique" ,(intern "Foo 12") nil light oblique nil)
+ ("Foo-12:demibold:oblique" Foo 12.0 demibold oblique nil)
+ ("Foo:black:proportional" Foo nil black nil 0)
+ ("Foo-10:black:proportional" Foo 10.0 black nil 0)
+ ("Foo:weight=normal" Foo nil normal nil nil)
+ ("Foo:weight=bold" Foo nil bold nil nil)
+ ("Foo:weight=bold:slant=italic" Foo nil bold italic)
+ ("Foo:weight=bold:slant=italic:mono" Foo nil bold italic 100)
+ ("Foo-10:demibold:slant=normal" Foo 10.0 demibold normal nil)
+ ("Foo 11-16:oblique:weight=bold" ,(intern "Foo 11") 16.0 bold oblique nil)
+ ("Foo:oblique:randomprop=randomtag:weight=bold" Foo nil bold oblique nil)
+ ("Foo:randomprop=randomtag:bar=baz" Foo nil nil nil nil)
+ ("Foo Book Light:bar=baz" ,(intern "Foo Book Light") nil nil nil nil)
+ ("Foo Book Light 10:bar=baz" ,(intern "Foo Book Light 10") nil nil nil nil)
+ ("Foo Book Light-10:bar=baz" ,(intern "Foo Book Light") 10.0 nil nil nil)
+ ;; GTK format
+ ("Oblique" nil nil nil oblique nil)
+ ("Bold 17" nil 17.0 bold nil nil)
+ ("17 Bold" ,(intern "17") nil bold nil nil)
+ ("Book Oblique 2" nil 2.0 book oblique nil)
+ ("Bar 7" Bar 7.0 nil nil nil)
+ ("Bar Ultra-Light" Bar nil ultra-light nil nil)
+ ("Bar Light 8" Bar 8.0 light nil nil)
+ ("Bar Book Medium 9" Bar 9.0 medium nil nil)
+ ("Bar Semi-Bold Italic 10" Bar 10.0 semi-bold italic nil)
+ ("Bar Semi-Condensed Bold Italic 11" Bar 11.0 bold italic nil)
+ ("Foo 10 11" ,(intern "Foo 10") 11.0 nil nil nil)
+ ("Foo 1985 Book" ,(intern "Foo 1985") nil book nil nil)
+ ("Foo 1985 A Book" ,(intern "Foo 1985 A") nil book nil nil)
+ ("Foo 1 Book 12" ,(intern "Foo 1") 12.0 book nil nil)
+ ("Foo A Book 12 A" ,(intern "Foo A Book 12 A") nil nil nil nil)
+ ("Foo 1985 Book 12 Oblique" ,(intern "Foo 1985 Book 12") nil nil oblique nil)
+ ("Foo 1985 Book 12 Italic 10" ,(intern "Foo 1985 Book 12") 10.0 nil italic nil)
+ ("Foo Book Bar 6 Italic" ,(intern "Foo Book Bar 6") nil nil italic nil)
+ ("Foo Book Bar Bold" ,(intern "Foo Book Bar") nil bold nil nil))
+ "List of font names parse data.
+Each element should have the form
+ (NAME FAMILY SIZE WEIGHT SLANT SPACING)
+where NAME is the name to parse, and the remainder are the
+expected font properties from parsing NAME.")
+
+(defun font-parse-check (name prop expected)
+ (let ((result (font-get (font-spec :name name) prop)))
+ (if (and (symbolp result) (symbolp expected))
+ (eq result expected)
+ (equal result expected))))
+
+(put 'font-parse-check 'ert-explainer 'font-parse-explain)
+
+(defun font-parse-explain (name prop expected)
+ (let ((result (font-get (font-spec :name name) prop))
+ (propname (symbol-name prop)))
+ (format "Parsing `%s': expected %s `%s', got `%s'."
+ name (substring propname 1) expected
+ (font-get (font-spec :name name) prop))))
+
+(ert-deftest font-parse-tests ()
+ "Test parsing of Fontconfig-style and GTK-style font names."
+ (dolist (test font-parse-tests--data)
+ (let* ((name (nth 0 test)))
+ (should (font-parse-check name :family (nth 1 test)))
+ (should (font-parse-check name :size (nth 2 test)))
+ (should (font-parse-check name :weight (nth 3 test)))
+ (should (font-parse-check name :slant (nth 4 test)))
+ (should (font-parse-check name :spacing (nth 5 test))))))
+
+
+(defun test-font-parse ()
+ "Test font name parsing."
+ (interactive)
+ (switch-to-buffer (generate-new-buffer "*Font Pase Test*"))
+ (setq show-trailing-whitespace nil)
+ (let ((pass-face '((t :foreground "green")))
+ (fail-face '((t :foreground "red"))))
+ (dolist (test font-parse-tests--data)
+ (let* ((name (nth 0 test))
+ (fs (font-spec :name name))
+ (family (font-get fs :family))
+ (size (font-get fs :size))
+ (weight (font-get fs :weight))
+ (slant (font-get fs :slant))
+ (spacing (font-get fs :spacing)))
+ (insert name)
+ (if (> (current-column) 20)
+ (insert "\n"))
+ (indent-to-column 21)
+ (insert (propertize (symbol-name family)
+ 'face (if (eq family (nth 1 test))
+ pass-face
+ fail-face)))
+ (indent-to-column 40)
+ (insert (propertize (format "%s" size)
+ 'face (if (equal size (nth 2 test))
+ pass-face
+ fail-face)))
+ (indent-to-column 48)
+ (insert (propertize (format "%s" weight)
+ 'face (if (eq weight (nth 3 test))
+ pass-face
+ fail-face)))
+ (indent-to-column 60)
+ (insert (propertize (format "%s" slant)
+ 'face (if (eq slant (nth 4 test))
+ pass-face
+ fail-face)))
+ (indent-to-column 69)
+ (insert (propertize (format "%s" spacing)
+ 'face (if (eq spacing (nth 5 test))
+ pass-face
+ fail-face)))
+ (insert "\n"))))
+ (goto-char (point-min)))
+
+;; Local Variables:
+;; no-byte-compile: t
+;; End:
+
+;;; font-parse-tests.el ends here.
--- /dev/null
+;;; gnus-tests.el --- Wrapper for the Gnus tests
+
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
+
+;; Author: Teodor Zlatanov <tzz@lifelogs.com>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This file should contain nothing but requires for all the Gnus
+;; tests that are not standalone.
+
+;;; Code:
+;; registry.el is required by gnus-registry.el but this way we're explicit.
+(eval-when-compile (require 'cl))
+
+(require 'registry)
+(require 'gnus-registry)
+
+(provide 'gnus-tests)
+;;; gnus-tests.el ends here
--- /dev/null
+;; icalendar-tests.el --- Test suite for icalendar.el
+
+;; Copyright (C) 2005, 2008-2013 Free Software Foundation, Inc.
+
+;; Author: Ulf Jasper <ulf.jasper@web.de>
+;; Created: March 2005
+;; Keywords: calendar
+;; Human-Keywords: calendar, diary, iCalendar, vCalendar
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; TODO:
+;; - Add more unit tests for functions, timezone etc.
+
+;; Note: Watch the trailing blank that is added on import.
+
+;;; Code:
+
+(require 'ert)
+(require 'icalendar)
+
+;; ======================================================================
+;; Helpers
+;; ======================================================================
+
+(defun icalendar-tests--get-ical-event (ical-string)
+ "Return iCalendar event for ICAL-STRING."
+ (save-excursion
+ (with-temp-buffer
+ (insert ical-string)
+ (goto-char (point-min))
+ (car (icalendar--read-element nil nil)))))
+
+(defun icalendar-tests--trim (string)
+ "Remove leading and trailing whitespace from STRING."
+ (replace-regexp-in-string "[ \t\n]+\\'" ""
+ (replace-regexp-in-string "\\`[ \t\n]+" "" string)))
+
+;; ======================================================================
+;; Tests of functions
+;; ======================================================================
+
+(ert-deftest icalendar--create-uid ()
+ "Test for `icalendar--create-uid'."
+ (let* ((icalendar-uid-format "xxx-%t-%c-%h-%u-%s")
+ t-ct
+ (icalendar--uid-count 77)
+ (entry-full "30.06.1964 07:01 blahblah")
+ (hash (format "%d" (abs (sxhash entry-full))))
+ (contents "DTSTART:19640630T070100\nblahblah")
+ (username (or user-login-name "UNKNOWN_USER"))
+ )
+ (fset 't-ct (symbol-function 'current-time))
+ (unwind-protect
+ (progn
+ (fset 'current-time (lambda () '(1 2 3)))
+ (should (= 77 icalendar--uid-count))
+ (should (string= (concat "xxx-123-77-" hash "-" username "-19640630")
+ (icalendar--create-uid entry-full contents)))
+ (should (= 78 icalendar--uid-count)))
+ ;; restore 'current-time
+ (fset 'current-time (symbol-function 't-ct)))
+ (setq contents "blahblah")
+ (setq icalendar-uid-format "yyy%syyy")
+ (should (string= (concat "yyyDTSTARTyyy")
+ (icalendar--create-uid entry-full contents)))))
+
+(ert-deftest icalendar--calendar-style ()
+ "Test for `icalendar--date-style'."
+ (dolist (calendar-date-style '(iso american european))
+ (should (eq (icalendar--date-style) calendar-date-style)))
+ (let ((cds calendar-date-style)
+ (european-calendar-style t))
+ (makunbound 'calendar-date-style)
+ (should (eq (icalendar--date-style) 'european))
+ (with-no-warnings (setq european-calendar-style nil)) ;still get warning!?! FIXME
+ (should (eq (icalendar--date-style) 'american))
+ (setq calendar-date-style cds)))
+
+(ert-deftest icalendar-convert-anniversary-to-ical ()
+ "Test method for `icalendar--convert-anniversary-to-ical'."
+ (let* ((calendar-date-style 'iso)
+ result)
+ (setq result (icalendar--convert-anniversary-to-ical
+ "" "%%(diary-anniversary 1964 6 30) g"))
+ (should (= 2 (length result)))
+ (should (string= (concat
+ "\nDTSTART;VALUE=DATE:19640630"
+ "\nDTEND;VALUE=DATE:19640701"
+ "\nRRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=06;BYMONTHDAY=30")
+ (car result)))
+ (should (string= "g" (cadr result)))))
+
+(ert-deftest icalendar--convert-cyclic-to-ical ()
+ "Test method for `icalendar--convert-cyclic-to-ical'."
+ (let* ((calendar-date-style 'iso)
+ result)
+ (setq result (icalendar--convert-block-to-ical
+ "" "%%(diary-block 2004 7 19 2004 8 27) Sommerferien"))
+ (should (= 2 (length result)))
+ (should (string= (concat
+ "\nDTSTART;VALUE=DATE:20040719"
+ "\nDTEND;VALUE=DATE:20040828")
+ (car result)))
+ (should (string= "Sommerferien" (cadr result)))))
+
+(ert-deftest icalendar--convert-block-to-ical ()
+ "Test method for `icalendar--convert-block-to-ical'."
+ (let* ((calendar-date-style 'iso)
+ result)
+ (setq result (icalendar--convert-block-to-ical
+ "" "%%(diary-block 2004 7 19 2004 8 27) Sommerferien"))
+ (should (= 2 (length result)))
+ (should (string= (concat
+ "\nDTSTART;VALUE=DATE:20040719"
+ "\nDTEND;VALUE=DATE:20040828")
+ (car result)))
+ (should (string= "Sommerferien" (cadr result)))))
+
+(ert-deftest icalendar--convert-yearly-to-ical ()
+ "Test method for `icalendar--convert-yearly-to-ical'."
+ (let* ((calendar-date-style 'iso)
+ result
+ (calendar-month-name-array
+ ["January" "February" "March" "April" "May" "June" "July" "August"
+ "September" "October" "November" "December"]))
+ (setq result (icalendar--convert-yearly-to-ical "" "May 1 Tag der Arbeit"))
+ (should (= 2 (length result)))
+ (should (string= (concat
+ "\nDTSTART;VALUE=DATE:19000501"
+ "\nDTEND;VALUE=DATE:19000502"
+ "\nRRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=5;BYMONTHDAY=1")
+ (car result)))
+ (should (string= "Tag der Arbeit" (cadr result)))))
+
+(ert-deftest icalendar--convert-weekly-to-ical ()
+ "Test method for `icalendar--convert-weekly-to-ical'."
+ (let* ((calendar-date-style 'iso)
+ result
+ (calendar-day-name-array
+ ["Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday"
+ "Saturday"]))
+ (setq result (icalendar--convert-weekly-to-ical "" "Monday 8:30 subject"))
+ (should (= 2 (length result)))
+ (should (string= (concat "\nDTSTART;VALUE=DATE-TIME:20050103T083000"
+ "\nDTEND;VALUE=DATE-TIME:20050103T093000"
+ "\nRRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=MO")
+ (car result)))
+ (should (string= "subject" (cadr result)))))
+
+(ert-deftest icalendar--parse-vtimezone ()
+ "Test method for `icalendar--parse-vtimezone'."
+ (let (vtimezone result)
+ (setq vtimezone (icalendar-tests--get-ical-event "BEGIN:VTIMEZONE
+TZID:thename
+BEGIN:STANDARD
+DTSTART:16010101T040000
+TZOFFSETFROM:+0300
+TZOFFSETTO:+0200
+RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=10
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:16010101T030000
+TZOFFSETFROM:+0200
+TZOFFSETTO:+0300
+RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=3
+END:DAYLIGHT
+END:VTIMEZONE
+"))
+ (setq result (icalendar--parse-vtimezone vtimezone))
+ (should (string= "thename" (car result)))
+ (message (cdr result))
+ (should (string= "STD-02:00DST-03:00,M3.5.0/03:00:00,M10.5.0/04:00:00"
+ (cdr result)))
+ (setq vtimezone (icalendar-tests--get-ical-event "BEGIN:VTIMEZONE
+TZID:anothername\, with a comma
+BEGIN:STANDARD
+DTSTART:16010101T040000
+TZOFFSETFROM:+0300
+TZOFFSETTO:+0200
+RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=2MO;BYMONTH=10
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:16010101T030000
+TZOFFSETFROM:+0200
+TZOFFSETTO:+0300
+RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=2MO;BYMONTH=3
+END:DAYLIGHT
+END:VTIMEZONE
+"))
+ (setq result (icalendar--parse-vtimezone vtimezone))
+ (should (string= "anothername, with a comma" (car result)))
+ (message (cdr result))
+ (should (string= "STD-02:00DST-03:00,M3.2.1/03:00:00,M10.2.1/04:00:00"
+ (cdr result)))))
+
+(ert-deftest icalendar--convert-ordinary-to-ical ()
+ "Test method for `icalendar--convert-ordinary-to-ical'."
+ (let* ((calendar-date-style 'iso)
+ result)
+ ;; without time
+ (setq result (icalendar--convert-ordinary-to-ical "&?" "2010 2 15 subject"))
+ (should (= 2 (length result)))
+ (should (string= "\nDTSTART;VALUE=DATE:20100215\nDTEND;VALUE=DATE:20100216"
+ (car result)))
+ (should (string= "subject" (cadr result)))
+
+ ;; with time
+ (setq result (icalendar--convert-ordinary-to-ical
+ "&?" "&2010 2 15 12:34-23:45 s"))
+ (should (= 2 (length result)))
+ (should (string= (concat "\nDTSTART;VALUE=DATE-TIME:20100215T123400"
+ "\nDTEND;VALUE=DATE-TIME:20100215T234500")
+ (car result)))
+ (should (string= "s" (cadr result)))
+
+ ;; with time, again -- test bug#5549
+ (setq result (icalendar--convert-ordinary-to-ical
+ "x?" "x2010 2 15 0:34-1:45 s"))
+ (should (= 2 (length result)))
+ (should (string= (concat "\nDTSTART;VALUE=DATE-TIME:20100215T003400"
+ "\nDTEND;VALUE=DATE-TIME:20100215T014500")
+ (car result)))
+ (should (string= "s" (cadr result)))))
+
+(ert-deftest icalendar--diarytime-to-isotime ()
+ "Test method for `icalendar--diarytime-to-isotime'."
+ (should (string= "T011500"
+ (icalendar--diarytime-to-isotime "01:15" "")))
+ (should (string= "T011500"
+ (icalendar--diarytime-to-isotime "1:15" "")))
+ (should (string= "T000100"
+ (icalendar--diarytime-to-isotime "0:01" "")))
+ (should (string= "T010000"
+ (icalendar--diarytime-to-isotime "0100" "")))
+ (should (string= "T010000"
+ (icalendar--diarytime-to-isotime "0100" "am")))
+ (should (string= "T130000"
+ (icalendar--diarytime-to-isotime "0100" "pm")))
+ (should (string= "T120000"
+ (icalendar--diarytime-to-isotime "1200" "")))
+ (should (string= "T171700"
+ (icalendar--diarytime-to-isotime "17:17" "")))
+ (should (string= "T000000"
+ (icalendar--diarytime-to-isotime "1200" "am")))
+ (should (string= "T000100"
+ (icalendar--diarytime-to-isotime "1201" "am")))
+ (should (string= "T005900"
+ (icalendar--diarytime-to-isotime "1259" "am")))
+ (should (string= "T120000"
+ (icalendar--diarytime-to-isotime "1200" "pm")))
+ (should (string= "T120100"
+ (icalendar--diarytime-to-isotime "1201" "pm")))
+ (should (string= "T125900"
+ (icalendar--diarytime-to-isotime "1259" "pm"))))
+
+(ert-deftest icalendar--datetime-to-diary-date ()
+ "Test method for `icalendar--datetime-to-diary-date'."
+ (let* ((datetime '(59 59 23 31 12 2008))
+ (calendar-date-style 'iso))
+ (should (string= "2008 12 31"
+ (icalendar--datetime-to-diary-date datetime)))
+ (setq calendar-date-style 'european)
+ (should (string= "31 12 2008"
+ (icalendar--datetime-to-diary-date datetime)))
+ (setq calendar-date-style 'american)
+ (should (string= "12 31 2008"
+ (icalendar--datetime-to-diary-date datetime)))))
+
+(ert-deftest icalendar--datestring-to-isodate ()
+ "Test method for `icalendar--datestring-to-isodate'."
+ (let ((calendar-date-style 'iso))
+ ;; numeric iso
+ (should (string= "20080511"
+ (icalendar--datestring-to-isodate "2008 05 11")))
+ (should (string= "20080531"
+ (icalendar--datestring-to-isodate "2008 05 31")))
+ (should (string= "20080602"
+ (icalendar--datestring-to-isodate "2008 05 31" 2)))
+
+ ;; numeric european
+ (setq calendar-date-style 'european)
+ (should (string= "20080511"
+ (icalendar--datestring-to-isodate "11 05 2008")))
+ (should (string= "20080531"
+ (icalendar--datestring-to-isodate "31 05 2008")))
+ (should (string= "20080602"
+ (icalendar--datestring-to-isodate "31 05 2008" 2)))
+
+ ;; numeric american
+ (setq calendar-date-style 'american)
+ (should (string= "20081105"
+ (icalendar--datestring-to-isodate "11 05 2008")))
+ (should (string= "20081230"
+ (icalendar--datestring-to-isodate "12 30 2008")))
+ (should (string= "20090101"
+ (icalendar--datestring-to-isodate "12 30 2008" 2)))
+
+ ;; non-numeric
+ (setq calendar-date-style nil) ;not necessary for conversion
+ (should (string= "20081105"
+ (icalendar--datestring-to-isodate "Nov 05 2008")))
+ (should (string= "20081105"
+ (icalendar--datestring-to-isodate "05 Nov 2008")))
+ (should (string= "20081105"
+ (icalendar--datestring-to-isodate "2008 Nov 05")))))
+
+(ert-deftest icalendar--first-weekday-of-year ()
+ "Test method for `icalendar-first-weekday-of-year'."
+ (should (eq 1 (icalendar-first-weekday-of-year "TU" 2008)))
+ (should (eq 3 (icalendar-first-weekday-of-year "WE" 2007)))
+ (should (eq 5 (icalendar-first-weekday-of-year "TH" 2006)))
+ (should (eq 7 (icalendar-first-weekday-of-year "FR" 2005)))
+ (should (eq 3 (icalendar-first-weekday-of-year "SA" 2004)))
+ (should (eq 5 (icalendar-first-weekday-of-year "SU" 2003)))
+ (should (eq 7 (icalendar-first-weekday-of-year "MO" 2002)))
+ (should (eq 3 (icalendar-first-weekday-of-year "MO" 2000)))
+ (should (eq 1 (icalendar-first-weekday-of-year "TH" 1970))))
+
+(ert-deftest icalendar--import-format-sample ()
+ "Test method for `icalendar-import-format-sample'."
+ (should (string= (concat "SUMMARY=`a' DESCRIPTION=`b' LOCATION=`c' "
+ "ORGANIZER=`d' STATUS=`' URL=`' CLASS=`'")
+ (icalendar-import-format-sample
+ (icalendar-tests--get-ical-event "BEGIN:VEVENT
+DTSTAMP:20030509T043439Z
+DTSTART:20030509T103000
+SUMMARY:a
+ORGANIZER:d
+LOCATION:c
+DTEND:20030509T153000
+DESCRIPTION:b
+END:VEVENT
+")))))
+
+(ert-deftest icalendar--format-ical-event ()
+ "Test `icalendar--format-ical-event'."
+ (let ((icalendar-import-format "%s%d%l%o%t%u%c")
+ (icalendar-import-format-summary "SUM %s")
+ (icalendar-import-format-location " LOC %s")
+ (icalendar-import-format-description " DES %s")
+ (icalendar-import-format-organizer " ORG %s")
+ (icalendar-import-format-status " STA %s")
+ (icalendar-import-format-url " URL %s")
+ (icalendar-import-format-class " CLA %s")
+ (event (icalendar-tests--get-ical-event "BEGIN:VEVENT
+DTSTAMP:20030509T043439Z
+DTSTART:20030509T103000
+SUMMARY:sum
+ORGANIZER:org
+LOCATION:loc
+DTEND:20030509T153000
+DESCRIPTION:des
+END:VEVENT
+")))
+ (should (string= "SUM sum DES des LOC loc ORG org"
+ (icalendar--format-ical-event event)))
+ (setq icalendar-import-format (lambda (&rest ignore)
+ "helloworld"))
+ (should (string= "helloworld" (icalendar--format-ical-event event)))
+ (setq icalendar-import-format
+ (lambda (e)
+ (format "-%s-%s-%s-%s-%s-%s-%s-"
+ (icalendar--get-event-property event 'SUMMARY)
+ (icalendar--get-event-property event 'DESCRIPTION)
+ (icalendar--get-event-property event 'LOCATION)
+ (icalendar--get-event-property event 'ORGANIZER)
+ (icalendar--get-event-property event 'STATUS)
+ (icalendar--get-event-property event 'URL)
+ (icalendar--get-event-property event 'CLASS))))
+ (should (string= "-sum-des-loc-org-nil-nil-nil-"
+ (icalendar--format-ical-event event)))))
+
+(ert-deftest icalendar--parse-summary-and-rest ()
+ "Test `icalendar--parse-summary-and-rest'."
+ (let ((icalendar-import-format "%s%d%l%o%t%u%c")
+ (icalendar-import-format-summary "SUM %s")
+ (icalendar-import-format-location " LOC %s")
+ (icalendar-import-format-description " DES %s")
+ (icalendar-import-format-organizer " ORG %s")
+ (icalendar-import-format-status " STA %s")
+ (icalendar-import-format-url " URL %s")
+ (icalendar-import-format-class " CLA %s")
+ (result))
+ (setq result (icalendar--parse-summary-and-rest "SUM sum ORG org"))
+ (should (string= "org" (cdr (assoc 'org result))))
+
+ (setq result (icalendar--parse-summary-and-rest
+ "SUM sum DES des LOC loc ORG org STA sta URL url CLA cla"))
+ (should (string= "des" (cdr (assoc 'des result))))
+ (should (string= "loc" (cdr (assoc 'loc result))))
+ (should (string= "org" (cdr (assoc 'org result))))
+ (should (string= "sta" (cdr (assoc 'sta result))))
+ (should (string= "cla" (cdr (assoc 'cla result))))
+
+ (setq icalendar-import-format (lambda () "Hello world"))
+ (setq result (icalendar--parse-summary-and-rest
+ "blah blah "))
+ (should (not result))
+ ))
+
+;; ======================================================================
+;; Export tests
+;; ======================================================================
+
+(defun icalendar-tests--test-export (input-iso input-european input-american
+ expected-output)
+ "Perform an export test.
+Argument INPUT-ISO iso style diary string.
+Argument INPUT-EUROPEAN european style diary string.
+Argument INPUT-AMERICAN american style diary string.
+Argument EXPECTED-OUTPUT expected iCalendar result string.
+
+European style input data must use german month names. American
+and ISO style input data must use english month names."
+ (let ((tz (cadr (current-time-zone)))
+ (calendar-date-style 'iso)
+ (icalendar-recurring-start-year 2000))
+ (unwind-protect
+ (progn
+ (set-time-zone-rule "CET")
+ (when input-iso
+ (let ((calendar-month-name-array
+ ["January" "February" "March" "April" "May" "June" "July" "August"
+ "September" "October" "November" "December"])
+ (calendar-day-name-array
+ ["Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday"
+ "Saturday"]))
+ (setq calendar-date-style 'iso)
+ (icalendar-tests--do-test-export input-iso expected-output)))
+ (when input-european
+ (let ((calendar-month-name-array
+ ["Januar" "Februar" "März" "April" "Mai" "Juni" "Juli" "August"
+ "September" "Oktober" "November" "Dezember"])
+ (calendar-day-name-array
+ ["Sonntag" "Montag" "Dienstag" "Mittwoch" "Donnerstag" "Freitag"
+ "Samstag"]))
+ (setq calendar-date-style 'european)
+ (icalendar-tests--do-test-export input-european expected-output)))
+ (when input-american
+ (let ((calendar-month-name-array
+ ["January" "February" "March" "April" "May" "June" "July" "August"
+ "September" "October" "November" "December"])
+ (calendar-day-name-array
+ ["Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday"
+ "Saturday"]))
+ (setq calendar-date-style 'american)
+ (icalendar-tests--do-test-export input-american expected-output))))
+ ;; restore time-zone if something went terribly wrong
+ (set-time-zone-rule tz))))
+
+(defun icalendar-tests--do-test-export (input expected-output)
+ "Actually perform export test.
+Argument INPUT input diary string.
+Argument EXPECTED-OUTPUT expected iCalendar result string."
+ (let ((temp-file (make-temp-file "icalendar-tests-ics")))
+ (unwind-protect
+ (progn
+ (with-temp-buffer
+ (insert input)
+ (icalendar-export-region (point-min) (point-max) temp-file))
+ (save-excursion
+ (find-file temp-file)
+ (goto-char (point-min))
+ (cond (expected-output
+ (should (re-search-forward "^\\s-*BEGIN:VCALENDAR
+PRODID:-//Emacs//NONSGML icalendar.el//EN
+VERSION:2.0
+BEGIN:VEVENT
+UID:emacs[0-9]+
+\\(\\(.\\|\n\\)+\\)
+END:VEVENT
+END:VCALENDAR
+\\s-*$"
+ nil t))
+ (should (string-match
+ (concat "^\\s-*"
+ (regexp-quote (buffer-substring-no-properties
+ (match-beginning 1) (match-end 1)))
+ "\\s-*$")
+ expected-output)))
+ (t
+ (should (re-search-forward "^\\s-*BEGIN:VCALENDAR
+PRODID:-//Emacs//NONSGML icalendar.el//EN
+VERSION:2.0
+END:VCALENDAR
+\\s-*$"
+ nil t))))))
+ ;; cleanup!!
+ (kill-buffer (find-buffer-visiting temp-file))
+ (delete-file temp-file))))
+
+(ert-deftest icalendar-export-ordinary-no-time ()
+ "Perform export test."
+
+ (let ((icalendar-export-hidden-diary-entries nil))
+ (icalendar-tests--test-export
+ "&2000 Oct 3 ordinary no time "
+ "&3 Okt 2000 ordinary no time "
+ "&Oct 3 2000 ordinary no time "
+ nil))
+
+ (icalendar-tests--test-export
+ "2000 Oct 3 ordinary no time "
+ "3 Okt 2000 ordinary no time "
+ "Oct 3 2000 ordinary no time "
+ "DTSTART;VALUE=DATE:20001003
+DTEND;VALUE=DATE:20001004
+SUMMARY:ordinary no time
+"))
+
+(ert-deftest icalendar-export-ordinary ()
+ "Perform export test."
+
+ (icalendar-tests--test-export
+ "2000 Oct 3 16:30 ordinary with time"
+ "3 Okt 2000 16:30 ordinary with time"
+ "Oct 3 2000 16:30 ordinary with time"
+ "DTSTART;VALUE=DATE-TIME:20001003T163000
+DTEND;VALUE=DATE-TIME:20001003T173000
+SUMMARY:ordinary with time
+")
+ (icalendar-tests--test-export
+ "2000 10 3 16:30 ordinary with time 2"
+ "3 10 2000 16:30 ordinary with time 2"
+ "10 3 2000 16:30 ordinary with time 2"
+ "DTSTART;VALUE=DATE-TIME:20001003T163000
+DTEND;VALUE=DATE-TIME:20001003T173000
+SUMMARY:ordinary with time 2
+")
+
+ (icalendar-tests--test-export
+ "2000/10/3 16:30 ordinary with time 3"
+ "3/10/2000 16:30 ordinary with time 3"
+ "10/3/2000 16:30 ordinary with time 3"
+ "DTSTART;VALUE=DATE-TIME:20001003T163000
+DTEND;VALUE=DATE-TIME:20001003T173000
+SUMMARY:ordinary with time 3
+"))
+
+(ert-deftest icalendar-export-multiline ()
+ "Perform export test."
+
+ ;; multiline -- FIXME!!!
+ (icalendar-tests--test-export
+ "2000 October 3 16:30 multiline
+ 17:30 multiline continued FIXME"
+ "3 Oktober 2000 16:30 multiline
+ 17:30 multiline continued FIXME"
+ "October 3 2000 16:30 multiline
+ 17:30 multiline continued FIXME"
+ "DTSTART;VALUE=DATE-TIME:20001003T163000
+DTEND;VALUE=DATE-TIME:20001003T173000
+SUMMARY:multiline
+DESCRIPTION:
+ 17:30 multiline continued FIXME
+"))
+
+(ert-deftest icalendar-export-weekly-by-day ()
+ "Perform export test."
+
+ ;; weekly by day
+ (icalendar-tests--test-export
+ "Monday 1:30pm weekly by day with start time"
+ "Montag 13:30 weekly by day with start time"
+ "Monday 1:30pm weekly by day with start time"
+ "DTSTART;VALUE=DATE-TIME:20000103T133000
+DTEND;VALUE=DATE-TIME:20000103T143000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=MO
+SUMMARY:weekly by day with start time
+")
+
+ (icalendar-tests--test-export
+ "Monday 13:30-15:00 weekly by day with start and end time"
+ "Montag 13:30-15:00 weekly by day with start and end time"
+ "Monday 01:30pm-03:00pm weekly by day with start and end time"
+ "DTSTART;VALUE=DATE-TIME:20000103T133000
+DTEND;VALUE=DATE-TIME:20000103T150000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=MO
+SUMMARY:weekly by day with start and end time
+"))
+
+(ert-deftest icalendar-export-yearly ()
+ "Perform export test."
+ ;; yearly
+ (icalendar-tests--test-export
+ "may 1 yearly no time"
+ "1 Mai yearly no time"
+ "may 1 yearly no time"
+ "DTSTART;VALUE=DATE:19000501
+DTEND;VALUE=DATE:19000502
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=5;BYMONTHDAY=1
+SUMMARY:yearly no time
+"))
+
+(ert-deftest icalendar-export-anniversary ()
+ "Perform export test."
+ ;; anniversaries
+ (icalendar-tests--test-export
+ "%%(diary-anniversary 1989 10 3) anniversary no time"
+ "%%(diary-anniversary 3 10 1989) anniversary no time"
+ "%%(diary-anniversary 10 3 1989) anniversary no time"
+ "DTSTART;VALUE=DATE:19891003
+DTEND;VALUE=DATE:19891004
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=10;BYMONTHDAY=03
+SUMMARY:anniversary no time
+")
+ (icalendar-tests--test-export
+ "%%(diary-anniversary 1989 10 3) 19:00-20:00 anniversary with time"
+ "%%(diary-anniversary 3 10 1989) 19:00-20:00 anniversary with time"
+ "%%(diary-anniversary 10 3 1989) 19:00-20:00 anniversary with time"
+ "DTSTART;VALUE=DATE-TIME:19891003T190000
+DTEND;VALUE=DATE-TIME:19891004T200000
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=10;BYMONTHDAY=03
+SUMMARY:anniversary with time
+"))
+
+(ert-deftest icalendar-export-block ()
+ "Perform export test."
+ ;; block
+ (icalendar-tests--test-export
+ "%%(diary-block 2001 6 18 2001 7 6) block no time"
+ "%%(diary-block 18 6 2001 6 7 2001) block no time"
+ "%%(diary-block 6 18 2001 7 6 2001) block no time"
+ "DTSTART;VALUE=DATE:20010618
+DTEND;VALUE=DATE:20010707
+SUMMARY:block no time
+")
+ (icalendar-tests--test-export
+ "%%(diary-block 2001 6 18 2001 7 6) 13:00-17:00 block with time"
+ "%%(diary-block 18 6 2001 6 7 2001) 13:00-17:00 block with time"
+ "%%(diary-block 6 18 2001 7 6 2001) 13:00-17:00 block with time"
+ "DTSTART;VALUE=DATE-TIME:20010618T130000
+DTEND;VALUE=DATE-TIME:20010618T170000
+RRULE:FREQ=DAILY;INTERVAL=1;UNTIL=20010706
+SUMMARY:block with time
+")
+ (icalendar-tests--test-export
+ "%%(diary-block 2001 6 18 2001 7 6) 13:00 block no end time"
+ "%%(diary-block 18 6 2001 6 7 2001) 13:00 block no end time"
+ "%%(diary-block 6 18 2001 7 6 2001) 13:00 block no end time"
+ "DTSTART;VALUE=DATE-TIME:20010618T130000
+DTEND;VALUE=DATE-TIME:20010618T140000
+RRULE:FREQ=DAILY;INTERVAL=1;UNTIL=20010706
+SUMMARY:block no end time
+"))
+
+;; ======================================================================
+;; Import tests
+;; ======================================================================
+
+(defun icalendar-tests--test-import (input expected-iso expected-european
+ expected-american)
+ "Perform import test.
+Argument INPUT icalendar event string.
+Argument EXPECTED-ISO expected iso style diary string.
+Argument EXPECTED-EUROPEAN expected european style diary string.
+Argument EXPECTED-AMERICAN expected american style diary string."
+ (let ((timezone (cadr (current-time-zone))))
+ (set-time-zone-rule "CET")
+ (with-temp-buffer
+ (if (string-match "^BEGIN:VCALENDAR" input)
+ (insert input)
+ (insert "BEGIN:VCALENDAR\nPRODID:-//Emacs//NONSGML icalendar.el//EN\n")
+ (insert "VERSION:2.0\nBEGIN:VEVENT\n")
+ (insert input)
+ (unless (eq (char-before) ?\n)
+ (insert "\n"))
+ (insert "END:VEVENT\nEND:VCALENDAR\n"))
+ (let ((icalendar-import-format "%s%d%l%o%t%u%c%U")
+ (icalendar-import-format-summary "%s")
+ (icalendar-import-format-location "\n Location: %s")
+ (icalendar-import-format-description "\n Desc: %s")
+ (icalendar-import-format-organizer "\n Organizer: %s")
+ (icalendar-import-format-status "\n Status: %s")
+ (icalendar-import-format-url "\n URL: %s")
+ (icalendar-import-format-class "\n Class: %s")
+ (icalendar-import-format-uid "\n UID: %s")
+ calendar-date-style)
+ (when expected-iso
+ (setq calendar-date-style 'iso)
+ (icalendar-tests--do-test-import input expected-iso))
+ (when expected-european
+ (setq calendar-date-style 'european)
+ (icalendar-tests--do-test-import input expected-european))
+ (when expected-american
+ (setq calendar-date-style 'american)
+ (icalendar-tests--do-test-import input expected-american))))
+ (set-time-zone-rule timezone)))
+
+(defun icalendar-tests--do-test-import (input expected-output)
+ "Actually perform import test.
+Argument INPUT input icalendar string.
+Argument EXPECTED-OUTPUT expected diary string."
+ (let ((temp-file (make-temp-file "icalendar-test-diary")))
+ (icalendar-import-buffer temp-file t t)
+ (save-excursion
+ (find-file temp-file)
+ (let ((result (buffer-substring-no-properties (point-min) (point-max))))
+ (should (string= expected-output result)))
+ (kill-buffer (find-buffer-visiting temp-file))
+ (delete-file temp-file))))
+
+(ert-deftest icalendar-import-non-recurring ()
+ "Perform standard import tests."
+ (icalendar-tests--test-import
+ "SUMMARY:non-recurring
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000"
+ "&2003/9/19 09:00-11:30 non-recurring\n"
+ "&19/9/2003 09:00-11:30 non-recurring\n"
+ "&9/19/2003 09:00-11:30 non-recurring\n")
+ (icalendar-tests--test-import
+ "SUMMARY:non-recurring allday
+DTSTART;VALUE=DATE-TIME:20030919"
+ "&2003/9/19 non-recurring allday\n"
+ "&19/9/2003 non-recurring allday\n"
+ "&9/19/2003 non-recurring allday\n")
+ (icalendar-tests--test-import
+ ;; Checkdoc removes trailing blanks. Therefore: format!
+ (format "%s\n%s\n%s" "SUMMARY:long " " summary"
+ "DTSTART;VALUE=DATE:20030919")
+ "&2003/9/19 long summary\n"
+ "&19/9/2003 long summary\n"
+ "&9/19/2003 long summary\n")
+ (icalendar-tests--test-import
+ "UID:748f2da0-0d9b-11d8-97af-b4ec8686ea61
+SUMMARY:Sommerferien
+STATUS:TENTATIVE
+CLASS:PRIVATE
+X-MOZILLA-ALARM-DEFAULT-UNITS:Minuten
+X-MOZILLA-RECUR-DEFAULT-INTERVAL:0
+DTSTART;VALUE=DATE:20040719
+DTEND;VALUE=DATE:20040828
+DTSTAMP:20031103T011641Z
+"
+ "&%%(and (diary-block 2004 7 19 2004 8 27)) Sommerferien
+ Status: TENTATIVE
+ Class: PRIVATE
+ UID: 748f2da0-0d9b-11d8-97af-b4ec8686ea61
+"
+ "&%%(and (diary-block 19 7 2004 27 8 2004)) Sommerferien
+ Status: TENTATIVE
+ Class: PRIVATE
+ UID: 748f2da0-0d9b-11d8-97af-b4ec8686ea61
+"
+ "&%%(and (diary-block 7 19 2004 8 27 2004)) Sommerferien
+ Status: TENTATIVE
+ Class: PRIVATE
+ UID: 748f2da0-0d9b-11d8-97af-b4ec8686ea61
+")
+ (icalendar-tests--test-import
+ "UID
+ :04979712-3902-11d9-93dd-8f9f4afe08da
+SUMMARY
+ :folded summary
+STATUS
+ :TENTATIVE
+CLASS
+ :PRIVATE
+X-MOZILLA-ALARM-DEFAULT-LENGTH
+ :0
+DTSTART
+ :20041123T140000
+DTEND
+ :20041123T143000
+DTSTAMP
+ :20041118T013430Z
+LAST-MODIFIED
+ :20041118T013640Z
+"
+ "&2004/11/23 14:00-14:30 folded summary
+ Status: TENTATIVE
+ Class: PRIVATE
+ UID: 04979712-3902-11d9-93dd-8f9f4afe08da\n"
+ "&23/11/2004 14:00-14:30 folded summary
+ Status: TENTATIVE
+ Class: PRIVATE
+ UID: 04979712-3902-11d9-93dd-8f9f4afe08da\n"
+ "&11/23/2004 14:00-14:30 folded summary
+ Status: TENTATIVE
+ Class: PRIVATE
+ UID: 04979712-3902-11d9-93dd-8f9f4afe08da\n")
+
+ (icalendar-tests--test-import
+ "UID
+ :6161a312-3902-11d9-b512-f764153bb28b
+SUMMARY
+ :another example
+STATUS
+ :TENTATIVE
+CLASS
+ :PRIVATE
+X-MOZILLA-ALARM-DEFAULT-LENGTH
+ :0
+DTSTART
+ :20041123T144500
+DTEND
+ :20041123T154500
+DTSTAMP
+ :20041118T013641Z
+"
+ "&2004/11/23 14:45-15:45 another example
+ Status: TENTATIVE
+ Class: PRIVATE
+ UID: 6161a312-3902-11d9-b512-f764153bb28b\n"
+ "&23/11/2004 14:45-15:45 another example
+ Status: TENTATIVE
+ Class: PRIVATE
+ UID: 6161a312-3902-11d9-b512-f764153bb28b\n"
+ "&11/23/2004 14:45-15:45 another example
+ Status: TENTATIVE
+ Class: PRIVATE
+ UID: 6161a312-3902-11d9-b512-f764153bb28b\n"))
+
+(ert-deftest icalendar-import-rrule ()
+ (icalendar-tests--test-import
+ "SUMMARY:rrule daily
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=DAILY;
+"
+ "&%%(and (diary-cyclic 1 2003 9 19)) 09:00-11:30 rrule daily\n"
+ "&%%(and (diary-cyclic 1 19 9 2003)) 09:00-11:30 rrule daily\n"
+ "&%%(and (diary-cyclic 1 9 19 2003)) 09:00-11:30 rrule daily\n")
+ ;; RRULE examples
+ (icalendar-tests--test-import
+ "SUMMARY:rrule daily
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=DAILY;INTERVAL=2
+"
+ "&%%(and (diary-cyclic 2 2003 9 19)) 09:00-11:30 rrule daily\n"
+ "&%%(and (diary-cyclic 2 19 9 2003)) 09:00-11:30 rrule daily\n"
+ "&%%(and (diary-cyclic 2 9 19 2003)) 09:00-11:30 rrule daily\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule daily with exceptions
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=DAILY;INTERVAL=2
+EXDATE:20030921,20030925
+"
+ "&%%(and (not (diary-date 2003 9 25)) (not (diary-date 2003 9 21)) (diary-cyclic 2 2003 9 19)) 09:00-11:30 rrule daily with exceptions\n"
+ "&%%(and (not (diary-date 25 9 2003)) (not (diary-date 21 9 2003)) (diary-cyclic 2 19 9 2003)) 09:00-11:30 rrule daily with exceptions\n"
+ "&%%(and (not (diary-date 9 25 2003)) (not (diary-date 9 21 2003)) (diary-cyclic 2 9 19 2003)) 09:00-11:30 rrule daily with exceptions\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule weekly
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=WEEKLY;
+"
+ "&%%(and (diary-cyclic 7 2003 9 19)) 09:00-11:30 rrule weekly\n"
+ "&%%(and (diary-cyclic 7 19 9 2003)) 09:00-11:30 rrule weekly\n"
+ "&%%(and (diary-cyclic 7 9 19 2003)) 09:00-11:30 rrule weekly\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule monthly no end
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=MONTHLY;
+"
+ "&%%(and (diary-date t t 19) (diary-block 2003 9 19 9999 1 1)) 09:00-11:30 rrule monthly no end\n"
+ "&%%(and (diary-date 19 t t) (diary-block 19 9 2003 1 1 9999)) 09:00-11:30 rrule monthly no end\n"
+ "&%%(and (diary-date t 19 t) (diary-block 9 19 2003 1 1 9999)) 09:00-11:30 rrule monthly no end\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule monthly with end
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=MONTHLY;UNTIL=20050819;
+"
+ "&%%(and (diary-date t t 19) (diary-block 2003 9 19 2005 8 19)) 09:00-11:30 rrule monthly with end\n"
+ "&%%(and (diary-date 19 t t) (diary-block 19 9 2003 19 8 2005)) 09:00-11:30 rrule monthly with end\n"
+ "&%%(and (diary-date t 19 t) (diary-block 9 19 2003 8 19 2005)) 09:00-11:30 rrule monthly with end\n")
+ (icalendar-tests--test-import
+ "DTSTART;VALUE=DATE:20040815
+DTEND;VALUE=DATE:20040816
+SUMMARY:Maria Himmelfahrt
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=8
+"
+ "&%%(and (diary-anniversary 2004 8 15)) Maria Himmelfahrt\n"
+ "&%%(and (diary-anniversary 15 8 2004)) Maria Himmelfahrt\n"
+ "&%%(and (diary-anniversary 8 15 2004)) Maria Himmelfahrt\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule yearly
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=YEARLY;INTERVAL=2
+"
+ "&%%(and (diary-anniversary 2003 9 19)) 09:00-11:30 rrule yearly\n" ;FIXME
+ "&%%(and (diary-anniversary 19 9 2003)) 09:00-11:30 rrule yearly\n" ;FIXME
+ "&%%(and (diary-anniversary 9 19 2003)) 09:00-11:30 rrule yearly\n") ;FIXME
+ (icalendar-tests--test-import
+ "SUMMARY:rrule count daily short
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=DAILY;COUNT=1;INTERVAL=1
+"
+ "&%%(and (diary-cyclic 1 2003 9 19) (diary-block 2003 9 19 2003 9 19)) 09:00-11:30 rrule count daily short\n"
+ "&%%(and (diary-cyclic 1 19 9 2003) (diary-block 19 9 2003 19 9 2003)) 09:00-11:30 rrule count daily short\n"
+ "&%%(and (diary-cyclic 1 9 19 2003) (diary-block 9 19 2003 9 19 2003)) 09:00-11:30 rrule count daily short\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule count daily long
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=DAILY;COUNT=14;INTERVAL=1
+"
+ "&%%(and (diary-cyclic 1 2003 9 19) (diary-block 2003 9 19 2003 10 2)) 09:00-11:30 rrule count daily long\n"
+ "&%%(and (diary-cyclic 1 19 9 2003) (diary-block 19 9 2003 2 10 2003)) 09:00-11:30 rrule count daily long\n"
+ "&%%(and (diary-cyclic 1 9 19 2003) (diary-block 9 19 2003 10 2 2003)) 09:00-11:30 rrule count daily long\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule count bi-weekly 3 times
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=WEEKLY;COUNT=3;INTERVAL=2
+"
+ "&%%(and (diary-cyclic 14 2003 9 19) (diary-block 2003 9 19 2003 10 31)) 09:00-11:30 rrule count bi-weekly 3 times\n"
+ "&%%(and (diary-cyclic 14 19 9 2003) (diary-block 19 9 2003 31 10 2003)) 09:00-11:30 rrule count bi-weekly 3 times\n"
+ "&%%(and (diary-cyclic 14 9 19 2003) (diary-block 9 19 2003 10 31 2003)) 09:00-11:30 rrule count bi-weekly 3 times\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule count monthly
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=MONTHLY;INTERVAL=1;COUNT=5
+"
+ "&%%(and (diary-date t t 19) (diary-block 2003 9 19 2004 1 19)) 09:00-11:30 rrule count monthly\n"
+ "&%%(and (diary-date 19 t t) (diary-block 19 9 2003 19 1 2004)) 09:00-11:30 rrule count monthly\n"
+ "&%%(and (diary-date t 19 t) (diary-block 9 19 2003 1 19 2004)) 09:00-11:30 rrule count monthly\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule count every second month
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=MONTHLY;INTERVAL=2;COUNT=5
+"
+ "&%%(and (diary-date t t 19) (diary-block 2003 9 19 2004 5 19)) 09:00-11:30 rrule count every second month\n" ;FIXME
+ "&%%(and (diary-date 19 t t) (diary-block 19 9 2003 19 5 2004)) 09:00-11:30 rrule count every second month\n" ;FIXME
+ "&%%(and (diary-date t 19 t) (diary-block 9 19 2003 5 19 2004)) 09:00-11:30 rrule count every second month\n") ;FIXME
+ (icalendar-tests--test-import
+ "SUMMARY:rrule count yearly
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=YEARLY;INTERVAL=1;COUNT=5
+"
+ "&%%(and (diary-date t 9 19) (diary-block 2003 9 19 2007 9 19)) 09:00-11:30 rrule count yearly\n"
+ "&%%(and (diary-date 19 9 t) (diary-block 19 9 2003 19 9 2007)) 09:00-11:30 rrule count yearly\n"
+ "&%%(and (diary-date 9 19 t) (diary-block 9 19 2003 9 19 2007)) 09:00-11:30 rrule count yearly\n")
+ (icalendar-tests--test-import
+ "SUMMARY:rrule count every second year
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+RRULE:FREQ=YEARLY;INTERVAL=2;COUNT=5
+"
+ "&%%(and (diary-date t 9 19) (diary-block 2003 9 19 2011 9 19)) 09:00-11:30 rrule count every second year\n" ;FIXME!!!
+ "&%%(and (diary-date 19 9 t) (diary-block 19 9 2003 19 9 2011)) 09:00-11:30 rrule count every second year\n" ;FIXME!!!
+ "&%%(and (diary-date 9 19 t) (diary-block 9 19 2003 9 19 2011)) 09:00-11:30 rrule count every second year\n") ;FIXME!!!
+)
+
+(ert-deftest icalendar-import-duration ()
+ ;; duration
+ (icalendar-tests--test-import
+ "DTSTART;VALUE=DATE:20050217
+SUMMARY:duration
+DURATION:P7D
+"
+ "&%%(and (diary-block 2005 2 17 2005 2 23)) duration\n"
+ "&%%(and (diary-block 17 2 2005 23 2 2005)) duration\n"
+ "&%%(and (diary-block 2 17 2005 2 23 2005)) duration\n")
+ (icalendar-tests--test-import
+ "UID:20041127T183329Z-18215-1001-4536-49109@andromeda
+DTSTAMP:20041127T183315Z
+LAST-MODIFIED:20041127T183329
+SUMMARY:Urlaub
+DTSTART;VALUE=DATE:20011221
+DTEND;VALUE=DATE:20011221
+RRULE:FREQ=DAILY;UNTIL=20011229;INTERVAL=1;WKST=SU
+CLASS:PUBLIC
+SEQUENCE:1
+CREATED:20041127T183329
+"
+ "&%%(and (diary-cyclic 1 2001 12 21) (diary-block 2001 12 21 2001 12 29)) Urlaub
+ Class: PUBLIC
+ UID: 20041127T183329Z-18215-1001-4536-49109@andromeda\n"
+ "&%%(and (diary-cyclic 1 21 12 2001) (diary-block 21 12 2001 29 12 2001)) Urlaub
+ Class: PUBLIC
+ UID: 20041127T183329Z-18215-1001-4536-49109@andromeda\n"
+ "&%%(and (diary-cyclic 1 12 21 2001) (diary-block 12 21 2001 12 29 2001)) Urlaub
+ Class: PUBLIC
+ UID: 20041127T183329Z-18215-1001-4536-49109@andromeda\n"))
+
+(ert-deftest icalendar-import-bug-6766 ()
+ ;;bug#6766 -- multiple byday values in a weekly rrule
+ (icalendar-tests--test-import
+"CLASS:PUBLIC
+DTEND;TZID=America/New_York:20100421T120000
+DTSTAMP:20100525T141214Z
+DTSTART;TZID=America/New_York:20100421T113000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=MO,WE,TH,FR
+SEQUENCE:1
+STATUS:CONFIRMED
+SUMMARY:Scrum
+TRANSP:OPAQUE
+UID:8814e3f9-7482-408f-996c-3bfe486a1262
+END:VEVENT
+BEGIN:VEVENT
+CLASS:PUBLIC
+DTSTAMP:20100525T141214Z
+DTSTART;VALUE=DATE:20100422
+DTEND;VALUE=DATE:20100423
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=TU,TH
+SEQUENCE:1
+SUMMARY:Tues + Thurs thinking
+TRANSP:OPAQUE
+UID:8814e3f9-7482-408f-996c-3bfe486a1263
+"
+"&%%(and (memq (calendar-day-of-week date) '(1 3 4 5)) (diary-cyclic 1 2010 4 21)) 11:30-12:00 Scrum
+ Status: CONFIRMED
+ Class: PUBLIC
+ UID: 8814e3f9-7482-408f-996c-3bfe486a1262
+&%%(and (memq (calendar-day-of-week date) '(2 4)) (diary-cyclic 1 2010 4 22)) Tues + Thurs thinking
+ Class: PUBLIC
+ UID: 8814e3f9-7482-408f-996c-3bfe486a1263
+"
+"&%%(and (memq (calendar-day-of-week date) '(1 3 4 5)) (diary-cyclic 1 21 4 2010)) 11:30-12:00 Scrum
+ Status: CONFIRMED
+ Class: PUBLIC
+ UID: 8814e3f9-7482-408f-996c-3bfe486a1262
+&%%(and (memq (calendar-day-of-week date) '(2 4)) (diary-cyclic 1 22 4 2010)) Tues + Thurs thinking
+ Class: PUBLIC
+ UID: 8814e3f9-7482-408f-996c-3bfe486a1263
+"
+"&%%(and (memq (calendar-day-of-week date) '(1 3 4 5)) (diary-cyclic 1 4 21 2010)) 11:30-12:00 Scrum
+ Status: CONFIRMED
+ Class: PUBLIC
+ UID: 8814e3f9-7482-408f-996c-3bfe486a1262
+&%%(and (memq (calendar-day-of-week date) '(2 4)) (diary-cyclic 1 4 22 2010)) Tues + Thurs thinking
+ Class: PUBLIC
+ UID: 8814e3f9-7482-408f-996c-3bfe486a1263
+"))
+
+(ert-deftest icalendar-import-multiple-vcalendars ()
+ (icalendar-tests--test-import
+ "DTSTART;VALUE=DATE:20110723
+SUMMARY:event-1
+"
+ "&2011/7/23 event-1\n"
+ "&23/7/2011 event-1\n"
+ "&7/23/2011 event-1\n")
+
+ (icalendar-tests--test-import
+ "BEGIN:VCALENDAR
+PRODID:-//Emacs//NONSGML icalendar.el//EN
+VERSION:2.0\nBEGIN:VEVENT
+DTSTART;VALUE=DATE:20110723
+SUMMARY:event-1
+END:VEVENT
+END:VCALENDAR
+BEGIN:VCALENDAR
+PRODID:-//Emacs//NONSGML icalendar.el//EN
+VERSION:2.0
+BEGIN:VEVENT
+DTSTART;VALUE=DATE:20110724
+SUMMARY:event-2
+END:VEVENT
+END:VCALENDAR
+BEGIN:VCALENDAR
+PRODID:-//Emacs//NONSGML icalendar.el//EN
+VERSION:2.0
+BEGIN:VEVENT
+DTSTART;VALUE=DATE:20110725
+SUMMARY:event-3a
+END:VEVENT
+BEGIN:VEVENT
+DTSTART;VALUE=DATE:20110725
+SUMMARY:event-3b
+END:VEVENT
+END:VCALENDAR
+"
+ "&2011/7/23 event-1\n&2011/7/24 event-2\n&2011/7/25 event-3a\n&2011/7/25 event-3b\n"
+ "&23/7/2011 event-1\n&24/7/2011 event-2\n&25/7/2011 event-3a\n&25/7/2011 event-3b\n"
+ "&7/23/2011 event-1\n&7/24/2011 event-2\n&7/25/2011 event-3a\n&7/25/2011 event-3b\n"))
+
+(ert-deftest icalendar-import-with-uid ()
+ "Perform import test with uid."
+ (icalendar-tests--test-import
+ "UID:1234567890uid
+SUMMARY:non-recurring
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000"
+ "&2003/9/19 09:00-11:30 non-recurring\n UID: 1234567890uid\n"
+ "&19/9/2003 09:00-11:30 non-recurring\n UID: 1234567890uid\n"
+ "&9/19/2003 09:00-11:30 non-recurring\n UID: 1234567890uid\n"))
+
+(ert-deftest icalendar-import-with-timezone ()
+ ;; bug#11473
+ (icalendar-tests--test-import
+ "BEGIN:VCALENDAR
+BEGIN:VTIMEZONE
+TZID:fictional\, nonexistent\, arbitrary
+BEGIN:STANDARD
+DTSTART:20100101T000000
+TZOFFSETFROM:+0200
+TZOFFSETTO:-0200
+RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=1SU;BYMONTH=01
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:20101201T000000
+TZOFFSETFROM:-0200
+TZOFFSETTO:+0200
+RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=1SU;BYMONTH=11
+END:DAYLIGHT
+END:VTIMEZONE
+BEGIN:VEVENT
+SUMMARY:standardtime
+DTSTART;TZID=\"fictional, nonexistent, arbitrary\":20120115T120000
+DTEND;TZID=\"fictional, nonexistent, arbitrary\":20120115T123000
+END:VEVENT
+BEGIN:VEVENT
+SUMMARY:daylightsavingtime
+DTSTART;TZID=\"fictional, nonexistent, arbitrary\":20121215T120000
+DTEND;TZID=\"fictional, nonexistent, arbitrary\":20121215T123000
+END:VEVENT
+END:VCALENDAR"
+ ;; "standardtime" begins first sunday in january and is 4 hours behind CET
+ ;; "daylightsavingtime" begins first sunday in november and is 1 hour before CET
+ "&2012/1/15 15:00-15:30 standardtime
+&2012/12/15 11:00-11:30 daylightsavingtime
+"
+ nil
+ nil)
+ )
+;; ======================================================================
+;; Cycle
+;; ======================================================================
+(defun icalendar-tests--test-cycle (input)
+ "Perform cycle test.
+Argument INPUT icalendar event string."
+ (with-temp-buffer
+ (if (string-match "^BEGIN:VCALENDAR" input)
+ (insert input)
+ (insert "BEGIN:VCALENDAR\nPRODID:-//Emacs//NONSGML icalendar.el//EN\n")
+ (insert "VERSION:2.0\nBEGIN:VEVENT\n")
+ (insert input)
+ (unless (eq (char-before) ?\n)
+ (insert "\n"))
+ (insert "END:VEVENT\nEND:VCALENDAR\n"))
+ (let ((icalendar-import-format "%s%d%l%o%t%u%c%U")
+ (icalendar-import-format-summary "%s")
+ (icalendar-import-format-location "\n Location: %s")
+ (icalendar-import-format-description "\n Desc: %s")
+ (icalendar-import-format-organizer "\n Organizer: %s")
+ (icalendar-import-format-status "\n Status: %s")
+ (icalendar-import-format-url "\n URL: %s")
+ (icalendar-import-format-class "\n Class: %s")
+ (icalendar-import-format-class "\n UID: %s"))
+ (dolist (calendar-date-style '(iso european american))
+ (icalendar-tests--do-test-cycle)))))
+
+(defun icalendar-tests--do-test-cycle ()
+ "Actually perform import/export cycle test."
+ (let ((temp-diary (make-temp-file "icalendar-test-diary"))
+ (temp-ics (make-temp-file "icalendar-test-ics"))
+ (org-input (buffer-substring-no-properties (point-min) (point-max))))
+
+ (unwind-protect
+ (progn
+ ;; step 1: import
+ (icalendar-import-buffer temp-diary t t)
+
+ ;; step 2: export what was just imported
+ (save-excursion
+ (find-file temp-diary)
+ (icalendar-export-region (point-min) (point-max) temp-ics))
+
+ ;; compare the output of step 2 with the input of step 1
+ (save-excursion
+ (find-file temp-ics)
+ (goto-char (point-min))
+ ;;(when (re-search-forward "\nUID:.*\n" nil t)
+ ;;(replace-match "\n"))
+ (let ((cycled (buffer-substring-no-properties (point-min) (point-max))))
+ (should (string= org-input cycled)))))
+ ;; clean up
+ (kill-buffer (find-buffer-visiting temp-diary))
+ (save-excursion
+ (set-buffer (find-buffer-visiting temp-ics))
+ (set-buffer-modified-p nil)
+ (kill-buffer (current-buffer)))
+ (delete-file temp-diary)
+ (delete-file temp-ics))))
+
+(ert-deftest icalendar-cycle ()
+ "Perform cycling tests.
+Take care to avoid auto-generated UIDs here."
+ (icalendar-tests--test-cycle
+ "UID:dummyuid
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+SUMMARY:Cycletest
+")
+ (icalendar-tests--test-cycle
+ "UID:blah
+DTSTART;VALUE=DATE-TIME:20030919T090000
+DTEND;VALUE=DATE-TIME:20030919T113000
+SUMMARY:Cycletest
+DESCRIPTION:beschreibung!
+LOCATION:nowhere
+ORGANIZER:ulf
+")
+ (icalendar-tests--test-cycle
+ "UID:4711
+DTSTART;VALUE=DATE:19190909
+DTEND;VALUE=DATE:19190910
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=09;BYMONTHDAY=09
+SUMMARY:and diary-anniversary
+"))
+
+;; ======================================================================
+;; Real world
+;; ======================================================================
+(ert-deftest icalendar-real-world ()
+ "Perform real-world tests, as gathered from problem reports."
+ ;; 2003-05-29
+ (icalendar-tests--test-import
+ "BEGIN:VCALENDAR
+METHOD:REQUEST
+PRODID:Microsoft CDO for Microsoft Exchange
+VERSION:2.0
+BEGIN:VTIMEZONE
+TZID:Kolkata\, Chennai\, Mumbai\, New Delhi
+X-MICROSOFT-CDO-TZID:23
+BEGIN:STANDARD
+DTSTART:16010101T000000
+TZOFFSETFROM:+0530
+TZOFFSETTO:+0530
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:16010101T000000
+TZOFFSETFROM:+0530
+TZOFFSETTO:+0530
+END:DAYLIGHT
+END:VTIMEZONE
+BEGIN:VEVENT
+DTSTAMP:20030509T043439Z
+DTSTART;TZID=\"Kolkata, Chennai, Mumbai, New Delhi\":20030509T103000
+SUMMARY:On-Site Interview
+UID:040000008200E00074C5B7101A82E0080000000080B6DE661216C301000000000000000
+ 010000000DB823520692542408ED02D7023F9DFF9
+ATTENDEE;ROLE=REQ-PARTICIPANT;PARTSTAT=NEEDS-ACTION;RSVP=TRUE;CN=\"Xxxxx
+ xxx Xxxxxxxxxxxx\":MAILTO:xxxxxxxx@xxxxxxx.com
+ATTENDEE;ROLE=REQ-PARTICIPANT;PARTSTAT=NEEDS-ACTION;RSVP=TRUE;CN=\"Yyyyyyy Y
+ yyyy\":MAILTO:yyyyyyy@yyyyyyy.com
+ATTENDEE;ROLE=REQ-PARTICIPANT;PARTSTAT=NEEDS-ACTION;RSVP=TRUE;CN=\"Zzzz Zzzz
+ zz\":MAILTO:zzzzzz@zzzzzzz.com
+ORGANIZER;CN=\"Aaaaaa Aaaaa\":MAILTO:aaaaaaa@aaaaaaa.com
+LOCATION:Cccc
+DTEND;TZID=\"Kolkata, Chennai, Mumbai, New Delhi\":20030509T153000
+DESCRIPTION:10:30am - Blah
+SEQUENCE:0
+PRIORITY:5
+CLASS:
+CREATED:20030509T043439Z
+LAST-MODIFIED:20030509T043459Z
+STATUS:CONFIRMED
+TRANSP:OPAQUE
+X-MICROSOFT-CDO-BUSYSTATUS:BUSY
+X-MICROSOFT-CDO-INSTTYPE:0
+X-MICROSOFT-CDO-INTENDEDSTATUS:BUSY
+X-MICROSOFT-CDO-ALLDAYEVENT:FALSE
+X-MICROSOFT-CDO-IMPORTANCE:1
+X-MICROSOFT-CDO-OWNERAPPTID:126441427
+BEGIN:VALARM
+ACTION:DISPLAY
+DESCRIPTION:REMINDER
+TRIGGER;RELATED=START:-PT00H15M00S
+END:VALARM
+END:VEVENT
+END:VCALENDAR"
+ nil
+ "&9/5/2003 10:30-15:30 On-Site Interview
+ Desc: 10:30am - Blah
+ Location: Cccc
+ Organizer: MAILTO:aaaaaaa@aaaaaaa.com
+ Status: CONFIRMED
+ UID: 040000008200E00074C5B7101A82E0080000000080B6DE661216C301000000000000000010000000DB823520692542408ED02D7023F9DFF9
+"
+ "&5/9/2003 10:30-15:30 On-Site Interview
+ Desc: 10:30am - Blah
+ Location: Cccc
+ Organizer: MAILTO:aaaaaaa@aaaaaaa.com
+ Status: CONFIRMED
+ UID: 040000008200E00074C5B7101A82E0080000000080B6DE661216C301000000000000000010000000DB823520692542408ED02D7023F9DFF9
+")
+
+ ;; 2003-06-18 a
+ (icalendar-tests--test-import
+ "DTSTAMP:20030618T195512Z
+DTSTART;TZID=\"Mountain Time (US & Canada)\":20030623T110000
+SUMMARY:Dress Rehearsal for XXXX-XXXX
+UID:040000008200E00074C5B7101A82E00800000000608AA7DA9835C301000000000000000
+ 0100000007C3A6D65EE726E40B7F3D69A23BD567E
+ATTENDEE;ROLE=REQ-PARTICIPANT;PARTSTAT=NEEDS-ACTION;RSVP=TRUE;CN=\"AAAAA,AAA
+ AA (A-AAAAAAA,ex1)\":MAILTO:aaaaa_aaaaa@aaaaa.com
+ORGANIZER;CN=\"ABCD,TECHTRAINING
+ (A-Americas,exgen1)\":MAILTO:xxx@xxxxx.com
+LOCATION:555 or TN 555-5555 ID 5555 & NochWas (see below)
+DTEND;TZID=\"Mountain Time (US & Canada)\":20030623T120000
+DESCRIPTION:753 Zeichen hier radiert
+SEQUENCE:0
+PRIORITY:5
+CLASS:
+CREATED:20030618T195518Z
+LAST-MODIFIED:20030618T195527Z
+STATUS:CONFIRMED
+TRANSP:OPAQUE
+X-MICROSOFT-CDO-BUSYSTATUS:BUSY
+X-MICROSOFT-CDO-INSTTYPE:0
+X-MICROSOFT-CDO-INTENDEDSTATUS:BUSY
+X-MICROSOFT-CDO-ALLDAYEVENT:FALSE
+X-MICROSOFT-CDO-IMPORTANCE:1
+X-MICROSOFT-CDO-OWNERAPPTID:1022519251
+BEGIN:VALARM
+ACTION:DISPLAY
+DESCRIPTION:REMINDER
+TRIGGER;RELATED=START:-PT00H15M00S
+END:VALARM"
+ nil
+ "&23/6/2003 11:00-12:00 Dress Rehearsal for XXXX-XXXX
+ Desc: 753 Zeichen hier radiert
+ Location: 555 or TN 555-5555 ID 5555 & NochWas (see below)
+ Organizer: MAILTO:xxx@xxxxx.com
+ Status: CONFIRMED
+ UID: 040000008200E00074C5B7101A82E00800000000608AA7DA9835C3010000000000000000100000007C3A6D65EE726E40B7F3D69A23BD567E
+"
+ "&6/23/2003 11:00-12:00 Dress Rehearsal for XXXX-XXXX
+ Desc: 753 Zeichen hier radiert
+ Location: 555 or TN 555-5555 ID 5555 & NochWas (see below)
+ Organizer: MAILTO:xxx@xxxxx.com
+ Status: CONFIRMED
+ UID: 040000008200E00074C5B7101A82E00800000000608AA7DA9835C3010000000000000000100000007C3A6D65EE726E40B7F3D69A23BD567E
+")
+ ;; 2003-06-18 b -- uses timezone
+ (icalendar-tests--test-import
+ "BEGIN:VCALENDAR
+METHOD:REQUEST
+PRODID:Microsoft CDO for Microsoft Exchange
+VERSION:2.0
+BEGIN:VTIMEZONE
+TZID:Mountain Time (US & Canada)
+X-MICROSOFT-CDO-TZID:12
+BEGIN:STANDARD
+DTSTART:16010101T020000
+TZOFFSETFROM:-0600
+TZOFFSETTO:-0700
+RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=10;BYDAY=-1SU
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:16010101T020000
+TZOFFSETFROM:-0700
+TZOFFSETTO:-0600
+RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=4;BYDAY=1SU
+END:DAYLIGHT
+END:VTIMEZONE
+BEGIN:VEVENT
+DTSTAMP:20030618T230323Z
+DTSTART;TZID=\"Mountain Time (US & Canada)\":20030623T090000
+SUMMARY:Updated: Dress Rehearsal for ABC01-15
+UID:040000008200E00074C5B7101A82E00800000000608AA7DA9835C301000000000000000
+ 0100000007C3A6D65EE726E40B7F3D69A23BD567E
+ATTENDEE;ROLE=REQ-PARTICIPANT;PARTSTAT=NEEDS-ACTION;X-REPLYTIME=20030618T20
+ 0700Z;RSVP=TRUE;CN=\"AAAAA,AAAAAA
+\(A-AAAAAAA,ex1)\":MAILTO:aaaaaa_aaaaa@aaaaa
+ .com
+ORGANIZER;CN=\"ABCD,TECHTRAINING
+\(A-Americas,exgen1)\":MAILTO:bbb@bbbbb.com
+LOCATION:123 or TN 123-1234 ID abcd & SonstWo (see below)
+DTEND;TZID=\"Mountain Time (US & Canada)\":20030623T100000
+DESCRIPTION:Viele Zeichen standen hier früher
+SEQUENCE:0
+PRIORITY:5
+CLASS:
+CREATED:20030618T230326Z
+LAST-MODIFIED:20030618T230335Z
+STATUS:CONFIRMED
+TRANSP:OPAQUE
+X-MICROSOFT-CDO-BUSYSTATUS:BUSY
+X-MICROSOFT-CDO-INSTTYPE:0
+X-MICROSOFT-CDO-INTENDEDSTATUS:BUSY
+X-MICROSOFT-CDO-ALLDAYEVENT:FALSE
+X-MICROSOFT-CDO-IMPORTANCE:1
+X-MICROSOFT-CDO-OWNERAPPTID:1022519251
+BEGIN:VALARM
+ACTION:DISPLAY
+DESCRIPTION:REMINDER
+TRIGGER;RELATED=START:-PT00H15M00S
+END:VALARM
+END:VEVENT
+END:VCALENDAR"
+ nil
+ "&23/6/2003 17:00-18:00 Updated: Dress Rehearsal for ABC01-15
+ Desc: Viele Zeichen standen hier früher
+ Location: 123 or TN 123-1234 ID abcd & SonstWo (see below)
+ Organizer: MAILTO:bbb@bbbbb.com
+ Status: CONFIRMED
+ UID: 040000008200E00074C5B7101A82E00800000000608AA7DA9835C3010000000000000000100000007C3A6D65EE726E40B7F3D69A23BD567E
+"
+ "&6/23/2003 17:00-18:00 Updated: Dress Rehearsal for ABC01-15
+ Desc: Viele Zeichen standen hier früher
+ Location: 123 or TN 123-1234 ID abcd & SonstWo (see below)
+ Organizer: MAILTO:bbb@bbbbb.com
+ Status: CONFIRMED
+ UID: 040000008200E00074C5B7101A82E00800000000608AA7DA9835C3010000000000000000100000007C3A6D65EE726E40B7F3D69A23BD567E
+")
+ ;; export 2004-10-28 block entries
+ (icalendar-tests--test-export
+ nil
+ nil
+ "-*- mode: text; fill-column: 256;-*-
+
+>>> block entries:
+
+%%(diary-block 11 8 2004 11 10 2004) Nov 8-10 aa
+"
+ "DTSTART;VALUE=DATE:20041108
+DTEND;VALUE=DATE:20041111
+SUMMARY:Nov 8-10 aa")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-block 12 13 2004 12 17 2004) Dec 13-17 bb"
+ "DTSTART;VALUE=DATE:20041213
+DTEND;VALUE=DATE:20041218
+SUMMARY:Dec 13-17 bb")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-block 2 3 2005 2 4 2005) Feb 3-4 cc"
+ "DTSTART;VALUE=DATE:20050203
+DTEND;VALUE=DATE:20050205
+SUMMARY:Feb 3-4 cc")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-block 4 24 2005 4 29 2005) April 24-29 dd"
+ "DTSTART;VALUE=DATE:20050424
+DTEND;VALUE=DATE:20050430
+SUMMARY:April 24-29 dd
+")
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-block 5 30 2005 6 1 2005) may 30 - June 1: ee"
+ "DTSTART;VALUE=DATE:20050530
+DTEND;VALUE=DATE:20050602
+SUMMARY:may 30 - June 1: ee")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-block 6 6 2005 6 8 2005) ff"
+ "DTSTART;VALUE=DATE:20050606
+DTEND;VALUE=DATE:20050609
+SUMMARY:ff")
+
+ ;; export 2004-10-28 anniversary entries
+ (icalendar-tests--test-export
+ nil
+ nil
+ "
+>>> anniversaries:
+
+%%(diary-anniversary 3 28 1991) aa birthday (%d years old)"
+ "DTSTART;VALUE=DATE:19910328
+DTEND;VALUE=DATE:19910329
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=03;BYMONTHDAY=28
+SUMMARY:aa birthday (%d years old)
+")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-anniversary 5 17 1957) bb birthday (%d years old)"
+ "DTSTART;VALUE=DATE:19570517
+DTEND;VALUE=DATE:19570518
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=05;BYMONTHDAY=17
+SUMMARY:bb birthday (%d years old)")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-anniversary 6 8 1997) cc birthday (%d years old)"
+ "DTSTART;VALUE=DATE:19970608
+DTEND;VALUE=DATE:19970609
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=06;BYMONTHDAY=08
+SUMMARY:cc birthday (%d years old)")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-anniversary 7 22 1983) dd (%d years ago...!)"
+ "DTSTART;VALUE=DATE:19830722
+DTEND;VALUE=DATE:19830723
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=07;BYMONTHDAY=22
+SUMMARY:dd (%d years ago...!)")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-anniversary 8 1 1988) ee birthday (%d years old)"
+ "DTSTART;VALUE=DATE:19880801
+DTEND;VALUE=DATE:19880802
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=08;BYMONTHDAY=01
+SUMMARY:ee birthday (%d years old)")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "%%(diary-anniversary 9 21 1957) ff birthday (%d years old)"
+ "DTSTART;VALUE=DATE:19570921
+DTEND;VALUE=DATE:19570922
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=09;BYMONTHDAY=21
+SUMMARY:ff birthday (%d years old)")
+
+
+ ;; FIXME!
+
+ ;; export 2004-10-28 monthly, weekly entries
+
+ ;; (icalendar-tests--test-export
+ ;; nil
+ ;; "
+ ;; >>> ------------ monthly:
+
+ ;; */27/* 10:00 blah blah"
+ ;; "xxx")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ ">>> ------------ my week:
+
+Monday 13:00 MAC"
+ "DTSTART;VALUE=DATE-TIME:20000103T130000
+DTEND;VALUE=DATE-TIME:20000103T140000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=MO
+SUMMARY:MAC")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "Monday 15:00 a1"
+ "DTSTART;VALUE=DATE-TIME:20000103T150000
+DTEND;VALUE=DATE-TIME:20000103T160000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=MO
+SUMMARY:a1")
+
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "Monday 16:00-17:00 a2"
+ "DTSTART;VALUE=DATE-TIME:20000103T160000
+DTEND;VALUE=DATE-TIME:20000103T170000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=MO
+SUMMARY:a2")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "Tuesday 11:30-13:00 a3"
+ "DTSTART;VALUE=DATE-TIME:20000104T113000
+DTEND;VALUE=DATE-TIME:20000104T130000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=TU
+SUMMARY:a3")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "Tuesday 15:00 a4"
+ "DTSTART;VALUE=DATE-TIME:20000104T150000
+DTEND;VALUE=DATE-TIME:20000104T160000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=TU
+SUMMARY:a4")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "Wednesday 13:00 a5"
+ "DTSTART;VALUE=DATE-TIME:20000105T130000
+DTEND;VALUE=DATE-TIME:20000105T140000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=WE
+SUMMARY:a5")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "Wednesday 11:30-13:30 a6"
+ "DTSTART;VALUE=DATE-TIME:20000105T113000
+DTEND;VALUE=DATE-TIME:20000105T133000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=WE
+SUMMARY:a6")
+
+ (icalendar-tests--test-export
+ nil
+ nil
+ "Wednesday 15:00 s1"
+ "DTSTART;VALUE=DATE-TIME:20000105T150000
+DTEND;VALUE=DATE-TIME:20000105T160000
+RRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=WE
+SUMMARY:s1")
+
+
+ ;; export 2004-10-28 regular entries
+ (icalendar-tests--test-export
+ nil
+ nil
+ "
+>>> regular diary entries:
+
+Oct 12 2004, 14:00 Tue: [2004-10-12] q1"
+ "DTSTART;VALUE=DATE-TIME:20041012T140000
+DTEND;VALUE=DATE-TIME:20041012T150000
+SUMMARY:Tue: [2004-10-12] q1")
+
+ ;; 2004-11-19
+ (icalendar-tests--test-import
+ "BEGIN:VCALENDAR
+VERSION
+ :2.0
+PRODID
+ :-//Mozilla.org/NONSGML Mozilla Calendar V1.0//EN
+BEGIN:VEVENT
+SUMMARY
+ :Jjjjj & Wwwww
+STATUS
+ :TENTATIVE
+CLASS
+ :PRIVATE
+X-MOZILLA-ALARM-DEFAULT-LENGTH
+ :0
+DTSTART
+ :20041123T140000
+DTEND
+ :20041123T143000
+DTSTAMP
+ :20041118T013430Z
+LAST-MODIFIED
+ :20041118T013640Z
+END:VEVENT
+BEGIN:VEVENT
+SUMMARY
+ :BB Aaaaaaaa Bbbbb
+STATUS
+ :TENTATIVE
+CLASS
+ :PRIVATE
+X-MOZILLA-ALARM-DEFAULT-LENGTH
+ :0
+DTSTART
+ :20041123T144500
+DTEND
+ :20041123T154500
+DTSTAMP
+ :20041118T013641Z
+END:VEVENT
+BEGIN:VEVENT
+SUMMARY
+ :Hhhhhhhh
+STATUS
+ :TENTATIVE
+CLASS
+ :PRIVATE
+X-MOZILLA-ALARM-DEFAULT-LENGTH
+ :0
+DTSTART
+ :20041123T110000
+DTEND
+ :20041123T120000
+DTSTAMP
+ :20041118T013831Z
+END:VEVENT
+BEGIN:VEVENT
+SUMMARY
+ :MMM Aaaaaaaaa
+STATUS
+ :TENTATIVE
+CLASS
+ :PRIVATE
+X-MOZILLA-ALARM-DEFAULT-LENGTH
+ :0
+X-MOZILLA-RECUR-DEFAULT-INTERVAL
+ :2
+RRULE
+ :FREQ=WEEKLY;INTERVAL=2;BYDAY=FR
+DTSTART
+ :20041112T140000
+DTEND
+ :20041112T183000
+DTSTAMP
+ :20041118T014117Z
+END:VEVENT
+BEGIN:VEVENT
+SUMMARY
+ :Rrrr/Cccccc ii Aaaaaaaa
+DESCRIPTION
+ :Vvvvv Rrrr aaa Cccccc
+STATUS
+ :TENTATIVE
+CLASS
+ :PRIVATE
+X-MOZILLA-ALARM-DEFAULT-LENGTH
+ :0
+DTSTART
+ ;VALUE=DATE
+ :20041119
+DTEND
+ ;VALUE=DATE
+ :20041120
+DTSTAMP
+ :20041118T013107Z
+LAST-MODIFIED
+ :20041118T014203Z
+END:VEVENT
+BEGIN:VEVENT
+SUMMARY
+ :Wwww aa hhhh
+STATUS
+ :TENTATIVE
+CLASS
+ :PRIVATE
+X-MOZILLA-ALARM-DEFAULT-LENGTH
+ :0
+RRULE
+ :FREQ=WEEKLY;INTERVAL=1;BYDAY=MO
+DTSTART
+ ;VALUE=DATE
+ :20041101
+DTEND
+ ;VALUE=DATE
+ :20041102
+DTSTAMP
+ :20041118T014045Z
+LAST-MODIFIED
+ :20041118T023846Z
+END:VEVENT
+END:VCALENDAR
+"
+ nil
+ "&23/11/2004 14:00-14:30 Jjjjj & Wwwww
+ Status: TENTATIVE
+ Class: PRIVATE
+&23/11/2004 14:45-15:45 BB Aaaaaaaa Bbbbb
+ Status: TENTATIVE
+ Class: PRIVATE
+&23/11/2004 11:00-12:00 Hhhhhhhh
+ Status: TENTATIVE
+ Class: PRIVATE
+&%%(and (diary-cyclic 14 12 11 2004)) 14:00-18:30 MMM Aaaaaaaaa
+ Status: TENTATIVE
+ Class: PRIVATE
+&%%(and (diary-block 19 11 2004 19 11 2004)) Rrrr/Cccccc ii Aaaaaaaa
+ Desc: Vvvvv Rrrr aaa Cccccc
+ Status: TENTATIVE
+ Class: PRIVATE
+&%%(and (diary-cyclic 7 1 11 2004)) Wwww aa hhhh
+ Status: TENTATIVE
+ Class: PRIVATE
+"
+ "&11/23/2004 14:00-14:30 Jjjjj & Wwwww
+ Status: TENTATIVE
+ Class: PRIVATE
+&11/23/2004 14:45-15:45 BB Aaaaaaaa Bbbbb
+ Status: TENTATIVE
+ Class: PRIVATE
+&11/23/2004 11:00-12:00 Hhhhhhhh
+ Status: TENTATIVE
+ Class: PRIVATE
+&%%(and (diary-cyclic 14 11 12 2004)) 14:00-18:30 MMM Aaaaaaaaa
+ Status: TENTATIVE
+ Class: PRIVATE
+&%%(and (diary-block 11 19 2004 11 19 2004)) Rrrr/Cccccc ii Aaaaaaaa
+ Desc: Vvvvv Rrrr aaa Cccccc
+ Status: TENTATIVE
+ Class: PRIVATE
+&%%(and (diary-cyclic 7 11 1 2004)) Wwww aa hhhh
+ Status: TENTATIVE
+ Class: PRIVATE
+")
+
+ ;; 2004-09-09 pg
+ (icalendar-tests--test-export
+ "%%(diary-block 1 1 2004 4 1 2004) Urlaub"
+ nil
+ nil
+ "DTSTART;VALUE=DATE:20040101
+DTEND;VALUE=DATE:20040105
+SUMMARY:Urlaub")
+
+ ;; 2004-10-25 pg
+ (icalendar-tests--test-export
+ nil
+ "5 11 2004 Bla Fasel"
+ nil
+ "DTSTART;VALUE=DATE:20041105
+DTEND;VALUE=DATE:20041106
+SUMMARY:Bla Fasel")
+
+ ;; 2004-10-30 pg
+ (icalendar-tests--test-export
+ nil
+ "2 Nov 2004 15:00-16:30 Zahnarzt"
+ nil
+ "DTSTART;VALUE=DATE-TIME:20041102T150000
+DTEND;VALUE=DATE-TIME:20041102T163000
+SUMMARY:Zahnarzt")
+
+ ;; 2005-02-07 lt
+ (icalendar-tests--test-import
+ "UID
+ :b60d398e-1dd1-11b2-a159-cf8cb05139f4
+SUMMARY
+ :Waitangi Day
+DESCRIPTION
+ :abcdef
+CATEGORIES
+ :Public Holiday
+STATUS
+ :CONFIRMED
+CLASS
+ :PRIVATE
+DTSTART
+ ;VALUE=DATE
+ :20050206
+DTEND
+ ;VALUE=DATE
+ :20050207
+DTSTAMP
+ :20050128T011209Z"
+ nil
+ "&%%(and (diary-block 6 2 2005 6 2 2005)) Waitangi Day
+ Desc: abcdef
+ Status: CONFIRMED
+ Class: PRIVATE
+ UID: b60d398e-1dd1-11b2-a159-cf8cb05139f4
+"
+ "&%%(and (diary-block 2 6 2005 2 6 2005)) Waitangi Day
+ Desc: abcdef
+ Status: CONFIRMED
+ Class: PRIVATE
+ UID: b60d398e-1dd1-11b2-a159-cf8cb05139f4
+")
+
+ ;; 2005-03-01 lt
+ (icalendar-tests--test-import
+ "DTSTART;VALUE=DATE:20050217
+SUMMARY:Hhhhhh Aaaaa ii Aaaaaaaa
+UID:6AFA7558-6994-11D9-8A3A-000A95A0E830-RID
+DTSTAMP:20050118T210335Z
+DURATION:P7D"
+ nil
+ "&%%(and (diary-block 17 2 2005 23 2 2005)) Hhhhhh Aaaaa ii Aaaaaaaa
+ UID: 6AFA7558-6994-11D9-8A3A-000A95A0E830-RID\n"
+ "&%%(and (diary-block 2 17 2005 2 23 2005)) Hhhhhh Aaaaa ii Aaaaaaaa
+ UID: 6AFA7558-6994-11D9-8A3A-000A95A0E830-RID\n")
+
+ ;; 2005-03-23 lt
+ (icalendar-tests--test-export
+ nil
+ "&%%(diary-cyclic 7 8 2 2005) 16:00-16:45 [WORK] Pppp"
+ nil
+ "DTSTART;VALUE=DATE-TIME:20050208T160000
+DTEND;VALUE=DATE-TIME:20050208T164500
+RRULE:FREQ=DAILY;INTERVAL=7
+SUMMARY:[WORK] Pppp
+")
+
+ ;; 2005-05-27 eu
+ (icalendar-tests--test-export
+ nil
+ nil
+ ;; FIXME: colon not allowed!
+ ;;"Nov 1: NNN Wwwwwwww Wwwww - Aaaaaa Pppppppp rrrrrr ddd oo Nnnnnnnn 30"
+ "Nov 1 NNN Wwwwwwww Wwwww - Aaaaaa Pppppppp rrrrrr ddd oo Nnnnnnnn 30"
+ "DTSTART;VALUE=DATE:19001101
+DTEND;VALUE=DATE:19001102
+RRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=11;BYMONTHDAY=1
+SUMMARY:NNN Wwwwwwww Wwwww - Aaaaaa Pppppppp rrrrrr ddd oo Nnnnnnnn 30
+")
+
+ ;; bug#11473
+ (icalendar-tests--test-import
+ "BEGIN:VCALENDAR
+METHOD:REQUEST
+PRODID:Microsoft Exchange Server 2007
+VERSION:2.0
+BEGIN:VTIMEZONE
+TZID:(UTC+01:00) Amsterdam\, Berlin\, Bern\, Rome\, Stockholm\, Vienna
+BEGIN:STANDARD
+DTSTART:16010101T030000
+TZOFFSETFROM:+0200
+TZOFFSETTO:+0100
+RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=10
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:16010101T020000
+TZOFFSETFROM:+0100
+TZOFFSETTO:+0200
+RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=3
+END:DAYLIGHT
+END:VTIMEZONE
+BEGIN:VEVENT
+ORGANIZER;CN=\"A. Luser\":MAILTO:a.luser@foo.com
+ATTENDEE;ROLE=REQ-PARTICIPANT;PARTSTAT=NEEDS-ACTION;RSVP=TRUE;CN=\"Luser, Oth
+ er\":MAILTO:other.luser@foo.com
+DESCRIPTION;LANGUAGE=en-US:\nWhassup?\n\n
+SUMMARY;LANGUAGE=en-US:Query
+DTSTART;TZID=\"(UTC+01:00) Amsterdam, Berlin, Bern, Rome, Stockholm, Vienna\"
+ :20120515T150000
+DTEND;TZID=\"(UTC+01:00) Amsterdam, Berlin, Bern, Rome, Stockholm, Vienna\":2
+ 0120515T153000
+UID:040000008200E00074C5B7101A82E0080000000020FFAED0CFEFCC01000000000000000
+ 010000000575268034ECDB649A15349B1BF240F15
+RECURRENCE-ID;TZID=\"(UTC+01:00) Amsterdam, Berlin, Bern, Rome, Stockholm, V
+ ienna\":20120515T170000
+CLASS:PUBLIC
+PRIORITY:5
+DTSTAMP:20120514T153645Z
+TRANSP:OPAQUE
+STATUS:CONFIRMED
+SEQUENCE:15
+LOCATION;LANGUAGE=en-US:phone
+X-MICROSOFT-CDO-APPT-SEQUENCE:15
+X-MICROSOFT-CDO-OWNERAPPTID:1907632092
+X-MICROSOFT-CDO-BUSYSTATUS:TENTATIVE
+X-MICROSOFT-CDO-INTENDEDSTATUS:BUSY
+X-MICROSOFT-CDO-ALLDAYEVENT:FALSE
+X-MICROSOFT-CDO-IMPORTANCE:1
+X-MICROSOFT-CDO-INSTTYPE:3
+BEGIN:VALARM
+ACTION:DISPLAY
+DESCRIPTION:REMINDER
+TRIGGER;RELATED=START:-PT15M
+END:VALARM
+END:VEVENT
+END:VCALENDAR"
+ nil
+ "&15/5/2012 15:00-15:30 Query
+ Location: phone
+ Organizer: MAILTO:a.luser@foo.com
+ Status: CONFIRMED
+ Class: PUBLIC
+ UID: 040000008200E00074C5B7101A82E0080000000020FFAED0CFEFCC01000000000000000010000000575268034ECDB649A15349B1BF240F15
+" nil)
+)
+
+(provide 'icalendar-tests)
+;;; icalendar-tests.el ends here
--- /dev/null
+;;; lexbind-tests.el --- Testing the lexbind byte-compiler
+
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
+
+;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+
+(require 'ert)
+
+(defconst lexbind-tests
+ `(
+ (let ((f #'car))
+ (let ((f (lambda (x) (cons (funcall f x) (cdr x)))))
+ (funcall f '(1 . 2))))
+ )
+ "List of expression for test.
+Each element will be executed by interpreter and with
+bytecompiled code, and their results compared.")
+
+
+
+(defun lexbind-check-1 (pat)
+ "Return non-nil if PAT is the same whether directly evalled or compiled."
+ (let ((warning-minimum-log-level :emergency)
+ (byte-compile-warnings nil)
+ (v0 (condition-case nil
+ (eval pat t)
+ (error nil)))
+ (v1 (condition-case nil
+ (funcall (let ((lexical-binding t))
+ (byte-compile `(lambda nil ,pat))))
+ (error nil))))
+ (equal v0 v1)))
+
+(put 'lexbind-check-1 'ert-explainer 'lexbind-explain-1)
+
+(defun lexbind-explain-1 (pat)
+ (let ((v0 (condition-case nil
+ (eval pat t)
+ (error nil)))
+ (v1 (condition-case nil
+ (funcall (let ((lexical-binding t))
+ (byte-compile (list 'lambda nil pat))))
+ (error nil))))
+ (format "Expression `%s' gives `%s' if directly evalled, `%s' if compiled."
+ pat v0 v1)))
+
+(ert-deftest lexbind-tests ()
+ "Test the Emacs byte compiler lexbind handling."
+ (dolist (pat lexbind-tests)
+ (should (lexbind-check-1 pat))))
+
+
+
+(provide 'lexbind-tests)
+;;; lexbind-tests.el ends here
--- /dev/null
+;;; newsticker-testsuite.el --- Test suite for newsticker.
+
+;; Copyright (C) 2003-2013 Free Software Foundation, Inc.
+
+;; Author: Ulf Jasper <ulf.jasper@web.de>
+;; Keywords: News, RSS, Atom
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'ert)
+(require 'newsticker)
+
+;; ======================================================================
+;; Tests for newsticker-backend
+;; ======================================================================
+(ert-deftest newsticker--guid ()
+ "Test for `newsticker--guid-*'.
+Signals an error if something goes wrong."
+ (should (string= "blah" (newsticker--guid-to-string "blah")))
+ (should (string= "myguid" (newsticker--guid '("title1" "description1" "link1"
+ nil 'new 42 nil nil
+ ((guid () "myguid")))))))
+
+(ert-deftest newsticker--cache-contains ()
+ "Test for `newsticker--cache-contains'."
+ (let ((newsticker--cache '((feed1
+ ("title1" "description1" "link1" nil 'new 42
+ nil nil ((guid () "myguid")))))))
+ (newsticker--guid-to-string
+ (assoc 'guid (newsticker--extra '("title1" "description1"
+ "link1" nil 'new 42 nil nil
+ ((guid "myguid"))))))
+ (should (newsticker--cache-contains newsticker--cache 'feed1 "WRONGTITLE"
+ "description1" "link1" 'new "myguid"))
+ (should (not (newsticker--cache-contains newsticker--cache 'feed1 "title1"
+ "description1" "link1" 'new
+ "WRONG GUID")))
+ (should (newsticker--cache-contains newsticker--cache 'feed1 "title1"
+ "description1" "link1" 'new "myguid")))
+ (let ((newsticker--cache '((feed1
+ ("title1" "description1" "link1" nil 'new 42
+ nil nil ((guid () "myguid1")))
+ ("title1" "description1" "link1" nil 'new 42
+ nil nil ((guid () "myguid2")))))))
+ (should (not (newsticker--cache-contains newsticker--cache 'feed1 "title1"
+ "description1" "link1" 'new
+ "myguid")))
+ (should (string= "myguid1"
+ (newsticker--guid (newsticker--cache-contains
+ newsticker--cache 'feed1 "title1"
+ "description1" "link1" 'new
+ "myguid1"))))
+ (should (string= "myguid2"
+ (newsticker--guid (newsticker--cache-contains
+ newsticker--cache 'feed1 "title1"
+ "description1" "link1" 'new
+ "myguid2"))))))
+
+(defun newsticker-tests--decode-iso8601-date (input expected)
+ "Actually test `newsticker--decode-iso8601-date'.
+Apply to INPUT and compare with EXPECTED."
+ (let ((result (format-time-string "%Y-%m-%dT%H:%M:%S"
+ (newsticker--decode-iso8601-date input)
+ t)))
+ (should (string= result expected))))
+
+(ert-deftest newsticker--decode-iso8601-date ()
+ "Test `newsticker--decode-iso8601-date'."
+ (newsticker-tests--decode-iso8601-date "2004"
+ "2004-01-01T00:00:00")
+ (newsticker-tests--decode-iso8601-date "2004-09"
+ "2004-09-01T00:00:00")
+ (newsticker-tests--decode-iso8601-date "2004-09-17"
+ "2004-09-17T00:00:00")
+ (newsticker-tests--decode-iso8601-date "2004-09-17T05:09"
+ "2004-09-17T05:09:00")
+ (newsticker-tests--decode-iso8601-date "2004-09-17T05:09:49"
+ "2004-09-17T05:09:49")
+ (newsticker-tests--decode-iso8601-date "2004-09-17T05:09:49.123"
+ "2004-09-17T05:09:49")
+ (newsticker-tests--decode-iso8601-date "2004-09-17T05:09+01:00"
+ "2004-09-17T04:09:00")
+ (newsticker-tests--decode-iso8601-date "2004-09-17T05:09-02:00"
+ "2004-09-17T07:09:00"))
+
+(defun newsticker--do-test--decode-rfc822-date (input expected)
+ "Actually test `newsticker--decode-rfc822-date'.
+Apply to INPUT and compare with EXPECTED."
+ (let ((result (format-time-string "%Y-%m-%dT%H:%M:%S"
+ (newsticker--decode-rfc822-date input)
+ t)))
+ (should (string= result expected))))
+
+(ert-deftest newsticker--decode-rfc822-date ()
+ "Test `newsticker--decode-rfc822-date'."
+ (newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008 19:27:52 +0100"
+ "2008-03-10T18:27:52")
+ ;;(format-time-string "%d.%m.%y, %H:%M %T%z"
+ ;;(newsticker--decode-rfc822-date "Mon, 10 Mar 2008 19:27:52 +0200"))
+
+ (newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008 19:27:52"
+ "2008-03-10T19:27:52")
+ (newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008 19:27"
+ "2008-03-10T19:27:00")
+ (newsticker--do-test--decode-rfc822-date "10 Mar 2008 19:27"
+ "2008-03-10T19:27:00")
+ (newsticker--do-test--decode-rfc822-date "Mon, 10 Mar 2008"
+ "2008-03-10T00:00:00")
+ (newsticker--do-test--decode-rfc822-date "10 Mar 2008"
+ "2008-03-10T00:00:00")
+ (newsticker--do-test--decode-rfc822-date "Sat, 01 Dec 2007 00:05:00 +0100"
+ "2007-11-30T23:05:00")
+ (newsticker--do-test--decode-rfc822-date "Sun, 30 Dec 2007 18:58:13 +0100"
+ "2007-12-30T17:58:13"))
+
+;; ======================================================================
+;; Tests for newsticker-treeview
+;; ======================================================================
+(ert-deftest newsticker--group-manage-orphan-feeds ()
+ "Test `newsticker--group-manage-orphan-feeds'.
+Signals an error if something goes wrong."
+ (let ((newsticker-groups '("Feeds"))
+ (newsticker-url-list-defaults nil)
+ (newsticker-url-list '(("feed1") ("feed2") ("feed3"))))
+ (newsticker--group-manage-orphan-feeds)
+ (should (equal '("Feeds" "feed3" "feed2" "feed1")
+ newsticker-groups))))
+
+(provide 'newsticker-tests)
+
+;;; newsticker-tests.el ends here
--- /dev/null
+;;; occur-tests.el --- Test suite for occur.
+
+;; Copyright (C) 2010-2013 Free Software Foundation, Inc.
+
+;; Author: Juri Linkov <juri@jurta.org>
+;; Keywords: matching, internal
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert)
+
+(defconst occur-tests
+ '(
+ ;; * Test one-line matches (at bob, eob, bol, eol).
+ ("x" 0 "\
+xa
+b
+cx
+xd
+xex
+fx
+" "\
+5 matches for \"x\" in buffer: *test-occur*
+ 1:xa
+ 3:cx
+ 4:xd
+ 5:xex
+ 6:fx
+")
+ ;; * Test multi-line matches, this is the first test from
+ ;; http://lists.gnu.org/archive/html/emacs-devel/2005-06/msg01008.html
+ ;; where numbers are replaced with letters.
+ ("a\na" 0 "\
+a
+a
+a
+a
+a
+" "\
+2 matches for \"a^Ja\" in buffer: *test-occur*
+ 1:a
+ :a
+ 3:a
+ :a
+")
+ ;; * Test multi-line matches, this is the second test from
+ ;; http://lists.gnu.org/archive/html/emacs-devel/2005-06/msg01008.html
+ ;; where numbers are replaced with letters.
+ ("a\nb" 0 "\
+a
+b
+c
+a
+b
+" "\
+2 matches for \"a^Jb\" in buffer: *test-occur*
+ 1:a
+ :b
+ 4:a
+ :b
+")
+ ;; * Test line numbers for multi-line matches with empty last match line.
+ ("a\n" 0 "\
+a
+
+c
+a
+
+" "\
+2 matches for \"a^J\" in buffer: *test-occur*
+ 1:a
+ :
+ 4:a
+ :
+")
+ ;; * Test multi-line matches with 3 match lines.
+ ("x\n.x\n" 0 "\
+ax
+bx
+c
+d
+ex
+fx
+" "\
+2 matches for \"x^J.x^J\" in buffer: *test-occur*
+ 1:ax
+ :bx
+ :c
+ 5:ex
+ :fx
+ :
+")
+ ;; * Test non-overlapping context lines with matches at bob/eob.
+ ("x" 1 "\
+ax
+b
+c
+d
+ex
+f
+g
+hx
+" "\
+3 matches for \"x\" in buffer: *test-occur*
+ 1:ax
+ :b
+-------
+ :d
+ 5:ex
+ :f
+-------
+ :g
+ 8:hx
+")
+ ;; * Test non-overlapping context lines with matches not at bob/eob.
+ ("x" 1 "\
+a
+bx
+c
+d
+ex
+f
+" "\
+2 matches for \"x\" in buffer: *test-occur*
+ :a
+ 2:bx
+ :c
+-------
+ :d
+ 5:ex
+ :f
+")
+ ;; * Test overlapping context lines with matches at bob/eob.
+ ("x" 2 "\
+ax
+bx
+c
+dx
+e
+f
+gx
+h
+i
+j
+kx
+" "\
+5 matches for \"x\" in buffer: *test-occur*
+ 1:ax
+ 2:bx
+ :c
+ 4:dx
+ :e
+ :f
+ 7:gx
+ :h
+ :i
+ :j
+ 11:kx
+")
+ ;; * Test overlapping context lines with matches not at bob/eob.
+ ("x" 2 "\
+a
+b
+cx
+d
+e
+f
+gx
+h
+i
+" "\
+2 matches for \"x\" in buffer: *test-occur*
+ :a
+ :b
+ 3:cx
+ :d
+ :e
+ :f
+ 7:gx
+ :h
+ :i
+")
+ ;; * Test overlapping context lines with empty first and last line..
+ ("x" 2 "\
+
+b
+cx
+d
+e
+f
+gx
+h
+
+" "\
+2 matches for \"x\" in buffer: *test-occur*
+ :
+ :b
+ 3:cx
+ :d
+ :e
+ :f
+ 7:gx
+ :h
+ :
+")
+ ;; * Test multi-line overlapping context lines.
+ ("x\n.x" 2 "\
+ax
+bx
+c
+d
+ex
+fx
+g
+h
+i
+jx
+kx
+" "\
+3 matches for \"x^J.x\" in buffer: *test-occur*
+ 1:ax
+ :bx
+ :c
+ :d
+ 5:ex
+ :fx
+ :g
+ :h
+ :i
+ 10:jx
+ :kx
+")
+ ;; * Test multi-line non-overlapping context lines.
+ ("x\n.x" 2 "\
+ax
+bx
+c
+d
+e
+f
+gx
+hx
+" "\
+2 matches for \"x^J.x\" in buffer: *test-occur*
+ 1:ax
+ :bx
+ :c
+ :d
+-------
+ :e
+ :f
+ 7:gx
+ :hx
+")
+ ;; * Test non-overlapping negative (before-context) lines.
+ ("x" -2 "\
+a
+bx
+c
+d
+e
+fx
+g
+h
+ix
+" "\
+3 matches for \"x\" in buffer: *test-occur*
+ :a
+ 2:bx
+-------
+ :d
+ :e
+ 6:fx
+-------
+ :g
+ :h
+ 9:ix
+")
+ ;; * Test overlapping negative (before-context) lines.
+ ("x" -3 "\
+a
+bx
+c
+dx
+e
+f
+gx
+h
+" "\
+3 matches for \"x\" in buffer: *test-occur*
+ :a
+ 2:bx
+ :c
+ 4:dx
+ :e
+ :f
+ 7:gx
+")
+
+)
+ "List of tests for `occur'.
+Each element has the format:
+\(REGEXP NLINES INPUT-BUFFER-STRING OUTPUT-BUFFER-STRING).")
+
+(defun occur-test-case (test)
+ (let ((regexp (nth 0 test))
+ (nlines (nth 1 test))
+ (input-buffer-string (nth 2 test))
+ (output-buffer-string (nth 3 test))
+ (temp-buffer (get-buffer-create " *test-occur*")))
+ (unwind-protect
+ (save-window-excursion
+ (with-current-buffer temp-buffer
+ (erase-buffer)
+ (insert input-buffer-string)
+ (occur regexp nlines)
+ (equal output-buffer-string
+ (with-current-buffer "*Occur*"
+ (buffer-string)))))
+ (and (buffer-name temp-buffer)
+ (kill-buffer temp-buffer)))))
+
+(ert-deftest occur-tests ()
+ "Test the functionality of `occur'.
+The test data is in the `occur-tests' constant."
+ (let ((occur-hook nil))
+ (dolist (test occur-tests)
+ (should (occur-test-case test)))))
+
+(provide 'occur-tests)
+
+;;; occur-tests.el ends here
--- /dev/null
+;;; python-tests.el --- Test suite for python.el
+
+;; Copyright (C) 2013 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'python)
+
+(defmacro python-tests-with-temp-buffer (contents &rest body)
+ "Create a `python-mode' enabled temp buffer with CONTENTS.
+BODY is code to be executed within the temp buffer. Point is
+always located at the beginning of buffer."
+ (declare (indent 1) (debug t))
+ `(with-temp-buffer
+ (python-mode)
+ (insert ,contents)
+ (goto-char (point-min))
+ ,@body))
+
+(defmacro python-tests-with-temp-file (contents &rest body)
+ "Create a `python-mode' enabled file with CONTENTS.
+BODY is code to be executed within the temp buffer. Point is
+always located at the beginning of buffer."
+ (declare (indent 1) (debug t))
+ `(let* ((temp-file (concat (make-temp-file "python-tests") ".py"))
+ (buffer (find-file-noselect temp-file)))
+ (unwind-protect
+ (with-current-buffer buffer
+ (python-mode)
+ (insert ,contents)
+ (goto-char (point-min))
+ ,@body)
+ (and buffer (kill-buffer buffer)))))
+
+(defun python-tests-look-at (string &optional num restore-point)
+ "Move point at beginning of STRING in the current buffer.
+Optional argument NUM defaults to 1 and is an integer indicating
+how many ocurrences must be found, when positive the search is
+done forwards, otherwise backwards. When RESTORE-POINT is
+non-nil the point is not moved but the position found is still
+returned. When searching forward and point is already looking at
+STRING, it is skipped so the next STRING occurrence is selected."
+ (let* ((num (or num 1))
+ (starting-point (point))
+ (string (regexp-quote string))
+ (search-fn (if (> num 0) #'re-search-forward #'re-search-backward))
+ (deinc-fn (if (> num 0) #'1- #'1+))
+ (found-point))
+ (prog2
+ (catch 'exit
+ (while (not (= num 0))
+ (when (and (> num 0)
+ (looking-at string))
+ ;; Moving forward and already looking at STRING, skip it.
+ (forward-char (length (match-string-no-properties 0))))
+ (and (not (funcall search-fn string nil t))
+ (throw 'exit t))
+ (when (> num 0)
+ ;; `re-search-forward' leaves point at the end of the
+ ;; occurrence, move back so point is at the beginning
+ ;; instead.
+ (forward-char (- (length (match-string-no-properties 0)))))
+ (setq
+ num (funcall deinc-fn num)
+ found-point (point))))
+ found-point
+ (and restore-point (goto-char starting-point)))))
+
+\f
+;;; Tests for your tests, so you can test while you test.
+
+(ert-deftest python-tests-look-at-1 ()
+ "Test forward movement."
+ (python-tests-with-temp-buffer
+ "Lorem ipsum dolor sit amet, consectetur adipisicing elit,
+sed do eiusmod tempor incididunt ut labore et dolore magna
+aliqua."
+ (let ((expected (save-excursion
+ (dotimes (i 3)
+ (re-search-forward "et" nil t))
+ (forward-char -2)
+ (point))))
+ (should (= (python-tests-look-at "et" 3 t) expected))
+ ;; Even if NUM is bigger than found occurrences the point of last
+ ;; one should be returned.
+ (should (= (python-tests-look-at "et" 6 t) expected))
+ ;; If already looking at STRING, it should skip it.
+ (dotimes (i 2) (re-search-forward "et"))
+ (forward-char -2)
+ (should (= (python-tests-look-at "et") expected)))))
+
+(ert-deftest python-tests-look-at-2 ()
+ "Test backward movement."
+ (python-tests-with-temp-buffer
+ "Lorem ipsum dolor sit amet, consectetur adipisicing elit,
+sed do eiusmod tempor incididunt ut labore et dolore magna
+aliqua."
+ (let ((expected
+ (save-excursion
+ (re-search-forward "et" nil t)
+ (forward-char -2)
+ (point))))
+ (dotimes (i 3)
+ (re-search-forward "et" nil t))
+ (should (= (python-tests-look-at "et" -3 t) expected))
+ (should (= (python-tests-look-at "et" -6 t) expected)))))
+
+\f
+;;; Bindings
+
+\f
+;;; Python specialized rx
+
+\f
+;;; Font-lock and syntax
+
+\f
+;;; Indentation
+
+;; See: http://www.python.org/dev/peps/pep-0008/#indentation
+
+(ert-deftest python-indent-pep8-1 ()
+ "First pep8 case."
+ (python-tests-with-temp-buffer
+ "# Aligned with opening delimiter
+foo = long_function_name(var_one, var_two,
+ var_three, var_four)
+"
+ (should (eq (car (python-indent-context)) 'no-indent))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "foo = long_function_name(var_one, var_two,")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "var_three, var_four)")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 25))))
+
+(ert-deftest python-indent-pep8-2 ()
+ "Second pep8 case."
+ (python-tests-with-temp-buffer
+ "# More indentation included to distinguish this from the rest.
+def long_function_name(
+ var_one, var_two, var_three,
+ var_four):
+ print (var_one)
+"
+ (should (eq (car (python-indent-context)) 'no-indent))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "def long_function_name(")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "var_one, var_two, var_three,")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "var_four):")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "print (var_one)")
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 4))))
+
+(ert-deftest python-indent-pep8-3 ()
+ "Third pep8 case."
+ (python-tests-with-temp-buffer
+ "# Extra indentation is not necessary.
+foo = long_function_name(
+ var_one, var_two,
+ var_three, var_four)
+"
+ (should (eq (car (python-indent-context)) 'no-indent))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "foo = long_function_name(")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "var_one, var_two,")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "var_three, var_four)")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 4))))
+
+(ert-deftest python-indent-inside-paren-1 ()
+ "The most simple inside-paren case that shouldn't fail."
+ (python-tests-with-temp-buffer
+ "
+data = {
+ 'key':
+ {
+ 'objlist': [
+ {
+ 'pk': 1,
+ 'name': 'first',
+ },
+ {
+ 'pk': 2,
+ 'name': 'second',
+ }
+ ]
+ }
+}
+"
+ (python-tests-look-at "data = {")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "'key':")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "{")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "'objlist': [")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "{")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 12))
+ (python-tests-look-at "'pk': 1,")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 16))
+ (python-tests-look-at "'name': 'first',")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 16))
+ (python-tests-look-at "},")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 12))
+ (python-tests-look-at "{")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 12))
+ (python-tests-look-at "'pk': 2,")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 16))
+ (python-tests-look-at "'name': 'second',")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 16))
+ (python-tests-look-at "}")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 12))
+ (python-tests-look-at "]")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "}")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "}")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 0))))
+
+(ert-deftest python-indent-inside-paren-2 ()
+ "Another more compact paren group style."
+ (python-tests-with-temp-buffer
+ "
+data = {'key': {
+ 'objlist': [
+ {'pk': 1,
+ 'name': 'first'},
+ {'pk': 2,
+ 'name': 'second'}
+ ]
+}}
+"
+ (python-tests-look-at "data = {")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "'objlist': [")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "{'pk': 1,")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "'name': 'first'},")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 9))
+ (python-tests-look-at "{'pk': 2,")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "'name': 'second'}")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 9))
+ (python-tests-look-at "]")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "}}")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "}")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 0))))
+
+(ert-deftest python-indent-after-block-1 ()
+ "The most simple after-block case that shouldn't fail."
+ (python-tests-with-temp-buffer
+ "
+def foo(a, b, c=True):
+"
+ (should (eq (car (python-indent-context)) 'no-indent))
+ (should (= (python-indent-calculate-indentation) 0))
+ (goto-char (point-max))
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 4))))
+
+(ert-deftest python-indent-after-block-2 ()
+ "A weird (malformed) multiline block statement."
+ (python-tests-with-temp-buffer
+ "
+def foo(a, b, c={
+ 'a':
+}):
+"
+ (goto-char (point-max))
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 4))))
+
+(ert-deftest python-indent-dedenters-1 ()
+ "Check all dedenters."
+ (python-tests-with-temp-buffer
+ "
+def foo(a, b, c):
+ if a:
+ print (a)
+ elif b:
+ print (b)
+ else:
+ try:
+ print (c.pop())
+ except (IndexError, AttributeError):
+ print (c)
+ finally:
+ print ('nor a, nor b are true')
+"
+ (python-tests-look-at "if a:")
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "print (a)")
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "elif b:")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "print (b)")
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "else:")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "try:")
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "print (c.pop())")
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 12))
+ (python-tests-look-at "except (IndexError, AttributeError):")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "print (c)")
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 12))
+ (python-tests-look-at "finally:")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 8))
+ (python-tests-look-at "print ('nor a, nor b are true')")
+ (should (eq (car (python-indent-context)) 'after-beginning-of-block))
+ (should (= (python-indent-calculate-indentation) 12))))
+
+(ert-deftest python-indent-after-backslash-1 ()
+ "The most common case."
+ (python-tests-with-temp-buffer
+ "
+from foo.bar.baz import something, something_1 \\\\
+ something_2 something_3, \\\\
+ something_4, something_5
+"
+ (python-tests-look-at "from foo.bar.baz import something, something_1")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at "something_2 something_3,")
+ (should (eq (car (python-indent-context)) 'after-backslash))
+ (should (= (python-indent-calculate-indentation) 4))
+ (python-tests-look-at "something_4, something_5")
+ (should (eq (car (python-indent-context)) 'after-backslash))
+ (should (= (python-indent-calculate-indentation) 4))
+ (goto-char (point-max))
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 0))))
+
+(ert-deftest python-indent-after-backslash-2 ()
+ "A pretty extreme complicated case."
+ (python-tests-with-temp-buffer
+ "
+objects = Thing.objects.all() \\\\
+ .filter(
+ type='toy',
+ status='bought'
+ ) \\\\
+ .aggregate(
+ Sum('amount')
+ ) \\\\
+ .values_list()
+"
+ (python-tests-look-at "objects = Thing.objects.all()")
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 0))
+ (python-tests-look-at ".filter(")
+ (should (eq (car (python-indent-context)) 'after-backslash))
+ (should (= (python-indent-calculate-indentation) 23))
+ (python-tests-look-at "type='toy',")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 27))
+ (python-tests-look-at "status='bought'")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 27))
+ (python-tests-look-at ") \\\\")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 23))
+ (python-tests-look-at ".aggregate(")
+ (should (eq (car (python-indent-context)) 'after-backslash))
+ (should (= (python-indent-calculate-indentation) 23))
+ (python-tests-look-at "Sum('amount')")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 27))
+ (python-tests-look-at ") \\\\")
+ (should (eq (car (python-indent-context)) 'inside-paren))
+ (should (= (python-indent-calculate-indentation) 23))
+ (python-tests-look-at ".values_list()")
+ (should (eq (car (python-indent-context)) 'after-backslash))
+ (should (= (python-indent-calculate-indentation) 23))
+ (forward-line 1)
+ (should (eq (car (python-indent-context)) 'after-line))
+ (should (= (python-indent-calculate-indentation) 0))))
+
+\f
+;;; Navigation
+
+(ert-deftest python-nav-beginning-of-defun-1 ()
+ (python-tests-with-temp-buffer
+ "
+def decoratorFunctionWithArguments(arg1, arg2, arg3):
+ '''print decorated function call data to stdout.
+
+ Usage:
+
+ @decoratorFunctionWithArguments('arg1', 'arg2')
+ def func(a, b, c=True):
+ pass
+ '''
+
+ def wwrap(f):
+ print 'Inside wwrap()'
+ def wrapped_f(*args):
+ print 'Inside wrapped_f()'
+ print 'Decorator arguments:', arg1, arg2, arg3
+ f(*args)
+ print 'After f(*args)'
+ return wrapped_f
+ return wwrap
+"
+ (python-tests-look-at "return wrap")
+ (should (= (save-excursion
+ (python-nav-beginning-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "def wrapped_f(*args):" -1)
+ (beginning-of-line)
+ (point))))
+ (python-tests-look-at "def wrapped_f(*args):" -1)
+ (should (= (save-excursion
+ (python-nav-beginning-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "def wwrap(f):" -1)
+ (beginning-of-line)
+ (point))))
+ (python-tests-look-at "def wwrap(f):" -1)
+ (should (= (save-excursion
+ (python-nav-beginning-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "def decoratorFunctionWithArguments" -1)
+ (beginning-of-line)
+ (point))))))
+
+(ert-deftest python-nav-beginning-of-defun-2 ()
+ (python-tests-with-temp-buffer
+ "
+class C(object):
+
+ def m(self):
+ self.c()
+
+ def b():
+ pass
+
+ def a():
+ pass
+
+ def c(self):
+ pass
+"
+ ;; Nested defuns, are handled with care.
+ (python-tests-look-at "def c(self):")
+ (should (= (save-excursion
+ (python-nav-beginning-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "def m(self):" -1)
+ (beginning-of-line)
+ (point))))
+ ;; Defuns on same levels should be respected.
+ (python-tests-look-at "def a():" -1)
+ (should (= (save-excursion
+ (python-nav-beginning-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "def b():" -1)
+ (beginning-of-line)
+ (point))))
+ ;; Jump to a top level defun.
+ (python-tests-look-at "def b():" -1)
+ (should (= (save-excursion
+ (python-nav-beginning-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "def m(self):" -1)
+ (beginning-of-line)
+ (point))))
+ ;; Jump to a top level defun again.
+ (python-tests-look-at "def m(self):" -1)
+ (should (= (save-excursion
+ (python-nav-beginning-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "class C(object):" -1)
+ (beginning-of-line)
+ (point))))))
+
+(ert-deftest python-nav-end-of-defun-1 ()
+ (python-tests-with-temp-buffer
+ "
+class C(object):
+
+ def m(self):
+ self.c()
+
+ def b():
+ pass
+
+ def a():
+ pass
+
+ def c(self):
+ pass
+"
+ (should (= (save-excursion
+ (python-tests-look-at "class C(object):")
+ (python-nav-end-of-defun)
+ (point))
+ (save-excursion
+ (point-max))))
+ (should (= (save-excursion
+ (python-tests-look-at "def m(self):")
+ (python-nav-end-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "def c(self):")
+ (forward-line -1)
+ (point))))
+ (should (= (save-excursion
+ (python-tests-look-at "def b():")
+ (python-nav-end-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "def b():")
+ (forward-line 2)
+ (point))))
+ (should (= (save-excursion
+ (python-tests-look-at "def c(self):")
+ (python-nav-end-of-defun)
+ (point))
+ (save-excursion
+ (point-max))))))
+
+(ert-deftest python-nav-end-of-defun-2 ()
+ (python-tests-with-temp-buffer
+ "
+def decoratorFunctionWithArguments(arg1, arg2, arg3):
+ '''print decorated function call data to stdout.
+
+ Usage:
+
+ @decoratorFunctionWithArguments('arg1', 'arg2')
+ def func(a, b, c=True):
+ pass
+ '''
+
+ def wwrap(f):
+ print 'Inside wwrap()'
+ def wrapped_f(*args):
+ print 'Inside wrapped_f()'
+ print 'Decorator arguments:', arg1, arg2, arg3
+ f(*args)
+ print 'After f(*args)'
+ return wrapped_f
+ return wwrap
+"
+ (should (= (save-excursion
+ (python-tests-look-at "def decoratorFunctionWithArguments")
+ (python-nav-end-of-defun)
+ (point))
+ (save-excursion
+ (point-max))))
+ (should (= (save-excursion
+ (python-tests-look-at "@decoratorFunctionWithArguments")
+ (python-nav-end-of-defun)
+ (point))
+ (save-excursion
+ (point-max))))
+ (should (= (save-excursion
+ (python-tests-look-at "def wwrap(f):")
+ (python-nav-end-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "return wwrap")
+ (line-beginning-position))))
+ (should (= (save-excursion
+ (python-tests-look-at "def wrapped_f(*args):")
+ (python-nav-end-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "return wrapped_f")
+ (line-beginning-position))))
+ (should (= (save-excursion
+ (python-tests-look-at "f(*args)")
+ (python-nav-end-of-defun)
+ (point))
+ (save-excursion
+ (python-tests-look-at "return wrapped_f")
+ (line-beginning-position))))))
+
+
+(ert-deftest python-nav-beginning-of-statement-1 ()
+ (python-tests-with-temp-buffer
+ "
+v1 = 123 + \
+ 456 + \
+ 789
+v2 = (value1,
+ value2,
+
+ value3,
+ value4)
+v3 = ('this is a string'
+
+ 'that is continued'
+ 'between lines'
+ 'within a paren',
+ # this is a comment, yo
+ 'continue previous line')
+v4 = '''
+a very long
+string
+'''
+"
+ (python-tests-look-at "v2 =")
+ (python-util-forward-comment -1)
+ (should (= (save-excursion
+ (python-nav-beginning-of-statement)
+ (point))
+ (python-tests-look-at "v1 =" -1 t)))
+ (python-tests-look-at "v3 =")
+ (python-util-forward-comment -1)
+ (should (= (save-excursion
+ (python-nav-beginning-of-statement)
+ (point))
+ (python-tests-look-at "v2 =" -1 t)))
+ (python-tests-look-at "v4 =")
+ (python-util-forward-comment -1)
+ (should (= (save-excursion
+ (python-nav-beginning-of-statement)
+ (point))
+ (python-tests-look-at "v3 =" -1 t)))
+ (goto-char (point-max))
+ (python-util-forward-comment -1)
+ (should (= (save-excursion
+ (python-nav-beginning-of-statement)
+ (point))
+ (python-tests-look-at "v4 =" -1 t)))))
+
+(ert-deftest python-nav-end-of-statement-1 ()
+ (python-tests-with-temp-buffer
+ "
+v1 = 123 + \
+ 456 + \
+ 789
+v2 = (value1,
+ value2,
+
+ value3,
+ value4)
+v3 = ('this is a string'
+
+ 'that is continued'
+ 'between lines'
+ 'within a paren',
+ # this is a comment, yo
+ 'continue previous line')
+v4 = '''
+a very long
+string
+'''
+"
+ (python-tests-look-at "v1 =")
+ (should (= (save-excursion
+ (python-nav-end-of-statement)
+ (point))
+ (save-excursion
+ (python-tests-look-at "789")
+ (line-end-position))))
+ (python-tests-look-at "v2 =")
+ (should (= (save-excursion
+ (python-nav-end-of-statement)
+ (point))
+ (save-excursion
+ (python-tests-look-at "value4)")
+ (line-end-position))))
+ (python-tests-look-at "v3 =")
+ (should (= (save-excursion
+ (python-nav-end-of-statement)
+ (point))
+ (save-excursion
+ (python-tests-look-at
+ "'continue previous line')")
+ (line-end-position))))
+ (python-tests-look-at "v4 =")
+ (should (= (save-excursion
+ (python-nav-end-of-statement)
+ (point))
+ (save-excursion
+ (goto-char (point-max))
+ (python-util-forward-comment -1)
+ (point))))))
+
+(ert-deftest python-nav-forward-statement-1 ()
+ (python-tests-with-temp-buffer
+ "
+v1 = 123 + \
+ 456 + \
+ 789
+v2 = (value1,
+ value2,
+
+ value3,
+ value4)
+v3 = ('this is a string'
+
+ 'that is continued'
+ 'between lines'
+ 'within a paren',
+ # this is a comment, yo
+ 'continue previous line')
+v4 = '''
+a very long
+string
+'''
+"
+ (python-tests-look-at "v1 =")
+ (should (= (save-excursion
+ (python-nav-forward-statement)
+ (point))
+ (python-tests-look-at "v2 =")))
+ (should (= (save-excursion
+ (python-nav-forward-statement)
+ (point))
+ (python-tests-look-at "v3 =")))
+ (should (= (save-excursion
+ (python-nav-forward-statement)
+ (point))
+ (python-tests-look-at "v4 =")))
+ (should (= (save-excursion
+ (python-nav-forward-statement)
+ (point))
+ (point-max)))))
+
+(ert-deftest python-nav-backward-statement-1 ()
+ (python-tests-with-temp-buffer
+ "
+v1 = 123 + \
+ 456 + \
+ 789
+v2 = (value1,
+ value2,
+
+ value3,
+ value4)
+v3 = ('this is a string'
+
+ 'that is continued'
+ 'between lines'
+ 'within a paren',
+ # this is a comment, yo
+ 'continue previous line')
+v4 = '''
+a very long
+string
+'''
+"
+ (goto-char (point-max))
+ (should (= (save-excursion
+ (python-nav-backward-statement)
+ (point))
+ (python-tests-look-at "v4 =" -1)))
+ (should (= (save-excursion
+ (python-nav-backward-statement)
+ (point))
+ (python-tests-look-at "v3 =" -1)))
+ (should (= (save-excursion
+ (python-nav-backward-statement)
+ (point))
+ (python-tests-look-at "v2 =" -1)))
+ (should (= (save-excursion
+ (python-nav-backward-statement)
+ (point))
+ (python-tests-look-at "v1 =" -1)))))
+
+(ert-deftest python-nav-backward-statement-2 ()
+ :expected-result :failed
+ (python-tests-with-temp-buffer
+ "
+v1 = 123 + \
+ 456 + \
+ 789
+v2 = (value1,
+ value2,
+
+ value3,
+ value4)
+"
+ ;; FIXME: For some reason `python-nav-backward-statement' is moving
+ ;; back two sentences when starting from 'value4)'.
+ (goto-char (point-max))
+ (python-util-forward-comment -1)
+ (should (= (save-excursion
+ (python-nav-backward-statement)
+ (point))
+ (python-tests-look-at "v2 =" -1 t)))))
+
+(ert-deftest python-nav-beginning-of-block-1 ()
+ (python-tests-with-temp-buffer
+ "
+def decoratorFunctionWithArguments(arg1, arg2, arg3):
+ '''print decorated function call data to stdout.
+
+ Usage:
+
+ @decoratorFunctionWithArguments('arg1', 'arg2')
+ def func(a, b, c=True):
+ pass
+ '''
+
+ def wwrap(f):
+ print 'Inside wwrap()'
+ def wrapped_f(*args):
+ print 'Inside wrapped_f()'
+ print 'Decorator arguments:', arg1, arg2, arg3
+ f(*args)
+ print 'After f(*args)'
+ return wrapped_f
+ return wwrap
+"
+ (python-tests-look-at "return wwrap")
+ (should (= (save-excursion
+ (python-nav-beginning-of-block)
+ (point))
+ (python-tests-look-at "def decoratorFunctionWithArguments" -1)))
+ (python-tests-look-at "print 'Inside wwrap()'")
+ (should (= (save-excursion
+ (python-nav-beginning-of-block)
+ (point))
+ (python-tests-look-at "def wwrap(f):" -1)))
+ (python-tests-look-at "print 'After f(*args)'")
+ (end-of-line)
+ (should (= (save-excursion
+ (python-nav-beginning-of-block)
+ (point))
+ (python-tests-look-at "def wrapped_f(*args):" -1)))
+ (python-tests-look-at "return wrapped_f")
+ (should (= (save-excursion
+ (python-nav-beginning-of-block)
+ (point))
+ (python-tests-look-at "def wwrap(f):" -1)))))
+
+(ert-deftest python-nav-end-of-block-1 ()
+ (python-tests-with-temp-buffer
+ "
+def decoratorFunctionWithArguments(arg1, arg2, arg3):
+ '''print decorated function call data to stdout.
+
+ Usage:
+
+ @decoratorFunctionWithArguments('arg1', 'arg2')
+ def func(a, b, c=True):
+ pass
+ '''
+
+ def wwrap(f):
+ print 'Inside wwrap()'
+ def wrapped_f(*args):
+ print 'Inside wrapped_f()'
+ print 'Decorator arguments:', arg1, arg2, arg3
+ f(*args)
+ print 'After f(*args)'
+ return wrapped_f
+ return wwrap
+"
+ (python-tests-look-at "def decoratorFunctionWithArguments")
+ (should (= (save-excursion
+ (python-nav-end-of-block)
+ (point))
+ (save-excursion
+ (goto-char (point-max))
+ (python-util-forward-comment -1)
+ (point))))
+ (python-tests-look-at "def wwrap(f):")
+ (should (= (save-excursion
+ (python-nav-end-of-block)
+ (point))
+ (save-excursion
+ (python-tests-look-at "return wrapped_f")
+ (line-end-position))))
+ (end-of-line)
+ (should (= (save-excursion
+ (python-nav-end-of-block)
+ (point))
+ (save-excursion
+ (python-tests-look-at "return wrapped_f")
+ (line-end-position))))
+ (python-tests-look-at "f(*args)")
+ (should (= (save-excursion
+ (python-nav-end-of-block)
+ (point))
+ (save-excursion
+ (python-tests-look-at "print 'After f(*args)'")
+ (line-end-position))))))
+
+(ert-deftest python-nav-forward-block-1 ()
+ "This also accounts as a test for `python-nav-backward-block'."
+ (python-tests-with-temp-buffer
+ "
+if request.user.is_authenticated():
+ # def block():
+ # pass
+ try:
+ profile = request.user.get_profile()
+ except Profile.DoesNotExist:
+ profile = Profile.objects.create(user=request.user)
+ else:
+ if profile.stats:
+ profile.recalculate_stats()
+ else:
+ profile.clear_stats()
+ finally:
+ profile.views += 1
+ profile.save()
+"
+ (should (= (save-excursion (python-nav-forward-block))
+ (python-tests-look-at "if request.user.is_authenticated():")))
+ (should (= (save-excursion (python-nav-forward-block))
+ (python-tests-look-at "try:")))
+ (should (= (save-excursion (python-nav-forward-block))
+ (python-tests-look-at "except Profile.DoesNotExist:")))
+ (should (= (save-excursion (python-nav-forward-block))
+ (python-tests-look-at "else:")))
+ (should (= (save-excursion (python-nav-forward-block))
+ (python-tests-look-at "if profile.stats:")))
+ (should (= (save-excursion (python-nav-forward-block))
+ (python-tests-look-at "else:")))
+ (should (= (save-excursion (python-nav-forward-block))
+ (python-tests-look-at "finally:")))
+ ;; When point is at the last block, leave it there and return nil
+ (should (not (save-excursion (python-nav-forward-block))))
+ ;; Move backwards, and even if the number of moves is less than the
+ ;; provided argument return the point.
+ (should (= (save-excursion (python-nav-forward-block -10))
+ (python-tests-look-at
+ "if request.user.is_authenticated():" -1)))))
+
+(ert-deftest python-nav-lisp-forward-sexp-safe-1 ()
+ (python-tests-with-temp-buffer
+ "
+profile = Profile.objects.create(user=request.user)
+profile.notify()
+"
+ (python-tests-look-at "profile =")
+ (python-nav-lisp-forward-sexp-safe 4)
+ (should (looking-at "(user=request.user)"))
+ (python-tests-look-at "user=request.user")
+ (python-nav-lisp-forward-sexp-safe -1)
+ (should (looking-at "(user=request.user)"))
+ (python-nav-lisp-forward-sexp-safe -4)
+ (should (looking-at "profile ="))
+ (python-tests-look-at "user=request.user")
+ (python-nav-lisp-forward-sexp-safe 3)
+ (should (looking-at ")"))
+ (python-nav-lisp-forward-sexp-safe 1)
+ (should (looking-at "$"))
+ (python-nav-lisp-forward-sexp-safe 1)
+ (should (looking-at ".notify()"))))
+
+(ert-deftest python-nav-forward-sexp-1 ()
+ (python-tests-with-temp-buffer
+ "
+a()
+b()
+c()
+"
+ (python-tests-look-at "a()")
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should (save-excursion
+ (beginning-of-line)
+ (looking-at "a()")))
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should (save-excursion
+ (beginning-of-line)
+ (looking-at "b()")))
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should (save-excursion
+ (beginning-of-line)
+ (looking-at "c()")))
+ ;; Movement next to a paren should do what lisp does and
+ ;; unfortunately It can't change, because otherwise
+ ;; `blink-matching-open' breaks.
+ (python-nav-forward-sexp -1)
+ (should (looking-at "()"))
+ (should (save-excursion
+ (beginning-of-line)
+ (looking-at "c()")))
+ (python-nav-forward-sexp -1)
+ (should (looking-at "c()"))
+ (python-nav-forward-sexp -1)
+ (should (looking-at "b()"))
+ (python-nav-forward-sexp -1)
+ (should (looking-at "a()"))))
+
+(ert-deftest python-nav-forward-sexp-2 ()
+ (python-tests-with-temp-buffer
+ "
+def func():
+ if True:
+ aaa = bbb
+ ccc = ddd
+ eee = fff
+ return ggg
+"
+ (python-tests-look-at "aa =")
+ (python-nav-forward-sexp)
+ (should (looking-at " = bbb"))
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should (save-excursion
+ (back-to-indentation)
+ (looking-at "aaa = bbb")))
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should (save-excursion
+ (back-to-indentation)
+ (looking-at "ccc = ddd")))
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should (save-excursion
+ (back-to-indentation)
+ (looking-at "eee = fff")))
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should (save-excursion
+ (back-to-indentation)
+ (looking-at "return ggg")))
+ (python-nav-forward-sexp -1)
+ (should (looking-at "def func():"))))
+
+(ert-deftest python-nav-forward-sexp-3 ()
+ (python-tests-with-temp-buffer
+ "
+from some_module import some_sub_module
+from another_module import another_sub_module
+
+def another_statement():
+ pass
+"
+ (python-tests-look-at "some_module")
+ (python-nav-forward-sexp)
+ (should (looking-at " import"))
+ (python-nav-forward-sexp)
+ (should (looking-at " some_sub_module"))
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should
+ (save-excursion
+ (back-to-indentation)
+ (looking-at
+ "from some_module import some_sub_module")))
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should
+ (save-excursion
+ (back-to-indentation)
+ (looking-at
+ "from another_module import another_sub_module")))
+ (python-nav-forward-sexp)
+ (should (looking-at "$"))
+ (should
+ (save-excursion
+ (back-to-indentation)
+ (looking-at
+ "pass")))
+ (python-nav-forward-sexp -1)
+ (should (looking-at "def another_statement():"))
+ (python-nav-forward-sexp -1)
+ (should (looking-at "from another_module import another_sub_module"))
+ (python-nav-forward-sexp -1)
+ (should (looking-at "from some_module import some_sub_module"))))
+
+(ert-deftest python-nav-up-list-1 ()
+ (python-tests-with-temp-buffer
+ "
+def f():
+ if True:
+ return [i for i in range(3)]
+"
+ (python-tests-look-at "3)]")
+ (python-nav-up-list)
+ (should (looking-at "]"))
+ (python-nav-up-list)
+ (should (looking-at "$"))))
+
+(ert-deftest python-nav-backward-up-list-1 ()
+ :expected-result :failed
+ (python-tests-with-temp-buffer
+ "
+def f():
+ if True:
+ return [i for i in range(3)]
+"
+ (python-tests-look-at "3)]")
+ (python-nav-backward-up-list)
+ (should (looking-at "(3)\\]"))
+ (python-nav-backward-up-list)
+ (should (looking-at
+ "\\[i for i in range(3)\\]"))
+ ;; FIXME: Need to move to beginning-of-statement.
+ (python-nav-backward-up-list)
+ (should (looking-at
+ "return \\[i for i in range(3)\\]"))
+ (python-nav-backward-up-list)
+ (should (looking-at "if True:"))
+ (python-nav-backward-up-list)
+ (should (looking-at "def f():"))))
+
+\f
+;;; Shell integration
+
+(defvar python-tests-shell-interpreter "python")
+
+(ert-deftest python-shell-get-process-name-1 ()
+ "Check process name calculation on different scenarios."
+ (python-tests-with-temp-buffer
+ ""
+ (should (string= (python-shell-get-process-name nil)
+ python-shell-buffer-name))
+ ;; When the `current-buffer' doesn't have `buffer-file-name', even
+ ;; if dedicated flag is non-nil should not include its name.
+ (should (string= (python-shell-get-process-name t)
+ python-shell-buffer-name)))
+ (python-tests-with-temp-file
+ ""
+ ;; `buffer-file-name' is non-nil but the dedicated flag is nil and
+ ;; should be respected.
+ (should (string= (python-shell-get-process-name nil)
+ python-shell-buffer-name))
+ (should (string=
+ (python-shell-get-process-name t)
+ (format "%s[%s]" python-shell-buffer-name buffer-file-name)))))
+
+(ert-deftest python-shell-internal-get-process-name-1 ()
+ "Check the internal process name is config-unique."
+ (let* ((python-shell-interpreter python-tests-shell-interpreter)
+ (python-shell-interpreter-args "")
+ (python-shell-prompt-regexp ">>> ")
+ (python-shell-prompt-block-regexp "[.][.][.] ")
+ (python-shell-setup-codes "")
+ (python-shell-process-environment "")
+ (python-shell-extra-pythonpaths "")
+ (python-shell-exec-path "")
+ (python-shell-virtualenv-path "")
+ (expected (python-tests-with-temp-buffer
+ "" (python-shell-internal-get-process-name))))
+ ;; Same configurations should match.
+ (should
+ (string= expected
+ (python-tests-with-temp-buffer
+ "" (python-shell-internal-get-process-name))))
+ (let ((python-shell-interpreter-args "-B"))
+ ;; A minimal change should generate different names.
+ (should
+ (not (string=
+ expected
+ (python-tests-with-temp-buffer
+ "" (python-shell-internal-get-process-name))))))))
+
+(ert-deftest python-shell-parse-command-1 ()
+ "Check the command to execute is calculated correctly.
+Using `python-shell-interpreter' and
+`python-shell-interpreter-args'."
+ :expected-result (if (executable-find python-tests-shell-interpreter)
+ :passed
+ :failed)
+ (let ((python-shell-interpreter (executable-find
+ python-tests-shell-interpreter))
+ (python-shell-interpreter-args "-B"))
+ (should (string=
+ (format "%s %s"
+ python-shell-interpreter
+ python-shell-interpreter-args)
+ (python-shell-parse-command)))))
+
+(ert-deftest python-shell-calculate-process-environment-1 ()
+ "Test `python-shell-process-environment' modification."
+ (let* ((original-process-environment process-environment)
+ (python-shell-process-environment
+ '("TESTVAR1=value1" "TESTVAR2=value2"))
+ (process-environment
+ (python-shell-calculate-process-environment)))
+ (should (equal (getenv "TESTVAR1") "value1"))
+ (should (equal (getenv "TESTVAR2") "value2"))))
+
+(ert-deftest python-shell-calculate-process-environment-2 ()
+ "Test `python-shell-extra-pythonpaths' modification."
+ (let* ((original-process-environment process-environment)
+ (original-pythonpath (getenv "PYTHONPATH"))
+ (paths '("path1" "path2"))
+ (python-shell-extra-pythonpaths paths)
+ (process-environment
+ (python-shell-calculate-process-environment)))
+ (should (equal (getenv "PYTHONPATH")
+ (concat
+ (mapconcat 'identity paths path-separator)
+ path-separator original-pythonpath)))))
+
+(ert-deftest python-shell-calculate-process-environment-3 ()
+ "Test `python-shell-virtualenv-path' modification."
+ (let* ((original-process-environment process-environment)
+ (original-path (or (getenv "PATH") ""))
+ (python-shell-virtualenv-path
+ (directory-file-name user-emacs-directory))
+ (process-environment
+ (python-shell-calculate-process-environment)))
+ (should (not (getenv "PYTHONHOME")))
+ (should (string= (getenv "VIRTUAL_ENV") python-shell-virtualenv-path))
+ (should (equal (getenv "PATH")
+ (format "%s/bin%s%s"
+ python-shell-virtualenv-path
+ path-separator original-path)))))
+
+(ert-deftest python-shell-calculate-exec-path-1 ()
+ "Test `python-shell-exec-path' modification."
+ (let* ((original-exec-path exec-path)
+ (python-shell-exec-path '("path1" "path2"))
+ (exec-path (python-shell-calculate-exec-path)))
+ (should (equal
+ exec-path
+ (append python-shell-exec-path
+ original-exec-path)))))
+
+(ert-deftest python-shell-calculate-exec-path-2 ()
+ "Test `python-shell-exec-path' modification."
+ (let* ((original-exec-path exec-path)
+ (python-shell-virtualenv-path
+ (directory-file-name user-emacs-directory))
+ (exec-path (python-shell-calculate-exec-path)))
+ (should (equal
+ exec-path
+ (append (cons
+ (format "%s/bin" python-shell-virtualenv-path)
+ original-exec-path))))))
+
+(ert-deftest python-shell-make-comint-1 ()
+ "Check comint creation for global shell buffer."
+ :expected-result (if (executable-find python-tests-shell-interpreter)
+ :passed
+ :failed)
+ (let* ((python-shell-interpreter
+ (executable-find python-tests-shell-interpreter))
+ (proc-name (python-shell-get-process-name nil))
+ (shell-buffer
+ (python-tests-with-temp-buffer
+ "" (python-shell-make-comint
+ (python-shell-parse-command) proc-name)))
+ (process (get-buffer-process shell-buffer)))
+ (unwind-protect
+ (progn
+ (set-process-query-on-exit-flag process nil)
+ (should (process-live-p process))
+ (with-current-buffer shell-buffer
+ (should (eq major-mode 'inferior-python-mode))
+ (should (string= (buffer-name) (format "*%s*" proc-name)))))
+ (kill-buffer shell-buffer))))
+
+(ert-deftest python-shell-make-comint-2 ()
+ "Check comint creation for internal shell buffer."
+ :expected-result (if (executable-find python-tests-shell-interpreter)
+ :passed
+ :failed)
+ (let* ((python-shell-interpreter
+ (executable-find python-tests-shell-interpreter))
+ (proc-name (python-shell-internal-get-process-name))
+ (shell-buffer
+ (python-tests-with-temp-buffer
+ "" (python-shell-make-comint
+ (python-shell-parse-command) proc-name nil t)))
+ (process (get-buffer-process shell-buffer)))
+ (unwind-protect
+ (progn
+ (set-process-query-on-exit-flag process nil)
+ (should (process-live-p process))
+ (with-current-buffer shell-buffer
+ (should (eq major-mode 'inferior-python-mode))
+ (should (string= (buffer-name) (format " *%s*" proc-name)))))
+ (kill-buffer shell-buffer))))
+
+(ert-deftest python-shell-get-process-1 ()
+ "Check dedicated shell process preference over global."
+ :expected-result (if (executable-find python-tests-shell-interpreter)
+ :passed
+ :failed)
+ (python-tests-with-temp-file
+ ""
+ (let* ((python-shell-interpreter
+ (executable-find python-tests-shell-interpreter))
+ (global-proc-name (python-shell-get-process-name nil))
+ (dedicated-proc-name (python-shell-get-process-name t))
+ (global-shell-buffer
+ (python-shell-make-comint
+ (python-shell-parse-command) global-proc-name))
+ (dedicated-shell-buffer
+ (python-shell-make-comint
+ (python-shell-parse-command) dedicated-proc-name))
+ (global-process (get-buffer-process global-shell-buffer))
+ (dedicated-process (get-buffer-process dedicated-shell-buffer)))
+ (unwind-protect
+ (progn
+ (set-process-query-on-exit-flag global-process nil)
+ (set-process-query-on-exit-flag dedicated-process nil)
+ ;; Prefer dedicated if global also exists.
+ (should (equal (python-shell-get-process) dedicated-process))
+ (kill-buffer dedicated-shell-buffer)
+ ;; If there's only global, use it.
+ (should (equal (python-shell-get-process) global-process))
+ (kill-buffer global-shell-buffer)
+ ;; No buffer available.
+ (should (not (python-shell-get-process))))
+ (ignore-errors (kill-buffer global-shell-buffer))
+ (ignore-errors (kill-buffer dedicated-shell-buffer))))))
+
+(ert-deftest python-shell-get-or-create-process-1 ()
+ "Check shell process creation fallback."
+ :expected-result :failed
+ (python-tests-with-temp-file
+ ""
+ ;; XXX: Break early until we can skip stuff. We need to mimic
+ ;; user interaction because `python-shell-get-or-create-process'
+ ;; asks for all arguments interactively when a shell process
+ ;; doesn't exist.
+ (should nil)
+ (let* ((python-shell-interpreter
+ (executable-find python-tests-shell-interpreter))
+ (use-dialog-box)
+ (dedicated-process-name (python-shell-get-process-name t))
+ (dedicated-process (python-shell-get-or-create-process))
+ (dedicated-shell-buffer (process-buffer dedicated-process)))
+ (unwind-protect
+ (progn
+ (set-process-query-on-exit-flag dedicated-process nil)
+ ;; Prefer dedicated if not buffer exist.
+ (should (equal (process-name dedicated-process)
+ dedicated-process-name))
+ (kill-buffer dedicated-shell-buffer)
+ ;; No buffer available.
+ (should (not (python-shell-get-process))))
+ (ignore-errors (kill-buffer dedicated-shell-buffer))))))
+
+(ert-deftest python-shell-internal-get-or-create-process-1 ()
+ "Check internal shell process creation fallback."
+ :expected-result (if (executable-find python-tests-shell-interpreter)
+ :passed
+ :failed)
+ (python-tests-with-temp-file
+ ""
+ (should (not (process-live-p (python-shell-internal-get-process-name))))
+ (let* ((python-shell-interpreter
+ (executable-find python-tests-shell-interpreter))
+ (internal-process-name (python-shell-internal-get-process-name))
+ (internal-process (python-shell-internal-get-or-create-process))
+ (internal-shell-buffer (process-buffer internal-process)))
+ (unwind-protect
+ (progn
+ (set-process-query-on-exit-flag internal-process nil)
+ (should (equal (process-name internal-process)
+ internal-process-name))
+ (should (equal internal-process
+ (python-shell-internal-get-or-create-process)))
+ ;; No user buffer available.
+ (should (not (python-shell-get-process)))
+ (kill-buffer internal-shell-buffer))
+ (ignore-errors (kill-buffer internal-shell-buffer))))))
+
+\f
+;;; Shell completion
+
+\f
+;;; PDB Track integration
+
+\f
+;;; Symbol completion
+
+\f
+;;; Fill paragraph
+
+\f
+;;; Skeletons
+
+\f
+;;; FFAP
+
+\f
+;;; Code check
+
+\f
+;;; Eldoc
+
+\f
+;;; Imenu
+(ert-deftest python-imenu-prev-index-position-1 ()
+ (require 'imenu)
+ (python-tests-with-temp-buffer
+ "
+def decoratorFunctionWithArguments(arg1, arg2, arg3):
+ '''print decorated function call data to stdout.
+
+ Usage:
+
+ @decoratorFunctionWithArguments('arg1', 'arg2')
+ def func(a, b, c=True):
+ pass
+ '''
+
+ def wwrap(f):
+ print 'Inside wwrap()'
+ def wrapped_f(*args):
+ print 'Inside wrapped_f()'
+ print 'Decorator arguments:', arg1, arg2, arg3
+ f(*args)
+ print 'After f(*args)'
+ return wrapped_f
+ return wwrap
+
+def test(): # Some comment
+ 'This is a test function'
+ print 'test'
+
+class C(object):
+
+ def m(self):
+ self.c()
+
+ def b():
+ pass
+
+ def a():
+ pass
+
+ def c(self):
+ pass
+"
+ (let ((expected
+ '(("*Rescan*" . -99)
+ ("decoratorFunctionWithArguments" . 2)
+ ("decoratorFunctionWithArguments.wwrap" . 224)
+ ("decoratorFunctionWithArguments.wwrap.wrapped_f" . 273)
+ ("test" . 500)
+ ("C" . 575)
+ ("C.m" . 593)
+ ("C.m.b" . 628)
+ ("C.m.a" . 663)
+ ("C.c" . 698))))
+ (mapc
+ (lambda (elt)
+ (should (= (cdr (assoc-string (car elt) expected))
+ (if (markerp (cdr elt))
+ (marker-position (cdr elt))
+ (cdr elt)))))
+ (imenu--make-index-alist)))))
+
+\f
+;;; Misc helpers
+
+(ert-deftest python-info-current-defun-1 ()
+ (python-tests-with-temp-buffer
+ "
+def foo(a, b):
+"
+ (forward-line 1)
+ (should (string= "foo" (python-info-current-defun)))
+ (should (string= "def foo" (python-info-current-defun t)))
+ (forward-line 1)
+ (should (not (python-info-current-defun)))
+ (indent-for-tab-command)
+ (should (string= "foo" (python-info-current-defun)))
+ (should (string= "def foo" (python-info-current-defun t)))))
+
+(ert-deftest python-info-current-defun-2 ()
+ (python-tests-with-temp-buffer
+ "
+class C(object):
+
+ def m(self):
+ if True:
+ return [i for i in range(3)]
+ else:
+ return []
+
+ def b():
+ pass
+
+ def a():
+ pass
+
+ def c(self):
+ pass
+"
+ (forward-line 1)
+ (should (string= "C" (python-info-current-defun)))
+ (should (string= "class C" (python-info-current-defun t)))
+ (python-tests-look-at "return [i for ")
+ (should (string= "C.m" (python-info-current-defun)))
+ (should (string= "def C.m" (python-info-current-defun t)))
+ (python-tests-look-at "def b():")
+ (should (string= "C.m.b" (python-info-current-defun)))
+ (should (string= "def C.m.b" (python-info-current-defun t)))
+ (forward-line 2)
+ (indent-for-tab-command)
+ (python-indent-dedent-line-backspace 1)
+ (should (string= "C.m" (python-info-current-defun)))
+ (should (string= "def C.m" (python-info-current-defun t)))
+ (python-tests-look-at "def c(self):")
+ (forward-line -1)
+ (indent-for-tab-command)
+ (should (string= "C.m.a" (python-info-current-defun)))
+ (should (string= "def C.m.a" (python-info-current-defun t)))
+ (python-indent-dedent-line-backspace 1)
+ (should (string= "C.m" (python-info-current-defun)))
+ (should (string= "def C.m" (python-info-current-defun t)))
+ (python-indent-dedent-line-backspace 1)
+ (should (string= "C" (python-info-current-defun)))
+ (should (string= "class C" (python-info-current-defun t)))
+ (python-tests-look-at "def c(self):")
+ (should (string= "C.c" (python-info-current-defun)))
+ (should (string= "def C.c" (python-info-current-defun t)))
+ (python-tests-look-at "pass")
+ (should (string= "C.c" (python-info-current-defun)))
+ (should (string= "def C.c" (python-info-current-defun t)))))
+
+(ert-deftest python-info-current-defun-3 ()
+ (python-tests-with-temp-buffer
+ "
+def decoratorFunctionWithArguments(arg1, arg2, arg3):
+ '''print decorated function call data to stdout.
+
+ Usage:
+
+ @decoratorFunctionWithArguments('arg1', 'arg2')
+ def func(a, b, c=True):
+ pass
+ '''
+
+ def wwrap(f):
+ print 'Inside wwrap()'
+ def wrapped_f(*args):
+ print 'Inside wrapped_f()'
+ print 'Decorator arguments:', arg1, arg2, arg3
+ f(*args)
+ print 'After f(*args)'
+ return wrapped_f
+ return wwrap
+"
+ (python-tests-look-at "def wwrap(f):")
+ (forward-line -1)
+ (should (not (python-info-current-defun)))
+ (indent-for-tab-command 1)
+ (should (string= (python-info-current-defun)
+ "decoratorFunctionWithArguments"))
+ (should (string= (python-info-current-defun t)
+ "def decoratorFunctionWithArguments"))
+ (python-tests-look-at "def wrapped_f(*args):")
+ (should (string= (python-info-current-defun)
+ "decoratorFunctionWithArguments.wwrap.wrapped_f"))
+ (should (string= (python-info-current-defun t)
+ "def decoratorFunctionWithArguments.wwrap.wrapped_f"))
+ (python-tests-look-at "return wrapped_f")
+ (should (string= (python-info-current-defun)
+ "decoratorFunctionWithArguments.wwrap"))
+ (should (string= (python-info-current-defun t)
+ "def decoratorFunctionWithArguments.wwrap"))
+ (end-of-line 1)
+ (python-tests-look-at "return wwrap")
+ (should (string= (python-info-current-defun)
+ "decoratorFunctionWithArguments"))
+ (should (string= (python-info-current-defun t)
+ "def decoratorFunctionWithArguments"))))
+
+(ert-deftest python-info-current-symbol-1 ()
+ (python-tests-with-temp-buffer
+ "
+class C(object):
+
+ def m(self):
+ self.c()
+
+ def c(self):
+ print ('a')
+"
+ (python-tests-look-at "self.c()")
+ (should (string= "self.c" (python-info-current-symbol)))
+ (should (string= "C.c" (python-info-current-symbol t)))))
+
+(ert-deftest python-info-current-symbol-2 ()
+ (python-tests-with-temp-buffer
+ "
+class C(object):
+
+ class M(object):
+
+ def a(self):
+ self.c()
+
+ def c(self):
+ pass
+"
+ (python-tests-look-at "self.c()")
+ (should (string= "self.c" (python-info-current-symbol)))
+ (should (string= "C.M.c" (python-info-current-symbol t)))))
+
+(ert-deftest python-info-current-symbol-3 ()
+ "Keywords should not be considered symbols."
+ :expected-result :failed
+ (python-tests-with-temp-buffer
+ "
+class C(object):
+ pass
+"
+ ;; FIXME: keywords are not symbols.
+ (python-tests-look-at "class C")
+ (should (not (python-info-current-symbol)))
+ (should (not (python-info-current-symbol t)))
+ (python-tests-look-at "C(object)")
+ (should (string= "C" (python-info-current-symbol)))
+ (should (string= "class C" (python-info-current-symbol t)))))
+
+(ert-deftest python-info-statement-starts-block-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+def long_function_name(
+ var_one, var_two, var_three,
+ var_four):
+ print (var_one)
+"
+ (python-tests-look-at "def long_function_name")
+ (should (python-info-statement-starts-block-p))
+ (python-tests-look-at "print (var_one)")
+ (python-util-forward-comment -1)
+ (should (python-info-statement-starts-block-p))))
+
+(ert-deftest python-info-statement-starts-block-p-2 ()
+ (python-tests-with-temp-buffer
+ "
+if width == 0 and height == 0 and \\\\
+ color == 'red' and emphasis == 'strong' or \\\\
+ highlight > 100:
+ raise ValueError('sorry, you lose')
+"
+ (python-tests-look-at "if width == 0 and")
+ (should (python-info-statement-starts-block-p))
+ (python-tests-look-at "raise ValueError(")
+ (python-util-forward-comment -1)
+ (should (python-info-statement-starts-block-p))))
+
+(ert-deftest python-info-statement-ends-block-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+def long_function_name(
+ var_one, var_two, var_three,
+ var_four):
+ print (var_one)
+"
+ (python-tests-look-at "print (var_one)")
+ (should (python-info-statement-ends-block-p))))
+
+(ert-deftest python-info-statement-ends-block-p-2 ()
+ (python-tests-with-temp-buffer
+ "
+if width == 0 and height == 0 and \\\\
+ color == 'red' and emphasis == 'strong' or \\\\
+ highlight > 100:
+ raise ValueError(
+'sorry, you lose'
+
+)
+"
+ (python-tests-look-at "raise ValueError(")
+ (should (python-info-statement-ends-block-p))))
+
+(ert-deftest python-info-beginning-of-statement-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+def long_function_name(
+ var_one, var_two, var_three,
+ var_four):
+ print (var_one)
+"
+ (python-tests-look-at "def long_function_name")
+ (should (python-info-beginning-of-statement-p))
+ (forward-char 10)
+ (should (not (python-info-beginning-of-statement-p)))
+ (python-tests-look-at "print (var_one)")
+ (should (python-info-beginning-of-statement-p))
+ (goto-char (line-beginning-position))
+ (should (not (python-info-beginning-of-statement-p)))))
+
+(ert-deftest python-info-beginning-of-statement-p-2 ()
+ (python-tests-with-temp-buffer
+ "
+if width == 0 and height == 0 and \\\\
+ color == 'red' and emphasis == 'strong' or \\\\
+ highlight > 100:
+ raise ValueError(
+'sorry, you lose'
+
+)
+"
+ (python-tests-look-at "if width == 0 and")
+ (should (python-info-beginning-of-statement-p))
+ (forward-char 10)
+ (should (not (python-info-beginning-of-statement-p)))
+ (python-tests-look-at "raise ValueError(")
+ (should (python-info-beginning-of-statement-p))
+ (goto-char (line-beginning-position))
+ (should (not (python-info-beginning-of-statement-p)))))
+
+(ert-deftest python-info-end-of-statement-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+def long_function_name(
+ var_one, var_two, var_three,
+ var_four):
+ print (var_one)
+"
+ (python-tests-look-at "def long_function_name")
+ (should (not (python-info-end-of-statement-p)))
+ (end-of-line)
+ (should (not (python-info-end-of-statement-p)))
+ (python-tests-look-at "print (var_one)")
+ (python-util-forward-comment -1)
+ (should (python-info-end-of-statement-p))
+ (python-tests-look-at "print (var_one)")
+ (should (not (python-info-end-of-statement-p)))
+ (end-of-line)
+ (should (python-info-end-of-statement-p))))
+
+(ert-deftest python-info-end-of-statement-p-2 ()
+ (python-tests-with-temp-buffer
+ "
+if width == 0 and height == 0 and \\\\
+ color == 'red' and emphasis == 'strong' or \\\\
+ highlight > 100:
+ raise ValueError(
+'sorry, you lose'
+
+)
+"
+ (python-tests-look-at "if width == 0 and")
+ (should (not (python-info-end-of-statement-p)))
+ (end-of-line)
+ (should (not (python-info-end-of-statement-p)))
+ (python-tests-look-at "raise ValueError(")
+ (python-util-forward-comment -1)
+ (should (python-info-end-of-statement-p))
+ (python-tests-look-at "raise ValueError(")
+ (should (not (python-info-end-of-statement-p)))
+ (end-of-line)
+ (should (not (python-info-end-of-statement-p)))
+ (goto-char (point-max))
+ (python-util-forward-comment -1)
+ (should (python-info-end-of-statement-p))))
+
+(ert-deftest python-info-beginning-of-block-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+def long_function_name(
+ var_one, var_two, var_three,
+ var_four):
+ print (var_one)
+"
+ (python-tests-look-at "def long_function_name")
+ (should (python-info-beginning-of-block-p))
+ (python-tests-look-at "var_one, var_two, var_three,")
+ (should (not (python-info-beginning-of-block-p)))
+ (python-tests-look-at "print (var_one)")
+ (should (not (python-info-beginning-of-block-p)))))
+
+(ert-deftest python-info-beginning-of-block-p-2 ()
+ (python-tests-with-temp-buffer
+ "
+if width == 0 and height == 0 and \\\\
+ color == 'red' and emphasis == 'strong' or \\\\
+ highlight > 100:
+ raise ValueError(
+'sorry, you lose'
+
+)
+"
+ (python-tests-look-at "if width == 0 and")
+ (should (python-info-beginning-of-block-p))
+ (python-tests-look-at "color == 'red' and emphasis")
+ (should (not (python-info-beginning-of-block-p)))
+ (python-tests-look-at "raise ValueError(")
+ (should (not (python-info-beginning-of-block-p)))))
+
+(ert-deftest python-info-end-of-block-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+def long_function_name(
+ var_one, var_two, var_three,
+ var_four):
+ print (var_one)
+"
+ (python-tests-look-at "def long_function_name")
+ (should (not (python-info-end-of-block-p)))
+ (python-tests-look-at "var_one, var_two, var_three,")
+ (should (not (python-info-end-of-block-p)))
+ (python-tests-look-at "var_four):")
+ (end-of-line)
+ (should (not (python-info-end-of-block-p)))
+ (python-tests-look-at "print (var_one)")
+ (should (not (python-info-end-of-block-p)))
+ (end-of-line 1)
+ (should (python-info-end-of-block-p))))
+
+(ert-deftest python-info-end-of-block-p-2 ()
+ (python-tests-with-temp-buffer
+ "
+if width == 0 and height == 0 and \\\\
+ color == 'red' and emphasis == 'strong' or \\\\
+ highlight > 100:
+ raise ValueError(
+'sorry, you lose'
+
+)
+"
+ (python-tests-look-at "if width == 0 and")
+ (should (not (python-info-end-of-block-p)))
+ (python-tests-look-at "color == 'red' and emphasis == 'strong' or")
+ (should (not (python-info-end-of-block-p)))
+ (python-tests-look-at "highlight > 100:")
+ (end-of-line)
+ (should (not (python-info-end-of-block-p)))
+ (python-tests-look-at "raise ValueError(")
+ (should (not (python-info-end-of-block-p)))
+ (end-of-line 1)
+ (should (not (python-info-end-of-block-p)))
+ (goto-char (point-max))
+ (python-util-forward-comment -1)
+ (should (python-info-end-of-block-p))))
+
+(ert-deftest python-info-closing-block-1 ()
+ (python-tests-with-temp-buffer
+ "
+if request.user.is_authenticated():
+ try:
+ profile = request.user.get_profile()
+ except Profile.DoesNotExist:
+ profile = Profile.objects.create(user=request.user)
+ else:
+ if profile.stats:
+ profile.recalculate_stats()
+ else:
+ profile.clear_stats()
+ finally:
+ profile.views += 1
+ profile.save()
+"
+ (python-tests-look-at "try:")
+ (should (not (python-info-closing-block)))
+ (python-tests-look-at "except Profile.DoesNotExist:")
+ (should (= (python-tests-look-at "try:" -1 t)
+ (python-info-closing-block)))
+ (python-tests-look-at "else:")
+ (should (= (python-tests-look-at "except Profile.DoesNotExist:" -1 t)
+ (python-info-closing-block)))
+ (python-tests-look-at "if profile.stats:")
+ (should (not (python-info-closing-block)))
+ (python-tests-look-at "else:")
+ (should (= (python-tests-look-at "if profile.stats:" -1 t)
+ (python-info-closing-block)))
+ (python-tests-look-at "finally:")
+ (should (= (python-tests-look-at "else:" -2 t)
+ (python-info-closing-block)))))
+
+(ert-deftest python-info-closing-block-2 ()
+ (python-tests-with-temp-buffer
+ "
+if request.user.is_authenticated():
+ profile = Profile.objects.get_or_create(user=request.user)
+ if profile.stats:
+ profile.recalculate_stats()
+
+data = {
+ 'else': 'do it'
+}
+ 'else'
+"
+ (python-tests-look-at "'else': 'do it'")
+ (should (not (python-info-closing-block)))
+ (python-tests-look-at "'else'")
+ (should (not (python-info-closing-block)))))
+
+(ert-deftest python-info-line-ends-backslash-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+objects = Thing.objects.all() \\\\
+ .filter(
+ type='toy',
+ status='bought'
+ ) \\\\
+ .aggregate(
+ Sum('amount')
+ ) \\\\
+ .values_list()
+"
+ (should (python-info-line-ends-backslash-p 2)) ; .filter(...
+ (should (python-info-line-ends-backslash-p 3))
+ (should (python-info-line-ends-backslash-p 4))
+ (should (python-info-line-ends-backslash-p 5))
+ (should (python-info-line-ends-backslash-p 6)) ; ) \...
+ (should (python-info-line-ends-backslash-p 7))
+ (should (python-info-line-ends-backslash-p 8))
+ (should (python-info-line-ends-backslash-p 9))
+ (should (not (python-info-line-ends-backslash-p 10))))) ; .values_list()...
+
+(ert-deftest python-info-beginning-of-backslash-1 ()
+ (python-tests-with-temp-buffer
+ "
+objects = Thing.objects.all() \\\\
+ .filter(
+ type='toy',
+ status='bought'
+ ) \\\\
+ .aggregate(
+ Sum('amount')
+ ) \\\\
+ .values_list()
+"
+ (let ((first 2)
+ (second (python-tests-look-at ".filter("))
+ (third (python-tests-look-at ".aggregate(")))
+ (should (= first (python-info-beginning-of-backslash 2)))
+ (should (= second (python-info-beginning-of-backslash 3)))
+ (should (= second (python-info-beginning-of-backslash 4)))
+ (should (= second (python-info-beginning-of-backslash 5)))
+ (should (= second (python-info-beginning-of-backslash 6)))
+ (should (= third (python-info-beginning-of-backslash 7)))
+ (should (= third (python-info-beginning-of-backslash 8)))
+ (should (= third (python-info-beginning-of-backslash 9)))
+ (should (not (python-info-beginning-of-backslash 10))))))
+
+(ert-deftest python-info-continuation-line-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+if width == 0 and height == 0 and \\\\
+ color == 'red' and emphasis == 'strong' or \\\\
+ highlight > 100:
+ raise ValueError(
+'sorry, you lose'
+
+)
+"
+ (python-tests-look-at "if width == 0 and height == 0 and")
+ (should (not (python-info-continuation-line-p)))
+ (python-tests-look-at "color == 'red' and emphasis == 'strong' or")
+ (should (python-info-continuation-line-p))
+ (python-tests-look-at "highlight > 100:")
+ (should (python-info-continuation-line-p))
+ (python-tests-look-at "raise ValueError(")
+ (should (not (python-info-continuation-line-p)))
+ (python-tests-look-at "'sorry, you lose'")
+ (should (python-info-continuation-line-p))
+ (forward-line 1)
+ (should (python-info-continuation-line-p))
+ (python-tests-look-at ")")
+ (should (python-info-continuation-line-p))
+ (forward-line 1)
+ (should (not (python-info-continuation-line-p)))))
+
+(ert-deftest python-info-block-continuation-line-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+if width == 0 and height == 0 and \\\\
+ color == 'red' and emphasis == 'strong' or \\\\
+ highlight > 100:
+ raise ValueError(
+'sorry, you lose'
+
+)
+"
+ (python-tests-look-at "if width == 0 and")
+ (should (not (python-info-block-continuation-line-p)))
+ (python-tests-look-at "color == 'red' and emphasis == 'strong' or")
+ (should (= (python-info-block-continuation-line-p)
+ (python-tests-look-at "if width == 0 and" -1 t)))
+ (python-tests-look-at "highlight > 100:")
+ (should (not (python-info-block-continuation-line-p)))))
+
+(ert-deftest python-info-block-continuation-line-p-2 ()
+ (python-tests-with-temp-buffer
+ "
+def foo(a,
+ b,
+ c):
+ pass
+"
+ (python-tests-look-at "def foo(a,")
+ (should (not (python-info-block-continuation-line-p)))
+ (python-tests-look-at "b,")
+ (should (= (python-info-block-continuation-line-p)
+ (python-tests-look-at "def foo(a," -1 t)))
+ (python-tests-look-at "c):")
+ (should (not (python-info-block-continuation-line-p)))))
+
+(ert-deftest python-info-assignment-continuation-line-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+data = foo(), bar() \\\\
+ baz(), 4 \\\\
+ 5, 6
+"
+ (python-tests-look-at "data = foo(), bar()")
+ (should (not (python-info-assignment-continuation-line-p)))
+ (python-tests-look-at "baz(), 4")
+ (should (= (python-info-assignment-continuation-line-p)
+ (python-tests-look-at "foo()," -1 t)))
+ (python-tests-look-at "5, 6")
+ (should (not (python-info-assignment-continuation-line-p)))))
+
+(ert-deftest python-info-assignment-continuation-line-p-2 ()
+ (python-tests-with-temp-buffer
+ "
+data = (foo(), bar()
+ baz(), 4
+ 5, 6)
+"
+ (python-tests-look-at "data = (foo(), bar()")
+ (should (not (python-info-assignment-continuation-line-p)))
+ (python-tests-look-at "baz(), 4")
+ (should (= (python-info-assignment-continuation-line-p)
+ (python-tests-look-at "(foo()," -1 t)))
+ (python-tests-look-at "5, 6)")
+ (should (not (python-info-assignment-continuation-line-p)))))
+
+(ert-deftest python-info-looking-at-beginning-of-defun-1 ()
+ (python-tests-with-temp-buffer
+ "
+def decorat0r(deff):
+ '''decorates stuff.
+
+ @decorat0r
+ def foo(arg):
+ ...
+ '''
+ def wrap():
+ deff()
+ return wwrap
+"
+ (python-tests-look-at "def decorat0r(deff):")
+ (should (python-info-looking-at-beginning-of-defun))
+ (python-tests-look-at "def foo(arg):")
+ (should (not (python-info-looking-at-beginning-of-defun)))
+ (python-tests-look-at "def wrap():")
+ (should (python-info-looking-at-beginning-of-defun))
+ (python-tests-look-at "deff()")
+ (should (not (python-info-looking-at-beginning-of-defun)))))
+
+(ert-deftest python-info-current-line-comment-p-1 ()
+ (python-tests-with-temp-buffer
+ "
+# this is a comment
+foo = True # another comment
+'#this is a string'
+if foo:
+ # more comments
+ print ('bar') # print bar
+"
+ (python-tests-look-at "# this is a comment")
+ (should (python-info-current-line-comment-p))
+ (python-tests-look-at "foo = True # another comment")
+ (should (not (python-info-current-line-comment-p)))
+ (python-tests-look-at "'#this is a string'")
+ (should (not (python-info-current-line-comment-p)))
+ (python-tests-look-at "# more comments")
+ (should (python-info-current-line-comment-p))
+ (python-tests-look-at "print ('bar') # print bar")
+ (should (not (python-info-current-line-comment-p)))))
+
+(ert-deftest python-info-current-line-empty-p ()
+ (python-tests-with-temp-buffer
+ "
+# this is a comment
+
+foo = True # another comment
+"
+ (should (python-info-current-line-empty-p))
+ (python-tests-look-at "# this is a comment")
+ (should (not (python-info-current-line-empty-p)))
+ (forward-line 1)
+ (should (python-info-current-line-empty-p))))
+
+\f
+;;; Utility functions
+
+(ert-deftest python-util-goto-line-1 ()
+ (python-tests-with-temp-buffer
+ (concat
+ "# a comment
+# another comment
+def foo(a, b, c):
+ pass" (make-string 20 ?\n))
+ (python-util-goto-line 10)
+ (should (= (line-number-at-pos) 10))
+ (python-util-goto-line 20)
+ (should (= (line-number-at-pos) 20))))
+
+(ert-deftest python-util-clone-local-variables-1 ()
+ (let ((buffer (generate-new-buffer
+ "python-util-clone-local-variables-1"))
+ (varcons
+ '((python-fill-docstring-style . django)
+ (python-shell-interpreter . "python")
+ (python-shell-interpreter-args . "manage.py shell")
+ (python-shell-prompt-regexp . "In \\[[0-9]+\\]: ")
+ (python-shell-prompt-output-regexp . "Out\\[[0-9]+\\]: ")
+ (python-shell-extra-pythonpaths "/home/user/pylib/")
+ (python-shell-completion-setup-code
+ . "from IPython.core.completerlib import module_completion")
+ (python-shell-completion-module-string-code
+ . "';'.join(module_completion('''%s'''))\n")
+ (python-shell-completion-string-code
+ . "';'.join(get_ipython().Completer.all_completions('''%s'''))\n")
+ (python-shell-virtualenv-path
+ . "/home/user/.virtualenvs/project"))))
+ (with-current-buffer buffer
+ (kill-all-local-variables)
+ (dolist (ccons varcons)
+ (set (make-local-variable (car ccons)) (cdr ccons))))
+ (python-tests-with-temp-buffer
+ ""
+ (python-util-clone-local-variables buffer)
+ (dolist (ccons varcons)
+ (should
+ (equal (symbol-value (car ccons)) (cdr ccons)))))
+ (kill-buffer buffer)))
+
+(ert-deftest python-util-forward-comment-1 ()
+ (python-tests-with-temp-buffer
+ (concat
+ "# a comment
+# another comment
+ # bad indented comment
+# more comments" (make-string 9999 ?\n))
+ (python-util-forward-comment 1)
+ (should (= (point) (point-max)))
+ (python-util-forward-comment -1)
+ (should (= (point) (point-min)))))
+
+
+(provide 'python-tests)
+
+;; Local Variables:
+;; coding: utf-8
+;; indent-tabs-mode: nil
+;; End:
+
+;;; python-tests.el ends here
--- /dev/null
+;;; ruby-mode-tests.el --- Test suite for ruby-mode
+
+;; Copyright (C) 2012-2013 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'ruby-mode)
+
+(defun ruby-should-indent (content column)
+ "Assert indentation COLUMN on the last line of CONTENT."
+ (with-temp-buffer
+ (insert content)
+ (ruby-mode)
+ (ruby-indent-line)
+ (should (= (current-indentation) column))))
+
+(defun ruby-should-indent-buffer (expected content)
+ "Assert that CONTENT turns into EXPECTED after the buffer is re-indented.
+
+The whitespace before and including \"|\" on each line is removed."
+ (with-temp-buffer
+ (cl-flet ((fix-indent (s) (replace-regexp-in-string "^[ \t]*|" "" s)))
+ (insert (fix-indent content))
+ (ruby-mode)
+ (indent-region (point-min) (point-max))
+ (should (string= (fix-indent expected) (buffer-string))))))
+
+(defun ruby-assert-state (content &rest values-plist)
+ "Assert syntax state values at the end of CONTENT.
+
+VALUES-PLIST is a list with alternating index and value elements."
+ (with-temp-buffer
+ (insert content)
+ (ruby-mode)
+ (syntax-propertize (point))
+ (while values-plist
+ (should (eq (nth (car values-plist)
+ (parse-partial-sexp (point-min) (point)))
+ (cadr values-plist)))
+ (setq values-plist (cddr values-plist)))))
+
+(defun ruby-assert-face (content pos face)
+ (with-temp-buffer
+ (insert content)
+ (ruby-mode)
+ (font-lock-fontify-buffer)
+ (should (eq face (get-text-property pos 'face)))))
+
+(ert-deftest ruby-indent-after-symbol-made-from-string-interpolation ()
+ "It can indent the line after symbol made using string interpolation."
+ (ruby-should-indent "def foo(suffix)\n :\"bar#{suffix}\"\n"
+ ruby-indent-level))
+
+(ert-deftest ruby-indent-after-js-style-symbol-with-block-beg-name ()
+ "JS-style hash symbol can have keyword name."
+ (ruby-should-indent "link_to \"home\", home_path, class: \"foo\"\n" 0))
+
+(ert-deftest ruby-discern-singleton-class-from-heredoc ()
+ (ruby-assert-state "foo <<asd\n" 3 ?\n)
+ (ruby-assert-state "class <<asd\n" 3 nil))
+
+(ert-deftest ruby-deep-indent ()
+ (let ((ruby-deep-arglist nil)
+ (ruby-deep-indent-paren '(?\( ?\{ ?\[ ?\] t)))
+ (ruby-should-indent "foo = [1,\n2" 7)
+ (ruby-should-indent "foo = {a: b,\nc: d" 7)
+ (ruby-should-indent "foo(a,\nb" 4)))
+
+(ert-deftest ruby-deep-indent-disabled ()
+ (let ((ruby-deep-arglist nil)
+ (ruby-deep-indent-paren nil))
+ (ruby-should-indent "foo = [\n1" ruby-indent-level)
+ (ruby-should-indent "foo = {\na: b" ruby-indent-level)
+ (ruby-should-indent "foo(\na" ruby-indent-level)))
+
+(ert-deftest ruby-indent-after-keyword-in-a-string ()
+ (ruby-should-indent "a = \"abc\nif\"\n " 0)
+ (ruby-should-indent "a = %w[abc\n def]\n " 0)
+ (ruby-should-indent "a = \"abc\n def\"\n " 0))
+
+(ert-deftest ruby-indent-simple ()
+ (ruby-should-indent-buffer
+ "if foo
+ | bar
+ |end
+ |zot
+ |"
+ "if foo
+ |bar
+ | end
+ | zot
+ |"))
+
+(ert-deftest ruby-indent-keyword-label ()
+ (ruby-should-indent-buffer
+ "bar(class: XXX) do
+ | foo
+ |end
+ |bar
+ |"
+ "bar(class: XXX) do
+ | foo
+ | end
+ | bar
+ |"))
+
+(ert-deftest ruby-indent-method-with-question-mark ()
+ (ruby-should-indent-buffer
+ "if x.is_a?(XXX)
+ | foo
+ |end
+ |"
+ "if x.is_a?(XXX)
+ | foo
+ | end
+ |"))
+
+(ert-deftest ruby-indent-expr-in-regexp ()
+ (ruby-should-indent-buffer
+ "if /#{foo}/ =~ s
+ | x = 1
+ |end
+ |"
+ "if /#{foo}/ =~ s
+ | x = 1
+ | end
+ |"))
+
+(ert-deftest ruby-indent-singleton-class ()
+ :expected-result :failed ; Doesn't work yet, when no space before "<<".
+ (ruby-should-indent-buffer
+ "class<<bar
+ | foo
+ |end
+ |"
+ "class<<bar
+ |foo
+ | end
+ |"))
+
+(ert-deftest ruby-indent-array-literal ()
+ (let ((ruby-deep-indent-paren nil))
+ (ruby-should-indent-buffer
+ "foo = [
+ | bar
+ |]
+ |"
+ "foo = [
+ | bar
+ | ]
+ |"))
+ (ruby-should-indent-buffer
+ "foo do
+ | [bar]
+ |end
+ |"
+ "foo do
+ |[bar]
+ | end
+ |"))
+
+(ert-deftest ruby-indent-begin-end ()
+ (ruby-should-indent-buffer
+ "begin
+ | a[b]
+ |end
+ |"
+ "begin
+ | a[b]
+ | end
+ |"))
+
+(ert-deftest ruby-indent-array-after-paren-and-space ()
+ (ruby-should-indent-buffer
+ "class A
+ | def foo
+ | foo( [])
+ | end
+ |end
+ |"
+ "class A
+ | def foo
+ |foo( [])
+ |end
+ | end
+ |"))
+
+(ert-deftest ruby-indent-after-block-in-continued-expression ()
+ (ruby-should-indent-buffer
+ "var =
+ | begin
+ | val
+ | end
+ |statement"
+ "var =
+ |begin
+ |val
+ |end
+ |statement"))
+
+(ert-deftest ruby-move-to-block-stops-at-indentation ()
+ (with-temp-buffer
+ (insert "def f\nend")
+ (beginning-of-line)
+ (ruby-mode)
+ (ruby-move-to-block -1)
+ (should (looking-at "^def"))))
+
+(ert-deftest ruby-toggle-block-to-do-end ()
+ (with-temp-buffer
+ (insert "foo {|b|\n}")
+ (ruby-mode)
+ (beginning-of-line)
+ (ruby-toggle-block)
+ (should (string= "foo do |b|\nend" (buffer-string)))))
+
+(ert-deftest ruby-toggle-block-to-brace ()
+ (let ((pairs '((16 . "foo {|b| b + 2 }")
+ (15 . "foo {|b|\n b + 2\n}"))))
+ (dolist (pair pairs)
+ (with-temp-buffer
+ (let ((fill-column (car pair)))
+ (insert "foo do |b|\n b + 2\nend")
+ (ruby-mode)
+ (beginning-of-line)
+ (ruby-toggle-block)
+ (should (string= (cdr pair) (buffer-string))))))))
+
+(ert-deftest ruby-toggle-block-to-multiline ()
+ (with-temp-buffer
+ (insert "foo {|b| b + 1}")
+ (ruby-mode)
+ (beginning-of-line)
+ (ruby-toggle-block)
+ (should (string= "foo do |b|\n b + 1\nend" (buffer-string)))))
+
+(ert-deftest ruby-recognize-symbols-starting-with-at-character ()
+ (ruby-assert-face ":@abc" 3 'font-lock-constant-face))
+
+(ert-deftest ruby-hash-character-not-interpolation ()
+ (ruby-assert-face "\"This is #{interpolation}\"" 15
+ 'font-lock-variable-name-face)
+ (ruby-assert-face "\"This is \\#{no interpolation} despite the #\""
+ 15 'font-lock-string-face)
+ (ruby-assert-face "\n#@comment, not ruby code" 5 'font-lock-comment-face)
+ (ruby-assert-state "\n#@comment, not ruby code" 4 t)
+ (ruby-assert-face "# A comment cannot have #{an interpolation} in it"
+ 30 'font-lock-comment-face)
+ (ruby-assert-face "# #{comment}\n \"#{interpolation}\"" 16
+ 'font-lock-variable-name-face))
+
+(provide 'ruby-mode-tests)
+
+;;; ruby-mode-tests.el ends here
--- /dev/null
+;;; url-future-tests.el --- Test suite for url-future.
+
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
+
+;; Author: Teodor Zlatanov <tzz@lifelogs.com>
+;; Keywords: data
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert)
+(require 'url-future)
+
+(ert-deftest url-future-tests ()
+ (let* (saver
+ (text "running future")
+ (good (make-url-future :value (lambda () (format text))
+ :callback (lambda (f) (set 'saver f))))
+ (bad (make-url-future :value (lambda () (/ 1 0))
+ :errorback (lambda (&rest d) (set 'saver d))))
+ (tocancel (make-url-future :value (lambda () (/ 1 0))
+ :callback (lambda (f) (set 'saver f))
+ :errorback (lambda (&rest d)
+ (set 'saver d)))))
+ (should (equal good (url-future-call good)))
+ (should (equal good saver))
+ (should (equal text (url-future-value good)))
+ (should (url-future-completed-p good))
+ (should-error (url-future-call good))
+ (setq saver nil)
+ (should (equal bad (url-future-call bad)))
+ (should-error (url-future-call bad))
+ (should (equal saver (list bad '(arith-error))))
+ (should (url-future-errored-p bad))
+ (setq saver nil)
+ (should (equal (url-future-cancel tocancel) tocancel))
+ (should-error (url-future-call tocancel))
+ (should (null saver))
+ (should (url-future-cancelled-p tocancel))))
+
+(provide 'url-future-tests)
+
+;;; url-future-tests.el ends here
--- /dev/null
+;;; url-util-tests.el --- Test suite for url-util.
+
+;; Copyright (C) 2012-2013 Free Software Foundation, Inc.
+
+;; Author: Teodor Zlatanov <tzz@lifelogs.com>
+;; Keywords: data
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'ert)
+(require 'url-util)
+
+(ert-deftest url-util-tests ()
+ (let ((tests
+ '(("key1=val1&key2=val2&key3=val1&key3=val2&key4&key5"
+ ((key1 val1) (key2 "val2") (key3 val1 val2) (key4) (key5 "")))
+ ("key1=val1;key2=val2;key3=val1;key3=val2;key4;key5"
+ ((key1 "val1") (key2 val2) (key3 val1 val2) ("key4") (key5 "")) t)
+ ("key1=val1;key2=val2;key3=val1;key3=val2;key4=;key5="
+ ((key1 val1) (key2 val2) ("key3" val1 val2) (key4) (key5 "")) t t)))
+ test)
+ (while tests
+ (setq test (car tests)
+ tests (cdr tests))
+ (should (equal (apply 'url-build-query-string (cdr test)) (car test)))))
+ (should (equal (url-parse-query-string
+ "key1=val1&key2=val2&key3=val1&key3=val2&key4=&key5")
+ '(("key5" "")
+ ("key4" "")
+ ("key3" "val2" "val1")
+ ("key2" "val2")
+ ("key1" "val1")))))
+
+(provide 'url-util-tests)
+
+;;; url-util-tests.el ends here
--- /dev/null
+;;; vc-bzr.el --- tests for vc/vc-bzr.el
+
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
+
+;; Author: Glenn Morris <rgm@gnu.org>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'ert)
+(require 'vc-bzr)
+(require 'vc-dir)
+
+;; FIXME it would be better to skip all these tests if there is no
+;; bzr installed. We could just put everything inside an IF
+;; statement, but it would be nice if ERT had a "skipped" facility (?).
+
+(ert-deftest vc-bzr-test-bug9726 ()
+ "Test for http://debbugs.gnu.org/9726 ."
+ :expected-result (if (executable-find vc-bzr-program) :passed :failed)
+ (should (executable-find vc-bzr-program))
+ (let* ((tempdir (make-temp-file "vc-bzr-test" t))
+ (ignored-dir (expand-file-name "ignored-dir" tempdir))
+ (default-directory (file-name-as-directory tempdir)))
+ (unwind-protect
+ (progn
+ (make-directory ignored-dir)
+ (with-temp-buffer
+ (insert (file-name-nondirectory ignored-dir))
+ (write-region nil nil (expand-file-name ".bzrignore" tempdir)
+ nil 'silent))
+ (call-process vc-bzr-program nil nil nil "init")
+ (call-process vc-bzr-program nil nil nil "add")
+ (call-process vc-bzr-program nil nil nil "commit" "-m" "Commit 1")
+ (with-temp-buffer
+ (insert "unregistered file")
+ (write-region nil nil (expand-file-name "testfile2" ignored-dir)
+ nil 'silent))
+ (vc-dir ignored-dir)
+ (while (vc-dir-busy)
+ (sit-for 0.1))
+ ;; FIXME better to explicitly test for error from process sentinel.
+ (with-current-buffer "*vc-dir*"
+ (goto-char (point-min))
+ (should (search-forward "unregistered" nil t))))
+ (delete-directory tempdir t))))
+
+;; Not specific to bzr.
+(ert-deftest vc-bzr-test-bug9781 ()
+ "Test for http://debbugs.gnu.org/9781 ."
+ :expected-result (if (executable-find vc-bzr-program) :passed :failed)
+ (should (executable-find vc-bzr-program))
+ (let* ((tempdir (make-temp-file "vc-bzr-test" t))
+ (subdir (expand-file-name "subdir" tempdir))
+ (file (expand-file-name "file" tempdir))
+ (default-directory (file-name-as-directory tempdir)))
+ (unwind-protect
+ (progn
+ (call-process vc-bzr-program nil nil nil "init")
+ (make-directory subdir)
+ (with-temp-buffer
+ (insert "text")
+ (write-region nil nil file nil 'silent)
+ (write-region nil nil (expand-file-name "subfile" subdir)
+ nil 'silent))
+ (call-process vc-bzr-program nil nil nil "add")
+ (call-process vc-bzr-program nil nil nil "commit" "-m" "Commit 1")
+ (call-process vc-bzr-program nil nil nil "remove" subdir)
+ (with-temp-buffer
+ (insert "different text")
+ (write-region nil nil file nil 'silent))
+ (vc-dir tempdir)
+ (while (vc-dir-busy)
+ (sit-for 0.1))
+ (vc-dir-mark-all-files t)
+ (let ((f (symbol-function 'y-or-n-p)))
+ (unwind-protect
+ (progn
+ (fset 'y-or-n-p (lambda (prompt) t))
+ (vc-next-action nil))
+ (fset 'y-or-n-p f)))
+ (should (get-buffer "*vc-log*")))
+ (delete-directory tempdir t))))
+
+;; http://lists.gnu.org/archive/html/help-gnu-emacs/2012-04/msg00145.html
+(ert-deftest vc-bzr-test-faulty-bzr-autoloads ()
+ "Test we can generate autoloads in a bzr directory when bzr is faulty."
+ :expected-result (if (executable-find vc-bzr-program) :passed :failed)
+ (should (executable-find vc-bzr-program))
+ (let* ((tempdir (make-temp-file "vc-bzr-test" t))
+ (file (expand-file-name "foo.el" tempdir))
+ (default-directory (file-name-as-directory tempdir))
+ (generated-autoload-file (expand-file-name "loaddefs.el" tempdir)))
+ (unwind-protect
+ (progn
+ (call-process vc-bzr-program nil nil nil "init")
+ (with-temp-buffer
+ (insert ";;;###autoload
+\(defun foo () \"foo\" (interactive) (message \"foo!\"))")
+ (write-region nil nil file nil 'silent))
+ (call-process vc-bzr-program nil nil nil "add")
+ (call-process vc-bzr-program nil nil nil "commit" "-m" "Commit 1")
+ ;; Deleting dirstate ensures both that vc-bzr's status heuristic
+ ;; fails, so it has to call the external bzr status, and
+ ;; causes bzr status to fail. This simulates a broken bzr
+ ;; installation.
+ (delete-file ".bzr/checkout/dirstate")
+ (should (progn (update-directory-autoloads default-directory)
+ t)))
+ (delete-directory tempdir t))))
+
+;;; vc-bzr.el ends here
--- /dev/null
+;;; xml-parse-tests.el --- Test suite for XML parsing.
+
+;; Copyright (C) 2012-2013 Free Software Foundation, Inc.
+
+;; Author: Chong Yidong <cyd@stupidchicken.com>
+;; Keywords: internal
+;; Human-Keywords: internal
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Type M-x test-xml-parse RET to generate the test buffer.
+
+;;; Code:
+
+(require 'xml)
+
+(defvar xml-parse-tests--data
+ `(;; General entity substitution
+ ("<?xml version=\"1.0\"?><!DOCTYPE foo SYSTEM \"bar.dtd\" [<!ENTITY ent \"AbC\">]><foo a=\"b\"><bar>&ent;;</bar></foo>" .
+ ((foo ((a . "b")) (bar nil "AbC;"))))
+ ("<?xml version=\"1.0\"?><foo>&amp;&apos;'<>"</foo>" .
+ ((foo () "&''<>\"")))
+ ;; Parameter entity substitution
+ ("<?xml version=\"1.0\"?><!DOCTYPE foo SYSTEM \"bar.dtd\" [<!ENTITY % pent \"AbC\"><!ENTITY ent \"%pent;\">]><foo a=\"b\"><bar>&ent;;</bar></foo>" .
+ ((foo ((a . "b")) (bar nil "AbC;"))))
+ ;; Tricky parameter entity substitution (like XML spec Appendix D)
+ ("<?xml version='1.0'?><!DOCTYPE foo [ <!ENTITY % xx '%zz;'><!ENTITY % zz '<!ENTITY ent \"b\" >' > %xx; ]><foo>A&ent;C</foo>" .
+ ((foo () "AbC")))
+ ;; Bug#7172
+ ("<?xml version=\"1.0\"?><!DOCTYPE foo [ <!ELEMENT EXAM_PLE EMPTY> ]><foo></foo>" .
+ ((foo ())))
+ ;; Entities referencing entities, in character data
+ ("<!DOCTYPE foo [ <!ENTITY b \"B\"><!ENTITY abc \"a&b;c\">]><foo>&abc;</foo>" .
+ ((foo () "aBc")))
+ ;; Entities referencing entities, in attribute values
+ ("<!DOCTYPE foo [ <!ENTITY b \"B\"><!ENTITY abc \"a&b;c\">]><foo a=\"-&abc;-\">1</foo>" .
+ ((foo ((a . "-aBc-")) "1")))
+ ;; Character references must be treated as character data
+ ("<foo>AT&T;</foo>" . ((foo () "AT&T;")))
+ ("<foo>&amp;</foo>" . ((foo () "&")))
+ ("<foo>&amp;</foo>" . ((foo () "&")))
+ ;; Unusual but valid XML names [5]
+ ("<ÀÖØö.3·-‿⁀>abc</ÀÖØö.3·-‿⁀>" . ((,(intern "ÀÖØö.3·-‿⁀") () "abc")))
+ ("<:>abc</:>" . ((,(intern ":") () "abc"))))
+ "Alist of XML strings and their expected parse trees.")
+
+(defvar xml-parse-tests--bad-data
+ '(;; XML bomb in content
+ "<!DOCTYPE foo [<!ENTITY lol \"lol\"><!ENTITY lol1 \"&lol;&lol;&lol;&lol;&lol;&lol;&lol;&lol;&lol;&lol;\"><!ENTITY lol2 \"&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;\">]><foo>&lol2;</foo>"
+ ;; XML bomb in attribute value
+ "<!DOCTYPE foo [<!ENTITY lol \"lol\"><!ENTITY lol1 \"&lol;&lol;&lol;&lol;&lol;&lol;&lol;&lol;&lol;&lol;\"><!ENTITY lol2 \"&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;&lol1;\">]><foo a=\"&lol2;\">!</foo>"
+ ;; Non-terminating DTD
+ "<!DOCTYPE foo [ <!ENTITY b \"B\"><!ENTITY abc \"a&b;c\">"
+ "<!DOCTYPE foo [ <!ENTITY b \"B\"><!ENTITY abc \"a&b;c\">asdf"
+ "<!DOCTYPE foo [ <!ENTITY b \"B\"><!ENTITY abc \"a&b;c\">asdf&abc;"
+ ;; Invalid XML names
+ "<0foo>abc</0foo>"
+ "<‿foo>abc</‿foo>"
+ "<f¿>abc</f¿>")
+ "List of XML strings that should signal an error in the parser")
+
+(defvar xml-parse-tests--qnames
+ '( ;; Test data for name expansion
+ ("<?xml version=\"1.0\" encoding=\"UTF-8\"?><D:multistatus xmlns:D=\"DAV:\"><D:response><D:href>/calendar/events/</D:href><D:propstat><D:status>HTTP/1.1 200 OK</D:status></D:propstat></D:response></D:multistatus>"
+ ;; Result with qnames as cons
+ ((("DAV:" . "multistatus")
+ ((("http://www.w3.org/2000/xmlns/" . "D") . "DAV:"))
+ (("DAV:" . "response") nil (("DAV:" . "href") nil "/calendar/events/")
+ (("DAV:" . "propstat") nil (("DAV:" . "status") nil "HTTP/1.1 200 OK")))))
+ ;; Result with qnames as symbols
+ ((DAV:multistatus
+ ((("http://www.w3.org/2000/xmlns/" . "D") . "DAV:"))
+ (DAV:response nil (DAV:href nil "/calendar/events/")
+ (DAV:propstat nil (DAV:status nil "HTTP/1.1 200 OK"))))))
+ ("<?xml version=\"1.0\" encoding=\"UTF-8\"?><F:something>hi there</F:something>"
+ ((("FOOBAR:" . "something") nil "hi there"))
+ ((FOOBAR:something nil "hi there"))))
+ "List of strings which are parsed using namespace expansion.
+Parser is called with and without 'symbol-qnames argument.")
+
+(ert-deftest xml-parse-tests ()
+ "Test XML parsing."
+ (with-temp-buffer
+ (dolist (test xml-parse-tests--data)
+ (erase-buffer)
+ (insert (car test))
+ (should (equal (cdr test) (xml-parse-region))))
+ (let ((xml-entity-expansion-limit 50))
+ (dolist (test xml-parse-tests--bad-data)
+ (erase-buffer)
+ (insert test)
+ (should-error (xml-parse-region))))
+ (let ((testdata (car xml-parse-tests--qnames)))
+ (erase-buffer)
+ (insert (car testdata))
+ (should (equal (nth 1 testdata)
+ (xml-parse-region nil nil nil nil t)))
+ (should (equal (nth 2 testdata)
+ (xml-parse-region nil nil nil nil 'symbol-qnames))))
+ (let ((testdata (nth 1 xml-parse-tests--qnames)))
+ (erase-buffer)
+ (insert (car testdata))
+ ;; Provide additional namespace-URI mapping
+ (should (equal (nth 1 testdata)
+ (xml-parse-region
+ nil nil nil nil
+ (append xml-default-ns
+ '(("F" . "FOOBAR:"))))))
+ (should (equal (nth 2 testdata)
+ (xml-parse-region
+ nil nil nil nil
+ (cons 'symbol-qnames
+ (append xml-default-ns
+ '(("F" . "FOOBAR:"))))))))))
+
+;; Local Variables:
+;; no-byte-compile: t
+;; End:
+
+;;; xml-parse-tests.el ends here.
--- /dev/null
+;;; cedet-utests.el --- Run all unit tests in the CEDET suite.
+
+;; Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+;; Author: Eric M. Ludlam <eric@siege-engine.com>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Remembering to run all the unit tests available in CEDET one at a
+;; time is a bit time consuming. This links all the tests together
+;; into one command.
+
+(require 'cedet)
+;;; Code:
+(defvar cedet-utest-test-alist
+ '(
+ ;;
+ ;; COMMON
+ ;;
+
+ ;; Test inversion
+ ("inversion" . inversion-unit-test)
+
+ ;; EZ Image dumping.
+ ("ezimage associations" . ezimage-image-association-dump)
+ ("ezimage images" . ezimage-image-dump)
+
+ ;; Pulse
+ ("pulse interactive test" . (lambda () (pulse-test t)))
+
+ ;; Files
+ ("cedet file conversion" . cedet-files-utest)
+
+ ;;
+ ;; EIEIO
+ ;;
+ ("eieio" . (lambda () (let ((lib (locate-library "eieio-tests.el"
+ t)))
+ (load-file lib))))
+ ("eieio: browser" . eieio-browse)
+ ("eieio: custom" . (lambda ()
+ (require 'eieio-custom)
+ (customize-variable 'eieio-widget-test)))
+ ("eieio: chart" . (lambda ()
+ (if (cedet-utest-noninteractive)
+ (message " ** Skipping test in noninteractive mode.")
+ (chart-test-it-all))))
+ ;;
+ ;; EDE
+ ;;
+
+ ;; @todo - Currently handled in the integration tests. Need
+ ;; some simpler unit tests here.
+
+ ;;
+ ;; SEMANTIC
+ ;;
+ ("semantic: lex spp table write" . semantic-lex-spp-write-utest)
+ ("semantic: multi-lang parsing" . semantic-utest-main)
+ ("semantic: C preprocessor" . semantic-utest-c)
+ ("semantic: analyzer tests" . semantic-ia-utest)
+ ("semanticdb: data cache" . semantic-test-data-cache)
+ ("semantic: throw-on-input" .
+ (lambda ()
+ (if (cedet-utest-noninteractive)
+ (message " ** Skipping test in noninteractive mode.")
+ (semantic-test-throw-on-input))))
+
+ ("semantic: gcc: output parse test" . semantic-gcc-test-output-parser)
+ ;;
+ ;; SRECODE
+ ;;
+ ("srecode: fields" . srecode-field-utest)
+ ("srecode: templates" . srecode-utest-template-output)
+ ("srecode: show maps" . srecode-get-maps)
+ ("srecode: getset" . srecode-utest-getset-output)
+ )
+ "Alist of all the tests in CEDET we should run.")
+
+(defvar cedet-running-master-tests nil
+ "Non-nil when CEDET-utest is running all the tests.")
+
+(defun cedet-utest (&optional exit-on-error)
+ "Run the CEDET unit tests.
+EXIT-ON-ERROR causes the test suite to exit on an error, instead
+of just logging the error."
+ (interactive)
+ (if (or (not (featurep 'semanticdb-mode))
+ (not (semanticdb-minor-mode-p)))
+ (error "CEDET Tests require: M-x semantic-load-enable-minimum-features"))
+ (cedet-utest-log-setup "ALL TESTS")
+ (let ((tl cedet-utest-test-alist)
+ (notes nil)
+ (err nil)
+ (start (current-time))
+ (end nil)
+ (cedet-running-master-tests t)
+ )
+ (dolist (T tl)
+ (cedet-utest-add-log-item-start (car T))
+ (setq notes nil err nil)
+ (condition-case Cerr
+ (progn
+ (funcall (cdr T))
+ )
+ (error
+ (setq err (format "ERROR: %S" Cerr))
+ ;;(message "Error caught: %s" Cerr)
+ ))
+
+ ;; Cleanup stray input and events that are in the way.
+ ;; Not doing this causes sit-for to not refresh the screen.
+ ;; Doing this causes the user to need to press keys more frequently.
+ (when (and (interactive-p) (input-pending-p))
+ (if (fboundp 'read-event)
+ (read-event)
+ (read-char)))
+
+ (cedet-utest-add-log-item-done notes err)
+ (when (and exit-on-error err)
+ (message "to debug this test point, execute:")
+ (message "%S" (cdr T))
+ (message "\n ** Exiting Test Suite. ** \n")
+ (throw 'cedet-utest-exit-on-error t)
+ )
+ )
+ (setq end (current-time))
+ (cedet-utest-log-shutdown-msg "ALL TESTS" start end)
+ nil))
+
+(defun cedet-utest-noninteractive ()
+ "Return non-nil if running non-interactively."
+ (if (featurep 'xemacs)
+ (noninteractive)
+ noninteractive))
+
+;;;###autoload
+(defun cedet-utest-batch ()
+ "Run the CEDET unit test in BATCH mode."
+ (unless (cedet-utest-noninteractive)
+ (error "`cedet-utest-batch' is to be used only with -batch"))
+ (condition-case err
+ (when (catch 'cedet-utest-exit-on-error
+ ;; Get basic semantic features up.
+ (semantic-load-enable-minimum-features)
+ ;; Disables all caches related to semantic DB so all
+ ;; tests run as if we have bootstrapped CEDET for the
+ ;; first time.
+ (setq-default semanticdb-new-database-class 'semanticdb-project-database)
+ (message "Disabling existing Semantic Database Caches.")
+
+ ;; Disabling the srecoder map, we won't load a pre-existing one
+ ;; and will be forced to bootstrap a new one.
+ (setq srecode-map-save-file nil)
+
+ ;; Run the tests
+ (cedet-utest t)
+ )
+ (kill-emacs 1))
+ (error
+ (error "Error in unit test harness:\n %S" err))
+ )
+ )
+
+;;; Logging utility.
+;;
+(defvar cedet-utest-frame nil
+ "Frame used during cedet unit test logging.")
+(defvar cedet-utest-buffer nil
+ "Frame used during cedet unit test logging.")
+(defvar cedet-utest-frame-parameters
+ '((name . "CEDET-UTEST")
+ (width . 80)
+ (height . 25)
+ (minibuffer . t))
+ "Frame parameters used for the cedet utest log frame.")
+
+(defvar cedet-utest-last-log-item nil
+ "Remember the last item we were logging for.")
+
+(defvar cedet-utest-log-timer nil
+ "During a test, track the start time.")
+
+(defun cedet-utest-log-setup (&optional title)
+ "Setup a frame and buffer for unit testing.
+Optional argument TITLE is the title of this testing session."
+ (setq cedet-utest-log-timer (current-time))
+ (if (cedet-utest-noninteractive)
+ (message "\n>> Setting up %s tests to run @ %s\n"
+ (or title "")
+ (current-time-string))
+
+ ;; Interactive mode needs a frame and buffer.
+ (when (or (not cedet-utest-frame) (not (frame-live-p cedet-utest-frame)))
+ (setq cedet-utest-frame (make-frame cedet-utest-frame-parameters)))
+ (when (or (not cedet-utest-buffer) (not (buffer-live-p cedet-utest-buffer)))
+ (setq cedet-utest-buffer (get-buffer-create "*CEDET utest log*")))
+ (save-excursion
+ (set-buffer cedet-utest-buffer)
+ (setq cedet-utest-last-log-item nil)
+ (when (not cedet-running-master-tests)
+ (erase-buffer))
+ (insert "\n\nSetting up "
+ (or title "")
+ " tests to run @ " (current-time-string) "\n\n"))
+ (let ((oframe (selected-frame)))
+ (unwind-protect
+ (progn
+ (select-frame cedet-utest-frame)
+ (switch-to-buffer cedet-utest-buffer t))
+ (select-frame oframe)))
+ ))
+
+(defun cedet-utest-elapsed-time (start end)
+ "Copied from elp.el. Was elp-elapsed-time.
+Argument START and END bound the time being calculated."
+ (+ (* (- (car end) (car start)) 65536.0)
+ (- (car (cdr end)) (car (cdr start)))
+ (/ (- (car (cdr (cdr end))) (car (cdr (cdr start)))) 1000000.0)))
+
+(defun cedet-utest-log-shutdown (title &optional errorcondition)
+ "Shut-down a larger test suite.
+TITLE is the section that is done.
+ERRORCONDITION is some error that may have occurred during testing."
+ (let ((endtime (current-time))
+ )
+ (cedet-utest-log-shutdown-msg title cedet-utest-log-timer endtime)
+ (setq cedet-utest-log-timer nil)
+ ))
+
+(defun cedet-utest-log-shutdown-msg (title startime endtime)
+ "Show a shutdown message with TITLE, STARTIME, and ENDTIME."
+ (if (cedet-utest-noninteractive)
+ (progn
+ (message "\n>> Test Suite %s ended at @ %s"
+ title
+ (format-time-string "%c" endtime))
+ (message " Elapsed Time %.2f Seconds\n"
+ (cedet-utest-elapsed-time startime endtime)))
+
+ (save-excursion
+ (set-buffer cedet-utest-buffer)
+ (goto-char (point-max))
+ (insert "\n>> Test Suite " title " ended at @ "
+ (format-time-string "%c" endtime) "\n"
+ " Elapsed Time "
+ (number-to-string
+ (cedet-utest-elapsed-time startime endtime))
+ " Seconds\n * "))
+ ))
+
+(defun cedet-utest-show-log-end ()
+ "Show the end of the current unit test log."
+ (unless (cedet-utest-noninteractive)
+ (let* ((cb (current-buffer))
+ (cf (selected-frame))
+ (bw (or (get-buffer-window cedet-utest-buffer t)
+ (get-buffer-window (switch-to-buffer cedet-utest-buffer) t)))
+ (lf (window-frame bw))
+ )
+ (select-frame lf)
+ (select-window bw)
+ (goto-char (point-max))
+ (select-frame cf)
+ (set-buffer cb)
+ )))
+
+(defun cedet-utest-post-command-hook ()
+ "Hook run after the current log command was run."
+ (if (cedet-utest-noninteractive)
+ (message "")
+ (save-excursion
+ (set-buffer cedet-utest-buffer)
+ (goto-char (point-max))
+ (insert "\n\n")))
+ (setq cedet-utest-last-log-item nil)
+ (remove-hook 'post-command-hook 'cedet-utest-post-command-hook)
+ )
+
+(defun cedet-utest-add-log-item-start (item)
+ "Add ITEM into the log as being started."
+ (unless (equal item cedet-utest-last-log-item)
+ (setq cedet-utest-last-log-item item)
+ ;; This next line makes sure we clear out status during logging.
+ (add-hook 'post-command-hook 'cedet-utest-post-command-hook)
+
+ (if (cedet-utest-noninteractive)
+ (message " - Running %s ..." item)
+ (save-excursion
+ (set-buffer cedet-utest-buffer)
+ (goto-char (point-max))
+ (when (not (bolp)) (insert "\n"))
+ (insert "Running " item " ... ")
+ (sit-for 0)
+ ))
+ (cedet-utest-show-log-end)
+ ))
+
+(defun cedet-utest-add-log-item-done (&optional notes err precr)
+ "Add into the log that the last item is done.
+Apply NOTES to the doneness of the log.
+Apply ERR if there was an error in previous item.
+Optional argument PRECR indicates to prefix the done msg w/ a newline."
+ (if (cedet-utest-noninteractive)
+ ;; Non-interactive-mode - show a message.
+ (if notes
+ (message " * %s {%s}" (or err "done") notes)
+ (message " * %s" (or err "done")))
+ ;; Interactive-mode - insert into the buffer.
+ (save-excursion
+ (set-buffer cedet-utest-buffer)
+ (goto-char (point-max))
+ (when precr (insert "\n"))
+ (if err
+ (insert err)
+ (insert "done")
+ (when notes (insert " (" notes ")")))
+ (insert "\n")
+ (setq cedet-utest-last-log-item nil)
+ (sit-for 0)
+ )))
+
+;;; INDIVIDUAL TEST API
+;;
+;; Use these APIs to start and log information.
+;;
+;; The other fcns will be used to log across all the tests at once.
+(defun cedet-utest-log-start (testname)
+ "Setup the log for the test TESTNAME."
+ ;; Make sure we have a log buffer.
+ (save-window-excursion
+ (when (or (not cedet-utest-buffer)
+ (not (buffer-live-p cedet-utest-buffer))
+ (not (get-buffer-window cedet-utest-buffer t))
+ )
+ (cedet-utest-log-setup))
+ ;; Add our startup message.
+ (cedet-utest-add-log-item-start testname)
+ ))
+
+(defun cedet-utest-log(format &rest args)
+ "Log the text string FORMAT.
+The rest of the ARGS are used to fill in FORMAT with `format'."
+ (if (cedet-utest-noninteractive)
+ (apply 'message format args)
+ (save-excursion
+ (set-buffer cedet-utest-buffer)
+ (goto-char (point-max))
+ (when (not (bolp)) (insert "\n"))
+ (insert (apply 'format format args))
+ (insert "\n")
+ (sit-for 0)
+ ))
+ (cedet-utest-show-log-end)
+ )
+
+;;; Inversion tests
+
+(defun inversion-unit-test ()
+ "Test inversion to make sure it can identify different version strings."
+ (interactive)
+ (let ((c1 (inversion-package-version 'inversion))
+ (c1i (inversion-package-incompatibility-version 'inversion))
+ (c2 (inversion-decode-version "1.3alpha2"))
+ (c3 (inversion-decode-version "1.3beta4"))
+ (c4 (inversion-decode-version "1.3 beta5"))
+ (c5 (inversion-decode-version "1.3.4"))
+ (c6 (inversion-decode-version "2.3alpha"))
+ (c7 (inversion-decode-version "1.3"))
+ (c8 (inversion-decode-version "1.3pre1"))
+ (c9 (inversion-decode-version "2.4 (patch 2)"))
+ (c10 (inversion-decode-version "2.4 (patch 3)"))
+ (c11 (inversion-decode-version "2.4.2.1"))
+ (c12 (inversion-decode-version "2.4.2.2"))
+ )
+ (if (not (and
+ (inversion-= c1 c1)
+ (inversion-< c1i c1)
+ (inversion-< c2 c3)
+ (inversion-< c3 c4)
+ (inversion-< c4 c5)
+ (inversion-< c5 c6)
+ (inversion-< c2 c4)
+ (inversion-< c2 c5)
+ (inversion-< c2 c6)
+ (inversion-< c3 c5)
+ (inversion-< c3 c6)
+ (inversion-< c7 c6)
+ (inversion-< c4 c7)
+ (inversion-< c2 c7)
+ (inversion-< c8 c6)
+ (inversion-< c8 c7)
+ (inversion-< c4 c8)
+ (inversion-< c2 c8)
+ (inversion-< c9 c10)
+ (inversion-< c10 c11)
+ (inversion-< c11 c12)
+ ;; Negatives
+ (not (inversion-< c3 c2))
+ (not (inversion-< c4 c3))
+ (not (inversion-< c5 c4))
+ (not (inversion-< c6 c5))
+ (not (inversion-< c7 c2))
+ (not (inversion-< c7 c8))
+ (not (inversion-< c12 c11))
+ ;; Test the tester on inversion
+ (not (inversion-test 'inversion inversion-version))
+ ;; Test that we throw an error
+ (inversion-test 'inversion "0.0.0")
+ (inversion-test 'inversion "1000.0")
+ ))
+ (error "Inversion tests failed")
+ (message "Inversion tests passed."))))
+
+;;; cedet-files unit test
+
+(defvar cedet-files-utest-list
+ '(
+ ( "/home/me/src/myproj/src/foo.c" . "!home!me!src!myproj!src!foo.c" )
+ ( "c:/work/myproj/foo.el" . "!drive_c!work!myproj!foo.el" )
+ ( "//windows/proj/foo.java" . "!!windows!proj!foo.java" )
+ ( "/home/me/proj!bang/foo.c" . "!home!me!proj!!bang!foo.c" )
+ )
+ "List of different file names to test.
+Each entry is a cons cell of ( FNAME . CONVERTED )
+where FNAME is some file name, and CONVERTED is what it should be
+converted into.")
+
+(defun cedet-files-utest ()
+ "Test out some file name conversions."
+ (interactive)
+ (let ((idx 0))
+ (dolist (FT cedet-files-utest-list)
+
+ (setq idx (+ idx 1))
+
+ (let ((dir->file (cedet-directory-name-to-file-name (car FT) t))
+ (file->dir (cedet-file-name-to-directory-name (cdr FT) t))
+ )
+
+ (unless (string= (cdr FT) dir->file)
+ (error "Failed: %d. Found: %S Wanted: %S"
+ idx dir->file (cdr FT))
+ )
+
+ (unless (string= file->dir (car FT))
+ (error "Failed: %d. Found: %S Wanted: %S"
+ idx file->dir (car FT)))))))
+
+;;; pulse test
+
+(defun pulse-test (&optional no-error)
+ "Test the lightening function for pulsing a line.
+When optional NO-ERROR don't throw an error if we can't run tests."
+ (interactive)
+ (if (or (not pulse-flag) (not (pulse-available-p)))
+ (if no-error
+ nil
+ (error (concat "Pulse test only works on versions of Emacs"
+ " that support pulsing")))
+ ;; Run the tests
+ (when (interactive-p)
+ (message "<Press a key> Pulse one line.")
+ (read-char))
+ (pulse-momentary-highlight-one-line (point))
+ (when (interactive-p)
+ (message "<Press a key> Pulse a region.")
+ (read-char))
+ (pulse-momentary-highlight-region (point)
+ (save-excursion
+ (condition-case nil
+ (forward-char 30)
+ (error nil))
+ (point)))
+ (when (interactive-p)
+ (message "<Press a key> Pulse line a specific color.")
+ (read-char))
+ (pulse-momentary-highlight-one-line (point) 'modeline)
+ (when (interactive-p)
+ (message "<Press a key> Pulse a pre-existing overlay.")
+ (read-char))
+ (let* ((start (point-at-bol))
+ (end (save-excursion
+ (end-of-line)
+ (when (not (eobp))
+ (forward-char 1))
+ (point)))
+ (o (make-overlay start end))
+ )
+ (pulse-momentary-highlight-overlay o)
+ (if (overlay-buffer o)
+ (delete-overlay o)
+ (error "Non-temporary overlay was deleted!"))
+ )
+ (when (interactive-p)
+ (message "Done!"))))
+
+(provide 'cedet-utests)
+
+;;; cedet-utests.el ends here
--- /dev/null
+;;; ede-tests.el --- Some tests for the Emacs Development Environment
+
+;; Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+;; Author: Eric M. Ludlam <eric@siege-engine.com>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Extracted from ede-locate.el in the CEDET distribution.
+
+;;; Code:
+
+;;; From ede-locate:
+
+(require 'ede/locate)
+
+;;; TESTS
+;;
+;; Some testing routines.
+(defun ede-locate-test-locate (file)
+ "Test EDE Locate on FILE using LOCATE type.
+The search is done with the current EDE root."
+ (interactive "sFile: ")
+ (let ((loc (ede-locate-locate
+ "test"
+ :root (ede-project-root-directory
+ (ede-toplevel)))))
+ (data-debug-new-buffer "*EDE Locate ADEBUG*")
+ (ede-locate-file-in-project loc file)
+ (data-debug-insert-object-slots loc "]"))
+ )
+
+(defun ede-locate-test-global (file)
+ "Test EDE Locate on FILE using GNU Global type.
+The search is done with the current EDE root."
+ (interactive "sFile: ")
+ (let ((loc (ede-locate-global
+ "test"
+ :root (ede-project-root-directory
+ (ede-toplevel)))))
+ (data-debug-new-buffer "*EDE Locate ADEBUG*")
+ (ede-locate-file-in-project loc file)
+ (data-debug-insert-object-slots loc "]"))
+ )
+
+(defun ede-locate-test-idutils (file)
+ "Test EDE Locate on FILE using ID Utils type.
+The search is done with the current EDE root."
+ (interactive "sFile: ")
+ (let ((loc (ede-locate-idutils
+ "test"
+ :root (ede-project-root-directory
+ (ede-toplevel)))))
+ (data-debug-new-buffer "*EDE Locate ADEBUG*")
+ (ede-locate-file-in-project loc file)
+ (data-debug-insert-object-slots loc "]"))
+ )
+
+(defun ede-locate-test-cscope (file)
+ "Test EDE Locate on FILE using CScope type.
+The search is done with the current EDE root."
+ (interactive "sFile: ")
+ (let ((loc (ede-locate-cscope
+ "test"
+ :root (ede-project-root-directory
+ (ede-toplevel)))))
+ (data-debug-new-buffer "*EDE Locate ADEBUG*")
+ (ede-locate-file-in-project loc file)
+ (data-debug-insert-object-slots loc "]"))
+ )
+
+;;; ede-test.el ends here
--- /dev/null
+;;; semantic-ia-utest.el --- Analyzer unit tests
+
+;; Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+;; Author: Eric M. Ludlam <eric@siege-engine.com>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Use marked-up files in the test directory and run the analyzer
+;; on them. Make sure the answers are correct.
+;;
+;; Each file has cursor keys in them of the form:
+;; // -#- ("ans1" "ans2" )
+;; where # is 1, 2, 3, etc, and some sort of answer list.
+
+;;; Code:
+(require 'semantic)
+(require 'semantic/analyze)
+(require 'semantic/analyze/refs)
+(require 'semantic/symref)
+(require 'semantic/symref/filter)
+
+(load-file "cedet-utests.el")
+
+(defvar semantic-ia-utest-file-list
+ '(
+ "tests/testdoublens.cpp"
+ "tests/testsubclass.cpp"
+ "tests/testtypedefs.cpp"
+ "tests/testfriends.cpp"
+ "tests/testnsp.cpp"
+ "tests/testsppcomplete.c"
+ "tests/testvarnames.c"
+ "tests/testjavacomp.java"
+ )
+ "List of files with analyzer completion test points.")
+
+(defvar semantic-ia-utest-error-log-list nil
+ "List of errors occurring during a run.")
+
+;;;###autoload
+(defun semantic-ia-utest (&optional arg)
+ "Run the semantic ia unit test against stored sources.
+Argument ARG specifies which set of tests to run.
+ 1 - ia utests
+ 2 - regs utests
+ 3 - symrefs utests
+ 4 - symref count utests"
+ (interactive "P")
+ (save-excursion
+
+ (let ((fl semantic-ia-utest-file-list)
+ (semantic-ia-utest-error-log-list nil)
+ )
+
+ (cedet-utest-log-setup "ANALYZER")
+
+ (set-buffer (semantic-find-file-noselect
+ (or (locate-library "semantic-ia-utest.el")
+ "semantic-ia-utest.el")))
+
+ (while fl
+
+ ;; Make sure we have the files we think we have.
+ (when (not (file-exists-p (car fl)))
+ (error "Cannot find unit test file: %s" (car fl)))
+
+ ;; Run the tests.
+ (let ((fb (find-buffer-visiting (car fl)))
+ (b (semantic-find-file-noselect (car fl) t)))
+
+ ;; Run the test on it.
+ (save-excursion
+ (set-buffer b)
+
+ ;; This line will also force the include, scope, and typecache.
+ (semantic-clear-toplevel-cache)
+ ;; Force tags to be parsed.
+ (semantic-fetch-tags)
+
+ (semantic-ia-utest-log " ** Starting tests in %s"
+ (buffer-name))
+
+ (when (or (not arg) (= arg 1))
+ (semantic-ia-utest-buffer))
+
+ (when (or (not arg) (= arg 2))
+ (set-buffer b)
+ (semantic-ia-utest-buffer-refs))
+
+ (when (or (not arg) (= arg 3))
+ (set-buffer b)
+ (semantic-sr-utest-buffer-refs))
+
+ (when (or (not arg) (= arg 4))
+ (set-buffer b)
+ (semantic-src-utest-buffer-refs))
+
+ (semantic-ia-utest-log " ** Completed tests in %s\n"
+ (buffer-name))
+ )
+
+ ;; If it wasn't already in memory, whack it.
+ (when (not fb)
+ (kill-buffer b))
+ )
+ (setq fl (cdr fl)))
+
+ (cedet-utest-log-shutdown
+ "ANALYZER"
+ (when semantic-ia-utest-error-log-list
+ (format "%s Failures found."
+ (length semantic-ia-utest-error-log-list))))
+ (when semantic-ia-utest-error-log-list
+ (error "Failures found during analyzer unit tests"))
+ ))
+ )
+
+(defun semantic-ia-utest-buffer ()
+ "Run analyzer completion unit-test pass in the current buffer."
+
+ (let* ((idx 1)
+ (regex-p nil)
+ (regex-a nil)
+ (p nil)
+ (a nil)
+ (pass nil)
+ (fail nil)
+ (actual nil)
+ (desired nil)
+ ;; Exclude unpredictable system files in the
+ ;; header include list.
+ (semanticdb-find-default-throttle
+ (remq 'system semanticdb-find-default-throttle))
+ )
+ ;; Keep looking for test points until we run out.
+ (while (save-excursion
+ (setq regex-p (concat "//\\s-*-" (number-to-string idx) "-" )
+ regex-a (concat "//\\s-*#" (number-to-string idx) "#" ))
+ (goto-char (point-min))
+ (save-match-data
+ (when (re-search-forward regex-p nil t)
+ (setq p (match-beginning 0))))
+ (save-match-data
+ (when (re-search-forward regex-a nil t)
+ (setq a (match-end 0))))
+ (and p a))
+
+ (save-excursion
+
+ (goto-char p)
+
+ (let* ((ctxt (semantic-analyze-current-context))
+ (acomp
+ (condition-case nil
+ (semantic-analyze-possible-completions ctxt)
+ (error nil))))
+ (setq actual (mapcar 'semantic-tag-name acomp)))
+
+ (goto-char a)
+
+ (let ((bss (buffer-substring-no-properties (point) (point-at-eol))))
+ (condition-case nil
+ (setq desired (read bss))
+ (error (setq desired (format " FAILED TO PARSE: %S"
+ bss)))))
+
+ (if (equal actual desired)
+ (setq pass (cons idx pass))
+ (setq fail (cons idx fail))
+ (semantic-ia-utest-log
+ " Failed %d. Desired: %S Actual %S"
+ idx desired actual)
+ (add-to-list 'semantic-ia-utest-error-log-list
+ (list (buffer-name) idx desired actual)
+ )
+
+ )
+ )
+
+ (setq p nil a nil)
+ (setq idx (1+ idx)))
+
+ (if fail
+ (progn
+ (semantic-ia-utest-log
+ " Unit tests (completions) failed tests %S"
+ (reverse fail))
+ )
+ (semantic-ia-utest-log " Unit tests (completions) passed (%d total)"
+ (- idx 1)))
+
+ ))
+
+(defun semantic-ia-utest-buffer-refs ()
+ "Run an analyze-refs unit-test pass in the current buffer."
+
+ (let* ((idx 1)
+ (regex-p nil)
+ (p nil)
+ (pass nil)
+ (fail nil)
+ ;; Exclude unpredictable system files in the
+ ;; header include list.
+ (semanticdb-find-default-throttle
+ (remq 'system semanticdb-find-default-throttle))
+ )
+ ;; Keep looking for test points until we run out.
+ (while (save-excursion
+ (setq regex-p (concat "//\\s-*\\^" (number-to-string idx) "^" )
+ )
+ (goto-char (point-min))
+ (save-match-data
+ (when (re-search-forward regex-p nil t)
+ (setq p (match-beginning 0))))
+ p)
+
+ (save-excursion
+
+ (goto-char p)
+ (forward-char -1)
+
+ (let* ((ct (semantic-current-tag))
+ (refs (semantic-analyze-tag-references ct))
+ (impl (semantic-analyze-refs-impl refs t))
+ (proto (semantic-analyze-refs-proto refs t))
+ (pf nil)
+ )
+ (setq
+ pf
+ (catch 'failed
+ (if (and impl proto (car impl) (car proto))
+ (let (ct2 ref2 impl2 proto2
+ newstart)
+ (cond
+ ((semantic-equivalent-tag-p (car impl) ct)
+ ;; We are on an IMPL. Go To the proto, and find matches.
+ (semantic-go-to-tag (car proto))
+ (setq newstart (car proto))
+ )
+ ((semantic-equivalent-tag-p (car proto) ct)
+ ;; We are on a PROTO. Go to the imple, and find matches
+ (semantic-go-to-tag (car impl))
+ (setq newstart (car impl))
+ )
+ (t
+ ;; No matches is a fail.
+ (throw 'failed t)
+ ))
+ ;; Get the new tag, does it match?
+ (setq ct2 (semantic-current-tag))
+
+ ;; Does it match?
+ (when (not (semantic-equivalent-tag-p ct2 newstart))
+ (throw 'failed t))
+
+ ;; Can we double-jump?
+ (setq ref2 (semantic-analyze-tag-references ct)
+ impl2 (semantic-analyze-refs-impl ref2 t)
+ proto2 (semantic-analyze-refs-proto ref2 t))
+
+ (when (or (not (and impl2 proto2))
+ (not
+ (and (semantic-equivalent-tag-p
+ (car impl) (car impl2))
+ (semantic-equivalent-tag-p
+ (car proto) (car proto2)))))
+ (throw 'failed t))
+ )
+
+ ;; Else, no matches at all, so another fail.
+ (throw 'failed t)
+ )))
+
+ (if (not pf)
+ ;; We passed
+ (setq pass (cons idx pass))
+ ;; We failed.
+ (setq fail (cons idx fail))
+ (semantic-ia-utest-log
+ " Failed %d. For %s (Num impls %d) (Num protos %d)"
+ idx (if ct (semantic-tag-name ct) "<No tag found>")
+ (length impl) (length proto))
+ (add-to-list 'semantic-ia-utest-error-log-list
+ (list (buffer-name) idx)
+ )
+ ))
+
+ (setq p nil)
+ (setq idx (1+ idx))
+
+ ))
+
+ (if fail
+ (progn
+ (semantic-ia-utest-log
+ " Unit tests (refs) failed tests")
+ )
+ (semantic-ia-utest-log " Unit tests (refs) passed (%d total)"
+ (- idx 1)))
+
+ ))
+
+(defun semantic-sr-utest-buffer-refs ()
+ "Run a symref unit-test pass in the current buffer."
+
+ ;; This line will also force the include, scope, and typecache.
+ (semantic-clear-toplevel-cache)
+ ;; Force tags to be parsed.
+ (semantic-fetch-tags)
+
+ (let* ((idx 1)
+ (tag nil)
+ (regex-p nil)
+ (desired nil)
+ (actual-result nil)
+ (actual nil)
+ (pass nil)
+ (fail nil)
+ (symref-tool-used nil)
+ ;; Exclude unpredictable system files in the
+ ;; header include list.
+ (semanticdb-find-default-throttle
+ (remq 'system semanticdb-find-default-throttle))
+ )
+ ;; Keep looking for test points until we run out.
+ (while (save-excursion
+ (setq regex-p (concat "//\\s-*\\%" (number-to-string idx) "%" )
+ )
+ (goto-char (point-min))
+ (save-match-data
+ (when (re-search-forward regex-p nil t)
+ (setq tag (semantic-current-tag))
+ (goto-char (match-end 0))
+ (setq desired (read (buffer-substring (point) (point-at-eol))))
+ ))
+ tag)
+
+ (setq actual-result (semantic-symref-find-references-by-name
+ (semantic-tag-name tag) 'target
+ 'symref-tool-used))
+
+ (if (not actual-result)
+ (progn
+ (setq fail (cons idx fail))
+ (semantic-ia-utest-log
+ " Failed FNames %d: No results." idx)
+ (semantic-ia-utest-log
+ " Failed Tool: %s" (object-name symref-tool-used))
+
+ (add-to-list 'semantic-ia-utest-error-log-list
+ (list (buffer-name) idx)
+ )
+ )
+
+ (setq actual (list (sort (mapcar
+ 'file-name-nondirectory
+ (semantic-symref-result-get-files actual-result))
+ 'string<)
+ (sort
+ (mapcar
+ 'semantic-format-tag-canonical-name
+ (semantic-symref-result-get-tags actual-result))
+ 'string<)))
+
+
+ (if (equal desired actual)
+ ;; We passed
+ (setq pass (cons idx pass))
+ ;; We failed.
+ (setq fail (cons idx fail))
+ (when (not (equal (car actual) (car desired)))
+ (semantic-ia-utest-log
+ " Failed FNames %d: Actual: %S Desired: %S"
+ idx (car actual) (car desired))
+ (semantic-ia-utest-log
+ " Failed Tool: %s" (object-name symref-tool-used))
+ )
+ (when (not (equal (car (cdr actual)) (car (cdr desired))))
+ (semantic-ia-utest-log
+ " Failed TNames %d: Actual: %S Desired: %S"
+ idx (car (cdr actual)) (car (cdr desired)))
+ (semantic-ia-utest-log
+ " Failed Tool: %s" (object-name symref-tool-used))
+ )
+ (add-to-list 'semantic-ia-utest-error-log-list
+ (list (buffer-name) idx)
+ )
+ ))
+
+ (setq idx (1+ idx))
+ (setq tag nil))
+
+ (if fail
+ (progn
+ (semantic-ia-utest-log
+ " Unit tests (symrefs) failed tests")
+ )
+ (semantic-ia-utest-log " Unit tests (symrefs) passed (%d total)"
+ (- idx 1)))
+
+ ))
+
+(defun semantic-symref-test-count-hits-in-tag ()
+ "Lookup in the current tag the symbol under point.
+Then count all the other references to the same symbol within the
+tag that contains point, and return that."
+ (interactive)
+ (let* ((ctxt (semantic-analyze-current-context))
+ (target (car (reverse (oref ctxt prefix))))
+ (tag (semantic-current-tag))
+ (start (current-time))
+ (Lcount 0))
+ (when (semantic-tag-p target)
+ (semantic-symref-hits-in-region
+ target (lambda (start end prefix) (setq Lcount (1+ Lcount)))
+ (semantic-tag-start tag)
+ (semantic-tag-end tag))
+ (when (interactive-p)
+ (message "Found %d occurrences of %s in %.2f seconds"
+ Lcount (semantic-tag-name target)
+ (semantic-elapsed-time start (current-time))))
+ Lcount)))
+
+(defun semantic-src-utest-buffer-refs ()
+ "Run a sym-ref counting unit-test pass in the current buffer."
+
+ ;; This line will also force the include, scope, and typecache.
+ (semantic-clear-toplevel-cache)
+ ;; Force tags to be parsed.
+ (semantic-fetch-tags)
+
+ (let* ((idx 1)
+ (start nil)
+ (regex-p nil)
+ (desired nil)
+ (actual nil)
+ (pass nil)
+ (fail nil)
+ ;; Exclude unpredictable system files in the
+ ;; header include list.
+ (semanticdb-find-default-throttle
+ (remq 'system semanticdb-find-default-throttle))
+ )
+ ;; Keep looking for test points until we run out.
+ (while (save-excursion
+ (setq regex-p (concat "//\\s-*@"
+ (number-to-string idx)
+ "@\\s-+\\(\\w+\\)" ))
+ (goto-char (point-min))
+ (save-match-data
+ (when (re-search-forward regex-p nil t)
+ (goto-char (match-beginning 1))
+ (setq desired (read (buffer-substring (point) (point-at-eol))))
+ (setq start (match-beginning 0))
+ (goto-char start)
+ (setq actual (semantic-symref-test-count-hits-in-tag))
+ start)))
+
+ (if (not actual)
+ (progn
+ (setq fail (cons idx fail))
+ (semantic-ia-utest-log
+ " Failed symref count %d: No results." idx)
+
+ (add-to-list 'semantic-ia-utest-error-log-list
+ (list (buffer-name) idx)
+ )
+ )
+
+ (if (equal desired actual)
+ ;; We passed
+ (setq pass (cons idx pass))
+ ;; We failed.
+ (setq fail (cons idx fail))
+ (when (not (equal actual desired))
+ (semantic-ia-utest-log
+ " Failed symref count %d: Actual: %S Desired: %S"
+ idx actual desired)
+ )
+
+ (add-to-list 'semantic-ia-utest-error-log-list
+ (list (buffer-name) idx)
+ )
+ ))
+
+ (setq idx (1+ idx))
+ )
+
+ (if fail
+ (progn
+ (semantic-ia-utest-log
+ " Unit tests (symrefs counter) failed tests")
+ )
+ (semantic-ia-utest-log " Unit tests (symrefs counter) passed (%d total)"
+ (- idx 1)))
+
+ ))
+
+(defun semantic-ia-utest-start-log ()
+ "Start up a testlog for a run."
+ ;; Redo w/ CEDET utest framework.
+ (cedet-utest-log-start "semantic: analyzer tests"))
+
+(defun semantic-ia-utest-log (&rest args)
+ "Log some test results.
+Pass ARGS to format to create the log message."
+ ;; Forward to CEDET utest framework.
+ (apply 'cedet-utest-log args))
+
+(provide 'semantic-ia-utest)
+
+;;; semantic-ia-utest.el ends here
--- /dev/null
+;;; semantic-utest.el --- Miscellaneous Semantic tests.
+
+;;; Copyright (C) 2003-2004, 2007-2013 Free Software Foundation, Inc.
+
+;; Author: Eric M. Ludlam <zappo@gnu.org>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Originally, there are many test functions scattered among the
+;; Semantic source files. This file consolidates them.
+
+(require 'data-debug)
+
+;;; From semantic-complete
+
+(require 'semantic/complete)
+
+(defun semantic-complete-test ()
+ "Test completion mechanisms."
+ (interactive)
+ (message "%S"
+ (semantic-format-tag-prototype
+ (semantic-complete-read-tag-project "Symbol: "))))
+
+;;; From semanticdb-ebrowse
+
+(require 'semantic/db-ebrowse)
+
+(defun semanticdb-ebrowse-run-tests ()
+ "Run some tests of the semanticdb-ebrowse system.
+All systems are different. Ask questions along the way."
+ (interactive)
+ (let ((doload nil))
+ (when (y-or-n-p "Create a system database to test with? ")
+ (call-interactively 'semanticdb-create-ebrowse-database)
+ (setq doload t))
+ ;; Should we load in caches
+ (when (if doload
+ (y-or-n-p "New database created. Reload system databases? ")
+ (y-or-n-p "Load in all system databases? "))
+ (semanticdb-load-ebrowse-caches)))
+ ;; Ok, databases were created. Let's try some searching.
+ (when (not (or (eq major-mode 'c-mode)
+ (eq major-mode 'c++-mode)))
+ (error "Please make your default buffer be a C or C++ file, then
+run the test again")))
+
+(defun semanticdb-ebrowse-dump ()
+ "Find the first loaded ebrowse table, and dump out the contents."
+ (interactive)
+ (let ((db semanticdb-database-list)
+ (ab nil))
+ (while db
+ (when (semanticdb-project-database-ebrowse-p (car db))
+ (setq ab (data-debug-new-buffer "*EBROWSE Database*"))
+ (data-debug-insert-thing (car db) "*" "")
+ (setq db nil)
+ )
+ (setq db (cdr db)))))
+
+;;; From semanticdb-global:
+
+(require 'semantic/db-global)
+
+(defvar semanticdb-test-gnu-global-startfile "~/src/global-5.7.3/global/global.c"
+ "File to use for testing.")
+
+(defun semanticdb-test-gnu-global (searchfor &optional standardfile)
+ "Test the GNU Global semanticdb.
+Argument SEARCHFOR is the text to search for.
+If optional arg STANDARDFILE is non-nil, use a standard file w/ global enabled."
+ (interactive "sSearch For Tag: \nP")
+
+ (require 'data-debug)
+ (save-excursion
+ (when standardfile
+ (save-match-data
+ (set-buffer (find-file-noselect semanticdb-test-gnu-global-startfile))))
+
+ (condition-case err
+ (semanticdb-enable-gnu-global-in-buffer)
+ (error (if standardfile
+ (error err)
+ (save-match-data
+ (set-buffer (find-file-noselect semanticdb-test-gnu-global-startfile)))
+ (semanticdb-enable-gnu-global-in-buffer))))
+
+ (let* ((db (semanticdb-project-database-global "global"))
+ (tab (semanticdb-file-table db (buffer-file-name)))
+ (result (semanticdb-deep-find-tags-for-completion-method tab searchfor))
+ )
+ (data-debug-new-buffer "*SemanticDB Gnu Global Result*")
+ (data-debug-insert-thing result "?" ""))))
+
+;;; From semantic-format
+
+(require 'semantic/format)
+
+(defun semantic-test-all-format-tag-functions (&optional arg)
+ "Test all outputs from `semantic-format-tag-functions'.
+Output is generated from the function under `point'.
+Optional argument ARG specifies not to use color."
+ (interactive "P")
+ (semantic-fetch-tags)
+ (let* ((tag (semantic-current-tag))
+ (par (semantic-current-tag-parent))
+ (fns semantic-format-tag-functions))
+ (with-output-to-temp-buffer "*format-tag*"
+ (princ "Tag->format function tests:")
+ (while fns
+ (princ "\n")
+ (princ (car fns))
+ (princ ":\n ")
+ (let ((s (funcall (car fns) tag par (not arg))))
+ (save-excursion
+ (set-buffer "*format-tag*")
+ (goto-char (point-max))
+ (insert s)))
+ (setq fns (cdr fns))))
+ ))
+
+;;; From semantic-fw:
+
+(require 'semantic/fw)
+
+(defun semantic-test-data-cache ()
+ "Test the data cache."
+ (interactive)
+ (let ((data '(a b c)))
+ (save-excursion
+ (set-buffer (get-buffer-create " *semantic-test-data-cache*"))
+ (erase-buffer)
+ (insert "The Moose is Loose")
+ (goto-char (point-min))
+ (semantic-cache-data-to-buffer (current-buffer) (point) (+ (point) 5)
+ data 'moose 'exit-cache-zone)
+ (if (equal (semantic-get-cache-data 'moose) data)
+ (message "Successfully retrieved cached data.")
+ (error "Failed to retrieve cached data")))))
+
+(defun semantic-test-throw-on-input ()
+ "Test that throw on input will work."
+ (interactive)
+ (semantic-throw-on-input 'done-die)
+ (message "Exit Code: %s"
+ (semantic-exit-on-input 'testing
+ (let ((inhibit-quit nil)
+ (message-log-max nil))
+ (while t
+ (message "Looping ... press a key to test")
+ (semantic-throw-on-input 'test-inner-loop))
+ 'exit)))
+ (when (input-pending-p)
+ (if (fboundp 'read-event)
+ (read-event)
+ (read-char))))
+
+;;; From semantic-idle:
+
+(require 'semantic/idle)
+
+(defun semantic-idle-pnf-test ()
+ "Test `semantic-idle-scheduler-work-parse-neighboring-files' and time it."
+ (interactive)
+ (let ((start (current-time))
+ (junk (semantic-idle-scheduler-work-parse-neighboring-files))
+ (end (current-time)))
+ (message "Work took %.2f seconds." (semantic-elapsed-time start end))))
+
+;;; From semantic-lex:
+
+(require 'semantic/lex)
+
+(defun semantic-lex-test-full-depth (arg)
+ "Test the semantic lexer in the current buffer parsing through lists.
+Usually the lexer parses.
+If universal argument ARG, then try the whole buffer."
+ (interactive "P")
+ (let* ((start (current-time))
+ (result (semantic-lex
+ (if arg (point-min) (point))
+ (point-max)
+ 100))
+ (end (current-time)))
+ (message "Elapsed Time: %.2f seconds."
+ (semantic-elapsed-time start end))
+ (pop-to-buffer "*Lexer Output*")
+ (require 'pp)
+ (erase-buffer)
+ (insert (pp-to-string result))
+ (goto-char (point-min))))
+
+(defun semantic-lex-test-region (beg end)
+ "Test the semantic lexer in the current buffer.
+Analyze the area between BEG and END."
+ (interactive "r")
+ (let ((result (semantic-lex beg end)))
+ (pop-to-buffer "*Lexer Output*")
+ (require 'pp)
+ (erase-buffer)
+ (insert (pp-to-string result))
+ (goto-char (point-min))))
+
+;;; From semantic-lex-spp:
+
+(require 'semantic/lex-spp)
+
+(defun semantic-lex-spp-write-test ()
+ "Test the semantic tag writer against the current buffer."
+ (interactive)
+ (with-output-to-temp-buffer "*SPP Write Test*"
+ (semantic-lex-spp-table-write-slot-value
+ (semantic-lex-spp-save-table))))
+
+(defun semantic-lex-spp-write-utest ()
+ "Unit test using the test spp file to test the slot write fcn."
+ (interactive)
+ (let* ((sem (locate-library "semantic-lex-spp.el"))
+ (dir (file-name-directory sem)))
+ (save-excursion
+ (set-buffer (find-file-noselect
+ (expand-file-name "tests/testsppreplace.c"
+ dir)))
+ (semantic-lex-spp-write-test))))
+
+;;; From semantic-tag-write:
+
+;;; TESTING.
+
+(require 'semantic/tag-write)
+
+(defun semantic-tag-write-test ()
+ "Test the semantic tag writer against the tag under point."
+ (interactive)
+ (with-output-to-temp-buffer "*Tag Write Test*"
+ (semantic-tag-write-one-tag (semantic-current-tag))))
+
+(defun semantic-tag-write-list-test ()
+ "Test the semantic tag writer against the tag under point."
+ (interactive)
+ (with-output-to-temp-buffer "*Tag Write Test*"
+ (semantic-tag-write-tag-list (semantic-fetch-tags))))
+
+;;; From semantic-symref-filter:
+
+(require 'semantic/symref/filter)
+
+(defun semantic-symref-test-count-hits-in-tag ()
+ "Lookup in the current tag the symbol under point.
+Then count all the other references to the same symbol within the
+tag that contains point, and return that."
+ (interactive)
+ (let* ((ctxt (semantic-analyze-current-context))
+ (target (car (reverse (oref ctxt prefix))))
+ (tag (semantic-current-tag))
+ (start (current-time))
+ (Lcount 0))
+ (when (semantic-tag-p target)
+ (semantic-symref-hits-in-region
+ target (lambda (start end prefix) (setq Lcount (1+ Lcount)))
+ (semantic-tag-start tag)
+ (semantic-tag-end tag))
+ (when (interactive-p)
+ (message "Found %d occurrences of %s in %.2f seconds"
+ Lcount (semantic-tag-name target)
+ (semantic-elapsed-time start (current-time))))
+ Lcount)))
+
+;;; From bovine-gcc:
+
+(require 'semantic/bovine/gcc)
+
+;; Example output of "gcc -v"
+(defvar semantic-gcc-test-strings
+ '(;; My old box:
+ "Reading specs from /usr/lib/gcc-lib/i386-redhat-linux/3.2.2/specs
+Configured with: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --disable-checking --with-system-zlib --enable-__cxa_atexit --host=i386-redhat-linux
+Thread model: posix
+gcc version 3.2.2 20030222 (Red Hat Linux 3.2.2-5)"
+ ;; Alex Ott:
+ "Using built-in specs.
+Target: i486-linux-gnu
+Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.3.1-9ubuntu1' --with-bugurl=file:///usr/share/doc/gcc-4.3/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --enable-nls --with-gxx-include-dir=/usr/include/c++/4.3 --program-suffix=-4.3 --enable-clocale=gnu --enable-libstdcxx-debug --enable-objc-gc --enable-mpfr --enable-targets=all --enable-checking=release --build=i486-linux-gnu --host=i486-linux-gnu --target=i486-linux-gnu
+Thread model: posix
+gcc version 4.3.1 (Ubuntu 4.3.1-9ubuntu1)"
+ ;; My debian box:
+ "Using built-in specs.
+Target: x86_64-unknown-linux-gnu
+Configured with: ../../../sources/gcc/configure --prefix=/usr/local/glibc-2.3.6/x86_64/apps/gcc-4.2.3 --with-gmp=/usr/local/gcc/gmp --with-mpfr=/usr/local/gcc/mpfr --enable-languages=c,c++,fortran --with-as=/usr/local/glibc-2.3.6/x86_64/apps/gcc-4.2.3/bin/as --with-ld=/usr/local/glibc-2.3.6/x86_64/apps/gcc-4.2.3/bin/ld --disable-multilib
+Thread model: posix
+gcc version 4.2.3"
+ ;; My mac:
+ "Using built-in specs.
+Target: i686-apple-darwin8
+Configured with: /private/var/tmp/gcc/gcc-5341.obj~1/src/configure --disable-checking -enable-werror --prefix=/usr --mandir=/share/man --enable-languages=c,objc,c++,obj-c++ --program-transform-name=/^[cg][^.-]*$/s/$/-4.0/ --with-gxx-include-dir=/include/c++/4.0.0 --with-slibdir=/usr/lib --build=powerpc-apple-darwin8 --with-arch=pentium-m --with-tune=prescott --program-prefix= --host=i686-apple-darwin8 --target=i686-apple-darwin8
+Thread model: posix
+gcc version 4.0.1 (Apple Computer, Inc. build 5341)"
+ ;; Ubuntu Intrepid
+ "Using built-in specs.
+Target: x86_64-linux-gnu
+Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.3.2-1ubuntu12' --with-bugurl=file:///usr/share/doc/gcc-4.3/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --enable-nls --with-gxx-include-dir=/usr/include/c++/4.3 --program-suffix=-4.3 --enable-clocale=gnu --enable-libstdcxx-debug --enable-objc-gc --enable-mpfr --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu
+Thread model: posix
+gcc version 4.3.2 (Ubuntu 4.3.2-1ubuntu12)"
+ ;; Red Hat EL4
+ "Reading specs from /usr/lib/gcc/x86_64-redhat-linux/3.4.6/specs
+Configured with: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --disable-checking --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-java-awt=gtk --host=x86_64-redhat-linux
+Thread model: posix
+gcc version 3.4.6 20060404 (Red Hat 3.4.6-10)"
+ ;; Red Hat EL5
+ "Using built-in specs.
+Target: x86_64-redhat-linux
+Configured with: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --enable-checking=release --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-libgcj-multifile --enable-languages=c,c++,objc,obj-c++,java,fortran,ada --enable-java-awt=gtk --disable-dssi --enable-plugin --with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2.0/jre --with-cpu=generic --host=x86_64-redhat-linux
+Thread model: posix
+gcc version 4.1.2 20080704 (Red Hat 4.1.2-44)"
+ ;; David Engster's german gcc on ubuntu 4.3
+ "Es werden eingebaute Spezifikationen verwendet.
+Ziel: i486-linux-gnu
+Konfiguriert mit: ../src/configure -v --with-pkgversion='Ubuntu 4.3.2-1ubuntu12' --with-bugurl=file:///usr/share/doc/gcc-4.3/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --enable-nls --with-gxx-include-dir=/usr/include/c++/4.3 --program-suffix=-4.3 --enable-clocale=gnu --enable-libstdcxx-debug --enable-objc-gc --enable-mpfr --enable-targets=all --enable-checking=release --build=i486-linux-gnu --host=i486-linux-gnu --target=i486-linux-gnu
+Thread-Modell: posix
+gcc-Version 4.3.2 (Ubuntu 4.3.2-1ubuntu12)"
+ ;; Damien Deville bsd
+ "Using built-in specs.
+Target: i386-undermydesk-freebsd
+Configured with: FreeBSD/i386 system compiler
+Thread model: posix
+gcc version 4.2.1 20070719 [FreeBSD]"
+ )
+ "A bunch of sample gcc -v outputs from different machines.")
+
+(defvar semantic-gcc-test-strings-fail
+ '(;; A really old solaris box I found
+ "Reading specs from /usr/local/gcc-2.95.2/lib/gcc-lib/sparc-sun-solaris2.6/2.95.2/specs
+gcc version 2.95.2 19991024 (release)"
+ )
+ "A bunch of sample gcc -v outputs that fail to provide the info we want.")
+
+(defun semantic-gcc-test-output-parser ()
+ "Test the output parser against some collected strings."
+ (interactive)
+ (let ((fail nil))
+ (dolist (S semantic-gcc-test-strings)
+ (let* ((fields (semantic-gcc-fields S))
+ (v (cdr (assoc 'version fields)))
+ (h (or (cdr (assoc 'target fields))
+ (cdr (assoc '--target fields))
+ (cdr (assoc '--host fields))))
+ (p (cdr (assoc '--prefix fields)))
+ )
+ ;; No longer test for prefixes.
+ (when (not (and v h))
+ (let ((strs (split-string S "\n")))
+ (message "Test failed on %S\nV H P:\n%S %S %S" (car strs) v h p))
+ (setq fail t))
+ ))
+ (dolist (S semantic-gcc-test-strings-fail)
+ (let* ((fields (semantic-gcc-fields S))
+ (v (cdr (assoc 'version fields)))
+ (h (or (cdr (assoc '--host fields))
+ (cdr (assoc 'target fields))))
+ (p (cdr (assoc '--prefix fields)))
+ )
+ (when (and v h p)
+ (message "Negative test failed on %S" S)
+ (setq fail t))
+ ))
+ (if (not fail) (message "Tests passed."))
+ ))
+
+(defun semantic-gcc-test-output-parser-this-machine ()
+ "Test the output parser against the machine currently running Emacs."
+ (interactive)
+ (let ((semantic-gcc-test-strings (list (semantic-gcc-query "gcc" "-v"))))
+ (semantic-gcc-test-output-parser))
+ )
--- /dev/null
+;;; semantic-utest-c.el --- C based parsing tests.
+
+;; Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+;; Author: Eric M. Ludlam <eric@siege-engine.com>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Run some C based parsing tests.
+
+(require 'semantic)
+
+(defvar semantic-utest-c-comparisons
+ '( ("testsppreplace.c" . "testsppreplaced.c")
+ )
+ "List of files to parse and compare against each other.")
+
+;;; Code:
+;;;###autoload
+(defun semantic-utest-c ()
+ "Run parsing test for C from the test directory."
+ (interactive)
+ (dolist (fp semantic-utest-c-comparisons)
+ (let* ((sem (locate-library "semantic"))
+ (sdir (file-name-directory sem))
+ (semantic-lex-c-nested-namespace-ignore-second nil)
+ (tags-actual
+ (save-excursion
+ (set-buffer (find-file-noselect (expand-file-name (concat "tests/" (car fp)) sdir)))
+ (semantic-clear-toplevel-cache)
+ (semantic-fetch-tags)))
+ (tags-expected
+ (save-excursion
+ (set-buffer (find-file-noselect (expand-file-name (concat "tests/" (cdr fp)) sdir)))
+ (semantic-clear-toplevel-cache)
+ (semantic-fetch-tags))))
+ ;; Now that we have the tags, compare them for SPP accuracy.
+ (dolist (tag tags-actual)
+ (if (and (semantic-tag-of-class-p tag 'variable)
+ (semantic-tag-variable-constant-p tag))
+ nil ; skip the macros.
+ (if (semantic-tag-similar-with-subtags-p tag (car tags-expected))
+ (setq tags-expected (cdr tags-expected))
+ (with-mode-local c-mode
+ (error "Found: >> %s << Expected: >> %s <<"
+ (semantic-format-tag-prototype tag nil t)
+ (semantic-format-tag-prototype (car tags-expected) nil t)
+ )))
+ ))
+ ;; Passed?
+ (message "PASSED!")
+ )))
+
+
+(provide 'semantic-utest-c)
+
+;;; semantic-utest-c.el ends here
--- /dev/null
+;;; semantic-utest.el --- Tests for semantic's parsing system.
+
+;;; Copyright (C) 2003-2004, 2007-2013 Free Software Foundation, Inc.
+
+;; Author: Eric M. Ludlam <zappo@gnu.org>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Semantic's parsing and partial parsing system is pretty complex.
+;; These unit tests attempt to emulate semantic's partial reparsing
+;; and full reparsing system, and anything else I may feel the urge
+;; to write a test for.
+
+(require 'semantic)
+
+(load-file "cedet-utests.el")
+
+(defvar semantic-utest-temp-directory (if (fboundp 'temp-directory)
+ (temp-directory)
+ temporary-file-directory)
+ "Temporary directory to use when creating files.")
+
+(defun semantic-utest-fname (name)
+ "Create a filename for NAME in /tmp."
+ (expand-file-name name semantic-utest-temp-directory))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data for C tests
+
+(defvar semantic-utest-C-buffer-contents
+ "/* Test file for C language for Unit Tests */
+
+#include <stdio.h>
+#include \"sutest.h\"
+
+struct mystruct1 {
+ int slot11;
+ char slot12;
+ float slot13;
+};
+
+int var1;
+
+float funp1(char arg11, char arg12);
+
+char fun2(int arg_21, int arg_22) /*1*/
+{
+ struct mystruct1 *ms1 = malloc(sizeof(struct mystruct1));
+
+ char sv = calc_sv(var1);
+
+ if (var1 == 0) {
+ sv = 1;
+ } else if (arg_21 == 0) {
+ sv = 2;
+ } else if (arg_22 == 0) {
+ sv = 3;
+ } else {
+ sv = 4;
+ }
+
+ printf(\"SV = %d\\n\", sv);
+
+ /* Memory Leak */
+ ms1.slot1 = sv;
+
+ return 'A' + sv;
+}
+"
+ "Contents of a C buffer initialized by this unit test.
+Be sure to change `semantic-utest-C-name-contents' when you
+change this variable.")
+
+(defvar semantic-utest-C-h-buffer-contents
+ "/* Test file for C language header file for Unit Tests */
+
+int calc_sv(int);
+
+"
+ "Contents of a C header file buffer initialized by this unit test.")
+
+(defvar semantic-utest-C-filename (semantic-utest-fname "sutest.c")
+ "File to open and erase during this test for C.")
+
+(defvar semantic-utest-C-filename-h
+ (concat (file-name-sans-extension semantic-utest-C-filename)
+ ".h")
+ "Header file filename for C")
+
+
+(defvar semantic-utest-C-name-contents
+ '(("stdio.h" include
+ (:system-flag t)
+ nil (overlay 48 66 "sutest.c"))
+ ("sutest.h" include nil nil (overlay 67 86 "sutest.c"))
+ ("mystruct1" type
+ (:members
+ (("slot11" variable
+ (:type "int")
+ (reparse-symbol classsubparts)
+ (overlay 109 120 "sutest.c"))
+ ("slot12" variable
+ (:type "char")
+ (reparse-symbol classsubparts)
+ (overlay 123 135 "sutest.c"))
+ ("slot13" variable
+ (:type "float")
+ (reparse-symbol classsubparts)
+ (overlay 138 151 "sutest.c")))
+ :type "struct")
+ nil (overlay 88 154 "sutest.c"))
+ ("var1" variable
+ (:type "int")
+ nil (overlay 156 165 "sutest.c"))
+ ("funp1" function
+ (:prototype-flag t :arguments
+ (("arg11" variable
+ (:type "char")
+ (reparse-symbol arg-sub-list)
+ (overlay 179 190 "sutest.c"))
+ ("arg12" variable
+ (:type "char")
+ (reparse-symbol arg-sub-list)
+ (overlay 191 202 "sutest.c")))
+ :type "float")
+ nil (overlay 167 203 "sutest.c"))
+ ("fun2" function
+ (:arguments
+ (("arg_21" variable
+ (:type "int")
+ (reparse-symbol arg-sub-list)
+ (overlay 215 226 "sutest.c"))
+ ("arg_22" variable
+ (:type "int")
+ (reparse-symbol arg-sub-list)
+ (overlay 227 238 "sutest.c")))
+ :type "char")
+ nil (overlay 205 566 "sutest.c")))
+ "List of expected tag names for C.")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data for Python tests
+
+(defvar semantic-utest-Python-buffer-contents
+"
+def fun1(a,b,c):
+ return a
+
+def fun2(a,b,c): #1
+ return b
+
+"
+
+
+)
+; "python test case. notice that python is indentation sensitive
+
+
+(defvar semantic-utest-Python-name-contents
+ '(("fun1" function
+ (:arguments
+ (("a" variable nil
+ (reparse-symbol function_parameters)
+ (overlay 10 11 "tst.py"))
+ ("b" variable nil
+ (reparse-symbol function_parameters)
+ (overlay 12 13 "tst.py"))
+ ("c" variable nil
+ (reparse-symbol function_parameters)
+ (overlay 14 15 "tst.py"))))
+ nil (overlay 1 31 "tst.py"))
+ ("fun2" function
+ (:arguments
+ (("a" variable nil
+ (reparse-symbol function_parameters)
+ (overlay 41 42 "tst.py"))
+ ("b" variable nil
+ (reparse-symbol function_parameters)
+ (overlay 43 44 "tst.py"))
+ ("c" variable nil
+ (reparse-symbol function_parameters)
+ (overlay 45 46 "tst.py"))))
+ nil (overlay 32 65 "tst.py")))
+
+ "List of expected tag names for Python.")
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data for Java tests
+
+(defvar semantic-utest-Java-buffer-contents
+"
+class JavaTest{
+ void fun1(int a,int b){
+ return a;
+ }
+
+ void fun2(int a,int b){ //1
+ return b;
+ }
+
+}
+"
+)
+
+(defvar semantic-utest-Java-name-contents
+ '(("JavaTest" type
+ (:members
+ (("fun1" function
+ (:arguments
+ (("a" variable
+ (:type "int")
+ (reparse-symbol formal_parameters)
+ (overlay 30 35 "JavaTest.java"))
+ ("b" variable
+ (:type "int")
+ (reparse-symbol formal_parameters)
+ (overlay 36 41 "JavaTest.java")))
+ :type "void")
+ (reparse-symbol class_member_declaration)
+ (overlay 20 61 "JavaTest.java"))
+ ("fun2" function
+ (:arguments
+ (("a" variable
+ (:type "int")
+ (reparse-symbol formal_parameters)
+ (overlay 75 80 "JavaTest.java"))
+ ("b" variable
+ (:type "int")
+ (reparse-symbol formal_parameters)
+ (overlay 81 86 "JavaTest.java")))
+ :type "void")
+ (reparse-symbol class_member_declaration)
+ (overlay 65 110 "JavaTest.java")))
+ :type "class")
+ nil (overlay 2 113 "JavaTest.java")))
+ "List of expected tag names for Java."
+ )
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data for Javascript tests
+
+(defvar semantic-utest-Javascript-buffer-contents
+"
+function fun1(a, b){
+ return a;
+ }
+
+function fun2(a,b){ //1
+ return b;
+ }
+"
+)
+
+
+(defvar semantic-utest-Javascript-name-contents
+ '(("fun1" function
+ (:arguments
+ (("a" variable nil
+ (reparse-symbol FormalParameterList)
+ (overlay 15 16 "tst.js"))
+ ("b" variable nil
+ (reparse-symbol FormalParameterList)
+ (overlay 18 19 "tst.js"))))
+ nil (overlay 1 39 "tst.js"))
+ ("fun2" function
+ (:arguments
+ (("a" variable nil
+ (reparse-symbol FormalParameterList)
+ (overlay 55 56 "tst.js"))
+ ("b" variable nil
+ (reparse-symbol FormalParameterList)
+ (overlay 57 58 "tst.js"))))
+ nil (overlay 41 82 "tst.js")))
+
+ "List of expected tag names for Javascript.")
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data for Makefile tests
+
+(defvar semantic-utest-Makefile-buffer-contents
+"
+t1:
+\techo t1
+
+t2:t1 #1
+\techo t2
+
+
+"
+)
+
+
+(defvar semantic-utest-Makefile-name-contents
+ '(("t1" function nil nil (overlay 1 9 "Makefile"))
+ ("t2" function
+ (:arguments
+ ("t1"))
+ nil (overlay 18 28 "Makefile")))
+ "List of expected tag names for Makefile.")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data for Scheme tests
+
+(defvar semantic-utest-Scheme-buffer-contents
+ "
+ (define fun1 2)
+
+ (define fun2 3 ;1
+ )
+")
+
+(defvar semantic-utest-Scheme-name-contents
+ '(("fun1" variable
+ (:default-value ("2"))
+ nil (overlay 3 18 "tst.scm"))
+ ("fun2" variable
+ (:default-value ("3"))
+ nil (overlay 21 55 "tst.scm")))
+ )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data for Html tests
+
+(defvar semantic-utest-Html-buffer-contents
+ "
+<html>
+ <body>
+ <h1>hello</h1>
+ </body><!--1-->
+</html>
+"
+ )
+
+(defvar semantic-utest-Html-name-contents
+ '(("hello" section
+ (:members
+ (("hello" section nil nil (overlay 21 24 "tst.html"))))
+ nil (overlay 10 15 "tst.html")))
+ )
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data for PHP tests
+
+(defvar semantic-utest-PHP-buffer-contents
+ "<?php
+
+function fun1(){
+ return \"fun1\";
+}
+
+function fun2($arg1){
+ $output = \"argument to fun2: \" . $arg1;
+ return $output;
+}
+
+class aClass {
+ public function fun1($a, $b){
+ return $a;
+ }
+
+ public function fun2($a, $b){
+ return $b;
+ }
+}
+?> "
+ )
+
+(defvar semantic-utest-PHP-name-contents
+ '(("fun1" function nil
+ nil (overlay 9 45 "phptest.php"))
+ ("fun2" function
+ (:arguments (("$arg1" variable nil (reparse-symbol formal_parameters) (overlay 61 66 "phptest.php"))))
+ nil
+ (overlay 47 132 "phptest.php"))
+ ("aClass" type
+ (:members (("fun1" function
+ (:typemodifiers ("public") :arguments
+ (("$a" variable nil (reparse-symbol formal_parameters) (overlay 174 176 "phptest.php"))
+ ("$b" variable nil (reparse-symbol formal_parameters) (overlay 178 180 "phptest.php"))))
+
+ nil
+ (overlay 153 204 "phptest.php"))
+
+ ("fun2" function
+ (:typemodifiers ("public") :arguments
+ (("$a" variable nil (reparse-symbol formal_parameters) (overlay 230 232 "phptest.php"))
+ ("$b" variable nil (reparse-symbol formal_parameters) (overlay 234 236 "phptest.php"))
+ ))
+ nil
+ (overlay 209 260 "phptest.php"))) :type "class")
+ nil
+ (overlay 135 262 "phptest.php"))
+ )
+ "Expected results from the PHP Unit test"
+ )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Data for Csharp C# tests
+
+(defvar semantic-utest-Csharp-buffer-contents
+"
+class someClass {
+ int fun1(int a, int b) {
+ return a; }
+ int fun2(int a, int b) {
+ return b; }
+}
+")
+
+(defvar semantic-utest-Csharp-name-contents
+ '(("someClass" type
+ (:members
+ (("fun1" function
+ (:arguments
+ (("a" variable
+ (:type "int")
+ (reparse-symbol formal_parameters)
+ (overlay 30 35 "tst.cs"))
+ ("b" variable
+ (:type "int")
+ (reparse-symbol formal_parameters)
+ (overlay 37 42 "tst.cs")))
+ :type "int")
+ (reparse-symbol class_member_declaration)
+ (overlay 21 61 "tst.cs"))
+ ("fun2" function
+ (:arguments
+ (("a" variable
+ (:type "int")
+ (reparse-symbol formal_parameters)
+ (overlay 73 78 "tst.cs"))
+ ("b" variable
+ (:type "int")
+ (reparse-symbol formal_parameters)
+ (overlay 80 85 "tst.cs")))
+ :type "int")
+ (reparse-symbol class_member_declaration)
+ (overlay 64 104 "tst.cs")))
+ :type "class")
+ nil (overlay 1 106 "tst.cs")))
+ )
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+
+(defun semantic-utest-makebuffer (filename contents)
+ "Create a buffer for FILENAME for use in a unit test.
+Pre-fill the buffer with CONTENTS."
+ (let ((buff (semantic-find-file-noselect filename)))
+ (set-buffer buff)
+ (setq buffer-offer-save nil)
+ (font-lock-mode -1) ;; Font lock has issues in Emacs 23
+ (toggle-read-only -1) ;; In case /tmp doesn't exist.
+ (erase-buffer)
+ (insert contents)
+ ;(semantic-fetch-tags) ;JAVE could this go here?
+ (set-buffer-modified-p nil)
+ buff
+ )
+ )
+
+(defun semantic-utest-C ()
+ "Run semantic's C unit test."
+ (interactive)
+ (save-excursion
+ (let ((buff (semantic-utest-makebuffer semantic-utest-C-filename semantic-utest-C-buffer-contents))
+ (buff2 (semantic-utest-makebuffer semantic-utest-C-filename-h semantic-utest-C-h-buffer-contents))
+ )
+ (semantic-fetch-tags)
+ (set-buffer buff)
+
+ ;; Turn off a range of modes
+ (semantic-idle-scheduler-mode -1)
+
+ ;; Turn on some modes
+ (semantic-highlight-edits-mode 1)
+
+ ;; Update tags, and show it.
+ (semantic-fetch-tags)
+
+ (switch-to-buffer buff)
+ (sit-for 0)
+
+ ;; Run the tests.
+ ;;(message "First parsing test.")
+ (semantic-utest-verify-names semantic-utest-C-name-contents)
+
+ ;;(message "Invalid tag test.")
+ (semantic-utest-last-invalid semantic-utest-C-name-contents '("fun2") "/\\*1\\*/" "/* Deleted this line */")
+ (semantic-utest-verify-names semantic-utest-C-name-contents)
+
+ (set-buffer-modified-p nil)
+ ;; Clean up
+ ;; (kill-buffer buff)
+ ;; (kill-buffer buff2)
+ ))
+ (message "All C tests passed.")
+ )
+
+
+
+
+(defun semantic-utest-generic (testname filename contents name-contents names-removed killme insertme)
+ "Generic unit test according to template.
+Should work for languages without .h files, python javascript java.
+TESTNAME is the name of the test.
+FILENAME is the name of the file to create.
+CONTENTS is the contents of the file to test.
+NAME-CONTENTS is the list of names that should be in the contents.
+NAMES-REMOVED is the list of names that gets removed in the removal step.
+KILLME is the name of items to be killed.
+INSERTME is the text to be inserted after the deletion."
+ (save-excursion
+ (let ((buff (semantic-utest-makebuffer filename contents))
+ )
+ ;; Turn off a range of modes
+ (semantic-idle-scheduler-mode -1)
+
+ ;; Turn on some modes
+ (semantic-highlight-edits-mode 1)
+
+ ;; Update tags, and show it.
+ (semantic-fetch-tags)
+ (switch-to-buffer buff)
+ (sit-for 0)
+
+ ;; Run the tests.
+ ;;(message "First parsing test %s." testname)
+ (semantic-utest-verify-names name-contents)
+
+ ;;(message "Invalid tag test %s." testname)
+ (semantic-utest-last-invalid name-contents names-removed killme insertme)
+ (semantic-utest-verify-names name-contents)
+
+ (set-buffer-modified-p nil)
+ ;; Clean up
+ ;; (kill-buffer buff)
+ ))
+ (message "All %s tests passed." testname)
+ )
+
+(defun semantic-utest-Python()
+ (interactive)
+ (if (fboundp 'python-mode)
+ (semantic-utest-generic "Python" (semantic-utest-fname "pytest.py") semantic-utest-Python-buffer-contents semantic-utest-Python-name-contents '("fun2") "#1" "#deleted line")
+ (message "Skilling Python test: NO major mode."))
+ )
+
+
+(defun semantic-utest-Javascript()
+ (interactive)
+ (if (fboundp 'javascript-mode)
+ (semantic-utest-generic "Javascript" (semantic-utest-fname "javascripttest.js") semantic-utest-Javascript-buffer-contents semantic-utest-Javascript-name-contents '("fun2") "//1" "//deleted line")
+ (message "Skipping JavaScript test: NO major mode."))
+ )
+
+(defun semantic-utest-Java()
+ (interactive)
+ ;; If JDE is installed, it might mess things up depending on the version
+ ;; that was installed.
+ (let ((auto-mode-alist '(("\\.java\\'" . java-mode))))
+ (semantic-utest-generic "Java" (semantic-utest-fname "JavaTest.java") semantic-utest-Java-buffer-contents semantic-utest-Java-name-contents '("fun2") "//1" "//deleted line")
+ ))
+
+(defun semantic-utest-Makefile()
+ (interactive)
+ (semantic-utest-generic "Makefile" (semantic-utest-fname "Makefile") semantic-utest-Makefile-buffer-contents semantic-utest-Makefile-name-contents '("fun2") "#1" "#deleted line")
+ )
+
+(defun semantic-utest-Scheme()
+ (interactive)
+ (semantic-utest-generic "Scheme" (semantic-utest-fname "tst.scm") semantic-utest-Scheme-buffer-contents semantic-utest-Scheme-name-contents '("fun2") ";1" ";deleted line")
+ )
+
+
+(defun semantic-utest-Html()
+ (interactive)
+ ;; Disable html-helper auto-fill-in mode.
+ (let ((html-helper-build-new-buffer nil))
+ (semantic-utest-generic "HTML" (semantic-utest-fname "tst.html") semantic-utest-Html-buffer-contents semantic-utest-Html-name-contents '("fun2") "<!--1-->" "<!--deleted line-->")
+ ))
+
+(defun semantic-utest-PHP()
+ (interactive)
+ (if (fboundp 'php-mode)
+ (semantic-utest-generic "PHP" (semantic-utest-fname "phptest.php") semantic-utest-PHP-buffer-contents semantic-utest-PHP-name-contents '("fun1") "fun2" "%^@")
+ (message "Skipping PHP Test. No php-mode loaded."))
+ )
+
+;look at http://mfgames.com/linux/csharp-mode
+(defun semantic-utest-Csharp() ;; hmm i don't even know how to edit a scharp file. need a csharp mode implementation i suppose
+ (interactive)
+ (if (fboundp 'csharp-mode)
+ (semantic-utest-generic "C#" (semantic-utest-fname "csharptest.cs") semantic-utest-Csharp-buffer-contents semantic-utest-Csharp-name-contents '("fun2") "//1" "//deleted line")
+ (message "Skipping C# test. No csharp-mode loaded."))
+ )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; stubs
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; stuff for Erlang
+;;-module(hello).
+;-export([hello_world/0]).
+;
+;hello_world()->
+; io:format("Hello World ~n").
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;(defun semantic-utest-Erlang()
+; (interactive)
+; (semantic-utest-generic "Erlang" (semantic-utest-fname "tst.erl") semantic-utest-Erlang-buffer-contents semantic-utest-Erlang-name-contents '("fun2") "//1" "//deleted line")
+; )
+;
+;;texi is also supported
+;(defun semantic-utest-Texi()
+; (interactive)
+; (semantic-utest-generic "texi" (semantic-utest-fname "tst.texi") semantic-utest-Texi-buffer-contents semantic-utest-Texi-name-contents '("fun2") "//1" "//deleted line")
+; )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;###autoload
+(defun semantic-utest-main()
+ (interactive)
+ "call all utests"
+ (cedet-utest-log-start "multi-lang parsing")
+ (cedet-utest-log " * C tests...")
+ (semantic-utest-C)
+ (cedet-utest-log " * Python tests...")
+ (semantic-utest-Python)
+ (cedet-utest-log " * Java tests...")
+ (semantic-utest-Java)
+ (cedet-utest-log " * Javascript tests...")
+ (semantic-utest-Javascript)
+ (cedet-utest-log " * Makefile tests...")
+ (semantic-utest-Makefile)
+ (cedet-utest-log " * Scheme tests...")
+ (semantic-utest-Scheme)
+ (cedet-utest-log " * Html tests...")
+ (semantic-utest-Html)
+ (cedet-utest-log " * PHP tests...")
+ (semantic-utest-PHP)
+ (cedet-utest-log " * Csharp tests...")
+ (semantic-utest-Csharp)
+
+ (cedet-utest-log-shutdown "multi-lang parsing")
+ )
+
+;;; Buffer contents validation
+;;
+(defun semantic-utest-match-attributes (attr1 attr2 skipnames)
+ "Compare attribute lists ATTR1 and ATTR2.
+Argument SKIPNAMES is a list of names that may be child nodes to skip."
+ (let ((res t))
+ (while (and res attr1 attr2)
+
+ ;; Compare
+ (setq res
+ (cond ((and (listp (car attr1))
+ (semantic-tag-p (car (car attr1))))
+ ;; Compare the list of tags...
+ (semantic-utest-taglists-equivalent-p
+ (car attr2) (car attr1) skipnames)
+ )
+ (t
+ (equal (car attr1) (car attr2)))))
+
+ (if (not res)
+ (error "TAG INTERNAL DIFF: %S %S"
+ (car attr1) (car attr2)))
+
+ (setq attr1 (cdr attr1)
+ attr2 (cdr attr2)))
+ res))
+
+(defun semantic-utest-equivalent-tag-p (tag1 tag2 skipnames)
+ "Determine if TAG1 and TAG2 are the same.
+SKIPNAMES includes lists of possible child nodes that should be missing."
+ (and (equal (semantic-tag-name tag1) (semantic-tag-name tag2))
+ (semantic-tag-of-class-p tag1 (semantic-tag-class tag2))
+ (semantic-utest-match-attributes
+ (semantic-tag-attributes tag1) (semantic-tag-attributes tag2)
+ skipnames)
+ ))
+
+(defun semantic-utest-taglists-equivalent-p (table names skipnames)
+ "Compare TABLE and NAMES, where skipnames allow list1 to be different.
+SKIPNAMES is a list of names that should be skipped in the NAMES list."
+ (let ((SN skipnames))
+ (while SN
+ (setq names (remove (car SN) names))
+ (setq SN (cdr SN))))
+ (while (and names table)
+ (if (not (semantic-utest-equivalent-tag-p (car names)
+ (car table)
+ skipnames))
+ (error "Expected %s, found %s"
+ (semantic-format-tag-prototype (car names))
+ (semantic-format-tag-prototype (car table))))
+ (setq names (cdr names)
+ table (cdr table)))
+ (when names (error "Items forgotten: %S"
+ (mapcar 'semantic-tag-name names)
+ ))
+ (when table (error "Items extra: %S"
+ (mapcar 'semantic-tag-name table)))
+ t)
+
+(defun semantic-utest-verify-names (name-contents &optional skipnames)
+ "Verify the names of the test buffer from NAME-CONTENTS.
+Argument SKIPNAMES is a list of names that should be skipped
+when analyzing the file.
+
+JAVE this thing would need to be recursive to handle java and csharp"
+ (let ((names name-contents)
+ (table (semantic-fetch-tags))
+ )
+ (semantic-utest-taglists-equivalent-p table names skipnames)
+ ))
+
+;;;;;;;;;;;;;;;;;;;;;;;;
+; JAVE redefine a new validation function
+; is not quite as good as the old one yet
+(defun semantic-utest-verify-names-jave (name-contents &optional skipnames)
+ "JAVE version of `semantic-utest-verify-names'.
+NAME-CONTENTS is a sample of the tags buffer to test against.
+SKIPNAMES is a list of names to remove from NAME-CONTENTS"
+ (assert (semantic-utest-verify-names-2 name-contents (semantic-fetch-tags))
+ nil "failed test")
+)
+
+(defun semantic-utest-verify-names-2 (l1 l2)
+ (cond ( (and (consp l1) (equal (car l1) 'overlay))
+ (overlayp l2))
+ ((not (consp l1))
+ (equal l1 l2))
+ ((consp l1)
+ (and (semantic-utest-verify-names-2 (car l1) (car l2)) (semantic-utest-verify-names-2 (cdr l1) (cdr l2))))
+ (t (error "internal error"))))
+
+
+
+
+
+;;; Kill indicator line
+;;
+(defvar semantic-utest-last-kill-text nil
+ "The text from the last kill.")
+
+(defvar semantic-utest-last-kill-pos nil
+ "The position of the last kill.")
+
+(defun semantic-utest-kill-indicator ( killme insertme)
+ "Kill the line with KILLME on it and insert INSERTME in its place."
+ (goto-char (point-min))
+; (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isn't generic enough for different languages
+ (re-search-forward killme)
+ (beginning-of-line)
+ (setq semantic-utest-last-kill-pos (point))
+ (setq semantic-utest-last-kill-text
+ (buffer-substring (point) (point-at-eol)))
+ (delete-region (point) (point-at-eol))
+ (insert insertme)
+ (sit-for 0)
+)
+
+(defun semantic-utest-unkill-indicator ()
+ "Unkill the last indicator."
+ (goto-char semantic-utest-last-kill-pos)
+ (delete-region (point) (point-at-eol))
+ (insert semantic-utest-last-kill-text)
+ (sit-for 0)
+ )
+
+;;; EDITING TESTS
+;;
+
+(defun semantic-utest-last-invalid (name-contents names-removed killme insertme)
+ "Make the last fcn invalid."
+ (semantic-utest-kill-indicator killme insertme)
+; (semantic-utest-verify-names name-contents names-removed); verify its gone ;new validator doesn't handle skipnames yet
+ (semantic-utest-unkill-indicator);put back killed stuff
+ )
+
+
+
+
+;"#<overlay from \\([0-9]+\\) to \\([0-9]+\\) in \\([^>]*\\)>"
+;#<overlay from \([0-9]+\) to \([0-9]+\) in \([^>]*\)>
+;(overlay \1 \2 "\3")
+
+
+;; JAVE
+;; these are some unit tests for cedet that I got from Eric and modified a bit for:
+;; python
+;; javascript
+;; java
+;; I tried to generalize the structure of the tests a bit to make it easier to add languages
+
+;; Mail from Eric:
+;; Many items in the checklist look like:
+
+;; M-x global-semantic-highlight-edits-mode RET
+;; - Edit a file. See the highlight of newly inserted text.
+;; - Customize `semantic-edits-verbose-flag' to be non-nil.
+;; - Wait for the idle scheduler, it should clean up the edits.
+;; - observe messages from incremental parser. Do they relate
+;; to the edits?
+;; - M-x bovinate RET - verify your changes are reflected.
+
+;; It's all about watching the behavior. Timers go off, things get
+;; cleaned up, you type in new changes, etc. An example I tried to
+;; do is below, but covers only 1 language, and not very well at that.
+;; I seem to remember seeing a unit test framework going by one of the
+;; lists. I'm not sure if that would help.
+
+;; Another that might be automatable:
+
+;; M-x semantic-analyze-current-context RET
+;; - Do this in different contexts in your language
+;; files. Verify that reasonable results are returned
+;; such as identification of assignments, function arguments, etc.
+
+;; Anyway, those are some ideas. Any effort you put it will be helpful!
+
+;; Thanks
+;; Eric
+
+;; -----------
+
+
+
+;;; semantic-utest.el ends here
--- /dev/null
+;;; srecode-tests.el --- Some tests for CEDET's srecode
+
+;; Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+;; Author: Eric M. Ludlam <eric@siege-engine.com>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Extracted from srecode-fields.el and srecode-document.el in the
+;; CEDET distribution.
+
+;;; Code:
+
+;;; From srecode-fields:
+
+(require 'srecode/fields)
+
+(defvar srecode-field-utest-text
+ "This is a test buffer.
+
+It is filled with some text."
+ "Text for tests.")
+
+(defun srecode-field-utest ()
+ "Test the srecode field manager."
+ (interactive)
+ (if (featurep 'xemacs)
+ (message "There is no XEmacs support for SRecode Fields.")
+ (srecode-field-utest-impl)))
+
+(defun srecode-field-utest-impl ()
+ "Implementation of the SRecode field utest."
+ (save-excursion
+ (find-file "/tmp/srecode-field-test.txt")
+
+ (erase-buffer)
+ (goto-char (point-min))
+ (insert srecode-field-utest-text)
+ (set-buffer-modified-p nil)
+
+ ;; Test basic field generation.
+ (let ((srecode-field-archive nil)
+ (f nil))
+
+ (end-of-line)
+ (forward-word -1)
+
+ (setq f (srecode-field "Test"
+ :name "TEST"
+ :start 6
+ :end 8))
+
+ (when (or (not (slot-boundp f 'overlay)) (not (oref f overlay)))
+ (error "Field test: Overlay info not created for field"))
+
+ (when (and (overlay-p (oref f overlay))
+ (not (overlay-get (oref f overlay) 'srecode-init-only)))
+ (error "Field creation overlay is not tagged w/ init flag"))
+
+ (srecode-overlaid-activate f)
+
+ (when (or (not (overlay-p (oref f overlay)))
+ (overlay-get (oref f overlay) 'srecode-init-only))
+ (error "New field overlay not created during activation"))
+
+ (when (not (= (length srecode-field-archive) 1))
+ (error "Field test: Incorrect number of elements in the field archive"))
+ (when (not (eq f (car srecode-field-archive)))
+ (error "Field test: Field did not auto-add itself to the field archive"))
+
+ (when (not (overlay-get (oref f overlay) 'keymap))
+ (error "Field test: Overlay keymap not set"))
+
+ (when (not (string= "is" (srecode-overlaid-text f)))
+ (error "Field test: Expected field text 'is', not %s"
+ (srecode-overlaid-text f)))
+
+ ;; Test deletion.
+ (srecode-delete f)
+
+ (when (slot-boundp f 'overlay)
+ (error "Field test: Overlay not deleted after object delete"))
+ )
+
+ ;; Test basic region construction.
+ (let* ((srecode-field-archive nil)
+ (reg nil)
+ (fields
+ (list
+ (srecode-field "Test1" :name "TEST-1" :start 5 :end 10)
+ (srecode-field "Test2" :name "TEST-2" :start 15 :end 20)
+ (srecode-field "Test3" :name "TEST-3" :start 25 :end 30)
+
+ (srecode-field "Test4" :name "TEST-4" :start 35 :end 35))
+ ))
+
+ (when (not (= (length srecode-field-archive) 4))
+ (error "Region Test: Found %d fields. Expected 4"
+ (length srecode-field-archive)))
+
+ (setq reg (srecode-template-inserted-region "REG"
+ :start 4
+ :end 40))
+
+ (srecode-overlaid-activate reg)
+
+ ;; Make sure it was cleared.
+ (when srecode-field-archive
+ (error "Region Test: Did not clear field archive"))
+
+ ;; Auto-positioning.
+ (when (not (eq (point) 5))
+ (error "Region Test: Did not reposition on first field"))
+
+ ;; Active region
+ (when (not (eq (srecode-active-template-region) reg))
+ (error "Region Test: Active region not set"))
+
+ ;; Various sizes
+ (mapc (lambda (T)
+ (if (string= (object-name-string T) "Test4")
+ (progn
+ (when (not (srecode-empty-region-p T))
+ (error "Field %s is not empty"
+ (object-name T)))
+ )
+ (when (not (= (srecode-region-size T) 5))
+ (error "Calculated size of %s was not 5"
+ (object-name T)))))
+ fields)
+
+ ;; Make sure things stay up after a 'command'.
+ (srecode-field-post-command)
+ (when (not (eq (srecode-active-template-region) reg))
+ (error "Region Test: Active region did not stay up"))
+
+ ;; Test field movement.
+ (when (not (eq (srecode-overlaid-at-point 'srecode-field)
+ (nth 0 fields)))
+ (error "Region Test: Field %s not under point"
+ (object-name (nth 0 fields))))
+
+ (srecode-field-next)
+
+ (when (not (eq (srecode-overlaid-at-point 'srecode-field)
+ (nth 1 fields)))
+ (error "Region Test: Field %s not under point"
+ (object-name (nth 1 fields))))
+
+ (srecode-field-prev)
+
+ (when (not (eq (srecode-overlaid-at-point 'srecode-field)
+ (nth 0 fields)))
+ (error "Region Test: Field %s not under point"
+ (object-name (nth 0 fields))))
+
+ ;; Move cursor out of the region and have everything cleaned up.
+ (goto-char 42)
+ (srecode-field-post-command)
+ (when (srecode-active-template-region)
+ (error "Region Test: Active region did not clear on move out"))
+
+ (mapc (lambda (T)
+ (when (slot-boundp T 'overlay)
+ (error "Overlay did not clear off of field %s"
+ (object-name T))))
+ fields)
+
+ ;; End of LET
+ )
+
+ ;; Test variable linkage.
+ (let* ((srecode-field-archive nil)
+ (f1 (srecode-field "Test1" :name "TEST" :start 6 :end 8))
+ (f2 (srecode-field "Test2" :name "TEST" :start 28 :end 30))
+ (f3 (srecode-field "Test3" :name "NOTTEST" :start 35 :end 40))
+ (reg (srecode-template-inserted-region "REG" :start 4 :end 40))
+ )
+ (srecode-overlaid-activate reg)
+
+ (when (not (string= (srecode-overlaid-text f1)
+ (srecode-overlaid-text f2)))
+ (error "Linkage Test: Init strings are not ="))
+ (when (string= (srecode-overlaid-text f1)
+ (srecode-overlaid-text f3))
+ (error "Linkage Test: Init string on dissimilar fields is now the same"))
+
+ (goto-char 7)
+ (insert "a")
+
+ (when (not (string= (srecode-overlaid-text f1)
+ (srecode-overlaid-text f2)))
+ (error "Linkage Test: mid-insert strings are not ="))
+ (when (string= (srecode-overlaid-text f1)
+ (srecode-overlaid-text f3))
+ (error "Linkage Test: mid-insert string on dissimilar fields is now the same"))
+
+ (goto-char 9)
+ (insert "t")
+
+ (when (not (string= (srecode-overlaid-text f1) "iast"))
+ (error "Linkage Test: tail-insert failed to captured added char"))
+ (when (not (string= (srecode-overlaid-text f1)
+ (srecode-overlaid-text f2)))
+ (error "Linkage Test: tail-insert strings are not ="))
+ (when (string= (srecode-overlaid-text f1)
+ (srecode-overlaid-text f3))
+ (error "Linkage Test: tail-insert string on dissimilar fields is now the same"))
+
+ (goto-char 6)
+ (insert "b")
+
+ (when (not (string= (srecode-overlaid-text f1) "biast"))
+ (error "Linkage Test: tail-insert failed to captured added char"))
+ (when (not (string= (srecode-overlaid-text f1)
+ (srecode-overlaid-text f2)))
+ (error "Linkage Test: tail-insert strings are not ="))
+ (when (string= (srecode-overlaid-text f1)
+ (srecode-overlaid-text f3))
+ (error "Linkage Test: tail-insert string on dissimilar fields is now the same"))
+
+ ;; Cleanup
+ (srecode-delete reg)
+ )
+
+ (set-buffer-modified-p nil)
+
+ (message " All field tests passed.")
+ ))
+
+;;; From srecode-document:
+
+(require 'srecode/doc)
+
+(defun srecode-document-function-comment-extract-test ()
+ "Test old comment extraction.
+Dump out the extracted dictionary."
+ (interactive)
+
+ (srecode-load-tables-for-mode major-mode)
+ (srecode-load-tables-for-mode major-mode 'document)
+
+ (if (not (srecode-table))
+ (error "No template table found for mode %s" major-mode))
+
+ (let* ((temp (srecode-template-get-table (srecode-table)
+ "function-comment"
+ "declaration"
+ 'document))
+ (fcn-in (semantic-current-tag)))
+
+ (if (not temp)
+ (error "No templates for function comments"))
+
+ ;; Try to figure out the tag we want to use.
+ (when (or (not fcn-in)
+ (not (semantic-tag-of-class-p fcn-in 'function)))
+ (error "No tag of class 'function to insert comment for"))
+
+ (let ((lextok (semantic-documentation-comment-preceeding-tag fcn-in 'lex))
+ )
+
+ (when (not lextok)
+ (error "No comment to attempt an extraction"))
+
+ (let ((s (semantic-lex-token-start lextok))
+ (e (semantic-lex-token-end lextok))
+ (extract nil))
+
+ (pulse-momentary-highlight-region s e)
+
+ ;; Extract text from the existing comment.
+ (setq extract (srecode-extract temp s e))
+
+ (with-output-to-temp-buffer "*SRECODE DUMP*"
+ (princ "EXTRACTED DICTIONARY FOR ")
+ (princ (semantic-tag-name fcn-in))
+ (princ "\n--------------------------------------------\n")
+ (srecode-dump extract))))))
+
+;;; srecode-tests.el ends here
--- /dev/null
+/* test.c --- Semantic unit test for C.
+
+ Copyright (C) 2001-2013 Free Software Foundation, Inc.
+
+ Author: Eric M. Ludlam <eric@siege-engine.com>
+
+ This file is part of GNU Emacs.
+
+ GNU Emacs is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ GNU Emacs is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+*/
+
+/* Attempt to include as many aspects of the C language as possible.
+ */
+
+/* types of include files */
+#include "includeme1.h"
+#include <includeme2.h>
+#include <subdir/includeme3.h>
+#include <includeme.notanhfile>
+#include <stdlib.h>
+#include <cmath>
+
+#if 0
+int dont_show_function()
+{
+}
+#endif
+
+/* Global types */
+struct mystruct1 {
+ int slot11;
+ char slot12;
+ float slot13;
+};
+
+struct mystruct2 {
+ int slot21;
+ char slot22;
+ float slot23;
+} var_of_type_mystruct2;
+
+struct {
+ int slot31;
+ char slot32;
+ float slot33;
+} var_of_anonymous_struct;
+
+typedef struct mystruct1 typedef_of_mystruct1;
+typedef struct mystruct1 *typedef_of_pointer_mystruct1;
+typedef struct { int slot_a; } typedef_of_anonymous_struct;
+typedef struct A {
+} B;
+
+typedef struct mystruct1 td1, td2;
+
+union myunion1 {
+ int slot41;
+ char slot42;
+ float slot43;
+};
+
+union myunion2 {
+ int slot51;
+ char slot52;
+ float slot53;
+} var_of_type_myunion2;
+
+struct {
+ int slot61;
+ char slot72;
+ float slot83;
+} var_of_anonymous_union;
+
+typedef union myunion1 typedef_of_myunion1;
+typedef union myunion1 *typedef_of_pointer_myunion1;
+typedef union { int slot_a; } typedef_of_anonymous_union;
+
+enum myenum1 { enum11 = 1, enum12 };
+enum myenum2 { enum21, enum22 = 2 } var_of_type_myenum2;
+enum { enum31, enum32 } var_of_anonymous_enum;
+
+typedef enum myenum1 typedef_of_myenum1;
+typedef enum myenum1 *typedef_of_pointer_myenum1;
+typedef enum { enum_a = 3, enum_b } typedef_of_anonymous_enum;
+
+typedef int typedef_of_int;
+
+/* Here are some simpler variable types */
+int var1;
+int varbit1:1;
+char var2;
+float var3;
+mystruct1 var3;
+struct mystruct1 var4;
+union myunion1 var5;
+enum myenum1 var6;
+
+char *varp1;
+char **varp2;
+char varv1[1];
+char varv2[1][2];
+
+char *varpa1 = "moose";
+struct mystruct2 vara2 = { 1, 'a', 0.0 };
+enum myenum1 vara3 = enum11;
+int vara4 = (int)0.0;
+int vara5 = funcall();
+
+int mvar1, mvar2, mvar3;
+char *mvarp1, *mvarp2, *mvarp3;
+char *mvarpa1 = 'a', *mvarpa2 = 'b', *mvarpa3 = 'c';
+char mvaras1[10], mvaras2[12][13], *mvaras3 = 'd';
+
+static register const unsigned int tmvar1;
+
+#define MACRO1 1
+#define MACRO2(foo) (1+foo)
+
+/* Here are some function prototypes */
+
+/* This is legal, but I decided not to support inferred integer
+ * types on functions and variables.
+ */
+fun0();
+int funp1();
+char funp2(int arg11);
+float funp3(char arg21, char arg22);
+struct mystrct1 funp4(struct mystruct2 arg31, union myunion2 arg32);
+enum myenum1 funp5(char *arg41, union myunion1 *arg42);
+
+char funpp1 __P(char argp1, struct mystruct2 argp2, char *arg4p);
+
+int fun1();
+
+/* Here is a function pointer */
+int (*funcptr)(int a, int b);
+
+/* Function Definitions */
+
+/* This is legal, but I decided not to support inferred integer
+ * types on functions and variables.
+ */
+fun0()
+{
+ int sv = 0;
+}
+
+int fun1 ()
+{
+ int sv = 1;
+}
+
+int fun1p1 (void)
+{
+ int sv = 1;
+}
+
+char fun2(int arg_11)
+{
+ char sv = 2;
+}
+
+float fun3(char arg_21, char arg_22)
+{
+ char sv = 3;
+}
+
+struct mystrct1 fun4(struct mystruct2 arg31, union myunion2 arg32)
+{
+ sv = 4;
+}
+
+enum myenum1 fun5(char *arg41, union myunion1 *arg42)
+{
+ sv = 5;
+}
+
+/* Functions with K&R syntax. */
+struct mystrct1 funk1(arg_31, arg_32)
+ struct mystruct2 arg_31;
+ union myunion2 arg32;
+{
+ sv = 4;
+}
+
+enum myenum1 *funk2(arg_41, arg_42)
+ char *arg_41;
+ union myunion1 *arg_42;
+{
+ sv = 5;
+
+ if(foo) {
+ }
+}
+
+int funk3(arg_51, arg_53)
+ int arg_51;
+ char arg_53;
+{
+ char q = 'a';
+ int sv = 6;
+ td1 ms1;
+ enum myenum1 testconst;
+
+ /* Function argument analysis */
+ funk3(ms1.slot11, arg_53 );
+ sv = 7;
+
+ /* Slot deref on assignee */
+ ms1.slot11 = s;
+
+ /* Enum/const completion */
+ testconst = e;
+
+ /* Bad var/slot and param */
+ blah.notafunction(moose);
+
+ /* Print something. */
+ printf("Moose", );
+
+ tan();
+}
+
+int funk4_fixme(arg_61, arg_62)
+ int arg_61, arg_62;
+{
+
+}
+
+/* End of C tests */
+
--- /dev/null
+;;; test.el --- Unit test file for Semantic Emacs Lisp support.
+
+;; Copyright (C) 2005-2013 Free Software Foundation, Inc.
+
+;; Author: Eric M. Ludlam <eric@siege-engine.com>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Require
+;;
+(require 'semantic)
+(require 'eieio "../eieio")
+
+;; tags encapsulated in eval-when-compile and eval-and-compile
+;; should be expanded out into the outer environment.
+(eval-when-compile
+ (require 'semantic-imenu)
+ )
+
+(eval-and-compile
+ (defconst const-1 nil)
+ (defun function-1 (arg)
+ nil)
+ )
+
+;;; Functions
+;;
+(defun a-defun (arg1 arg2 &optional arg3)
+ "doc a"
+ nil)
+
+(defun a-defun-interactive (arg1 arg2 &optional arg3)
+ "doc a that is a command"
+ (interactive "R")
+ nil)
+
+(defun* a-defun* (arg1 arg2 &optional arg3)
+ "doc a*"
+ nil)
+
+(defsubst a-defsubst (arg1 arg2 &optional arg3)
+ "doc a-subst"
+ nil)
+
+(defmacro a-defmacro (arg1 arg2 &optional arg3)
+ "doc a-macro"
+ nil)
+
+(define-overload a-overload (arg)
+ "doc a-overload"
+ nil)
+
+;;; Methods
+;;
+(defmethod a-method ((obj some-class) &optional arg2)
+ "Doc String for a method."
+ (call-next-method))
+
+(defgeneric a-generic (arg1 arg2)
+ "General description of a-generic.")
+
+;;; Advice
+;;
+(defadvice existing-function-to-advise (around test activate)
+ "Do something special to this fcn."
+ (ad-do-it))
+
+;;; Variables
+;;
+(defvar a-defvar (cons 1 2)
+ "Variable a")
+
+(defvar a-defvar-star (cons 1 2)
+ "*User visible var a")
+
+(defconst a-defconst 'a "var doc const")
+
+(defcustom a-defcustom nil
+ "*doc custom"
+ :group 'a-defgroup
+ :type 'boolean)
+
+(defface a-defface 'bold
+ "A face that is bold.")
+
+(defimage ezimage-page-minus
+ ((:type xpm :file "page-minus.xpm" :ascent center))
+ "Image used for open files with stuff in them.")
+
+;;; Autoloads
+;;
+(autoload (quote a-autoload) "somefile"
+ "Non-interactive autoload." nil nil)
+
+(autoload (quote a-autoload-interactive) "somefile"
+"Interactive autoload." t nil)
+
+
+(defgroup a-defgroup nil
+ "Group for `emacs-lisp' regression-test")
+
+;;; Classes
+;;
+(defclass a-class (a-parent)
+ ((slot-1)
+ (slot-2 :initarg :slot-2)
+ (slot-3 :documentation "Doc about slot3")
+ (slot-4 :type 'boolean)
+ )
+ "Doc String for class.")
+
+(defclass a-class-abstract ()
+ nil
+ "Doc string for abstract class."
+ :abstract t)
+
+;;; Structures
+;;
+(defstruct (test-struct-1 :test 'equal)
+ (slot-1 :equal 'eq)
+ slot-2)
+
+(defstruct test-struct-2
+ slot-1
+ slot-2)
+
+;;; Semantic specific macros
+;;
+(define-lex a-lexer
+ "Doc String"
+ this
+ that)
+
+(define-mode-local-override a-overridden-function
+ emacs-lisp-mode (tag)
+ "A function that is overloaded."
+ nil)
+
+(defvar-mode-local emacs-lisp-mode a-mode-local-def
+ "some value")
+
+
+;;; Provide
+;;
+(provide 'test)
--- /dev/null
+# test.make --- Semantic unit test for Make -*- makefile -*-
+
+# Copyright (C) 2001-2002, 2010-2013 Free Software Foundation, Inc.
+
+# Author: Eric M. Ludlam <eric@siege-engine.com>
+
+# This file is part of GNU Emacs.
+
+# GNU Emacs is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# GNU Emacs is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+top=
+ede_FILES=Project.ede Makefile
+
+example_MISC=semantic-skel.el skeleton.bnf
+init_LISP=semantic-load.el
+DISTDIR=$(top)semantic-$(VERSION)
+
+# really goofy & variables tabs
+A= B
+A =B
+A=B C
+A=B\
+ C
+
+A= http://${B} \
+ ftp://${B}
+B= test
+
+all: example semantic Languages tools senator semantic.info
+
+test ${B}: foo bar
+ @echo ${A}
+
+example:
+ @
+
+init: $(init_LISP)
+ @echo "(add-to-list 'load-path nil)" > $@-compile-script
+ @if test ! -z "${LOADPATH}" ; then\
+ for loadpath in ${LOADPATH}; do \
+ echo "(add-to-list 'load-path \"$$loadpath\")" >> $@-compile-script; \
+ done;\
+ fi
+ @echo "(setq debug-on-error t)" >> $@-compile-script
+ $(EMACS) -batch -l $@-compile-script -f batch-byte-compile $^
+
+include tesset.mk tusset.mk
+include oneset.mk
+
+ifdef SOME_SYMBOL
+ VAR1 = foo
+else
+ VAR1 = bar
+endif
+
+ifndef SOME_OTHER_SYMBOL
+ VAR1 = baz
+endif
+
+ifeq ($(VAR1), foo)
+ VAR2 = gleep
+else
+ ifneq ($(VAR1), foo)
+ VAR2 = glop
+ endif
+endif
+
+# End of Makefile
--- /dev/null
+// testdoublens.cpp --- semantic-ia-utest completion engine unit tests
+
+// Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+// Author: Eric M. Ludlam <eric@siege-engine.com>
+
+// This file is part of GNU Emacs.
+
+// GNU Emacs is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation, either version 3 of the License, or
+// (at your option) any later version.
+
+// GNU Emacs is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+
+// You should have received a copy of the GNU General Public License
+// along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+#include "testdoublens.hpp"
+
+namespace Name1 {
+ namespace Name2 {
+
+ Foo::Foo()
+ {
+ p// -1-
+ // #1# ( "pMumble" "publishStuff" )
+ ;
+ }
+
+ int Foo::get() // ^1^
+ {
+ p// -2-
+ // #2# ( "pMumble" "publishStuff" )
+ ;
+ return 0;
+ }
+
+ void Foo::publishStuff(int /* a */, int /* b */) // ^2^
+ {
+ }
+
+ void Foo::sendStuff(int /* a */, int /* b */) // ^3^
+ {
+ }
+
+ } // namespace Name2
+} // namespace Name1
+
+// Test multiple levels of metatype expansion
+int test_fcn () {
+ stage3_Foo MyFoo;
+
+ MyFoo.// -3-
+ // #3# ( "Mumble" "get" )
+ ;
+
+ Name1::Name2::F//-4-
+ // #4# ( "Foo" )
+ ;
+
+ // @TODO - get this working...
+ Name1::stage2_Foo::M//-5-
+ /// #5# ( "Mumble" )
+ ;
+}
+
+stage3_Foo foo_fcn() {
+ // Can we go "up" to foo with senator-go-to-up-reference?
+}
+
+
+// Second test from Ravikiran Rajagopal
+
+namespace A {
+ class foo {
+ public:
+ void aa();
+ void bb();
+ };
+}
+namespace A {
+ class bar {
+ public:
+ void xx();
+ public:
+ foo myFoo;
+ };
+
+ void bar::xx()
+ {
+ myFoo.// -6- <--- cursor is here after the dot
+ // #6# ( "aa" "bb" )
+ ;
+ }
+}
+
+// Double namespace example from Hannu Koivisto
+//
+// This is tricky because the parent class "Foo" is found within the
+// scope of B, so the scope calculation needs to put that together
+// before searching for parents in scope.
+namespace a {
+ namespace b {
+
+ class Bar : public Foo
+ {
+ int baz();
+ };
+
+ int Bar::baz()
+ {
+ return dum// -7-
+ // #7# ( "dumdum" )
+ ;
+ }
+
+ } // namespace b
+} // namespace a
+
+// Three namespace example from Hannu Koivisto
+//
+// This one is special in that the name e::Foo, where "e" is in
+// the scope, and not referenced from the global namespace. This
+// wasn't previously handled, so the fullscope needed to be added
+// to the list of things searched when in split-name decent search mode
+// for scopes.
+
+namespace d {
+ namespace e {
+
+ class Foo
+ {
+ public:
+ int write();
+ };
+
+ } // namespace d
+} // namespace e
+
+
+namespace d {
+ namespace f {
+
+ class Bar
+ {
+ public:
+ int baz();
+
+ private:
+ e::Foo &foo;
+ };
+
+ int Bar::baz()
+ {
+ return foo.w// -8-
+ // #8# ( "write" )
+ ;
+ }
+
+ } // namespace f
+} // namespace d
+
--- /dev/null
+// testdoublens.hpp --- Header file used in one of the Semantic tests
+
+// Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+// Author: Eric M. Ludlam <eric@siege-engine.com>
+
+// This file is part of GNU Emacs.
+
+// GNU Emacs is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation, either version 3 of the License, or
+// (at your option) any later version.
+
+// GNU Emacs is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+
+// You should have received a copy of the GNU General Public License
+// along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+namespace Name1 {
+ namespace Name2 {
+
+ class Foo
+ {
+ typedef unsigned int Mumble;
+ public:
+ Foo();
+ ~Foo();
+ int get();
+
+ private:
+ void publishStuff(int a, int b);
+
+ void sendStuff(int a, int b);
+
+ Mumble* pMumble;
+ };
+
+ typedef Foo stage1_Foo;
+
+ } // namespace Name2
+
+ typedef Name2::stage1_Foo stage2_Foo;
+
+ typedef Name2::Foo decl_stage1_Foo;
+
+} // namespace Name1
+
+typedef Name1::stage2_Foo stage3_Foo;
+
+
+// Double namespace from Hannu Koivisto
+namespace a {
+ namespace b {
+
+ class Foo
+ {
+ struct Dum {
+ int diDum;
+ };
+
+ protected:
+ mutable a::b::Foo::Dum dumdum;
+ };
+
+ } // namespace b
+} // namespace a
+
--- /dev/null
+// Test parsing of friends and how they are used in completion.
+/*
+ >> Thanks Damien Profeta for the nice example.
+ >
+ > I paste a small example.
+ > It would be great if friend can be well parsed and even greater if
+ > class B can access to all the members of A.
+*/
+
+class Af // %2% ( ( "testfriends.cpp" ) ( "Af" "B::testB" ) )
+{
+public:
+ int pubVar;
+private:
+ int privateVar;
+
+ friend class B;
+
+};
+
+class B
+{
+public:
+ int testB();
+ int testAB();
+
+};
+
+
+int B::testB() {
+ Af classA;
+ classA.//-1-
+ ; //#1# ( "privateVar" "pubVar" )
+}
+
+int B::testAB() { // %1% ( ( "testfriends.cpp" ) ( "B" "B::testAB" ) )
+}
+
--- /dev/null
+// testjavacomp.java --- Semantic unit test for Java
+
+// Copyright (C) 2009-2013 Free Software Foundation, Inc.
+
+// Author: Eric M. Ludlam <eric@siege-engine.com>
+
+// This file is part of GNU Emacs.
+
+// GNU Emacs is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation, either version 3 of the License, or
+// (at your option) any later version.
+
+// GNU Emacs is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+
+// You should have received a copy of the GNU General Public License
+// along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+package tests.testjavacomp;
+
+class secondClass {
+ private void scFuncOne() { }
+ public void scFuncOne() { }
+}
+
+
+public class testjavacomp {
+
+ private int funcOne() { }
+ private int funcTwo() { }
+ private char funcThree() { }
+
+ class nestedClass {
+ private void ncFuncOne() { }
+ public void ncFuncOne() { }
+ }
+
+ public void publicFunc() {
+
+ int i;
+
+ i = fu// -1-
+ // #1# ( "funcOne" "funcTwo" )
+ ;
+
+ fu// -2-
+ // #2# ( "funcOne" "funcThree" "funcTwo" )
+ ;
+
+ secondClass SC;
+
+ SC.//-3-
+ // #3# ( "scFuncOne" )
+ ;
+
+ nestedClass NC;
+
+ // @todo - need to fix this? I don't know if this is legal java.
+ NC.// - 4-
+ // #4# ( "ncFuncOne" )
+ ;
+ }
+
+} // testjavacomp
--- /dev/null
+// Test NSP (Name space parent)
+//
+// Test dereferencing parents based on local parent scope.
+//
+// Derived from data David Engster provided.
+
+namespace nsp {
+
+ class rootclass {
+ public:
+ int fromroot() {};
+ };
+
+}
+
+namespace nsp {
+ class childclass : public rootclass {
+ public:
+ int fromchild() {};
+ };
+}
+
+void myfcn_not_in_ns (void) {
+ nsp::childclass test;
+
+ test.// -1-
+ ; // #1# ( "fromchild" "fromroot" )
+}
+
--- /dev/null
+/** testpolymorph.cpp --- A sequence of polymorphism examples.
+ *
+ * Copyright (C) 2009-2013 Free Software Foundation, Inc.
+ *
+ * Author: Eric M. Ludlam <eric@siege-engine.com>
+ *
+ * This file is part of GNU Emacs.
+ *
+ * GNU Emacs is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * GNU Emacs is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <cmath>
+
+// Test 1 - Functions w/ prototypes
+namespace proto {
+
+ int pt_func1(int arg1);
+ int pt_func1(int arg1) {
+ return 0;
+ }
+
+}
+
+// Test 2 - Functions w/ different arg lists.
+namespace fcn_poly {
+
+ int pm_func(void) {
+ return 0;
+ }
+ int pm_func(int a) {
+ return a;
+ }
+ int pm_func(char a) {
+ return int(a);
+ }
+ int pm_func(double a) {
+ return int(floor(a));
+ }
+
+}
+
+// Test 3 - Methods w/ different arg lists.
+class meth_poly {
+public:
+ int pm_meth(void) {
+ return 0;
+ }
+ int pm_meth(int a) {
+ return a;
+ }
+ int pm_meth(char a) {
+ return int(a);
+ }
+ int pm_meth(double a) {
+ return int(floor(a));
+ }
+
+};
+
+// Test 4 - Templates w/ partial specifiers.
+namespace template_partial_spec {
+ template <typename T> class test
+ {
+ public:
+ void doSomething(T t) { };
+ };
+
+ template <typename T> class test<T *>
+ {
+ public:
+ void doSomething(T* t) { };
+ };
+}
+
+// Test 5 - Templates w/ full specialization which may or may not share
+// common functions.
+namespace template_full_spec {
+ template <typename T> class test
+ {
+ public:
+ void doSomething(T t) { };
+ void doSomethingElse(T t) { };
+ };
+
+ template <> class test<int>
+ {
+ public:
+ void doSomethingElse(int t) { };
+ void doSomethingCompletelyDifferent(int t) { };
+ };
+}
+
+// Test 6 - Dto., but for templates with multiple parameters.
+namespace template_multiple_spec {
+ template <typename T1, typename T2> class test
+ {
+ public:
+ void doSomething(T1 t) { };
+ void doSomethingElse(T2 t) { };
+ };
+
+ template <typename T2> class test<int, T2>
+ {
+ public:
+ void doSomething(int t) { };
+ void doSomethingElse(T2 t) { };
+ };
+
+ template <> class test<float, int>
+ {
+ public:
+ void doSomething(float t) { };
+ void doSomethingElse(int t) { };
+ void doNothing(void) { };
+ };
+}
+
+
+// End of polymorphism test file.
--- /dev/null
+/* testspp.cpp --- Semantic unit test for the C preprocessor
+
+ Copyright (C) 2007-2013 Free Software Foundation, Inc.
+
+ Author: Eric M. Ludlam <eric@siege-engine.com>
+
+ This file is part of GNU Emacs.
+
+ GNU Emacs is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ GNU Emacs is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+*/
+
+int some_fcn (){}
+
+
+#ifndef MOOSE
+int pre_show_moose(){}
+#endif
+
+#ifdef MOOSE
+int pre_dont_show_moose(){}
+#endif
+
+#if !defined(MOOSE)
+int pre_show_moose_if(){}
+#endif
+
+#if defined(MOOSE)
+int pre_dont_show_moose_if(){}
+#endif
+
+#define MOOSE
+
+#if 0
+int dont_show_function_if_0(){}
+#endif
+
+#if 1
+int show_function_if_1(){}
+#endif
+
+#ifdef MOOSE
+int moose_function(){}
+#endif
+
+#ifndef MOOSE
+int dont_show_moose(){}
+#endif
+
+#if defined(MOOSE)
+int moose_function_if(){}
+#endif
+
+#if !defined(MOOSE)
+int dont_show_moose_if() {}
+#endif
+
+#undef MOOSE
+
+#ifdef MOOSE
+int no_handy_moose(){}
+#endif
+
+#ifndef MOOSE
+int show_moose_else() {}
+#else
+int no_show_moose_else(){}
+#endif
+
+
+#ifdef MOOSE
+int no_show_moose_else_2() {}
+#else
+int show_moose_else_2() {}
+#endif
+
+#if defined(MOOSE)
+int no_show_moose_elif() {}
+#elif !defined(MOOSE)
+int show_moose_elif() {}
+#else
+int no_show_moose_elif_else() {}
+#endif
+
+#if defined(MOOSE)
+int no_show_moose_if_elif_2() {}
+#elif defined(COW)
+int no_show_moose_elif_2() {}
+#else
+int show_moose_elif_else() {}
+#endif
+
--- /dev/null
+/* Example provided by Hannes Janetzek */
+
+struct Test { int test; };
+
+#define BLA(_type) \
+ _type *bla = (_type*) malloc(sizeof(_type));
+
+#define BLUB(_type) \
+ (_type*)malloc(sizeof(_type));
+
+#define FOO(_type) \
+ _type *foo = BLUB(_type);
+
+#define BAR(_type) \
+ _type *bar = (*_type)BLUB(_type);
+
+int main(int argc, char *argv[]) {
+ BLA(Test);
+ bla->// -1-
+ ; // #1# ( "test" )
+
+ FOO(Test);
+ foo->// -2-
+ ; // #2# ( "test" )
+
+ BAR(Test);
+ bar->// -3-
+ ; // #3# ( "test" )
+}
+
--- /dev/null
+/* testsppreplace.c --- unit test for CPP/SPP Replacement
+ Copyright (C) 2007-2013 Free Software Foundation, Inc.
+
+ Author: Eric M. Ludlam <eric@siege-engine.com>
+
+ This file is part of GNU Emacs.
+
+ GNU Emacs is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ GNU Emacs is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+*/
+
+/* TEST: The EMU keyword doesn't screw up the function defn. */
+#define EMU
+#define EMU2 /*comment*/
+char EMU parse_around_emu EMU2 (EMU)
+{
+}
+
+/* TEST: A simple word can be replaced in a definition. */
+#define SUBFLOAT /* Some Float */ float
+SUBFLOAT returnanfloat()
+{
+}
+
+/* TEST: Punctuation an be replaced in a definition. */
+#define COLON :
+int foo COLON COLON bar ()
+{
+}
+
+/* TEST: Multiple lexical characters in a definition */
+#define SUPER mysuper::
+int SUPER baz ()
+{
+}
+
+/* TEST: Macro replacement. */
+#define INT_FCN(name) int name (int in)
+
+INT_FCN(increment) {
+ return in+1;
+}
+
+/* TEST: Macro replacement with complex args */
+#define P_(proto) ()
+
+int myFcn1 P_((a,b));
+
+#define P__(proto) proto
+
+int myFcn2 P__((int a, int b));
+int myFcn3 (int a, int b);
+
+/* TEST: Multiple args to a macro. */
+#define MULTI_ARGS(name, field1, field2, field3) struct name { int field1; int field2; int field3; }
+
+MULTI_ARGS(ma_struct, moose, penguin, emu);
+
+/* TEST: Macro w/ args, but no body. */
+#define NO_BODY(name)
+
+NO_BODY(Moose);
+
+/* TEST: Not a macro with args, but close. */
+#define NOT_WITH_ARGS (moose)
+
+int not_with_args_fcn NOT_WITH_ARGS
+{
+}
+
+/* TEST: macro w/ continuation. */
+#define WITH_CONT \
+ continuation_symbol
+
+int WITH_CONT () { };
+
+/* TEST: macros in a macro - tail processing */
+#define tail_with_args_and_long_name(a) (int a)
+#define int_arg tail_with_args_and_long_name
+
+int tail int_arg(q) {}
+
+/* TEST: macros used improperly. */
+#define tail_fail tail_with_args_and_long_name(q)
+
+int tail_fcn tail_fail(q);
+
+/* TEST: feature of CPP from LSD <lsdsgster@...> */
+#define __gthrw_(name) __gthrw_ ## name
+
+int __gthrw_(foo) (int arg1) { }
+
+/* TEST: macros using macros */
+#define macro_foo foo
+#define mf_declare int macro_foo
+
+mf_declare;
+
+/* TEST: macros with args using macros */
+#define Amacro(A) (int A)
+#define mf_Amacro(B) int B Amacro(B)
+
+mf_Amacro(noodle);
+
+/* TEST: Double macro using the argument stack. */
+#define MACRO0(name) int that_ ## name(int i);
+#define MACRO1(name) int this_ ## name(int i);
+#define MACRO2(name) MACRO0(name) MACRO1(name)
+
+MACRO2(foo)
+
+/* TEST: The G++ namespace macro hack. Not really part of SPP. */
+_GLIBCXX_BEGIN_NAMESPACE(baz)
+
+ int bazfnc(int b) { }
+
+_GLIBCXX_END_NAMESPACE;
+
+_GLIBCXX_BEGIN_NESTED_NAMESPACE(foo,bar)
+
+ int foo_bar_func(int a) { }
+
+_GLIBCXX_END_NESTED_NAMESPACE;
+
+
+/* TEST: The VC++ macro hack. */
+_STD_BEGIN
+
+ int inside_std_namespace(int a) { }
+
+_STD_END
+
+/* TEST: Recursion prevention. CPP doesn't allow even 1 level of recursion. */
+#define STARTMACRO MACROA
+#define MACROA MACROB
+#define MACROB MACROA
+
+int STARTMACRO () {
+
+}
+
+
+/* END */
+
--- /dev/null
+/* testsppreplaced.c --- unit test for CPP/SPP Replacement
+ Copyright (C) 2007-2013 Free Software Foundation, Inc.
+
+ Author: Eric M. Ludlam <eric@siege-engine.com>
+
+ This file is part of GNU Emacs.
+
+ GNU Emacs is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ GNU Emacs is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+*/
+
+/* What the SPP replace file would looklike with MACROS replaced: */
+
+/* TEST: The EMU keyword doesn't screw up the function defn. */
+char parse_around_emu ()
+{
+}
+
+/* TEST: A simple word can be replaced in a definition. */
+float returnanfloat()
+{
+}
+
+/* TEST: Punctuation an be replaced in a definition. */
+int foo::bar ()
+{
+}
+
+/* TEST: Multiple lexical characters in a definition */
+int mysuper::baz ()
+{
+}
+
+/* TEST: Macro replacement. */
+int increment (int in) {
+ return in+1;
+}
+
+/* TEST: Macro replacement with complex args */
+int myFcn1 ();
+
+int myFcn2 (int a, int b);
+int myFcn3 (int a, int b);
+
+/* TEST: Multiple args to a macro. */
+struct ma_struct { int moose; int penguin; int emu; };
+
+/* TEST: Macro w/ args, but no body. */
+
+/* TEST: Not a macro with args, but close. */
+int not_with_args_fcn (moose)
+{
+}
+
+/* TEST: macro w/ continuation. */
+int continuation_symbol () { };
+
+/* TEST: macros in a macro - tail processing */
+
+int tail (int q) {}
+
+/* TEST: macros used improperly */
+
+int tail_fcn(int q);
+
+/* TEST: feature of CPP from LSD <lsdsgster@...> */
+
+int __gthrw_foo (int arg1) { }
+
+/* TEST: macros using macros */
+int foo;
+
+/* TEST: macros with args using macros */
+int noodle(int noodle);
+
+/* TEST: Double macro using the argument stack. */
+int that_foo(int i);
+int this_foo(int i);
+
+/* TEST: The G++ namespace macro hack. Not really part of SPP. */
+namespace baz {
+
+ int bazfnc(int b) { }
+
+}
+
+namespace foo { namespace bar {
+
+ int foo_bar_func(int a) { }
+
+ }
+}
+
+/* TEST: The VC++ macro hack. */
+namespace std {
+
+ int inside_std_namespace(int a) { }
+
+}
+
+/* TEST: Recursion prevention. CPP doesn't allow even 1 level of recursion. */
+int MACROA () {
+
+}
+
+
+/* End */
--- /dev/null
+// testsubclass.cpp --- unit test for analyzer and complex C++ inheritance
+
+// Copyright (C) 2007-2013 Free Software Foundation, Inc.
+
+// Author: Eric M. Ludlam <eric@siege-engine.com>
+
+// This file is part of GNU Emacs.
+
+// GNU Emacs is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation, either version 3 of the License, or
+// (at your option) any later version.
+
+// GNU Emacs is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+
+// You should have received a copy of the GNU General Public License
+// along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+//#include <iostream>
+#include "testsubclass.hh"
+
+void animal::moose::setFeet(int numfeet) //^1^
+{
+ if (numfeet > 4) {
+ std::cerr << "Why would a moose have more than 4 feet?" << std::endl;
+ return;
+ }
+
+ fFeet = numfeet;
+}
+
+int animal::moose::getFeet() //^2^
+{
+ return fFeet;
+}
+
+void animal::moose::doNothing() //^3^
+{
+ animal::moose foo();
+
+ fFeet = N// -15-
+ ; // #15# ( "NAME1" "NAME2" "NAME3" )
+}
+
+
+void deer::moose::setAntlers(bool have_antlers) //^4^
+{
+ fAntlers = have_antlers;
+}
+
+bool deer::moose::getAntlers() //^5^
+// %1% ( ( "testsubclass.cpp" "testsubclass.hh" ) ( "deer::moose::doSomething" "deer::moose::getAntlers" "moose" ) )
+{
+ return fAntlers;
+}
+
+bool i_dont_have_symrefs()
+// %2% ( ("testsubclass.cpp" ) ("i_dont_have_symrefs"))
+{
+}
+
+void deer::moose::doSomething() //^6^
+{
+ // All these functions should be identified by semantic analyzer.
+ getAntlers();
+ setAntlers(true);
+
+ getFeet();
+ setFeet(true);
+
+ doNothing();
+
+ fSomeField = true;
+
+ fIsValid = true;
+}
+
+void deer::alces::setLatin(bool l) {
+ fLatin = l;
+}
+
+bool deer::alces::getLatin() {
+ return fLatin;
+}
+
+void deer::alces::doLatinStuff(moose moosein) {
+ // All these functions should be identified by semantic analyzer.
+ getFeet();
+ setFeet(true);
+
+ getLatin();
+ setLatin(true);
+
+ doNothing();
+
+ deer::moose foo();
+
+
+}
+
+moose deer::alces::createMoose()
+{
+ moose MooseVariableName;
+ bool tmp;
+ int itmp;
+ bool fool;
+ int fast;
+
+ MooseVariableName = createMoose();
+
+ doLatinStuff(MooseVariableName);
+
+ tmp = this.f// -1-
+ // #1# ( "fAlcesBool" "fIsValid" "fLatin" )
+ ;
+
+ itmp = this.f// -2-
+ // #2# ( "fAlcesInt" "fGreek" "fIsProtectedInt" )
+ ;
+
+ tmp = f// -3-
+ // #3# ( "fAlcesBool" "fIsValid" "fLatin" "fool" )
+ ;
+
+ itmp = f// -4-
+ // #4# ( "fAlcesInt" "fGreek" "fIsProtectedInt" "fast" )
+ ;
+
+ MooseVariableName = m// -5-
+ // #5# ( "moose" )
+
+ return MooseVariableName;
+}
+
+/** Test Scope Changes
+ *
+ * This function is rigged to make sure the scope changes to account
+ * for different locations in local variable parsing.
+ */
+int someFunction(int mPickle)
+{
+ moose mMoose = deer::alces::createMoose();
+
+ if (mPickle == 1) {
+
+ int mOption1 = 2;
+
+ m// -5-
+ // #5# ( "mMoose" "mOption1" "mPickle" )
+ ;
+
+ } else {
+
+ int mOption2 = 2;
+
+ m// -6-
+ // #6# ( "mMoose" "mOption2" "mPickle" )
+ ;
+ }
+
+}
+
+// Thanks Ming-Wei Chang for this next example.
+
+namespace pub_priv {
+
+ class A{
+ private:
+ void private_a(){}
+ public:
+ void public_a();
+ };
+
+ void A::public_a() {
+ A other_a;
+
+ other_a.p// -7-
+ // #7# ( "private_a" "public_a" )
+ ;
+ }
+
+ int some_regular_function(){
+ A a;
+ a.p// -8-
+ // #8# ( "public_a" )
+ ;
+ return 0;
+ }
+
+}
+
+
+/** Test Scope w/in a function (non-method) with classes using
+ * different levels of inheritance.
+ */
+int otherFunction()
+{
+ sneaky::antelope Antelope(1);
+ sneaky::jackalope Jackalope(1);
+ sneaky::bugalope Bugalope(1);
+
+ Antelope.// -9-
+ // #9# ( "fAntyPublic" "fQuadPublic" "testAccess")
+ ;
+
+ Jackalope.// -10-
+ // #10# ( "fBunnyPublic" "testAccess")
+ ;
+
+ Jackalope// @1@ 6
+ ;
+ Jackalope;
+ Jackalope;
+ Jackalope;
+
+ Bugalope.// -11-
+ // #11# ( "fBugPublic" "testAccess")
+ ;
+ Bugalope// @2@ 3
+ ;
+}
+
+/** Test methods within each class for types of access to the baseclass.
+ */
+
+bool sneaky::antelope::testAccess() //^7^
+{
+ this.// -12-
+ // #12# ( "fAntyPrivate" "fAntyProtected" "fAntyPublic" "fQuadProtected" "fQuadPublic" "testAccess" )
+ ;
+}
+
+bool sneaky::jackalope::testAccess() //^8^
+{
+ this.// -13-
+ // #13# ( "fBunnyPrivate" "fBunnyProtected" "fBunnyPublic" "fQuadProtected" "fQuadPublic" "testAccess" )
+ ;
+}
+
+bool sneaky::bugalope::testAccess() //^9^
+{
+ this.// -14-
+ // #14# ( "fBugPrivate" "fBugProtected" "fBugPublic" "fQuadPublic" "testAccess" )
+ ;
+}
+
--- /dev/null
+// testsubclass.hh --- unit test for analyzer and complex C++ inheritance
+
+// Copyright (C) 2007-2013 Free Software Foundation, Inc.
+
+// Author: Eric M. Ludlam <eric@siege-engine.com>
+
+// This file is part of GNU Emacs.
+
+// GNU Emacs is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation, either version 3 of the License, or
+// (at your option) any later version.
+
+// GNU Emacs is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+
+// You should have received a copy of the GNU General Public License
+// along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+//#include <cmath>
+// #include <stdio.h>
+
+#ifndef TESTSUBCLASS_HH
+#define TESTSUBCLASS_HH
+
+namespace animal {
+
+ class moose {
+ public:
+ moose() : fFeet(0),
+ fIsValid(false)
+ { }
+
+ virtual void setFeet(int);
+ int getFeet();
+
+ void doNothing();
+
+ enum moose_enum {
+ NAME1, NAME2, NAME3 };
+
+
+ protected:
+
+ bool fIsValid;
+ int fIsProtectedInt;
+
+ private:
+ int fFeet; // Usually 2 or 4.
+ bool fIsPrivateBool;
+
+ }; // moose
+
+ int two_prototypes();
+ int two_prototypes();
+
+ class quadruped {
+ public:
+ quadruped(int a) : fQuadPrivate(a)
+ { }
+
+ int fQuadPublic;
+
+ protected:
+ int fQuadProtected;
+
+ private:
+ int fQuadPrivate;
+
+ };
+
+}
+
+
+namespace deer {
+
+ class moose : public animal::moose {
+ public:
+ moose() : fAntlers(false)
+ { }
+
+ void setAntlers(bool);
+ bool getAntlers();
+
+ void doSomething();
+
+ protected:
+
+ bool fSomeField;
+
+ private:
+ bool fAntlers;
+
+ };
+
+} // deer
+
+// A second namespace of the same name will test the
+// namespace merging needed to resolve deer::alces
+namespace deer {
+
+ class alces : public animal::moose {
+ public:
+ alces(int lat) : fLatin(lat)
+ { }
+
+ void setLatin(bool);
+ bool getLatin();
+
+ void doLatinStuff(moose moosein); // for completion testing
+
+ moose createMoose(); // for completion testing.
+
+ protected:
+ bool fAlcesBool;
+ int fAlcesInt;
+
+ private:
+ bool fLatin;
+ int fGreek;
+ };
+
+};
+
+// A third namespace with classes that does protected and private inheritance.
+namespace sneaky {
+
+ class antelope : public animal::quadruped {
+
+ public:
+ antelope(int a) : animal::quadruped(),
+ fAntyProtected(a)
+ {}
+
+ int fAntyPublic;
+
+ bool testAccess();
+
+ protected:
+ int fAntyProtected;
+
+ private :
+ int fAntyPrivate;
+
+ };
+
+ class jackalope : protected animal::quadruped {
+
+ public:
+ jackalope(int a) : animal::quadruped(),
+ fBunny(a)
+ {}
+
+ int fBunnyPublic;
+
+ bool testAccess();
+
+ protected:
+ bool fBunnyProtected;
+
+ private :
+ bool fBunnyPrivate;
+
+ };
+
+ // Nothing specified means private.
+ class bugalope : /* private*/ animal::quadruped {
+
+ public:
+ bugalope(int a) : animal::quadruped(),
+ fBug(a)
+ {}
+
+ int fBugPublic;
+
+ bool testAccess();
+ protected:
+ bool fBugProtected;
+
+ private :
+ bool fBugPrivate;
+
+ };
+
+
+};
+
+#endif
+
--- /dev/null
+// testtypedefs.cpp --- Sample with some fake bits out of std::string
+
+// Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+// Author: Eric M. Ludlam <eric@siege-engine.com>
+
+// This file is part of GNU Emacs.
+
+// GNU Emacs is free software: you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation, either version 3 of the License, or
+// (at your option) any later version.
+
+// GNU Emacs is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// GNU General Public License for more details.
+
+// You should have received a copy of the GNU General Public License
+// along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+// Thanks Ming-Wei Chang for these examples.
+
+namespace std {
+ template <T>class basic_string {
+ public:
+ void resize(int);
+ };
+}
+
+typedef std::basic_string<char> mstring;
+
+using namespace std;
+typedef basic_string<char> bstring;
+
+int main(){
+ mstring a;
+ a.// -1-
+ ;
+ // #1# ( "resize" )
+ bstring b;
+ // It doesn't work here.
+ b.// -2-
+ ;
+ // #2# ( "resize" )
+ return 0;
+}
+
+// ------------------
+
+class Bar
+{
+public:
+ void someFunc() {}
+};
+
+typedef Bar new_Bar;
+
+template <class mytype>
+class TBar
+{
+public:
+ void otherFunc() {}
+};
+
+typedef TBar<char> new_TBar;
+
+int main()
+{
+ new_Bar nb;
+ new_TBar ntb;
+
+ nb.// -3-
+ ;
+ // #3# ("someFunc")
+ ntb.// -4-
+ ;
+ // #4# ("otherFunc")
+ return 0;
+}
+
--- /dev/null
+/* testvarnames.cpp
+ Test variable and function names, lists of variables on one line, etc.
+
+ Copyright (C) 2008-2013 Free Software Foundation, Inc.
+
+ Author: Eric M. Ludlam <eric@siege-engine.com>
+
+ This file is part of GNU Emacs.
+
+ GNU Emacs is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ GNU Emacs is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+*/
+
+struct independent {
+ int indep_1;
+ int indep_2;
+};
+
+struct independent var_indep_struct;
+
+struct {
+ int unnamed_1;
+ int unnamed_2;
+} var_unnamed_struct;
+
+struct {
+ int unnamed_3;
+ int unnamed_4;
+} var_un_2, var_un_3;
+
+struct inlinestruct {
+ int named_1;
+ int named_2;
+} var_named_struct;
+
+struct inline2struct {
+ int named_3;
+ int named_4;
+} var_n_2, var_n_3;
+
+/* Structures with names that then declare variables
+ * should also be completable.
+ *
+ * Getting this to work is the bugfix in semantic-c.el CVS v 1.122
+ */
+struct inlinestruct in_var1;
+struct inline2struct in_var2;
+
+int test_1(int var_arg1) {
+
+ var_// -1-
+ ; // #1# ("var_arg1" "var_indep_struct" "var_n_2" "var_n_3" "var_named_struct" "var_un_2" "var_un_3" "var_unnamed_struct")
+
+ var_indep_struct.// -2-
+ ; // #2# ( "indep_1" "indep_2" )
+
+ var_unnamed_struct.// -3-
+ ; // #3# ( "unnamed_1" "unnamed_2" )
+
+ var_named_struct.// -4-
+ ; // #4# ( "named_1" "named_2" )
+
+ var_un_2.// -5-
+ ; // #5# ( "unnamed_3" "unnamed_4" )
+ var_un_3.// -6-
+ ; // #6# ( "unnamed_3" "unnamed_4" )
+
+ var_n_2.// -7-
+ ; // #7# ( "named_3" "named_4" )
+ var_n_3.// -8-
+ ; // #8# ( "named_3" "named_4" )
+
+ in_// -9-
+ ; // #9# ( "in_var1" "in_var2" )
+
+ in_var1.// -10-
+ ; // #10# ( "named_1" "named_2")
+ in_var2.// -11-
+ ; // #11# ( "named_3" "named_4")
+}
--- /dev/null
+;;; esh-test.el --- Eshell test suite
+
+;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
+
+;; Author: John Wiegley <johnw@gnu.org>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; The purpose of this module is to verify that Eshell works as
+;; expected. To run it on your system, use the command
+;; \\[eshell-test].
+
+;;; Code:
+
+(eval-when-compile
+ (require 'cl-lib)
+ (require 'eshell)
+ (require 'esh-util))
+(require 'esh-mode)
+
+(defgroup eshell-test nil
+ "This module is meant to ensure that Eshell is working correctly."
+ :tag "Eshell test suite"
+ :group 'eshell)
+
+;;; User Variables:
+
+(defface eshell-test-ok
+ '((((class color) (background light)) (:foreground "Green" :bold t))
+ (((class color) (background dark)) (:foreground "Green" :bold t)))
+ "The face used to highlight OK result strings."
+ :group 'eshell-test)
+(define-obsolete-face-alias 'eshell-test-ok-face 'eshell-test-ok "22.1")
+
+(defface eshell-test-failed
+ '((((class color) (background light)) (:foreground "OrangeRed" :bold t))
+ (((class color) (background dark)) (:foreground "OrangeRed" :bold t))
+ (t (:bold t)))
+ "The face used to highlight FAILED result strings."
+ :group 'eshell-test)
+(define-obsolete-face-alias 'eshell-test-failed-face 'eshell-test-failed "22.1")
+
+(defcustom eshell-show-usage-metrics nil
+ "If non-nil, display different usage metrics for each Eshell command."
+ :set (lambda (symbol value)
+ (if value
+ (add-hook 'eshell-mode-hook 'eshell-show-usage-metrics)
+ (remove-hook 'eshell-mode-hook 'eshell-show-usage-metrics))
+ (set symbol value))
+ :type '(choice (const :tag "No metrics" nil)
+ (const :tag "Cons cells consumed" t)
+ (const :tag "Time elapsed" 0))
+ :group 'eshell-test)
+
+;;; Code:
+
+(defvar test-buffer)
+
+(defun eshell-insert-command (text &optional func)
+ "Insert a command at the end of the buffer."
+ (goto-char eshell-last-output-end)
+ (insert-and-inherit text)
+ (funcall (or func 'eshell-send-input)))
+
+(defun eshell-match-result (regexp)
+ "Insert a command at the end of the buffer."
+ (goto-char eshell-last-input-end)
+ (looking-at regexp))
+
+(defun eshell-command-result-p (text regexp &optional func)
+ "Insert a command at the end of the buffer."
+ (eshell-insert-command text func)
+ (eshell-match-result regexp))
+
+(defvar eshell-test-failures nil)
+
+(defun eshell-run-test (module funcsym label command)
+ "Test whether FORM evaluates to a non-nil value."
+ (when (let ((sym (intern-soft (concat "eshell-" (symbol-name module)))))
+ (or (memq sym (eshell-subgroups 'eshell))
+ (eshell-using-module sym)))
+ (with-current-buffer test-buffer
+ (insert-before-markers
+ (format "%-70s " (substring label 0 (min 70 (length label)))))
+ (insert-before-markers " ....")
+ (eshell-redisplay))
+ (let ((truth (eval command)))
+ (with-current-buffer test-buffer
+ (delete-char -6)
+ (insert-before-markers
+ "[" (let (str)
+ (if truth
+ (progn
+ (setq str " OK ")
+ (put-text-property 0 6 'face 'eshell-test-ok str))
+ (setq str "FAILED")
+ (setq eshell-test-failures (1+ eshell-test-failures))
+ (put-text-property 0 6 'face 'eshell-test-failed str))
+ str) "]")
+ (add-text-properties (line-beginning-position) (point)
+ (list 'test-func funcsym))
+ (eshell-redisplay)))))
+
+(defun eshell-test-goto-func ()
+ "Jump to the function that defines a particular test."
+ (interactive)
+ (let ((fsym (get-text-property (point) 'test-func)))
+ (when fsym
+ (let* ((def (symbol-function fsym))
+ (library (locate-library (symbol-file fsym 'defun)))
+ (name (substring (symbol-name fsym)
+ (length "eshell-test--")))
+ (inhibit-redisplay t))
+ (find-file library)
+ (goto-char (point-min))
+ (re-search-forward (concat "^(eshell-deftest\\s-+\\w+\\s-+"
+ name))
+ (beginning-of-line)))))
+
+(defun eshell-run-one-test (&optional arg)
+ "Jump to the function that defines a particular test."
+ (interactive "P")
+ (let ((fsym (get-text-property (point) 'test-func)))
+ (when fsym
+ (beginning-of-line)
+ (delete-region (point) (line-end-position))
+ (let ((test-buffer (current-buffer)))
+ (set-buffer (let ((inhibit-redisplay t))
+ (save-window-excursion (eshell t))))
+ (funcall fsym)
+ (unless arg
+ (kill-buffer (current-buffer)))))))
+
+;;;###autoload
+(defun eshell-test (&optional arg)
+ "Test Eshell to verify that it works as expected."
+ (interactive "P")
+ (let* ((begin (float-time))
+ (test-buffer (get-buffer-create "*eshell test*")))
+ (set-buffer (let ((inhibit-redisplay t))
+ (save-window-excursion (eshell t))))
+ (with-current-buffer test-buffer
+ (erase-buffer)
+ (setq major-mode 'eshell-test-mode)
+ (setq mode-name "EShell Test")
+ (set (make-local-variable 'eshell-test-failures) 0)
+ (local-set-key [(control ?c) (control ?c)] 'eshell-test-goto-func)
+ (local-set-key [(control ?c) (control ?r)] 'eshell-run-one-test)
+ (local-set-key [(control ?m)] 'eshell-test-goto-func)
+ (local-set-key [return] 'eshell-test-goto-func)
+
+ (insert "Testing Eshell under " (emacs-version))
+ (switch-to-buffer test-buffer)
+ (delete-other-windows))
+ (dolist (funcname (sort (all-completions "eshell-test--"
+ obarray 'functionp)
+ 'string-lessp))
+ (with-current-buffer test-buffer
+ (insert "\n"))
+ (funcall (intern-soft funcname)))
+ (with-current-buffer test-buffer
+ (insert (format "\n\n--- %s --- (completed in %d seconds)\n"
+ (current-time-string)
+ (- (float-time) begin)))
+ (message "Eshell test suite completed: %s failure%s"
+ (if (> eshell-test-failures 0)
+ (number-to-string eshell-test-failures)
+ "No")
+ (if (= eshell-test-failures 1) "" "s"))))
+ (goto-char eshell-last-output-end)
+ (unless arg
+ (kill-buffer (current-buffer))))
+
+
+(defvar eshell-metric-before-command 0)
+(defvar eshell-metric-after-command 0)
+
+(defun eshell-show-usage-metrics ()
+ "If run at Eshell mode startup, metrics are shown after each command."
+ (set (make-local-variable 'eshell-metric-before-command)
+ (if (eq eshell-show-usage-metrics t)
+ 0
+ (current-time)))
+ (set (make-local-variable 'eshell-metric-after-command)
+ (if (eq eshell-show-usage-metrics t)
+ 0
+ (current-time)))
+
+ (add-hook 'eshell-pre-command-hook
+ (function
+ (lambda ()
+ (setq eshell-metric-before-command
+ (if (eq eshell-show-usage-metrics t)
+ (car (memory-use-counts))
+ (current-time))))) nil t)
+
+ (add-hook 'eshell-post-command-hook
+ (function
+ (lambda ()
+ (setq eshell-metric-after-command
+ (if (eq eshell-show-usage-metrics t)
+ (car (memory-use-counts))
+ (current-time)))
+ (eshell-interactive-print
+ (concat
+ (int-to-string
+ (if (eq eshell-show-usage-metrics t)
+ (- eshell-metric-after-command
+ eshell-metric-before-command 7)
+ (- (float-time
+ eshell-metric-after-command)
+ (float-time
+ eshell-metric-before-command))))
+ "\n"))))
+ nil t))
+
+
+;;; The tests.
+
+(defmacro eshell-deftest (module name label &rest forms)
+ (declare (indent 2))
+ (if (and (fboundp 'cl-compiling-file) (cl-compiling-file))
+ nil
+ (let ((fsym (intern (concat "eshell-test--" (symbol-name name)))))
+ `(eval-when-compile
+ (ignore
+ (defun ,fsym () ,label
+ (eshell-run-test (quote ,module) (quote ,fsym) ,label
+ (quote (progn ,@forms)))))))))
+
+
+(eshell-deftest mode same-window-buffer-names
+ "`eshell-buffer-name' is a member of `same-window-buffer-names'"
+ (member eshell-buffer-name same-window-buffer-names))
+
+(eshell-deftest mode eshell-directory-exists
+ "`eshell-directory-name' exists and is writable"
+ (file-writable-p eshell-directory-name))
+
+(eshell-deftest mode eshell-directory-modes
+ "`eshell-directory-name' has correct access protections"
+ (or (eshell-under-windows-p)
+ (= (file-modes eshell-directory-name)
+ eshell-private-directory-modes)))
+
+(eshell-deftest mode simple-command-result
+ "`eshell-command-result' works with a simple command."
+ (= (eshell-command-result "+ 1 2") 3))
+
+
+(require 'em-banner)
+
+(eshell-deftest banner banner-displayed
+ "Startup banner is displayed at point-min"
+ (cl-assert eshell-banner-message)
+ (let ((msg (eval eshell-banner-message)))
+ (cl-assert msg)
+ (goto-char (point-min))
+ (looking-at msg)))
+
+
+(require 'esh-cmd)
+
+(eshell-deftest var last-result-var
+ "\"last result\" variable"
+ (eshell-command-result-p "+ 1 2; + $$ 2" "3\n5\n"))
+
+(eshell-deftest var last-result-var2
+ "\"last result\" variable"
+ (eshell-command-result-p "+ 1 2; + $$ $$" "3\n6\n"))
+
+(eshell-deftest var last-arg-var
+ "\"last arg\" variable"
+ (eshell-command-result-p "+ 1 2; + $_ 4" "3\n6\n"))
+
+(eshell-deftest cmd lisp-command
+ "Evaluate Lisp command"
+ (eshell-command-result-p "(+ 1 2)" "3"))
+
+(eshell-deftest cmd lisp-command-args
+ "Evaluate Lisp command (ignore args)"
+ (eshell-command-result-p "(+ 1 2) 3" "3"))
+
+(eshell-deftest cmd subcommand
+ "Run subcommand"
+ (eshell-command-result-p "{+ 1 2}" "3\n"))
+
+(eshell-deftest cmd subcommand-args
+ "Run subcommand (ignore args)"
+ (eshell-command-result-p "{+ 1 2} 3" "3\n"))
+
+(eshell-deftest cmd subcommand-lisp
+ "Run subcommand + Lisp form"
+ (eshell-command-result-p "{(+ 1 2)}" "3\n"))
+
+(eshell-deftest cmd named-command
+ "Execute named command"
+ (eshell-command-result-p "+ 1 2" "3\n"))
+
+
+(require 'esh-mode)
+
+(eshell-deftest mode major-mode
+ "Major mode is correct"
+ (eq major-mode 'eshell-mode))
+
+(eshell-deftest mode eshell-mode-variable
+ "`eshell-mode' is true"
+ (eq eshell-mode t))
+
+(eshell-deftest var window-height
+ "LINES equals window height"
+ (let ((eshell-stringify-t t))
+ (eshell-command-result-p "= $LINES (window-height)" "t\n")))
+
+(eshell-deftest mode command-running-p
+ "Modeline shows no command running"
+ (or (featurep 'xemacs)
+ (not eshell-status-in-modeline)
+ (and (memq 'eshell-command-running-string mode-line-format)
+ (equal eshell-command-running-string "--"))))
+
+(eshell-deftest arg forward-arg
+ "Move across command arguments"
+ (eshell-insert-command "echo $(+ 1 (- 4 3)) \"alpha beta\" file" 'ignore)
+ (let ((here (point)) begin valid)
+ (eshell-bol)
+ (setq begin (point))
+ (eshell-forward-argument 4)
+ (setq valid (= here (point)))
+ (eshell-backward-argument 4)
+ (prog1
+ (and valid (= begin (point)))
+ (eshell-bol)
+ (delete-region (point) (point-max)))))
+
+(eshell-deftest mode queue-input
+ "Queue command input"
+ (eshell-insert-command "sleep 2")
+ (eshell-insert-command "echo alpha" 'eshell-queue-input)
+ (let ((count 10))
+ (while (and eshell-current-command
+ (> count 0))
+ (sit-for 1 0)
+ (setq count (1- count))))
+ (eshell-match-result "alpha\n"))
+
+; (eshell-deftest proc send-to-subprocess
+; "Send input to a subprocess"
+; ;; jww (1999-12-06): what about when bc is unavailable?
+; (if (not (eshell-search-path "bc"))
+; t
+; (eshell-insert-command "bc")
+; (eshell-insert-command "1 + 2")
+; (sit-for 1 0)
+; (forward-line -1)
+; (prog1
+; (looking-at "3\n")
+; (eshell-insert-command "quit")
+; (sit-for 1 0))))
+
+(eshell-deftest io flush-output
+ "Flush previous output"
+ (eshell-insert-command "echo alpha")
+ (eshell-kill-output)
+ (and (eshell-match-result (regexp-quote "*** output flushed ***\n"))
+ (forward-line)
+ (= (point) eshell-last-output-start)))
+
+(eshell-deftest mode run-old-command
+ "Re-run an old command"
+ (eshell-insert-command "echo alpha")
+ (goto-char eshell-last-input-start)
+ (string= (eshell-get-old-input) "echo alpha"))
+
+
+(require 'esh-var)
+
+(eshell-deftest var interp-cmd
+ "Interpolate command result"
+ (eshell-command-result-p "+ ${+ 1 2} 3" "6\n"))
+
+(eshell-deftest var interp-lisp
+ "Interpolate Lisp form evaluation"
+ (eshell-command-result-p "+ $(+ 1 2) 3" "6\n"))
+
+(eshell-deftest var interp-concat
+ "Interpolate and concat command"
+ (eshell-command-result-p "+ ${+ 1 2}3 3" "36\n"))
+
+(eshell-deftest var interp-concat-lisp
+ "Interpolate and concat Lisp form"
+ (eshell-command-result-p "+ $(+ 1 2)3 3" "36\n"))
+
+(eshell-deftest var interp-concat2
+ "Interpolate and concat two commands"
+ (eshell-command-result-p "+ ${+ 1 2}${+ 1 2} 3" "36\n"))
+
+(eshell-deftest var interp-concat-lisp2
+ "Interpolate and concat two Lisp forms"
+ (eshell-command-result-p "+ $(+ 1 2)$(+ 1 2) 3" "36\n"))
+
+
+(provide 'esh-test)
+
+;;; esh-test.el ends here
--- /dev/null
+RM=rm
+EMACS=emacs
+
+clean:
+ -$(RM) *.test
+
+# TODO:
+# - mark the places where the indentation is known to be incorrect,
+# and allow either ignoring those errors or not.
+%.test: %
+ -$(RM) $<.new
+ $(EMACS) --batch $< \
+ --eval '(indent-region (point-min) (point-max) nil)' \
+ --eval '(write-region (point-min) (point-max) "$<.new")'
+ diff -u -B $< $<.new
--- /dev/null
+\documentclass{article} % -*- eval: (bug-reference-mode 1) -*-
+
+\usepackage[utf8]{inputenc}
+
+\begin{document}
+
+To fix this, remove the \url{sn9c102.ko} from where it appears in
+\url{/lib/modules/$(uname -r)}, %bug#11953.
+and install the appropriate \url{gspca-modules} package.
+
+\end{document}
--- /dev/null
+(* -*- mode: modula-2; m2-indent:3 -*- *)
+
+IMPLEMENTATION MODULE Indent ;
+
+(* This is (* a nested comment *) *)
+// This is a single-line comment.
+
+FROM SYSTEM IMPORT ADR, TSIZE, SIZE, WORD ;
+
+CONST
+ c1 = 2;
+
+TYPE
+ t = POINTER TO ARRAY [0..10] OF LONGINT;
+
+VAR x: t;
+ y:LONGINT;
+
+
+PROCEDURE f1 (f: File) : INTEGER ;
+ VAR
+ fd: FileDescriptor ;
+ PROCEDURE foo (a:CARDINAL) : INTEGER;
+ BEGIN
+ END foo;
+BEGIN
+ IF f#Error
+ THEN
+ fd := GetIndice(FileInfo, f) ;
+ IF fd#NIL THEN
+ RETURN( fd^.unixfd )
+ ELSE
+ CASE z OF
+ 1: do1();
+ | 2: do2();
+ toto(x);
+ | 3: ;
+ | 4: do4();
+ ELSE do5();
+ END ; (* CASE selection *)
+
+ END
+ END ;
+ FormatError1('file %d has not been opened or is out of range\n', f) ;
+ RETURN( -1 )
+END f1 ;
+
+
+BEGIN
+ init
+FINALLY
+ done
+END Indent.
--- /dev/null
+## -*- octave -*-
+
+function res = tcomp (fn)
+ %% res = tcomp (fn)
+ %% imports components and rearranges them.
+
+ if nargin ~= 1
+ print_usage()
+ end
+
+ data = dlmread(fn, 3, 0);
+
+ x = data(:,2:end);
+ y = 'hello';
+ z = y';
+
+ cnty = repmat(x(:,1)(:), 10, 1);
+
+ pop = x(:,1:10)(:);
+ ## Here and below, we test if the indentation aligns with a previous
+ ## fixindented line. This is important so as to make it easier for the
+ ## user to override some indentation somewhere, and also because it
+ ## reflects the fact that the indentation decision is taken with a minimum
+ ## amount of work (i.e. in the present case, without having to walk back
+ ## until the `function' line).
+ bir = x(:,11:20)(:); # fixindent
+ dth = x(:,21:30)(:);
+ imig = x(:,31:40)(:);
+ dmig = x(:,41:50)(:);
+ gq = x(:,51:60)(:);
+
+ yrs = repmat(2000:2009, 39, 1)(:);
+
+ res = [yrs, cnty, pop, bir, dth, imig, dmig, gq];
+
+endfunction
+
+## Copyright (C) 2005, 2006, 2007, 2008, 2009 S�ren Hauberg
+##
+## This file is part of Octave.
+##
+## Octave 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 3 of the License, or (at
+## your option) any later version.
+##
+## Octave 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 Octave; see the file COPYING. If not, see
+## <http://www.gnu.org/licenses/>.
+
+## -*- texinfo -*-
+## @deftypefn {Command} pkg @var{command} @var{pkg_name}
+## @deftypefnx {Command} pkg @var{command} @var{option} @var{pkg_name}
+## This command interacts with the package manager. Different actions will
+## be taken depending on the value of @var{command}.
+##
+## @table @samp
+## @item install
+## Install named packages. For example,
+## @example
+## pkg install image-1.0.0.tar.gz
+## @end example
+## @noindent
+## installs the package found in the file @file{image-1.0.0.tar.gz}.
+##
+## The @var{option} variable can contain options that affect the manner
+## in which a package is installed. These options can be one or more of
+##
+## @table @code
+## @item -nodeps
+## The package manager will disable the dependency checking. That way it
+## is possible to install a package even if it depends on another package
+## that's not installed on the system. @strong{Use this option with care.}
+##
+## @item -noauto
+## The package manager will not automatically load the installed package
+## when starting Octave, even if the package requests that it is.
+##
+## @item -auto
+## The package manager will automatically load the installed package when
+## starting Octave, even if the package requests that it isn't.
+##
+## @item -local
+## A local installation is forced, even if the user has system privileges.
+##
+## @item -global
+## A global installation is forced, even if the user doesn't normally have
+## system privileges
+##
+## @item -verbose
+## The package manager will print the output of all of the commands that are
+## performed.
+## @end table
+##
+## @item uninstall
+## Uninstall named packages. For example,
+## @example
+## pkg uninstall image
+## @end example
+## @noindent
+## removes the @code{image} package from the system. If another installed
+## package depends on the @code{image} package an error will be issued.
+## The package can be uninstalled anyway by using the @code{-nodeps} option.
+## @item load
+## Add named packages to the path. After loading a package it is
+## possible to use the functions provided by the package. For example,
+## @example
+## pkg load image
+## @end example
+## @noindent
+## adds the @code{image} package to the path. It is possible to load all
+## installed packages at once with the command
+## @example
+## pkg load all
+## @end example
+## @item unload
+## Removes named packages from the path. After unloading a package it is
+## no longer possible to use the functions provided by the package.
+## This command behaves like the @code{load} command.
+## @item list
+## Show a list of the currently installed packages. By requesting one or two
+## output argument it is possible to get a list of the currently installed
+## packages. For example,
+## @example
+## installed_packages = pkg list;
+## @end example
+## @noindent
+## returns a cell array containing a structure for each installed package.
+## The command
+## @example
+## [@var{user_packages}, @var{system_packages}] = pkg list
+## @end example
+## @noindent
+## splits the list of installed packages into those who are installed by
+## the current user, and those installed by the system administrator.
+## @item describe
+## Show a short description of the named installed packages, with the option
+## '-verbose' also list functions provided by the package, e.g.:
+## @example
+## pkg describe -verbose all
+## @end example
+## @noindent
+## will describe all installed packages and the functions they provide.
+## If one output is requested a cell of structure containing the
+## description and list of functions of each package is returned as
+## output rather than printed on screen:
+## @example
+## desc = pkg ("describe", "secs1d", "image")
+## @end example
+## @noindent
+## If any of the requested packages is not installed, pkg returns an
+## error, unless a second output is requested:
+## @example
+## [ desc, flag] = pkg ("describe", "secs1d", "image")
+## @end example
+## @noindent
+## @var{flag} will take one of the values "Not installed", "Loaded" or
+## "Not loaded" for each of the named packages.
+## @item prefix
+## Set the installation prefix directory. For example,
+## @example
+## pkg prefix ~/my_octave_packages
+## @end example
+## @noindent
+## sets the installation prefix to @file{~/my_octave_packages}.
+## Packages will be installed in this directory.
+##
+## It is possible to get the current installation prefix by requesting an
+## output argument. For example,
+## @example
+## p = pkg prefix
+## @end example
+##
+## The location in which to install the architecture dependent files can be
+## independent specified with an addition argument. For example
+##
+## @example
+## pkg prefix ~/my_octave_packages ~/my_arch_dep_pkgs
+## @end example
+## @item local_list
+## Set the file in which to look for information on the locally
+## installed packages. Locally installed packages are those that are
+## typically available only to the current user. For example
+## @example
+## pkg local_list ~/.octave_packages
+## @end example
+## It is possible to get the current value of local_list with the following
+## @example
+## pkg local_list
+## @end example
+## @item global_list
+## Set the file in which to look for, for information on the globally
+## installed packages. Globally installed packages are those that are
+## typically available to all users. For example
+## @example
+## pkg global_list /usr/share/octave/octave_packages
+## @end example
+## It is possible to get the current value of global_list with the following
+## @example
+## pkg global_list
+## @end example
+## @item rebuild
+## Rebuilds the package database from the installed directories. This can
+## be used in cases where for some reason the package database is corrupted.
+## It can also take the @code{-auto} and @code{-noauto} options to allow the
+## autoloading state of a package to be changed. For example
+##
+## @example
+## pkg rebuild -noauto image
+## @end example
+##
+## will remove the autoloading status of the image package.
+## @item build
+## Builds a binary form of a package or packages. The binary file produced
+## will itself be an Octave package that can be installed normally with
+## @code{pkg}. The form of the command to build a binary package is
+##
+## @example
+## pkg build builddir image-1.0.0.tar.gz @dots{}
+## @end example
+##
+## @noindent
+## where @code{builddir} is the name of a directory where the temporary
+## installation will be produced and the binary packages will be found.
+## The options @code{-verbose} and @code{-nodeps} are respected, while
+## the other options are ignored.
+## @end table
+## @end deftypefn
+
+function [local_packages, global_packages] = pkg (varargin)
+ ## Installation prefix (FIXME: what should these be on windows?)
+ persistent user_prefix = false;
+ persistent prefix = -1;
+ persistent archprefix = -1;
+ persistent local_list = tilde_expand (fullfile ("~", ".octave_packages"));
+ persistent global_list = fullfile (OCTAVE_HOME (), "share", "octave",
+ "octave_packages");
+ mlock ();
+
+ global_install = issuperuser ();
+
+ if (prefix == -1)
+ if (global_install)
+ prefix = fullfile (OCTAVE_HOME (), "share", "octave", "packages");
+ archprefix = fullfile (octave_config_info ("libexecdir"),
+ "octave", "packages");
+ else
+ prefix = fullfile ("~", "octave");
+ archprefix = prefix;
+ endif
+ prefix = tilde_expand (prefix);
+ archprefix = tilde_expand (archprefix);
+ endif
+
+ available_actions = {"list", "install", "uninstall", "load", ...
+ "unload", "prefix", "local_list", ...
+ "global_list", "rebuild", "build","describe"};
+ ## Handle input
+ if (length (varargin) == 0 || ! iscellstr (varargin))
+ print_usage ();
+ endif
+ files = {};
+ deps = true;
+ auto = 0;
+ action = "none";
+ verbose = false;
+ for i = 1:length (varargin)
+ switch (varargin{i})
+ case "-nodeps"
+ deps = false;
+ case "-noauto"
+ auto = -1;
+ case "-auto"
+ auto = 1;
+ case "-verbose"
+ verbose = true;
+ case "-local"
+ global_install = false;
+ if (! user_prefix)
+ prefix = tilde_expand (fullfile ("~", "octave"));
+ archprefix = prefix;
+ endif
+ case "-global"
+ global_install = true;
+ if (! user_prefix)
+ prefix = fullfile (OCTAVE_HOME (), "share", "octave", "packages");
+ archprefix = fullfile (octave_config_info ("libexecdir"),
+ "octave", "packages");
+ endif
+ case available_actions
+ if (strcmp (action, "none"))
+ action = varargin{i};
+ else
+ error ("more than one action specified");
+ endif
+ otherwise
+ files{end+1} = varargin{i};
+ endswitch
+ endfor
+
+ ## Take action
+ switch (action)
+ case "list"
+ if (nargout == 0)
+ installed_packages (local_list, global_list);
+ elseif (nargout == 1)
+ local_packages = installed_packages (local_list, global_list);
+ elseif (nargout == 2)
+ [local_packages, global_packages] = installed_packages (local_list,
+ global_list);
+ else
+ error ("too many output arguments requested");
+ endif
+
+ case "install"
+ if (length (files) == 0)
+ error ("you must specify at least one filename when calling 'pkg install'");
+ endif
+ install (files, deps, auto, prefix, archprefix, verbose, local_list,
+ global_list, global_install);
+
+ case "uninstall"
+ if (length (files) == 0)
+ error ("you must specify at least one package when calling 'pkg uninstall'");
+ endif
+ uninstall (files, deps, verbose, local_list,
+ global_list, global_install);
+
+ case "load"
+ if (length (files) == 0)
+ error ("you must specify at least one package, 'all' or 'auto' when calling 'pkg load'");
+ endif
+ load_packages (files, deps, local_list, global_list);
+
+ case "unload"
+ if (length (files) == 0)
+ error ("you must specify at least one package or 'all' when calling 'pkg unload'");
+ endif
+ unload_packages (files, deps, local_list, global_list);
+
+ case "prefix"
+ if (length (files) == 0 && nargout == 0)
+ printf ("Installation prefix: %s\n", prefix);
+ printf ("Architecture dependent prefix: %s\n", archprefix);
+ elseif (length (files) == 0 && nargout >= 1)
+ local_packages = prefix;
+ global_packages = archprefix;
+ elseif (length (files) >= 1 && nargout <= 2 && ischar (files{1}))
+ prefix = files{1};
+ prefix = absolute_pathname (prefix);
+ local_packages = prefix;
+ user_prefix = true;
+ if (length (files) >= 2 && ischar (files{2}))
+ archprefix = files{2};
+ try
+ archprefix = absolute_pathname (archprefix);
+ catch
+ mkdir (archprefix);
+ warning ("creating the directory %s\n", archprefix);
+ archprefix = absolute_pathname (archprefix);
+ end_try_catch
+ global_packages = archprefix;
+ endif
+ else
+ error ("you must specify a prefix directory, or request an output argument");
+ endif
+
+ case "local_list"
+ if (length (files) == 0 && nargout == 0)
+ disp (local_list);
+ elseif (length (files) == 0 && nargout == 1)
+ local_packages = local_list;
+ elseif (length (files) == 1 && nargout == 0 && ischar (files{1}))
+ try
+ local_list = absolute_pathname (files{1});
+ catch
+ ## Force file to be created
+ fclose (fopen (files{1}, "wt"));
+ local_list = absolute_pathname (files{1});
+ end_try_catch
+ else
+ error ("you must specify a local_list file, or request an output argument");
+ endif
+
+ case "global_list"
+ if (length (files) == 0 && nargout == 0)
+ disp(global_list);
+ elseif (length (files) == 0 && nargout == 1)
+ local_packages = global_list;
+ elseif (length (files) == 1 && nargout == 0 && ischar (files{1}))
+ try
+ global_list = absolute_pathname (files{1});
+ catch
+ ## Force file to be created
+ fclose (fopen (files{1}, "wt"));
+ global_list = absolute_pathname (files{1});
+ end_try_catch
+ else
+ error ("you must specify a global_list file, or request an output argument");
+ endif
+
+ case "rebuild"
+ if (global_install)
+ global_packages = rebuild (prefix, archprefix, global_list, files,
+ auto, verbose);
+ global_packages = save_order (global_packages);
+ save (global_list, "global_packages");
+ if (nargout > 0)
+ local_packages = global_packages;
+ endif
+ else
+ local_packages = rebuild (prefix, archprefix, local_list, files, auto,
+ verbose);
+ local_packages = save_order (local_packages);
+ save (local_list, "local_packages");
+ if (nargout == 0)
+ clear ("local_packages");
+ endif
+ endif
+
+ case "build"
+ if (length (files) < 2)
+ error ("you must specify at least the build directory and one filename\nwhen calling 'pkg build'");
+ endif
+ build (files, deps, auto, verbose);
+
+ case "describe"
+ if (length (files) == 0)
+ error ("you must specify at least one package or 'all' when calling 'pkg describe'");
+ endif
+ ## FIXME: the name of the output variables is inconsistent
+ ## with their content
+ switch (nargout)
+ case 0
+ describe (files, verbose, local_list, global_list);
+ case 1
+ pkg_desc_list = describe (files, verbose, local_list, ...
+ global_list);
+ local_packages = pkg_desc_list;
+ case 2
+ [pkg_desc_list, flag] = describe (files, verbose, local_list, ...
+ global_list);
+ local_packages = pkg_desc_list;
+ global_packages = flag;
+ otherwise
+ error ("you can request at most two outputs when calling 'pkg describe'");
+ endswitch
+
+ otherwise
+ error ("you must specify a valid action for 'pkg'. See 'help pkg' for details");
+ endswitch
+endfunction
+
+function descriptions = rebuild (prefix, archprefix, list, files, auto, verbose)
+ if (isempty (files))
+ [dirlist, err, msg] = readdir (prefix);
+ if (err)
+ error ("couldn't read directory %s: %s", prefix, msg);
+ endif
+ ## the two first entries of dirlist are "." and ".."
+ dirlist([1,2]) = [];
+ else
+ old_descriptions = installed_packages (list, list);
+ wd = pwd ();
+ unwind_protect
+ cd (prefix);
+ dirlist = glob (cellfun(@(x) cstrcat(x, '-*'), files, 'UniformOutput', 0));
+ unwind_protect_cleanup
+ cd (wd);
+ end_unwind_protect
+ endif
+ descriptions = {};
+ for k = 1:length (dirlist)
+ descfile = fullfile (prefix, dirlist{k}, "packinfo", "DESCRIPTION");
+ if (verbose)
+ printf ("recreating package description from %s\n", dirlist{k});
+ endif
+ if (exist (descfile, "file"))
+ desc = get_description (descfile);
+ desc.dir = fullfile (prefix, dirlist{k});
+ desc.archprefix = fullfile (archprefix, cstrcat (desc.name, "-",
+ desc.version));
+ if (auto != 0)
+ if (exist (fullfile (desc.dir, "packinfo", ".autoload"), "file"))
+ unlink (fullfile (desc.dir, "packinfo", ".autoload"));
+ endif
+ if (auto < 0)
+ desc.autoload = 0;
+ elseif (auto > 0)
+ desc.autoload = 1;
+ fclose (fopen (fullfile (desc.dir, "packinfo", ".autoload"), "wt"));
+ endif
+ else
+ if (exist (fullfile (desc.dir, "packinfo", ".autoload"), "file"))
+ desc.autoload = 1;
+ else
+ desc.autoload = 0;
+ endif
+ endif
+ descriptions{end + 1} = desc;
+ elseif (verbose)
+ warning ("directory %s is not a valid package", dirlist{k});
+ endif
+ endfor
+
+ if (! isempty (files))
+ ## We are rebuilding for a particular package(s) so we should take
+ ## care to keep the other untouched packages in the descriptions
+ descriptions = {descriptions{:}, old_descriptions{:}};
+
+ dup = [];
+ for i = 1:length (descriptions)
+ if (find (dup, i))
+ continue;
+ endif
+ for j = (i+1):length (descriptions)
+ if (find (dup, j))
+ continue;
+ endif
+ if (strcmp (descriptions{i}.name, descriptions{j}.name))
+ dup = [dup, j];
+ endif
+ endfor
+ endfor
+ if (! isempty (dup))
+ descriptions (dup) = [];
+ endif
+ endif
+endfunction
+
+function build (files, handle_deps, autoload, verbose)
+ if (length (files) < 1)
+ error ("insufficient number of files");
+ endif
+ builddir = files{1};
+ if (! exist (builddir, "dir"))
+ warning ("creating build directory %s", builddir);
+ [status, msg] = mkdir (builddir);
+ if (status != 1)
+ error ("could not create installation directory: %s", msg);
+ endif
+ endif
+ builddir = absolute_pathname (builddir);
+ installdir = fullfile (builddir, "install");
+ if (! exist (installdir, "dir"))
+ [status, msg] = mkdir (installdir);
+ if (status != 1)
+ error ("could not create installation directory: %s", msg);
+ endif
+ endif
+ files(1) = [];
+ buildlist = fullfile (builddir, "octave_packages");
+ install (files, handle_deps, autoload, installdir, installdir, verbose,
+ buildlist, "", false);
+ unwind_protect
+ repackage (builddir, buildlist);
+ unwind_protect_cleanup
+ unload_packages ({"all"}, handle_deps, buildlist, "");
+ if (exist (installdir, "dir"))
+ rm_rf (installdir);
+ endif
+ if (exist (buildlist, "file"))
+ unlink (buildlist);
+ endif
+ end_unwind_protect
+endfunction
+
+function install (files, handle_deps, autoload, prefix, archprefix, verbose,
+ local_list, global_list, global_install)
+
+ ## Check that the directory in prefix exist. If it doesn't: create it!
+ if (! exist (prefix, "dir"))
+ warning ("creating installation directory %s", prefix);
+ [status, msg] = mkdir (prefix);
+ if (status != 1)
+ error ("could not create installation directory: %s", msg);
+ endif
+ endif
+
+ ## Get the list of installed packages.
+ [local_packages, global_packages] = installed_packages (local_list,
+ global_list);
+
+ installed_pkgs_lst = {local_packages{:}, global_packages{:}};
+
+ if (global_install)
+ packages = global_packages;
+ else
+ packages = local_packages;
+ endif
+
+ ## Uncompress the packages and read the DESCRIPTION files.
+ tmpdirs = packdirs = descriptions = {};
+ try
+ ## Warn about non existent files.
+ for i = 1:length (files)
+ if (isempty (glob(files{i})))
+ warning ("file %s does not exist", files{i});
+ endif
+ endfor
+
+ ## Unpack the package files and read the DESCRIPTION files.
+ files = glob (files);
+ packages_to_uninstall = [];
+ for i = 1:length (files)
+ tgz = files{i};
+
+ if (exist (tgz, "file"))
+ ## Create a temporary directory.
+ tmpdir = tmpnam ();
+ tmpdirs{end+1} = tmpdir;
+ if (verbose)
+ printf ("mkdir (%s)\n", tmpdir);
+ endif
+ [status, msg] = mkdir (tmpdir);
+ if (status != 1)
+ error ("couldn't create temporary directory: %s", msg);
+ endif
+
+ ## Uncompress the package.
+ if (verbose)
+ printf ("untar (%s, %s)\n", tgz, tmpdir);
+ endif
+ untar (tgz, tmpdir);
+
+ ## Get the name of the directories produced by tar.
+ [dirlist, err, msg] = readdir (tmpdir);
+ if (err)
+ error ("couldn't read directory produced by tar: %s", msg);
+ endif
+
+ if (length (dirlist) > 3)
+ error ("bundles of packages are not allowed")
+ endif
+ endif
+
+ ## The filename pointed to an uncompressed package to begin with.
+ if (exist (tgz, "dir"))
+ dirlist = {".", "..", tgz};
+ endif
+
+ if (exist (tgz, "file") || exist (tgz, "dir"))
+ ## The two first entries of dirlist are "." and "..".
+ if (exist (tgz, "file"))
+ packdir = fullfile (tmpdir, dirlist{3});
+ else
+ packdir = fullfile (pwd(), dirlist{3});
+ endif
+ packdirs{end+1} = packdir;
+
+ ## Make sure the package contains necessary files.
+ verify_directory (packdir);
+
+ ## Read the DESCRIPTION file.
+ filename = fullfile (packdir, "DESCRIPTION");
+ desc = get_description (filename);
+
+ ## Verify that package name corresponds with filename.
+ [dummy, nm] = fileparts (tgz);
+ if ((length (nm) >= length (desc.name))
+ && ! strcmp (desc.name, nm(1:length(desc.name))))
+ error ("package name '%s' doesn't correspond to its filename '%s'",
+ desc.name, nm);
+ endif
+
+ ## Set default installation directory.
+ desc.dir = fullfile (prefix, cstrcat (desc.name, "-", desc.version));
+
+ ## Set default architecture dependent installation directory.
+ desc.archprefix = fullfile (archprefix, cstrcat (desc.name, "-",
+ desc.version));
+
+ ## Save desc.
+ descriptions{end+1} = desc;
+
+ ## Are any of the new packages already installed?
+ ## If so we'll remove the old version.
+ for j = 1:length (packages)
+ if (strcmp (packages{j}.name, desc.name))
+ packages_to_uninstall(end+1) = j;
+ endif
+ endfor
+ endif
+ endfor
+ catch
+ ## Something went wrong, delete tmpdirs.
+ for i = 1:length (tmpdirs)
+ rm_rf (tmpdirs{i});
+ endfor
+ rethrow (lasterror ());
+ end_try_catch
+
+ ## Check dependencies.
+ if (handle_deps)
+ ok = true;
+ error_text = "";
+ for i = 1:length (descriptions)
+ desc = descriptions{i};
+ idx2 = complement (i, 1:length(descriptions));
+ if (global_install)
+ ## Global installation is not allowed to have dependencies on locally
+ ## installed packages.
+ idx1 = complement (packages_to_uninstall,
+ 1:length(global_packages));
+ pseudo_installed_packages = {global_packages{idx1}, ...
+ descriptions{idx2}};
+ else
+ idx1 = complement (packages_to_uninstall,
+ 1:length(local_packages));
+ pseudo_installed_packages = {local_packages{idx1}, ...
+ global_packages{:}, ...
+ descriptions{idx2}};
+ endif
+ bad_deps = get_unsatisfied_deps (desc, pseudo_installed_packages);
+ ## Are there any unsatisfied dependencies?
+ if (! isempty (bad_deps))
+ ok = false;
+ for i = 1:length (bad_deps)
+ dep = bad_deps{i};
+ error_text = cstrcat (error_text, " ", desc.name, " needs ",
+ dep.package, " ", dep.operator, " ",
+ dep.version, "\n");
+ endfor
+ endif
+ endfor
+
+ ## Did we find any unsatisfied dependencies?
+ if (! ok)
+ error ("the following dependencies where unsatisfied:\n %s", error_text);
+ endif
+ endif
+
+ ## Prepare each package for installation.
+ try
+ for i = 1:length (descriptions)
+ desc = descriptions{i};
+ pdir = packdirs{i};
+ prepare_installation (desc, pdir);
+ configure_make (desc, pdir, verbose);
+ endfor
+ catch
+ ## Something went wrong, delete tmpdirs.
+ for i = 1:length (tmpdirs)
+ rm_rf (tmpdirs{i});
+ endfor
+ rethrow (lasterror ());
+ end_try_catch
+
+ ## Uninstall the packages that will be replaced.
+ try
+ for i = packages_to_uninstall
+ if (global_install)
+ uninstall ({global_packages{i}.name}, false, verbose, local_list,
+ global_list, global_install);
+ else
+ uninstall ({local_packages{i}.name}, false, verbose, local_list,
+ global_list, global_install);
+ endif
+ endfor
+ catch
+ ## Something went wrong, delete tmpdirs.
+ for i = 1:length (tmpdirs)
+ rm_rf (tmpdirs{i});
+ endfor
+ rethrow (lasterror ());
+ end_try_catch
+
+ ## Install each package.
+ try
+ for i = 1:length (descriptions)
+ desc = descriptions{i};
+ pdir = packdirs{i};
+ copy_files (desc, pdir, global_install);
+ create_pkgadddel (desc, pdir, "PKG_ADD", global_install);
+ create_pkgadddel (desc, pdir, "PKG_DEL", global_install);
+ finish_installation (desc, pdir, global_install);
+ generate_lookfor_cache (desc);
+ endfor
+ catch
+ ## Something went wrong, delete tmpdirs.
+ for i = 1:length (tmpdirs)
+ rm_rf (tmpdirs{i});
+ endfor
+ for i = 1:length (descriptions)
+ rm_rf (descriptions{i}.dir);
+ rm_rf (getarchdir (descriptions{i}));
+ endfor
+ rethrow (lasterror ());
+ end_try_catch
+
+ ## Check if the installed directory is empty. If it is remove it
+ ## from the list.
+ for i = length (descriptions):-1:1
+ if (dirempty (descriptions{i}.dir, {"packinfo", "doc"}) &&
+ dirempty (getarchdir (descriptions{i})))
+ warning ("package %s is empty\n", descriptions{i}.name);
+ rm_rf (descriptions{i}.dir);
+ rm_rf (getarchdir (descriptions{i}));
+ descriptions(i) = [];
+ endif
+ endfor
+
+ ## If the package requested that it is autoloaded, or the installer
+ ## requested that it is, then mark the package as autoloaded.
+ for i = length (descriptions):-1:1
+ if (autoload > 0 || (autoload == 0 && isautoload (descriptions(i))))
+ fclose (fopen (fullfile (descriptions{i}.dir, "packinfo",
+ ".autoload"), "wt"));
+ descriptions{i}.autoload = 1;
+ endif
+ endfor
+
+ ## Add the packages to the package list.
+ try
+ if (global_install)
+ idx = complement (packages_to_uninstall, 1:length(global_packages));
+ global_packages = save_order ({global_packages{idx}, descriptions{:}});
+ save (global_list, "global_packages");
+ installed_pkgs_lst = {local_packages{:}, global_packages{:}};
+ else
+ idx = complement (packages_to_uninstall, 1:length(local_packages));
+ local_packages = save_order ({local_packages{idx}, descriptions{:}});
+ save (local_list, "local_packages");
+ installed_pkgs_lst = {local_packages{:}, global_packages{:}};
+ endif
+ catch
+ ## Something went wrong, delete tmpdirs.
+ for i = 1:length (tmpdirs)
+ rm_rf (tmpdirs{i});
+ endfor
+ for i = 1:length (descriptions)
+ rm_rf (descriptions{i}.dir);
+ endfor
+ if (global_install)
+ printf ("error: couldn't append to %s\n", global_list);
+ else
+ printf ("error: couldn't append to %s\n", local_list);
+ endif
+ rethrow (lasterror ());
+ end_try_catch
+
+ ## All is well, let's clean up.
+ for i = 1:length (tmpdirs)
+ [status, msg] = rm_rf (tmpdirs{i});
+ if (status != 1)
+ warning ("couldn't clean up after my self: %s\n", msg);
+ endif
+ endfor
+
+ ## Add the newly installed packages to the path, so the user
+ ## can begin using them. Only load them if they are marked autoload.
+ if (length (descriptions) > 0)
+ idx = [];
+ for i = 1:length (descriptions)
+ if (isautoload (descriptions(i)))
+ nm = descriptions{i}.name;
+ for j = 1:length (installed_pkgs_lst)
+ if (strcmp (nm, installed_pkgs_lst{j}.name))
+ idx (end + 1) = j;
+ break;
+ endif
+ endfor
+ endif
+ endfor
+ load_packages_and_dependencies (idx, handle_deps, installed_pkgs_lst,
+ global_install);
+ endif
+endfunction
+
+function uninstall (pkgnames, handle_deps, verbose, local_list,
+ global_list, global_install)
+ ## Get the list of installed packages.
+ [local_packages, global_packages] = installed_packages(local_list,
+ global_list);
+ if (global_install)
+ installed_pkgs_lst = {local_packages{:}, global_packages{:}};
+ else
+ installed_pkgs_lst = local_packages;
+ endif
+
+ num_packages = length (installed_pkgs_lst);
+ delete_idx = [];
+ for i = 1:num_packages
+ cur_name = installed_pkgs_lst{i}.name;
+ if (any (strcmp (cur_name, pkgnames)))
+ delete_idx(end+1) = i;
+ endif
+ endfor
+
+ ## Are all the packages that should be uninstalled already installed?
+ if (length (delete_idx) != length (pkgnames))
+ if (global_install)
+ ## Try again for a locally installed package.
+ installed_pkgs_lst = local_packages;
+
+ num_packages = length (installed_pkgs_lst);
+ delete_idx = [];
+ for i = 1:num_packages
+ cur_name = installed_pkgs_lst{i}.name;
+ if (any (strcmp (cur_name, pkgnames)))
+ delete_idx(end+1) = i;
+ endif
+ endfor
+ if (length (delete_idx) != length (pkgnames))
+ ## FIXME: We should have a better error message.
+ warning ("some of the packages you want to uninstall are not installed");
+ endif
+ else
+ ## FIXME: We should have a better error message.
+ warning ("some of the packages you want to uninstall are not installed");
+ endif
+ endif
+
+ ## Compute the packages that will remain installed.
+ idx = complement (delete_idx, 1:num_packages);
+ remaining_packages = {installed_pkgs_lst{idx}};
+
+ ## Check dependencies.
+ if (handle_deps)
+ error_text = "";
+ for i = 1:length (remaining_packages)
+ desc = remaining_packages{i};
+ bad_deps = get_unsatisfied_deps (desc, remaining_packages);
+
+ ## Will the uninstallation break any dependencies?
+ if (! isempty (bad_deps))
+ for i = 1:length (bad_deps)
+ dep = bad_deps{i};
+ error_text = cstrcat (error_text, " ", desc.name, " needs ",
+ dep.package, " ", dep.operator, " ",
+ dep.version, "\n");
+ endfor
+ endif
+ endfor
+
+ if (! isempty (error_text))
+ error ("the following dependencies where unsatisfied:\n %s", error_text);
+ endif
+ endif
+
+ ## Delete the directories containing the packages.
+ for i = delete_idx
+ desc = installed_pkgs_lst{i};
+ ## If an 'on_uninstall.m' exist, call it!
+ if (exist (fullfile (desc.dir, "packinfo", "on_uninstall.m"), "file"))
+ wd = pwd ();
+ cd (fullfile (desc.dir, "packinfo"));
+ on_uninstall (desc);
+ cd (wd);
+ endif
+ ## Do the actual deletion.
+ if (desc.loaded)
+ rmpath (desc.dir);
+ if (exist (getarchdir (desc)))
+ rmpath (getarchdir (desc));
+ endif
+ endif
+ if (exist (desc.dir, "dir"))
+ [status, msg] = rm_rf (desc.dir);
+ if (status != 1)
+ error ("couldn't delete directory %s: %s", desc.dir, msg);
+ endif
+ [status, msg] = rm_rf (getarchdir (desc));
+ if (status != 1)
+ error ("couldn't delete directory %s: %s", getarchdir (desc), msg);
+ endif
+ if (dirempty (desc.archprefix))
+ rm_rf (desc.archprefix);
+ endif
+ else
+ warning ("directory %s previously lost", desc.dir);
+ endif
+ endfor
+
+ ## Write a new ~/.octave_packages.
+ if (global_install)
+ if (length (remaining_packages) == 0)
+ unlink (global_list);
+ else
+ global_packages = save_order (remaining_packages);
+ save (global_list, "global_packages");
+ endif
+ else
+ if (length (remaining_packages) == 0)
+ unlink (local_list);
+ else
+ local_packages = save_order (remaining_packages);
+ save (local_list, "local_packages");
+ endif
+ endif
+
+endfunction
+
+function [pkg_desc_list, flag] = describe (pkgnames, verbose,
+ local_list, global_list)
+
+ ## Get the list of installed packages.
+ installed_pkgs_lst = installed_packages(local_list, global_list);
+ num_packages = length (installed_pkgs_lst);
+
+
+ describe_all = false;
+ if (any (strcmp ("all", pkgnames)))
+ describe_all = true;
+ flag(1:num_packages) = {"Not Loaded"};
+ num_pkgnames = num_packages;
+ else
+ num_pkgnames = length (pkgnames);
+ flag(1:num_pkgnames) = {"Not installed"};
+ endif
+
+ for i = 1:num_packages
+ curr_name = installed_pkgs_lst{i}.name;
+ if (describe_all)
+ name_pos = i;
+ else
+ name_pos = find(strcmp (curr_name, pkgnames));
+ endif
+
+ if (! isempty (name_pos))
+ if (installed_pkgs_lst{i}.loaded)
+ flag{name_pos} = "Loaded";
+ else
+ flag{name_pos} = "Not loaded";
+ endif
+
+ pkg_desc_list{name_pos}.name = installed_pkgs_lst{i}.name;
+ pkg_desc_list{name_pos}.version = installed_pkgs_lst{i}.version;
+ pkg_desc_list{name_pos}.description = installed_pkgs_lst{i}.description;
+ pkg_desc_list{name_pos}.provides = parse_pkg_idx (installed_pkgs_lst{i}.dir);
+
+ endif
+ endfor
+
+ non_inst = find (strcmp (flag, "Not installed"));
+ if (! isempty (non_inst))
+ if (nargout < 2)
+ non_inst_str = sprintf (" %s ", pkgnames{non_inst});
+ error ("some packages are not installed: %s", non_inst_str);
+ else
+ pkg_desc_list{non_inst} = struct ("name", {}, "description",
+ {}, "provides", {});
+ endif
+ endif
+
+ if (nargout == 0)
+ for i = 1:num_pkgnames
+ print_package_description (pkg_desc_list{i}.name,
+ pkg_desc_list{i}.version,
+ pkg_desc_list{i}.provides,
+ pkg_desc_list{i}.description,
+ flag{i}, verbose);
+ endfor
+ endif
+
+endfunction
+
+## AUXILIARY FUNCTIONS
+
+## Read an INDEX file.
+function [pkg_idx_struct] = parse_pkg_idx (packdir)
+
+ index_file = fullfile (packdir, "packinfo", "INDEX");
+
+ if (! exist (index_file, "file"))
+ error ("could not find any INDEX file in directory %s, try 'pkg rebuild all' to generate missing INDEX files", packdir);
+ endif
+
+
+ [fid, msg] = fopen (index_file, "r");
+ if (fid == -1)
+ error ("the INDEX file %s could not be read: %s",
+ index_file, msg);
+ endif
+
+ cat_num = 1;
+ pkg_idx_struct{1}.category = "Uncategorized";
+ pkg_idx_struct{1}.functions = {};
+
+ line = fgetl (fid);
+ while (isempty (strfind (line, ">>")) && ! feof (fid))
+ line = fgetl (fid);
+ endwhile
+
+ while (! feof (fid) || line != -1)
+ if (! any (! isspace (line)) || line(1) == "#" || any (line == "="))
+ ## Comments, blank lines or comments about unimplemented
+ ## functions: do nothing
+ ## FIXME: probably comments and pointers to external functions
+ ## could be treated better when printing to screen?
+ elseif (! isempty (strfind (line, ">>")))
+ ## Skip package name and description as they are in DESCRIPTION
+ ## already.
+ elseif (! isspace (line(1)))
+ ## Category.
+ if (! isempty (pkg_idx_struct{cat_num}.functions))
+ pkg_idx_struct{++cat_num}.functions = {};
+ endif
+ pkg_idx_struct{cat_num}.category = deblank (line);
+ else
+ ## Function names.
+ while (any (! isspace (line)))
+ [fun_name, line] = strtok (line);
+ pkg_idx_struct{cat_num}.functions{end+1} = deblank (fun_name);
+ endwhile
+ endif
+ line = fgetl (fid);
+ endwhile
+ fclose (fid);
+endfunction
+
+function print_package_description (pkg_name, pkg_ver, pkg_idx_struct,
+ pkg_desc, status, verbose)
+
+ printf ("---\nPackage name:\n\t%s\n", pkg_name);
+ printf ("Version:\n\t%s\n", pkg_ver);
+ printf ("Short description:\n\t%s\n", pkg_desc);
+ printf ("Status:\n\t%s\n", status);
+ if (verbose)
+ printf ("---\nProvides:\n");
+ for i = 1:length(pkg_idx_struct)
+ if (! isempty (pkg_idx_struct{i}.functions))
+ printf ("%s\n", pkg_idx_struct{i}.category);
+ for j = 1:length(pkg_idx_struct{i}.functions)
+ printf ("\t%s\n", pkg_idx_struct{i}.functions{j});
+ endfor
+ endif
+ endfor
+ endif
+
+endfunction
+
+
+function pth = absolute_pathname (pth)
+ [status, msg, msgid] = fileattrib (pth);
+ if (status != 1)
+ error ("could not find the file or path %s", pth);
+ else
+ pth = msg.Name;
+ endif
+endfunction
+
+function repackage (builddir, buildlist)
+ packages = installed_packages (buildlist, buildlist);
+
+ wd = pwd();
+ for i = 1 : length(packages)
+ pack = packages{i};
+ unwind_protect
+ cd (builddir);
+ mkdir (pack.name);
+ mkdir (fullfile (pack.name, "inst"));
+ copyfile (fullfile (pack.dir, "*"), fullfile (pack.name, "inst"));
+ movefile (fullfile (pack.name, "inst","packinfo", "*"), pack.name);
+ if (exist (fullfile (pack.name, "inst","packinfo", ".autoload"), "file"))
+ unlink (fullfile (pack.name, "inst","packinfo", ".autoload"));
+ endif
+ rmdir (fullfile (pack.name, "inst", "packinfo"));
+ if (exist (fullfile (pack.name, "inst", "doc"), "dir"))
+ movefile (fullfile (pack.name, "inst", "doc"), pack.name);
+ endif
+ if (exist (fullfile (pack.name, "inst", "bin"), "dir"))
+ movefile (fullfile (pack.name, "inst", "bin"), pack.name);
+ endif
+ archdir = fullfile (pack.archprefix, cstrcat (pack.name, "-",
+ pack.version), getarch ());
+ if (exist (archdir, "dir"))
+ if (exist (fullfile (pack.name, "inst", "PKG_ADD"), "file"))
+ unlink (fullfile (pack.name, "inst", "PKG_ADD"));
+ endif
+ if (exist (fullfile (pack.name, "inst", "PKG_DEL"), "file"))
+ unlink (fullfile (pack.name, "inst", "PKG_DEL"));
+ endif
+ if (exist (fullfile (archdir, "PKG_ADD"), "file"))
+ movefile (fullfile (archdir, "PKG_ADD"),
+ fullfile (pack.name, "PKG_ADD"));
+ endif
+ if (exist (fullfile (archdir, "PKG_DEL"), "file"))
+ movefile (fullfile (archdir, "PKG_DEL"),
+ fullfile (pack.name, "PKG_DEL"));
+ endif
+ else
+ if (exist (fullfile (pack.name, "inst", "PKG_ADD"), "file"))
+ movefile (fullfile (pack.name, "inst", "PKG_ADD"),
+ fullfile (pack.name, "PKG_ADD"));
+ endif
+ if (exist (fullfile (pack.name, "inst", "PKG_DEL"), "file"))
+ movefile (fullfile (pack.name, "inst", "PKG_DEL"),
+ fullfile (pack.name, "PKG_DEL"));
+ endif
+ endif
+ tfile = cstrcat (pack.name, "-", pack.version, ".tar");
+ tar (tfile, pack.name);
+ try
+ gzip (tfile);
+ unlink (tfile);
+ catch
+ warning ("failed to compress %s", tfile);
+ end_try_catch
+ unwind_protect_cleanup
+ if (exist (pack.name, "dir"))
+ rm_rf (pack.name);
+ endif
+ cd (wd);
+ end_unwind_protect
+ endfor
+endfunction
+
+function auto = isautoload (desc)
+ auto = false;
+ if (isfield (desc{1}, "autoload"))
+ a = desc{1}.autoload;
+ if ((isnumeric (a) && a > 0)
+ || (ischar (a) && (strcmpi (a, "true")
+ || strcmpi (a, "on")
+ || strcmpi (a, "yes")
+ || strcmpi (a, "1"))))
+ auto = true;
+ endif
+ endif
+endfunction
+
+function prepare_installation (desc, packdir)
+ ## Is there a pre_install to call?
+ if (exist (fullfile (packdir, "pre_install.m"), "file"))
+ wd = pwd ();
+ try
+ cd (packdir);
+ pre_install (desc);
+ cd (wd);
+ catch
+ cd (wd);
+ rethrow (lasterror ());
+ end_try_catch
+ endif
+
+ ## If the directory "inst" doesn't exist, we create it.
+ inst_dir = fullfile (packdir, "inst");
+ if (! exist (inst_dir, "dir"))
+ [status, msg] = mkdir (inst_dir);
+ if (status != 1)
+ rm_rf (desc.dir);
+ error ("the 'inst' directory did not exist and could not be created: %s",
+ msg);
+ endif
+ endif
+endfunction
+
+function configure_make (desc, packdir, verbose)
+ ## Perform ./configure, make, make install in "src".
+ if (exist (fullfile (packdir, "src"), "dir"))
+ src = fullfile (packdir, "src");
+ ## Configure.
+ if (exist (fullfile (src, "configure"), "file"))
+ flags = "";
+ if (isempty (getenv ("CC")))
+ flags = cstrcat (flags, " CC=\"", octave_config_info ("CC"), "\"");
+ endif
+ if (isempty (getenv ("CXX")))
+ flags = cstrcat (flags, " CXX=\"", octave_config_info ("CXX"), "\"");
+ endif
+ if (isempty (getenv ("AR")))
+ flags = cstrcat (flags, " AR=\"", octave_config_info ("AR"), "\"");
+ endif
+ if (isempty (getenv ("RANLIB")))
+ flags = cstrcat (flags, " RANLIB=\"", octave_config_info ("RANLIB"), "\"");
+ endif
+ [status, output] = shell (strcat ("cd '", src, "'; ./configure --prefix=\"",
+ desc.dir, "\"", flags));
+ if (status != 0)
+ rm_rf (desc.dir);
+ error ("the configure script returned the following error: %s", output);
+ elseif (verbose)
+ printf("%s", output);
+ endif
+
+ endif
+
+ ## Make.
+ if (exist (fullfile (src, "Makefile"), "file"))
+ [status, output] = shell (cstrcat ("export INSTALLDIR=\"", desc.dir,
+ "\"; make -C '", src, "'"));
+ if (status != 0)
+ rm_rf (desc.dir);
+ error ("'make' returned the following error: %s", output);
+ elseif (verbose)
+ printf("%s", output);
+ endif
+ endif
+
+ ## Copy files to "inst" and "inst/arch" (this is instead of 'make
+ ## install').
+ files = fullfile (src, "FILES");
+ instdir = fullfile (packdir, "inst");
+ archdir = fullfile (packdir, "inst", getarch ());
+
+ ## Get file names.
+ if (exist (files, "file"))
+ [fid, msg] = fopen (files, "r");
+ if (fid < 0)
+ error ("couldn't open %s: %s", files, msg);
+ endif
+ filenames = char (fread (fid))';
+ fclose (fid);
+ if (filenames(end) == "\n")
+ filenames(end) = [];
+ endif
+ filenames = split_by (filenames, "\n");
+ delete_idx = [];
+ for i = 1:length (filenames)
+ if (! all (isspace (filenames{i})))
+ filenames{i} = fullfile (src, filenames{i});
+ else
+ delete_idx(end+1) = i;
+ endif
+ endfor
+ filenames(delete_idx) = [];
+ else
+ m = dir (fullfile (src, "*.m"));
+ oct = dir (fullfile (src, "*.oct"));
+ mex = dir (fullfile (src, "*.mex"));
+
+ filenames = cellfun (@(x) fullfile (src, x),
+ {m.name, oct.name, mex.name},
+ "UniformOutput", false);
+ endif
+
+ ## Split into architecture dependent and independent files.
+ if (isempty (filenames))
+ idx = [];
+ else
+ idx = cellfun (@is_architecture_dependent, filenames);
+ endif
+ archdependent = filenames (idx);
+ archindependent = filenames (!idx);
+
+ ## Copy the files.
+ if (! all (isspace ([filenames{:}])))
+ if (! exist (instdir, "dir")) # fixindent
+ mkdir (instdir);
+ endif
+ if (! all (isspace ([archindependent{:}])))
+ if (verbose)
+ printf ("copyfile");
+ printf (" %s", archindependent{:});
+ printf ("%s\n", instdir);
+ endif
+ [status, output] = copyfile (archindependent, instdir);
+ if (status != 1)
+ rm_rf (desc.dir);
+ error ("Couldn't copy files from 'src' to 'inst': %s", output);
+ endif
+ endif
+ if (! all (isspace ([archdependent{:}])))
+ if (verbose)
+ printf ("copyfile");
+ printf (" %s", archdependent{:});
+ printf (" %s\n", archdir);
+ endif
+ if (! exist (archdir, "dir"))
+ mkdir (archdir);
+ endif
+ [status, output] = copyfile (archdependent, archdir);
+ if (status != 1)
+ rm_rf (desc.dir);
+ error ("Couldn't copy files from 'src' to 'inst': %s", output);
+ endif
+ endif
+ endif
+ endif
+endfunction
+
+function pkg = extract_pkg (nm, pat)
+ fid = fopen (nm, "rt");
+ pkg = "";
+ if (fid >= 0)
+ while (! feof (fid))
+ ln = fgetl (fid);
+ if (ln > 0)
+ t = regexp (ln, pat, "tokens");
+ if (! isempty (t))
+ pkg = cstrcat (pkg, "\n", t{1}{1});
+ endif
+ endif
+ endwhile
+ if (! isempty (pkg))
+ pkg = cstrcat (pkg, "\n");
+ endif
+ fclose (fid);
+ endif
+endfunction
+
+function create_pkgadddel (desc, packdir, nm, global_install)
+ instpkg = fullfile (desc.dir, nm);
+ instfid = fopen (instpkg, "wt");
+ ## If it is exists, most of the PKG_* file should go into the
+ ## architecture dependent directory so that the autoload/mfilename
+ ## commands work as expected. The only part that doesn't is the
+ ## part in the main directory.
+ archdir = fullfile (getarchprefix (desc), cstrcat (desc.name, "-",
+ desc.version), getarch ());
+ if (exist (getarchdir (desc, global_install), "dir"))
+ archpkg = fullfile (getarchdir (desc, global_install), nm);
+ archfid = fopen (archpkg, "at");
+ else
+ archpkg = instpkg;
+ archfid = instfid;
+ endif
+
+ if (archfid >= 0 && instfid >= 0)
+ ## Search all dot-m files for PKG commands.
+ lst = dir (fullfile (packdir, "inst", "*.m"));
+ for i = 1:length (lst)
+ nam = fullfile (packdir, "inst", lst(i).name);
+ fwrite (instfid, extract_pkg (nam, ['^[#%][#%]* *' nm ': *(.*)$']));
+ endfor
+
+ ## Search all C++ source files for PKG commands.
+ lst = dir (fullfile (packdir, "src", "*.cc"));
+ for i = 1:length (lst)
+ nam = fullfile (packdir, "src", lst(i).name);
+ fwrite (archfid, extract_pkg (nam, ['^//* *' nm ': *(.*)$']));
+ fwrite (archfid, extract_pkg (nam, ['^/\** *' nm ': *(.*) *\*/$']));
+ endfor
+
+ ## Add developer included PKG commands.
+ packdirnm = fullfile (packdir, nm);
+ if (exist (packdirnm, "file"))
+ fid = fopen (packdirnm, "rt");
+ if (fid >= 0)
+ while (! feof (fid))
+ ln = fgets (fid);
+ if (ln > 0)
+ fwrite (archfid, ln);
+ endif
+ endwhile
+ fclose (fid);
+ endif
+ endif
+
+ ## If the files is empty remove it.
+ fclose (instfid);
+ t = dir (instpkg);
+ if (t.bytes <= 0)
+ unlink (instpkg);
+ endif
+
+ if (instfid != archfid)
+ fclose (archfid);
+ t = dir (archpkg);
+ if (t.bytes <= 0)
+ unlink (archpkg);
+ endif
+ endif
+ endif
+endfunction
+
+function copy_files (desc, packdir, global_install)
+ ## Create the installation directory.
+ if (! exist (desc.dir, "dir"))
+ [status, output] = mkdir (desc.dir);
+ if (status != 1)
+ error ("couldn't create installation directory %s : %s",
+ desc.dir, output);
+ endif
+ endif
+
+ octfiledir = getarchdir (desc);
+
+ ## Copy the files from "inst" to installdir.
+ instdir = fullfile (packdir, "inst");
+ if (! dirempty (instdir))
+ [status, output] = copyfile (fullfile (instdir, "*"), desc.dir);
+ if (status != 1)
+ rm_rf (desc.dir);
+ error ("couldn't copy files to the installation directory");
+ endif
+ if (exist (fullfile (desc.dir, getarch ()), "dir") &&
+ ! strcmp (fullfile (desc.dir, getarch ()), octfiledir))
+ if (! exist (octfiledir, "dir"))
+ ## Can be required to create upto three levels of dirs.
+ octm1 = fileparts (octfiledir);
+ if (! exist (octm1, "dir"))
+ octm2 = fileparts (octm1);
+ if (! exist (octm2, "dir"))
+ octm3 = fileparts (octm2);
+ if (! exist (octm3, "dir"))
+ [status, output] = mkdir (octm3);
+ if (status != 1)
+ rm_rf (desc.dir);
+ error ("couldn't create installation directory %s : %s",
+ octm3, output);
+ endif
+ endif
+ [status, output] = mkdir (octm2);
+ if (status != 1)
+ rm_rf (desc.dir);
+ error ("couldn't create installation directory %s : %s",
+ octm2, output);
+ endif
+ endif
+ [status, output] = mkdir (octm1);
+ if (status != 1)
+ rm_rf (desc.dir);
+ error ("couldn't create installation directory %s : %s",
+ octm1, output);
+ endif
+ endif
+ [status, output] = mkdir (octfiledir);
+ if (status != 1)
+ rm_rf (desc.dir);
+ error ("couldn't create installation directory %s : %s",
+ octfiledir, output);
+ endif
+ endif
+ [status, output] = movefile (fullfile (desc.dir, getarch (), "*"),
+ octfiledir);
+ rm_rf (fullfile (desc.dir, getarch ()));
+
+ if (status != 1)
+ rm_rf (desc.dir);
+ rm_rf (octfiledir);
+ error ("couldn't copy files to the installation directory");
+ endif
+ endif
+
+ endif
+
+ ## Create the "packinfo" directory.
+ packinfo = fullfile (desc.dir, "packinfo");
+ [status, msg] = mkdir (packinfo);
+ if (status != 1)
+ rm_rf (desc.dir);
+ rm_rf (octfiledir);
+ error ("couldn't create packinfo directory: %s", msg);
+ endif
+
+ ## Copy DESCRIPTION.
+ [status, output] = copyfile (fullfile (packdir, "DESCRIPTION"), packinfo);
+ if (status != 1)
+ rm_rf (desc.dir);
+ rm_rf (octfiledir);
+ error ("couldn't copy DESCRIPTION: %s", output);
+ endif
+
+ ## Copy COPYING.
+ [status, output] = copyfile (fullfile (packdir, "COPYING"), packinfo);
+ if (status != 1)
+ rm_rf (desc.dir);
+ rm_rf (octfiledir);
+ error ("couldn't copy COPYING: %s", output);
+ endif
+
+ ## If the file ChangeLog exists, copy it.
+ changelog_file = fullfile (packdir, "ChangeLog");
+ if (exist (changelog_file, "file"))
+ [status, output] = copyfile (changelog_file, packinfo);
+ if (status != 1)
+ rm_rf (desc.dir);
+ rm_rf (octfiledir);
+ error ("couldn't copy ChangeLog file: %s", output);
+ endif
+ endif
+
+ ## Is there an INDEX file to copy or should we generate one?
+ index_file = fullfile (packdir, "INDEX");
+ if (exist(index_file, "file"))
+ [status, output] = copyfile (index_file, packinfo);
+ if (status != 1)
+ rm_rf (desc.dir);
+ rm_rf (octfiledir);
+ error ("couldn't copy INDEX file: %s", output);
+ endif
+ else
+ try
+ write_index (desc, fullfile (packdir, "inst"),
+ fullfile (packinfo, "INDEX"), global_install);
+ catch
+ rm_rf (desc.dir);
+ rm_rf (octfiledir);
+ rethrow (lasterror ());
+ end_try_catch
+ endif
+
+ ## Is there an 'on_uninstall.m' to install?
+ fon_uninstall = fullfile (packdir, "on_uninstall.m");
+ if (exist (fon_uninstall, "file"))
+ [status, output] = copyfile (fon_uninstall, packinfo);
+ if (status != 1)
+ rm_rf (desc.dir);
+ rm_rf (octfiledir);
+ error ("couldn't copy on_uninstall.m: %s", output);
+ endif
+ endif
+
+ ## Is there a doc/ directory that needs to be installed?
+ docdir = fullfile (packdir, "doc");
+ if (exist (docdir, "dir") && ! dirempty (docdir))
+ [status, output] = copyfile (docdir, desc.dir);
+ endif
+
+ ## Is there a bin/ directory that needs to be installed?
+ ## FIXME: Need to treat architecture dependent files in bin/
+ bindir = fullfile (packdir, "bin");
+ if (exist (bindir, "dir") && ! dirempty (bindir))
+ [status, output] = copyfile (bindir, desc.dir);
+ endif
+endfunction
+
+function finish_installation (desc, packdir, global_install)
+ ## Is there a post-install to call?
+ if (exist (fullfile (packdir, "post_install.m"), "file"))
+ wd = pwd ();
+ try
+ cd (packdir);
+ post_install (desc);
+ cd (wd);
+ catch
+ cd (wd);
+ rm_rf (desc.dir);
+ rm_rf (getarchdir (desc), global_install);
+ rethrow (lasterror ());
+ end_try_catch
+ endif
+endfunction
+
+function generate_lookfor_cache (desc)
+ dirs = split_by (genpath (desc.dir), pathsep ());
+ for i = 1 : length (dirs)
+ gen_doc_cache (fullfile (dirs{i}, "doc-cache"), dirs{i});
+ endfor
+endfunction
+
+## Make sure the package contains the essential files.
+function verify_directory (dir)
+ needed_files = {"COPYING", "DESCRIPTION"};
+ for f = needed_files
+ if (! exist (fullfile (dir, f{1}), "file"))
+ error ("package is missing file: %s", f{1});
+ endif
+ endfor
+endfunction
+
+## Parse the DESCRIPTION file.
+function desc = get_description (filename)
+ [fid, msg] = fopen (filename, "r");
+ if (fid == -1)
+ error ("the DESCRIPTION file %s could not be read: %s", filename, msg);
+ endif
+
+ desc = struct ();
+
+ line = fgetl (fid);
+ while (line != -1)
+ if (line(1) == "#")
+ ## Comments, do nothing.
+ elseif (isspace(line(1)))
+ ## Continuation lines
+ if (exist ("keyword", "var") && isfield (desc, keyword))
+ desc.(keyword) = cstrcat (desc.(keyword), " ", rstrip(line));
+ endif
+ else
+ ## Keyword/value pair
+ colon = find (line == ":");
+ if (length (colon) == 0)
+ disp ("skipping line");
+ else
+ colon = colon(1);
+ keyword = tolower (strip (line(1:colon-1)));
+ value = strip (line (colon+1:end));
+ if (length (value) == 0)
+ fclose (fid);
+ error ("the keyword %s has an empty value", desc.keywords{end});
+ endif
+ desc.(keyword) = value;
+ endif
+ endif
+ line = fgetl (fid);
+ endwhile
+ fclose (fid);
+
+ ## Make sure all is okay.
+ needed_fields = {"name", "version", "date", "title", ...
+ "author", "maintainer", "description"};
+ for f = needed_fields
+ if (! isfield (desc, f{1}))
+ error ("description is missing needed field %s", f{1});
+ endif
+ endfor
+ desc.version = fix_version (desc.version);
+ if (isfield (desc, "depends"))
+ desc.depends = fix_depends (desc.depends);
+ else
+ desc.depends = "";
+ endif
+ desc.name = tolower (desc.name);
+endfunction
+
+## Make sure the version string v is a valid x.y.z version string
+## Examples: "0.1" => "0.1.0", "monkey" => error(...).
+function out = fix_version (v)
+ dots = find (v == ".");
+ if (length (dots) == 1)
+ major = str2num (v(1:dots-1));
+ minor = str2num (v(dots+1:end));
+ if (length (major) != 0 && length (minor) != 0)
+ out = sprintf ("%d.%d.0", major, minor);
+ return;
+ endif
+ elseif (length (dots) == 2)
+ major = str2num (v(1:dots(1)-1));
+ minor = str2num (v(dots(1)+1:dots(2)-1));
+ rev = str2num (v(dots(2)+1:end));
+ if (length (major) != 0 && length (minor) != 0 && length (rev) != 0)
+ out = sprintf ("%d.%d.%d", major, minor, rev);
+ return;
+ endif
+ endif
+ error ("bad version string: %s", v);
+endfunction
+
+## Make sure the depends field is of the right format.
+## This function returns a cell of structures with the following fields:
+## package, version, operator
+function deps_cell = fix_depends (depends)
+ deps = split_by (tolower (depends), ",");
+ deps_cell = cell (1, length (deps));
+
+ ## For each dependency.
+ for i = 1:length (deps)
+ dep = deps{i};
+ lpar = find (dep == "(");
+ rpar = find (dep == ")");
+ ## Does the dependency specify a version
+ ## Example: package(>= version).
+ if (length (lpar) == 1 && length (rpar) == 1)
+ package = tolower (strip (dep(1:lpar-1)));
+ sub = dep(lpar(1)+1:rpar(1)-1);
+ parts = strsplit (sub, " ", true);
+ if (length (parts) != 2)
+ error ("incorrect syntax for dependency `%s' in the DESCRIPTION file\n",
+ dep);
+ endif
+ operator = parts{1};
+ if (! any (strcmp (operator, {">", ">=", "<=", "<", "=="})))
+ error ("unsupported operator: %s", operator);
+ endif
+ version = fix_version (parts{2});
+
+ ## If no version is specified for the dependency
+ ## we say that the version should be greater than
+ ## or equal to "0.0.0".
+ else
+ package = tolower (strip (dep));
+ operator = ">=";
+ version = "0.0.0";
+ endif
+ deps_cell{i} = struct ("package", package, "operator", operator,
+ "version", version);
+ endfor
+endfunction
+
+## Strip the text of spaces from the right
+## Example: " hello world " => " hello world"
+## FIXME -- is this the same as deblank?
+function text = rstrip (text)
+ chars = find (! isspace (text));
+ if (length (chars) > 0)
+ ## FIXME: shouldn't it be text = text(1:chars(end));
+ text = text (chars(1):end);
+ else
+ text = "";
+ endif
+endfunction
+
+## Strip the text of spaces from the left and the right.
+## Example: " hello world " => "hello world"
+function text = strip (text)
+ chars = find (! isspace (text));
+ if (length (chars) > 0)
+ text = text(chars(1):chars(end));
+ else
+ text = "";
+ endif
+endfunction
+
+## Split the text into a cell array of strings by sep.
+## Example: "A, B" => {"A", "B"} (with sep = ",")
+function out = split_by (text, sep)
+ out = strtrim (strsplit (text, sep));
+endfunction
+
+## Create an INDEX file for a package that doesn't provide one.
+## 'desc' describes the package.
+## 'dir' is the 'inst' directory in temporary directory.
+## 'index_file' is the name (including path) of resulting INDEX file.
+function write_index (desc, dir, index_file, global_install)
+ ## Get names of functions in dir
+ [files, err, msg] = readdir (dir);
+ if (err)
+ error ("couldn't read directory %s: %s", dir, msg);
+ endif
+
+ ## Check for architecture dependent files.
+ tmpdir = getarchdir (desc);
+ if (exist (tmpdir, "dir"))
+ [files2, err, msg] = readdir (tmpdir);
+ if (err)
+ error ("couldn't read directory %s: %s", tmpdir, msg);
+ endif
+ files = [files; files2];
+ endif
+
+ functions = {};
+ for i = 1:length (files)
+ file = files{i};
+ lf = length (file);
+ if (lf > 2 && strcmp (file(end-1:end), ".m"))
+ functions{end+1} = file(1:end-2);
+ elseif (lf > 4 && strcmp (file(end-3:end), ".oct"))
+ functions{end+1} = file(1:end-4);
+ endif
+ endfor
+
+ ## Does desc have a categories field?
+ if (! isfield (desc, "categories"))
+ error ("the DESCRIPTION file must have a Categories field, when no INDEX file is given");
+ endif
+ categories = split_by (desc.categories, ",");
+ if (length (categories) < 1)
+ error ("the Category field is empty");
+ endif
+
+ ## Write INDEX.
+ fid = fopen (index_file, "w");
+ if (fid == -1)
+ error ("couldn't open %s for writing.", index_file);
+ endif
+ fprintf (fid, "%s >> %s\n", desc.name, desc.title);
+ fprintf (fid, "%s\n", categories{1});
+ fprintf (fid, " %s\n", functions{:});
+ fclose (fid);
+endfunction
+
+function bad_deps = get_unsatisfied_deps (desc, installed_pkgs_lst)
+ bad_deps = {};
+
+ ## For each dependency.
+ for i = 1:length (desc.depends)
+ dep = desc.depends{i};
+
+ ## Is the current dependency Octave?
+ if (strcmp (dep.package, "octave"))
+ if (! compare_versions (OCTAVE_VERSION, dep.version, dep.operator))
+ bad_deps{end+1} = dep;
+ endif
+ ## Is the current dependency not Octave?
+ else
+ ok = false;
+ for i = 1:length (installed_pkgs_lst)
+ cur_name = installed_pkgs_lst{i}.name;
+ cur_version = installed_pkgs_lst{i}.version;
+ if (strcmp (dep.package, cur_name)
+ && compare_versions (cur_version, dep.version, dep.operator))
+ ok = true;
+ break;
+ endif
+ endfor
+ if (! ok)
+ bad_deps{end+1} = dep;
+ endif
+ endif
+ endfor
+endfunction
+
+function [out1, out2] = installed_packages (local_list, global_list)
+ ## Get the list of installed packages.
+ try
+ local_packages = load (local_list).local_packages;
+ catch
+ local_packages = {};
+ end_try_catch
+ try
+ global_packages = load (global_list).global_packages;
+ catch
+ global_packages = {};
+ end_try_catch
+ installed_pkgs_lst = {local_packages{:}, global_packages{:}};
+
+ ## Eliminate duplicates in the installed package list.
+ ## Locally installed packages take precedence.
+ dup = [];
+ for i = 1:length (installed_pkgs_lst)
+ if (find (dup, i))
+ continue;
+ endif
+ for j = (i+1):length (installed_pkgs_lst)
+ if (find (dup, j))
+ continue;
+ endif
+ if (strcmp (installed_pkgs_lst{i}.name, installed_pkgs_lst{j}.name))
+ dup = [dup, j];
+ endif
+ endfor
+ endfor
+ if (! isempty(dup))
+ installed_pkgs_lst(dup) = [];
+ endif
+
+ ## Now check if the package is loaded.
+ tmppath = strrep (path(), "\\", "/");
+ for i = 1:length (installed_pkgs_lst)
+ if (findstr (tmppath, strrep (installed_pkgs_lst{i}.dir, "\\", "/")))
+ installed_pkgs_lst{i}.loaded = true;
+ else
+ installed_pkgs_lst{i}.loaded = false;
+ endif
+ endfor
+ for i = 1:length (local_packages)
+ if (findstr (tmppath, strrep (local_packages{i}.dir, "\\", "/")))
+ local_packages{i}.loaded = true;
+ else
+ local_packages{i}.loaded = false;
+ endif
+ endfor
+ for i = 1:length (global_packages)
+ if (findstr (tmppath, strrep (global_packages{i}.dir, "\\", "/")))
+ global_packages{i}.loaded = true;
+ else
+ global_packages{i}.loaded = false;
+ endif
+ endfor
+
+ ## Should we return something?
+ if (nargout == 2)
+ out1 = local_packages;
+ out2 = global_packages;
+ return;
+ elseif (nargout == 1)
+ out1 = installed_pkgs_lst;
+ return;
+ endif
+
+ ## We shouldn't return something, so we'll print something.
+ num_packages = length (installed_pkgs_lst);
+ if (num_packages == 0)
+ printf ("no packages installed.\n");
+ return;
+ endif
+
+ ## Compute the maximal lengths of name, version, and dir.
+ h1 = "Package Name";
+ h2 = "Version";
+ h3 = "Installation directory";
+ max_name_length = length (h1);
+ max_version_length = length (h2);
+ names = cell (num_packages, 1);
+ for i = 1:num_packages
+ max_name_length = max (max_name_length,
+ length (installed_pkgs_lst{i}.name));
+ max_version_length = max (max_version_length,
+ length (installed_pkgs_lst{i}.version));
+ names{i} = installed_pkgs_lst{i}.name;
+ endfor
+ max_dir_length = terminal_size()(2) - max_name_length - ...
+ max_version_length - 7;
+ if (max_dir_length < 20)
+ max_dir_length = Inf;
+ endif
+
+ h1 = postpad (h1, max_name_length + 1, " ");
+ h2 = postpad (h2, max_version_length, " ");;
+
+ ## Print a header.
+ header = sprintf("%s | %s | %s\n", h1, h2, h3);
+ printf (header);
+ tmp = sprintf (repmat ("-", 1, length(header)-1));
+ tmp(length(h1)+2) = "+";
+ tmp(length(h1)+length(h2)+5) = "+";
+ printf ("%s\n", tmp);
+
+ ## Print the packages.
+ format = sprintf ("%%%ds %%1s| %%%ds | %%s\n", max_name_length,
+ max_version_length);
+ [dummy, idx] = sort (names);
+ for i = 1:num_packages
+ cur_name = installed_pkgs_lst{idx(i)}.name;
+ cur_version = installed_pkgs_lst{idx(i)}.version;
+ cur_dir = installed_pkgs_lst{idx(i)}.dir;
+ if (length (cur_dir) > max_dir_length)
+ first_char = length (cur_dir) - max_dir_length + 4;
+ first_filesep = strfind (cur_dir(first_char:end), filesep());
+ if (! isempty (first_filesep))
+ cur_dir = cstrcat ("...",
+ cur_dir((first_char + first_filesep(1) - 1):end));
+ else
+ cur_dir = cstrcat ("...", cur_dir(first_char:end));
+ endif
+ endif
+ if (installed_pkgs_lst{idx(i)}.loaded)
+ cur_loaded = "*";
+ else
+ cur_loaded = " ";
+ endif
+ printf (format, cur_name, cur_loaded, cur_version, cur_dir);
+ endfor
+endfunction
+
+function load_packages (files, handle_deps, local_list, global_list)
+ installed_pkgs_lst = installed_packages (local_list, global_list);
+ num_packages = length (installed_pkgs_lst);
+
+ ## Read package names and installdirs into a more convenient format.
+ pnames = pdirs = cell (1, num_packages);
+ for i = 1:num_packages
+ pnames{i} = installed_pkgs_lst{i}.name;
+ pdirs{i} = installed_pkgs_lst{i}.dir;
+ endfor
+
+ ## Load all.
+ if (length (files) == 1 && strcmp (files{1}, "all"))
+ idx = [1:length(installed_pkgs_lst)];
+ ## Load auto.
+ elseif (length (files) == 1 && strcmp (files{1}, "auto"))
+ idx = [];
+ for i = 1:length (installed_pkgs_lst)
+ if (exist (fullfile (pdirs{i}, "packinfo", ".autoload"), "file"))
+ idx (end + 1) = i;
+ endif
+ endfor
+ ## Load package_name1 ...
+ else
+ idx = [];
+ for i = 1:length (files)
+ idx2 = find (strcmp (pnames, files{i}));
+ if (! any (idx2))
+ error ("package %s is not installed", files{i});
+ endif
+ idx (end + 1) = idx2;
+ endfor
+ endif
+
+ ## Load the packages, but take care of the ordering of dependencies.
+ load_packages_and_dependencies (idx, handle_deps, installed_pkgs_lst, true);
+endfunction
+
+function unload_packages (files, handle_deps, local_list, global_list)
+ installed_pkgs_lst = installed_packages (local_list, global_list);
+ num_packages = length (installed_pkgs_lst);
+
+ ## Read package names and installdirs into a more convenient format.
+ pnames = pdirs = cell (1, num_packages);
+ for i = 1:num_packages
+ pnames{i} = installed_pkgs_lst{i}.name;
+ pdirs{i} = installed_pkgs_lst{i}.dir;
+ pdeps{i} = installed_pkgs_lst{i}.depends;
+ endfor
+
+ ## Get the current octave path.
+ p = split_by (path(), pathsep ());
+
+ if (length (files) == 1 && strcmp (files{1}, "all"))
+ ## Unload all.
+ dirs = pdirs;
+ desc = installed_pkgs_lst;
+ else
+ ## Unload package_name1 ...
+ dirs = {};
+ desc = {};
+ for i = 1:length (files)
+ idx = strcmp (pnames, files{i});
+ if (! any (idx))
+ error ("package %s is not installed", files{i});
+ endif
+ dirs{end+1} = pdirs{idx};
+ desc{end+1} = installed_pkgs_lst{idx};
+ endfor
+ endif
+
+ ## Check for architecture dependent directories.
+ archdirs = {};
+ for i = 1:length (dirs)
+ tmpdir = getarchdir (desc{i});
+ if (exist (tmpdir, "dir"))
+ archdirs{end+1} = dirs{i};
+ archdirs{end+1} = tmpdir;
+ else
+ archdirs{end+1} = dirs{i};
+ endif
+ endfor
+
+ ## Unload the packages.
+ for i = 1:length (archdirs)
+ d = archdirs{i};
+ idx = strcmp (p, d);
+ if (any (idx))
+ rmpath (d);
+ ## FIXME: We should also check if we need to remove items from
+ ## EXEC_PATH.
+ endif
+ endfor
+endfunction
+
+function [status_out, msg_out] = rm_rf (dir)
+ if (exist (dir))
+ crr = confirm_recursive_rmdir ();
+ unwind_protect
+ confirm_recursive_rmdir (false);
+ [status, msg] = rmdir (dir, "s");
+ unwind_protect_cleanup
+ confirm_recursive_rmdir (crr);
+ end_unwind_protect
+ else
+ status = 1;
+ msg = "";
+ endif
+ if (nargout > 0)
+ status_out = status;
+ endif
+ if (nargout > 1)
+ msg_out = msg;
+ endif
+endfunction
+
+function emp = dirempty (nm, ign)
+ if (exist (nm, "dir"))
+ if (nargin < 2)
+ ign = {".", ".."};
+ else
+ ign = [{".", ".."}, ign];
+ endif
+ l = dir (nm);
+ for i = 1:length (l)
+ found = false;
+ for j = 1:length (ign)
+ if (strcmp (l(i).name, ign{j}))
+ found = true;
+ break;
+ endif
+ endfor
+ if (! found)
+ emp = false;
+ return
+ endif
+ endfor
+ emp = true;
+ else
+ emp = true;
+ endif
+endfunction
+
+function arch = getarch ()
+ persistent _arch = cstrcat (octave_config_info("canonical_host_type"), ...
+ "-", octave_config_info("api_version"));
+ arch = _arch;
+endfunction
+
+function archprefix = getarchprefix (desc, global_install)
+ if ((nargin == 2 && global_install) || (nargin < 2 && issuperuser ()))
+ archprefix = fullfile (octave_config_info ("libexecdir"), "octave",
+ "packages", cstrcat(desc.name, "-", desc.version));
+ else
+ archprefix = desc.dir;
+ endif
+endfunction
+
+function archdir = getarchdir (desc)
+ archdir = fullfile (desc.archprefix, getarch());
+endfunction
+
+function s = issuperuser ()
+ if ((ispc () && ! isunix ()) || (geteuid() == 0))
+ s = true;
+ else
+ s = false;
+ endif
+endfunction
+
+function [status, output] = shell (cmd)
+ persistent have_sh;
+
+ cmd = strrep (cmd, "\\", "/");
+ if (ispc () && ! isunix ())
+ if (isempty(have_sh))
+ if (system("sh.exe -c \"exit\""))
+ have_sh = false;
+ else
+ have_sh = true;
+ endif
+ endif
+ if (have_sh)
+ [status, output] = system (cstrcat ("sh.exe -c \"", cmd, "\""));
+ else
+ error ("Can not find the command shell")
+ endif
+ else
+ [status, output] = system (cmd);
+ endif
+endfunction
+
+function newdesc = save_order (desc)
+ newdesc = {};
+ for i = 1 : length(desc)
+ deps = desc{i}.depends;
+ if (isempty (deps) || (length (deps) == 1 &&
+ strcmp(deps{1}.package, "octave")))
+ newdesc {end + 1} = desc{i};
+ else
+ tmpdesc = {};
+ for k = 1 : length (deps)
+ for j = 1 : length (desc)
+ if (strcmp (desc{j}.name, deps{k}.package))
+ tmpdesc{end+1} = desc{j};
+ break;
+ endif
+ endfor
+ endfor
+ if (! isempty (tmpdesc))
+ newdesc = {newdesc{:}, save_order(tmpdesc){:}, desc{i}};
+ else
+ newdesc{end+1} = desc{i};
+ endif
+ endif
+ endfor
+ ## Eliminate the duplicates.
+ idx = [];
+ for i = 1 : length (newdesc)
+ for j = (i + 1) : length (newdesc)
+ if (strcmp (newdesc{i}.name, newdesc{j}.name))
+ idx (end + 1) = j;
+ endif
+ endfor
+ endfor
+ newdesc(idx) = [];
+endfunction
+
+function load_packages_and_dependencies (idx, handle_deps, installed_pkgs_lst,
+ global_install)
+ idx = load_package_dirs (idx, [], handle_deps, installed_pkgs_lst);
+ dirs = {};
+ execpath = EXEC_PATH ();
+ for i = idx;
+ ndir = installed_pkgs_lst{i}.dir;
+ dirs{end+1} = ndir;
+ if (exist (fullfile (dirs{end}, "bin"), "dir"))
+ execpath = cstrcat (fullfile (dirs{end}, "bin"), ":", execpath);
+ endif
+ tmpdir = getarchdir (installed_pkgs_lst{i});
+ if (exist (tmpdir, "dir"))
+ dirs{end + 1} = tmpdir;
+ if (exist (fullfile (dirs{end}, "bin"), "dir"))
+ execpath = cstrcat (fullfile (dirs{end}, "bin"), ":", execpath);
+ endif
+ endif
+ endfor
+
+ ## Load the packages.
+ if (length (dirs) > 0)
+ addpath (dirs{:});
+ endif
+
+ ## Add the binaries to exec_path.
+ if (! strcmp (EXEC_PATH, execpath))
+ EXEC_PATH (execpath);
+ endif
+endfunction
+
+function idx = load_package_dirs (lidx, idx, handle_deps, installed_pkgs_lst)
+ for i = lidx
+ if (isfield (installed_pkgs_lst{i}, "loaded") &&
+ installed_pkgs_lst{i}.loaded)
+ continue;
+ else
+ if (handle_deps)
+ deps = installed_pkgs_lst{i}.depends;
+ if ((length (deps) > 1) || (length (deps) == 1 &&
+ ! strcmp(deps{1}.package, "octave")))
+ tmplidx = [];
+ for k = 1 : length (deps)
+ for j = 1 : length (installed_pkgs_lst)
+ if (strcmp (installed_pkgs_lst{j}.name, deps{k}.package))
+ tmplidx (end + 1) = j;
+ break;
+ endif
+ endfor
+ endfor
+ idx = load_package_dirs (tmplidx, idx, handle_deps,
+ installed_pkgs_lst);
+ endif
+ endif
+ if (isempty (find(idx == i)))
+ idx (end + 1) = i;
+ endif
+ endif
+ endfor
+endfunction
+
+function dep = is_architecture_dependent (nm)
+ persistent archdepsuffix = {".oct",".mex",".a",".lib",".so",".so.*",".dll","dylib"};
+
+ dep = false;
+ for i = 1 : length (archdepsuffix)
+ ext = archdepsuffix{i};
+ if (ext(end) == "*")
+ isglob = true;
+ ext(end) = [];
+ else
+ isglob = false;
+ endif
+ pos = findstr (nm, ext);
+ if (pos)
+ if (! isglob && (length(nm) - pos(end) != length(ext) - 1))
+ continue;
+ endif
+ dep = true;
+ break;
+ endif
+ endfor
+endfunction
--- /dev/null
+{ GPC demo program for the CRT unit.
+
+Copyright (C) 1999-2006, 2013 Free Software Foundation, Inc.
+
+Author: Frank Heckenbach <frank@pascal.gnu.de>
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License as
+published by the Free Software Foundation, version 2.
+
+This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
+
+As a special exception, if you incorporate even large parts of the
+code of this demo program into another program with substantially
+different functionality, this does not cause the other program to
+be covered by the GNU General Public License. This exception does
+not however invalidate any other reasons why it might be covered
+by the GNU General Public License. }
+
+{$gnu-pascal,I+}
+
+program CRTDemo;
+
+uses GPC, CRT;
+
+type
+ TFrameChars = array [1 .. 8] of Char;
+ TSimulateBlockCursorKind = (bc_None, bc_Blink, bc_Static);
+
+const
+ SingleFrame: TFrameChars = (chCornerTLS, chLineHS, chCornerTRS, chLineVS, chLineVS, chCornerBLS, chLineHS, chCornerBRS);
+ DoubleFrame: TFrameChars = (chCornerTLD, chLineHD, chCornerTRD, chLineVD, chLineVD, chCornerBLD, chLineHD, chCornerBRD);
+
+var
+ ScrollState: Boolean = True;
+ SimulateBlockCursorKind: TSimulateBlockCursorKind = bc_None;
+ CursorShape: TCursorShape = CursorNormal;
+ MainPanel: TPanel;
+ OrigScreenSize: TPoint;
+
+procedure FrameWin (const Title: String; const Frame: TFrameChars; TitleInverse: Boolean);
+var
+ w, h, y, Color: Integer;
+ Attr: TTextAttr;
+begin
+ HideCursor;
+ SetPCCharSet (True);
+ ClrScr;
+ w := GetXMax;
+ h := GetYMax;
+ WriteCharAt (1, 1, 1, Frame[1], TextAttr);
+ WriteCharAt (2, 1, w - 2, Frame[2], TextAttr);
+ WriteCharAt (w, 1, 1, Frame[3], TextAttr);
+ for y := 2 to h - 1 do
+ begin
+ WriteCharAt (1, y, 1, Frame[4], TextAttr);
+ WriteCharAt (w, y, 1, Frame[5], TextAttr)
+ end;
+ WriteCharAt (1, h, 1, Frame[6], TextAttr);
+ WriteCharAt (2, h, w - 2, Frame[7], TextAttr);
+ WriteCharAt (w, h, 1, Frame[8], TextAttr);
+ SetPCCharSet (False);
+ Attr := TextAttr;
+ if TitleInverse then
+ begin
+ Color := GetTextColor;
+ TextColor (GetTextBackground);
+ TextBackground (Color)
+ end;
+ WriteStrAt ((w - Length (Title)) div 2 + 1, 1, Title, TextAttr);
+ TextAttr := Attr
+end;
+
+function GetKey (TimeOut: Integer) = Key: TKey; forward;
+
+procedure ClosePopUpWindow;
+begin
+ PanelDelete (GetActivePanel);
+ PanelDelete (GetActivePanel)
+end;
+
+function PopUpConfirm (XSize, YSize: Integer; const Msg: String): Boolean;
+var
+ ax, ay: Integer;
+ Key: TKey;
+ SSize: TPoint;
+begin
+ repeat
+ SSize := ScreenSize;
+ ax := (SSize.x - XSize - 4) div 2 + 1;
+ ay := (SSize.y - YSize - 4) div 2 + 1;
+ PanelNew (ax, ay, ax + XSize + 3, ay + YSize + 1, False);
+ TextBackground (Black);
+ TextColor (Yellow);
+ SetControlChars (True);
+ FrameWin ('', DoubleFrame, False);
+ NormalCursor;
+ PanelNew (ax + 2, ay + 1, ax + XSize + 2, ay + YSize, False);
+ ClrScr;
+ Write (Msg);
+ Key := GetKey (-1);
+ if Key = kbScreenSizeChanged then ClosePopUpWindow
+ until Key <> kbScreenSizeChanged;
+ PopUpConfirm := not (Key in [kbEsc, kbAltEsc])
+end;
+
+procedure MainDraw;
+begin
+ WriteLn ('3, F3 : Open a window');
+ WriteLn ('4, F4 : Close window');
+ WriteLn ('5, F5 : Previous window');
+ WriteLn ('6, F6 : Next window');
+ WriteLn ('7, F7 : Move window');
+ WriteLn ('8, F8 : Resize window');
+ Write ('q, Esc: Quit')
+end;
+
+procedure StatusDraw;
+const
+ YesNo: array [Boolean] of String [3] = ('No', 'Yes');
+ SimulateBlockCursorIDs: array [TSimulateBlockCursorKind] of String [8] = ('Off', 'Blinking', 'Static');
+ CursorShapeIDs: array [TCursorShape] of String [7] = ('Ignored', 'Hidden', 'Normal', 'Fat', 'Block');
+var
+ SSize: TPoint;
+begin
+ WriteLn ('You can change some of the following');
+ WriteLn ('settings by pressing the key shown');
+ WriteLn ('in parentheses. Naturally, color and');
+ WriteLn ('changing the cursor shape or screen');
+ WriteLn ('size does not work on all terminals.');
+ WriteLn;
+ WriteLn ('XCurses version: ', YesNo[XCRT]);
+ WriteLn ('CRTSavePreviousScreen: ', YesNo[CRTSavePreviousScreenWorks]);
+ WriteLn ('(M)onochrome: ', YesNo[IsMonochrome]);
+ SSize := ScreenSize;
+ WriteLn ('Screen (C)olumns: ', SSize.x);
+ WriteLn ('Screen (L)ines: ', SSize.y);
+ WriteLn ('(R)estore screen size');
+ WriteLn ('(B)reak checking: ', YesNo[CheckBreak]);
+ WriteLn ('(S)crolling: ', YesNo[ScrollState]);
+ WriteLn ('S(i)mulated block cursor: ', SimulateBlockCursorIDs[SimulateBlockCursorKind]);
+ Write ('C(u)rsor shape: ', CursorShapeIDs[CursorShape]);
+ GotoXY (36, WhereY)
+end;
+
+procedure RedrawAll; forward;
+procedure CheckScreenSize; forward;
+
+procedure StatusKey (Key: TKey);
+var SSize, NewSize: TPoint;
+begin
+ case LoCase (Key2Char (Key)) of
+ 'm': begin
+ SetMonochrome (not IsMonochrome);
+ RedrawAll
+ end;
+ 'c': begin
+ SSize := ScreenSize;
+ if SSize.x > 40 then
+ NewSize.x := 40
+ else
+ NewSize.x := 80;
+ if SSize.y > 25 then
+ NewSize.y := 50
+ else
+ NewSize.y := 25;
+ SetScreenSize (NewSize.x, NewSize.y);
+ CheckScreenSize
+ end;
+ 'l': begin
+ SSize := ScreenSize;
+ if SSize.x > 40 then
+ NewSize.x := 80
+ else
+ NewSize.x := 40;
+ if SSize.y > 25 then
+ NewSize.y := 25
+ else
+ NewSize.y := 50;
+ SetScreenSize (NewSize.x, NewSize.y);
+ CheckScreenSize
+ end;
+ 'r': begin
+ SetScreenSize (OrigScreenSize.x, OrigScreenSize.y);
+ CheckScreenSize
+ end;
+ 'b': CheckBreak := not CheckBreak;
+ 's': ScrollState := not ScrollState;
+ 'i': if SimulateBlockCursorKind = High (SimulateBlockCursorKind) then
+ SimulateBlockCursorKind := Low (SimulateBlockCursorKind)
+ else
+ Inc (SimulateBlockCursorKind);
+ 'u': case CursorShape of
+ CursorNormal: CursorShape := CursorBlock;
+ CursorFat,
+ CursorBlock : CursorShape := CursorHidden;
+ else CursorShape := CursorNormal
+ end;
+ end;
+ ClrScr;
+ StatusDraw
+end;
+
+procedure TextAttrDemo;
+var f, b, y, x1, y1, x2, y2, Fill, n1, n2, n3: Integer;
+begin
+ GetWindow (x1, y1, x2, y2);
+ Window (x1 - 1, y1, x2, y2);
+ TextColor (White);
+ TextBackground (Blue);
+ ClrScr;
+ SetScroll (False);
+ Fill := GetXMax - 32;
+ for y := 1 to GetYMax do
+ begin
+ GotoXY (1, y);
+ b := (y - 1) mod 16;
+ n1 := 0;
+ for f := 0 to 15 do
+ begin
+ TextAttr := f + 16 * b;
+ n2 := (Fill * (1 + 2 * f) + 16) div 32;
+ n3 := (Fill * (2 + 2 * f) + 16) div 32;
+ Write ('' : n2 - n1, NumericBaseDigitsUpper[b], NumericBaseDigitsUpper[f], '' : n3 - n2);
+ n1 := n3
+ end
+ end
+end;
+
+procedure CharSetDemo (UsePCCharSet: Boolean);
+var h, l, y, x1, y1, x2, y2, Fill, n1, n2: Integer;
+begin
+ GetWindow (x1, y1, x2, y2);
+ Window (x1 - 1, y1, x2, y2);
+ ClrScr;
+ SetScroll (False);
+ SetPCCharSet (UsePCCharSet);
+ SetControlChars (False);
+ Fill := GetXMax - 35;
+ for y := 1 to GetYMax do
+ begin
+ GotoXY (1, y);
+ h := (y - 2) mod 16;
+ n1 := (Fill + 9) div 18;
+ if y = 1 then
+ Write ('' : 3 + n1)
+ else
+ Write (16 * h : 3 + n1);
+ for l := 0 to 15 do
+ begin
+ n2 := (Fill * (2 + l) + 9) div 18;
+ if y = 1 then
+ Write ('' : n2 - n1, l : 2)
+ else
+ Write ('' : n2 - n1 + 1, Chr (16 * h + l));
+ n1 := n2
+ end
+ end
+end;
+
+procedure NormalCharSetDemo;
+begin
+ CharSetDemo (False)
+end;
+
+procedure PCCharSetDemo;
+begin
+ CharSetDemo (True)
+end;
+
+procedure FKeyDemoDraw;
+var x1, y1, x2, y2: Integer;
+begin
+ GetWindow (x1, y1, x2, y2);
+ Window (x1, y1, x2 - 1, y2);
+ ClrScr;
+ SetScroll (False);
+ WriteLn ('You can type the following keys');
+ WriteLn ('(function keys if present on the');
+ WriteLn ('terminal, letters as alternatives):');
+ GotoXY (1, 4);
+ WriteLn ('S, Left : left (wrap-around)');
+ WriteLn ('D, Right : right (wrap-around)');
+ WriteLn ('E, Up : up (wrap-around)');
+ WriteLn ('X, Down : down (wrap-around)');
+ WriteLn ('A, Home : go to first column');
+ WriteLn ('F, End : go to last column');
+ WriteLn ('R, Page Up : go to first line');
+ WriteLn ('C, Page Down: go to last line');
+ WriteLn ('Y, Ctrl-PgUp: first column and line');
+ GotoXY (1, 13);
+ WriteLn ('B, Ctrl-PgDn: last column and line');
+ WriteLn ('Z, Ctrl-Home: clear screen');
+ WriteLn ('N, Ctrl-End : clear to end of line');
+ WriteLn ('V, Insert : insert a line');
+ WriteLn ('T, Delete : delete a line');
+ WriteLn ('# : beep');
+ WriteLn ('* : flash');
+ WriteLn ('Tab, Enter, Backspace, other');
+ WriteLn (' normal characters: write text')
+end;
+
+procedure FKeyDemoKey (Key: TKey);
+const TabSize = 8;
+var
+ ch: Char;
+ NewX: Integer;
+begin
+ case LoCaseKey (Key) of
+ Ord ('s'), kbLeft : if WhereX = 1 then GotoXY (GetXMax, WhereY) else GotoXY (WhereX - 1, WhereY);
+ Ord ('d'), kbRight : if WhereX = GetXMax then GotoXY (1, WhereY) else GotoXY (WhereX + 1, WhereY);
+ Ord ('e'), kbUp : if WhereY = 1 then GotoXY (WhereX, GetYMax) else GotoXY (WhereX, WhereY - 1);
+ Ord ('x'), kbDown : if WhereY = GetYMax then GotoXY (WhereX, 1) else GotoXY (WhereX, WhereY + 1);
+ Ord ('a'), kbHome : Write (chCR);
+ Ord ('f'), kbEnd : GotoXY (GetXMax, WhereY);
+ Ord ('r'), kbPgUp : GotoXY (WhereX, 1);
+ Ord ('c'), kbPgDn : GotoXY (WhereX, GetYMax);
+ Ord ('y'), kbCtrlPgUp: GotoXY (1, 1);
+ Ord ('b'), kbCtrlPgDn: GotoXY (GetXMax, GetYMax);
+ Ord ('z'), kbCtrlHome: ClrScr;
+ Ord ('n'), kbCtrlEnd : ClrEOL;
+ Ord ('v'), kbIns : InsLine;
+ Ord ('t'), kbDel : DelLine;
+ Ord ('#') : Beep;
+ Ord ('*') : Flash;
+ kbTab : begin
+ NewX := ((WhereX - 1) div TabSize + 1) * TabSize + 1;
+ if NewX <= GetXMax then GotoXY (NewX, WhereY) else WriteLn
+ end;
+ kbCR : WriteLn;
+ kbBkSp : Write (chBkSp, ' ', chBkSp);
+ else ch := Key2Char (Key);
+ if ch <> #0 then Write (ch)
+ end
+end;
+
+procedure KeyDemoDraw;
+begin
+ WriteLn ('Press some keys ...')
+end;
+
+procedure KeyDemoKey (Key: TKey);
+var ch: Char;
+begin
+ ch := Key2Char (Key);
+ if ch <> #0 then
+ begin
+ Write ('Normal key');
+ if IsPrintable (ch) then Write (' `', ch, '''');
+ WriteLn (', ASCII #', Ord (ch))
+ end
+ else
+ WriteLn ('Special key ', Ord (Key2Scan (Key)))
+end;
+
+procedure IOSelectPeriodical;
+var
+ CurrentTime: TimeStamp;
+ s: String (8);
+ i: Integer;
+begin
+ GetTimeStamp (CurrentTime);
+ with CurrentTime do
+ WriteStr (s, Hour : 2, ':', Minute : 2, ':', Second : 2);
+ for i := 1 to Length (s) do
+ if s[i] = ' ' then s[i] := '0';
+ GotoXY (1, 12);
+ Write ('The time is: ', s)
+end;
+
+procedure IOSelectDraw;
+begin
+ WriteLn ('IOSelect is a way to handle I/O from');
+ WriteLn ('or to several places simultaneously,');
+ WriteLn ('without having to use threads or');
+ WriteLn ('signal/interrupt handlers or waste');
+ WriteLn ('CPU time with busy waiting.');
+ WriteLn;
+ WriteLn ('This demo shows how IOSelect works');
+ WriteLn ('in connection with CRT. It displays');
+ WriteLn ('a clock, but still reacts to user');
+ WriteLn ('input immediately.');
+ IOSelectPeriodical
+end;
+
+procedure ModifierPeriodical;
+const
+ Pressed: array [Boolean] of String [8] = ('Released', 'Pressed');
+ ModifierNames: array [1 .. 7] of record
+ Modifier: Integer;
+ Name: String (17)
+ end =
+ ((shLeftShift, 'Left Shift'),
+ (shRightShift, 'Right Shift'),
+ (shLeftCtrl, 'Left Control'),
+ (shRightCtrl, 'Right Control'),
+ (shAlt, 'Alt (left)'),
+ (shAltGr, 'AltGr (right Alt)'),
+ (shExtra, 'Extra'));
+var
+ ShiftState, i: Integer;
+begin
+ ShiftState := GetShiftState;
+ for i := 1 to 7 do
+ with ModifierNames[i] do
+ begin
+ GotoXY (1, 4 + i);
+ ClrEOL;
+ Write (Name, ':');
+ GotoXY (20, WhereY);
+ Write (Pressed[(ShiftState and Modifier) <> 0])
+ end
+end;
+
+procedure ModifierDraw;
+begin
+ WriteLn ('Modifier keys (NOTE: only');
+ WriteLn ('available on some systems;');
+ WriteLn ('X11: only after key press):');
+ ModifierPeriodical
+end;
+
+procedure ChecksDraw;
+begin
+ WriteLn ('(O)S shell');
+ WriteLn ('OS shell with (C)learing');
+ WriteLn ('(R)efresh check');
+ Write ('(S)ound check')
+end;
+
+procedure ChecksKey (Key: TKey);
+var
+ i, j: Integer;
+ WasteTime: Real; attribute (volatile);
+
+ procedure DoOSShell;
+ var
+ Result: Integer;
+ Shell: TString;
+ begin
+ Shell := GetShellPath (Null);
+ {$I-}
+ Result := Execute (Shell);
+ {$I+}
+ if (InOutRes <> 0) or (Result <> 0) then
+ begin
+ ClrScr;
+ if InOutRes <> 0 then
+ WriteLn (GetIOErrorMessage, ' while trying to execute `', Shell, '''.')
+ else
+ WriteLn ('`', Shell, ''' returned status ', Result, '.');
+ Write ('Any key to continue.');
+ BlockCursor;
+ Discard (GetKey (-1))
+ end
+ end;
+
+begin
+ case LoCase (Key2Char (Key)) of
+ 'o': begin
+ if PopUpConfirm (36, 12, 'You will now get an OS shell. Unless' + NewLine +
+ 'CRTDemo is running in its own (GUI)' + NewLine +
+ 'window, the shell will run on the' + NewLine +
+ 'same screen as CRTDemo which is not' + NewLine +
+ 'cleared before the shell is started.' + NewLine +
+ 'If possible, the screen contents are' + NewLine +
+ 'restored to the state before CRTDemo' + NewLine +
+ 'was started. After leaving the shell' + NewLine +
+ 'in the usual way (usually by enter-' + NewLine +
+ 'ing `exit''), you will get back to' + NewLine +
+ 'the demo. <ESC> to abort, any other' + NewLine +
+ 'key to start.') then
+ begin
+ RestoreTerminal (True);
+ DoOSShell
+ end;
+ ClosePopUpWindow
+ end;
+ 'c': begin
+ if PopUpConfirm (36, 9, 'You will now get an OS shell. Unless' + NewLine +
+ 'CRTDemo is running in its own (GUI)' + NewLine +
+ 'window, the screen will be cleared,' + NewLine +
+ 'and the cursor will be moved to the' + NewLine +
+ 'top before the shell is started.' + NewLine +
+ 'After leaving the shell in the usual' + NewLine +
+ 'way (usually by entering `exit''),' + NewLine +
+ 'you will get back to the demo. <ESC>' + NewLine +
+ 'to abort, any other key to start.') then
+ begin
+ RestoreTerminalClearCRT;
+ DoOSShell
+ end;
+ ClosePopUpWindow
+ end;
+ 'r': begin
+ if PopUpConfirm (36, 11, 'The program will now get busy with' + NewLine +
+ 'some dummy computations. However,' + NewLine +
+ 'CRT output in the form of dots will' + NewLine +
+ 'still appear continuously one by one' + NewLine +
+ '(rather than the whole line at once' + NewLine +
+ 'in the end). While running, the test' + NewLine +
+ 'cannot be interrupted. <ESC> to' + NewLine +
+ 'abort, any other key to start.') then
+ begin
+ SetCRTUpdate (UpdateRegularly);
+ BlockCursor;
+ WriteLn;
+ WriteLn;
+ for i := 1 to GetXMax - 2 do
+ begin
+ Write ('.');
+ for j := 1 to 400000 do WasteTime := Random
+ end;
+ SetCRTUpdate (UpdateInput);
+ WriteLn;
+ Write ('Press any key.');
+ Discard (GetKey (-1))
+ end;
+ ClosePopUpWindow
+ end;
+ 's': begin
+ if PopUpConfirm (32, 4, 'You will now hear some sounds if' + NewLine +
+ 'supported (otherwise there will' + NewLine +
+ 'just be a short pause). <ESC> to' + NewLine +
+ 'abort, any other key to start.') then
+ begin
+ BlockCursor;
+ for i := 0 to 7 do
+ begin
+ Sound (Round (440 * 2 ** (Round (i * 12 / 7 + 0.3) / 12)));
+ if GetKey (400000) in [kbEsc, kbAltEsc] then Break
+ end;
+ NoSound
+ end;
+ ClosePopUpWindow
+ end;
+ end
+end;
+
+type
+ PWindowList = ^TWindowList;
+ TWindowList = record
+ Next, Prev: PWindowList;
+ Panel, FramePanel: TPanel;
+ WindowType: Integer;
+ x1, y1, xs, ys: Integer;
+ State: (ws_None, ws_Moving, ws_Resizing);
+ end;
+
+TKeyProc = procedure (Key: TKey);
+TProcedure = procedure;
+
+const
+ MenuNameLength = 16;
+ WindowTypes: array [0 .. 9] of record
+ DrawProc,
+ PeriodicalProc: procedure;
+ KeyProc : TKeyProc;
+ Name : String (MenuNameLength);
+ Color,
+ Background,
+ MinSizeX,
+ MinSizeY,
+ PrefSizeX,
+ PrefSizeY : Integer;
+ RedrawAlways,
+ WantCursor : Boolean
+ end =
+((MainDraw , nil , nil , 'CRT Demo' , LightGreen, Blue , 26, 7, 0, 0, False, False),
+ (StatusDraw , nil , StatusKey , 'Status' , White , Red , 38, 16, 0, 0, True, True),
+ (TextAttrDemo , nil , nil , 'Text Attributes' , White , Blue , 32, 16, 64, 16, False, False),
+ (NormalCharSetDemo, nil , nil , 'Character Set' , Black , Green , 35, 17, 53, 17, False, False),
+ (PCCharSetDemo , nil , nil , 'PC Character Set', Black , Brown , 35, 17, 53, 17, False, False),
+ (KeyDemoDraw , nil , KeyDemoKey , 'Keys' , Blue , LightGray, 29, 5, -1, -1, False, True),
+ (FKeyDemoDraw , nil , FKeyDemoKey, 'Function Keys' , Blue , LightGray, 37, 22, -1, -1, False, True),
+ (ModifierDraw , ModifierPeriodical, nil , 'Modifier Keys' , Black , Cyan , 29, 11, 0, 0, True, False),
+ (IOSelectDraw , IOSelectPeriodical, nil , 'IOSelect Demo' , White , Magenta , 38, 12, 0, 0, False, False),
+ (ChecksDraw , nil , ChecksKey , 'Various Checks' , Black , Red , 26, 4, 0, 0, False, False));
+
+MenuMax = High (WindowTypes);
+MenuXSize = MenuNameLength + 4;
+MenuYSize = MenuMax + 2;
+
+var
+ WindowList: PWindowList = nil;
+
+ procedure RedrawFrame (p: PWindowList);
+ begin
+ with p^, WindowTypes[WindowType] do
+ begin
+ PanelActivate (FramePanel);
+ Window (x1, y1, x1 + xs - 1, y1 + ys - 1);
+ ClrScr;
+ case State of
+ ws_None : if p = WindowList then
+ FrameWin (' ' + Name + ' ', DoubleFrame, True)
+ else
+ FrameWin (' ' + Name + ' ', SingleFrame, False);
+ ws_Moving : FrameWin (' Move Window ', SingleFrame, True);
+ ws_Resizing: FrameWin (' Resize Window ', SingleFrame, True);
+ end
+ end
+ end;
+
+ procedure DrawWindow (p: PWindowList);
+ begin
+ with p^, WindowTypes[WindowType] do
+ begin
+ RedrawFrame (p);
+ PanelActivate (Panel);
+ Window (x1 + 2, y1 + 1, x1 + xs - 2, y1 + ys - 2);
+ ClrScr;
+ DrawProc
+ end
+ end;
+
+ procedure RedrawAll;
+ var
+ LastPanel: TPanel;
+ p: PWindowList;
+ x2, y2: Integer;
+ begin
+ LastPanel := GetActivePanel;
+ PanelActivate (MainPanel);
+ TextBackground (Blue);
+ ClrScr;
+ p := WindowList;
+ if p <> nil then
+ repeat
+ with p^ do
+ begin
+ PanelActivate (FramePanel);
+ GetWindow (x1, y1, x2, y2); { updated automatically by CRT }
+ xs := x2 - x1 + 1;
+ ys := y2 - y1 + 1
+ end;
+ DrawWindow (p);
+ p := p^.Next
+ until p = WindowList;
+ PanelActivate (LastPanel)
+ end;
+
+ procedure CheckScreenSize;
+ var
+ LastPanel: TPanel;
+ MinScreenSizeX, MinScreenSizeY, i: Integer;
+ SSize: TPoint;
+ begin
+ LastPanel := GetActivePanel;
+ PanelActivate (MainPanel);
+ HideCursor;
+ MinScreenSizeX := MenuXSize;
+ MinScreenSizeY := MenuYSize;
+ for i := Low (WindowTypes) to High (WindowTypes) do
+ with WindowTypes[i] do
+ begin
+ MinScreenSizeX := Max (MinScreenSizeX, MinSizeX + 2);
+ MinScreenSizeY := Max (MinScreenSizeY, MinSizeY + 2)
+ end;
+ SSize := ScreenSize;
+ Window (1, 1, SSize.x, SSize.y);
+ if (SSize.x < MinScreenSizeX) or (SSize.y < MinScreenSizeY) then
+ begin
+ NormVideo;
+ ClrScr;
+ RestoreTerminal (True);
+ WriteLn (StdErr, 'Sorry, your screen is too small for this demo (', SSize.x, 'x', SSize.y, ').');
+ WriteLn (StdErr, 'You need at least ', MinScreenSizeX, 'x', MinScreenSizeY, ' characters.');
+ Halt (2)
+ end;
+ PanelActivate (LastPanel);
+ RedrawAll
+ end;
+
+ procedure Die; attribute (noreturn);
+ begin
+ NoSound;
+ RestoreTerminalClearCRT;
+ WriteLn (StdErr, 'You''re trying to kill me. Since I have break checking turned off,');
+ WriteLn (StdErr, 'I''m not dying, but I''ll do you a favour and terminate now.');
+ Halt (3)
+ end;
+
+ function GetKey (TimeOut: Integer) = Key: TKey;
+ var
+ NeedSelect, SelectValue: Integer;
+ SimulateBlockCursorCurrent: TSimulateBlockCursorKind;
+ SelectInput: array [1 .. 1] of PAnyFile = (@Input);
+ NextSelectTime: MicroSecondTimeType = 0; attribute (static);
+ TimeOutTime: MicroSecondTimeType;
+ LastPanel: TPanel;
+ p: PWindowList;
+ begin
+ LastPanel := GetActivePanel;
+ if TimeOut < 0 then
+ TimeOutTime := High (TimeOutTime)
+ else
+ TimeOutTime := GetMicroSecondTime + TimeOut;
+ NeedSelect := 0;
+ if TimeOut >= 0 then
+ Inc (NeedSelect);
+ SimulateBlockCursorCurrent := SimulateBlockCursorKind;
+ if SimulateBlockCursorCurrent <> bc_None then
+ Inc (NeedSelect);
+ p := WindowList;
+ repeat
+ if @WindowTypes[p^.WindowType].PeriodicalProc <> nil then
+ Inc (NeedSelect);
+ p := p^.Next
+ until p = WindowList;
+ p := WindowList;
+ repeat
+ with p^, WindowTypes[WindowType] do
+ if RedrawAlways then
+ begin
+ PanelActivate (Panel);
+ ClrScr;
+ DrawProc
+ end;
+ p := p^.Next
+ until p = WindowList;
+ if NeedSelect <> 0 then
+ repeat
+ CRTUpdate;
+ SelectValue := IOSelectRead (SelectInput, Max (0, Min (NextSelectTime, TimeOutTime) - GetMicroSecondTime));
+ if SelectValue = 0 then
+ begin
+ case SimulateBlockCursorCurrent of
+ bc_None : ;
+ bc_Blink : SimulateBlockCursor;
+ bc_Static: begin
+ SimulateBlockCursor;
+ SimulateBlockCursorCurrent := bc_None;
+ Dec (NeedSelect)
+ end
+ end;
+ NextSelectTime := GetMicroSecondTime + 120000;
+ p := WindowList;
+ repeat
+ with p^, WindowTypes[WindowType] do
+ if @PeriodicalProc <> nil then
+ begin
+ PanelActivate (Panel);
+ PeriodicalProc
+ end;
+ p := p^.Next
+ until p = WindowList
+ end;
+ until (NeedSelect = 0) or (SelectValue <> 0) or ((TimeOut >= 0) and (GetMicroSecondTime >= TimeOutTime));
+ if NeedSelect = 0 then
+ SelectValue := 1;
+ if SelectValue = 0 then
+ Key := 0
+ else
+ Key := ReadKeyWord;
+ if SimulateBlockCursorKind <> bc_None then
+ SimulateBlockCursorOff;
+ if IsDeadlySignal (Key) then Die;
+ if Key = kbScreenSizeChanged then CheckScreenSize;
+ PanelActivate (LastPanel)
+ end;
+
+ function Menu = n: Integer;
+ var
+ i, ax, ay: Integer;
+ Key: TKey;
+ Done: Boolean;
+ SSize: TPoint;
+ begin
+ n := 1;
+ repeat
+ SSize := ScreenSize;
+ ax := (SSize.x - MenuXSize) div 2 + 1;
+ ay := (SSize.y - MenuYSize) div 2 + 1;
+ PanelNew (ax, ay, ax + MenuXSize - 1, ay + MenuYSize - 1, False);
+ SetControlChars (True);
+ TextColor (Blue);
+ TextBackground (LightGray);
+ FrameWin (' Select Window ', DoubleFrame, True);
+ IgnoreCursor;
+ PanelNew (ax + 1, ay + 1, ax + MenuXSize - 2, ay + MenuYSize - 2, False);
+ ClrScr;
+ TextColor (Black);
+ SetScroll (False);
+ Done := False;
+ repeat
+ for i := 1 to MenuMax do
+ begin
+ GotoXY (1, i);
+ if i = n then
+ TextBackground (Green)
+ else
+ TextBackground (LightGray);
+ ClrEOL;
+ Write (' ', WindowTypes[i].Name);
+ ChangeTextAttr (2, i, 1, Red + $10 * GetTextBackground)
+ end;
+ Key := GetKey (-1);
+ case LoCaseKey (Key) of
+ kbUp : if n = 1 then n := MenuMax else Dec (n);
+ kbDown : if n = MenuMax then n := 1 else Inc (n);
+ kbHome,
+ kbPgUp,
+ kbCtrlPgUp,
+ kbCtrlHome : n := 1;
+ kbEnd,
+ kbPgDn,
+ kbCtrlPgDn,
+ kbCtrlEnd : n := MenuMax;
+ kbCR : Done := True;
+ kbEsc, kbAltEsc : begin
+ n := -1;
+ Done := True
+ end;
+ Ord ('a') .. Ord ('z'): begin
+ i := MenuMax;
+ while (i > 0) and (LoCase (Key2Char (Key)) <> LoCase (WindowTypes[i].Name[1])) do Dec (i);
+ if i > 0 then
+ begin
+ n := i;
+ Done := True
+ end
+ end;
+ end
+ until Done or (Key = kbScreenSizeChanged);
+ ClosePopUpWindow
+ until Key <> kbScreenSizeChanged
+ end;
+
+ procedure NewWindow (WindowType, ax, ay: Integer);
+ var
+ p, LastWindow: PWindowList;
+ MaxX1, MaxY1: Integer;
+ SSize: TPoint;
+ begin
+ New (p);
+ if WindowList = nil then
+ begin
+ p^.Prev := p;
+ p^.Next := p
+ end
+ else
+ begin
+ p^.Prev := WindowList;
+ p^.Next := WindowList^.Next;
+ p^.Prev^.Next := p;
+ p^.Next^.Prev := p;
+ end;
+ p^.WindowType := WindowType;
+ with p^, WindowTypes[WindowType] do
+ begin
+ SSize := ScreenSize;
+ if PrefSizeX > 0 then xs := PrefSizeX else xs := MinSizeX;
+ if PrefSizeY > 0 then ys := PrefSizeY else ys := MinSizeY;
+ xs := Min (xs + 2, SSize.x);
+ ys := Min (ys + 2, SSize.y);
+ MaxX1 := SSize.x - xs + 1;
+ MaxY1 := SSize.y - ys + 1;
+ if ax = 0 then x1 := Random (MaxX1) + 1 else x1 := Min (ax, MaxX1);
+ if ay = 0 then y1 := Random (MaxY1) + 1 else y1 := Min (ay, MaxY1);
+ if (ax = 0) and (PrefSizeX < 0) then Inc (xs, Random (SSize.x - x1 - xs + 2));
+ if (ax = 0) and (PrefSizeY < 0) then Inc (ys, Random (SSize.y - y1 - ys + 2));
+ State := ws_None;
+ PanelNew (1, 1, 1, 1, False);
+ FramePanel := GetActivePanel;
+ SetControlChars (True);
+ TextColor (Color);
+ TextBackground (Background);
+ PanelNew (1, 1, 1, 1, False);
+ SetPCCharSet (False);
+ Panel := GetActivePanel;
+ end;
+ LastWindow := WindowList;
+ WindowList := p;
+ if LastWindow <> nil then RedrawFrame (LastWindow);
+ DrawWindow (p)
+ end;
+
+ procedure OpenWindow;
+ var WindowType: Integer;
+ begin
+ WindowType := Menu;
+ if WindowType >= 0 then NewWindow (WindowType, 0, 0)
+ end;
+
+ procedure NextWindow;
+ var LastWindow: PWindowList;
+ begin
+ LastWindow := WindowList;
+ WindowList := WindowList^.Next;
+ PanelTop (WindowList^.FramePanel);
+ PanelTop (WindowList^.Panel);
+ RedrawFrame (LastWindow);
+ RedrawFrame (WindowList)
+ end;
+
+ procedure PreviousWindow;
+ var LastWindow: PWindowList;
+ begin
+ PanelMoveAbove (WindowList^.Panel, MainPanel);
+ PanelMoveAbove (WindowList^.FramePanel, MainPanel);
+ LastWindow := WindowList;
+ WindowList := WindowList^.Prev;
+ RedrawFrame (LastWindow);
+ RedrawFrame (WindowList)
+ end;
+
+ procedure CloseWindow;
+ var p: PWindowList;
+ begin
+ if WindowList^.WindowType <> 0 then
+ begin
+ p := WindowList;
+ NextWindow;
+ PanelDelete (p^.FramePanel);
+ PanelDelete (p^.Panel);
+ p^.Next^.Prev := p^.Prev;
+ p^.Prev^.Next := p^.Next;
+ Dispose (p)
+ end
+ end;
+
+ procedure MoveWindow;
+ var
+ Done, Changed: Boolean;
+ SSize: TPoint;
+ begin
+ with WindowList^ do
+ begin
+ Done := False;
+ Changed := True;
+ State := ws_Moving;
+ repeat
+ if Changed then DrawWindow (WindowList);
+ Changed := True;
+ case LoCaseKey (GetKey (-1)) of
+ Ord ('s'), kbLeft : if x1 > 1 then Dec (x1);
+ Ord ('d'), kbRight : if x1 + xs - 1 < ScreenSize.x then Inc (x1);
+ Ord ('e'), kbUp : if y1 > 1 then Dec (y1);
+ Ord ('x'), kbDown : if y1 + ys - 1 < ScreenSize.y then Inc (y1);
+ Ord ('a'), kbHome : x1 := 1;
+ Ord ('f'), kbEnd : x1 := ScreenSize.x - xs + 1;
+ Ord ('r'), kbPgUp : y1 := 1;
+ Ord ('c'), kbPgDn : y1 := ScreenSize.y - ys + 1;
+ Ord ('y'), kbCtrlPgUp: begin
+ x1 := 1;
+ y1 := 1
+ end;
+ Ord ('b'), kbCtrlPgDn: begin
+ SSize := ScreenSize;
+ x1 := SSize.x - xs + 1;
+ y1 := SSize.y - ys + 1
+ end;
+ kbCR,
+ kbEsc, kbAltEsc : Done := True;
+ else Changed := False
+ end
+ until Done;
+ State := ws_None;
+ DrawWindow (WindowList)
+ end
+ end;
+
+ procedure ResizeWindow;
+ var
+ Done, Changed: Boolean;
+ SSize: TPoint;
+ begin
+ with WindowList^, WindowTypes[WindowType] do
+ begin
+ Done := False;
+ Changed := True;
+ State := ws_Resizing;
+ repeat
+ if Changed then DrawWindow (WindowList);
+ Changed := True;
+ case LoCaseKey (GetKey (-1)) of
+ Ord ('s'), kbLeft : if xs > MinSizeX + 2 then Dec (xs);
+ Ord ('d'), kbRight : if x1 + xs - 1 < ScreenSize.x then Inc (xs);
+ Ord ('e'), kbUp : if ys > MinSizeY + 2 then Dec (ys);
+ Ord ('x'), kbDown : if y1 + ys - 1 < ScreenSize.y then Inc (ys);
+ Ord ('a'), kbHome : xs := MinSizeX + 2;
+ Ord ('f'), kbEnd : xs := ScreenSize.x - x1 + 1;
+ Ord ('r'), kbPgUp : ys := MinSizeY + 2;
+ Ord ('c'), kbPgDn : ys := ScreenSize.y - y1 + 1;
+ Ord ('y'), kbCtrlPgUp: begin
+ xs := MinSizeX + 2;
+ ys := MinSizeY + 2
+ end;
+ Ord ('b'), kbCtrlPgDn: begin
+ SSize := ScreenSize;
+ xs := SSize.x - x1 + 1;
+ ys := SSize.y - y1 + 1
+ end;
+ kbCR,
+ kbEsc, kbAltEsc : Done := True;
+ else Changed := False
+ end
+ until Done;
+ State := ws_None;
+ DrawWindow (WindowList)
+ end
+ end;
+
+ procedure ActivateCursor;
+ begin
+ with WindowList^, WindowTypes[WindowType] do
+ begin
+ PanelActivate (Panel);
+ if WantCursor then
+ SetCursorShape (CursorShape)
+ else
+ HideCursor
+ end;
+ SetScroll (ScrollState)
+ end;
+
+var
+ Key: TKey;
+ ScreenShot, Done: Boolean;
+
+begin
+ ScreenShot := ParamStr (1) = '--screenshot';
+ if ParamCount <> Ord (ScreenShot) then
+ begin
+ RestoreTerminal (True);
+ WriteLn (StdErr, ParamStr (0), ': invalid argument `', ParamStr (Ord (ScreenShot) + 1), '''');
+ Halt (1)
+ end;
+ CRTSavePreviousScreen (True);
+ SetCRTUpdate (UpdateInput);
+ MainPanel := GetActivePanel;
+ CheckScreenSize;
+ OrigScreenSize := ScreenSize;
+ if ScreenShot then
+ begin
+ CursorShape := CursorBlock;
+ NewWindow (6, 1, 1);
+ NewWindow (2, 1, MaxInt);
+ NewWindow (8, MaxInt, 1);
+ NewWindow (5, 1, 27);
+ KeyDemoKey (Ord ('f'));
+ KeyDemoKey (246);
+ KeyDemoKey (kbDown);
+ NewWindow (3, MaxInt, 13);
+ NewWindow (4, MaxInt, 31);
+ NewWindow (7, MaxInt, MaxInt);
+ NewWindow (9, MaxInt, 33);
+ NewWindow (0, 1, 2);
+ NewWindow (1, 1, 14);
+ ActivateCursor;
+ OpenWindow
+ end
+ else
+ NewWindow (0, 3, 2);
+ Done := False;
+ repeat
+ ActivateCursor;
+ Key := GetKey (-1);
+ case LoCaseKey (Key) of
+ Ord ('3'), kbF3 : OpenWindow;
+ Ord ('4'), kbF4 : CloseWindow;
+ Ord ('5'), kbF5 : PreviousWindow;
+ Ord ('6'), kbF6 : NextWindow;
+ Ord ('7'), kbF7 : MoveWindow;
+ Ord ('8'), kbF8 : ResizeWindow;
+ Ord ('q'), kbEsc,
+ kbAltEsc: Done := True;
+ else
+ if WindowList <> nil then
+ with WindowList^, WindowTypes[WindowType] do
+ if @KeyProc <> nil then
+ begin
+ TextColor (Color);
+ TextBackground (Background);
+ KeyProc (Key)
+ end
+ end
+ until Done
+end.
--- /dev/null
+#!/usr/bin/perl
+# -*- eval: (bug-reference-mode 1) -*-
+
+$fileType_filesButNot # bug#12373?
+ = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );
--- /dev/null
+%% -*- mode: prolog; coding: utf-8; fill-column: 78 -*-
+
+%% Testing correct tokenizing.
+foo(X) :- 0'= = X.
+foo(X) :- 8'234 = X.
+foo(X) :- '\x45\' = X.
+foo(X) :- 'test 0'=X.
+foo(X) :- 'test 8'=X.
+
+%% wf(+E)
+%% Vérifie que E est une expression syntaxiquement correcte.
+wf(X) :- atom(X); integer(X); var(X). %Une variable ou un entier.
+wf(lambda(X, T, B)) :- atom(X), wf(T), wf(B). %Une fonction.
+wf(app(E1, E2)) :- wf(E1), wf(E2). %Un appel de fonction.
+wf(pi(X, T, B)) :- atom(X), wf(T), wf(B). %Le type d'une fonction.
+
+%% Éléments additionnels utilisés dans le langage source.
+wf(lambda(X, B)) :- atom(X), wf(B).
+wf(let(X, E1, E2)) :- atom(X), wf(E1), wf(E2).
+wf(let(X, T, E1, E2)) :- atom(X), wf(T), wf(E1), wf(E2).
+wf((T1 -> T2)) :- wf(T1), wf(T2).
+wf(forall(X, T, B)) :- atom(X), wf(T), wf(B).
+wf(fix(X,T,E1,E2)) :- atom(X), wf(T), wf(E1), wf(E2).
+wf(fix(X,E1,E2)) :- atom(X), wf(E1), wf(E2).
+wf(app(E1,E2,E3)) :- wf(E1), wf(E2), wf(E3).
+wf(app(E1,E2,E3,E4)) :- wf(E1), wf(E2), wf(E3), wf(E4).
+
+%% subst(+X, +V, +FV, +Ei, -Eo)
+%% Remplace X par V dans Ei. Les variables qui apparaissent libres dans
+%% V et peuvent aussi apparaître dans Ei doivent toutes être inclues
+%% dans l'environnement FV.
+subst(X, V, _, X, E) :- !, E = V.
+subst(_, _, _, Y, Y) :- atom(Y); integer(Y).
+%% Residualize the substitution when applied to an uninstantiated variable.
+%% subst(X, V, _, Y, app(lambda(X,_,Y),V)) :- var(Y).
+%% Rather than residualize and leave us with unifications that fail, let's
+%% rather assume that Y will not refer to X.
+subst(X, V, _, Y, Y) :- var(Y).
+subst(X, V, FV, lambda(Y, Ti, Bi), lambda(Y1, To, Bo)) :-
+ subst(X, V, FV, Ti, To),
+ (X = Y ->
+ %% If X is equal to Y, X is shadowed, so no subst can take place.
+ Y1 = Y, Bo = Bi;
+ (member((Y, _), FV) ->
+ %% If Y appears in FV, it can appear in V, so we need to
+ %% rename it to avoid name capture.
+ new_atom(Y, Y1),
+ subst(Y, Y1, [], Bi, Bi1);
+ Y1 = Y, Bi1 = Bi),
+ %% Perform substitution on the body.
+ subst(X, V, FV, Bi1, Bo)).
+subst(X, V, FV, pi(Y, Ti, Bi), pi(Y1, To, Bo)) :-
+ subst(X, V, FV, lambda(Y, Ti, Bi), lambda(Y1, To, Bo)).
+subst(X, V, FV, forall(Y, Ti, Bi), forall(Y1, To, Bo)) :-
+ subst(X, V, FV, lambda(Y, Ti, Bi), lambda(Y1, To, Bo)).
+subst(X, V, FV, app(E1i, E2i), app(E1o, E2o)) :-
+ subst(X, V, FV, E1i, E1o), subst(X, V, FV, E2i, E2o).
+
+%% apply(+F, +Arg, +Env, -E)
+apply(lambda(X, _, B), Arg, Env, E) :- \+ var(B), subst(X, Arg, Env, B, E).
+apply(app(plus, N1), N2, _, N) :- integer(N1), integer(N2), N is N1 + N2.
+apply(app(minus, N1), N2, _, N) :- integer(N1), integer(N2), N is N1 - N2.
+
+
+%% normalize(+E1, +Env, -E2)
+%% Applique toutes les réductions possibles sur E1.
+normalize(X, _, X) :- integer(X); var(X); atom(X).
+%% normalize(X, Env, E) :- atom(X), member((X, E), Env).
+normalize(lambda(X, T, B), Env, lambda(X, Tn, Bn)) :-
+ normalize(T, [(X,T)|Env], Tn), normalize(B, [(X,T)|Env], Bn).
+normalize(pi(X, T, B), Env, pi(X, Tn, Bn)) :-
+ normalize(T, [(X,T)|Env], Tn), normalize(B, [(X,T)|Env], Bn).
+normalize(forall(X, T, B), Env, forall(X, Tn, Bn)) :-
+ normalize(T, [(X,T)|Env], Tn), normalize(B, [(X,T)|Env], Bn).
+normalize(app(E1, E2), Env, En) :-
+ normalize(E1, Env, E1n),
+ normalize(E2, Env, E2n),
+ (apply(E1n, E2n, Env, E) ->
+ normalize(E, Env, En);
+ En = app(E1n, E2n)).
+
+%% infer(+E, +Env, -T)
+%% Infère le type de E dans Env. On essaie d'être permissif, dans le sens
+%% que l'on présume que l'expression est typée correctement.
+infer(X, _, int) :- integer(X).
+infer(X, _, _) :- var(X). %Une expression encore inconnue.
+infer(X, Env, T) :-
+ atom(X),
+ (member((X, T1), Env) ->
+ %% X est déjà dans Env: vérifie que le type est correct.
+ T = T1;
+ %% X est une variable libre.
+ true).
+infer(lambda(X,T,B), Env, pi(Y,T,TB)) :-
+ infer(B, [(X,T)|Env], TBx),
+ (var(Y) ->
+ Y = X, TB = TBx;
+ subst(X, Y, Env, TBx, TB)).
+infer(app(E1, E2), Env, Tn) :-
+ infer(E1, Env, T1),
+ (T1 = pi(X,T2,B); T1 = forall(X,T2,B)),
+ infer(E2, Env, T2),
+ subst(X, E2, Env, B, T),
+ normalize(T, Env, Tn).
+infer(pi(X,T1,T2), Env, type) :-
+ infer(T1, Env, type),
+ infer(T2, [(X,T1)|Env], type).
+infer(forall(X,T1,T2), Env, type) :-
+ infer(T1, Env, type),
+ infer(T2, [(X,T1)|Env], type).
+
+%% freevars(+E, +Env, -Vs)
+%% Renvoie les variables libres de E. Vs est une liste associative
+%% où chaque élément est de la forme (X,T) où X est une variable et T est
+%% son type.
+freevars(X, _, []) :- integer(X).
+freevars(X, Env, Vs) :-
+ atom(X),
+ (member((X,_), Env) ->
+ %% Variable liée.
+ Vs = [];
+ %% Variable libre. Type inconnu :-(
+ Vs = [(X,_)]).
+%% Les variables non-instanciées peuvent être remplacées par des paramètres
+%% qui seront liés par `closetype' selon le principe de Hindley-Milner.
+freevars(X, _, [(X, _)]) :- var(X), new_atom(X).
+freevars(app(E1, E2), Env, Vs) :-
+ freevars(E1, Env, Vs1),
+ append(Vs1, Env, Env1),
+ freevars(E2, Env1, Vs2),
+ append(Vs1, Vs2, Vs).
+freevars(lambda(X, T, B), Env, Vs) :-
+ freevars(T, Env, TVs),
+ append(TVs, Env, Env1),
+ freevars(B, [(X,T)|Env1], BVs),
+ append(TVs, BVs, Vs).
+freevars(pi(X, T, B), Env, Vs) :- freevars(lambda(X, T, B), Env, Vs).
+freevars(forall(X, T, B), Env, Vs) :- freevars(lambda(X, T, B), Env, Vs).
+
+%% close(+Eo, +To, +Vs, -Ec, -Tc)
+%% Ferme un type ouvert To en liant chaque variable libre (listées dans Vs)
+%% avec `forall'.
+closetype(E, T, [], E, T).
+closetype(Eo, To, [(X,T)|Vs], lambda(X, T, Ec), forall(X, T, Tc)) :-
+ closetype(Eo, To, Vs, Ec, Tc).
+
+%% elab_type(+Ee, +Te, +Env, -Eg, -Tg)
+%% Ajoute les arguments implicites de E:T.
+generalize(Ee, Te, Env, Eg, Tg) :-
+ freevars(Te, Env, Vs),
+ append(Vs, Env, EnvX),
+ %% Essaie d'instancier les types des paramètres que `generalize' vient
+ %% d'ajouter.
+ infer(Te, EnvX, type),
+ closetype(Ee, Te, Vs, Eg, Tg).
+
+%% instantiate(+X, +T, -E)
+%% Utilise la variable X de type T. Le résultat E est X auquel on ajoute
+%% tous les arguments implicites (de valeur inconnue).
+instantiate(X, T, X) :- var(T), !.
+instantiate(X, forall(_, _, T), app(E, _)) :- !, instantiate(X, T, E).
+instantiate(X, _, X).
+
+%% elaborate(+E1, +Env, -E2)
+%% Transforme E1 en une expression E2 où le sucre syntaxique a été éliminé
+%% et où les arguments implicites ont été rendus explicites.
+elaborate(X, _, X) :- integer(X); var(X).
+elaborate(X, Env, E) :-
+ atom(X),
+ (member((X, T), Env) ->
+ instantiate(X, T, E);
+ %% Si X n'est pas dans l'environnement, c'est une variable libre que
+ %% l'on voudra probablement généraliser.
+ X = E).
+elaborate(lambda(X, T, B), Env, lambda(X, Te, Be)) :-
+ elaborate(T, Env, Te),
+ elaborate(B, [(X,Te)|Env], Be).
+elaborate(pi(X, T, B), Env, pi(X, Te, Be)) :-
+ elaborate(T, Env, Te),
+ elaborate(B, [(X,Te)|Env], Be).
+elaborate(app(E1, E2), Env, app(E1e, E2e)) :-
+ elaborate(E1, Env, E1e),
+ elaborate(E2, Env, E2e).
+elaborate(let(X, T, E1, E2), Env, app(lambda(X, Tg, E2e), E1g)) :-
+ elaborate(E1, Env, E1e),
+ elaborate(T, Env, Te),
+ infer(E1e, Env, Te),
+ generalize(E1e, Te, Env, E1g, Tg),
+ elaborate(E2, [(X,Te)|Env], E2e).
+%% Expansion du sucre syntaxique.
+elaborate((T1 -> T2), Env, Ee) :-
+ new_atom(X), elaborate(pi(X, T1, T2), Env, Ee).
+elaborate(app(E1, E2, E3, E4), Env, Ee) :-
+ elaborate(app(app(E1,E2,E3),E4), Env, Ee).
+elaborate(app(E1, E2, E3), Env, Ee) :- elaborate(app(app(E1,E2),E3), Env, Ee).
+elaborate(lambda(X, B), Env, Ee) :- elaborate(lambda(X, _, B), Env, Ee).
+elaborate(let(X, E1, E2), Env, Ee) :- elaborate(let(X, _, E1, E2), Env, Ee).
+elaborate(fix(F,B,E), Env, Ee) :- elaborate(fix(F,_,B,E), Env, Ee).
+elaborate(fix(F,T,B,E), Env, Ee) :-
+ elaborate(let(F,T,app(fix,lambda(F,T,B)),E), Env, Ee).
+
+%% elab_bindings(+TS, +Env, -TS).
+%% Applique `elaborate' sur l'environnement de type TS.
+elab_tenv([], _, []).
+elab_tenv([(X,T)|TS], Env, [(X, Tg)|TSe]) :-
+ elaborate(T, Env, Te),
+ infer(Te, Env, type),
+ generalize(_, Te, Env, _, Tg),
+ elab_tenv(TS, [(X, Tg)|Env], TSe).
+
+
+%% elaborate(+E1, -E2)
+%% Comme le `elaborate' ci-dessus, mais avec un environnement par défaut.
+elaborate(SRC, E) :-
+ elab_tenv([(int, type),
+ (fix, ((t -> t) -> t)),
+ %% list: type → int → type
+ (list, (type -> int -> type)),
+ %% plus: int → int → int
+ (plus, (int -> int -> int)),
+ %% minus: int → int → int
+ (minus, (int -> int -> int)),
+ %% nil: list t 0
+ (nil, app(app(list,t),0)),
+ %% cons: t -> list t n → list t (n + 1)
+ (cons, (t -> app(app(list,t),n) ->
+ app(app(list,t), app(app(plus,n),1)))) %fixindent
+ ],
+ [(type,type)],
+ Env),
+ elaborate(SRC, Env, E).
--- /dev/null
+# Percent literals.
+b = %Q{This is a "string"}
+c = %w!foo
+ bar
+ baz!
+d = %(hello (nested) world)
+
+# Don't propertize percent literals inside strings.
+"(%s, %s)" % [123, 456]
+
+# Or inside comments.
+x = # "tot %q/to"; =
+y = 2 / 3
+
+# Regexp after whitelisted method.
+"abc".sub /b/, 'd'
+
+# Don't mis-match "sub" at the end of words.
+a = asub / aslb + bsub / bslb;
+
+# Highlight the regexp after "if".
+x = toto / foo if /do bar/ =~ "dobar"
+
+# Some Cucumber code:
+Given /toto/ do
+ print "hello"
+end
--- /dev/null
+#!/bin/rc
+
+if (foo) {
+ echo 1 \
+ toto \
+ tutu
+ titi
+}
+if not {
+ echo 2
+}
+
+if (foo)
+ echo 3 # KNOWN INDENT BUG
+if not
+ echo 4 # KNOWN INDENT BUG
+
+switch ($a) {
+ case 3
+ echo 4
+ case 5
+ echo 7
+ for (i in a b c) {
+ echo $i
+ }
+ for (i in a b c)
+ echo "$i" # KNOWN INDENT BUG
+ echo titi
+ if (foo)
+ echo 3 # KNOWN INDENT BUG
+ if not
+ echo 4 # KNOWN INDENT BUG
+
+ case *
+ echo other
+}
+
--- /dev/null
+#!/bin/sh
+# -*- eval: (bug-reference-mode 1) -*-
+
+setlock -n /tmp/getmail.lock && echo getmail isn\'t running
+
+# adsgsdg
+
+echo -n $(( 5 << 2 ))
+# This should not be treated as a heredoc (bug#12770).
+2
+
+foo='bar<<' # bug#11263
+echo ${foo%<<aa} # bug#11263
+echo $((1<<8)) # bug#11263
+echo $[1<<8] # bug#11263
+
+declare -a VERSION
+for i in $(ls "$PREFIX/sbin") ; do
+ echo -e $N')' $i
+ VERSION[${#VERSION[*]}]=$i #bug#11946.
+ N=$(($N + 1))
+done
+
+foo () {
+
+ bar () {
+ blilbi
+ }
+
+ case toto
+ in a) hello # KNOWN INDENT BUG
+ ;; b) hi # KNOWN INDENT BUG
+ ;; c) hi # KNOWN INDENT BUG
+ esac
+
+ case $toto in
+ a) echo 1;; b) echo 2;;
+ (c)
+ echo 3;;
+ d)
+ echo 3;;
+ esac
+
+ case $as_nl`(ac_space=' '; set) 2>&1` in #(
+ *${as_nl}ac_space=\ *)
+ # `set' does not quote correctly, so add quotes: double-quote
+ # substitution turns \\\\ into \\, and sed turns \\ into \.
+ sed -n \
+ "s/'/'\\\\''/g;
+ s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=/\\1=''/p"
+ ;; #(
+ *)
+ # `set' quotes correctly as required by POSIX, so do not add
+ # quotes.
+ sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
+ ;;
+ esac |
+ grep '.' | # KNOWN INDENT BUG
+ sed 1d
+
+ case toto in
+ -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
+ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* \
+ | --exec=* | --exe=* | --ex=*)
+ exec_prefix=$ac_optarg ;;
+ 5)
+ hello ;;
+ 3) hello $(adfad)
+ echo esac ;; # KNOWN INDENT BUG
+ 5) hello ;;
+ 4) hello ;&
+ 4) hello ;;&
+ 5) hello ;;
+ 5) hello ;;
+ esac
+
+ echo "'" wfgfe
+
+ #!/bin/bash
+ cat << EOF \
+ | cat sadfsafd \
+ sadfsafd "KNOWN INDENT BUG" \
+ | tee -a bug.txt
+asdfsaf
+This is a test case for a bug in bash shell mode text highlighting
+EOF
+
+ cat <<EOF1 <<EOF2 # KNOWN INDENT BUG
+help1
+EOF1
+help2
+EOF2
+}
+bar () {
+ if [ $# == 0 ]; then
+ while
+ f # KNOWN INDENT BUG
+ do
+ bla;
+ done
+ echo "Highlighting is screwed up now"
+ if [ 1 = 1 ]; then
+ # adsgsdg
+ echo "screwed up"
+ fi
+
+ $@ $? $#
+
+ for f in *
+ do
+ sdfg
+ done
+
+ if swrgfef
+ then blas
+ else sdf
+ fi
+
+ fi
+}
--- /dev/null
+;;; redisplay-testsuite.el --- Test suite for redisplay.
+
+;; Copyright (C) 2009-2013 Free Software Foundation, Inc.
+
+;; Author: Chong Yidong <cyd@stupidchicken.com>
+;; Keywords: internal
+;; Human-Keywords: internal
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Type M-x test-redisplay RET to generate the test buffer.
+
+;;; Code:
+
+(defun test-insert-overlay (text &rest props)
+ (let ((opoint (point))
+ overlay)
+ (insert text)
+ (setq overlay (make-overlay opoint (point)))
+ (while props
+ (overlay-put overlay (car props) (cadr props))
+ (setq props (cddr props)))))
+
+(defun test-redisplay-1 ()
+ (insert "Test 1: Displaying adjacent and overlapping overlays:\n\n")
+ (insert " Expected: gnu emacs\n")
+ (insert " Results: ")
+ (test-insert-overlay "n" 'before-string "g" 'after-string "u ")
+ (test-insert-overlay "ma" 'before-string "e" 'after-string "cs")
+ (insert "\n\n")
+ (insert " Expected: gnu emacs\n")
+ (insert " Results: ")
+ (test-insert-overlay "u" 'before-string "gn")
+ (test-insert-overlay "ma" 'before-string " e" 'after-string "cs")
+ (insert "\n\n")
+ (insert " Expected: gnu emacs\n")
+ (insert " Results: ")
+ (test-insert-overlay "XXX" 'display "u "
+ 'before-string "gn" 'after-string "em")
+ (test-insert-overlay "a" 'after-string "cs")
+ (insert "\n\n")
+ (insert " Expected: gnu emacs\n")
+ (insert " Results: ")
+ (test-insert-overlay "u " 'before-string "gn" 'after-string "em")
+ (test-insert-overlay "XXX" 'display "a" 'after-string "cs")
+ (insert "\n\n"))
+
+(defun test-redisplay-2 ()
+ (insert "Test 2: Mouse highlighting. Move your mouse over the letters XXX:\n\n")
+ (insert " Expected: "
+ (propertize "xxxXXXxxx" 'face 'highlight)
+ "...---...\n Test: ")
+ (test-insert-overlay "XXX" 'before-string "xxx" 'after-string "xxx"
+ 'mouse-face 'highlight )
+ (test-insert-overlay "---" 'before-string "..." 'after-string "...")
+ (insert "\n\n Expected: "
+ (propertize "xxxXXX" 'face 'highlight)
+ "...---...\n Test: ")
+ (test-insert-overlay "XXX" 'before-string "xxx" 'mouse-face 'highlight)
+ (test-insert-overlay "---" 'before-string "..." 'after-string "...")
+ (insert "\n\n Expected: "
+ (propertize "XXX" 'face 'highlight)
+ "...---...\n Test: ")
+ (test-insert-overlay "..." 'display "XXX" 'mouse-face 'highlight)
+ (test-insert-overlay "---" 'before-string "..." 'after-string "...")
+ (insert "\n\n Expected: "
+ (propertize "XXXxxx" 'face 'highlight)
+ "...\n Test: ")
+ (test-insert-overlay "..." 'display "XXX" 'after-string "xxx"
+ 'mouse-face 'highlight)
+ (test-insert-overlay "error" 'display "...")
+ (insert "\n\n Expected: "
+ "---..."
+ (propertize "xxxXXX" 'face 'highlight)
+ "\n Test: ")
+ (test-insert-overlay "xxx" 'display "---" 'after-string "...")
+ (test-insert-overlay "error" 'before-string "xxx" 'display "XXX"
+ 'mouse-face 'highlight)
+ (insert "\n\n Expected: "
+ "...---..."
+ (propertize "xxxXXXxxx" 'face 'highlight)
+ "\n Test: ")
+ (test-insert-overlay "---" 'before-string "..." 'after-string "...")
+ (test-insert-overlay "XXX" 'before-string "xxx" 'after-string "xxx"
+ 'mouse-face 'highlight)
+ (insert "\n\n Expected: "
+ "..."
+ (propertize "XXX" 'face 'highlight)
+ "...\n Test: ")
+ (test-insert-overlay "---"
+ 'display (propertize "XXX" 'mouse-face 'highlight)
+ 'before-string "..."
+ 'after-string "...")
+ (insert "\n\n Expected: "
+ (propertize "XXX\n" 'face 'highlight)
+ "\n Test: ")
+ (test-insert-overlay "XXX\n" 'mouse-face 'highlight)
+ (insert "\n\n"))
+
+(defun test-redisplay-3 ()
+ (insert "Test 3: Overlay with strings and images:\n\n")
+ (let ((img-data "#define x_width 8
+#define x_height 8
+static unsigned char x_bits[] = {0xff, 0x81, 0xbd, 0xa5, 0xa5, 0xbd, 0x81, 0xff };"))
+ ;; Control
+ (insert " Expected: AB"
+ (propertize "X" 'display `(image :data ,img-data :type xbm))
+ "CD\n")
+
+ ;; Overlay with before, after, and image display string.
+ (insert " Result 1: ")
+ (let ((opoint (point)))
+ (insert "AXD\n")
+ (let ((ov (make-overlay (1+ opoint) (+ 2 opoint))))
+ (overlay-put ov 'before-string "B")
+ (overlay-put ov 'after-string "C")
+ (overlay-put ov 'display
+ `(image :data ,img-data :type xbm))))
+
+ ;; Overlay with before and after string, and image text prop.
+ (insert " Result 2: ")
+ (let ((opoint (point)))
+ (insert "AXD\n")
+ (let ((ov (make-overlay (1+ opoint) (+ 2 opoint))))
+ (overlay-put ov 'before-string "B")
+ (overlay-put ov 'after-string "C")
+ (put-text-property (1+ opoint) (+ 2 opoint) 'display
+ `(image :data ,img-data :type xbm))))
+
+ ;; Overlays with adjacent before and after strings, and image text
+ ;; prop.
+ (insert " Result 3: ")
+ (let ((opoint (point)))
+ (insert "AXD\n")
+ (let ((ov1 (make-overlay opoint (1+ opoint)))
+ (ov2 (make-overlay (+ 2 opoint) (+ 3 opoint))))
+ (overlay-put ov1 'after-string "B")
+ (overlay-put ov2 'before-string "C")
+ (put-text-property (1+ opoint) (+ 2 opoint) 'display
+ `(image :data ,img-data :type xbm))))
+
+ ;; Three overlays.
+ (insert " Result 4: ")
+ (let ((opoint (point)))
+ (insert "AXD\n\n")
+ (let ((ov1 (make-overlay opoint (1+ opoint)))
+ (ov2 (make-overlay (+ 2 opoint) (+ 3 opoint)))
+ (ov3 (make-overlay (1+ opoint) (+ 2 opoint))))
+ (overlay-put ov1 'after-string "B")
+ (overlay-put ov2 'before-string "C")
+ (overlay-put ov3 'display `(image :data ,img-data :type xbm))))))
+
+(defun test-redisplay-4 ()
+ (insert "Test 4: Overlay strings and invisibility:\n\n")
+ ;; Before and after strings with non-nil `invisibility'.
+ (insert " Expected: ABC\n")
+ (insert " Result: ")
+ (let ((opoint (point)))
+ (insert "ABC\n")
+ (let ((ov (make-overlay (1+ opoint) (+ 2 opoint))))
+ (overlay-put ov 'before-string
+ (propertize "XX" 'invisible
+ 'test-redisplay--simple-invis))
+ (overlay-put ov 'after-string
+ (propertize "XX" 'invisible
+ 'test-redisplay--simple-invis))))
+
+ ;; Before and after strings bogus `invisibility' property (value is
+ ;; not listed in `buffer-invisibility-spec').
+ (insert "\n Expected: ABC")
+ (insert "\n Result: ")
+ (let ((opoint (point)))
+ (insert "B\n")
+ (let ((ov (make-overlay opoint (1+ opoint))))
+ (overlay-put ov 'before-string
+ (propertize "A" 'invisible 'bogus-invis-spec))
+ (overlay-put ov 'after-string
+ (propertize "C" 'invisible 'bogus-invis-spec))))
+
+ ;; Before/after string with ellipsis `invisibility' property.
+ (insert "\n Expected: ...B...")
+ (insert "\n Result: ")
+ (let ((opoint (point)))
+ (insert "B\n")
+ (let ((ov (make-overlay opoint (1+ opoint))))
+ (overlay-put ov 'before-string
+ (propertize "A" 'invisible 'test-redisplay--ellipsis-invis))
+ (overlay-put ov 'after-string
+ (propertize "C" 'invisible 'test-redisplay--ellipsis-invis))))
+
+ ;; Before/after string with partial ellipsis `invisibility' property.
+ (insert "\n Expected: A...ABC...C")
+ (insert "\n Result: ")
+ (let ((opoint (point)))
+ (insert "B\n")
+ (let ((ov (make-overlay opoint (1+ opoint)))
+ (a "AAA")
+ (c "CCC"))
+ (put-text-property 1 2 'invisible 'test-redisplay--ellipsis-invis a)
+ (put-text-property 1 2 'invisible 'test-redisplay--ellipsis-invis c)
+ (overlay-put ov 'before-string a)
+ (overlay-put ov 'after-string c)))
+
+ ;; Display string with `invisibility' property.
+ (insert "\n Expected: ABC")
+ (insert "\n Result: ")
+ (let ((opoint (point)))
+ (insert "AYBC\n")
+ (let ((ov (make-overlay (1+ opoint) (+ 2 opoint))))
+ (overlay-put ov 'display
+ (propertize "XX" 'invisible
+ 'test-redisplay--simple-invis))))
+ ;; Display string with bogus `invisibility' property.
+ (insert "\n Expected: ABC")
+ (insert "\n Result: ")
+ (let ((opoint (point)))
+ (insert "AXC\n")
+ (let ((ov (make-overlay (1+ opoint) (+ 2 opoint))))
+ (overlay-put ov 'display
+ (propertize "B" 'invisible 'bogus-invis-spec))))
+ ;; Display string with ellipsis `invisibility' property.
+ (insert "\n Expected: A...C")
+ (insert "\n Result: ")
+ (let ((opoint (point)))
+ (insert "AXC\n")
+ (let ((ov (make-overlay (1+ opoint) (+ 2 opoint))))
+ (overlay-put ov 'display
+ (propertize "B" 'invisible
+ 'test-redisplay--ellipsis-invis))))
+ ;; Display string with partial `invisibility' property.
+ (insert "\n Expected: A...C")
+ (insert "\n Result: ")
+ (let ((opoint (point)))
+ (insert "X\n")
+ (let ((ov (make-overlay opoint (1+ opoint)))
+ (str "ABC"))
+ (put-text-property 1 2 'invisible 'test-redisplay--ellipsis-invis str)
+ (overlay-put ov 'display str)))
+
+ (insert "\n"))
+
+
+(defun test-redisplay ()
+ (interactive)
+ (let ((buf (get-buffer "*Redisplay Test*")))
+ (if buf
+ (kill-buffer buf))
+ (switch-to-buffer (get-buffer-create "*Redisplay Test*"))
+ (erase-buffer)
+ (setq buffer-invisibility-spec
+ '(test-redisplay--simple-invis
+ (test-redisplay--ellipsis-invis . t)))
+ (test-redisplay-1)
+ (test-redisplay-2)
+ (test-redisplay-3)
+ (test-redisplay-4)
+ (goto-char (point-min))))
+
--- /dev/null
+;;; rmailmm.el --- tests for mail/rmailmm.el
+
+;; Copyright (C) 2006-2013 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'rmailmm)
+
+(defun rmailmm-test-handler ()
+ "Test of a mail using no MIME parts at all."
+ (let ((mail "To: alex@gnu.org
+Content-Type: text/plain; charset=koi8-r
+Content-Transfer-Encoding: 8bit
+MIME-Version: 1.0
+
+\372\304\322\301\327\323\324\327\325\312\324\305\41"))
+ (switch-to-buffer (get-buffer-create "*test*"))
+ (erase-buffer)
+ (set-buffer-multibyte nil)
+ (insert mail)
+ (rmail-mime-show t)
+ (set-buffer-multibyte t)))
+
+(defun rmailmm-test-bulk-handler ()
+ "Test of a mail used as an example in RFC 2183."
+ (let ((mail "Content-Type: image/jpeg
+Content-Disposition: attachment; filename=genome.jpeg;
+ modification-date=\"Wed, 12 Feb 1997 16:29:51 -0500\";
+Content-Description: a complete map of the human genome
+Content-Transfer-Encoding: base64
+
+iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAAABGdBTUEAALGPC/xhBQAAAAZQ
+TFRF////AAAAVcLTfgAAAPZJREFUeNq9ldsOwzAIQ+3//+l1WlvA5ZLsoUiTto4TB+ISoAjy
++ITfRBfcAmgRFFeAm+J6uhdKdFhFWUgDkFsK0oUp/9G2//Kj7Jx+5tSKOdBscgUYiKHRS/me
+WATQdRUvAK0Bnmshmtn79PpaLBbbOZkjKvRnjRZoRswOkG1wFchKew2g9wXVJVZL/m4+B+vv
+9AxQQR2Q33SgAYJzzVACdAWjAfRYzYFO9n6SLnydtQHSMxYDMAKqZ/8FS/lTK+zuq3CtK64L
+UDwbgUEAUmk2Zyg101d6PhCDySgAvTvDgKiuOrc4dLxUb7UMnhGIexyI+d6U+ABuNAP4Simx
+lgAAAABJRU5ErkJggg==
+"))
+ (switch-to-buffer (get-buffer-create "*test*"))
+ (erase-buffer)
+ (insert mail)
+ (rmail-mime-show)))
+
+(defun rmailmm-test-multipart-handler ()
+ "Test of a mail used as an example in RFC 2046."
+ (let ((mail "From: Nathaniel Borenstein <nsb@bellcore.com>
+To: Ned Freed <ned@innosoft.com>
+Date: Sun, 21 Mar 1993 23:56:48 -0800 (PST)
+Subject: Sample message
+MIME-Version: 1.0
+Content-type: multipart/mixed; boundary=\"simple boundary\"
+
+This is the preamble. It is to be ignored, though it
+is a handy place for composition agents to include an
+explanatory note to non-MIME conformant readers.
+
+--simple boundary
+
+This is implicitly typed plain US-ASCII text.
+It does NOT end with a linebreak.
+--simple boundary
+Content-type: text/plain; charset=us-ascii
+
+This is explicitly typed plain US-ASCII text.
+It DOES end with a linebreak.
+
+--simple boundary--
+
+This is the epilogue. It is also to be ignored."))
+ (switch-to-buffer (get-buffer-create "*test*"))
+ (erase-buffer)
+ (insert mail)
+ (rmail-mime-show t)))
+
+;;; rmailmm.el ends here
projects / platform / upstream / emacs.git / commitdiff