Mercurial > hg > xemacs-beta
changeset 78:c7528f8e288d r20-0b34
Import from CVS: tag r20-0b34
line wrap: on
line diff
--- a/CHANGES-beta Mon Aug 13 09:05:11 2007 +0200 +++ b/CHANGES-beta Mon Aug 13 09:05:42 2007 +0200 @@ -1,4 +1,14 @@ -*- indented-text -*- +to 20.0 beta34 +-- backup-dir 2.0 courtesy of Greg Klanderman +-- lazy-lock-1.15 +-- tm-7.100.3 +-- Various patches courtesy of Joel Peterson +-- viper-2.91 +-- ediff-2.63 +-- psgml-1.01 +-- Miscellaneous bug fixes + to 20.0 beta33 -- 20k of new zippy quotes from mly -- By popular demand, `font-menu-this-frame-only-p' now defaults to nil.
--- a/ChangeLog Mon Aug 13 09:05:11 2007 +0200 +++ b/ChangeLog Mon Aug 13 09:05:42 2007 +0200 @@ -1,3 +1,25 @@ +Sat Jan 4 14:52:57 1997 Steven L Baur <steve@altair.xemacs.org> + * XEmacs 20.0 beta 34 is released. + * XEmacs 19.15 beta 7 is released. + +Fri Jan 3 15:18:59 1997 Jeff Miller <jmiller@bay1.bayserve.net> + + * lwlib/Makefile.in.in: lwlib is required if X11 is used. + +Sun Dec 29 17:02:49 1996 Steven L Baur <steve@altair.xemacs.org> + + * Makefile.in (install-arch-indep): Force compression with `gzip -f'. + + * lib-src/update-elc.sh (NUMTOCOMPILE): Ignore CVS directories. + + * Makefile.in (install-arch-indep): Catch .info-[0-9]* files for + installation. + +Sat Dec 28 15:33:27 1996 Steven L Baur <steve@altair.xemacs.org> + + * XEmacs 20.0 beta 33 is released. + * XEmacs 19.15 beta 6 is released. + Fri Dec 27 20:34:58 1996 Richard Mlynarik <mly@adoc.xerox.com> * etc/yow.lines: 20k of new zippy quotes.
--- a/Makefile.in Mon Aug 13 09:05:11 2007 +0200 +++ b/Makefile.in Mon Aug 13 09:05:42 2007 +0200 @@ -393,10 +393,10 @@ if [ ! -f ${infodir}/dir ] && [ -f dir ]; then \ ${INSTALL_DATA} ${srcdir}/info/dir ${infodir}/dir ; \ fi ; \ - for f in *.info ; do \ + for f in *.info* ; do \ ${INSTALL_DATA} ${srcdir}/info/$$f ${infodir}/$$f ; \ chmod 0644 ${infodir}/$$f; \ - gzip -9 ${infodir}/$$f; \ + gzip -f9 ${infodir}/$$f; \ done); \ else true; fi cd ${srcdir}/etc; for page in xemacs etags ctags gnuserv \
--- a/dynodump/Makefile.in.in Mon Aug 13 09:05:11 2007 +0200 +++ b/dynodump/Makefile.in.in Mon Aug 13 09:05:42 2007 +0200 @@ -16,8 +16,9 @@ for more details. You should have received a copy of the GNU General Public License -along with XEmacs; see the file COPYING. If not, write to the Free -Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ /* Avoid trouble on systems where the "SHELL" variable might be inherited from the environment. */ @@ -94,7 +95,7 @@ #endif dynodump.so: ${srcdir}/_dynodump.h $(OBJS) - PATH=/usr/ccs/bin:$PATH ld -o dynodump.so -G $(OBJS) -lelf -lmapmalloc + PATH=/usr/ccs/bin:/bin:$PATH ld -o dynodump.so -G $(OBJS) -lelf -lmapmalloc _relocate.o: ${srcdir}/$(ARCH)/_relocate.c $(CC) -c $(ALL_CFLAGS) ${srcdir}/$(ARCH)/_relocate.c
--- a/etc/sample.emacs Mon Aug 13 09:05:11 2007 +0200 +++ b/etc/sample.emacs Mon Aug 13 09:05:42 2007 +0200 @@ -185,6 +185,11 @@ ;; Change the pointer used when the mouse is over a modeline (set-glyph-image modeline-pointer-glyph "leftbutton") + ;; Change the continuation glyph face so it stands out more + (and (fboundp 'set-glyph-property) + (boundp 'continuation-glyph) + (set-glyph-property continuation-glyph 'face 'bold)) + ;; Change the pointer used during garbage collection. ;; ;; Note that this pointer image is rather large as pointers go, @@ -564,7 +569,24 @@ (resize-minibuffer-mode) (setq resize-minibuffer-window-exactly nil) - +;; Create a single detached minibuffer used by all frames. +;; Uncomment to try this out. +;(when running-xemacs +; (setq initial-frame-plist '(minibuffer nil)) +; (setq default-frame-plist '(minibuffer nil)) +; (setq default-minibuffer-frame +; (make-frame +; '(minibuffer only +; width 86 +; height 1 +; menubar-visible-p nil +; default-toolbar-visible-p nil +; name "minibuffer" +; top -2 +; left -2 +; has-modeline-p nil))) +; (frame-notice-user-settings)) + ;;; ******************** ;;; W3 is a browser for the World Wide Web, and takes advantage of the very ;;; latest redisplay features in XEmacs. You can access it simply by typing
--- a/etc/viperCard.tex Mon Aug 13 09:05:11 2007 +0200 +++ b/etc/viperCard.tex Mon Aug 13 09:05:42 2007 +0200 @@ -373,7 +373,7 @@ \key{{\bf switch} to a buffer in the current window}{C-x {\sl buffer}} \metax{{\bf switch} to a buffer in another window}{:n, :b, {\rm or} C-x 4 {\sl buf}} \key{{\bf kill} a buffer}{:q! {\rm or} C-x k} -\key{list exisiting {\bf buffers}}{:args {\rm or} C-x b} +\key{list existing {\bf buffers}}{:args {\rm or} C-x b} \section{Files} @@ -664,7 +664,7 @@ There are better VI equivalents for all of them. Also note that all Ex commands expand \% to current file name. To include a \% in the command, escape it with a $\backslash$. -Similiarly, \# is replaced by previous file. For Viper, this is the +Similarly, \# is replaced by previous file. For Viper, this is the first file in the {\sl :args} listing for that buffer. This defaults to the previous file in the VI sense if you have one window. Ex commands can be made to have history. See the manual for details.
--- a/etc/xemacs.1 Mon Aug 13 09:05:11 2007 +0200 +++ b/etc/xemacs.1 Mon Aug 13 09:05:42 2007 +0200 @@ -1,4 +1,4 @@ -.TH XEMACS 1 "1996 November 23" +.TH XEMACS 1 "1997 January 1" .UC 4 .SH NAME xemacs \- Emacs: The Next Generation @@ -618,7 +618,7 @@ /usr/local/lib/xemacs-$VERSION/$CONFIGURATION - various programs that are used with XEmacs. -/usr/local/lib/xemacs-$VERSION/$CONFIGURATION/DOC-$VERSION-XEmacs - +/usr/local/lib/xemacs-$VERSION/$CONFIGURATION/DOC - contains the documentation strings for the Lisp primitives and preloaded Lisp functions of \fIXEmacs\fP. They are stored here to reduce the size of \fIXEmacs\fP proper.
--- a/info/dir Mon Aug 13 09:05:11 2007 +0200 +++ b/info/dir Mon Aug 13 09:05:42 2007 +0200 @@ -78,10 +78,10 @@ * VM:: View Mail, a replacement for Rmail. * W3:: A browser for the World Wide Web global hypertext system. * tm-en:: Tools for Mime (English version) +* tm-mh-e-en:: Tools for Mime for MH-E (English version) +* gnus-mime-en::Tools for Mime for Gnus (English version) +* tm-vm-en:: Tools for Mime for VM * tm-ja:: Tools for Mime (Japanese version) -* tm-mh-e-en:: MIME extender for mh-e (English version) -* tm-mh-e-ja:: MIME extender for mh-e (Japanese version) -* tm-vm_en:: MIME extender for VM. -* gnus-mime-en::MIME extender for Gnus (English version) -* gnus-mime-ja::MIME extender for Gnus (Japanese version) +* tm-mh-e-ja:: Tools for Mime for MH-E (Japanese version) +* gnus-mime-ja::Tools for Mime for Gnus (Japanese version) * Locals:
--- a/lib-src/ChangeLog Mon Aug 13 09:05:11 2007 +0200 +++ b/lib-src/ChangeLog Mon Aug 13 09:05:42 2007 +0200 @@ -1,3 +1,8 @@ +Sun Dec 29 17:16:45 1996 Martin Buchholz <mrb@eng.sun.com> + + * update-elc.sh (make_special_commands): Make ilisp be a little + smarter about recompilation. + Wed Dec 18 20:22:55 1996 Martin Buchholz <mrb@eng.sun.com> * mmencode.c: Don't declare index().
--- a/lib-src/Makefile.in.in Mon Aug 13 09:05:11 2007 +0200 +++ b/lib-src/Makefile.in.in Mon Aug 13 09:05:42 2007 +0200 @@ -338,7 +338,7 @@ -rm -f ${INSTALLABLES} ${UTILITIES} distclean: clean - -rm -f ../etc/DOC* *.tab.c *.tab.h aixcc.c TAGS + -rm -f DOC *.tab.c *.tab.h aixcc.c TAGS -rm -f Makefile Makefile.in blessmail realclean: distclean
--- a/lib-src/emacsclient.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lib-src/emacsclient.c Mon Aug 13 09:05:42 2007 +0200 @@ -38,9 +38,8 @@ #if !defined(HAVE_SOCKETS) && !defined(HAVE_SYSVIPC) #include <stdio.h> -main (argc, argv) - int argc; - char **argv; +int +main (int argc, char *argv[]) { fprintf (stderr, "%s: Sorry, the Emacs server is supported only\n", argv[0]); @@ -63,10 +62,8 @@ extern char *strerror (); extern int errno; -void -main (argc, argv) - int argc; - char **argv; +int +main (int argc, char *argv[]) { char system_name[256]; int s, i; @@ -180,7 +177,7 @@ while ((str = fgets (string, BUFSIZ, out))) printf ("%s", str); - exit (0); + return 0; } #else /* This is the SYSV IPC section */ @@ -195,10 +192,8 @@ char *getcwd (), *getenv (); #endif -void -main (argc, argv) - int argc; - char **argv; +int +main (int argc, char *argv[]) { int s; key_t key; @@ -335,8 +330,7 @@ #ifndef HAVE_STRERROR char * -strerror (errnum) - int errnum; +strerror (int errnum) { extern char *sys_errlist[]; extern int sys_nerr;
--- a/lib-src/gnuclient.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lib-src/gnuclient.c Mon Aug 13 09:05:42 2007 +0200 @@ -52,7 +52,8 @@ #if !defined(SYSV_IPC) && !defined(UNIX_DOMAIN_SOCKETS) && \ !defined(INTERNET_DOMAIN_SOCKETS) -main () +int +main (int argc, char *argv[]) { fprintf (stderr, "Sorry, the Emacs server is only " "supported on systems that have\n"); @@ -126,8 +127,8 @@ } /* filename_expand */ -void -main (int argc, char **argv) +int +main (int argc, char *argv[]) { int starting_line = 1; /* line to start editing at */ char command[MAXPATHLEN+50]; /* emacs command buffer */ @@ -330,7 +331,7 @@ disconnect_from_server (s, FALSE); #endif /* !SYSV_IPC */ - exit (0); + return 0; } /* main */
--- a/lib-src/gnudoit.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lib-src/gnudoit.c Mon Aug 13 09:05:42 2007 +0200 @@ -35,7 +35,8 @@ #include <unistd.h> #if !defined(SYSV_IPC) && !defined(UNIX_DOMAIN_SOCKETS) && !defined(INTERNET_DOMAIN_SOCKETS) -main () +int +main (int argc, char *argv[]) { fprintf (stderr,"Sorry, the Emacs server is only supported on systems that have\n"); fprintf (stderr,"Unix Domain sockets, Internet Domain sockets or System V IPC.\n"); @@ -43,10 +44,8 @@ } /* main */ #else /* SYSV_IPC || UNIX_DOMAIN_SOCKETS || INTERNET_DOMAIN_SOCKETS */ -void -main(argc,argv) - int argc; - char *argv[]; +int +main(int argc, char *argv[]) { int qflg = 0; /* don't wait around for * gnu emacs to eval cmd */ @@ -146,7 +145,7 @@ disconnect_from_server(s,!qflg); #endif /* !SYSV_IPC */ - exit(0); + return 0; } /* main */
--- a/lib-src/update-autoloads.sh Mon Aug 13 09:05:11 2007 +0200 +++ b/lib-src/update-autoloads.sh Mon Aug 13 09:05:42 2007 +0200 @@ -1,5 +1,5 @@ #!/bin/sh -### update-autoloads.sh --- update loaddefs.el as necessary +### update-autoloads.sh --- update auto-loaddefs.el as necessary set -eu @@ -23,7 +23,25 @@ echo "Recompiling in `pwd|sed 's|^/tmp_mnt||'`" echo " with $REAL..." -$EMACS -batch -q -f batch-update-autoloads \ - `ls lisp | egrep -v \ - "ChangeLog|CVS|COPYING|README|SCCS|egg|eterm|its|mule|paths.el|quail|version.el|vms" \ - | xargs -i echo lisp/\{\}` +dirs= +for dir in lisp/* ; do + if test -d $dir \ + -a $dir != lisp/CVS \ + -a $dir != lisp/SCCS \ + -a $dir != lisp/egg \ + -a $dir != lisp/eterm \ + -a $dir != lisp/its \ + -a $dir != lisp/mule \ + -a $dir != lisp/quail \ + -a $dir != lisp/vms ; then + dirs="$dirs $dir" + fi +done +cat > lisp/prim/auto-autoloads.el << EOF +;;; Do NOT edit this file! +;;; It is automatically generated using "make autoloads" +;;; See update-autoloads.sh and autoload.el for more details. + +EOF +set -x +$EMACS -batch -q -l autoload -f batch-update-autoloads $dirs
--- a/lib-src/update-elc.sh Mon Aug 13 09:05:11 2007 +0200 +++ b/lib-src/update-elc.sh Mon Aug 13 09:05:42 2007 +0200 @@ -28,9 +28,11 @@ EMACS=${XEMACS:-./src/xemacs}; export EMACS REAL=`cd \`dirname $EMACS\` ; pwd | sed 's:^/tmp_mnt::'`/`basename $EMACS` +BYTECOMP="$REAL -batch -q -no-site-file -l bytecomp" echo "Recompiling in `pwd|sed 's:^/tmp_mnt::'`" echo " with $REAL..." +prune_vc="( -name SCCS -o -name RCS -o -name CVS ) -prune -o" # $els is a list of all .el files # $elcs is a list of all .elc files @@ -61,7 +63,7 @@ # with the latest version (assuming we're compiling the lisp dir of the emacs # we're running, which might not be the case, but often is.) echo "Checking the byte compiler..." -$REAL -batch -q -no-site-file -f batch-byte-recompile-directory lisp/bytecomp +$BYTECOMP -f batch-byte-recompile-directory lisp/bytecomp # Prepare for byte-compiling directories with directory-specific instructions make_special_commands='' @@ -82,9 +84,9 @@ make_special w3 make_special url # really part of w3 make_special hyperbole elc -make_special oobr HYPB_ELC= elc +make_special oobr HYPB_ELC='' elc make_special eos -k # not stricly necessary... -make_special ilisp compile -f Makefile +make_special ilisp elc -f Makefile ignore_pattern='' for dir in $ignore_dirs ; do @@ -113,13 +115,15 @@ echo "Compiling files without .elc..." NUMTOCOMPILE=20 # compile this many files with each invocation -comm -23 $els $elcs | sed "$ignore_pattern" | \ - xargs -t -n$NUMTOCOMPILE $REAL -batch -q -no-site-file -f batch-byte-compile +comm -23 $els $elcs | \ + sed "$ignore_pattern" | \ + xargs -t -n$NUMTOCOMPILE $BYTECOMP -f batch-byte-compile echo "Compiling files without .elc... Done" echo "Compiling files with out-of-date .elc..." -find lisp/. -name SCCS -prune -o -type d -print | sed "$ignore_pattern" | \ +find lisp/. -name CVS -prune -o -name SCCS -prune -o -type d -print | \ + sed "$ignore_pattern" | \ xargs -t $REAL -batch -q -no-site-file -f batch-byte-recompile-directory echo "Compiling files with out-of-date .elc... Done"
--- a/lisp/ChangeLog Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ChangeLog Mon Aug 13 09:05:42 2007 +0200 @@ -1,3 +1,116 @@ +Sat Jan 4 12:25:34 1997 Steven L Baur <steve@altair.xemacs.org> + + * prim/faces.el (init-other-random-faces): Guard against adding + modeline buffer tty face if no tty support. + +Fri Jan 3 23:15:22 1997 Greg Klanderman <greg@alphatech.com> + + * packages/backup-dir.el: Added to distribution. + +Fri Jan 3 16:20:42 1997 Steven L Baur <steve@altair.xemacs.org> + + * gnus/gnus-setup.el: Updated to gracefully handle installed + auxilliary packages like tm, and handle eventual integration of + Red Gnus/Gnus 5.4. + +Fri Jan 3 14:32:07 1997 Vinnie Shelton <shelton@icd.teradyne.com> + + * packages/gnuserv.el (gnuserv-frame): Autoload. + + * x11/x-menubar.el (default-menubar): Add option to control gnuserv + creating a new frame. + (options-menu-saved-forms): Ditto. + +Fri Jan 3 12:18:41 1997 Martin Buchholz <mrb@eng.sun.com> + + * x11/x-mouse.el: Protect creation of scrollbar-pointer-glyph with + feature test on 'scrollbar. + +Fri Jan 3 10:37:48 1997 Steven L Baur <steve@altair.xemacs.org> + + * packages/mic-paren.el (paren-activate): Update to v1.2. + +Fri Jan 3 10:21:58 1997 Pete Ware <ware@cis.ohio-state.edu> + + * x11/x-menubar.el (default-menubar): Add require-final-newline + and next-line-add-newlines as options in the options menu. + (options-menu-saved-forms): Ditto. + +Thu Jan 2 18:52:32 1997 Joel Peterson <tarzan@aosi.com> + + * prim/simple.el (blink-matching-open): Make sure point is visible + when blinking. + +Thu Jan 2 11:25:05 1997 Vinnie Shelton <shelton@icd.teradyne.com> + + * prim/replace.el (occur-mode-mouse-goto): Fix typo in Emacs 19.34 + synch up. + (occur-mode-map): Ditto. + +Wed Nov 20 19:40:05 1996 Lennart Staflin <lenst@lysator.liu.se> + + * psgml-parse.el (sgml-modify-dtd): set sgml-current-tree to + sgml-top-tree. Needed by sgml-open-element. + +Mon Nov 11 01:50:40 1996 Lennart Staflin <lenst@lysator.liu.se> + + * Version 1.0 released. + +Sun Sep 15 14:07:24 1996 Lennart Staflin <lenst@lysator.liu.se> + + * psgml.el (sgml-mode): modify mode-line-format with subst, don't + replicate the whole format in the code. + +Thu Sep 12 20:27:38 1996 Lennart Staflin <lenst@lysator.liu.se> + + * psgml-parse.el (sgml-external-file): Try to find system + identifiers using the sgml-public-map + if sgml-system-identifiers-are-preferred; this way that flag will + have effect even if the sgml-public-map contains `%s'. + (sgml-final): moved to be defined before use. + + * psgml-dtd.el (sgml-parse-parameter-literal): Try to handle + character references to character number above 255 by leaving a + character reference in then parsed entity text. + +Thu Sep 5 14:11:00 1996 Dave Love <d.love@dl.ac.uk> + + * psgml-other.el (sgml-set-face-for): Nullify + {after,before}-change-functions as well as (obsolete) + {after,before}-change-function. + +Tue Dec 31 11:34:37 1996 Steven L Baur <steve@altair.xemacs.org> + + * comint/gdb.el (gdb-mode): Require 'cc-mode if not already loaded + prior to starting gdb. + +Mon Dec 30 17:59:48 1996 Steven L Baur <steve@altair.xemacs.org> + + * comint/telnet.el (telnet-check-software-type-initialize): Remove + default in cond (which allows special treatment of password prompt + to work). + +Mon Dec 30 09:36:04 1996 Valdis Kletnieks <Valdis.Kletnieks@vt.edu> + + * packages/gnuserv.el (server-edit): Add option to allow killing + last visible frame. + +Sun Dec 29 21:36:44 1996 Steven L Baur <steve@altair.xemacs.org> + + * prim/files-nomule.el: Add trailing newline. + +Sun Dec 29 18:45:34 1996 James LewisMoss <dres@dres.elam.org> + + * modes/perl-mode.el: Add (provide 'perl-mode). + +Sun Dec 29 17:15:57 1996 Martin Buchholz <mrb@eng.sun.com> + + * ilisp/Makefile (elc): Be a little smarter about recompilation. + +Sun Dec 29 17:14:27 1996 Steven L Baur <steve@altair.xemacs.org> + + * tm/tm-edit-tipgp.el: Don't unconditionally require tinypgpa.el. + Sat Dec 28 11:15:55 1996 Steven L Baur <steve@altair.xemacs.org> * x11/x-menubar.el (default-menubar): Move Frame-local font menu
--- a/lisp/comint/gdb.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/comint/gdb.el Mon Aug 13 09:05:42 2007 +0200 @@ -243,6 +243,8 @@ (interactive) (comint-mode) (use-local-map gdb-mode-map) + (when (not (boundp 'c-mode-syntax-table)) + (require 'cc-mode)) (set-syntax-table c-mode-syntax-table) (make-local-variable 'gdb-last-frame-displayed-p) (make-local-variable 'gdb-last-frame)
--- a/lisp/comint/telnet.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/comint/telnet.el Mon Aug 13 09:05:42 2007 +0200 @@ -126,9 +126,7 @@ ((string-match "its" string) (setq telnet-prompt-pattern "^[^*>\n]*[*>] *")) ((string-match "explorer" string) ;;explorer telnet needs work - (setq telnet-replace-c-g ?\n)) - (t - (setq telnet-prompt-pattern telnet-default-prompt-pattern)))) + (setq telnet-replace-c-g ?\n)))) (setq comint-prompt-regexp telnet-prompt-pattern)) (defun telnet-initial-filter (proc string)
--- a/lisp/ediff/Makefile Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/Makefile Mon Aug 13 09:05:42 2007 +0200 @@ -7,7 +7,7 @@ # variables VERSION, EMACS, DATADIR and comment out the Emacs-specific # versions. -VERSION = 19.30 +VERSION = 19.34 EMACS = emacs-$(VERSION) #VERSION = 19.14 #EMACS = xemacs-$(VERSION) @@ -25,16 +25,19 @@ INSTALL = install # --------- ONLY AUTHORIZED PERSONNEL BEYOND THIS POINT!!! ------------ -EDIFF = ediff-init.el ediff-diff.el ediff-merg.el ediff-wind.el \ - ediff-util.el ediff-mult.el ediff-vers.el ediff-ptch.el \ - ediff.el ediff-hook.el -EDIFFelc = ediff-init.elc ediff-diff.elc ediff-merg.elc ediff-wind.elc \ - ediff-util.elc ediff-mult.elc ediff-vers.elc ediff-ptch.elc \ - ediff.elc ediff-hook.elc +EDIFF = ediff-init.el ediff-help.el ediff-diff.el ediff-merg.el \ + ediff-wind.el ediff-util.el ediff-mult.el ediff-vers.el \ + ediff-ptch.el ediff.el ediff-hook.el +# ediff-tbar.el +EDIFFelc = ediff-init.elc ediff-help.elc ediff-diff.elc ediff-merg.elc \ + ediff-wind.elc ediff-util.elc ediff-mult.elc ediff-vers.elc \ + ediff-ptch.elc ediff.elc ediff-hook.elc +# ediff-tbar.elc -PRELOADS = -l ./ediff-init.el -l ./ediff-diff.el -l ./ediff-wind.el \ - -l ./ediff-merg.el -l ./ediff-mult.el -l ./ediff-util.el \ - -l ./ediff.el +PRELOADS = -l ./ediff-init.el -l ./ediff-help.el -l ./ediff-diff.el \ + -l ./ediff-wind.el -l ./ediff-merg.el -l ./ediff-mult.el \ + -l ./ediff-util.el -l ./ediff.el +# -l ./ediff-tbar.el all: hello elc goodbye dvi info @@ -67,10 +70,18 @@ @echo "" $(EMACS) -batch -f batch-byte-compile ediff-init.el +ediff-help.elc: ediff-help.el + @echo "" + $(EMACS) -batch -f batch-byte-compile ediff-help.el + ediff-hook.elc: ediff-hook.el @echo "" $(EMACS) -batch -f batch-byte-compile ediff-hook.el +ediff-tbar.elc: ediff-tbar.el + @echo "" + $(EMACS) -batch $(PRELOADS) -f batch-byte-compile ediff-tbar.el + ediff-diff.elc: ediff-init.el ediff-diff.el @echo "" $(EMACS) -batch $(PRELOADS) -f batch-byte-compile ediff-diff.el @@ -136,7 +147,7 @@ $(INSTALL) -m444 $(EDIFF) $(LISPDIR) $(INSTALL) -m644 ediff*.elc $(LISPDIR) $(INSTALL) -m644 ediff.dvi $(ETCDIR) - $(INSTALL) -m444 ediff.info* $(INFODIR) + $(INSTALL) -m444 ediff ediff-? $(INFODIR) @echo "" @echo "Please move ediff.texi to emacs-distribution-directory/man/" @echo ""
--- a/lisp/ediff/README Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/README Mon Aug 13 09:05:42 2007 +0200 @@ -7,7 +7,7 @@ README -- This file Makefile -- Automated installation file ediff.texi -- Manual in Texinfo format -ediff.info* -- The Info files +ediff, ediff-? -- The Info files ediff.dvi -- Manual in DVI format ediff.el -- Ediff Emacs Lisp code @@ -19,6 +19,7 @@ ediff-mult.el -- Ediff Emacs Lisp code ediff-vers.el -- Ediff Emacs Lisp code ediff-ptch.el -- Ediff Emacs Lisp code +ediff-tbar.el -- Ediff Emacs Lisp code -- this one only for XEmacs ediff-hook.el -- Ediff Emacs Lisp code
--- a/lisp/ediff/ediff-diff.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff-diff.el Mon Aug 13 09:05:42 2007 +0200 @@ -140,31 +140,45 @@ ;; Run the diff program on FILE1 and FILE2 and put the output in DIFF-BUFFER ;; Return the size of DIFF-BUFFER (defun ediff-make-diff2-buffer (diff-buffer file1 file2) - (cond ((< (ediff-file-size file1) 0) - (message "Can't diff remote files: %s" - (ediff-abbreviate-file-name file1)) - (sit-for 2) - ;; 1 is an error exit code - 1) - ((< (ediff-file-size file2) 0) - (message "Can't diff remote file: %s" - (ediff-abbreviate-file-name file2)) - (sit-for 2) - (message "") - ;; 1 is an error exit code - 1) - (t (message "Computing differences between %s and %s ..." - (file-name-nondirectory file1) - (file-name-nondirectory file2)) - ;; this erases the diff buffer automatically - (ediff-exec-process ediff-diff-program - diff-buffer - 'synchronize - ediff-diff-options file1 file2) - ;;(message "Computing differences ... done") + (let ((file1-size (ediff-file-size file1)) + (file2-size (ediff-file-size file2))) + (cond ((not (numberp file1-size)) + (message "Can't find file: %s" + (ediff-abbreviate-file-name file1)) + (sit-for 2) + ;; 1 is an error exit code + 1) + ((not (numberp file2-size)) + (message "Can't find file: %s" + (ediff-abbreviate-file-name file2)) + (sit-for 2) + ;; 1 is an error exit code + 1) + ((< file1-size 0) + (message "Can't diff remote files: %s" + (ediff-abbreviate-file-name file1)) + (sit-for 2) + ;; 1 is an error exit code + 1) + ((< file2-size 0) + (message "Can't diff remote file: %s" + (ediff-abbreviate-file-name file2)) + (sit-for 2) (message "") - (ediff-eval-in-buffer diff-buffer - (buffer-size))))) + ;; 1 is an error exit code + 1) + (t (message "Computing differences between %s and %s ..." + (file-name-nondirectory file1) + (file-name-nondirectory file2)) + ;; this erases the diff buffer automatically + (ediff-exec-process ediff-diff-program + diff-buffer + 'synchronize + ediff-diff-options file1 file2) + ;;(message "Computing differences ... done") + (message "") + (ediff-eval-in-buffer diff-buffer + (buffer-size)))))) @@ -1187,6 +1201,7 @@ ;;; Local Variables: ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) ;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) +;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) ;;; End: (provide 'ediff-diff)
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/ediff/ediff-help.el Mon Aug 13 09:05:42 2007 +0200 @@ -0,0 +1,311 @@ +;;; ediff-help.el --- Code related to the contents of Ediff help buffers + +;; Copyright (C) 1996 Free Software Foundation, Inc. + +;; Author: Michael Kifer <kifer@cs.sunysb.edu> + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + +(require 'ediff-init) + +;; Compiler pacifier start +(defvar ediff-multiframe) +(and noninteractive + (eval-when-compile + (let ((load-path (cons (expand-file-name ".") load-path))) + (load-file "ediff-init.el")))) +;; end pacifier + +;; Help messages + +(defconst ediff-long-help-message-head + " Move around | Toggle features | Manipulate +=====================|===========================|=============================" + "The head of the full help message.") +(defconst ediff-long-help-message-tail + "=====================|===========================|============================= + R -show registry | = -compare regions | M -show session group + D -diff output | E -browse Ediff manual| G -send bug report + i -status info | ? -help off | z/q -suspend/quit +------------------------------------------------------------------------------- +For help on a specific command: Click Button 2 over it; or + Put the cursor over it and type RET." + "The tail of the full-help message.") + +(defconst ediff-long-help-message-compare3 + " +p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y +n,SPC -next diff | h -hilighting | rx -restore buf X's old diff + j -jump to diff | @ -auto-refinement | * -refine current region + gx -goto X's point| | ! -update diff regions + C-l -recenter | ## -ignore whitespace | + v/V -scroll up/dn | #f/#h -focus/hide regions | wx -save buf X + </> -scroll lt/rt | X -read-only in buf X | wd -save diff output + ~ -rotate buffers| m -wide display | +" + "Help message usually used for 3-way comparison. +Normally, not a user option. See `ediff-help-message' for details.") + +(defconst ediff-long-help-message-compare2 + " +p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A +n,SPC -next diff | h -hilighting | rx -restore buf X's old diff + j -jump to diff | @ -auto-refinement | * -refine current region + gx -goto X's point| | ! -update diff regions + C-l -recenter | ## -ignore whitespace | + v/V -scroll up/dn | #f/#h -focus/hide regions | wx -save buf X + </> -scroll lt/rt | X -read-only in buf X | wd -save diff output + ~ -swap variants | m -wide display | +" + "Help message usually used for 2-way comparison. +Normally, not a user option. See `ediff-help-message' for details.") + +(defconst ediff-long-help-message-narrow2 + " +p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A +n,SPC -next diff | h -hilighting | rx -restore buf X's old diff + j -jump to diff | @ -auto-refinement | * -refine current region + gx -goto X's point| % -narrow/widen buffs | ! -update diff regions + C-l -recenter | ## -ignore whitespace | + v/V -scroll up/dn | #f/#h -focus/hide regions | wx -save buf X + </> -scroll lt/rt | X -read-only in buf X | wd -save diff output + ~ -swap variants | m -wide display | +" + "Help message when comparing windows or regions line-by-line. +Normally, not a user option. See `ediff-help-message' for details.") + +(defconst ediff-long-help-message-word-mode + " +p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y +n,SPC -next diff | h -hilighting | rx -restore buf X's old diff + j -jump to diff | | + gx -goto X's point| % -narrow/widen buffs | ! -recompute diffs + C-l -recenter | | + v/V -scroll up/dn | #f/#h -focus/hide regions | wx -save buf X + </> -scroll lt/rt | X -read-only in buf X | wd -save diff output + ~ -swap variants | m -wide display | +" + "Help message when comparing windows or regions word-by-word. +Normally, not a user option. See `ediff-help-message' for details.") + +(defconst ediff-long-help-message-merge + " +p,DEL -previous diff | | -vert/horiz split | x -copy buf X's region to C +n,SPC -next diff | h -hilighting | r -restore buf C's old diff + j -jump to diff | @ -auto-refinement | * -refine current region + gx -goto X's point| ## -ignore whitespace | ! -update diff regions + C-l -recenter | #f/#h -focus/hide regions | + -combine diff regions + v/V -scroll up/dn | X -read-only in buf X | wx -save buf X + </> -scroll lt/rt | m -wide display | wd -save diff output + ~ -swap variants | s -shrink window C | / -show ancestor buff + | $ -show clashes only | & -merge w/new default +" + "Help message during merging. +Normally, not a user option. See `ediff-help-message' for details.") + +;; The actual long help message. +(ediff-defvar-local ediff-long-help-message "" + "Normally, not a user option. See `ediff-help-message' for details.") + +(defconst ediff-brief-message-string + "? -quick help " + "Contents of the brief help message.") +;; The actual brief help message +(ediff-defvar-local ediff-brief-help-message "" + "Normally, not a user option. See `ediff-help-message' for details.") + +(ediff-defvar-local ediff-brief-help-message-function nil + "The brief help message that the user can customize. +If the user sets this to a parameter-less function, Ediff will use it to +produce the brief help message. This function must return a string.") +(ediff-defvar-local ediff-long-help-message-function nil + "The long help message that the user can customize. +See `ediff-brief-help-message-function' for more.") + +(defvar ediff-use-long-help-message nil + "*If t, Ediff displays a long help message. Short help message otherwise.") + +;; The actual help message. +(ediff-defvar-local ediff-help-message "" + "The actual help message. +Normally, the user shouldn't touch this. However, if you want Ediff to +start up with different help messages for different jobs, you can change +the value of this variable and the variables `ediff-help-message-*' in +`ediff-startup-hook'.") + + +;; the keymap that defines clicks over the quick help regions +(defvar ediff-help-region-map (make-sparse-keymap)) + +(define-key + ediff-help-region-map + (if ediff-emacs-p [mouse-2] [button2]) + 'ediff-help-for-quick-help) + +;; runs in the control buffer +(defun ediff-set-help-overlays () + (goto-char (point-min)) + (let (overl beg end cmd) + (while (re-search-forward " *\\([^ \t\n|]+\\||\\) +-[^|\n]+" nil 'noerror) + (setq beg (match-beginning 0) + end (match-end 0) + cmd (buffer-substring (match-beginning 1) (match-end 1))) + (setq overl (ediff-make-overlay beg end)) + (if ediff-emacs-p + (ediff-overlay-put overl 'mouse-face 'highlight) + (ediff-overlay-put overl 'highlight t)) + (ediff-overlay-put overl 'ediff-help-info cmd)))) + + +(defun ediff-help-for-quick-help () + "Explain Ediff commands in more detail." + (interactive) + (ediff-barf-if-not-control-buffer) + (let ((ctl-buf (current-buffer)) + (pos (ediff-event-point last-command-event)) + overl cmd) + + (if ediff-xemacs-p + (setq overl (extent-at pos (current-buffer) 'ediff-help-info) + cmd (ediff-overlay-get overl 'ediff-help-info)) + (setq cmd (car (mapcar (function (lambda (elt) + (overlay-get elt 'ediff-help-info))) + (overlays-at pos))))) + + (if (not (stringp cmd)) + (error "Hmm... I don't see an Ediff command around here...")) + + (ediff-documentation "Quick Help Commands") + + (let (case-fold-search) + (cond ((string= cmd "?") (re-search-forward "^`\\?'")) + ((string= cmd "G") (re-search-forward "^`G'")) + ((string= cmd "E") (re-search-forward "^`E'")) + ((string= cmd "wd") (re-search-forward "^`wd'")) + ((string= cmd "wx") (re-search-forward "^`wa'")) + ((string= cmd "a/b") (re-search-forward "^`a'")) + ((string= cmd "x") (re-search-forward "^`a'")) + ((string= cmd "xy") (re-search-forward "^`ab'")) + ((string= cmd "p,DEL") (re-search-forward "^`p'")) + ((string= cmd "n,SPC") (re-search-forward "^`n'")) + ((string= cmd "j") (re-search-forward "^`j'")) + ((string= cmd "gx") (re-search-forward "^`ga'")) + ((string= cmd "!") (re-search-forward "^`!'")) + ((string= cmd "*") (re-search-forward "^`\\*'")) + ((string= cmd "m") (re-search-forward "^`m'")) + ((string= cmd "|") (re-search-forward "^`|'")) + ((string= cmd "@") (re-search-forward "^`@'")) + ((string= cmd "h") (re-search-forward "^`h'")) + ((string= cmd "r") (re-search-forward "^`r'")) + ((string= cmd "rx") (re-search-forward "^`ra'")) + ((string= cmd "##") (re-search-forward "^`##'")) + ((string= cmd "#f/#h") (re-search-forward "^`#f'")) + ((string= cmd "X") (re-search-forward "^`A'")) + ((string= cmd "v/V") (re-search-forward "^`v'")) + ((string= cmd "</>") (re-search-forward "^`<'")) + ((string= cmd "~") (re-search-forward "^`~'")) + ((string= cmd "i") (re-search-forward "^`i'")) + ((string= cmd "D") (re-search-forward "^`D'")) + ((string= cmd "R") (re-search-forward "^`R'")) + ((string= cmd "M") (re-search-forward "^`M'")) + ((string= cmd "z/q") (re-search-forward "^`z'")) + ((string= cmd "%") (re-search-forward "^`%'")) + ((string= cmd "C-l") (re-search-forward "^`C-l'")) + ((string= cmd "$") (re-search-forward "^`\\$'")) + ((string= cmd "/") (re-search-forward "^`/'")) + ((string= cmd "&") (re-search-forward "^`&'")) + ((string= cmd "s") (re-search-forward "^`s'")) + ((string= cmd "+") (re-search-forward "^`\\+'")) + ((string= cmd "=") (re-search-forward "^`='")) + (t (error "Undocumented command! Type `G' in Ediff Control Panel to drop a note to the Ediff maintainer"))) + ) ; let case-fold-search + )) + + +;; assuming we are in control window, calculate length of the first line in +;; help message +(defun ediff-help-message-line-length () + (save-excursion + (goto-char (point-min)) + (if ediff-use-long-help-message + (next-line 1)) + (end-of-line) + (current-column))) + + +(defun ediff-indent-help-message () + (let* ((shift (/ (max 0 (- (window-width (selected-window)) + (ediff-help-message-line-length))) + 2)) + (str (make-string shift ?\ ))) + (save-excursion + (goto-char (point-min)) + (while (< (point) (point-max)) + (insert str) + (beginning-of-line) + (forward-line 1))))) + + +;; compose the help message as a string +(defun ediff-set-help-message () + (setq ediff-long-help-message + (cond ((and ediff-long-help-message-function + (or (symbolp ediff-long-help-message-function) + (consp ediff-long-help-message-function))) + (funcall ediff-long-help-message-function)) + (ediff-word-mode + (concat ediff-long-help-message-head + ediff-long-help-message-word-mode + ediff-long-help-message-tail)) + (ediff-narrow-job + (concat ediff-long-help-message-head + ediff-long-help-message-narrow2 + ediff-long-help-message-tail)) + (ediff-merge-job + (concat ediff-long-help-message-head + ediff-long-help-message-merge + ediff-long-help-message-tail)) + (ediff-diff3-job + (concat ediff-long-help-message-head + ediff-long-help-message-compare3 + ediff-long-help-message-tail)) + (t + (concat ediff-long-help-message-head + ediff-long-help-message-compare2 + ediff-long-help-message-tail)))) + (setq ediff-brief-help-message + (cond ((and ediff-brief-help-message-function + (or (symbolp ediff-brief-help-message-function) + (consp ediff-brief-help-message-function))) + (funcall ediff-brief-help-message-function)) + ((stringp ediff-brief-help-message-function) + ediff-brief-help-message-function) + ((ediff-multiframe-setup-p) ediff-brief-message-string) + (t ; long brief msg, not multiframe --- put in the middle + ediff-brief-message-string) + )) + (setq ediff-help-message (if ediff-use-long-help-message + ediff-long-help-message + ediff-brief-help-message)) + (run-hooks 'ediff-display-help-hook)) + +(provide 'ediff-help) + +;;; ediff-help.el ends here
--- a/lisp/ediff/ediff-hook.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff-hook.el Mon Aug 13 09:05:42 2007 +0200 @@ -38,9 +38,24 @@ (defvar epatch-menu) ;; end pacifier + (defun ediff-xemacs-init-menus () (if (featurep 'menubar) (progn +;; (add-menu-button +;; '("Tools") +;; ["Use separate frame for Ediff control buffer" +;; ediff-toggle-multiframe +;; :style toggle +;; :selected (eq ediff-window-setup-function 'ediff-setup-windows-multiframe)] +;; "00-Browser...") +;; (add-menu-button +;; '("Tools") +;; ["Use a toolbar with Ediff control buffer" +;; ediff-menu-toggle-use-toolbar +;; :style toggle +;; :selected (ediff-use-toolbar-p)] +;; "00-Browser...") (add-submenu '("Tools") ediff-menu "OO-Browser...") (add-submenu @@ -127,6 +142,9 @@ ;; define ediff-menu (define-key menu-bar-ediff-menu [ediff-doc] '("Ediff Manual..." . ediff-documentation)) + (define-key menu-bar-ediff-menu [emultiframe] + '("Toggle separate control buffer frame..." + . ediff-toggle-multiframe)) (define-key menu-bar-ediff-menu [eregistry] '("List Ediff Sessions..." . ediff-show-registry)) (define-key menu-bar-ediff-menu [separator-ediff-manual] '("--")) @@ -164,6 +182,9 @@ ;; define merge menu (define-key menu-bar-ediff-merge-menu [ediff-doc2] '("Ediff Manual..." . ediff-documentation)) + (define-key menu-bar-ediff-merge-menu [emultiframe2] + '("Toggle separate control buffer frame..." + . ediff-toggle-multiframe)) (define-key menu-bar-ediff-merge-menu [eregistry2] '("List Ediff Sessions..." . ediff-show-registry)) (define-key @@ -203,8 +224,11 @@ ;; define epatch menu (define-key menu-bar-epatch-menu [ediff-doc3] '("Ediff Manual..." . ediff-documentation)) + (define-key menu-bar-epatch-menu [emultiframe3] + '("Toggle separate control buffer frame..." + . ediff-toggle-multiframe)) (define-key menu-bar-epatch-menu [eregistry3] - '("List Ediff Sessions..." . ediff-show-registry)) + '("List Ediff Sessions..." . ediff-show-registry)) (define-key menu-bar-epatch-menu [separator-epatch] '("--")) (define-key menu-bar-epatch-menu [ediff-patch-buffer] '("To a Buffer..." . ediff-patch-buffer)) @@ -298,7 +322,7 @@ ;; misc (autoload 'ediff-show-registry - "ediff-meta" + "ediff-mult" "Display the registry of active Ediff sessions." t) (autoload 'ediff-documentation @@ -309,6 +333,15 @@ "ediff" "Show Ediff's version and last modification date." t) + (autoload 'ediff-toggle-multiframe + "ediff-util" + "Toggle the use of separate frame for Ediff control buffer." + t) +;;(if (string-match "XEmacs" emacs-version) +;; (autoload 'ediff-toggle-use-toolbar +;; "ediff-tbar" +;; "Toggle the use of Ediff toolbar." +;; t)) ) ; if purify-flag
--- a/lisp/ediff/ediff-init.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff-init.el Mon Aug 13 09:05:42 2007 +0200 @@ -62,8 +62,8 @@ (ediff-force-faces) (ediff-emacs-p (memq (ediff-device-type) '(pc))) (ediff-xemacs-p (memq (ediff-device-type) '(tty pc))))) - - + + ;; Defines SYMBOL as an advertised local variable. ;; Performs a defvar, then executes `make-variable-buffer-local' on ;; the variable. Also sets the `permanent-local' property, @@ -282,6 +282,15 @@ ediff-merge-directory-revisions-with-ancestor ;; add more here ))) +(defsubst ediff-merge-metajob (&optional metajob) + (memq (or metajob ediff-metajob-name) + '(ediff-merge-directories + ediff-merge-directories-with-ancestor + ediff-merge-directory-revisions + ediff-merge-directory-revisions-with-ancestor + ediff-merge-filegroups-with-ancestor + ;; add more here + ))) (defsubst ediff-metajob3 (&optional metajob) (memq (or metajob ediff-metajob-name) @@ -293,13 +302,18 @@ (memq (or metajob ediff-metajob-name) '(ediff-directories3 ediff-filegroups3))) -(defsubst ediff-barf-if-not-control-buffer (&optional meta-buf) - (or (eq (if meta-buf ediff-meta-buffer ediff-control-buffer) - (current-buffer)) +;; with no argument, checks if we are in ediff-control-buffer +;; with argument, checks if we are in ediff-meta-buffer +(defun ediff-in-control-buffer-p (&optional meta-buf-p) + (and (boundp 'ediff-control-buffer) + (eq (if meta-buf-p ediff-meta-buffer ediff-control-buffer) + (current-buffer)))) + +(defsubst ediff-barf-if-not-control-buffer (&optional meta-buf-p) + (or (ediff-in-control-buffer-p meta-buf-p) (error "%S: This command runs in Ediff Control Buffer only!" this-command))) - ;; Hook variables (defvar ediff-before-setup-windows-hook nil @@ -345,125 +359,10 @@ "*Hooks to run on exiting Ediff but before killing the control buffer. This is a place to do various cleanups, such as deleting the variant buffers. Ediff provides a function, `ediff-janitor', as one such possible hook.") - - -;; Help messages - -(defconst ediff-long-help-message-head - " Moving around | Toggling features | Manipulations -=====================|===========================|=============================" - "The head of the full help message.") -(defconst ediff-long-help-message-tail - "=====================|===========================|============================= - R -show registry | | M -show session group - D -diff output | E -browse Ediff manual| G -send bug report - i -status info | ? -help off | z/q -suspend/quit -------------------------------------------------------------------------------- -X,Y (x,y) on the left are meta-symbols for the keys A,B,C (a,b,c). -X,Y on the right are meta-symbols for buffers A,B,C. -A,B,C on the right denote the working buffers A,B,C, respectively." - "The tail of the full-help message.") +(defvar ediff-quit-merge-hook 'ediff-maybe-save-and-delete-merge + "*Hooks to run before quitting a merge job. +The most common use is to save and delete the merge buffer.") -(defconst ediff-long-help-message-compare3 - " -p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y -n,SPC -next diff | h -hiliting | rx -restore buf X's old diff - j -jump to diff | @ -auto-refinement | * -refine current region - gx -goto X's point| | ! -update diff regions - C-l -recenter | ## -ignore whitespace | - v/V -scroll up/dn | #f/#h -focus/hide regions | wx -save buf X - </> -scroll lt/rt | X -read-only in buf X | wd -save diff output - | m -wide display | ~ -rotate buffers -" - "Help message usually used for 3-way comparison. -Normally, not a user option. See `ediff-help-message' for details.") - -(defconst ediff-long-help-message-compare2 - " -p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A -n,SPC -next diff | h -hiliting | rx -restore buf X's old diff - j -jump to diff | @ -auto-refinement | * -refine current region - gx -goto X's point| | ! -update diff regions - C-l -recenter | ## -ignore whitespace | - v/V -scroll up/dn | #f/#h -focus/hide regions | wx -save buf X - </> -scroll lt/rt | X -read-only in buf X | wd -save diff output - ~ -swap variants | m -wide display | -" - "Help message usually used for 2-way comparison. -Normally, not a user option. See `ediff-help-message' for details.") - -(defconst ediff-long-help-message-narrow2 - " -p,DEL -previous diff | | -vert/horiz split |a/b -copy A/B's region to B/A -n,SPC -next diff | h -hiliting | rx -restore buf X's old diff - j -jump to diff | @ -auto-refinement | * -refine current region - gx -goto X's point| % -narrow/widen buffs | ! -update diff regions - C-l -recenter | ## -ignore whitespace | - v/V -scroll up/dn | #f/#h -focus/hide regions | wx -save buf X - </> -scroll lt/rt | X -read-only in buf X | wd -save diff output - ~ -swap variants | m -wide display | -" - "Help message when comparing windows or regions line-by-line. -Normally, not a user option. See `ediff-help-message' for details.") - -(defconst ediff-long-help-message-word-mode - " -p,DEL -previous diff | | -vert/horiz split | xy -copy buf X's region to Y -n,SPC -next diff | h -hiliting | rx -restore buf X's old diff - j -jump to diff | | - gx -goto X's point| % -narrow/widen buffs | ! -recompute diffs - C-l -recenter | | - v/V -scroll up/dn | #f/#h -focus/hide regions | wx -save buf X - </> -scroll lt/rt | X -read-only in buf X | wd -save diff output - ~ -swap variants | m -wide display | -" - "Help message when comparing windows or regions word-by-word. -Normally, not a user option. See `ediff-help-message' for details.") - -(defconst ediff-long-help-message-merge - " -p,DEL -previous diff | | -vert/horiz split | x -copy buf X's region to C -n,SPC -next diff | h -hiliting | r -restore buf C's old diff - j -jump to diff | @ -auto-refinement | * -refine current region - gx -goto X's point| ## -ignore whitespace | ! -update diff regions - C-l -recenter | #f/#h -focus/hide regions | + -combine diff regions - v/V -scroll up/dn | X -read-only in buf X | wx -save buf X - </> -scroll lt/rt | m -wide display | wd -save diff output - ~ -swap variants | s -shrink window C | / -show ancestor buff - | $ -show clashes only | & -merge w/new default -" - "Help message during merging. -Normally, not a user option. See `ediff-help-message' for details.") - -;; The actual long help message. -(ediff-defvar-local ediff-long-help-message "" - "Normally, not a user option. See `ediff-help-message' for details.") - -(defconst ediff-brief-message-string - " ? - help " - "Contents of the brief help message.") -;; The actual brief help message -(ediff-defvar-local ediff-brief-help-message "" - "Normally, not a user option. See `ediff-help-message' for details.") - -(ediff-defvar-local ediff-brief-help-message-function nil - "The brief help message that the user can customize. -If the user sets this to a parameter-less function, Ediff will use it to -produce the brief help message. This function must return a string.") -(ediff-defvar-local ediff-long-help-message-function nil - "The long help message that the user can customize. -See `ediff-brief-help-message-function' for more.") - -(defvar ediff-use-long-help-message nil - "*If t, Ediff displays a long help message. Short help message otherwise.") - -;; The actual help message. -(ediff-defvar-local ediff-help-message "" - "The actual help message. -Normally, the user shouldn't touch this. However, if you want Ediff to -start up with different help messages for different jobs, you can change -the value of this variable and the variables `ediff-help-message-*' in -`ediff-startup-hook'.") ;; Error messages (defconst ediff-KILLED-VITAL-BUFFER @@ -473,7 +372,13 @@ (defconst ediff-BAD-DIFF-NUMBER ;; %S stands for this-command, %d - diff number, %d - max diff "%S: Bad diff region number, %d. Valid numbers are 1 to %d") - +(defconst ediff-BAD-INFO (format " +*** The Info file for Ediff, a part of the standard distribution +*** of %sEmacs, does not seem to be properly installed. +*** +*** Please contact your system administrator. " + (if ediff-xemacs-p "X" ""))) + ;; Selective browsing (ediff-defvar-local ediff-skip-diff-region-function 'ediff-show-all-diffs @@ -513,12 +418,6 @@ (ediff-defvar-local ediff-hide-regexp-connective 'and "") -(defvar ediff-ange-ftp-ftp-name (if ediff-xemacs-p - 'ange-ftp-ftp-path - 'ange-ftp-ftp-name) - "Function ange-ftp uses to find out if file is remote.") - - ;; Copying difference regions between buffers. (ediff-defvar-local ediff-killed-diffs-alist nil "A list of killed diffs. @@ -613,8 +512,8 @@ (ediff-defvar-local ediff-buffer-values-orig-Ancestor nil "") ;; Buffer-local variables to be saved then restored during Ediff sessions ;; Buffer-local variables to be saved then restored during Ediff sessions -(defconst ediff-protected-variables '(buffer-read-only -;;; synchronize-minibuffers +(defconst ediff-protected-variables '( + ;;buffer-read-only mode-line-format)) ;; Vector of differences between the variants. Each difference is @@ -694,7 +593,6 @@ (fset 'ediff-delete-overlay (symbol-function 'delete-extent))) (fset 'ediff-read-event (symbol-function 'read-event)) (fset 'ediff-overlayp (symbol-function 'overlayp)) - (fset 'ediff-overlayp (symbol-function 'overlayp)) (fset 'ediff-make-overlay (symbol-function 'make-overlay)) (fset 'ediff-delete-overlay (symbol-function 'delete-overlay))) @@ -859,6 +757,15 @@ (copy-face 'secondary-selection face)))) )) +(defun ediff-set-face-pixmap (face pixmap) + "Set face pixmap on a monochrome display." + (if (and (ediff-window-display-p) (not (ediff-color-display-p))) + (condition-case nil + (set-face-background-pixmap face pixmap) + (error + (message "Pixmap not found for %S: %s" (face-name face) pixmap) + (sit-for 1))))) + (defun ediff-hide-face (face) (if (and (ediff-has-face-support-p) ediff-emacs-p) (add-to-list 'facemenu-unlisted-faces face))) @@ -928,9 +835,17 @@ (ediff-hide-face 'ediff-current-diff-face-Ancestor) (or (face-differs-from-default-p 'ediff-current-diff-face-Ancestor) (copy-face - 'ediff-current-diff-face-C 'ediff-current-diff-face-Ancestor)))) + 'ediff-current-diff-face-C 'ediff-current-diff-face-Ancestor)) + 'ediff-current-diff-face-Ancestor)) "Face for highlighting the selected difference in the ancestor buffer.") +(defvar ediff-fine-diff-pixmap "gray3" + "Pixmap to use for highlighting fine differences.") +(defvar ediff-odd-diff-pixmap "gray1" + "Pixmap to use for highlighting odd differences.") +(defvar ediff-even-diff-pixmap "Stipple" + "Pixmap to use for highlighting even differences.") + (defvar ediff-fine-diff-face-A (if (ediff-has-face-support-p) (progn @@ -942,7 +857,11 @@ "Navy") (ediff-set-face 'background 'ediff-fine-diff-face-A "sky blue")) - (t (set-face-underline-p 'ediff-fine-diff-face-A t)))) + (t + (set-face-underline-p 'ediff-fine-diff-face-A t) + (ediff-set-face-pixmap 'ediff-fine-diff-face-A + ediff-fine-diff-pixmap) + ))) 'ediff-fine-diff-face-A)) "Face for highlighting the refinement of the selected diff in buffer A.") @@ -955,7 +874,11 @@ (cond ((ediff-color-display-p) (ediff-set-face 'foreground 'ediff-fine-diff-face-B "Black") (ediff-set-face 'background 'ediff-fine-diff-face-B "cyan")) - (t (set-face-underline-p 'ediff-fine-diff-face-B t)))) + (t + (set-face-underline-p 'ediff-fine-diff-face-B t) + (ediff-set-face-pixmap 'ediff-fine-diff-face-B + ediff-fine-diff-pixmap) + ))) 'ediff-fine-diff-face-B)) "Face for highlighting the refinement of the selected diff in buffer B.") @@ -969,7 +892,11 @@ (ediff-set-face 'foreground 'ediff-fine-diff-face-C "black") (ediff-set-face 'background 'ediff-fine-diff-face-C "Turquoise")) - (t (set-face-underline-p 'ediff-fine-diff-face-C t)))) + (t + (set-face-underline-p 'ediff-fine-diff-face-C t) + (ediff-set-face-pixmap 'ediff-fine-diff-face-C + ediff-fine-diff-pixmap) + ))) 'ediff-fine-diff-face-C)) "Face for highlighting the refinement of the selected diff in buffer C.") @@ -979,8 +906,12 @@ (make-face 'ediff-fine-diff-face-Ancestor) (ediff-hide-face 'ediff-fine-diff-face-Ancestor) (or (face-differs-from-default-p 'ediff-fine-diff-face-Ancestor) - (copy-face - 'ediff-fine-diff-face-C 'ediff-fine-diff-face-Ancestor)))) + (progn + (copy-face + 'ediff-fine-diff-face-C 'ediff-fine-diff-face-Ancestor) + (ediff-set-face-pixmap 'ediff-fine-diff-face-Ancestor + ediff-fine-diff-pixmap)) + ))) "Face highlighting refinements of the selected diff in ancestor buffer. Presently, this is not used, as difference regions are not refined in the ancestor buffer.") @@ -997,7 +928,10 @@ (ediff-set-face 'background 'ediff-even-diff-face-A "light grey")) (t - (copy-face 'italic 'ediff-even-diff-face-A)))) + (copy-face 'italic 'ediff-even-diff-face-A) + (ediff-set-face-pixmap 'ediff-even-diff-face-A + ediff-even-diff-pixmap) + ))) 'ediff-even-diff-face-A)) "Face used to highlight even-numbered differences in buffer A.") @@ -1013,7 +947,10 @@ (ediff-set-face 'background 'ediff-even-diff-face-B "Gray")) (t - (copy-face 'italic 'ediff-even-diff-face-B)))) + (copy-face 'italic 'ediff-even-diff-face-B) + (ediff-set-face-pixmap 'ediff-even-diff-face-B + ediff-even-diff-pixmap) + ))) 'ediff-even-diff-face-B)) "Face used to highlight even-numbered differences in buffer B.") @@ -1023,7 +960,10 @@ (make-face 'ediff-even-diff-face-C) (ediff-hide-face 'ediff-even-diff-face-C) (or (face-differs-from-default-p 'ediff-even-diff-face-C) - (copy-face 'ediff-even-diff-face-A 'ediff-even-diff-face-C)) + (progn + (copy-face 'ediff-even-diff-face-A 'ediff-even-diff-face-C) + (ediff-set-face-pixmap 'ediff-even-diff-face-C + ediff-even-diff-pixmap))) 'ediff-even-diff-face-C)) "Face used to highlight even-numbered differences in buffer C.") @@ -1033,7 +973,11 @@ (make-face 'ediff-even-diff-face-Ancestor) (ediff-hide-face 'ediff-even-diff-face-Ancestor) (or (face-differs-from-default-p 'ediff-even-diff-face-Ancestor) - (copy-face 'ediff-even-diff-face-C 'ediff-even-diff-face-Ancestor)) + (progn + (copy-face + 'ediff-even-diff-face-C 'ediff-even-diff-face-Ancestor) + (ediff-set-face-pixmap 'ediff-even-diff-face-Ancestor + ediff-even-diff-pixmap))) 'ediff-even-diff-face-Ancestor)) "Face highlighting even-numbered differences in the ancestor buffer.") @@ -1049,7 +993,10 @@ (ediff-set-face 'background 'ediff-odd-diff-face-A "Gray")) (t - (copy-face 'italic 'ediff-odd-diff-face-A)))) + (copy-face 'italic 'ediff-odd-diff-face-A) + (ediff-set-face-pixmap 'ediff-odd-diff-face-A + ediff-odd-diff-pixmap) + ))) 'ediff-odd-diff-face-A)) "Face used to highlight odd-numbered differences in buffer A.") @@ -1065,7 +1012,10 @@ (ediff-set-face 'background 'ediff-odd-diff-face-B "light grey")) (t - (copy-face 'italic 'ediff-odd-diff-face-B)))) + (copy-face 'italic 'ediff-odd-diff-face-B) + (ediff-set-face-pixmap 'ediff-odd-diff-face-B + ediff-odd-diff-pixmap) + ))) 'ediff-odd-diff-face-B)) "Face used to highlight odd-numbered differences in buffer B.") @@ -1075,7 +1025,10 @@ (make-face 'ediff-odd-diff-face-C) (ediff-hide-face 'ediff-odd-diff-face-C) (or (face-differs-from-default-p 'ediff-odd-diff-face-C) - (copy-face 'ediff-odd-diff-face-A 'ediff-odd-diff-face-C)) + (progn + (copy-face 'ediff-odd-diff-face-A 'ediff-odd-diff-face-C) + (ediff-set-face-pixmap 'ediff-odd-diff-face-C + ediff-odd-diff-pixmap))) 'ediff-odd-diff-face-C)) "Face used to highlight odd-numbered differences in buffer C.") @@ -1085,7 +1038,10 @@ (make-face 'ediff-odd-diff-face-Ancestor) (ediff-hide-face 'ediff-odd-diff-face-Ancestor) (or (face-differs-from-default-p 'ediff-odd-diff-face-Ancestor) - (copy-face 'ediff-odd-diff-face-C 'ediff-odd-diff-face-Ancestor)) + (progn + (copy-face 'ediff-odd-diff-face-C 'ediff-odd-diff-face-Ancestor) + (ediff-set-face-pixmap 'ediff-odd-diff-face-Ancestor + ediff-odd-diff-pixmap))) 'ediff-odd-diff-face-Ancestor)) "Face used to highlight even-numbered differences in the ancestor buffer.") @@ -1143,6 +1099,15 @@ ;; if nil, this silences some messages (defconst ediff-verbose-p t) + +(ediff-defvar-local ediff-autostore-merges 'group-jobs-only + "*Save the results of merge jobs automatically. +Nil means don't save automatically. t means always save. Anything but nil or t +means save automatically only if the merge job is part of a group of jobs, such +as `ediff-merge-directory' or `ediff-merge-directory-revisions'.") + +;; file where the result of the merge is to be saved. used internally +(ediff-defvar-local ediff-merge-store-file nil "") (defvar ediff-no-emacs-help-in-control-buffer nil "*Non-nil means C-h should not invoke Emacs help in control buffer. @@ -1188,9 +1153,10 @@ ;;; In-line functions (defsubst ediff-file-remote-p (file-name) - (if (fboundp ediff-ange-ftp-ftp-name) - (funcall ediff-ange-ftp-ftp-name file-name))) - + (require 'ange-ftp) + (car (if ediff-xemacs-p + (ange-ftp-ftp-path file-name) + (ange-ftp-ftp-name file-name)))) (defsubst ediff-frame-unsplittable-p (frame) (cdr (assq 'unsplittable (frame-parameters frame)))) @@ -1206,7 +1172,93 @@ "Kill buffer BUF if it exists." (if (ediff-buffer-live-p buf) (kill-buffer (get-buffer buf)))) - + + +;; activate faces on diff regions in buffer +(defun ediff-paint-background-regions-in-one-buffer (buf-type unhighlight) + (let ((diff-vector + (eval (intern (format "ediff-difference-vector-%S" buf-type)))) + overl diff-num) + (mapcar (function + (lambda (rec) + (setq overl (ediff-get-diff-overlay-from-diff-record rec) + diff-num (ediff-overlay-get overl 'ediff-diff-num)) + (ediff-set-overlay-face + overl + (if (not unhighlight) + (ediff-background-face buf-type diff-num)) + ))) + diff-vector))) + + +;; activate faces on diff regions in all buffers +(defun ediff-paint-background-regions (&optional unhighlight) + (ediff-paint-background-regions-in-one-buffer + 'A unhighlight) + (ediff-paint-background-regions-in-one-buffer + 'B unhighlight) + (ediff-paint-background-regions-in-one-buffer + 'C unhighlight) + (ediff-paint-background-regions-in-one-buffer + 'Ancestor unhighlight)) + +(defun ediff-highlight-diff-in-one-buffer (n buf-type) + (if (ediff-buffer-live-p (ediff-get-buffer buf-type)) + (let* ((buff (ediff-get-buffer buf-type)) + (last (ediff-eval-in-buffer buff (point-max))) + (begin (ediff-get-diff-posn buf-type 'beg n)) + (end (ediff-get-diff-posn buf-type 'end n)) + (xtra (if (equal begin end) 1 0)) + (end-hilit (min last (+ end xtra))) + (current-diff-overlay + (symbol-value + (intern (format "ediff-current-diff-overlay-%S" buf-type))))) + + (if ediff-xemacs-p + (ediff-move-overlay current-diff-overlay begin end-hilit) + (ediff-move-overlay current-diff-overlay begin end-hilit buff)) + (ediff-overlay-put current-diff-overlay 'priority + (ediff-highest-priority begin end-hilit buff)) + (ediff-overlay-put current-diff-overlay 'ediff-diff-num n) + + ;; unhighlight the background overlay for diff n so it won't + ;; interfere with the current diff overlay + (ediff-set-overlay-face (ediff-get-diff-overlay n buf-type) nil) + ))) + + +(defun ediff-unhighlight-diff-in-one-buffer (buf-type) + (if (ediff-buffer-live-p (ediff-get-buffer buf-type)) + (let ((current-diff-overlay + (symbol-value + (intern (format "ediff-current-diff-overlay-%S" buf-type)))) + (overlay + (ediff-get-diff-overlay ediff-current-difference buf-type)) + ) + + (ediff-move-overlay current-diff-overlay 1 1) + + ;; rehighlight the overlay in the background of the + ;; current difference region + (ediff-set-overlay-face + overlay + (if (and (ediff-has-face-support-p) + ediff-use-faces ediff-highlight-all-diffs) + (ediff-background-face buf-type ediff-current-difference))) + ))) + +(defun ediff-unhighlight-diffs-totally-in-one-buffer (buf-type) + (ediff-unselect-and-select-difference -1) + (if (and (ediff-has-face-support-p) ediff-use-faces) + (let* ((inhibit-quit t) + (current-diff-overlay-var + (intern (format "ediff-current-diff-overlay-%S" buf-type))) + (current-diff-overlay (symbol-value current-diff-overlay-var))) + (ediff-paint-background-regions 'unhighlight) + (if (ediff-overlayp current-diff-overlay) + (ediff-delete-overlay current-diff-overlay)) + (set current-diff-overlay-var nil) + ))) (defsubst ediff-highlight-diff (n) "Put face on diff N. Invoked for X displays only." @@ -1363,6 +1415,7 @@ (glyph-height ediff-H-glyph (selected-window frame)) (frame-char-height frame))) +;; Some overlay functions (defsubst ediff-empty-overlay-p (overl) (= (ediff-overlay-start overl) (ediff-overlay-end overl))) @@ -1380,6 +1433,32 @@ (if ediff-emacs-p (overlay-get overl property) (and (extent-live-p overl) (extent-property overl property)))) + + +;; These two functions are here because XEmacs refuses to +;; handle overlays whose buffers were deleted. +(defun ediff-move-overlay (overlay beg end &optional buffer) + "Calls `move-overlay' in Emacs and `set-extent-endpoints' in Lemacs. +Checks if overlay's buffer exists before actually doing the move." + (let ((buf (and overlay (ediff-overlay-buffer overlay)))) + (if (ediff-buffer-live-p buf) + (if ediff-xemacs-p + (set-extent-endpoints overlay beg end) + (move-overlay overlay beg end buffer)) + ;; buffer's dead + (if overlay + (ediff-delete-overlay overlay))))) + +(defun ediff-overlay-put (overlay prop value) + "Calls `overlay-put' or `set-extent-property' depending on Emacs version. +Checks if overlay's buffer exists." + (if (ediff-buffer-live-p (ediff-overlay-buffer overlay)) + (if ediff-xemacs-p + (set-extent-property overlay prop value) + (overlay-put overlay prop value)) + (ediff-delete-overlay overlay))) + +;; Some diff region tests ;; t if diff region is empty. ;; In case of buffer C, t also if it is not a 3way @@ -1512,9 +1591,18 @@ (ediff-file-attributes filename 5)) - +(defun ediff-convert-standard-filename (fname) + (if ediff-emacs-p + (convert-standard-filename fname) + ;; hopefully, XEmacs adds this functionality + fname)) - +;;; Local Variables: +;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) +;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) +;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) +;;; End: + (provide 'ediff-init)
--- a/lisp/ediff/ediff-merg.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff-merg.el Mon Aug 13 09:05:42 2007 +0200 @@ -264,6 +264,12 @@ ))) +;;; Local Variables: +;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) +;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) +;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) +;;; End: + (provide 'ediff-merg) ;; ediff-merg.el ends here
--- a/lisp/ediff/ediff-mult.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff-mult.el Mon Aug 13 09:05:42 2007 +0200 @@ -155,10 +155,17 @@ (defvar ediff-session-group-setup-hook nil "*Hooks run just after a meta-buffer controlling a session group, such as ediff-directories, is run.") +(defvar ediff-quit-session-group-hook nil + "*Hooks run just before exiting a session group.") (defvar ediff-show-registry-hook nil "*Hooks run just after the registry buffer is shown.") (defvar ediff-show-session-group-hook nil "*Hooks run just after a session group buffer is shown.") +(defvar ediff-meta-buffer-keymap-setup-hook nil + "*Hooks run just after setting up the ediff-meta-buffer-map. +This keymap controls key bindings in the meta buffer and is a local variable. +This means that you can set different bindings for different kinds of meta +buffers.") ;; buffer holding the multi-file patch. local to the meta buffer (ediff-defvar-local ediff-meta-patchbufer nil "") @@ -168,6 +175,7 @@ ;; group buffer/regexp (defun ediff-get-group-buffer (meta-list) (nth 0 (car meta-list))) + (defun ediff-get-group-regexp (meta-list) (nth 1 (car meta-list))) ;; group objects @@ -177,6 +185,9 @@ (nth 3 (car meta-list))) (defun ediff-get-group-objC (meta-list) (nth 4 (car meta-list))) +(defun ediff-get-group-merge-autostore-dir (meta-list) + (nth 5 (car meta-list))) + ;; session buffer (defun ediff-get-session-buffer (elt) (nth 0 elt)) @@ -224,7 +235,9 @@ (define-key ediff-meta-buffer-map [mouse-2] ediff-meta-action-function) (define-key ediff-meta-buffer-map [button2] ediff-meta-action-function)) - (use-local-map ediff-meta-buffer-map)) + (use-local-map ediff-meta-buffer-map) + ;; modify ediff-meta-buffer-map here + (run-hooks 'ediff-meta-buffer-keymap-setup-hook)) (defun ediff-meta-mode () "This mode controls all operations on Ediff session groups. @@ -313,11 +326,16 @@ (backward-char 1))) )) +(defsubst ediff-add-slash-if-directory (dir file) + (if (file-directory-p (concat dir file)) + (file-name-as-directory file) + file)) -;; DIR1, DIR2, DIR3 are directories. -;; REGEXP is a regexp used to filter -;; files in the directories. +;; DIR1, DIR2, DIR3 are directories. DIR3 can be nil. +;; OUTPUT-DIR is a directory for auto-storing the results of merge jobs. +;; Can be nil. +;; REGEXP is a regexp used to filter out files in the directories. ;; If a file is a directory in dir1 but not dir2 (or vice versa), it is not ;; included in the intersection. However, a regular file that is a dir in dir3 ;; is included, since dir3 files are supposed to be ancestors for merging. @@ -325,44 +343,53 @@ ;; ((dir1 dir2 dir3) (f1 f2 f3) (f1 f2 f3) ...) ;; dir3, f3 can be nil if intersecting only 2 directories. ;; If COMPARISON-FUNC is given, use it. Otherwise, use string= -;; DIFF-VAR is contains the name of the variable in which to return the -;; difference list. The diff list is of the form: +;; DIFF-VAR contains the name of the variable in which to return the +;; difference list (which represents the differences among the contents of +;; directories). The diff list is of the form: ;; ((dir1 dir2 dir3) (file . num) (file . num)...) ;; where num encodes the set of dirs where the file is found: ;; 2 - only dir1; 3 - only dir2; 5 - only dir3; 6 - dir1&2; 10 - dir1&3; etc. (defun ediff-intersect-directories (jobname diff-var regexp dir1 dir2 - &optional dir3 comparison-func) + &optional + dir3 merge-autostore-dir comparison-func) (setq comparison-func (or comparison-func 'string=)) (let (lis1 lis2 lis3 common auxdir1 auxdir2 auxdir3 difflist) (setq auxdir1 (file-name-as-directory dir1) lis1 (directory-files auxdir1 nil regexp) + lis1 (delete "." lis1) + lis1 (delete ".." lis1) + lis1 (mapcar + (function + (lambda (elt) + (ediff-add-slash-if-directory auxdir1 elt))) + lis1) auxdir2 (file-name-as-directory dir2) - lis2 (directory-files auxdir2 nil regexp)) + lis2 (mapcar + (function + (lambda (elt) + (ediff-add-slash-if-directory auxdir2 elt))) + (directory-files auxdir2 nil regexp))) (if (stringp dir3) (setq auxdir3 (file-name-as-directory dir3) - lis3 (directory-files auxdir3 nil regexp))) + lis3 (mapcar + (function + (lambda (elt) + (ediff-add-slash-if-directory auxdir3 elt))) + (directory-files auxdir3 nil regexp)))) - (setq lis1 (delete "." lis1) - lis1 (delete ".." lis1)) - + (if (stringp merge-autostore-dir) + (setq merge-autostore-dir + (file-name-as-directory merge-autostore-dir))) (setq common (ediff-intersection lis1 lis2 comparison-func)) - ;; get rid of files that are directories in dir1 but not dir2 - (mapcar (function (lambda (elt) - (if (Xor (file-directory-p (concat auxdir1 elt)) - (file-directory-p (concat auxdir2 elt))) - (setq common (delq elt common))))) - common) - ;; intersect with the third dir - (if lis3 (setq common (ediff-intersection common lis3 comparison-func))) - (if (ediff-comparison-metajob3 jobname) - (mapcar (function (lambda (elt) - (if (Xor (file-directory-p (concat auxdir1 elt)) - (file-directory-p (concat auxdir3 elt))) - (setq common (delq elt common))))) - common)) + + ;; In merge with ancestor jobs, we don't intersect with lis3. + ;; If there is no ancestor, we'll offer to merge without the ancestor. + ;; So, we intersect with lis3 only when we are doing 3-way file comparison + (if (and lis3 (ediff-comparison-metajob3 jobname)) + (setq common (ediff-intersection common lis3 comparison-func))) ;; copying is needed because sort sorts via side effects (setq common (sort (ediff-copy-list common) 'string-lessp)) @@ -393,25 +420,47 @@ difflist) (setq difflist (cons (list regexp auxdir1 auxdir2 auxdir3) difflist)) + ;; return the difference list back to the calling function (set diff-var difflist) ;; return result - (cons (list regexp auxdir1 auxdir2 auxdir3) - (mapcar (function (lambda (elt) - (list (concat auxdir1 elt) - (concat auxdir2 elt) - (if lis3 - (concat auxdir3 elt))))) - common)) + (cons (list regexp auxdir1 auxdir2 auxdir3 merge-autostore-dir) + (mapcar + (function + (lambda (elt) + (list (concat auxdir1 elt) + (concat auxdir2 elt) + (if lis3 + (progn + ;; The following is done because: + ;; In merging with ancestor, we don't intersect + ;; with lis3. So, it is possible that elt is a + ;; file in auxdir1/2 but a directory in auxdir3 + ;; Or elt may not exist in auxdir3 at all. + ;; In the first case, we add a slash at the end. + ;; In the second case, we insert nil. + (setq elt (ediff-add-slash-if-directory auxdir3 elt)) + (if (file-exists-p (concat auxdir3 elt)) + (concat auxdir3 elt))))))) + common)) )) ;; find directory files that are under revision. -;; display subdirectories, too, since we may visit them recursively. -(defun ediff-get-directory-files-under-revision (jobname regexp dir1) +;; Include subdirectories, since we may visit them recursively. +;; DIR1 is the directory to inspect. +;; OUTPUT-DIR is the directory where to auto-store the results of merges. Can +;; be nil. +(defun ediff-get-directory-files-under-revision (jobname + regexp dir1 + &optional merge-autostore-dir) (let (lis1 elt common auxdir1) (setq auxdir1 (file-name-as-directory dir1) lis1 (directory-files auxdir1 nil regexp)) + (if (stringp merge-autostore-dir) + (setq merge-autostore-dir + (file-name-as-directory merge-autostore-dir))) + (while lis1 (setq elt (car lis1) lis1 (cdr lis1)) @@ -426,13 +475,14 @@ ) ; while (setq common (delete "." common) - common (delete ".." common)) + common (delete ".." common) + common (delete "RCS" common)) ;; copying is needed because sort sorts via side effects (setq common (sort (ediff-copy-list common) 'string-lessp)) ;; return result - (cons (list regexp auxdir1 nil nil) + (cons (list regexp auxdir1 nil nil merge-autostore-dir) (mapcar (function (lambda (elt) (list (concat auxdir1 elt) nil nil))) @@ -499,28 +549,32 @@ ;; meta-buffs. (define-key ediff-meta-buffer-map "M" 'ediff-show-meta-buff-from-registry)) - ;; initialize the meta list -- don't do this for registry we prepend - ;; '(nil nil) to all elts of meta-list, except the first. The - ;; first nil will later be replaced by the session buffer. The second - ;; is reserved for session status. + ;; Initialize the meta list -- don't do this for registry. + ;; + ;; We prepend '(nil nil) to all elts of meta-list, except the first. + ;; The first nil will later be replaced by the session buffer. The + ;; second is reserved for session status. + ;; ;; (car ediff-meta-list) gets cons'ed with the session group buffer. - ;; Also, session objA/B/C are turned into lists (obj eq-indicator) + ;; Also, session objects A/B/C are turned into lists of the form + ;; (obj eq-indicator). Eq-indicator is either nil or =. Initialized to + ;; nil. If later it is discovered that this file is = to some other + ;; file in the same session, eq-indicator is changed to `='. ;; For now, the eq-indicator is used only for 2 and 3-file jobs. (setq ediff-meta-list (cons (cons meta-buffer (car meta-list)) - (mapcar (function - (lambda (elt) - (cons nil - (cons nil - ;; convert each obj to (obj nil), - ;; where nil may later be replaced - ;; by =, if this file equals some - ;; other file in the same session - (mapcar (function - (lambda (obj) - (list obj nil))) - elt))))) - (cdr meta-list))))) + (mapcar + (function + (lambda (elt) + (cons nil + (cons nil + ;; convert each obj to (obj nil), + ;; where nil is the initial value + ;; for eq-indicator -- see above + (mapcar + (function (lambda (obj) (list obj nil))) + elt))))) + (cdr meta-list))))) (or (eq meta-buffer ediff-registry-buffer) (setq ediff-session-registry @@ -534,8 +588,9 @@ (set-buffer-modified-p nil) (run-hooks 'startup-hooks) - ;; arrange for showing directory contents differences - ;; must be after run startup-hooks, since ediff-dir-difference-list is + + ;; Arrange to show directory contents differences + ;; Must be after run startup-hooks, since ediff-dir-difference-list is ;; set inside these hooks (if (eq action-func 'ediff-filegroup-action) (progn @@ -574,6 +629,7 @@ (empty t) (sessionNum 0) regexp elt session-buf f1 f2 f3 pt + merge-autostore-dir point tmp-list buffer-read-only) (ediff-eval-in-buffer meta-buf (setq point (point)) @@ -581,7 +637,8 @@ (insert (format ediff-meta-buffer-message (ediff-abbrev-jobname ediff-metajob-name))) - (setq regexp (ediff-get-group-regexp meta-list)) + (setq regexp (ediff-get-group-regexp meta-list) + merge-autostore-dir (ediff-get-group-merge-autostore-dir meta-list)) (cond ((ediff-collect-diffs-metajob) (insert @@ -598,7 +655,11 @@ (if (and (stringp regexp) (> (length regexp) 0)) (insert (format "Filter-through regular expression: %s\n" regexp))) - + (if (and ediff-autostore-merges (ediff-merge-metajob) + (stringp merge-autostore-dir)) + (insert (format + "\nMerges are automatically stored in directory: %s\n" + merge-autostore-dir))) (insert "\n Size Last modified Name ----------------------------------------------------------------------- @@ -621,7 +682,6 @@ ;; now organize file names like this: ;; use-mark sizeA dateA sizeB dateB filename ;; make sure directories are displayed with a trailing slash. - ;; If one is a directory and another isn't, indicate this with a `?' (while meta-list (setq elt (car meta-list) meta-list (cdr meta-list) @@ -652,50 +712,63 @@ ;; Check if this is a problematic session. ;; Return nil if not. Otherwise, return symbol representing the problem ;; At present, problematic sessions occur only in -with-ancestor comparisons -;; when the ancestor is a directory rather than a file. +;; when the ancestor is a directory rather than a file, or when there is no +;; suitable ancestor file in the ancestor directory (defun ediff-problematic-session-p (session) (let ((f1 (ediff-get-session-objA-name session)) (f2 (ediff-get-session-objB-name session)) (f3 (ediff-get-session-objC-name session))) (cond ((and (stringp f1) (not (file-directory-p f1)) (stringp f2) (not (file-directory-p f2)) - (stringp f3) (file-directory-p f3) + ;; either invalid file name or a directory + (or (not (stringp f3)) (file-directory-p f3)) (ediff-ancestor-metajob)) ;; more may be added later 'ancestor-is-dir) (t nil)))) (defun ediff-meta-insert-file-info (fileinfo) - (let ((file-size -1) - (fname (car fileinfo)) + (let ((fname (car fileinfo)) (feq (ediff-get-file-eqstatus fileinfo)) - (file-modtime "*file doesn't exist*")) + file-modtime file-size) - (if (and (stringp fname) (file-exists-p fname)) - (setq file-size (ediff-file-size fname) - file-modtime (ediff-file-modtime fname))) + (cond ((not (stringp fname)) (setq file-size -2)) ; file doesn't exist + ((not (ediff-file-remote-p fname)) + (if (file-exists-p fname) + ;; set real size and modtime + (setq file-size (ediff-file-size fname) + file-modtime (ediff-file-modtime fname)) + (setq file-size -2))) ; file doesn't exist + ( t (setq file-size -1))) ; remote file (if (stringp fname) (insert (format "%s %s %-20s %s\n" (if feq "=" " ") ; equality indicator - (format "%10s" (if (< file-size 0) - "remote" - file-size)) - (if (< file-size 0) - "file" - (ediff-format-date (decode-time file-modtime))) - ;; dir names in meta lists have no trailing `/' so insert it - (cond ((file-directory-p fname) - (file-name-as-directory (ediff-abbreviate-file-name fname))) - (t (ediff-abbreviate-file-name fname))))) - ))) + (format "%10s" (cond ((= file-size -1) "--") + ((< file-size -1) "--") + (t file-size))) + (cond ((= file-size -1) "*remote file*") + ((< file-size -1) "*file doesn't exist*") + (t (ediff-format-date (decode-time file-modtime)))) + + ;; dir names in meta lists have training slashes, so we just + ;; abbreviate the file name, if file exists + (if (and (not (stringp fname)) (< file-size -1)) + "-------" ; file doesn't exist + (ediff-abbreviate-file-name fname))))))) (defconst ediff-months '((1 . "Jan") (2 . "Feb") (3 . "Mar") (4 . "Apr") (5 . "May") (6 . "Jun") (7 . "Jul") (8 . "Aug") (9 . "Sep") (10 . "Oct") (11 . "Nov") (12 . "Dec")) "Months' associative array.") +;; returns 2char string +(defsubst ediff-fill-leading-zero (num) + (if (< num 10) + (format "0%d" num) + (number-to-string num))) + ;; TIME is like the output of decode-time (defun ediff-format-date (time) (format "%s %2d %4d %s:%s:%s" @@ -707,12 +780,6 @@ (ediff-fill-leading-zero (nth 0 time)) ; sec )) -;; returns 2char string -(defsubst ediff-fill-leading-zero (num) - (if (< num 10) - (format "0%d" num) - (number-to-string num))) - (defun ediff-draw-dir-diffs (diff-list) (if (null diff-list) (error "Lost difference info on these directories")) (let* ((buf-name (ediff-unique-buffer-name @@ -950,6 +1017,7 @@ (meta-buf (ediff-event-buffer last-command-event)) ;; ediff-get-meta-info gives error if meta-buf or pos are invalid (info (ediff-get-meta-info meta-buf pos)) + merge-autostore-dir (session-buf (ediff-get-session-buffer info))) (if (eq (ediff-get-session-status info) ?H) @@ -1149,6 +1217,8 @@ (error "Aborted")))) (ediff-eval-in-buffer meta-buf + (setq merge-autostore-dir + (ediff-get-group-merge-autostore-dir ediff-meta-list)) (goto-char pos) ; if the user clicked on session--move point there ;; First handle sessions involving directories (which are themselves ;; session groups) @@ -1203,13 +1273,20 @@ ((ediff-problematic-session-p info) (beep) (if (y-or-n-p - "This session's ancestor is a directory, merge without the ancestor? ") + "This session has no ancestor. Merge without the ancestor? ") (ediff-merge-files file1 file2 ;; provide startup hooks (` (list (lambda () (setq ediff-meta-buffer (, (current-buffer))) - ;; see below for the explanation of what this does + (setq ediff-merge-store-file + (, (concat + merge-autostore-dir + "mrg_" + (file-name-nondirectory file1)))) + ;; make ediff-startup pass + ;; ediff-control-buffer back to the meta + ;; level; see below (setcar (quote (, info)) ediff-control-buffer))))) (error "Aborted"))) @@ -1219,7 +1296,14 @@ ;; provide startup hooks (` (list (lambda () (setq ediff-meta-buffer (, (current-buffer))) - ;; see below for explanation of what this does + (setq ediff-merge-store-file + (, (concat + merge-autostore-dir + "mrg_" + (file-name-nondirectory file1)))) + ;; make ediff-startup pass + ;; ediff-control-buffer back to the meta + ;; level; see below (setcar (quote (, info)) ediff-control-buffer)))))) ((not (ediff-metajob3)) ; need 2 file args @@ -1228,12 +1312,14 @@ ;; provide startup hooks (` (list (lambda () (setq ediff-meta-buffer (, (current-buffer))) - ;; this makes ediff-startup pass the value of + (setq ediff-merge-store-file + (, (concat + merge-autostore-dir + "mrg_" + (file-name-nondirectory file1)))) + ;; make ediff-startup pass ;; ediff-control-buffer back to the meta - ;; level, to the record in the meta list - ;; containing the information about the - ;; session associated with that - ;; ediff-control-buffer + ;; level; see below (setcar (quote (, info)) ediff-control-buffer)))))) ((ediff-metajob3) ; need 3 file args @@ -1241,7 +1327,18 @@ file1 file2 file3 ;; arrange startup hooks (` (list (lambda () + (setq ediff-merge-store-file + (, (concat + merge-autostore-dir + "mrg_" + (file-name-nondirectory file1)))) (setq ediff-meta-buffer (, (current-buffer))) + ;; this arranges that ediff-startup will pass + ;; the value of ediff-control-buffer back to + ;; the meta level, to the record in the meta + ;; list containing the information about the + ;; session associated with that + ;; ediff-control-buffer (setcar (quote (, info)) ediff-control-buffer)))))) ) ; cond @@ -1404,8 +1501,8 @@ 'ediff-registry)) )) -;; if meta-buf exists, it is redrawn along with parent. Otherwise, nothing -;; happens +;; If meta-buf exists, it is redrawn along with parent. +;; Otherwise, nothing happens. (defun ediff-cleanup-meta-buffer (meta-buffer) (if (ediff-buffer-live-p meta-buffer) (ediff-eval-in-buffer meta-buffer @@ -1430,7 +1527,7 @@ cont)))) (defun ediff-quit-meta-buffer () - "If no unprocessed sessions in the group, delete the meta buffer. + "If the group has no active session, delete the meta buffer. If no session is in progress, ask to confirm before deleting meta buffer. Otherwise, bury the meta buffer. If this is a session registry buffer then just bury it." @@ -1445,6 +1542,7 @@ (ediff-cleanup-meta-buffer buf) (cond ((and (ediff-safe-to-quit buf) (y-or-n-p "Quit this session group? ")) + (run-hooks 'ediff-quit-session-group-hook) (message "") (ediff-dispose-of-meta-buffer buf)) ((ediff-safe-to-quit buf) @@ -1617,6 +1715,7 @@ ;;; Local Variables: ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) ;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) +;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) ;;; End: (provide 'ediff-mult)
--- a/lisp/ediff/ediff-ptch.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff-ptch.el Mon Aug 13 09:05:42 2007 +0200 @@ -24,13 +24,33 @@ ;;; Code: +(require 'ediff-init) + (defvar ediff-last-dir-patch nil "Last directory used by an Ediff command for file to patch.") (defvar ediff-backup-extension (if (memq system-type '(vax-vms axp-vms emx ms-dos windows-nt windows-95)) "_orig" ".orig") - "Default backup extension for the patch program.") + "Backup extension used by the patch program. +See also `ediff-backup-specs'.") + +(defvar ediff-backup-specs (format "-b %s" ediff-backup-extension) + "*Backup directives to pass to the patch program. +Ediff requires that the old version of the file \(before applying the patch\) +is saved in a file named `the-patch-file.extension'. Usually `extension' is +`.orig', but this can be changed by the user and may depend on the system. +Therefore, Ediff needs to know the backup extension used by the patch program. + +Some versions of the patch program let you specify `-b backup-extension'. +Other versions only permit `-b', which assumes some canned extension + \(usually `.orig'\). + +Note that both `ediff-backup-extension' and `ediff-backup-specs' +must be properly set. If your patch program takes the option `-b', +but not `-b extension', the variable `ediff-backup-extension' must +still be set so Ediff will know which extension to use.") + (defvar ediff-patch-default-directory nil "*Default directory to look for patches.") @@ -39,14 +59,21 @@ (concat "\\(" ; context diff 2-liner "^\\*\\*\\* \\([^ \t]+\\)[^*]+[\t ]*\n--- \\([^ \t]+\\)" "\\|" ; GNU unified format diff 2-liner - "^--- \\([^ \t]+\\)[^-]+[\t ]*\n\\+\\+\\+ \\([^ \t]+\\)" + "^--- \\([^ \t]+\\)[\t ]+.*\n\\+\\+\\+ \\([^ \t]+\\)" "\\)") "*Regexp matching filename 2-liners at the start of each context diff.") (defvar ediff-patch-program "patch" - "*Name of the program that applies patches.") -(defvar ediff-patch-options "" - "*Options to pass to ediff-patch-program.") + "*Name of the program that applies patches. +It is recommended to use GNU-compatible versions.") +(defvar ediff-patch-options "-f" + "*Options to pass to ediff-patch-program. + +Note: the `-b' option should be specified in `ediff-backup-specs'. + +It is recommended to pass the `-f' option to the patch program, so it won't ask +questions. However, some implementations don't accept this option, in which +case the default value for this variable should be changed.") ;; The buffer of the patch file. Local to control buffer. (ediff-defvar-local ediff-patchbufer nil "") @@ -110,10 +137,10 @@ (forward-char 1) ; ensure progress towards the end (setq mark2 (move-marker (make-marker) (match-beginning 0)) mark2-end (match-end 0) - beg1 (match-beginning 2) - end1 (match-end 2) - beg2 (match-beginning 3) - end2 (match-end 3)) + beg1 (or (match-beginning 2) (match-beginning 4)) + end1 (or (match-end 2) (match-end 4)) + beg2 (or (match-beginning 3) (match-beginning 5)) + end2 (or (match-end 3) (match-end 5))) ;; possible-file-names is holding the new file names until we ;; insert the old file name in the patch map ;; It is a pair (filename from 1st header line . fn from 2nd line) @@ -197,6 +224,7 @@ (princ (format " The patch file contains a context diff for + %s %s @@ -318,7 +346,8 @@ (current-buffer) 'must-match))) (setq patch-buf (find-file-noselect - (read-file-name "Which file contains the patch? " dir)))) + (read-file-name "Which file contains the patch? " + dir nil 'must-match)))) (ediff-eval-in-buffer patch-buf (goto-char (point-min)) @@ -404,15 +433,7 @@ &optional startup-hooks) (setq source-filename (expand-file-name source-filename)) - (let* ((backup-extension - ;; if the user specified a -b option, extract the backup - ;; extension from there; else use ediff-backup-extension - (substring ediff-patch-options - (if (string-match "-b[ \t]+" ediff-patch-options) - (match-end 0) 0) - (if (string-match "-b[ \t]+[^ \t]+" ediff-patch-options) - (match-end 0) 0))) - (shell-file-name ediff-shell) + (let* ((shell-file-name ediff-shell) (patch-diagnostics (get-buffer-create "*ediff patch diagnostics*")) ;; ediff-find-file may use a temp file to do the patch ;; so, we save source-filename and true-source-filename as a var @@ -420,12 +441,9 @@ ;; file for the purpose of patching. (true-source-filename source-filename) (target-filename source-filename) - target-buf buf-to-patch file-name-magic-p ctl-buf backup-style) + target-buf buf-to-patch file-name-magic-p + patch-return-code ctl-buf backup-style aux-wind) - ;; if the user didn't specify a backup extension, use - ;; ediff-backup-extension - (if (string= backup-extension "") - (setq backup-extension ediff-backup-extension)) (if (string-match "-V" ediff-patch-options) (error "Ediff doesn't take the -V option in `ediff-patch-options'--sorry")) @@ -444,10 +462,9 @@ (setq file-name-magic-p (not (equal (file-truename true-source-filename) (file-truename source-filename)))) - ;; Checkout orig file, if necessary, so that the patched file could be - ;; checked back in. - (if (ediff-file-checked-in-p (buffer-file-name buf-to-patch)) - (ediff-toggle-read-only buf-to-patch)) + ;; Checkout orig file, if necessary, so that the patched file + ;; could be checked back in. + (ediff-maybe-checkout buf-to-patch) (ediff-eval-in-buffer patch-diagnostics (insert-buffer patch-buf) @@ -455,14 +472,21 @@ ;; fix environment for gnu patch, so it won't make numbered extensions (setq backup-style (getenv "VERSION_CONTROL")) (setenv "VERSION_CONTROL" nil) - ;; always pass patch the -f option, so it won't ask any questions - (shell-command-on-region - (point-min) (point-max) - (format "%s -f %s -b %s %s" - ediff-patch-program ediff-patch-options - backup-extension - (expand-file-name true-source-filename)) - t) + (setq patch-return-code + (call-process-region + (point-min) (point-max) + shell-file-name + t ; delete region (which contains the patch + t ; insert output (patch diagnostics) in current buffer + nil ; don't redisplay + shell-command-switch ; usually -c + (format "%s %s %s %s" + ediff-patch-program + ediff-patch-options + ediff-backup-specs + (expand-file-name true-source-filename)) + )) + ;; restore environment for gnu patch (setenv "VERSION_CONTROL" backup-style)) @@ -472,9 +496,51 @@ (switch-to-buffer patch-diagnostics) (sit-for 0) ; synchronize - let the user see diagnostics - (or (file-exists-p (concat true-source-filename backup-extension)) - (error "Patch appears to have failed")) - + (or (and (eq patch-return-code 0) ; patch reported success + (file-exists-p + (concat true-source-filename ediff-backup-extension))) + (progn + (with-output-to-temp-buffer ediff-msg-buffer + (princ (format " +Patch has failed OR the backup version of the patched file was not created by +the patch program. + +One reason may be that the values of the variables + + ediff-patch-options = %S + ediff-backup-extension = %S + ediff-backup-specs = %S + +are not appropriate for the program specified in the variable + + ediff-patch-program = %S + +Another reason could be that the %S program doesn't understand +the format of the patch file you used. + +See Ediff on-line manual for more details on these variables. +\(Or use a GNU-compatible patch program and stay out of trouble.\) + +Type any key to continue... +" + ediff-patch-options + ediff-backup-extension + ediff-backup-specs + ediff-patch-program + ediff-patch-program))) + (beep 1) + (if (setq aux-wind (get-buffer-window ediff-msg-buffer)) + (progn + (select-window aux-wind) + (goto-char (point-max)))) + (read-char-exclusive) + (if aux-wind (bury-buffer)) ; ediff-msg-buffer + (if (setq aux-wind (get-buffer-window patch-diagnostics)) + (progn + (select-window aux-wind) + (bury-buffer))) + (error "Patch appears to have failed"))) + ;; If black magic is involved, apply patch to a temp copy of the ;; file. Otherwise, apply patch to the orig copy. If patch is applied ;; to temp copy, we name the result old-name_patched for local files @@ -485,7 +551,8 @@ ;; the original. (if (not file-name-magic-p) (ediff-eval-in-buffer buf-to-patch - (set-visited-file-name (concat source-filename backup-extension)) + (set-visited-file-name + (concat source-filename ediff-backup-extension)) (set-buffer-modified-p nil)) ;; Black magic in effect. @@ -502,13 +569,13 @@ (rename-file true-source-filename target-filename t) ;; arrange that the temp copy of orig will be deleted - (rename-file (concat true-source-filename backup-extension) + (rename-file (concat true-source-filename ediff-backup-extension) true-source-filename t)) - + ;; make orig buffer read-only (setq startup-hooks (cons 'ediff-set-read-only-in-buf-A startup-hooks)) - + ;; set up a buf for the patched file (setq target-buf (find-file-noselect target-filename)) @@ -555,6 +622,7 @@ ;;; Local Variables: ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) ;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) +;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) ;;; End: (provide 'ediff-ptch)
--- a/lisp/ediff/ediff-util.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff-util.el Mon Aug 13 09:05:42 2007 +0200 @@ -23,14 +23,27 @@ ;;; Code: -(require 'ediff-init) -(require 'ediff-mult) - ;; Pacify compiler and avoid the need in checking for boundp (defvar ediff-patch-diagnostics nil) (defvar ediff-patchbufer nil) +(and noninteractive + (eval-when-compile + (let ((load-path (cons (expand-file-name ".") load-path))) + (load-file "ediff-init.el") + (load-file "ediff-help.el")))) ;; end pacifier +(require 'ediff-init) +(require 'ediff-help) +(require 'ediff-mult) + +;;(if ediff-xemacs-p +;; (require 'ediff-tbar) +;; (defun ediff-use-toolbar-p () nil)) +;; +;; for the time being +(defun ediff-use-toolbar-p () nil) + ;;; Functions @@ -100,6 +113,10 @@ (setq ediff-mode-map (make-sparse-keymap)) (suppress-keymap ediff-mode-map) + (define-key ediff-mode-map + (if ediff-emacs-p [mouse-2] [button2]) 'ediff-help-for-quick-help) + (define-key ediff-mode-map "\C-m" 'ediff-help-for-quick-help) + (define-key ediff-mode-map "p" 'ediff-previous-difference) (define-key ediff-mode-map "\C-?" 'ediff-previous-difference) (define-key ediff-mode-map [backspace] 'ediff-previous-difference) @@ -183,6 +200,7 @@ (define-key ediff-mode-map "wa" 'ediff-save-buffer) (define-key ediff-mode-map "wb" 'ediff-save-buffer) (define-key ediff-mode-map "wd" 'ediff-save-buffer) + (define-key ediff-mode-map "=" 'ediff-inferior-compare-regions) (if (fboundp 'ediff-show-patch-diagnostics) (define-key ediff-mode-map "P" 'ediff-show-patch-diagnostics)) (if ediff-3way-job @@ -210,10 +228,13 @@ ;; It now returns control buffer so other functions can do post-processing (defun ediff-setup (buffer-A file-A buffer-B file-B buffer-C file-C startup-hooks setup-parameters) - (setq file-A (expand-file-name file-A)) - (setq file-B (expand-file-name file-B)) + ;; ediff-convert-standard-filename puts file names in the form appropriate + ;; for the OS at hand. + (setq file-A (ediff-convert-standard-filename (expand-file-name file-A))) + (setq file-B (ediff-convert-standard-filename (expand-file-name file-B))) (if (stringp file-C) - (setq file-C (expand-file-name file-C))) + (setq file-C + (ediff-convert-standard-filename (expand-file-name file-C)))) (let* ((control-buffer-name (ediff-unique-buffer-name "*Ediff Control Panel" "*")) (control-buffer (ediff-eval-in-buffer buffer-A @@ -461,11 +482,13 @@ (shrink-window-if-larger-than-buffer) (or (ediff-multiframe-setup-p) (ediff-indent-help-message)) + (ediff-set-help-overlays) + (set-buffer-modified-p nil) (ediff-refresh-mode-lines) (setq ediff-control-window (selected-window)) (setq ediff-window-config-saved - (format "\%S\%S\%S\%S\%S\%S\%S" + (format "%S%S%S%S%S%S%S" ediff-control-window ediff-window-A ediff-window-B @@ -473,74 +496,11 @@ ediff-split-window-function (ediff-multiframe-setup-p) ediff-wide-display-p)) + (if (not (ediff-multiframe-setup-p)) + (ediff-make-bottom-toolbar)) ; checks if toolbar is requested (goto-char (point-min)) (skip-chars-forward ediff-whitespace))) -;; assuming we are in control window, calculate length of the first line in -;; help message -(defun ediff-help-message-line-length () - (save-excursion - (goto-char (point-min)) - (if ediff-use-long-help-message - (next-line 1)) - (end-of-line) - (current-column))) - - -(defun ediff-indent-help-message () - (let* ((shift (/ (max 0 (- (window-width (selected-window)) - (ediff-help-message-line-length))) - 2)) - (str (make-string shift ?\ ))) - (save-excursion - (goto-char (point-min)) - (while (< (point) (point-max)) - (insert str) - (beginning-of-line) - (forward-line 1))))) - - -(defun ediff-set-help-message () - (setq ediff-long-help-message - (cond ((and ediff-long-help-message-function - (or (symbolp ediff-long-help-message-function) - (consp ediff-long-help-message-function))) - (funcall ediff-long-help-message-function)) - (ediff-word-mode - (concat ediff-long-help-message-head - ediff-long-help-message-word-mode - ediff-long-help-message-tail)) - (ediff-narrow-job - (concat ediff-long-help-message-head - ediff-long-help-message-narrow2 - ediff-long-help-message-tail)) - (ediff-merge-job - (concat ediff-long-help-message-head - ediff-long-help-message-merge - ediff-long-help-message-tail)) - (ediff-diff3-job - (concat ediff-long-help-message-head - ediff-long-help-message-compare3 - ediff-long-help-message-tail)) - (t - (concat ediff-long-help-message-head - ediff-long-help-message-compare2 - ediff-long-help-message-tail)))) - (setq ediff-brief-help-message - (cond ((and ediff-brief-help-message-function - (or (symbolp ediff-brief-help-message-function) - (consp ediff-brief-help-message-function))) - (funcall ediff-brief-help-message-function)) - ((stringp ediff-brief-help-message-function) - ediff-brief-help-message-function) - ((ediff-multiframe-setup-p) ediff-brief-message-string) - (t ; long brief msg, not multiframe --- put in the middle - ediff-brief-message-string) - )) - (setq ediff-help-message (if ediff-use-long-help-message - ediff-long-help-message - ediff-brief-help-message)) - (run-hooks 'ediff-display-help-hook)) @@ -770,8 +730,9 @@ control-frame (eq this-command 'ediff-quit)))) )) - (ediff-eval-in-buffer control-buf - (ediff-refresh-mode-lines)) + + (ediff-restore-highlighting) + (ediff-eval-in-buffer control-buf (ediff-refresh-mode-lines)) )) ;; this function returns to the window it was called from @@ -881,12 +842,13 @@ ediff-highlight-all-diffs t))) (if (and ediff-use-faces ediff-highlight-all-diffs) - (ediff-color-background-regions) - (ediff-color-background-regions 'unhighlight)) + (ediff-paint-background-regions) + (ediff-paint-background-regions 'unhighlight)) (ediff-unselect-and-select-difference ediff-current-difference 'select-only)) ) + (defun ediff-toggle-autorefine () "Toggle auto-refine mode." @@ -1001,12 +963,13 @@ (setq toggle-ro-cmd 'toggle-read-only) (beep 1) (beep 1) (message - "Boy, this is risky! Better don't change this file...") + "Boy, this is risky! Don't modify this file...") (sit-for 3)))) ; let the user see the warning (if (and toggle-ro-cmd (string-match "toggle-read-only" (symbol-name toggle-ro-cmd))) (save-excursion (save-window-excursion + (select-window (ediff-get-visible-buffer-window buf)) (command-execute toggle-ro-cmd))) (error "Don't know how to toggle read-only in buffer %S" buf)) @@ -1019,30 +982,52 @@ (message "Warning: file %s is read-only" (ediff-abbreviate-file-name file) (beep 1))) )))) - + -;; This is a simple-minded check for whether a file is under version control -;; and is checked out. +;; checkout if visited file is checked in +(defun ediff-maybe-checkout (buf) + (let ((file (buffer-file-name buf)) + (checkout-function (key-binding "\C-x\C-q"))) + (if (and (ediff-file-checked-in-p file) + (or (beep 1) t) + (y-or-n-p + (format + "File %s is under version control. Check it out? " + (ediff-abbreviate-file-name file)))) + (ediff-eval-in-buffer buf + (command-execute checkout-function))))) + + +;; This is a simple-minded check for whether a file is under version control. ;; If file,v exists but file doesn't, this file is considered to be not checked ;; in and not checked out for the purpose of patching (since patch won't be ;; able to read such a file anyway). ;; FILE is a string representing file name -(defun ediff-file-checked-out-p (file) - (and (stringp file) - (file-exists-p file) - (file-writable-p file) - (or - (file-exists-p (concat file ",v")) - (file-exists-p (concat "RCS/" file ",v"))) +(defun ediff-file-under-version-control (file) + (let* ((filedir (file-name-directory file)) + (file-nondir (file-name-nondirectory file)) + (trial (concat file-nondir ",v")) + (full-trial (concat filedir trial)) + (full-rcs-trial (concat filedir "RCS/" trial))) + (and (stringp file) + (file-exists-p file) + (or + (and + (file-exists-p full-trial) + ;; in FAT FS, `file,v' and `file' may turn out to be the same! + ;; don't be fooled by this! + (not (equal (file-attributes file) + (file-attributes full-trial)))) + ;; check if a version is in RCS/ directory + (file-exists-p full-rcs-trial))) )) + +(defun ediff-file-checked-out-p (file) + (and (ediff-file-under-version-control file) + (file-writable-p file))) (defun ediff-file-checked-in-p (file) - (and (stringp file) - (file-exists-p file) - (not (file-writable-p file)) - (or - (file-exists-p (concat file ",v")) - (file-exists-p (concat "RCS/" file ",v"))) - )) + (and (ediff-file-under-version-control file) + (not (file-writable-p file)))) (defun ediff-swap-buffers () "Rotate the display of buffers A, B, and C." @@ -1175,22 +1160,57 @@ (ediff-eval-in-buffer ctl-buf (setq ediff-window-B nil) ; force update of window config (ediff-recenter 'no-rehighlight))))) - + +;;;###autoload (defun ediff-toggle-multiframe () "Switch from the multiframe display to single-frame display and back. For a permanent change, set the variable `ediff-window-setup-function', which see." (interactive) - (ediff-barf-if-not-control-buffer) + (let (set-func) (or (ediff-window-display-p) (error "%sEmacs is not running as a window application" (if ediff-emacs-p "" "X"))) + + (setq set-func (if (ediff-in-control-buffer-p) 'setq 'setq-default)) + (cond ((eq ediff-window-setup-function 'ediff-setup-windows-multiframe) - (setq ediff-window-setup-function 'ediff-setup-windows-plain)) + (eval + (list + set-func + 'ediff-window-setup-function ''ediff-setup-windows-plain))) ((eq ediff-window-setup-function 'ediff-setup-windows-plain) - (setq ediff-window-setup-function 'ediff-setup-windows-multiframe))) - (setq ediff-window-B nil) - (ediff-recenter 'no-rehighlight)) + (if (ediff-in-control-buffer-p) + (ediff-kill-bottom-toolbar)) + (eval + (list + set-func + 'ediff-window-setup-function ''ediff-setup-windows-multiframe)))) + (if (ediff-in-control-buffer-p) + (progn + (setq ediff-window-B nil) + (ediff-recenter 'no-rehighlight))))) + +;; if was using toolbar, kill it +(defun ediff-kill-bottom-toolbar () + ;; Using ctl-buffer or ediff-control-window for LOCALE does not + ;; work properly in XEmacs 19.14: we have to use + ;;(selected-frame). + ;; The problem with this is that any previous bottom-toolbar + ;; will not re-appear after our cleanup here. Is there a way + ;; to do "push" and "pop" toolbars ? --marcpa + (if (ediff-use-toolbar-p) + (progn + (set-specifier bottom-toolbar (list (selected-frame) nil)) + (set-specifier bottom-toolbar-visible-p (list (selected-frame) nil))))) + +;; if wants to use toolbar, make it +(defun ediff-make-bottom-toolbar () + (if (ediff-use-toolbar-p) + (progn + (set-specifier bottom-toolbar (list (selected-frame) ediff-toolbar)) + (set-specifier bottom-toolbar-visible-p (list (selected-frame) t)) + (set-specifier bottom-toolbar-height (list (selected-frame) 34))))) ;; Merging @@ -2188,10 +2208,17 @@ (if (ediff-overlayp overl) (ediff-delete-overlay overl)))) ediff-narrow-bounds) - + ;; restore buffer mode line id's in buffer-A/B/C (let ((control-buffer ediff-control-buffer) - (meta-buffer ediff-meta-buffer)) + (meta-buffer ediff-meta-buffer) + ;; suitable working frame + (warp-frame (if (and (ediff-window-display-p) (eq ediff-grab-mouse t)) + (cond ((window-live-p ediff-window-A) + (window-frame ediff-window-A)) + ((window-live-p ediff-window-B) + (window-frame ediff-window-B)) + (t (next-frame)))))) (condition-case nil (ediff-eval-in-buffer ediff-buffer-A (setq ediff-this-buffer-ediff-sessions @@ -2233,6 +2260,14 @@ (ediff-update-registry) ;; restore state of buffers to what it was before ediff (ediff-restore-protected-variables) + + ;; If the user interrupts (canceling saving the merge buffer), continue + ;; normally. + (condition-case nil + (if (ediff-merge-job) + (run-hooks 'ediff-quit-merge-hook)) + (quit)) + ;; good place to kill buffers A/B/C (run-hooks 'ediff-cleanup-hook) (let ((ediff-keep-variants ediff-keep-variants)) @@ -2242,6 +2277,20 @@ (run-hooks 'ediff-quit-hook) (ediff-cleanup-meta-buffer meta-buffer) + + ;; warp mouse into a working window + (setq warp-frame ; if mouse is over a reasonable frame, use it + (cond ((and ediff-xemacs-p (window-live-p (car (mouse-position)))) + (window-frame (car (mouse-position)))) + ((frame-live-p (car (mouse-position))) + (car (mouse-position))) + (t warp-frame))) + (if (frame-live-p warp-frame) + (set-mouse-position (if ediff-emacs-p + warp-frame + (frame-selected-window warp-frame)) + 2 1)) + (if (ediff-buffer-live-p meta-buffer) (ediff-show-meta-buffer meta-buffer)) )) @@ -2277,6 +2326,10 @@ (if (and (ediff-window-display-p) (frame-live-p ctl-frame)) (delete-frame ctl-frame)) + ;; Hide bottom toolbar. --marcpa + (if (not (ediff-multiframe-setup-p)) + (ediff-kill-bottom-toolbar)) + (ediff-kill-buffer-carefully ctl-buf) (delete-other-windows) @@ -2290,7 +2343,7 @@ (or (ediff-get-visible-buffer-window buff-A) (progn (if (ediff-get-visible-buffer-window buff-B) - (split-window-vertically)) + (funcall ediff-split-window-function)) (switch-to-buffer buff-A))) (error)) (if three-way-job @@ -2299,7 +2352,7 @@ (progn (if (or (ediff-get-visible-buffer-window buff-A) (ediff-get-visible-buffer-window buff-B)) - (split-window-vertically)) + (funcall ediff-split-window-function)) (switch-to-buffer buff-C) (balance-windows))) (error))) @@ -2337,6 +2390,53 @@ (buffer-name ediff-buffer-C))))) (ediff-kill-buffer-carefully ediff-buffer-C)))) +(defun ediff-maybe-save-and-delete-merge () + "Default hook to run on quitting a merge job. +If `ediff-autostore-merges' is nil, this does nothing. +If it is t, it saves the merge buffer in the file `ediff-merge-store-file' +or asks the user, if the latter is nil. It then then asks the user whether to +delete the merge buffer. +If `ediff-autostore-merges' is neither nil nor t, the merge buffer is saved +only if this merge job is part of a group, i.e., was invoked from within +`ediff-merge-directories', `ediff-merge-directory-revisions', and such." + (let ((merge-store-file ediff-merge-store-file)) + (if ediff-autostore-merges + (cond ((stringp ediff-merge-store-file) + ;; store, ask to delete + (ediff-write-merge-buffer-then-kill + ediff-buffer-C merge-store-file 'show-file)) + ((eq ediff-autostore-merges t) + ;; ask for file name + (setq merge-store-file + (read-file-name "Save the result of the merge in: ")) + (ediff-write-merge-buffer-then-kill + ediff-buffer-C merge-store-file)) + ((and (ediff-buffer-live-p ediff-meta-buffer) + (ediff-eval-in-buffer ediff-meta-buffer + (ediff-merge-metajob))) + ;; This case shouldn't occur, as the parent metajob must pass on + ;; a file name, ediff-merge-store-file, where to save the result + ;; of the merge. + ;; Ask where to save anyway--will decide what to do here later. + (setq merge-store-file + (read-file-name "The result of the merge goes into: ")) + (ediff-write-merge-buffer-then-kill + ediff-buffer-C merge-store-file)))) + )) + +(defun ediff-write-merge-buffer-then-kill (buf file &optional show-file) + (ediff-eval-in-buffer buf + (if (or (not (file-exists-p file)) + (y-or-n-p (format "File %s exists, overwrite? " file))) + (progn + (write-region (point-min) (point-max) file) + (if show-file + (progn + (message "Merge buffer saved in: %s" file) + (sit-for 2))) + (if (y-or-n-p "Merge buffer saved in file. Now kill the buffer? ") + (ediff-kill-buffer-carefully buf)))))) + ;; The default way of suspending Ediff. ;; Buries Ediff buffers, kills all windows. (defun ediff-default-suspend-function () @@ -2583,8 +2683,7 @@ (setq ediff-current-difference n) ) ; end protected section - (ediff-eval-in-buffer control-buf - (ediff-refresh-mode-lines)) + (ediff-eval-in-buffer control-buf (ediff-refresh-mode-lines)) ))) @@ -2618,7 +2717,6 @@ prompt (cond (default-file (concat " (default " default-file "):")) - ;;((string-match "[?:!,;][ \t]*$" prompt) "") (t (concat " (default " default-dir "):")))) default-dir (or default-file default-dir) @@ -2673,7 +2771,7 @@ nil ; don't append---erase 'no-message) (set-file-modes f ediff-temp-file-mode) - f))) + (ediff-convert-standard-filename (expand-file-name f))))) ;; Quote metacharacters (using \) when executing diff in Unix, but not in ;; EMX OS/2 @@ -2796,29 +2894,157 @@ (ediff-reset-mouse ediff-control-frame)) (if (window-live-p ediff-control-window) (select-window ediff-control-window))) - + + +(defun ediff-inferior-compare-regions () + "Compare regions in an active Ediff session. +Like ediff-regions-linewise but is called from under an active Ediff session on +the files that belong to that session. + +After quitting the session invoked via this function, type C-l to the parent +Ediff Control Panel to restore highlighting." + (interactive) + (let ((answer "") + (possibilities (list ?A ?B ?C)) + (zmacs-regions t) + quit-now + begA begB endA endB bufA bufB) + + (cond ((ediff-merge-job) + (setq bufB ediff-buffer-C) + (while (cond ((memq answer '(?A ?a)) + (setq bufA ediff-buffer-A) + nil) + ((memq answer '(?B ?b)) + (setq bufA ediff-buffer-B) + nil) + ((equal answer "")) + (t (beep 1) + (message "Valid values are A or B") + (sit-for 2) + t)) + (let ((cursor-in-echo-area t)) + (message "Which buffer to compare to the merge buffer (A/B)? ") + (setq answer (read-char-exclusive))))) + + ((ediff-3way-comparison-job) + (while (cond ((memq answer possibilities) + (setq possibilities (delq answer possibilities)) + (setq bufA + (eval + (intern (format "ediff-buffer-%c" answer)))) + nil) + ((equal answer "")) + (t (beep 1) + (message + "Valid values are %s" + (mapconcat 'char-to-string possibilities " or ")) + (sit-for 2) + t)) + (let ((cursor-in-echo-area t)) + (message "Enter the 1st buffer you want to compare (%s): " + (mapconcat 'char-to-string possibilities "/")) + (setq answer (capitalize (read-char-exclusive))))) + (setq answer "") ; silence error msg + (while (cond ((memq answer possibilities) + (setq possibilities (delq answer possibilities)) + (setq bufB + (eval + (intern (format "ediff-buffer-%c" answer)))) + nil) + ((equal answer "")) + (t (beep 1) + (message + "Valid values are %s" + (mapconcat 'char-to-string possibilities " or ")) + (sit-for 2) + t)) + (let ((cursor-in-echo-area t)) + (message "Enter the 2nd buffer you want to compare (%s): " + (mapconcat 'char-to-string possibilities "/")) + (setq answer (capitalize (read-char-exclusive)))))) + (t ; 2way comparison + (setq bufA ediff-buffer-A + bufB ediff-buffer-B))) + + (ediff-eval-in-buffer bufA + (or (mark t) + (error "You forgot to specify a region in buffer %s" (buffer-name))) + (setq begA (region-beginning) + endA (region-end)) + (goto-char begA) + (beginning-of-line) + (setq begA (point)) + (goto-char endA) + (end-of-line) + (or (eobp) (forward-char)) ; include the newline char + (setq endA (point))) + (ediff-eval-in-buffer bufB + (or (mark t) + (error "You forgot to specify a region in buffer %s" (buffer-name))) + (setq begB (region-beginning) + endB (region-end)) + (goto-char begB) + (beginning-of-line) + (setq begB (point)) + (goto-char endB) + (end-of-line) + (or (eobp) (forward-char)) ; include the newline char + (setq endB (point))) + + (ediff-unselect-and-select-difference + ediff-current-difference 'unselect-only) + (ediff-paint-background-regions 'unhighlight) + + (ediff-eval-in-buffer bufA + (goto-char begA) + (set-mark endA) + (narrow-to-region begA endA) + ;; (ediff-activate-mark) + ) + ;; (sit-for 0) + (ediff-eval-in-buffer bufB + (goto-char begB) + (set-mark endB) + (narrow-to-region begB endB) + ;; (ediff-activate-mark) + ) + ;; (sit-for 0) + (or (y-or-n-p + "Please check the selected regions. Continue? ") + (setq quit-now t)) + + (ediff-eval-in-buffer bufA + (widen)) + (ediff-eval-in-buffer bufB + (widen)) + (if quit-now + (error "Thank you. Come back another day...")) -;; will simplify it in due time, when emacs acquires before/after strings + (ediff-regions-internal + bufA begA endA bufB begB endB + nil ; startup hook + 'ediff-regions-linewise ; job name + nil) ; no word mode + )) + + + (defun ediff-remove-flags-from-buffer (buffer overlay) (ediff-eval-in-buffer buffer (let ((inhibit-read-only t)) (if ediff-xemacs-p (ediff-overlay-put overlay 'begin-glyph nil) - ;; before-string is not yet implemented in emacs. - ;; when it will be, I will be able to delete much of the rest of - ;; this function (ediff-overlay-put overlay 'before-string nil)) (if ediff-xemacs-p (ediff-overlay-put overlay 'end-glyph nil) - ;; after-string is not yet implemented in emacs. (ediff-overlay-put overlay 'after-string nil)) ))) -;; will simplify it in due time, when emacs acquires before/after strings (defun ediff-place-flags-in-buffer (buf-type buffer ctl-buffer diff) (ediff-eval-in-buffer buffer (ediff-place-flags-in-buffer1 buf-type ctl-buffer diff))) @@ -2893,68 +3119,16 @@ )) - -(defun ediff-highlight-diff-in-one-buffer (n buf-type) - (if (ediff-buffer-live-p (ediff-get-buffer buf-type)) - (let* ((buff (ediff-get-buffer buf-type)) - (last (ediff-eval-in-buffer buff (point-max))) - (begin (ediff-get-diff-posn buf-type 'beg n)) - (end (ediff-get-diff-posn buf-type 'end n)) - (xtra (if (equal begin end) 1 0)) - (end-hilit (min last (+ end xtra))) - (current-diff-overlay - (symbol-value - (intern (format "ediff-current-diff-overlay-%S" buf-type)))) - ) - - (if ediff-xemacs-p - (ediff-move-overlay current-diff-overlay begin end-hilit) - (ediff-move-overlay current-diff-overlay begin end-hilit buff)) - ;; giving priority of 0 and then changing it may look funny, but - ;; this overcomes an obscure Emacs bug. - (ediff-overlay-put current-diff-overlay 'priority 0) - (ediff-overlay-put current-diff-overlay 'priority - (ediff-highest-priority begin end-hilit buff)) - (ediff-overlay-put current-diff-overlay 'ediff-diff-num n) - - ;; unhighlight the background overlay for diff n so it won't - ;; interfere with the current diff overlay - (ediff-set-overlay-face (ediff-get-diff-overlay n buf-type) nil) - ))) - +;; Restore highlighting to what it should be according to ediff-use-faces, +;; ediff-highlighting-style, and ediff-highlight-all-diffs variables. +(defun ediff-restore-highlighting (&optional ctl-buf) + (ediff-eval-in-buffer (or ctl-buf (current-buffer)) + (if (and (ediff-has-face-support-p) + ediff-use-faces + ediff-highlight-all-diffs) + (ediff-paint-background-regions)) + (ediff-select-difference ediff-current-difference))) -(defun ediff-unhighlight-diff-in-one-buffer (buf-type) - (if (ediff-buffer-live-p (ediff-get-buffer buf-type)) - (let ((current-diff-overlay - (symbol-value - (intern (format "ediff-current-diff-overlay-%S" buf-type)))) - (overlay - (ediff-get-diff-overlay ediff-current-difference buf-type)) - ) - - (ediff-move-overlay current-diff-overlay 1 1) - - ;; rehighlight the overlay in the background of the - ;; current difference region - (ediff-set-overlay-face - overlay - (if (and (ediff-has-face-support-p) - ediff-use-faces ediff-highlight-all-diffs) - (ediff-background-face buf-type ediff-current-difference))) - ))) - -(defun ediff-unhighlight-diffs-totally-in-one-buffer (buf-type) - (ediff-unselect-and-select-difference -1) - (if (and (ediff-has-face-support-p) ediff-use-faces) - (let* ((inhibit-quit t) - (current-diff-overlay-var - (intern (format "ediff-current-diff-overlay-%S" buf-type))) - (current-diff-overlay (symbol-value current-diff-overlay-var))) - (ediff-color-background-regions 'unhighlight) - (if (ediff-overlayp current-diff-overlay) - (ediff-delete-overlay current-diff-overlay)) - (set current-diff-overlay-var nil) - ))) ;; null out difference overlays so they won't slow down future @@ -2973,58 +3147,10 @@ ;; allow them to be garbage collected (set vec-var nil)) -(defun ediff-color-background-regions (&optional unhighlight) - (ediff-color-background-regions-in-one-buffer - 'A unhighlight) - (ediff-color-background-regions-in-one-buffer - 'B unhighlight) - (ediff-color-background-regions-in-one-buffer - 'C unhighlight) - (ediff-color-background-regions-in-one-buffer - 'Ancestor unhighlight)) - -(defun ediff-color-background-regions-in-one-buffer (buf-type unhighlight) - (let ((diff-vector - (eval (intern (format "ediff-difference-vector-%S" buf-type)))) - overl diff-num) - (mapcar (function - (lambda (rec) - (setq overl (ediff-get-diff-overlay-from-diff-record rec) - diff-num (ediff-overlay-get overl 'ediff-diff-num)) - (ediff-set-overlay-face - overl - (if (not unhighlight) - (ediff-background-face buf-type diff-num)) - ))) - diff-vector))) ;;; Misc -;; These two functions are here to neutralize XEmacs unwillingless to -;; handle overlays whose buffers were deleted. -(defun ediff-move-overlay (overlay beg end &optional buffer) - "Calls `move-overlay' in Emacs and `set-extent-endpoints' in Lemacs. -Checks if overlay's buffer exists before actually doing the move." - (let ((buf (and overlay (ediff-overlay-buffer overlay)))) - (if (ediff-buffer-live-p buf) - (if ediff-xemacs-p - (set-extent-endpoints overlay beg end) - (move-overlay overlay beg end buffer)) - ;; buffer's dead - (if overlay - (ediff-delete-overlay overlay))))) - -(defun ediff-overlay-put (overlay prop value) - "Calls `overlay-put' or `set-extent-property' depending on Emacs version. -Checks if overlay's buffer exists." - (if (ediff-buffer-live-p (ediff-overlay-buffer overlay)) - (if ediff-xemacs-p - (set-extent-property overlay prop value) - (overlay-put overlay prop value)) - (ediff-delete-overlay overlay))) - - ;; In Emacs, this just makes overlay. In the future, when Emacs will start ;; supporting sticky overlays, this function will make a sticky overlay. ;; BEG and END are expressions telling where overlay starts. @@ -3235,6 +3361,10 @@ (if ediff-xemacs-p (zmacs-deactivate-region) (deactivate-mark))) +(defun ediff-activate-mark () + (if ediff-emacs-p + (setq mark-active t) + (zmacs-activate-region))) (cond ((fboundp 'nuke-selective-display) ;; XEmacs 19.12 has nuke-selective-display @@ -3462,6 +3592,7 @@ ;;; Local Variables: ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) ;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) +;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) ;;; End: (provide 'ediff-util)
--- a/lisp/ediff/ediff-vers.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff-vers.el Mon Aug 13 09:05:42 2007 +0200 @@ -31,15 +31,16 @@ (defvar cvs-program) (defvar cvs-cookie-handle) -(eval-when-compile - (load "pcl-cvs" 'noerror) - (load "rcs" 'noerror) - (load "generic-sc" 'noerror) - (load "vc" 'noerror)) +(and noninteractive + (eval-when-compile + (load "pcl-cvs" 'noerror) + (load "rcs" 'noerror) + (load "generic-sc" 'noerror) + (load "vc" 'noerror))) ;; end pacifier ;; VC.el support -(defun vc-ediff-internal (rev1 rev2 &optional startup-hooks) +(defun ediff-vc-internal (rev1 rev2 &optional startup-hooks) ;; Run Ediff on versions of the current buffer. ;; If REV2 is "" then compare current buffer with REV1. ;; If the current buffer is named `F', the version is named `F.~REV~'. @@ -66,7 +67,7 @@ 'ediff-revision))) ;; RCS.el support -(defun rcs-ediff-view-revision (&optional rev) +(defun ediff-rcs-view-revision (&optional rev) ;; View previous RCS revision of current file. ;; With prefix argument, prompts for a revision name. (interactive (list (if current-prefix-arg @@ -103,7 +104,7 @@ (erase-buffer)) buf)) -(defun rcs-ediff-internal (rev1 rev2 &optional startup-hooks) +(defun ediff-rcs-internal (rev1 rev2 &optional startup-hooks) ;; Run Ediff on versions of the current buffer. ;; If REV2 is "" then use current buffer. (let ((rev2buf (if (string= rev2 "") @@ -124,7 +125,7 @@ (eval "main/LATEST")) (t (eval "")))) -(defun generic-sc-ediff-internal (rev1 rev2 &optional startup-hooks) +(defun ediff-generic-sc-internal (rev1 rev2 &optional startup-hooks) ;; Run Ediff on versions of the current buffer. ;; If REV2 is "" then compare current buffer with REV1. ;; If the current buffer is named `F', the version is named `F.~REV~'. @@ -144,7 +145,7 @@ ;;; Merge with Version Control -(defun vc-ediff-merge-internal (rev1 rev2 ancestor-rev &optional startup-hooks) +(defun ediff-vc-merge-internal (rev1 rev2 ancestor-rev &optional startup-hooks) ;; If ANCESTOR-REV non-nil, merge with ancestor (let (buf1 buf2 ancestor-buf) (save-excursion @@ -177,7 +178,7 @@ (ediff-merge-buffers buf1 buf2 startup-hooks 'ediff-merge-revisions)) )) -(defun rcs-ediff-merge-internal (rev1 rev2 ancestor-rev +(defun ediff-rcs-merge-internal (rev1 rev2 ancestor-rev &optional startup-hooks) ;; If ANCESTOR-REV non-nil, merge with ancestor (let (buf1 buf2 ancestor-buf) @@ -197,7 +198,7 @@ startup-hooks 'ediff-merge-revisions-with-ancestor) (ediff-merge-buffers buf1 buf2 startup-hooks 'ediff-merge-revisions)))) -(defun generic-sc-ediff-merge-internal (rev1 rev2 ancestor-rev +(defun ediff-generic-sc-merge-internal (rev1 rev2 ancestor-rev &optional startup-hooks) ;; If ANCESTOR-REV non-nil, merge with ancestor (let (buf1 buf2 ancestor-buf) @@ -224,7 +225,7 @@ ;; PCL-CVS.el support -(defun pcl-cvs-ediff-internal (rev1 rev2 &optional startup-hooks) +(defun ediff-pcl-cvs-internal (rev1 rev2 &optional startup-hooks) ;; Run Ediff on a pair of revisions of the current buffer. ;; If REV1 is "", use the latest revision. ;; If REV2 is "", use the current buffer as the second file to compare. @@ -251,7 +252,7 @@ ;; This function is the standard Ediff's interface to pcl-cvs. ;; Works like with other interfaces: runs ediff on versions of the file in the ;; current buffer. -(defun pcl-cvs-ediff-merge-internal (rev1 rev2 ancestor-rev +(defun ediff-pcl-cvs-merge-internal (rev1 rev2 ancestor-rev &optional startup-hooks) ;; Ediff-merge appropriate revisions of the selected file. ;; If REV1 is "" then use the latest revision. @@ -358,6 +359,7 @@ ;;; Local Variables: ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) ;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) +;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) ;;; End: (provide 'ediff-vers)
--- a/lisp/ediff/ediff-wind.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff-wind.el Mon Aug 13 09:05:42 2007 +0200 @@ -24,6 +24,9 @@ ;;; Code: (require 'ediff-init) +;;(if ediff-xemacs-p +;; (nil) (require 'ediff-tbar) +(defun ediff-compute-toolbar-width () 0) ;; Compiler pacifier (defvar icon-title-format) @@ -853,7 +856,8 @@ ;; 1 more line for the modeline (setq lines (1+ (count-lines (point-min) (point-max))) fheight lines - fwidth (+ (ediff-help-message-line-length) 2) + fwidth (max (+ (ediff-help-message-line-length) 2) + (ediff-compute-toolbar-width)) adjusted-parameters (append (list ;; possibly change surrogate minibuffer (cons 'minibuffer @@ -876,9 +880,6 @@ (set-specifier bottom-toolbar-height (list ctl-frame 0)) (set-specifier left-toolbar-width (list ctl-frame 0)) (set-specifier right-toolbar-width (list ctl-frame 0)) - ;; XEmacs needed a redisplay, as it had trouble setting - ;; height correctly otherwise. - ;;(sit-for 0) )) ;; Under OS/2 (emx) we have to call modify frame parameters twice, in order @@ -893,7 +894,8 @@ (modify-frame-parameters ctl-frame adjusted-parameters) (make-frame-visible ctl-frame) - + (ediff-make-bottom-toolbar) ; no effect if the toolbar is not requested + ;; This works around a bug in 19.25 and earlier. There, if frame gets ;; iconified, the current buffer changes to that of the frame that ;; becomes exposed as a result of this iconification. @@ -1061,7 +1063,7 @@ (setq mode-line-format (list (if (ediff-narrow-control-frame-p) " " "-- ") mode-line-buffer-identification - " Quick Help")) + " Quick Help")) ;; control buffer id (setq mode-line-buffer-identification (if (ediff-narrow-control-frame-p) @@ -1189,7 +1191,7 @@ (or (not ediff-3way-job) (eq (window-buffer C-wind) ediff-buffer-C)) (string= ediff-window-config-saved - (format "\%S\%S\%S\%S\%S\%S\%S" + (format "%S%S%S%S%S%S%S" ctl-wind A-wind B-wind C-wind ediff-split-window-function (ediff-multiframe-setup-p) @@ -1199,6 +1201,7 @@ ;;; Local Variables: ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) ;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) +;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) ;;; End: (provide 'ediff-wind)
--- a/lisp/ediff/ediff.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ediff/ediff.el Mon Aug 13 09:05:42 2007 +0200 @@ -6,8 +6,8 @@ ;; Created: February 2, 1994 ;; Keywords: comparing, merging, patching, version control. -(defconst ediff-version "2.61" "The current version of Ediff") -(defconst ediff-date "June 10, 1996" "Date of last update") +(defconst ediff-version "2.63" "The current version of Ediff") +(defconst ediff-date "September 12, 1996" "Date of last update") ;; This file is part of GNU Emacs. @@ -110,11 +110,13 @@ ;; ediff-mult is always required, because of the registry stuff (require 'ediff-mult) -(eval-when-compile - (load "dired") - (load-file "./ediff-ptch.el") - (load-file "./ediff-vers.el") - (load "pcl-cvs" 'noerror)) +(and noninteractive + (eval-when-compile + (let ((load-path (cons (expand-file-name ".") load-path))) + (load-library "dired") + (load-file "ediff-ptch.el") + (load-file "ediff-vers.el") + (load "pcl-cvs" 'noerror)))) (defvar ediff-use-last-dir nil "*If t, Ediff uses previous directory as default when reading file name.") @@ -127,6 +129,8 @@ "Last directory used by an Ediff command for file-C.") (defvar ediff-last-dir-ancestor nil "Last directory used by an Ediff command for the ancestor file.") +(defvar ediff-last-merge-autostore-dir + "Last directory used by an Ediff command as the output directory for merge.") ;; Some defvars to reduce the number of compiler warnings (defvar cvs-cookie-handle) @@ -605,8 +609,8 @@ ;; The third argument, REGEXP, is a regular expression that can be used to ;; filter out certain file names. ;; JOBNAME is the symbol indicating the meta-job to be performed. -(defun ediff-directories-internal (dir1 dir2 dir3 regexp - action jobname +;; MERGE-DIR is the directory in which to store merged files. +(defun ediff-directories-internal (dir1 dir2 dir3 regexp action jobname &optional startup-hooks) ;; ediff-read-file-name is set to attach a previously entered file name if ;; the currently entered file is a directory. This code takes care of that. @@ -626,9 +630,31 @@ (error "Directories B and C are the same: %s" dir1))) (let (diffs ; var where ediff-intersect-directories returns the diff list + merge-autostore-dir file-list meta-buf) + (if (and ediff-autostore-merges (ediff-merge-metajob jobname)) + (setq merge-autostore-dir + (ediff-read-file-name "Directory to save merged files:" + (if ediff-use-last-dir + ediff-last-merge-autostore-dir + (ediff-strip-last-dir dir1)) + nil))) + ;; verify we are not merging into an orig directory + (if (stringp merge-autostore-dir) + (cond ((and (stringp dir1) (string= merge-autostore-dir dir1)) + (or (y-or-n-p "Merge directory same as directory A, sure? ") + (error "Directory merge aborted"))) + ((and (stringp dir2) (string= merge-autostore-dir dir2)) + (or (y-or-n-p "Merge directory same as directory B, sure? ") + (error "Directory merge aborted"))) + ((and (stringp dir3) (string= merge-autostore-dir dir3)) + (or (y-or-n-p + "Merge directory same as ancestor directory, sure? ") + (error "Directory merge aborted"))))) + (setq file-list (ediff-intersect-directories - jobname 'diffs regexp dir1 dir2 dir3)) + jobname 'diffs + regexp dir1 dir2 dir3 merge-autostore-dir)) (setq startup-hooks ;; this sets various vars in the meta buffer inside ;; ediff-prepare-meta-buffer @@ -651,9 +677,26 @@ (defun ediff-directory-revisions-internal (dir1 regexp action jobname &optional startup-hooks) (setq dir1 (if (file-directory-p dir1) dir1 (file-name-directory dir1))) - (let (file-list meta-buf) + + (let (file-list meta-buf merge-autostore-dir) + (if (and ediff-autostore-merges (ediff-merge-metajob jobname)) + (setq merge-autostore-dir + (ediff-read-file-name "Directory to save merged files:" + (if ediff-use-last-dir + ediff-last-merge-autostore-dir + (ediff-strip-last-dir dir1)) + nil))) + ;; verify merge-autostore-dir != dir1 + (if (and (stringp merge-autostore-dir) + (stringp dir1) + (string= merge-autostore-dir dir1)) + (or (y-or-n-p + "Directory for saving merges is the same as directory A. Sure? ") + (error "Merge of directory revisions aborted"))) + (setq file-list - (ediff-get-directory-files-under-revision jobname regexp dir1)) + (ediff-get-directory-files-under-revision + jobname regexp dir1 merge-autostore-dir)) (setq startup-hooks ;; this sets various vars in the meta buffer inside ;; ediff-prepare-meta-buffer @@ -804,7 +847,6 @@ (setq reg-B-beg (region-beginning) reg-B-end (region-end)) ;; enlarge the region to hold full lines - (goto-char reg-A-beg) (goto-char reg-B-beg) (beginning-of-line) (setq reg-B-beg (point)) @@ -1052,7 +1094,7 @@ (ediff-load-version-control) ;; ancestor-revision=nil (funcall - (intern (format "%S-ediff-merge-internal" ediff-version-control-package)) + (intern (format "ediff-%S-merge-internal" ediff-version-control-package)) rev1 rev2 nil startup-hooks))) @@ -1084,7 +1126,7 @@ (file-name-nondirectory file) "current buffer")))) (ediff-load-version-control) (funcall - (intern (format "%S-ediff-merge-internal" ediff-version-control-package)) + (intern (format "ediff-%S-merge-internal" ediff-version-control-package)) rev1 rev2 ancestor-rev startup-hooks))) ;;;###autoload @@ -1168,7 +1210,7 @@ (file-name-nondirectory file) "current buffer")))) (ediff-load-version-control) (funcall - (intern (format "%S-ediff-internal" ediff-version-control-package)) + (intern (format "ediff-%S-internal" ediff-version-control-package)) rev1 rev2 startup-hooks) )) @@ -1198,8 +1240,9 @@ ;;;###autoload -(defun ediff-documentation () - "Display Ediff's manual." +(defun ediff-documentation (&optional node) + "Display Ediff's manual. +With optional NODE, goes to that node." (interactive) (let ((ctl-window ediff-control-window) (ctl-buf ediff-control-buffer)) @@ -1209,15 +1252,13 @@ (progn (pop-to-buffer (get-buffer-create "*info*")) (info (if ediff-xemacs-p "ediff.info" "ediff")) - (message "Type `i' to search for a specific topic")) + (if node + (Info-goto-node node) + (message "Type `i' to search for a specific topic")) + (raise-frame (selected-frame))) (error (beep 1) (with-output-to-temp-buffer ediff-msg-buffer - (princ (format " -The Info file for Ediff does not seem to be installed. - -This file is part of the distribution of %sEmacs. -Please contact your system administrator. " - (if ediff-xemacs-p "X" "")))) + (princ ediff-BAD-INFO)) (if (window-live-p ctl-window) (progn (select-window ctl-window) @@ -1229,6 +1270,7 @@ ;;; Local Variables: ;;; eval: (put 'ediff-defvar-local 'lisp-indent-hook 'defun) ;;; eval: (put 'ediff-eval-in-buffer 'lisp-indent-hook 1) +;;; eval: (put 'ediff-eval-in-buffer 'edebug-form-spec '(form body)) ;;; End: (provide 'ediff)
--- a/lisp/gnus/ChangeLog Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/gnus/ChangeLog Mon Aug 13 09:05:42 2007 +0200 @@ -1,3 +1,9 @@ +Fri Jan 3 16:20:42 1997 Steven L Baur <steve@altair.xemacs.org> + + * gnus-setup.el: Updated to gracefully handle installed auxilliary + packages like tm, and handle eventual integration of Red Gnus/Gnus + 5.4. + Fri Aug 30 02:23:23 1996 Lars Magne Ingebrigtsen <larsi@hrym.ifi.uio.no> * message.el (message-do-fcc): Set the FROM-GNUS flag.
--- a/lisp/gnus/gnus-setup.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/gnus/gnus-setup.el Mon Aug 13 09:05:42 2007 +0200 @@ -1,7 +1,7 @@ ;;; gnus-setup.el --- Initialization & Setup for Gnus 5 -;; Copyright (C) 1995, 96 Free Software Foundation, Inc. +;; Copyright (C) 1995, 96, 97 Free Software Foundation, Inc. -;; Author: Steven L. Baur <steve@miranova.com> +;; Author: Steven L. Baur <steve@altair.xemacs.org> ;; Keywords: news ;; This file is part of GNU Emacs. @@ -29,10 +29,24 @@ ;; not to byte compile this, and just arrange to have the .el loaded out ;; of .emacs. +;; Dec-28 1996: Updated for better handling of preinstalled Gnus + ;;; Code: +(eval-when-compile + (require 'cl)) + (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)) +(defvar gnus-use-installed-gnus t + "*If non-nil Use installed version of Gnus.") + +(defvar gnus-use-installed-tm running-xemacs + "*If non-nil use installed version of tm.") + +(defvar gnus-use-installed-mailcrypt running-xemacs + "*If non-nil use installed version of mailcrypt.") + (defvar gnus-emacs-lisp-directory (if running-xemacs "/usr/local/lib/xemacs/" "/usr/local/share/emacs/") @@ -42,10 +56,6 @@ "gnus-5.0.15/lisp/") "Directory where Gnus Emacs lisp is found.") -(defvar gnus-sgnus-lisp-directory (concat gnus-emacs-lisp-directory - "sgnus/lisp/") - "Directory where September Gnus Emacs lisp is found.") - (defvar gnus-tm-lisp-directory (concat gnus-emacs-lisp-directory "site-lisp/") "Directory where TM Emacs lisp is found.") @@ -55,10 +65,10 @@ "Directory where Mailcrypt Emacs Lisp is found.") (defvar gnus-bbdb-lisp-directory (concat gnus-emacs-lisp-directory - "site-lisp/bbdb-1.50/") + "site-lisp/bbdb-1.51/") "Directory where Big Brother Database is found.") -(defvar gnus-use-tm t +(defvar gnus-use-tm running-xemacs "Set this if you want MIME support for Gnus") (defvar gnus-use-mhe nil "Set this if you want to use MH-E for mail reading") @@ -77,129 +87,129 @@ (defvar gnus-use-september nil "Set this if you are using the experimental September Gnus") -(let ((gnus-directory (if gnus-use-september - gnus-sgnus-lisp-directory - gnus-gnus-lisp-directory))) - (if (null (member gnus-directory load-path)) - (setq load-path (cons gnus-directory load-path)))) +(when (and (not gnus-use-installed-gnus) + (null (member gnus-gnus-lisp-directory load-path))) + (setq load-path (cons gnus-gnus-lisp-directory load-path))) + +(require 'message) ;;; Tools for MIME by ;;; UMEDA Masanobu <umerin@mse.kyutech.ac.jp> ;;; MORIOKA Tomohiko <morioka@jaist.ac.jp> -(if gnus-use-tm - (progn - (if (null (member gnus-tm-lisp-directory load-path)) - (setq load-path (cons gnus-tm-lisp-directory load-path))) - (load "mime-setup"))) +(when gnus-use-tm + (when (and (not gnus-use-installed-tm) + (null (member gnus-tm-lisp-directory load-path))) + (setq load-path (cons gnus-tm-lisp-directory load-path))) + ;; tm may or may not be dumped with XEmacs. In Sunpro it is, otherwise + ;; it isn't. + (unless (featurep 'mime-setup) + (load "mime-setup"))) ;;; Mailcrypt by ;;; Jin Choi <jin@atype.com> ;;; Patrick LoPresti <patl@lcs.mit.edu> -(if gnus-use-mailcrypt - (progn - (if (null (member gnus-mailcrypt-lisp-directory load-path)) - (setq load-path (cons gnus-mailcrypt-lisp-directory load-path))) - (autoload 'mc-install-write-mode "mailcrypt" nil t) - (autoload 'mc-install-read-mode "mailcrypt" nil t) - (add-hook 'message-mode-hook 'mc-install-write-mode) - (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode) - (if gnus-use-mhe - (progn - (add-hook 'mh-folder-mode-hook 'mc-install-read-mode) - (add-hook 'mh-letter-mode-hook 'mc-install-write-mode))))) +(when gnus-use-mailcrypt + (when (and (not gnus-use-installed-mailcrypt) + (null (member gnus-mailcrypt-lisp-directory load-path))) + (setq load-path (cons gnus-mailcrypt-lisp-directory load-path))) + (autoload 'mc-install-write-mode "mailcrypt" nil t) + (autoload 'mc-install-read-mode "mailcrypt" nil t) + (add-hook 'message-mode-hook 'mc-install-write-mode) + (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode) + (when gnus-use-mhe + (add-hook 'mh-folder-mode-hook 'mc-install-read-mode) + (add-hook 'mh-letter-mode-hook 'mc-install-write-mode))) ;;; BBDB by -;;; Jamie Zawinski <jwz@lucid.com> +;;; Jamie Zawinski <jwz@netscape.com> -(if gnus-use-bbdb - (progn - (if (null (member gnus-bbdb-lisp-directory load-path)) - (setq load-path (cons gnus-bbdb-lisp-directory load-path))) - (autoload 'bbdb "bbdb-com" - "Insidious Big Brother Database" t) - (autoload 'bbdb-name "bbdb-com" - "Insidious Big Brother Database" t) - (autoload 'bbdb-company "bbdb-com" - "Insidious Big Brother Database" t) - (autoload 'bbdb-net "bbdb-com" - "Insidious Big Brother Database" t) - (autoload 'bbdb-notes "bbdb-com" - "Insidious Big Brother Database" t) +(when gnus-use-bbdb + ;; bbdb will never be installed with emacs. + (when (null (member gnus-bbdb-lisp-directory load-path)) + (setq load-path (cons gnus-bbdb-lisp-directory load-path))) + (autoload 'bbdb "bbdb-com" + "Insidious Big Brother Database" t) + (autoload 'bbdb-name "bbdb-com" + "Insidious Big Brother Database" t) + (autoload 'bbdb-company "bbdb-com" + "Insidious Big Brother Database" t) + (autoload 'bbdb-net "bbdb-com" + "Insidious Big Brother Database" t) + (autoload 'bbdb-notes "bbdb-com" + "Insidious Big Brother Database" t) - (if gnus-use-vm - (progn - (autoload 'bbdb-insinuate-vm "bbdb-vm" - "Hook BBDB into VM" t))) + (when gnus-use-vm + (autoload 'bbdb-insinuate-vm "bbdb-vm" + "Hook BBDB into VM" t)) - (if gnus-use-rmail - (progn - (autoload 'bbdb-insinuate-rmail "bbdb-rmail" - "Hook BBDB into RMAIL" t) - (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail))) + (when gnus-use-rmail + (autoload 'bbdb-insinuate-rmail "bbdb-rmail" + "Hook BBDB into RMAIL" t) + (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)) - (if gnus-use-mhe - (progn - (autoload 'bbdb-insinuate-mh "bbdb-mh" - "Hook BBDB into MH-E" t) - (add-hook 'mh-folder-mode-hook 'bbdb-insinuate-mh))) + (when gnus-use-mhe + (autoload 'bbdb-insinuate-mh "bbdb-mh" + "Hook BBDB into MH-E" t) + (add-hook 'mh-folder-mode-hook 'bbdb-insinuate-mh)) - (autoload 'bbdb-insinuate-gnus "bbdb-gnus" - "Hook BBDB into Gnus" t) - (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus) + (autoload 'bbdb-insinuate-gnus "bbdb-gnus" + "Hook BBDB into Gnus" t) + (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus) - (if gnus-use-sendmail - (progn - (autoload 'bbdb-insinuate-sendmail "bbdb" - "Insidious Big Brother Database" t) - (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail) - (add-hook 'message-setup-hook 'bbdb-insinuate-sendmail))))) + (when gnus-use-sendmail + (autoload 'bbdb-insinuate-sendmail "bbdb" + "Insidious Big Brother Database" t) + (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail) + (add-hook 'message-setup-hook 'bbdb-insinuate-sendmail))) -(if gnus-use-sc - (progn - (add-hook 'mail-citation-hook 'sc-cite-original) - (setq message-cite-function 'sc-cite-original) - (autoload 'sc-cite-original "supercite"))) +(when gnus-use-sc + (add-hook 'mail-citation-hook 'sc-cite-original) + (setq message-cite-function 'sc-cite-original) + (autoload 'sc-cite-original "supercite")) ;;;### (autoloads (gnus-batch-score gnus-fetch-group gnus gnus-slave gnus-no-server gnus-update-format) "gnus" "lisp/gnus.el" (12473 2137)) ;;; Generated autoloads from lisp/gnus.el -(autoload 'gnus-update-format "gnus" "\ +;; Don't redo this if autoloads already exist +(unless (fboundp 'gnus) + (autoload 'gnus-update-format "gnus" "\ Update the format specification near point." t nil) -(autoload 'gnus-slave-no-server "gnus" "\ + (autoload 'gnus-slave-no-server "gnus" "\ Read network news as a slave without connecting to local server." t nil) -(autoload 'gnus-no-server "gnus" "\ + (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." t nil) +As opposed to `gnus', this command will not connect to the local server." + t nil) -(autoload 'gnus-slave "gnus" "\ + (autoload 'gnus-slave "gnus" "\ Read news as a slave." t nil) -(autoload 'gnus "gnus" "\ + (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." t nil) -(autoload 'gnus-fetch-group "gnus" "\ + (autoload 'gnus-fetch-group "gnus" "\ Start Gnus if necessary and enter GROUP. Returns whether the fetching was successful or not." t nil) -(defalias 'gnus-batch-kill 'gnus-batch-score) + (defalias 'gnus-batch-kill 'gnus-batch-score) -(autoload 'gnus-batch-score "gnus" "\ + (autoload 'gnus-batch-score "gnus" "\ Run batched scoring. Usage: emacs -batch -l gnus -f gnus-batch-score <newsgroups> ... Newsgroups is a list of strings in Bnews format. If you want to score the comp hierarchy, you'd say \"comp.all\". If you would not like to -score the alt hierarchy, you'd say \"!alt.all\"." t nil) +score the alt hierarchy, you'd say \"!alt.all\"." t nil)) ;;;***
--- a/lisp/hyperbole/hversion.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/hyperbole/hversion.el Mon Aug 13 09:05:42 2007 +0200 @@ -64,7 +64,9 @@ (defconst hyperb:kotl-p (if hyperb:lemacs-p ;; Only works for XEmacs 19.9 and above. - (string-match "^19\\.9 \\|^19\\.[1-9][0-9]" emacs-version) + (or (string-match "^19\\.9 \\|^19\\.[1-9][0-9]" emacs-version) + ;; Version 20 and above. + (string-lessp "20" emacs-version)) hyperb:emacs19-p) "Non-nil iff this Emacs version supports the Hyperbole outliner.")
--- a/lisp/ilisp/Makefile Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/ilisp/Makefile Mon Aug 13 09:05:42 2007 +0200 @@ -58,6 +58,11 @@ compile: $(EMACS) -batch -l ilisp-mak.el +elc: $(LoadFiles) + +$(LoadFiles) : + $(EMACS) -batch -l ilisp-mak.el + tags: etags *.el
--- a/lisp/modes/cc-mode.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/modes/cc-mode.el Mon Aug 13 09:05:42 2007 +0200 @@ -1197,7 +1197,7 @@ (defconst c-C++-friend-key "friend[ \t]+\\|template[ \t]*<.+>[ \t]*friend[ \t]+" "Regexp describing friend declarations in C++ classes.") -(defconst c-C++-comment-start-regexp "//\\|/\\*" +(defconst c-C++-comment-start-regexp "/[/*]" "Dual comment value for `c-comment-start-regexp'.") (defconst c-C-comment-start-regexp "/\\*" "Single comment style value for `c-comment-start-regexp'.")
--- a/lisp/modes/perl-mode.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/modes/perl-mode.el Mon Aug 13 09:05:42 2007 +0200 @@ -708,4 +708,6 @@ (perl-beginning-of-function) (backward-paragraph)) -;;;;;;;; That's all, folks! ;;;;;;;;; +(provide 'perl-mode) + +;;; perl-mode.el ends here
--- a/lisp/mule/mule-files.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/mule/mule-files.el Mon Aug 13 09:05:42 2007 +0200 @@ -51,7 +51,10 @@ which is intended to be used for global environment specification.") (defvar file-coding-system-alist - '(("\\.el$" . iso-2022-7) ;; '(; ("\\.el$" . euc-japan) + ;; '(; ("\\.el$" . euc-japan) + '(("\\.el$" . iso-2022-7) + ("\\.info$" . iso-2022-7) + ("\\.\\(gz\\|Z\\)$" . binary) ("/spool/mail/.*$" . convert-mbox-coding-system)) "Alist specifying the coding system used for particular files. Each element of the alist is a cons of a regexp, specifying the files @@ -464,5 +467,4 @@ start end filename append visit lockname coding-system))) - - +;;; mule-files.el ends here
--- a/lisp/mule/mule-load.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/mule/mule-load.el Mon Aug 13 09:05:42 2007 +0200 @@ -55,4 +55,7 @@ (load-gc "mule-init") ;; Enable Mule capability for Gnus, mail, etc... -(load-gc "mime-setup") +;; Moved to sunpro-load.el - the default only for Sun. +;;(load-gc "mime-setup") + +;;; mule-load.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/packages/backup-dir.el Mon Aug 13 09:05:42 2007 +0200 @@ -0,0 +1,449 @@ +;;; BACKUP-DIR.EL: Emacs functions to allow backup files to live in +;;; some other directory(s). Version 2.0 +;;; +;;; Copyright (C) 1992-97 Greg Klanderman +;;; +;;; 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 1, 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. +;;; +;;; A copy of the GNU General Public License can be obtained from +;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA +;;; 02139, USA. +;;; +;;; Send bug reports, etc. to greg@alphatech.com or gregk@ai.mit.edu. +;;; +;;; +;;; Modification History +;;; ==================== +;;; +;;; 12/28/1996 Version 2.0 +;;; Updated for XEmacs 19.15b4, much of code reorganized & cleaned up +;;; +;;; 12/27/1996 Version 1.6 +;;; explicit loading of dired replaced to use dired-load-hook +;;; (suggested by Thomas Feuster, feuster@tp4.physik.uni-giessen.de) +;;; +;;; 12/2/1996 Version 1.5 +;;; Took out obsolete byte compiler options +;;; +;;; 9/24/1996 Version 1.4 +;;; Fix some bugs, change to alist OPTIONS list (ok-create, full-path..) from +;;; separate fields for each option variable. Added search-upward option. +;;; Added new function `find-file-latest-backup' to find a file's latest backup. +;;; +;;; 1/26/1996 Version 1.3 +;;; Name change to backup-dir.el +;;; +;;; 3/22/1995 Version 1.2 +;;; Added new definitions for functions `file-newest-backup', `latest-backup-file', +;;; and `diff-latest-backup-file' so various other emacs functions will find the +;;; right backup files. +;;; +;;; 4/23/1993 Version 1.1 +;;; Reworked to allow different behavior for different files based on the +;;; alist `bkup-backup-directory-info'. +;;; +;;; Fall 1992 Version 1.0 +;;; Name change and added ability to make directories absolute. Added the +;;; full path stuff to make backup name unique for absolute directories. +;;; +;;; Spring 1992 Version 0.0 +;;; Original +;;; +;;; +;;; Description: +;;; ============ +;;; +;;; Allows backup files to be optionally stored in some directories, based on +;;; the value of the alist, `bkup-backup-directory-info'. This variable is a +;;; list of lists of the form (FILE-REGEXP BACKUP-DIR OPTIONS ...). If the +;;; filename to be backed up matches FILE-REGEXP, or FILE-REGEXP is t, then +;;; BACKUP-DIR is used as the path for its backups. Directories may begin with +;;; "/" to specify an absolute pathname. If BACKUP-DIR does not exist and +;;; OPTIONS contains the symbol `ok-create', then it is created if possible. +;;; Otherwise the usual behavior (backup in the same directory as the file) +;;; results. If OPTIONS contains the symbol `full-path', then the full path of +;;; the file being backed up is prepended to the backup file name, with each "/" +;;; replaced by a "!". This is intended for cases where an absolute backup path +;;; is used. If OPTIONS contains the symbol `search-upward' and the backup +;;; directory BACKUP-DIR is a relative path, then a directory with that name is +;;; searched for starting at the current directory and proceeding upward (.., +;;; ../.., etc) until one is found of that name or the root is reached, and if +;;; one is found it is used as the backup directory. Finally, if no FILE-REGEXP +;;; matches the file name being backed up, then the usual behavior results. +;;; +;;; These lines from my .emacs load this file and set the values I like: +;;; +;;; (require 'backup-dir) +;;; (setq bkup-backup-directory-info +;;; '(("/home/greg/.*" "/~/.backups/" ok-create full-path) +;;; (t ".backups/" full-path search-upward))) +;;; +;;; +;;; The package also provides a new function, `find-file-latest-backup' to find +;;; the latest backup file for the current buffer's file. +;;; +;;; +;;; This file is based on `files.el' from XEmacs 19.15b4. +;;; It has not been extensively tested on GNU Emacs past 18.58. +;;; It does not work under ms-dos. + + + +(byte-compiler-options + (optimize t) + (warnings (- free-vars)) ; Don't warn about free variables + ) + + +;;; New variables affecting backup file behavior +;;; This is the only user-customizable variable for this package. +;;; +(defvar bkup-backup-directory-info nil + "Alist of (FILE-REGEXP BACKUP-DIR OPTIONS ...)) +If the filename to be backed up matches FILE-REGEXP, or FILE-REGEXP is t, +then BACKUP-DIR is used as the path for its backups. Directories may +begin with \"/\" to specify an absolute pathname. If BACKUP-DIR does +not exist and OPTIONS contains the symbol `ok-create', then it is created if possible. +Otherwise the usual behavior (backup in the same directory as the file) +results. If OPTIONS contains the symbol `full-path', then the full path of the file +being backed up is prepended to the backup file name, with each \"/\" +replaced by a \"!\". This is intended for cases where an absolute backup path +is used. If OPTIONS contains the symbol `search-upward' and the backup +directory BACKUP-DIR is a relative path, then a directory with that name is +searched for starting at the current directory and proceeding upward (.., +../.., etc) until one is found of that name or the root is reached, and if +one is found it is used as the backup directory. Finally, if no FILE-REGEXP +matches the file name being backed up, then the usual behavior results.") + + +;;; New functions +;;; +(defun bkup-search-upward-for-backup-dir (base bd-name) + "search upward for a directory named BD-NAME, starting in the +directory BASE and continuing with its parent directories until +one is found or the root is reached." + (let ((prev nil) (curr base) (gotit nil) (tryit nil)) + (while (and (not gotit) + (not (equal prev curr)) + (not (equal curr "//"))) + (setq prev curr) + (setq curr (expand-file-name (concat curr "../"))) + (setq tryit (expand-file-name bd-name curr)) + (if (and (file-directory-p tryit) (file-exists-p tryit)) + (setq gotit tryit))) + (if (and gotit + (eq (aref gotit (1- (length gotit))) ?/)) + (setq gotit (substring gotit 0 (1- (length gotit))))) + gotit)) + +(defun bkup-replace-slashes-with-exclamations (s) + "Replaces slashes in the string S with exclamations. +A new string is produced and returned." + (let ((ns (copy-sequence s)) + (i (1- (length s)))) + (while (>= i 0) + (if (= (aref ns i) ?/) + (aset ns i ?!)) + (setq i (1- i))) + ns)) + +(defun bkup-try-making-directory (dir) + "try making directory DIR, return non-nil if successful" + (condition-case () + (progn (make-directory dir t) + t) + (t + nil))) + +(defun bkup-backup-basename (file full-path) + "Gives the base part of the backup name for FILE, according to FULL-PATH." + (if full-path + (bkup-replace-slashes-with-exclamations file) + (file-name-nondirectory file))) + +(defun bkup-backup-directory-and-basename (file) + "Return the cons of the backup directory name +and backup file name base for FILE." + (let ((file (expand-file-name file))) + (let ((dir (file-name-directory file)) + (alist bkup-backup-directory-info) + (bk-dir nil) + (bk-base nil)) + (if (listp alist) + (while (and (not bk-dir) alist) + (if (or (eq (car (car alist)) t) + (eq (string-match (car (car alist)) file) 0)) + (let* ((bd (car (cdr (car alist)))) + (bd-rel-p (and (> (length bd) 0) + (not (eq (aref bd 0) ?/)))) + (bd-expn (expand-file-name bd dir)) + (bd-noslash (if (eq (aref bd-expn (1- (length bd-expn))) ?/) + (substring bd-expn 0 (1- (length bd-expn))) + bd-expn)) + (options (cdr (cdr (car alist)))) + (ok-create (and (memq 'ok-create options) t)) + (full-path (and (memq 'full-path options) t)) + (search-upward (and (memq 'search-upward options) t))) + (if bd-expn + (cond ((or (file-directory-p bd-expn) + (and ok-create + (not (file-exists-p bd-expn)) + (bkup-try-making-directory bd-noslash))) + (setq bk-dir (concat bd-noslash "/") + bk-base (bkup-backup-basename file full-path))) + ((and bd-rel-p search-upward) + (let ((bd-up (bkup-search-upward-for-backup-dir dir bd))) + (if bd-up + (setq bk-dir (concat bd-up "/") + bk-base (bkup-backup-basename file full-path))))))))) + (setq alist (cdr alist)))) + (if (and bk-dir bk-base) + (cons bk-dir bk-base) + (cons dir (bkup-backup-basename file nil)))))) + + +;;; This next one is based on the following from `files.el' +;;; but accepts a second optional argument + +;;(defun make-backup-file-name (file) +;; "Create the non-numeric backup file name for FILE. +;;This is a separate function so you can redefine it for customization." +;; (if (and (eq system-type 'ms-dos) +;; (not (msdos-long-file-names))) +;; (let ((fn (file-name-nondirectory file))) +;; (concat (file-name-directory file) +;; (if (string-match "\\([^.]*\\)\\(\\..*\\)?" fn) +;; (substring fn 0 (match-end 1))) +;; ".bak")) +;; (concat file "~"))) + +(defun bkup-make-backup-file-name (file &optional dir-n-base) + "Create the non-numeric backup file name for FILE. +Optionally accept a list containing the backup directory and +backup basename. NB: we don't really handle ms-dos." + (if (and (eq system-type 'ms-dos) + (not (and (fboundp 'msdos-long-file-names) (msdos-long-file-names)))) + (let ((fn (file-name-nondirectory file))) + (concat (file-name-directory file) + (if (string-match "\\([^.]*\\)\\(\\..*\\)?" fn) + (substring fn 0 (match-end 1))) + ".bak")) + (let ((d-n-b (or dir-n-base + (bkup-backup-directory-and-basename file)))) + (concat (car d-n-b) (cdr d-n-b) "~")))) + +(defun bkup-existing-backup-files (fn) + "Return list of existing backup files for file" + (let* ((efn (expand-file-name fn)) + (dir-n-base (bkup-backup-directory-and-basename efn)) + (non-num-bk-name (bkup-make-backup-file-name efn dir-n-base)) + (non-num-bk (file-exists-p non-num-bk-name)) + (backup-dir (car dir-n-base)) + (base-versions (concat (cdr dir-n-base) ".~")) + (possibilities (file-name-all-completions base-versions backup-dir)) + (poss (mapcar #'(lambda (name) (concat backup-dir name)) possibilities))) + (mapcar #'expand-file-name + (if non-num-bk (cons non-num-bk-name poss) poss)))) + +(defun find-file-latest-backup (file) + "Find the latest backup file for FILE" + (interactive (list (read-file-name (format "Find latest backup of file (default %s): " + (file-name-nondirectory (buffer-file-name))) + nil (buffer-file-name) t))) + (let ((backup (file-newest-backup file))) + (if backup + (find-file backup) + (message "no backups found for `%s'" file)))) + + +;;; Functions changed from `files.el' and elsewhere -- originals precede new versions + +;;(defun make-backup-file-name (file) +;; "Create the non-numeric backup file name for FILE. +;;This is a separate function so you can redefine it for customization." +;; (if (and (eq system-type 'ms-dos) +;; (not (msdos-long-file-names))) +;; (let ((fn (file-name-nondirectory file))) +;; (concat (file-name-directory file) +;; (if (string-match "\\([^.]*\\)\\(\\..*\\)?" fn) +;; (substring fn 0 (match-end 1))) +;; ".bak")) +;; (concat file "~"))) + +(defun make-backup-file-name (file) + "Create the non-numeric backup file name for FILE. +This is a separate function so you can redefine it for customization. +*** Changed by \"backup-dir.el\"" + (bkup-make-backup-file-name file)) + + +;;(defun find-backup-file-name (fn) +;; "Find a file name for a backup file, and suggestions for deletions. +;;Value is a list whose car is the name for the backup file +;; and whose cdr is a list of old versions to consider deleting now. +;;If the value is nil, don't make a backup." +;; (let ((handler (find-file-name-handler fn 'find-backup-file-name))) +;; ;; Run a handler for this function so that ange-ftp can refuse to do it. +;; (if handler +;; (funcall handler 'find-backup-file-name fn) +;; (if (eq version-control 'never) +;; (list (make-backup-file-name fn)) +;; (let* ((base-versions (concat (file-name-nondirectory fn) ".~")) +;; ;; used by backup-extract-version: +;; (bv-length (length base-versions)) +;; possibilities +;; (versions nil) +;; (high-water-mark 0) +;; (deserve-versions-p nil) +;; (number-to-delete 0)) +;; (condition-case () +;; (setq possibilities (file-name-all-completions +;; base-versions +;; (file-name-directory fn)) +;; versions (sort (mapcar +;; #'backup-extract-version +;; possibilities) +;; '<) +;; high-water-mark (apply #'max 0 versions) +;; deserve-versions-p (or version-control +;; (> high-water-mark 0)) +;; number-to-delete (- (length versions) +;; kept-old-versions kept-new-versions -1)) +;; (file-error +;; (setq possibilities nil))) +;; (if (not deserve-versions-p) +;; (list (make-backup-file-name fn)) +;; (cons (concat fn ".~" (int-to-string (1+ high-water-mark)) "~") +;; (if (and (> number-to-delete 0) +;; ;; Delete nothing if there is overflow +;; ;; in the number of versions to keep. +;; (>= (+ kept-new-versions kept-old-versions -1) 0)) +;; (mapcar #'(lambda (n) +;; (concat fn ".~" (int-to-string n) "~")) +;; (let ((v (nthcdr kept-old-versions versions))) +;; (rplacd (nthcdr (1- number-to-delete) v) ()) +;; v)))))))))) + +(defun find-backup-file-name (fn) + "Find a file name for a backup file, and suggestions for deletions. +Value is a list whose car is the name for the backup file + and whose cdr is a list of old versions to consider deleting now. +If the value is nil, don't make a backup. +*** Changed by \"backup-dir.el\"" + (let ((handler (find-file-name-handler fn 'find-backup-file-name))) + ;; Run a handler for this function so that ange-ftp can refuse to do it. + (if handler + (funcall handler 'find-backup-file-name fn) + (if (eq version-control 'never) + (list (make-backup-file-name fn)) + (let* ((dir-n-base (bkup-backup-directory-and-basename fn)) ;add + (non-num-bk-name (bkup-make-backup-file-name fn dir-n-base)) ;add + (bk-dir (car dir-n-base)) ;add + (bk-base (cdr dir-n-base)) ;add + (base-versions (concat bk-base ".~")) ;mod + ;; used by backup-extract-version: + (bv-length (length base-versions)) + possibilities + (versions nil) + (high-water-mark 0) + (deserve-versions-p nil) + (number-to-delete 0)) + (condition-case () + (setq possibilities (file-name-all-completions + base-versions + bk-dir) ;mod + versions (sort (mapcar + #'backup-extract-version + possibilities) + '<) + high-water-mark (apply #'max 0 versions) + deserve-versions-p (or version-control + (> high-water-mark 0)) + number-to-delete (- (length versions) + kept-old-versions kept-new-versions -1)) + (file-error + (setq possibilities nil))) + (if (not deserve-versions-p) + (list (bkup-make-backup-file-name fn dir-n-base)) ;mod + (cons (concat bk-dir base-versions (int-to-string (1+ high-water-mark)) "~") ;mod + (if (and (> number-to-delete 0) + ;; Delete nothing if there is overflow + ;; in the number of versions to keep. + (>= (+ kept-new-versions kept-old-versions -1) 0)) + (mapcar #'(lambda (n) + (concat bk-dir base-versions (int-to-string n) "~")) ;mod + (let ((v (nthcdr kept-old-versions versions))) + (rplacd (nthcdr (1- number-to-delete) v) ()) + v)))))))))) + + +;;(defun file-newest-backup (filename) +;; "Return most recent backup file for FILENAME or nil if no backups exist." +;; (let* ((filename (expand-file-name filename)) +;; (file (file-name-nondirectory filename)) +;; (dir (file-name-directory filename)) +;; (comp (file-name-all-completions file dir)) +;; newest tem) +;; (while comp +;; (setq tem (car comp) +;; comp (cdr comp)) +;; (cond ((and (backup-file-name-p tem) +;; (string= (file-name-sans-versions tem) file)) +;; (setq tem (concat dir tem)) +;; (if (or (null newest) +;; (file-newer-than-file-p tem newest)) +;; (setq newest tem))))) +;; newest)) + +(defun file-newest-backup (filename) + "Return most recent backup file for FILENAME or nil if no backups exist. +*** Changed by \"backup-dir.el\"" + (let ((comp (bkup-existing-backup-files filename)) + (newest nil) + (file nil)) + (while comp + (setq file (car comp) + comp (cdr comp)) + (if (and (backup-file-name-p file) + (or (null newest) (file-newer-than-file-p file newest))) + (setq newest file))) + newest)) + + +;;; patch `latest-backup-file' from "dired" +;;; +;;; we use `dired-load-hook' to avoid loading dired now. This speeds things up +;;; considerably according to Thomas Feuster, feuster@tp4.physik.uni-giessen.de +;;; +;;; one really wonders why there are 3 functions to do the same thing... +;;; +(defun bkup-patch-latest-backup-file () + (fset 'latest-backup-file (symbol-function 'file-newest-backup)) + (remove-hook 'dired-load-hook 'bkup-patch-latest-backup-file)) + +(if (featurep 'dired) + ;; if loaded, patch it now + (fset 'latest-backup-file (symbol-function 'file-newest-backup)) + ;; otherwise do it later + (add-hook 'dired-load-hook 'bkup-patch-latest-backup-file)) + + +;;; patch `diff-latest-backup-file' from "diff" +;;; +(require 'diff) +(fset 'diff-latest-backup-file (symbol-function 'file-newest-backup)) + + +;;; finally, add to list of features +;;; +(provide 'backup-dir) + +;;; backup-dir.el ends here
--- a/lisp/packages/doctex.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/packages/doctex.el Mon Aug 13 09:05:42 2007 +0200 @@ -40,11 +40,7 @@ ; ; Select the DOC file. ; - (find-file (expand-file-name - (if (fboundp 'dump-emacs) - (concat "DOC-" emacs-version) - "DOC") - exec-directory)) + (find-file (expand-file-name "DOC" exec-directory)) (setq buffer-read-only nil) (auto-save-mode 0) (set-visited-file-name (concat (buffer-file-name) ".tex"))
--- a/lisp/packages/gnuserv.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/packages/gnuserv.el Mon Aug 13 09:05:42 2007 +0200 @@ -66,6 +66,7 @@ (not (featurep 'gnuserv))) (error "Can't run gnuserv because server.el appears to be loaded already")) +;;;###autoload (defvar gnuserv-frame nil "*If non-nil, the frame to be used to display all edited files. If nil, then a new frame is created for each file edited. @@ -84,6 +85,9 @@ (defvar server-string "" "The last input string from the server") +(defvar server-kill-last-frame nil + "set to t to kill last frame") + (defvar current-client nil "The client we are currently talking to") @@ -487,7 +491,9 @@ When all of a client's buffers are marked as \"done\", the client is notified. If invoked with a prefix argument, or if there is no server process running, -starts server process and that is all. Invoked by \\[server-edit]." +starts server process and that is all. Invoked by \\[server-edit]. + +If `server-kill-last-frame' is t, then the final frame will be killed." (interactive "P") (if (or arg (not server-process) @@ -500,7 +506,8 @@ gnuserv-frame (frame-live-p gnuserv-frame)) (condition-case () - (delete-frame (selected-frame) nil) + (delete-frame (selected-frame) + server-kill-last-frame) (error (message "Not deleting last visible frame..."))))) ((or (not window-system) @@ -541,3 +548,4 @@ (provide 'gnuserv) +;;; gnuserv.el ends here
--- a/lisp/packages/ispell.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/packages/ispell.el Mon Aug 13 09:05:42 2007 +0200 @@ -789,8 +789,11 @@ (not (boundp 'epoch::version)) (defalias 'ispell 'ispell-buffer)) + +;; XEmacs: \M-$ for whatever reason, drives `make autoloads' bonkers + ;;;###autoload -(define-key global-map "\M-$" 'ispell-word) +(define-key global-map [(meta ?\$)] 'ispell-word) ;;;###autoload (defun ispell-word (&optional following quietly continue)
--- a/lisp/packages/lazy-lock.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/packages/lazy-lock.el Mon Aug 13 09:05:42 2007 +0200 @@ -4,12 +4,12 @@ ;; Author: Simon Marshall <simon@gnu.ai.mit.edu> ;; Keywords: faces files -;; Version: 1.14 +;; Version: 1.15 ;; LCD Archive Entry: ;; lazy-lock|Simon Marshall|simon@gnu.ai.mit.edu| ;; Lazy Font Lock mode (with fast demand-driven fontification).| -;; 13-Oct-95|1.14|~/modes/lazy-lock.el.Z| +;; 13-Nov-95|1.15|~/modes/lazy-lock.el.Z| ;; The archive is archive.cis.ohio-state.edu in /pub/gnu/emacs/elisp-archive. @@ -29,8 +29,6 @@ ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; Synched up with: Not in FSF. (This seems very strange to me.) - ;;; Commentary: ;; Purpose: @@ -304,6 +302,8 @@ ;; - XEmacs: Made `font-lock-verbose' wrapped for stealth fontification. ;; 1.13--1.14: ;; - Wrap `lazy-lock-colour-invisible' for `set-face-foreground' (Jari Aalto). +;; 1.14--1.15: +;; - Made `lazy-lock-post-command-setup'; may add to `post-command-idle-hook'. (require 'font-lock) @@ -320,7 +320,7 @@ (interactive) (require 'reporter) (let ((reporter-prompt-for-summary-p t)) - (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "lazy-lock 1.14" + (reporter-submit-bug-report "simon@gnu.ai.mit.edu" "lazy-lock 1.15" '(lazy-lock-walk-windows lazy-lock-continuity-time lazy-lock-stealth-time lazy-lock-stealth-nice lazy-lock-stealth-lines lazy-lock-stealth-verbose @@ -335,46 +335,14 @@ Start a fresh Emacs via `" invocation-name " -no-init-file -no-site-file'. In the `*scratch*' buffer, evaluate:")))) -;; Let's define `emacs-major-version', `emacs-minor-version', and -;; `emacs-version>=' if no-one else has. - -(if (not (boundp 'emacs-major-version)) - (eval-and-compile - (defconst emacs-major-version - (progn (or (string-match "^[0-9]+" emacs-version) - (error "emacs-version unparsable")) - (string-to-int (match-string 0 emacs-version))) - "Major version number of this version of Emacs, as an integer. -Warning, this variable did not exist in Emacs versions earlier than: - FSF Emacs: 19.23 - XEmacs: 19.10"))) - +;; Let's define `emacs-minor-version' if no-one else has. (if (not (boundp 'emacs-minor-version)) (eval-and-compile (defconst emacs-minor-version - (progn (or (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version) - (error "emacs-version unparsable")) - (string-to-int (match-string 1 emacs-version))) - "Minor version number of this version of Emacs, as an integer. -Warning, this variable did not exist in Emacs versions earlier than: - FSF Emacs: 19.23 - XEmacs: 19.10"))) - -(if (not (fboundp 'emacs-version>=)) - (eval-and-compile - (defun emacs-version>= (major &optional minor) - "Return true if the Emacs version is >= to the given MAJOR and MINOR numbers. - -The MAJOR version number argument is required, but the MINOR version number -argument is optional. If the minor version number is not specified (or is the -symbol `nil') then only the major version numbers are considered in the test." - (if (null minor) - (>= emacs-major-version major) - (or (> emacs-major-version major) - (and (= emacs-major-version major) - (>= emacs-minor-version minor)) - ) - )))) + (save-match-data + (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version) + (string-to-int + (substring emacs-version (match-beginning 1) (match-end 1))))))) ;; Yuck, but we make so much use of this variable it's probably worth it. (eval-and-compile @@ -385,6 +353,7 @@ (defvar lazy-lock-cache-end nil) ; for window fontifiction (defvar lazy-lock-cache-continue nil) ; for stealth fontifiction +;; XEmacs change ;;;###autoload (defvar lazy-lock-mode nil) ; for modeline @@ -402,7 +371,7 @@ ;; XEmacs 19.11 and below exercise a bug in the Xt event loop. (defvar lazy-lock-continuity-time - (if (or (not lazy-lock-running-xemacs-p) (emacs-version>= 19 12)) + (if (or (not lazy-lock-running-xemacs-p) (> emacs-minor-version 11)) 0 (if (featurep 'lisp-float-type) 0.001 1)) "*Time in seconds to delay before normal window fontification. @@ -412,7 +381,7 @@ ;; `text-property-any', `text-property-not-all' and ;; `next-single-property-change' up to XEmacs 19.11 are too broke. (defvar lazy-lock-stealth-time - (if (emacs-version>= 19 (if lazy-lock-running-xemacs-p 12 26)) 30) + (if (> emacs-minor-version (if lazy-lock-running-xemacs-p 11 25)) 30) "*Time in seconds to delay before beginning stealth fontification. Stealth fontification occurs if there is no input within this time. If nil, means no fontification by stealth.") @@ -496,8 +465,8 @@ (progn (add-hook 'font-lock-mode-hook 'turn-on-lazy-lock) (font-lock-mode 1)) - (lazy-lock-fixup-hooks) ;; Let's get down to business. + (lazy-lock-post-command-setup) (if (not lazy-lock-mode) (let ((modified (buffer-modified-p)) (inhibit-read-only t) (buffer-undo-list t) @@ -515,7 +484,7 @@ "Unconditionally turn on Lazy Lock mode." (lazy-lock-mode 1)) -(if (not (emacs-version>= 19 (if lazy-lock-running-xemacs-p 12 29))) +(if (< emacs-minor-version (if lazy-lock-running-xemacs-p 12 29)) ;; We don't need this in Emacs 19.29 or XEmacs 19.12. (defun lazy-lock-fontify-buffer () "Fontify the current buffer where necessary." @@ -524,47 +493,6 @@ ;; API Functions: -(defun lazy-lock-fixup-hooks () - ;; Make sure our hooks are correct. - (remove-hook 'pre-idle-hook 'lazy-lock-pre-idle-fontify-windows) - (remove-hook 'post-command-hook 'lazy-lock-post-command-fontify-stealthily) - ;; Make sure our hooks are at the end. Font-lock in XEmacs installs - ;; its own pre-idle-hook to implement deferral (#### something that - ;; should really be merged with this file; or more likely, lazy-lock - ;; in its entirety should be merged into font-lock). - (add-hook 'pre-idle-hook 'lazy-lock-pre-idle-fontify-windows t) - (add-hook 'post-command-hook 'lazy-lock-post-command-fontify-stealthily t) - ;; Fascistically remove font-lock's after-change-function and install - ;; our own. We know better than font-lock what to do. Otherwise, - ;; revert-buffer, insert-file, etc. cause full refontification of the - ;; entire changed area. - (if lazy-lock-mode - (progn - (remove-hook 'after-change-functions 'font-lock-after-change-function - t) - (make-local-hook 'after-change-functions) - (add-hook 'after-change-functions 'lazy-lock-after-change-function - nil t)) - (remove-hook 'after-change-functions 'lazy-lock-after-change-function t) - (if font-lock-mode - (add-hook 'after-change-functions 'font-lock-after-change-function - nil t))) -) - -;; use put-nonduplicable-text-property to avoid unfriendly behavior -;; when doing undo, etc. We really don't want syntax-highlighting text -;; properties copied into strings or tracked by undo. -;; -;; #### If start-open and end-open really behaved like they are supposed to, -;; we wouldn't really need this. I kind of fixed them up, but there's still -;; a bug -- inserting text into the middle of a region of -;; (start-open t end-open t) text should cause it not to inherit, but it -;; does. - -(if lazy-lock-running-xemacs-p - (defalias 'lazy-lock-put-text-property 'put-nonduplicable-text-property) - (defalias 'lazy-lock-put-text-property 'put-text-property)) - (defun lazy-lock-fontify-region (start end &optional buffer) "Fontify between START and END in BUFFER where necessary." (save-excursion @@ -580,7 +508,7 @@ (let ((modified (buffer-modified-p)) (inhibit-read-only t) (buffer-undo-list t) deactivate-mark buffer-file-name buffer-file-truename) - (lazy-lock-put-text-property (point-min) (point-max) 'fontified t) + (put-text-property (point-min) (point-max) 'fontified t) (or modified (set-buffer-modified-p nil)))) ;; Just a cleaner-looking way of coping with Emacs' and XEmacs' `sit-for'. @@ -605,93 +533,29 @@ ;; Functions for hooks: -;; lazy-lock optimization: -;; -;; pre-idle-hook is called an awful lot -- pretty much every time the -;; mouse moves or a timeout expires, for example. On Linux (sometimes), -;; IRIX 5.x, and Solaris 2.something, it happens every 1/4 of a second -;; due to the 1/4-second timers installed to compensate for various -;; operating system deficiencies in the handling of SIGIO and SIGCHLD. -;; (Those timers cause a cycle of the event loop. They don't necessarily -;; have to, but rewriting to avoid this is fairly tricky and requires -;; having significant amounts of code called from signal handlers, which -;; (despite that fact that FSF Emacs reads its X input during a signal -;; handler ?!), is almost always a bad idea -- it's extremely easy to -;; introduce race conditions, which are very hard to track down. -;; -;; So to improve things, I added `frame-modified-tick'. This is an -;; internal counter that gets ticked any time that any internal -;; redisplay variable gets ticked. If `frame-modified-tick' is -;; the same as the last time we checked, it means that redisplay will -;; do absolutely nothing when encountering this frame, and thus we -;; can skip out immediately. This happens when the 1/4-second timer -;; fires while we're idle, or if we just move the mouse. (Moving -;; around in a buffer changes `frame-modified-tick' because the -;; internal redisplay variable "point_changed" gets ticked. We could -;; easily improve things further by adding more tick counters, mirroring -;; more closely the internal redisplay counters -- e.g. if we had -;; another counter that didn't get ticked when point moved, we could -;; tell if anything was going to happen by seeing if point is within -;; window-start and window-end, since we know that redisplay will -;; only do a window-scroll if it's not. (If window-start or window-end -;; or window-buffer or anything else changed, windows_changed or -;; some other variable will get ticked.)) -;; -;; Also, it's wise to try and avoid things that cons. Avoiding -;; `save-window-excursion', as we do, is definitely a major win -;; because that's a heavy-duty function as regards consing and such. - -(defvar lazy-lock-pre-idle-frame-modified-tick nil) -(defvar lazy-lock-pre-idle-selected-frame nil) - -(defun lazy-lock-pre-idle-fontify-windows () - ;; Do groovy things always unless we're in one of the ignored commands. - ;; The old version did the following five checks: - ;; - ;; (a) not in a macro, - ;; (b) no input pending, - ;; (c) got a real command (i.e. not an ignored command) - ;; (d) not in the minibuffer - ;; (e) no input after waiting for `lazy-lock-continuity-time'. - ;; - ;; (a), (b), and (e) are automatically taken care of by `pre-idle-hook'. - ;; I removed (d) because there doesn't seem to be any reason for it. - ;; - ;; Also, we do not have to `set-buffer' and in fact it would be - ;; incorrect to do so, since we may be being called from - ;; `accept-process-output' or whatever. - ;; - (if (memq this-command lazy-lock-ignore-commands) +(defun lazy-lock-post-command-fontify-windows () + ;; We might not be where we think we are, since `post-command-hook' is run + ;; before `command_loop_1' makes sure we have the correct buffer selected. + (set-buffer (window-buffer)) + ;; Do groovy things if (a) not in a macro, (b) no input pending, (c) got a + ;; real command, (d) not in the minibuffer, and (e) no input after waiting + ;; for `lazy-lock-continuity-time'. + (if (or executing-kbd-macro + (input-pending-p) + (memq this-command lazy-lock-ignore-commands) + (window-minibuffer-p (selected-window))) (setq lazy-lock-cache-continue nil) (setq lazy-lock-cache-continue t) - ;; #### we don't yet handle frame-modified-tick on multiple frames. - ;; handling this shouldn't be hard but I just haven't done it yet. - (if (or (eq 'all-frames lazy-lock-walk-windows) - (not (eq lazy-lock-pre-idle-selected-frame (selected-frame))) - (not (eq lazy-lock-pre-idle-frame-modified-tick - (frame-modified-tick (selected-frame))))) - (progn - ;; Do the visible parts of the buffer(s), i.e., the window(s). - (if (or (not lazy-lock-walk-windows) - (and (eq lazy-lock-walk-windows t) (one-window-p t))) - (if lazy-lock-mode (condition-case nil - (lazy-lock-fontify-window))) - (lazy-lock-fontify-walk-windows)) - (setq lazy-lock-pre-idle-selected-frame (selected-frame)) - (setq lazy-lock-pre-idle-frame-modified-tick - (frame-modified-tick (selected-frame))))))) + (if (lazy-lock-sit-for lazy-lock-continuity-time lazy-lock-hide-invisible) + ;; Do the visible parts of the buffer(s), i.e., the window(s). + (if (or (not lazy-lock-walk-windows) + (and (eq lazy-lock-walk-windows t) (one-window-p t))) + (if lazy-lock-mode (condition-case nil (lazy-lock-fontify-window))) + (lazy-lock-fontify-walk-windows))))) -(defun lazy-lock-after-change-function (beg end old-len) - (and lazy-lock-mode - (if (= beg end) - (font-lock-after-change-function beg end old-len) - (lazy-lock-put-text-property beg end 'fontified nil)))) - -;; DO NOT put this as a pre-idle hook! The sit-for messes up -;; mouse dragging. (defun lazy-lock-post-command-fontify-stealthily () ;; Do groovy things if (a-d) above, (e) not moving the mouse, and (f) no - ;; input after waiting for `lazy-lock-stealth-time'. + ;; input after after waiting for `lazy-lock-stealth-time'. (if (and lazy-lock-cache-continue lazy-lock-stealth-time) (condition-case data (if (lazy-lock-sit-for lazy-lock-stealth-time) @@ -699,25 +563,34 @@ (lazy-lock-fontify-walk-stealthily)) (error (message "Fontifying stealthily... %s" data))))) -;; In XEmacs 19.14 with pre-idle-hook we do not have to call this. (defun lazy-lock-post-resize-fontify-windows (frame) ;; Fontify all windows in FRAME. (let ((lazy-lock-walk-windows t) executing-kbd-macro this-command) (save-excursion (save-selected-window (select-frame frame) - (lazy-lock-pre-idle-fontify-windows))))) + (lazy-lock-post-command-fontify-windows))))) (defun lazy-lock-post-setup-emacs-fontify-windows () ;; Fontify all windows in all frames. (let ((lazy-lock-walk-windows 'all-frames) executing-kbd-macro this-command) - (lazy-lock-pre-idle-fontify-windows))) + (lazy-lock-post-command-fontify-windows))) (defun lazy-lock-post-setup-ediff-control-frame () ;; Fontify all windows in all frames when using the Ediff control frame. (make-local-variable 'lazy-lock-walk-windows) (setq lazy-lock-walk-windows (if (ediff-multiframe-setup-p) 'all-frames t)) - (lazy-lock-fixup-hooks)) + (lazy-lock-post-command-setup)) + +(defun lazy-lock-post-command-setup () + ;; Make sure that we're in the correct positions to avoid hassle. + (remove-hook 'post-command-hook 'lazy-lock-post-command-fontify-windows) + (remove-hook 'post-command-hook 'lazy-lock-post-command-fontify-stealthily) + (add-hook 'post-command-hook 'lazy-lock-post-command-fontify-windows) + (add-hook (if (boundp 'post-command-idle-hook) + 'post-command-idle-hook + 'post-command-hook) + 'lazy-lock-post-command-fontify-stealthily t)) ;; Functions for fontification: @@ -746,11 +619,8 @@ font-lock-verbose) (while (< start end) ;; Fontify and flag the region as `fontified'. - ;; XEmacs: need to bind `font-lock-always-fontify-immediately' - ;; or we'll mess up in the presence of deferred font-locking. - (let ((font-lock-always-fontify-immediately t)) - (font-lock-after-change-function start end 0)) - (lazy-lock-put-text-property start end 'fontified t) + (font-lock-after-change-function start end 0) + (put-text-property start end 'fontified t) ;; Find the next region. (setq start (or (text-property-not-all ws we 'fontified t) ws) end (or (text-property-any start we 'fontified t) we))) @@ -816,11 +686,8 @@ (or (previous-single-property-change prev 'fontified nil (point)) (point))))) ;; Fontify and flag the region as `fontified'. - ;; XEmacs: need to bind `font-lock-always-fontify-immediately' - ;; or we'll mess up in the presence of deferred font-locking. - (let ((font-lock-always-fontify-immediately t)) - (font-lock-after-change-function start end 0)) - (lazy-lock-put-text-property start end 'fontified t) + (font-lock-after-change-function start end 0) + (put-text-property start end 'fontified t) (or modified (set-buffer-modified-p nil))))) (defun lazy-lock-fontify-walk-stealthily () @@ -884,15 +751,14 @@ (condition-case nil (set-face-foreground face fore) (error (message "Unable to use foreground \"%s\"" fore)))) - (lazy-lock-put-text-property (point-min) (point-max) 'face face) - (lazy-lock-put-text-property (point-min) (point-max) 'fontified nil) + (put-text-property (point-min) (point-max) 'face face) + (put-text-property (point-min) (point-max) 'fontified nil) (or modified (set-buffer-modified-p nil))))) ;; Functions for Emacs: ;; This fix is for a number of bugs in the function in Emacs 19.28. -(if (and (not lazy-lock-running-xemacs-p) - (not (emacs-version>= 19 29))) +(if (and (not lazy-lock-running-xemacs-p) (< emacs-minor-version 29)) (defun font-lock-fontify-region (start end &optional loudly) "Put proper face on each string and comment between START and END." (save-excursion @@ -935,8 +801,7 @@ (while (and (re-search-forward "\\s\"" end 'move) (nth 3 (parse-partial-sexp beg (point) nil nil state)))) - (lazy-lock-put-text-property - beg (point) 'face font-lock-string-face) + (put-text-property beg (point) 'face font-lock-string-face) (setq state (parse-partial-sexp beg (point) nil nil state)))) ;; Likewise for a comment. @@ -952,8 +817,8 @@ ;; so go back to the real end of the comment. (skip-chars-backward " \t")) (error (goto-char end)))) - (lazy-lock-put-text-property beg (point) 'face - font-lock-comment-face) + (put-text-property beg (point) 'face + font-lock-comment-face) (setq state (parse-partial-sexp beg (point) nil nil state)))) ;; Find each interesting place between here and END. @@ -981,8 +846,8 @@ ;; so go back to the real end of the comment. (skip-chars-backward " \t")) (error (goto-char end)))) - (lazy-lock-put-text-property - beg (point) 'face font-lock-comment-face) + (put-text-property beg (point) 'face + font-lock-comment-face) (setq state (parse-partial-sexp here (point) nil nil state))) (if (nth 3 state) @@ -990,8 +855,8 @@ (while (and (re-search-forward "\\s\"" end 'move) (nth 3 (parse-partial-sexp here (point) nil nil state)))) - (lazy-lock-put-text-property - beg (point) 'face font-lock-string-face) + (put-text-property beg (point) 'face + font-lock-string-face) (setq state (parse-partial-sexp here (point) nil nil state)))))) ;; Make sure PREV is non-nil after the loop @@ -1009,8 +874,7 @@ ;; These fix bugs in `text-property-any' and `text-property-not-all'. They may ;; not work perfectly in 19.11 and below because `next-single-property-change' ;; is also broke and not easily fixable in Lisp. -(if (and lazy-lock-running-xemacs-p - (not (emacs-version>= 19 12))) +(if (and lazy-lock-running-xemacs-p (< emacs-minor-version 12)) (progn ;; Loop through property changes until found. This fix includes a work ;; around which prevents a bug in `window-start' causing a barf here. @@ -1040,8 +904,7 @@ ;; than `face'. Since `font-lock-unfontify-region' only removes `face', and we ;; have non-font-lock properties hanging about, `text-prop' never gets removed. ;; Unfortunately `font-lock-any-extents-p' is inlined so we can't redefine it. -(if (and lazy-lock-running-xemacs-p - (not (emacs-version>= 19 12))) +(if (and lazy-lock-running-xemacs-p (< emacs-minor-version 12)) (add-hook 'font-lock-mode-hook (function (lambda () (remove-hook 'after-change-functions 'font-lock-after-change-function) @@ -1052,13 +915,13 @@ ;; First set `text-prop' to nil for `font-lock-any-extents-p'. (goto-char end) (forward-line 1) (setq end (point)) (goto-char beg) (beginning-of-line) (setq beg (point)) - (lazy-lock-put-text-property beg end 'text-prop nil) + (put-text-property beg end 'text-prop nil) ;; Then do the real `font-lock-after-change-function'. (font-lock-after-change-function a-c-beg a-c-end old-len) ;; Now set `fontified' to t to stop `lazy-lock-fontify-window'. - (lazy-lock-put-text-property beg end 'fontified t)))))))))) + (put-text-property beg end 'fontified t)))))))))) -(if (and lazy-lock-running-xemacs-p (emacs-version>= 19 12)) +(if (and lazy-lock-running-xemacs-p (>= emacs-minor-version 12)) ;; XEmacs 19.12 font-lock.el's `font-lock-fontify-buffer' runs a hook. (add-hook 'font-lock-after-fontify-buffer-hook 'lazy-lock-after-fontify-buffer)) @@ -1072,9 +935,13 @@ ;; We don't install ourselves on `font-lock-mode-hook' as other packages can be ;; used with font-lock.el, and lazy-lock.el should be dumpable without forcing ;; people to get lazy or making it difficult for people to use alternatives. -;; make sure we add after font-lock's own pre-idle-hook. + +;; After a command is run. +(lazy-lock-post-command-setup) + +;; After some relevant event. (add-hook 'window-setup-hook 'lazy-lock-post-setup-emacs-fontify-windows) -;Not needed in XEmacs 19.14: +;Not needed in XEmacs 19.15: ;(add-hook 'window-size-change-functions 'lazy-lock-post-resize-fontify-windows) ;; Package-specific.
--- a/lisp/packages/mic-paren.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/packages/mic-paren.el Mon Aug 13 09:05:42 2007 +0200 @@ -1,8 +1,8 @@ ;;; mic-paren.el --- highlight matching paren. -;;; Version 1.0 - 96-08-16 -;;; Copyright (C) 1996 Mikael Sjödin (mic@docs.uu.se) +;;; Version 1.2 - 96-09-19 +;;; Copyright (C) 1996 Mikael Sj,Av(Bdin (mic@docs.uu.se) ;;; -;;; Author: Mikael Sjödin -- mic@docs.uu.se +;;; Author: Mikael Sj,Av(Bdin -- mic@docs.uu.se ;;; Keywords: languages, faces ;;; ;;; This file is NOT part of GNU Emacs. @@ -45,9 +45,10 @@ ;;; matching parenthesis (or the entire expression between the parenthesises) ;;; is highlighted until the cursor is moved away from the parenthesis. ;;; Features include: -;;; o Both forward and backward parenthesis matching (_simultaneously_ if +;;; o Both forward and backward parenthesis matching (simultaneously if ;;; cursor is between two expressions). ;;; o Indication of mismatched parenthesises. +;;; o Recognition of "escaped" parenthesises. ;;; o Option to select if only the matching parenthesis or the entire ;;; expression should be highlighted. ;;; o Message describing the match when the matching parenthesis is @@ -57,12 +58,12 @@ ;;; o Numerous options to control the behaviour and appearance of ;;; mic-paren.el. ;;; -;;; mic-paren.el is developed and tested under Emacs 19.28 - 19.31. It should -;;; work on earlier and forthcoming Emacs versions. +;;; mic-paren.el is developed and tested under Emacs 19.28 - 19.34. It should +;;; work on earlier and forthcoming Emacs versions. XEmacs compatibility has +;;; been provided by Steven L Baur <steve@altair.xemacs.org>. ;;; ;;; This file can be obtained from http://www.docs.uu.se/~mic/emacs.html -;; Ported to XEmacs 15-September, 1996 Steve Baur <steve@miranova.com> ;;; ====================================================================== ;;; User Options: @@ -181,7 +182,7 @@ ;;; ====================================================================== ;;; User Functions: -;; XEmacs compatibility +;; XEmacs compatibility (by Steven L Baur <steve@altair.xemacs.org>) (eval-and-compile (if (fboundp 'make-extent) (progn @@ -240,15 +241,15 @@ (or paren-dont-touch-blink (setq blink-matching-paren nil)) - (cond + (cond( ;; If timers are available use them ;; (Emacs 19.31 and above) - ((or (featurep 'timer) (featurep 'itimer)) - (if (numberp paren-delay) - (setq mic-paren-idle-timer - (mic-run-with-idle-timer paren-delay t - 'mic-paren-command-idle-hook)) - (add-hook 'post-command-hook 'mic-paren-command-hook))) + (featurep 'timer) + (if (numberp paren-delay) + (setq mic-paren-idle-timer + (mic-run-with-idle-timer paren-delay t + 'mic-paren-command-idle-hook)) + (add-hook 'post-command-hook 'mic-paren-command-hook))) ;; If the idle hook exists assume it is functioning and use it ;; (Emacs 19.30) ((and (boundp 'post-command-idle-hook)
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/prim/auto-autoloads.el Mon Aug 13 09:05:42 2007 +0200 @@ -0,0 +1,9545 @@ +;;; Do NOT edit this file! +;;; It is automatically generated using "make autoloads" +;;; See update-autoloads.sh and autoload.el for more details. + + +;;;### (autoloads (batch-byte-recompile-directory batch-byte-recompile-directory-norecurse batch-byte-compile display-call-tree byte-compile-sexp byte-compile compile-defun byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "bytecomp/bytecomp.el") + +(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." t nil) + +(autoload 'byte-recompile-directory "bytecomp" "\ +Recompile every `.el' file in DIRECTORY that needs recompilation. +This is if a `.elc' file exists but is older than the `.el' file. +Files in subdirectories of DIRECTORY are processed also unless argument +NORECURSION is non-nil. + +If the `.elc' file does not exist, normally the `.el' file is *not* compiled. +But a prefix argument (optional second arg) means ask user, +for each such `.el' file, whether to compile it. Prefix argument 0 means +don't ask and compile the file anyway. + +A nonzero prefix argument also means ask about each subdirectory. + +If the fourth argument FORCE is non-nil, +recompile every `.el' file that already has a `.elc' file." t nil) + +(autoload 'byte-recompile-file "bytecomp" "\ +Recompile a file of Lisp code named FILENAME if it needs recompilation. +This is if the `.elc' file exists but is older than the `.el' file. + +If the `.elc' file does not exist, normally the `.el' file is *not* +compiled. But a prefix argument (optional second arg) means ask user +whether to compile it. Prefix argument 0 don't ask and recompile anyway." t nil) + +(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 made by appending `c' to the end of FILENAME. +With prefix arg (noninteractively: 2nd arg), load the file after compiling." t nil) + +(autoload 'compile-defun "bytecomp" "\ +Compile and evaluate the current top-level form. +Print the result in the minibuffer. +With argument, insert value in current buffer after the form." 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." nil nil) + +(autoload 'byte-compile-sexp "bytecomp" "\ +Compile and return SEXP." 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." t 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\"" nil nil) + +(autoload 'batch-byte-recompile-directory-norecurse "bytecomp" "\ +Same as `batch-byte-recompile-directory' but without recursion." nil nil) + +(autoload 'batch-byte-recompile-directory "bytecomp" "\ +Runs `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 `xemacs -batch -f batch-byte-recompile-directory .'." nil nil) + +;;;*** + +;;;### (autoloads (disassemble) "disass" "bytecomp/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." t nil) + +;;;*** + +;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el") + +(put 'calendar-daylight-savings-starts 'risky-local-variable t) + +(put 'calendar-daylight-savings-ends 'risky-local-variable t) + +;;;*** + +;;;### (autoloads nil "cal-x" "calendar/cal-x.el") + +(defvar calendar-setup 'one-frame "\ +The frame set up of the calendar. +The choices are `one-frame' (calendar and diary together in one separate, +dediciated frame) or `two-frames' (calendar and diary in separate, dedicated +frames); with any other value the current frame is used.") + +;;;*** + +;;;### (autoloads (list-yahrzeit-dates calendar) "calendar" "calendar/calendar.el") + +(defvar calendar-week-start-day 0 "\ +*The day of the week on which a week in the calendar begins. +0 means Sunday (default), 1 means Monday, and so on.") + +(defvar calendar-offset 0 "\ +*The offset of the principal month from the center of the calendar window. +0 means the principal month is in the center (default), -1 means on the left, ++1 means on the right. Larger (or smaller) values push the principal month off +the screen.") + +(defvar view-diary-entries-initially nil "\ +*Non-nil means display current date's diary entries on entry. +The diary is displayed in another window when the calendar is first displayed, +if the current date is visible. The number of days of diary entries displayed +is governed by the variable `number-of-diary-entries'.") + +(defvar number-of-diary-entries 1 "\ +*Specifies how many days of diary entries are to be displayed initially. +This variable affects the diary display when the command M-x diary is used, +or if the value of the variable `view-diary-entries-initially' is t. For +example, if the default value 1 is used, then only the current day's diary +entries will be displayed. If the value 2 is used, then both the current +day's and the next day's entries will be displayed. + +The value can also be a vector such as [0 2 2 2 2 4 1]; this value +says to display no diary entries on Sunday, the display the entries +for the current date and the day after on Monday through Thursday, +display Friday through Monday's entries on Friday, and display only +Saturday's entries on Saturday. + +This variable does not affect the diary display with the `d' command +from the calendar; in that case, the prefix argument controls the +number of days of diary entries displayed.") + +(defvar mark-diary-entries-in-calendar nil "\ +*Non-nil means mark dates with diary entries, in the calendar window. +The marking symbol is specified by the variable `diary-entry-marker'.") + +(defvar view-calendar-holidays-initially nil "\ +*Non-nil means display holidays for current three month period on entry. +The holidays are displayed in another window when the calendar is first +displayed.") + +(defvar mark-holidays-in-calendar nil "\ +*Non-nil means mark dates of holidays in the calendar window. +The marking symbol is specified by the variable `calendar-holiday-marker'.") + +(defvar all-hebrew-calendar-holidays nil "\ +*If nil, show only major holidays from the Hebrew calendar. +This means only those Jewish holidays that appear on secular calendars. + +If t, show all the holidays that would appear in a complete Hebrew calendar.") + +(defvar all-christian-calendar-holidays nil "\ +*If nil, show only major holidays from the Christian calendar. +This means only those Christian holidays that appear on secular calendars. + +If t, show all the holidays that would appear in a complete Christian +calendar.") + +(defvar all-islamic-calendar-holidays nil "\ +*If nil, show only major holidays from the Islamic calendar. +This means only those Islamic holidays that appear on secular calendars. + +If t, show all the holidays that would appear in a complete Islamic +calendar.") + +(defvar calendar-load-hook nil "\ +*List of functions to be called after the calendar is first loaded. +This is the place to add key bindings to `calendar-mode-map'.") + +(defvar initial-calendar-window-hook nil "\ +*List of functions to be called when the calendar window is first opened. +The functions invoked are called after the calendar window is opened, but +once opened is never called again. Leaving the calendar with the `q' command +and reentering it will cause these functions to be called again.") + +(defvar today-visible-calendar-hook nil "\ +*List of functions called whenever the current date is visible. +This can be used, for example, to replace today's date with asterisks; a +function `calendar-star-date' is included for this purpose: + (setq today-visible-calendar-hook 'calendar-star-date) +It can also be used to mark the current date with `calendar-today-marker'; +a function is also provided for this: + (setq today-visible-calendar-hook 'calendar-mark-today) + +The corresponding variable `today-invisible-calendar-hook' is the list of +functions called when the calendar function was called when the current +date is not visible in the window. + +Other than the use of the provided functions, the changing of any +characters in the calendar buffer by the hooks may cause the failure of the +functions that move by days and weeks.") + +(defvar today-invisible-calendar-hook nil "\ +*List of functions called whenever the current date is not visible. + +The corresponding variable `today-visible-calendar-hook' is the list of +functions called when the calendar function was called when the current +date is visible in the window. + +Other than the use of the provided functions, the changing of any +characters in the calendar buffer by the hooks may cause the failure of the +functions that move by days and weeks.") + +(defvar diary-file "~/diary" "\ +*Name of the file in which one's personal diary of dates is kept. + +The file's entries are lines in any of the forms + + MONTH/DAY + MONTH/DAY/YEAR + MONTHNAME DAY + MONTHNAME DAY, YEAR + DAYNAME + +at the beginning of the line; the remainder of the line is the diary entry +string for that date. MONTH and DAY are one or two digit numbers, YEAR is +a number and may be written in full or abbreviated to the final two digits. +If the date does not contain a year, it is generic and applies to any year. +DAYNAME entries apply to any date on which is on that day of the week. +MONTHNAME and DAYNAME can be spelled in full, abbreviated to three +characters (with or without a period), capitalized or not. Any of DAY, +MONTH, or MONTHNAME, YEAR can be `*' which matches any day, month, or year, +respectively. + +The European style (in which the day precedes the month) can be used +instead, if you execute `european-calendar' when in the calendar, or set +`european-calendar-style' to t in your .emacs file. The European forms are + + DAY/MONTH + DAY/MONTH/YEAR + DAY MONTHNAME + DAY MONTHNAME YEAR + DAYNAME + +To revert to the default American style from the European style, execute +`american-calendar' in the calendar. + +A diary entry can be preceded by the character +`diary-nonmarking-symbol' (ordinarily `&') to make that entry +nonmarking--that is, it will not be marked on dates in the calendar +window but will appear in a diary window. + +Multiline diary entries are made by indenting lines after the first with +either a TAB or one or more spaces. + +Lines not in one the above formats are ignored. Here are some sample diary +entries (in the default American style): + + 12/22/1988 Twentieth wedding anniversary!! + &1/1. Happy New Year! + 10/22 Ruth's birthday. + 21: Payday + Tuesday--weekly meeting with grad students at 10am + Supowit, Shen, Bitner, and Kapoor to attend. + 1/13/89 Friday the thirteenth!! + &thu 4pm squash game with Lloyd. + mar 16 Dad's birthday + April 15, 1989 Income tax due. + &* 15 time cards due. + +If the first line of a diary entry consists only of the date or day name with +no trailing blanks or punctuation, then that line is not displayed in the +diary window; only the continuation lines is shown. For example, the +single diary entry + + 02/11/1989 + Bill Blattner visits Princeton today + 2pm Cognitive Studies Committee meeting + 2:30-5:30 Lizzie at Lawrenceville for `Group Initiative' + 4:00pm Jamie Tappenden + 7:30pm Dinner at George and Ed's for Alan Ryan + 7:30-10:00pm dance at Stewart Country Day School + +will appear in the diary window without the date line at the beginning. This +facility allows the diary window to look neater, but can cause confusion if +used with more than one day's entries displayed. + +Diary entries can be based on Lisp sexps. For example, the diary entry + + %%(diary-block 11 1 1990 11 10 1990) Vacation + +causes the diary entry \"Vacation\" to appear from November 1 through November +10, 1990. Other functions available are `diary-float', `diary-anniversary', +`diary-cyclic', `diary-day-of-year', `diary-iso-date', `diary-french-date', +`diary-hebrew-date', `diary-islamic-date', `diary-mayan-date', +`diary-yahrzeit', `diary-sunrise-sunset', `diary-phases-of-moon', +`diary-parasha', `diary-omer', `diary-rosh-hodesh', and +`diary-sabbath-candles'. See the documentation for the function +`list-sexp-diary-entries' for more details. + +Diary entries based on the Hebrew and/or the Islamic calendar are also +possible, but because these are somewhat slow, they are ignored +unless you set the `nongregorian-diary-listing-hook' and the +`nongregorian-diary-marking-hook' appropriately. See the documentation +for these functions for details. + +Diary files can contain directives to include the contents of other files; for +details, see the documentation for the variable `list-diary-entries-hook'.") + +(defvar diary-nonmarking-symbol "&" "\ +*Symbol indicating that a diary entry is not to be marked in the calendar.") + +(defvar hebrew-diary-entry-symbol "H" "\ +*Symbol indicating a diary entry according to the Hebrew calendar.") + +(defvar islamic-diary-entry-symbol "I" "\ +*Symbol indicating a diary entry according to the Islamic calendar.") + +(defvar diary-include-string "#include" "\ +*The string indicating inclusion of another file of diary entries. +See the documentation for the function `include-other-diary-files'.") + +(defvar sexp-diary-entry-symbol "%%" "\ +*The string used to indicate a sexp diary entry in diary-file. +See the documentation for the function `list-sexp-diary-entries'.") + +(defvar abbreviated-calendar-year t "\ +*Interpret a two-digit year DD in a diary entry as either 19DD or 20DD. +For the Gregorian calendar; similarly for the Hebrew and Islamic calendars. +If this variable is nil, years must be written in full.") + +(defvar european-calendar-style nil "\ +*Use the European style of dates in the diary and in any displays. +If this variable is t, a date 1/2/1990 would be interpreted as February 1, +1990. The accepted European date styles are + + DAY/MONTH + DAY/MONTH/YEAR + DAY MONTHNAME + DAY MONTHNAME YEAR + DAYNAME + +Names can be capitalized or not, written in full, or abbreviated to three +characters with or without a period.") + +(defvar american-date-diary-pattern '((month "/" day "[^/0-9]") (month "/" day "/" year "[^0-9]") (monthname " *" day "[^,0-9]") (monthname " *" day ", *" year "[^0-9]") (dayname "\\W")) "\ +*List of pseudo-patterns describing the American patterns of date used. +See the documentation of `diary-date-forms' for an explanation.") + +(defvar european-date-diary-pattern '((day "/" month "[^/0-9]") (day "/" month "/" year "[^0-9]") (backup day " *" monthname "\\W+\\<[^*0-9]") (day " *" monthname " *" year "[^0-9]") (dayname "\\W")) "\ +*List of pseudo-patterns describing the European patterns of date used. +See the documentation of `diary-date-forms' for an explanation.") + +(defvar european-calendar-display-form '((if dayname (concat dayname ", ")) day " " monthname " " year) "\ +*Pseudo-pattern governing the way a date appears in the European style. +See the documentation of calendar-date-display-form for an explanation.") + +(defvar american-calendar-display-form '((if dayname (concat dayname ", ")) monthname " " day ", " year) "\ +*Pseudo-pattern governing the way a date appears in the American style. +See the documentation of `calendar-date-display-form' for an explanation.") + +(defvar print-diary-entries-hook 'lpr-buffer "\ +*List of functions called after a temporary diary buffer is prepared. +The buffer shows only the diary entries currently visible in the diary +buffer. The default just does the printing. Other uses might include, for +example, rearranging the lines into order by day and time, saving the buffer +instead of deleting it, or changing the function used to do the printing.") + +(defvar list-diary-entries-hook nil "\ +*List of functions called after diary file is culled for relevant entries. +It is to be used for diary entries that are not found in the diary file. + +A function `include-other-diary-files' is provided for use as the value of +this hook. This function enables you to use shared diary files together +with your own. The files included are specified in the diary file by lines +of the form + + #include \"filename\" + +This is recursive; that is, #include directives in files thus included are +obeyed. You can change the \"#include\" to some other string by changing +the variable `diary-include-string'. When you use `include-other-diary-files' +as part of the list-diary-entries-hook, you will probably also want to use the +function `mark-included-diary-files' as part of `mark-diary-entries-hook'. + +For example, you could use + + (setq list-diary-entries-hook + '(include-other-diary-files sort-diary-entries)) + (setq diary-display-hook 'fancy-diary-display) + +in your `.emacs' file to cause the fancy diary buffer to be displayed with +diary entries from various included files, each day's entries sorted into +lexicographic order.") + +(defvar diary-hook nil "\ +*List of functions called after the display of the diary. +Can be used for appointment notification.") + +(defvar diary-display-hook nil "\ +*List of functions that handle the display of the diary. +If nil (the default), `simple-diary-display' is used. Use `ignore' for no +diary display. + +Ordinarily, this just displays the diary buffer (with holidays indicated in +the mode line), if there are any relevant entries. At the time these +functions are called, the variable `diary-entries-list' is a list, in order +by date, of all relevant diary entries in the form of ((MONTH DAY YEAR) +STRING), where string is the diary entry for the given date. This can be +used, for example, a different buffer for display (perhaps combined with +holidays), or produce hard copy output. + +A function `fancy-diary-display' is provided as an alternative +choice for this hook; this function prepares a special noneditable diary +buffer with the relevant diary entries that has neat day-by-day arrangement +with headings. The fancy diary buffer will show the holidays unless the +variable `holidays-in-diary-buffer' is set to nil. Ordinarily, the fancy +diary buffer will not show days for which there are no diary entries, even +if that day is a holiday; if you want such days to be shown in the fancy +diary buffer, set the variable `diary-list-include-blanks' to t.") + +(defvar nongregorian-diary-listing-hook nil "\ +*List of functions called for listing diary file and included files. +As the files are processed for diary entries, these functions are used to cull +relevant entries. You can use either or both of `list-hebrew-diary-entries' +and `list-islamic-diary-entries'. The documentation for these functions +describes the style of such diary entries.") + +(defvar mark-diary-entries-hook nil "\ +*List of functions called after marking diary entries in the calendar. + +A function `mark-included-diary-files' is also provided for use as the +mark-diary-entries-hook; it enables you to use shared diary files together +with your own. The files included are specified in the diary file by lines +of the form + #include \"filename\" +This is recursive; that is, #include directives in files thus included are +obeyed. You can change the \"#include\" to some other string by changing the +variable `diary-include-string'. When you use `mark-included-diary-files' as +part of the mark-diary-entries-hook, you will probably also want to use the +function `include-other-diary-files' as part of `list-diary-entries-hook'.") + +(defvar nongregorian-diary-marking-hook nil "\ +*List of functions called for marking diary file and included files. +As the files are processed for diary entries, these functions are used to cull +relevant entries. You can use either or both of `mark-hebrew-diary-entries' +and `mark-islamic-diary-entries'. The documentation for these functions +describes the style of such diary entries.") + +(defvar diary-list-include-blanks nil "\ +*If nil, do not include days with no diary entry in the list of diary entries. +Such days will then not be shown in the fancy diary buffer, even if they +are holidays.") + +(defvar holidays-in-diary-buffer t "\ +*Non-nil means include holidays in the diary display. +The holidays appear in the mode line of the diary buffer, or in the +fancy diary buffer next to the date. This slows down the diary functions +somewhat; setting it to nil makes the diary display faster.") + +(defvar general-holidays '((holiday-fixed 1 1 "New Year's Day") (holiday-float 1 1 3 "Martin Luther King Day") (holiday-fixed 2 2 "Ground Hog 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 Fool's 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.") + +(put 'general-holidays 'risky-local-variable t) + +(defvar local-holidays nil "\ +*Local holidays. +See the documentation for `calendar-holidays' for details.") + +(put 'local-holidays 'risky-local-variable t) + +(defvar other-holidays nil "\ +*User defined holidays. +See the documentation for `calendar-holidays' for details.") + +(put 'other-holidays 'risky-local-variable t) + +(defvar hebrew-holidays-1 '((holiday-rosh-hashanah-etc) (if all-hebrew-calendar-holidays (holiday-julian 11 (let* ((m displayed-month) (y displayed-year) (year)) (increment-calendar-month m y -1) (let ((year (extract-calendar-year (calendar-julian-from-absolute (calendar-absolute-from-gregorian (list m 1 y)))))) (if (zerop (% (1+ year) 4)) 22 21))) "\"Tal Umatar\" (evening)")))) + +(put 'hebrew-holidays-1 'risky-local-variable t) + +(defvar hebrew-holidays-2 '((if all-hebrew-calendar-holidays (holiday-hanukkah) (holiday-hebrew 9 25 "Hanukkah")) (if all-hebrew-calendar-holidays (holiday-hebrew 10 (let ((h-year (extract-calendar-year (calendar-hebrew-from-absolute (calendar-absolute-from-gregorian (list displayed-month 28 displayed-year)))))) (if (= (% (calendar-absolute-from-hebrew (list 10 10 h-year)) 7) 6) 11 10)) "Tzom Teveth")) (if all-hebrew-calendar-holidays (holiday-hebrew 11 15 "Tu B'Shevat")))) + +(put 'hebrew-holidays-2 'risky-local-variable t) + +(defvar hebrew-holidays-3 '((if all-hebrew-calendar-holidays (holiday-hebrew 11 (let ((m displayed-month) (y displayed-year)) (increment-calendar-month m y 1) (let* ((h-year (extract-calendar-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 (= (% (calendar-absolute-from-hebrew (list 7 1 h-year)) 7) 6) (calendar-dayname-on-or-before 6 (calendar-absolute-from-hebrew (list 11 17 h-year))) (calendar-dayname-on-or-before 6 (calendar-absolute-from-hebrew (list 11 16 h-year)))))) (day (extract-calendar-day s-s))) day)) "Shabbat Shirah")))) + +(put 'hebrew-holidays-3 'risky-local-variable t) + +(defvar hebrew-holidays-4 '((holiday-passover-etc) (if (and all-hebrew-calendar-holidays (let* ((m displayed-month) (y displayed-year) (year)) (increment-calendar-month m y -1) (let ((year (extract-calendar-year (calendar-julian-from-absolute (calendar-absolute-from-gregorian (list m 1 y)))))) (= 21 (% year 28))))) (holiday-julian 3 26 "Kiddush HaHamah")) (if all-hebrew-calendar-holidays (holiday-tisha-b-av-etc)))) + +(put 'hebrew-holidays-4 'risky-local-variable t) + +(defvar hebrew-holidays (append hebrew-holidays-1 hebrew-holidays-2 hebrew-holidays-3 hebrew-holidays-4) "\ +*Jewish holidays. +See the documentation for `calendar-holidays' for details.") + +(put 'hebrew-holidays 'risky-local-variable t) + +(defvar christian-holidays '((if all-christian-calendar-holidays (holiday-fixed 1 6 "Epiphany")) (holiday-easter-etc) (if all-christian-calendar-holidays (holiday-greek-orthodox-easter)) (if all-christian-calendar-holidays (holiday-fixed 8 15 "Assumption")) (if all-christian-calendar-holidays (holiday-advent)) (holiday-fixed 12 25 "Christmas") (if all-christian-calendar-holidays (holiday-julian 12 25 "Eastern Orthodox Christmas"))) "\ +*Christian holidays. +See the documentation for `calendar-holidays' for details.") + +(put 'christian-holidays 'risky-local-variable t) + +(defvar islamic-holidays '((holiday-islamic 1 1 (format "Islamic New Year %d" (let ((m displayed-month) (y displayed-year)) (increment-calendar-month m y 1) (extract-calendar-year (calendar-islamic-from-absolute (calendar-absolute-from-gregorian (list m (calendar-last-day-of-month m y) y))))))) (if all-islamic-calendar-holidays (holiday-islamic 1 10 "Ashura")) (if all-islamic-calendar-holidays (holiday-islamic 3 12 "Mulad-al-Nabi")) (if all-islamic-calendar-holidays (holiday-islamic 7 26 "Shab-e-Mi'raj")) (if all-islamic-calendar-holidays (holiday-islamic 8 15 "Shab-e-Bara't")) (holiday-islamic 9 1 "Ramadan Begins") (if all-islamic-calendar-holidays (holiday-islamic 9 27 "Shab-e Qadr")) (if all-islamic-calendar-holidays (holiday-islamic 10 1 "Id-al-Fitr")) (if all-islamic-calendar-holidays (holiday-islamic 12 10 "Id-al-Adha"))) "\ +*Islamic holidays. +See the documentation for `calendar-holidays' for details.") + +(put 'islamic-holidays 'risky-local-variable t) + +(defvar solar-holidays '((if (fboundp 'atan) (solar-equinoxes-solstices)) (if (progn (require 'cal-dst) t) (funcall 'holiday-sexp calendar-daylight-savings-starts '(format "Daylight Savings Time Begins %s" (if (fboundp 'atan) (solar-time-string (/ calendar-daylight-savings-starts-time (float 60)) calendar-standard-time-zone-name) "")))) (funcall 'holiday-sexp calendar-daylight-savings-ends '(format "Daylight Savings Time Ends %s" (if (fboundp 'atan) (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.") + +(put 'solar-holidays 'risky-local-variable t) + +(defvar calendar-holidays (append general-holidays local-holidays other-holidays christian-holidays hebrew-holidays islamic-holidays solar-holidays) "\ +*List of notable days for the command M-x holidays. + +Additional holidays are easy to add to the list, just put them in the list +`other-holidays' in your .emacs file. Similarly, by setting any of +`general-holidays', `local-holidays' `christian-holidays', `hebrew-holidays', +`islamic-holidays', or `solar-holidays' to nil in your .emacs file, you can +eliminate unwanted categories of holidays. The intention is that (in the US) +`local-holidays' be set in site-init.el and `other-holidays' be set by the +user. + +Entries on the list are expressions that return (possibly empty) lists of +items of the form ((month day year) string) of a holiday in the in the +three-month period centered around `displayed-month' of `displayed-year'. +Several basic functions are provided for this purpose: + + (holiday-fixed MONTH DAY STRING) is a fixed date on the Gregorian calendar + (holiday-float MONTH DAYNAME K STRING &optional day) is the Kth DAYNAME in + MONTH on the Gregorian calendar (0 for Sunday, + etc.); K<0 means count back from the end of the + month. An optional parameter DAY means the Kth + DAYNAME after/before MONTH DAY. + (holiday-hebrew MONTH DAY STRING) a fixed date on the Hebrew calendar + (holiday-islamic MONTH DAY STRING) a fixed date on the Islamic calendar + (holiday-julian MONTH DAY STRING) a fixed date on the Julian calendar + (holiday-sexp SEXP STRING) SEXP is a Gregorian-date-valued expression + in the variable `year'; if it evaluates to + a visible date, that's the holiday; if it + evaluates to nil, there's no holiday. STRING + is an expression in the variable `date'. + +For example, to add Bastille Day, celebrated in France on July 14, add + + (holiday-fixed 7 14 \"Bastille Day\") + +to the list. To add Hurricane Supplication Day, celebrated in the Virgin +Islands on the fourth Monday in August, add + + (holiday-float 8 1 4 \"Hurricane Supplication Day\") + +to the list (the last Monday would be specified with `-1' instead of `4'). +To add the last day of Hanukkah to the list, use + + (holiday-hebrew 10 2 \"Last day of Hanukkah\") + +since the Hebrew months are numbered with 1 starting from Nisan, while to +add the Islamic feast celebrating Mohammed's birthday use + + (holiday-islamic 3 12 \"Mohammed's Birthday\") + +since the Islamic months are numbered from 1 starting with Muharram. To +add Thomas Jefferson's birthday, April 2, 1743 (Julian), use + + (holiday-julian 4 2 \"Jefferson's Birthday\") + +To include a holiday conditionally, use the sexp form or a conditional. For +example, to include American presidential elections, which occur on the first +Tuesday after the first Monday in November of years divisible by 4, add + + (holiday-sexp + (if (zerop (% year 4)) + (calendar-gregorian-from-absolute + (1+ (calendar-dayname-on-or-before + 1 (+ 6 (calendar-absolute-from-gregorian + (list 11 1 year))))))) + \"US Presidential Election\") + +or + + (if (zerop (% displayed-year 4)) + (holiday-fixed 11 + (extract-calendar-day + (calendar-gregorian-from-absolute + (1+ (calendar-dayname-on-or-before + 1 (+ 6 (calendar-absolute-from-gregorian + (list 11 1 displayed-year))))))) + \"US Presidential Election\")) + +to the list. To include the phases of the moon, add + + (lunar-phases) + +to the holiday list, where `lunar-phases' is an Emacs-Lisp function that +you've written to return a (possibly empty) list of the relevant VISIBLE dates +with descriptive strings such as + + (((2 6 1989) \"New Moon\") ((2 12 1989) \"First Quarter Moon\") ... ).") + +(put 'calendar-holidays 'risky-local-variable t) + +(autoload 'calendar "calendar" "\ +Display a three-month calendar in another window. +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 called with an optional prefix argument, prompts for month and year. + +This function is suitable for execution in a .emacs file; appropriate setting +of the variable `view-diary-entries-initially' will cause the diary entries for +the current date to be displayed in another window. The value of the variable +`number-of-diary-entries' controls the number of days of diary entries +displayed upon initial display of the calendar. + +An optional prefix argument ARG causes the calendar displayed to be ARG +months in the future if ARG is positive or in the past if ARG is negative; +in this case the cursor goes on the first day of the month. + +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. The window is replotted as +necessary to display the desired date. + +Diary entries can be marked on the calendar or displayed in another window. + +Use M-x describe-mode for details of the key bindings in the calendar window. + +The Gregorian calendar is assumed. + +After loading the calendar, the hooks given by the variable +`calendar-load-hook' are run. This is the place to add key bindings to the +calendar-mode-map. + +After preparing the calendar window initially, the hooks given by the variable +`initial-calendar-window-hook' are run. + +The hooks given by the variable `today-visible-calendar-hook' are run +everytime the calendar window gets scrolled, if the current date is visible +in the window. If it is not visible, the hooks given by the variable +`today-invisible-calendar-hook' are run. Thus, for example, setting +`today-visible-calendar-hook' to 'calendar-star-date will cause today's date +to be replaced by asterisks to highlight it whenever it is in the window." t nil) + +(autoload 'list-yahrzeit-dates "calendar" "\ +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." t nil) + +;;;*** + +;;;### (autoloads (diary) "diary-lib" "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 `number-of-diary-entries'. This function is suitable for +execution in a `.emacs' file." t nil) + +;;;*** + +;;;### (autoloads (holidays) "holidays" "calendar/holidays.el") + +(autoload 'holidays "holidays" "\ +Display the holidays for last month, this month, and next month. +If called with an optional prefix argument, prompts for month and year. + +This function is suitable for execution in a .emacs file." t nil) + +;;;*** + +;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el") + +(autoload 'phases-of-moon "lunar" "\ +Display the quarters of the moon for last month, this month, and next month. +If called with an optional prefix argument, prompts for month and year. + +This function is suitable for execution in a .emacs file." t nil) + +;;;*** + +;;;### (autoloads (solar-equinoxes-solstices sunrise-sunset) "solar" "calendar/solar.el") + +(defvar calendar-time-display-form '(12-hours ":" minutes am-pm (if time-zone " (") time-zone (if time-zone ")")) "\ +*The pseudo-pattern that governs the way a time of day is formatted. + +A pseudo-pattern is a list of expressions that can involve the keywords +`12-hours', `24-hours', and `minutes', all numbers in string form, +and `am-pm' and `time-zone', both alphabetic strings. + +For example, the form + + '(24-hours \":\" minutes + (if time-zone \" (\") time-zone (if time-zone \")\")) + +would give military-style times like `21:07 (UTC)'.") + +(defvar calendar-latitude nil "\ +*Latitude of `calendar-location-name' in degrees. + +The value can be either a decimal fraction (one place of accuracy is +sufficient), + north, - south, such as 40.7 for New York City, or the value +can be a vector [degrees minutes north/south] such as [40 50 north] for New +York City. + +This variable should be set in site-local.el.") + +(defvar calendar-longitude nil "\ +*Longitude of `calendar-location-name' in degrees. + +The value can be either a decimal fraction (one place of accuracy is +sufficient), + east, - west, such as -73.9 for New York City, or the value +can be a vector [degrees minutes east/west] such as [73 55 west] for New +York City. + +This variable should be set in site-local.el.") + +(defvar calendar-location-name '(let ((float-output-format "%.1f")) (format "%s%s, %s%s" (if (numberp calendar-latitude) (abs calendar-latitude) (+ (aref calendar-latitude 0) (/ (aref calendar-latitude 1) 60.0))) (if (numberp calendar-latitude) (if (> calendar-latitude 0) "N" "S") (if (equal (aref calendar-latitude 2) 'north) "N" "S")) (if (numberp calendar-longitude) (abs calendar-longitude) (+ (aref calendar-longitude 0) (/ (aref calendar-longitude 1) 60.0))) (if (numberp calendar-longitude) (if (> calendar-longitude 0) "E" "W") (if (equal (aref calendar-latitude 2) 'east) "E" "W")))) "\ +*Expression evaluating to name of `calendar-longitude', calendar-latitude'. +For example, \"New York City\". Default value is just the latitude, longitude +pair. + +This variable should be set in site-local.el.") + +(autoload 'sunrise-sunset "solar" "\ +Local time of sunrise and sunset for today. Accurate to +/- 2 minutes. +If called with an optional prefix argument, 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 a .emacs file." t nil) + +(autoload 'solar-equinoxes-solstices "solar" "\ +Date and time of equinoxes and solstices, if visible in the calendar window. +Requires floating point." nil nil) + +;;;*** + +;;;### (autoloads (comint-dynamic-list-completions comint-dynamic-complete comint-run make-comint) "comint" "comint/comint.el") + +(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-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 to send the contents of to the process. + +If PROGRAM is a string, any more args are arguments to PROGRAM." 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'." t nil) + +(autoload 'comint-dynamic-complete "comint" "\ +Dynamically perform completion at point. +Calls the functions in `comint-dynamic-complete-functions' to perform +completion until a function returns non-nil, at which point completion is +assumed to have occurred." t nil) + +(autoload 'comint-dynamic-list-completions "comint" "\ +List in help buffer sorted COMPLETIONS. +Typing SPC flushes the help buffer." nil nil) + +;;;*** + +;;;### (autoloads (gdb) "gdb" "comint/gdb.el") + +(defvar gdb-command-name "gdb" "\ +Pathname for executing gdb.") + +(autoload 'gdb "gdb" "\ +Run gdb on program FILE in buffer *gdb-FILE*. +The directory containing FILE becomes the initial working directory +and source-file directory for GDB. If you wish to change this, use +the GDB commands `cd DIR' and `directory'." t nil) + +;;;*** + +;;;### (autoloads (gdbsrc) "gdbsrc" "comint/gdbsrc.el") + +(autoload 'gdbsrc "gdbsrc" "\ +Activates a gdb session with gdbsrc-mode turned on. A numeric prefix +argument can be used to specify a running process to attach, and a non-numeric +prefix argument will cause you to be prompted for a core file to debug." t nil) + +;;;*** + +;;;### (autoloads (perldb xdb dbx sdb) "gud" "comint/gud.el") + +(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." 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." 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." 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." t nil) + +;;;*** + +;;;### (autoloads nil "inf-lisp" "comint/inf-lisp.el") + +(add-hook 'same-window-buffer-names "*inferior-lisp*") + +;;;*** + +;;;### (autoloads (rlogin) "rlogin" "comint/rlogin.el") + +(add-hook 'same-window-regexps "^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)") + +(autoload 'rlogin "rlogin" "\ +Open a network login connection to HOST via the `rlogin' program. +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 is a string or +buffer, it names 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." t nil) + +;;;*** + +;;;### (autoloads (shell) "shell" "comint/shell.el") + +(defvar shell-prompt-pattern (purecopy "^[^#$%>\n]*[#$%>] *") "\ +Regexp to match prompts in the inferior shell. +Defaults to \"^[^#$%>\\n]*[#$%>] *\", which works pretty well. +This variable is used to initialise `comint-prompt-regexp' in the +shell buffer. + +The pattern should probably not match more than one line. If it does, +shell-mode may become confused trying to distinguish prompt from input +on lines which don't start with a prompt. + +This is a fine thing to set in your `.emacs' file.") + +(autoload 'shell "shell" "\ +Run an inferior shell, with I/O through buffer *shell*. +If buffer exists but shell process is not running, make new shell. +If buffer exists and shell process is running, + just switch to buffer `*shell*'. +Program used comes from variable `explicit-shell-file-name', + or (if that is nil) from the ESHELL environment variable, + or else from SHELL if there is no ESHELL. +If a file `~/.emacs_SHELLNAME' exists, it is given as initial input + (Note that this may lose 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'. + +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.)" t nil) + +(add-hook 'same-window-buffer-names "*shell*") + +;;;*** + +;;;### (autoloads (rsh telnet) "telnet" "comint/telnet.el") + +(add-hook 'same-window-regexps "\\*telnet-.*\\*\\(\\|<[0-9]+>\\)") + +(autoload 'telnet "telnet" "\ +Open a network login connection to host named HOST (a string). +With a prefix argument, prompts for the port name or number as well. +Communication with HOST is recorded in a buffer `*HOST-telnet*'. +Normally input is edited in Emacs and sent a line at a time. +See also `\\[rsh]'." t nil) + +(add-hook 'same-window-regexps "\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)") + +(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. +See also `\\[telnet]'." t nil) + +;;;*** + +;;;### (autoloads (ange-ftp-hook-function) "ange-ftp" "dired/ange-ftp.el") + +(defvar ange-ftp-path-format '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*\\):\\(.*\\)" 3 2 4) "\ +*Format of a fully expanded remote pathname. This is a cons +\(REGEXP . (HOST USER PATH)), where REGEXP is a regular expression matching +the full remote pathname, and HOST, USER, and PATH are the numbers of +parenthesized expressions in REGEXP for the components (in that order).") + +(autoload 'ange-ftp-hook-function "ange-ftp" nil nil nil) + +(or (assoc (car ange-ftp-path-format) file-name-handler-alist) (setq file-name-handler-alist (cons (cons (car ange-ftp-path-format) 'ange-ftp-hook-function) file-name-handler-alist))) + +;;;*** + +;;;### (autoloads (dired-make-permissions-interactive) "dired-chmod" "dired/dired-chmod.el") + +(autoload 'dired-make-permissions-interactive "dired-chmod" nil nil nil) + +;;;*** + +;;;### (autoloads (dired-cwd-make-magic) "dired-cwd" "dired/dired-cwd.el") + +(autoload 'dired-cwd-make-magic "dired-cwd" "\ +Modify COMMAND so that it's working directory is the current dired directory. +This works by binding `default-directory' to `(default-directory)'s value. +See also function `default-directory'." t nil) + +;;;*** + +;;;### (autoloads (dired-do-rename-list dired-do-rename-numeric) "dired-num" "dired/dired-num.el") + +(autoload 'dired-do-rename-numeric "dired-num" "\ +Rename all marked (or next ARG) files using numbers. +You are prompted for a format string, e.g \"part_%d_of_8\", and a starting +number, e.g. 1. If there are 8 marked files, this example will rename them to + + part_1_of_8 + part_2_of_8 + ... + part_8_of_8" t nil) + +(autoload 'dired-do-rename-list "dired-num" "\ +Rename all marked (or next ARG) files using elements from LIST. +You are prompted for a format string, e.g \"x_%s\", and the list, +e.g. '(foo bar zod). This example will rename the marked files to + + x_foo + x_bar + x_zod + +It is an error if LIST has not as many elements as there are files." t nil) + +;;;*** + +;;;### (autoloads (dired-rcs-mark-rcs-files dired-rcs-mark-rcs-locked-files) "dired-rcs" "dired/dired-rcs.el") + +(autoload 'dired-rcs-mark-rcs-locked-files "dired-rcs" "\ +Mark all files that are under RCS control and RCS-locked. +With prefix argument, unflag all those files. +Mentions RCS files for which a working file was not found in this buffer. +Type \\[dired-why] to see them again." t nil) + +(autoload 'dired-rcs-mark-rcs-files "dired-rcs" "\ +Mark all files that are under RCS control. +With prefix argument, unflag all those files. +Mentions RCS files for which a working file was not found in this buffer. +Type \\[dired-why] to see them again." t nil) + +;;;*** + +;;;### (autoloads (dired-extra-startup) "dired-x" "dired/dired-x.el") + +(autoload 'dired-extra-startup "dired-x" "\ +Automatically put on dired-mode-hook to get extra dired features: +\\<dired-mode-map> + \\[dired-vm] -- VM on folder + \\[dired-rmail] -- Rmail on folder + \\[dired-do-insert-subdir] -- insert all marked subdirs + \\[dired-do-find-file] -- visit all marked files simultaneously + \\[dired-set-marker-char], \\[dired-restore-marker-char] -- change and display dired-marker-char dynamically. + \\[dired-omit-toggle] -- toggle omitting of files + \\[dired-mark-sexp] -- mark by lisp expression + \\[dired-do-unmark] -- replace existing marker with another. + \\[dired-mark-rcs-files] -- mark all RCS controlled files + \\[dired-mark-files-compilation-buffer] -- mark compilation files + \\[dired-copy-filename-as-kill] -- copy the file or subdir names into the kill ring. + You can feed it to other commands using \\[yank]. + +For more features, see variables + + dired-omit-files + dired-omit-extenstions + dired-dangerous-shell-command + dired-mark-keys + dired-local-variables-file + dired-find-subdir + dired-guess-have-gnutar + dired-auto-shell-command-alist + +See also functions + + dired-sort-on-size + dired-do-relsymlink + dired-flag-extension + dired-virtual + dired-jump-back + dired-jump-back-other-window +" t nil) + +;;;*** + +;;;### (autoloads (dired-noselect dired-other-frame dired-other-window dired) "dired" "dired/dired.el") + +(defvar dired-listing-switches (purecopy "-al") "\ +*Switches passed to ls for dired. MUST contain the `l' option. +Can contain even `F', `b', `i' and `s'.") + +(defvar dired-chown-program (purecopy (if (memq system-type '(dgux-unix hpux usg-unix-v silicon-graphics-unix irix)) "chown" "/etc/chown")) "\ +*Name of chown command (usully `chown' or `/etc/chown').") + +(defvar dired-ls-program (purecopy "ls") "\ +*Absolute or relative name of the ls program used by dired.") + +(defvar dired-ls-F-marks-symlinks t "\ +*Informs dired about how ls -lF marks symbolic links. +Set this to t if `dired-ls-program' with -lF marks the symbolic link +itself with a trailing @ (usually the case under Ultrix). + +Example: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to +nil, if it gives `bar@ -> foo', set it to t. + +Dired checks if there is really a @ appended. Thus, if you have a +marking ls program on one host and a non-marking on another host, and +don't care about symbolic links which really end in a @, you can +always set this variable to t.") + +(defvar dired-trivial-filenames (purecopy "^\\.\\.?$\\|^#") "\ +*Regexp of files to skip when moving point to the first file of a new directory listing. +Nil means move to the subdir line, t means move to first file.") + +(defvar dired-keep-marker-move t "\ +If t, moved marked files are marked if their originals were. +If a character, those files (marked or not) are marked with that character.") + +(defvar dired-keep-marker-copy ?C "\ +If t, copied files are marked if their source files were. +If a character, those files are always marked with that character.") + +(defvar dired-keep-marker-hardlink ?H "\ +If t, hard-linked files are marked if the linked-to files were. +If a character, those files are always marked with that character.") + +(defvar dired-keep-marker-symlink ?Y "\ +If t, symlinked marked files are marked if the linked-to files were. +If a character, those files are always marked with that character.") + +(defvar dired-dwim-target nil "\ +*If non-nil, dired tries to guess a default target directory: +If there is a dired buffer displayed in the next window, use +its current subdir, instead of the current subdir of this dired +buffer. + +The target is used in the prompt for file copy, move etc.") + +(defvar dired-copy-preserve-time nil "\ +*If non-nil, Dired preserves the last-modified time in a file copy. +\(This works on only some systems.)\\<dired-mode-map> +Use `\\[dired-do-copy]' with a zero prefix argument to toggle its value.") + +(define-key ctl-x-map "d" 'dired) + +(autoload 'dired "dired" "\ +\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it. +With an optional prefix argument you can specify the ls SWITCHES that are used. +Dired displays a list of files in DIRNAME (which may also have + shell wildcards appended to select certain files). +You can move around in it with the usual commands. +You can flag files for deletion with \\<dired-mode-map>\\[dired-flag-file-deleted] and then delete them by + typing \\[dired-do-deletions]. +Type \\[describe-mode] after entering dired for more info. + +If DIRNAME is already in a dired buffer, that buffer is used without refresh." 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." 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." t nil) + +(autoload 'dired-noselect "dired" "\ +Like `dired' but returns the dired buffer as value, does not select it." nil nil) + +;;;*** + +;;;### (autoloads (find-grep-dired find-name-dired find-dired) "find-dired" "dired/find-dired.el") + +(defvar find-ls-option (purecopy (if (eq system-type 'berkeley-unix) '("-ls" . "-gilsb") '("-exec ls -ld {} \\;" . "-ld"))) "\ +*Description of the option to `find' to produce an `ls -l'-type listing. +This is a cons of two strings (FIND-OPTION . LS-SWITCHES). FIND-OPTION +gives the option (or options) to `find' that produce the desired output. +LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output.") + +(defvar find-grep-options (purecopy (if (eq system-type 'berkeley-unix) "-s" "-q")) "\ +*Option to grep to be as silent as possible. +On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it. +On other systems, the closest you can come is to use `-l'.") + +(defvar find-dired-multiple-buffers nil "\ +*If non-nil, generates a new buffer for each find") + +(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 + + find . \\( ARGS \\) -ls" 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" t nil) + +(autoload 'find-grep-dired "find-dired" "\ +Find files in DIR containing a regexp ARG and start Dired on output. +The command run (after changing into DIR) is + + find . -type f -exec test -r {} \\; -exec egrep -s ARG {} \\; -ls + +Thus ARG can also contain additional grep options." t nil) + +;;;*** + +;;;### (autoloads (edebug-eval-top-level-form def-edebug-spec) "edebug" "edebug/edebug.el") + +(autoload 'def-edebug-spec "edebug" "\ +Set the edebug-form-spec property of SYMBOL according to SPEC. +Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol +\(naming a function), or a list." nil 'macro) + +(defalias 'edebug-defun 'edebug-eval-top-level-form) + +(autoload 'edebug-eval-top-level-form "edebug" "\ +Evaluate a top level form, such as a defun or defmacro. +This is like `eval-defun', but the code is always instrumented for Edebug. +Print its name in the minibuffer and leave point where it is, +or if an error occurs, leave point after it with mark at the original point." t nil) + +;;;*** + +;;;### (autoloads (ediff-show-registry) "ediff-mult" "ediff/ediff-mult.el") + +(autoload 'ediff-show-registry "ediff-mult" "\ +Display Ediff's registry." t nil) + +(defalias 'eregistry 'ediff-show-registry) + +;;;*** + +;;;### (autoloads (ediff-toggle-multiframe) "ediff-util" "ediff/ediff-util.el") + +(autoload 'ediff-toggle-multiframe "ediff-util" "\ +Switch from the multiframe display to single-frame display and back. +For a permanent change, set the variable `ediff-window-setup-function', +which see." t nil) + +;;;*** + +;;;### (autoloads (ediff-documentation ediff-version ediff-revision ediff-patch-buffer ediff-patch-file run-ediff-from-cvs-buffer 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-files3 ediff-files) "ediff" "ediff/ediff.el") + +(autoload 'ediff-files "ediff" "\ +Run Ediff on a pair of files, FILE-A and FILE-B." t nil) + +(autoload 'ediff-files3 "ediff" "\ +Run Ediff on three files, FILE-A, FILE-B, and FILE-C." t nil) + +(defalias 'ediff3 'ediff-files3) + +(defalias 'ediff 'ediff-files) + +(autoload 'ediff-buffers "ediff" "\ +Run Ediff on a pair of buffers, BUFFER-A and BUFFER-B." t nil) + +(defalias 'ebuffers 'ediff-buffers) + +(autoload 'ediff-buffers3 "ediff" "\ +Run Ediff on three buffers, BUFFER-A, BUFFER-B, and BUFFER-C." 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 a regular expression that +can be used to filter out certain file names." 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." 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 a regular +expression that can be used to filter out certain file names." 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 a regular expression that +can be used to filter out certain file names." 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 a regular expression that +can be used to filter out certain file names." 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." 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." 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." 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." t nil) + +(autoload 'ediff-regions-wordwise "ediff" "\ +Run Ediff on a pair of regions in two different buffers. +Regions (i.e., point and mark) are assumed to be set in advance. +This function is effective only for relatively small regions, up to 200 +lines. For large regions, use `ediff-regions-linewise'." t nil) + +(autoload 'ediff-regions-linewise "ediff" "\ +Run Ediff on a pair of regions in two different buffers. +Regions (i.e., point and mark) are assumed to be set in advance. +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'." t nil) + +(defalias 'ediff-merge 'ediff-merge-files) + +(autoload 'ediff-merge-files "ediff" "\ +Merge two files without ancestor." t nil) + +(autoload 'ediff-merge-files-with-ancestor "ediff" "\ +Merge two files with ancestor." t nil) + +(defalias 'ediff-merge-with-ancestor 'ediff-merge-files-with-ancestor) + +(autoload 'ediff-merge-buffers "ediff" "\ +Merge buffers without ancestor." t nil) + +(autoload 'ediff-merge-buffers-with-ancestor "ediff" "\ +Merge buffers with ancestor." 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." 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." t nil) + +(autoload 'run-ediff-from-cvs-buffer "ediff" "\ +Run Ediff-merge on appropriate revisions of the selected file. +First run after `M-x cvs-update'. Then place the cursor on a lide describing a +file and then run `run-ediff-from-cvs-buffer'." t nil) + +(autoload 'ediff-patch-file "ediff" "\ +Run Ediff by patching SOURCE-FILENAME." t nil) + +(autoload 'ediff-patch-buffer "ediff" "\ +Run Ediff by patching BUFFER-NAME." 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 visited by the current +buffer. Use `vc.el' or `rcs.el' depending on `ediff-version-control-package'." t nil) + +(autoload 'ediff-version "ediff" "\ +Return string describing the version of Ediff. +When called interactively, displays the version." t nil) + +(autoload 'ediff-documentation "ediff" "\ +Display Ediff's manual. +With optional NODE, goes to that node." t nil) + +;;;*** + +;;;### (autoloads (electric-buffer-list) "ebuff-menu" "electric/ebuff-menu.el") + +(autoload 'electric-buffer-list "ebuff-menu" "\ +Pops up a buffer describing the set of Emacs buffers. +Vaguely like ITS lunar select buffer; combining typeoutoid buffer +listing with menuoid buffer selection. + +If the very next character typed is a space then the buffer list +window disappears. Otherwise, one may move around in the buffer list +window, marking buffers to be selected, saved or deleted. + +To exit and select a new buffer, type a space when the cursor is on +the appropriate line of the buffer-list window. Other commands are +much like those of buffer-menu-mode. + +Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil. + +Non-null optional arg FILES-ONLY means mention only file buffers. +When called from Lisp code, FILES-ONLY may be a regular expression, +in which case only buffers whose names match that expression are listed, +or an arbitrary predicate function. + +\\{electric-buffer-menu-mode-map}" t nil) + +;;;*** + +;;;### (autoloads (electric-command-history Electric-command-history-redo-expression) "echistory" "electric/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." t nil) + +(autoload 'electric-command-history "echistory" "\ +\\<electric-history-map>Major mode for examining and redoing commands from `command-history'. +This pops up a window with the Command History listing. +The number of command listed is controlled by `list-command-history-max'. +The command history is filtered by `list-command-history-filter' if non-nil. +Combines typeout Command History list window with menu like selection +of an expression from the history for re-evaluation in the *original* buffer. + +The history displayed is filtered by `list-command-history-filter' if non-nil. + +Like Emacs-Lisp mode except that characters do not insert themselves and +Tab and Linefeed do not indent. Instead these commands are provided: +\\{electric-history-map} + +Calls the value of `electric-command-history-hook' if that is non-nil. +The Command History listing is recomputed each time this mode is invoked." t nil) + +;;;*** + +;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "electric/ehelp.el") + +(autoload 'with-electric-help "ehelp" "\ +Pop up an \"electric\" help buffer. +The arguments are THUNK &optional BUFFER NOERASE MINHEIGHT. +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 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') +BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." nil nil) + +(autoload 'electric-helpify "ehelp" nil nil nil) + +;;;*** + +;;;### (autoloads (Helper-help Helper-describe-bindings) "helper" "electric/helper.el") + +(autoload 'Helper-describe-bindings "helper" "\ +Describe local key bindings of current mode." t nil) + +(autoload 'Helper-help "helper" "\ +Provide help for current mode." t nil) + +;;;*** + +;;;### (autoloads (edt-emulation-on) "edt" "emulators/edt.el") + +(autoload 'edt-emulation-on "edt" "\ +Turn on EDT Emulation." t nil) + +;;;*** + +;;;### (autoloads (convert-mocklisp-buffer) "mlconvert" "emulators/mlconvert.el") + +(autoload 'convert-mocklisp-buffer "mlconvert" "\ +Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run." t nil) + +;;;*** + +;;;### (autoloads (teco-command) "teco" "emulators/teco.el") + +(autoload 'teco-command "teco" "\ +Read and execute a Teco command string." t nil) + +;;;*** + +;;;### (autoloads (tpu-edt-on) "tpu-edt" "emulators/tpu-edt.el") + +(fset 'tpu-edt-mode 'tpu-edt-on) + +(fset 'tpu-edt 'tpu-edt-on) + +(autoload 'tpu-edt-on "tpu-edt" "\ +Turn on TPU/edt emulation." t nil) + +;;;*** + +;;;### (autoloads (tpu-set-cursor-bound tpu-set-cursor-free tpu-set-scroll-margins) "tpu-extras" "emulators/tpu-extras.el") + +(autoload 'tpu-set-scroll-margins "tpu-extras" "\ +Set scroll margins." t nil) + +(autoload 'tpu-set-cursor-free "tpu-extras" "\ +Allow the cursor to move freely about the screen." t nil) + +(autoload 'tpu-set-cursor-bound "tpu-extras" "\ +Constrain the cursor to the flow of the text." t nil) + +;;;*** + +;;;### (autoloads (wordstar-mode) "ws-mode" "emulators/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-horizontally + C-o wo other-window + C-o wv split-window-vertically + + 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 +" t nil) + +;;;*** + +;;;### (autoloads nil "loaddefs-eos" "eos/loaddefs-eos.el") + +;;;*** + +;;;### (autoloads (blackbox) "blackbox" "games/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." t nil) + +;;;*** + +;;;### (autoloads (conx-load conx conx-region conx-buffer) "conx" "games/conx.el") + +(autoload 'conx-buffer "conx" "\ +Absorb the text in the current buffer into the tree." t nil) + +(autoload 'conx-region "conx" "\ +Absorb the text in the current region into the tree." t nil) + +(autoload 'conx "conx" "\ +Generate some random sentences in the *conx* buffer." t nil) + +(autoload 'conx-load "conx" "\ +Load in a CONX database written by the \\[conx-save] command. +This clears the database currently in memory." t nil) + +;;;*** + +;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie) "cookie1" "games/cookie1.el") + +(autoload 'cookie "cookie1" "\ +Return a random phrase from PHRASE-FILE. When the phrase file +is read in, display STARTMSG at beginning of load, ENDMSG at end." 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 beginning of load, ENDMSG at end." 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." nil nil) + +(autoload 'shuffle-vector "cookie1" "\ +Randomly permute the elements of VECTOR (all permutations equally likely)" nil nil) + +;;;*** + +;;;### (autoloads (dissociated-press) "dissociate" "games/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." t nil) + +;;;*** + +;;;### (autoloads (doctor) "doctor" "games/doctor.el") + +(autoload 'doctor "doctor" "\ +Switch to *doctor* buffer and start giving psychotherapy." t nil) + +;;;*** + +;;;### (autoloads (dunnet) "dunnet" "games/dunnet.el") + +(autoload 'dunnet "dunnet" "\ +Switch to *dungeon* buffer and start game." t nil) + +;;;*** + +;;;### (autoloads (flame) "flame" "games/flame.el") + +(autoload 'flame "flame" "\ +Generate ARG (default 1) sentences of half-crazed gibberish." t nil) + +;;;*** + +;;;### (autoloads (gomoku) "gomoku" "games/gomoku.el") + +(autoload 'gomoku "gomoku" "\ +Start a Gomoku game between you and Emacs. +If a game is in progress, this command allow you to resume it. +If optional arguments N and M are given, an N by M board is used. + +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]. +Use \\[describe-mode] for more info." t nil) + +;;;*** + +;;;### (autoloads (hanoi) "hanoi" "games/hanoi.el") + +(autoload 'hanoi "hanoi" "\ +Towers of Hanoi diversion. Argument is number of rings." t nil) + +;;;*** + +;;;### (autoloads (life) "life" "games/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)." t nil) + +;;;*** + +;;;### (autoloads (mpuz) "mpuz" "games/mpuz.el") + +(autoload 'mpuz "mpuz" "\ +Multiplication puzzle with GNU Emacs." t nil) + +;;;*** + +;;;### (autoloads (snarf-spooks spook) "spook" "games/spook.el") + +(autoload 'spook "spook" "\ +Adds that special touch of class to your outgoing mail." t nil) + +(autoload 'snarf-spooks "spook" "\ +Return a vector containing the lines from `spook-phrases-file'." nil nil) + +;;;*** + +;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism yow) "yow" "games/yow.el") + +(autoload 'yow "yow" "\ +Return or display a random Zippy quotation. With prefix arg, insert it." t nil) + +(autoload 'insert-zippyism "yow" "\ +Prompt with completion for a known Zippy quotation, and insert it at point." t nil) + +(autoload 'apropos-zippy "yow" "\ +Return a list of all Zippy quotes matching REGEXP. +If called interactively, display a list of matches." t nil) + +(autoload 'psychoanalyze-pinhead "yow" "\ +Zippy goes to the analyst." t nil) + +;;;*** + +;;;### (autoloads (gnus-earcon-display) "earcon" "gnus/earcon.el") + +(autoload 'gnus-earcon-display "earcon" "\ +Play sounds in message buffers." t nil) + +;;;*** + +;;;### (autoloads (gnus-cache-generate-nov-databases gnus-cache-generate-active gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el") + +(autoload 'gnus-jog-cache "gnus-cache" "\ +Go through all groups and put the articles into the cache." t nil) + +(autoload 'gnus-cache-generate-active "gnus-cache" "\ +Generate the cache active file." t nil) + +(autoload 'gnus-cache-generate-nov-databases "gnus-cache" "\ +Generate NOV files recursively starting in DIR." t nil) + +;;;*** + +;;;### (autoloads (gnus-sound-play) "gnus-sound" "gnus/gnus-sound.el") + +(autoload 'gnus-sound-play "gnus-sound" "\ +Play a sound through the speaker." t nil) + +;;;*** + +;;;### (autoloads (gnus-batch-brew-soup) "gnus-soup" "gnus/gnus-soup.el") + +(autoload 'gnus-batch-brew-soup "gnus-soup" "\ +Brew a SOUP packet from groups mention on the command line. +Will use the remaining command line arguments as regular expressions +for matching on group names. + +For instance, if you want to brew on all the nnml groups, as well as +groups with \"emacs\" in the name, you could say something like: + +$ emacs -batch -f gnus-batch-brew-soup ^nnml \".*emacs.*\"" t nil) + +;;;*** + +;;;### (autoloads (gnus-batch-score gnus-fetch-group gnus gnus-other-frame gnus-slave gnus-no-server gnus-slave-no-server gnus-add-configuration gnus-update-format) "gnus" "gnus/gnus.el") + +(autoload 'gnus-update-format "gnus" "\ +Update the format specification near point." t nil) + +(autoload 'gnus-add-configuration "gnus" "\ +Add the window configuration CONF to `gnus-buffer-configuration'." nil nil) + +(autoload 'gnus-slave-no-server "gnus" "\ +Read network news as a slave, without connecting to local server" 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." t nil) + +(autoload 'gnus-slave "gnus" "\ +Read news as a slave." t nil) + +(autoload 'gnus-other-frame "gnus" "\ +Pop up a frame to read news." 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." t nil) + +(autoload 'gnus-fetch-group "gnus" "\ +Start Gnus if necessary and enter GROUP. +Returns whether the fetching was successful or not." t nil) + +(defalias 'gnus-batch-kill 'gnus-batch-score) + +(autoload 'gnus-batch-score "gnus" "\ +Run batched scoring. +Usage: emacs -batch -l gnus -f gnus-batch-score <newsgroups> ... +Newsgroups is a list of strings in Bnews format. If you want to score +the comp hierarchy, you'd say \"comp.all\". If you would not like to +score the alt hierarchy, you'd say \"!alt.all\"." t nil) + +;;;*** + +;;;### (autoloads (unbold-region bold-region message-news-other-frame message-news-other-window message-mail-other-frame message-mail-other-window message-bounce message-resend 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") + +(defvar message-fcc-handler-function 'rmail-output "\ +*A function called to save outgoing articles. +This function will be called with the name of the file to store the +article in. The default function is `rmail-output' which saves in Unix +mailbox format.") + +(defvar message-courtesy-message "The following message is a courtesy copy of an article\nthat has been posted as well.\n\n" "\ +*This is inserted at the start of a mailed copy of a posted message. +If this variable is nil, no such courtesy message will be added.") + +(defvar message-ignored-bounced-headers "^\\(Received\\|Return-Path\\):" "\ +*Regexp that matches headers to be removed in resent bounced mail.") + +(defvar message-from-style 'default "\ +*Specifies how \"From\" headers 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.") + +(defvar message-syntax-checks nil "\ +Controls what syntax checks should not be performed on outgoing posts. +To disable checking of long signatures, for instance, add + `(signature . disabled)' to this list. + +Don't touch this variable unless you really know what you're doing. + +Checks include subject-cmsg multiple-headers sendsys message-id from +long-lines control-chars size new-text redirected-followup signature +approved sender empty empty-headers message-id from subject.") + +(defvar message-required-news-headers '(From Newsgroups Subject Date Message-ID (optional . Organization) Lines (optional . X-Newsreader)) "\ +*Headers to be generated or prompted for when posting an article. +RFC977 and RFC1036 require From, Date, Newsgroups, Subject, +Message-ID. Organization, Lines, In-Reply-To, Expires, and +X-Newsreader are optional. If don't you want message to insert some +header, remove it from this list.") + +(defvar message-required-mail-headers '(From Subject Date (optional . In-Reply-To) Message-ID Lines (optional . X-Mailer)) "\ +*Headers to be generated or prompted for when mailing a message. +RFC822 required that From, Date, To, Subject and Message-ID be +included. Organization, Lines and X-Mailer are optional.") + +(defvar message-deletable-headers '(Message-ID Date) "\ +*Headers to be deleted if they already exist and were generated by message previously.") + +(defvar message-ignored-news-headers "^NNTP-Posting-Host:\\|^Xref:\\|^Bcc:\\|^Gcc:\\|^Fcc:" "\ +*Regexp of headers to be removed unconditionally before posting.") + +(defvar message-ignored-mail-headers "^Gcc:\\|^Fcc:" "\ +*Regexp of headers to be removed unconditionally before mailing.") + +(defvar message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|Return-Path:\\|^Supersedes:" "\ +*Header lines matching this regexp will be deleted before posting. +It's best to delete old Path and Date headers before posting to avoid +any confusion.") + +(defvar message-signature-separator "^-- *$" "\ +Regexp matching the signature separator.") + +(defvar message-interactive nil "\ +Non-nil means when sending a message wait for and display errors. +nil means let mailer mail back a message to report errors.") + +(defvar message-generate-new-buffers t "\ +*Non-nil means that a new message buffer will be created whenever `mail-setup' is called. +If this is a function, call that function with three parameters: The type, +the to address and the group name. (Any of these may be nil.) The function +should return the new buffer name.") + +(defvar message-kill-buffer-on-exit nil "\ +*Non-nil means that the message buffer will be killed after sending a message.") + +(defvar message-user-organization-file "/usr/lib/news/organization" "\ +*Local news organization file.") + +(defvar message-signature-before-forwarded-message t "\ +*If non-nil, put the signature before any included forwarded message.") + +(defvar message-included-forward-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-\\|^Message-ID:\\|^References:" "\ +*Regexp matching headers to be included in forwarded messages.") + +(defvar message-ignored-resent-headers "^Return-receipt" "\ +*All headers that match this regexp will be deleted when resending a message.") + +(defvar message-ignored-cited-headers "." "\ +Delete these headers from the messages you yank.") + +(defvar message-send-mail-function 'message-send-mail-with-sendmail "\ +Function to call to send the current buffer as mail. +The headers should be delimited by a line whose contents match the +variable `mail-header-separator'. + +Legal values include `message-send-mail-with-mh' and +`message-send-mail-with-sendmail', which is the default.") + +(defvar message-send-news-function 'message-send-news "\ +Function to call to send the current buffer as news. +The headers should be delimited by a line whose contents match the +variable `mail-header-separator'.") + +(defvar message-reply-to-function nil "\ +Function that should return a list of headers. +This function should pick out addresses from the To, Cc, and From headers +and respond with new To and Cc headers.") + +(defvar message-wide-reply-to-function nil "\ +Function that should return a list of headers. +This function should pick out addresses from the To, Cc, and From headers +and respond with new To and Cc headers.") + +(defvar message-followup-to-function nil "\ +Function that should return a list of headers. +This function should pick out addresses from the To, Cc, and From headers +and respond with new To and Cc headers.") + +(defvar message-use-followup-to 'ask "\ +*Specifies what to do with Followup-To header. +If nil, ignore the header. If it is t, use its value, but query before +using the \"poster\" value. If it is the symbol `ask', query the user +whether to ignore the \"poster\" value. If it is the symbol `use', +always use the value.") + +(defvar message-post-method (cond ((and (boundp 'gnus-post-method) gnus-post-method) gnus-post-method) ((boundp 'gnus-select-method) gnus-select-method) (t '(nnspool ""))) "\ +Method used to post news.") + +(defvar message-generate-headers-first nil "\ +*If non-nil, generate all possible headers before composing.") + +(defvar message-citation-line-function 'message-insert-citation-line "\ +*Function called to insert the \"Whomever writes:\" line.") + +(defvar message-yank-prefix "> " "\ +*Prefix inserted on the lines of yanked messages. +nil means use indentation.") + +(defvar message-cite-function 'message-cite-original "\ +*Function for citing an original message.") + +(defvar message-indent-citation-function 'message-indent-citation "\ +*Function for modifying a citation just inserted in the mail buffer. +This can also be a list of functions. Each function can find the +citation between (point) and (mark t). And each function should leave +point and mark around the citation text as modified.") + +(defvar message-signature t "\ +*String to be inserted at the end of the message buffer. +If t, the `message-signature-file' file will be inserted instead. +If a function, the result from the function will be used instead. +If a form, the result from the form will be used instead.") + +(defvar message-signature-file "~/.signature" "\ +*File containing the text inserted at end of message. buffer.") + +(defvar message-default-headers nil "\ +*A string containing header lines to be inserted in outgoing messages. +It is inserted before you edit the message, so you can edit or delete +these lines.") + +(defvar message-default-mail-headers nil "\ +*A string of header lines to be inserted in outgoing mails.") + +(defvar message-default-news-headers nil "\ +*A string of header lines to be inserted in outgoing news articles.") + +(autoload 'message-mode "message" "\ +Major mode for editing mail and news to be sent. +Like Text Mode but with these additional commands: +C-c C-s message-send (send the message) C-c C-c message-send-and-exit +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-f 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 Followup-To +C-c C-t message-insert-to (add a To header to a news followup) +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-r message-ceasar-buffer-body (rot13 the message body)." t nil) + +(autoload 'message-mail "message" "\ +Start editing a mail message to be sent." t nil) + +(autoload 'message-news "message" "\ +Start editing a news article to be sent." t nil) + +(autoload 'message-reply "message" "\ +Start editing a reply to the article in the current buffer." t nil) + +(autoload 'message-wide-reply "message" nil t nil) + +(autoload 'message-followup "message" nil t nil) + +(autoload 'message-cancel-news "message" "\ +Cancel an article you posted." 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." t nil) + +(autoload 'message-recover "message" "\ +Reread contents of current buffer from its last auto-save file." t nil) + +(autoload 'message-forward "message" "\ +Forward the current message via mail. +Optional NEWS will use news to forward instead of mail." t nil) + +(autoload 'message-resend "message" "\ +Resend the current article to ADDRESS." t nil) + +(autoload 'message-bounce "message" "\ +Re-mail the current message. +This only makes sense if the current message is a bounce message than +contains some mail you have written which has been bounced back to +you." t nil) + +(autoload 'message-mail-other-window "message" "\ +Like `message-mail' command, but display mail buffer in another window." t nil) + +(autoload 'message-mail-other-frame "message" "\ +Like `message-mail' command, but display mail buffer in another frame." t nil) + +(autoload 'message-news-other-window "message" "\ +Start editing a news article to be sent." t nil) + +(autoload 'message-news-other-frame "message" "\ +Start editing a news article to be sent." t nil) + +(autoload '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." t nil) + +(autoload '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." t nil) + +;;;*** + +;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el") + +(autoload 'nnfolder-generate-active-file "nnfolder" "\ +Look for mbox folders in the nnfolder directory and make them into groups." t nil) + +;;;*** + +;;;### (autoloads (nnkiboze-generate-groups) "nnkiboze" "gnus/nnkiboze.el") + +(autoload 'nnkiboze-generate-groups "nnkiboze" "\ +Usage: emacs -batch -l nnkiboze -f nnkiboze-generate-groups +Finds out what articles are to be part of the nnkiboze groups." t nil) + +;;;*** + +;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el") + +(autoload 'nnml-generate-nov-databases "nnml" "\ +Generate nov databases in all nnml directories." t nil) + +;;;*** + +;;;### (autoloads (nnsoup-revert-variables nnsoup-set-variables nnsoup-pack-replies) "nnsoup" "gnus/nnsoup.el") + +(autoload 'nnsoup-pack-replies "nnsoup" "\ +Make an outbound package of SOUP replies." t nil) + +(autoload 'nnsoup-set-variables "nnsoup" "\ +Use the SOUP methods for posting news and mailing mail." t nil) + +(autoload 'nnsoup-revert-variables "nnsoup" "\ +Revert posting and mailing methods to the standard Emacs methods." t nil) + +;;;*** + +;;;### (autoloads (gnus-score-mode) "score-mode" "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}" t nil) + +;;;*** + +;;;### (autoloads (gnus-smiley-display smiley-buffer smiley-region) "smiley" "gnus/smiley.el") + +(autoload 'smiley-region "smiley" "\ +Smilify the region between point and mark." t nil) + +(autoload 'smiley-buffer "smiley" nil t nil) + +(autoload 'gnus-smiley-display "smiley" nil t nil) + +;;;*** + +;;;### (autoloads (hm--html-minor-mode hm--html-mode) "hm--html-mode" "hm--html-menus/hm--html-mode.el") + +(autoload 'hm--html-mode "hm--html-mode" "\ +Major mode for editing HTML hypertext documents. +Special commands:\\{hm--html-mode-map} +Turning on hm--html-mode calls the value of the variable hm--html-mode-hook, +if that value is non-nil." t nil) + +(autoload 'hm--html-minor-mode "hm--html-mode" "\ +Toggle hm--html-minor-mode. +With arg, turn hm--html-minor-mode on iff arg is positive." t nil) + +;;;*** + +;;;### (autoloads (html-view-get-display html-view-goto-url html-view-view-buffer html-view-view-file html-view-start-mosaic) "html-view" "hm--html-menus/html-view.el") + +(autoload 'html-view-start-mosaic "html-view" "\ +Start Mosaic." t nil) + +(autoload 'html-view-view-file "html-view" "\ +View an html file with Mosaic." t nil) + +(autoload 'html-view-view-buffer "html-view" "\ +View html buffer with Mosaic. +If BUFFER-TO-VIEW is nil, then the current buffer is used." t nil) + +(autoload 'html-view-goto-url "html-view" "\ +Goto an URL in Mosaic." t nil) + +(autoload 'html-view-get-display "html-view" "\ +Get the display for Mosaic." t nil) + +;;;*** + +;;;### (autoloads (hmail:compose) "hmail" "hyperbole/hmail.el") + +(autoload 'hmail:compose "hmail" "\ +Compose mail with ADDRESS and evaluation of EXPR. +Optional SUBJECT and HELP message may also be given." t nil) + +;;;*** + +;;;### (autoloads (Info-handle-in-note smart-info-assist smart-info) "hmous-info" "hyperbole/hmous-info.el") + +(autoload 'smart-info "hmous-info" "\ +Walks through Info documentation networks using one key or mouse key. + +If key is pressed within: + (1) the first line of an Info Menu Entry or Cross Reference, the desired node + is found; + (2) the Up, Next, or Previous entries of a Node Header (first line), + the desired node is found; + (3) the File entry of a Node Header (first line), + the 'Top' node within that file is found; + (4) at the end of the current node, the Next node is found (this will + descend subtrees if the function 'Info-global-next' is bound); + (5) anywhere else (e.g. at the end of a line), the current node entry is + scrolled up one windowful. + +Returns t if key is pressed within an Info Node Header, Cross Reference, +or a Menu; otherwise returns nil." t nil) + +(autoload 'smart-info-assist "hmous-info" "\ +Walks through Info documentation networks using one assist-key or mouse assist-key. + +If assist-key is pressed within: + (1) the first line of an Info Menu Entry or Cross Reference, the desired node + is found; + (2) the Up, Next, or Previous entries of a Node Header (first line), + the last node in the history list is found; + (3) the File entry of a Node Header (first line), + the 'DIR' root-level node is found; + (4) at the end of the current node, the Previous node is found (this will + return from subtrees if the function 'Info-global-prev is bound); + (5) anywhere else (e.g. at the end of a line), the current node entry is + scrolled down one windowful. + +Returns t if assist-key is pressed within an Info Node Header, Cross Reference, +or a Menu; otherwise returns nil." t nil) + +(autoload 'Info-handle-in-note "hmous-info" "\ +Follows an Info cross-reference. +If point is within the first line of an Info note (cross-reference), follows +cross-reference and returns t; otherwise returns nil." nil nil) + +;;;*** + +;;;### (autoloads (smart-tags-file smart-tags-file-path smart-objc-oobr smart-objc smart-fortran-at-tag-p smart-c++-oobr smart-c++ smart-c-at-tag-p smart-asm-at-tag-p) "hmouse-tag" "hyperbole/hmouse-tag.el") + +(autoload 'smart-asm-at-tag-p "hmouse-tag" "\ +Return assembly tag name that point is within, else nil." nil nil) + +(autoload 'smart-c-at-tag-p "hmouse-tag" "\ +Return C tag name that point is within, else nil." nil nil) + +(autoload 'smart-c++ "hmouse-tag" "\ +Jumps to the definition of optional C++ IDENTIFIER or the one at point. +Optional second arg NEXT means jump to next matching C++ tag. + +It assumes that its caller has already checked that the key was pressed in an +appropriate buffer and has moved the cursor to the selected buffer. + +If: + (1) on a '#include' statement, the include file is displayed; + Look for include file in directory lists 'smart-c-cpp-include-dirs' + and 'smart-c-include-dirs'. + (2) on a C++ identifier, the identifier definition is displayed, + assuming the identifier is found within an 'etags' generated tag file + in the current directory or any of its ancestor directories. + (3) if 'smart-c-use-lib-man' is non-nil, the C++ identifier is + recognized as a library symbol, and a man page is found for the + identifier, then the man page is displayed." t nil) + +(autoload 'smart-c++-oobr "hmouse-tag" "\ +Jumps to the definition of selected C++ construct via OO-Browser support. +Optional JUNK is ignored. Does nothing if the OO-Browser is not available. + +It assumes that its caller has already checked that the key was pressed in an +appropriate buffer and has moved the cursor to the selected buffer. + +If key is pressed: + (1) on a '#include' statement, the include file is displayed; + Look for include file in directory lists 'smart-c-cpp-include-dirs' + and 'smart-c-include-dirs'. + (2) within a method declaration, its definition is displayed; + (3) on a class name, the class definition is shown. + + (2) and (3) require that an OO-Browser Environment has been loaded with + the {M-x br-env-load RTN} command." t nil) + +(autoload 'smart-fortran-at-tag-p "hmouse-tag" "\ +Return Fortran tag name that point is within, else nil." nil nil) + +(autoload 'smart-objc "hmouse-tag" "\ +Jumps to the definition of optional Objective-C IDENTIFIER or the one at point. +Optional second arg NEXT means jump to next matching Objective-C tag. + +It assumes that its caller has already checked that the key was pressed in an +appropriate buffer and has moved the cursor to the selected buffer. + +If: + (1) on a '#include' statement, the include file is displayed; + Look for include file in directory lists 'smart-c-cpp-include-dirs' + and 'smart-c-include-dirs'. + (2) on an Objective-C identifier, the identifier definition is displayed, + assuming the identifier is found within an 'etags' generated tag file + in the current directory or any of its ancestor directories. + (3) if 'smart-c-use-lib-man' is non-nil, the Objective-C identifier is + recognized as a library symbol, and a man page is found for the + identifier, then the man page is displayed." t nil) + +(autoload 'smart-objc-oobr "hmouse-tag" "\ +Jumps to the definition of selected Objective-C construct via OO-Browser support. +Optional JUNK is ignored. Does nothing if the OO-Browser is not available. + +It assumes that its caller has already checked that the key was pressed in an +appropriate buffer and has moved the cursor to the selected buffer. + +If key is pressed: + (1) on a '#include' statement, the include file is displayed; + Look for include file in directory lists 'smart-c-cpp-include-dirs' + and 'smart-c-include-dirs'. + (2) within a method declaration, its definition is displayed; + (3) on a class name, the class definition is shown. + + (2) and (3) require that an OO-Browser Environment has been loaded with + the {M-x br-env-load RTN} command." t nil) + +(autoload 'smart-tags-file-path "hmouse-tag" "\ +Expand relative FILE name by looking it up in the nearest tags file. +Return FILE unchanged if it exists relative to the current directory or +cannot be expanded via a tags file." nil nil) + +(autoload 'smart-tags-file "hmouse-tag" "\ +Return appropriate tags file name for CURR-FILENAME or 'tags-file-name'." nil nil) + +;;;*** + +;;;### (autoloads (var:append) "hvar" "hyperbole/hvar.el") + +(autoload 'var:append "hvar" "\ +Appends to value held by VAR-SYMBOL-NAME, LIST-TO-ADD. Returns new value. +If VAR-SYMBOL-NAME is unbound, it is set to LIST-TO-ADD. +Often used to append to 'hook' variables." nil nil) + +;;;*** + +;;;### (autoloads (hypb:configuration) "hypb" "hyperbole/hypb.el") + +(autoload 'hypb:configuration "hypb" "\ +Insert Emacs configuration information at the end of optional OUT-BUF or the current buffer." nil nil) + +;;;*** + +;;;### (autoloads nil "hyperbole" "hyperbole/hyperbole.el") + +(defvar action-key-url-function 'w3-fetch "\ +Value is a function of one argument, a url, which displays the url referent. +Possible values are: + w3-fetch - display using the W3 Emacs web browser; + highlight-headers-follow-url-netscape - display in Netscape; + highlight-headers-follow-url-mosaic - display in Mosaic.") + +(defvar kimport:mode-alist '((t . kimport:text) (outline-mode . kimport:star-outline)) "\ +Alist of (major-mode . importation-function) elements. +This determines the type of importation done on a file when `kimport:file' is +called if the major mode of the import file matches the car of an element in +this list. If there is no match, then `kimport:suffix-alist' is checked. If +that yields no match, the element in this list whose car is 't is used. It +normally does an import of a koutline or text file. + +Each importation-function must take two arguments, a buffer/file to import +and a buffer/file into which to insert the imported elements and a third +optional argument, CHILDREN-P, which when non-nil means insert imported cells +as the initial set of children of the current cell, if any. + + outline-mode - imported as an Emacs outline whose entries begin with + asterisks; + .kot + .kotl - imported as a structured koutline + + all others - imported as text.") + +(defvar kimport:suffix-alist '(("\\.otl$" . kimport:star-outline) ("\\.aug$" . kimport:aug-post-outline)) "\ +Alist of (buffer-name-suffix-regexp . importation-function) elements. +This determines the type of importation done on a file when `kimport:file' is +called. Each importation-function must take two arguments, a buffer/file to +import and a buffer/file into which to insert the imported elements and a +third optional argument, CHILDREN-P, which when non-nil means insert imported +cells as the initial set of children of the current cell, if any. + + .otl - imported as an Emacs outline whose entries begin with asterisks; + .kot + .kotl - imported as a structured koutline + .aug - imported as an Augment post-numbered outline.") + +;;;*** + +;;;### (autoloads (wconfig-yank-pop wconfig-ring-save wconfig-delete-pop wconfig-restore-by-name wconfig-delete-by-name wconfig-add-by-name) "wconfig" "hyperbole/wconfig.el") + +(autoload 'wconfig-add-by-name "wconfig" "\ +Saves the current window configuration under the string NAME. +When called interactively and a window configuration already exists under +NAME, confirms whether or not to replace it." t nil) + +(autoload 'wconfig-delete-by-name "wconfig" "\ +Deletes window configuration saved under NAME." t nil) + +(autoload 'wconfig-restore-by-name "wconfig" "\ +Restores window configuration saved under NAME." t nil) + +(autoload 'wconfig-delete-pop "wconfig" "\ +Replaces current window config with most recently saved config in ring. +Then deletes this new configuration from the ring." t nil) + +(autoload 'wconfig-ring-save "wconfig" "\ +Saves the current window configuration onto the save ring. +Use {\\[wconfig-yank-pop]} to restore it at a later time." t nil) + +(autoload 'wconfig-yank-pop "wconfig" "\ +Replaces current window config with prefix arg Nth prior one in save ring. +Interactively, default value of N = 1, meaning the last saved window +configuration is displayed. + +The sequence of window configurations wraps around, so that after the oldest +one comes the newest one." t nil) + +;;;*** + +;;;### (autoloads (rolo-logic) "wrolo-logic" "hyperbole/wrolo-logic.el") + +(autoload 'rolo-logic "wrolo-logic" "\ +Apply FUNC to all entries in optional IN-BUFS, display entries where FUNC is non-nil. +If IN-BUFS is nil, 'rolo-file-list' is used. If optional COUNT-ONLY is +non-nil, don't display entries, return count of matching entries only. If +optional INCLUDE-SUB-ENTRIES flag is non-nil, FUNC will be applied across all +sub-entries at once. Default is to apply FUNC to each entry and sub-entry +separately. Entries are displayed with all of their sub-entries unless +INCLUDE-SUB-ENTRIES is nil and optional NO-SUB-ENTRIES-OUT flag is non-nil. +FUNC should use the free variables 'start' and 'end' which contain the limits +of the region on which it should operate. Returns number of applications of +FUNC that return non-nil." t nil) + +;;;*** + +;;;### (autoloads (rolo-yank rolo-sort rolo-kill rolo-grep rolo-fgrep rolo-edit rolo-display-matches rolo-add) "wrolo" "hyperbole/wrolo.el") + +(autoload 'rolo-add "wrolo" "\ +Adds a new entry in personal rolodex for NAME. +Last name first is best, e.g. \"Smith, John\". +With prefix argument, prompts for optional FILE to add entry within. +NAME may be of the form: parent/child to insert child below a parent +entry which begins with the parent string." t nil) + +(autoload 'rolo-display-matches "wrolo" "\ +Display optional DISPLAY-BUF buffer of previously found rolodex matches. +If DISPLAY-BUF is nil, use the value in 'rolo-display-buffer'. +Second arg RETURN-TO-BUFFER is the buffer to leave point within after the display." t nil) + +(autoload 'rolo-edit "wrolo" "\ +Edits a rolodex entry given by optional NAME within 'rolo-file-list'. +With prefix argument, prompts for optional FILE to locate entry within. +With no NAME arg, simply displays FILE or first entry in 'rolo-file-list' in an +editable mode. NAME may be of the form: parent/child to edit child below a +parent entry which begins with the parent string." t nil) + +(autoload 'rolo-fgrep "wrolo" "\ +Display rolodex entries matching STRING. +To a maximum of optional prefix arg MAX-MATCHES, in file(s) from optional +ROLO-FILE or rolo-file-list. Default is to find all matching entries. Each +entry is displayed with all of its sub-entries. Optional COUNT-ONLY non-nil +means don't retrieve and don't display matching entries. Optional NO-DISPLAY +non-nil means retrieve entries but don't display. + +Nil value of MAX-MATCHES means find all matches, t value means find all matches +but omit file headers, negative values mean find up to the inverse of that +number of entries and omit file headers. + +Returns number of entries matched. See also documentation for the variable +rolo-file-list." t nil) + +(autoload 'rolo-grep "wrolo" "\ +Display rolodex entries matching REGEXP. +To a maximum of prefix arg MAX-MATCHES, in buffer(s) from optional ROLO-BUFS or +rolo-file-list. Default is to find all matching entries. Each entry is +displayed with all of its sub-entries. Optional COUNT-ONLY non-nil means don't +retrieve and don't display matching entries. Optional NO-DISPLAY non-nil +means retrieve entries but don't display. + +Nil value of MAX-MATCHES means find all matches, t value means find all matches +but omit file headers, negative values mean find up to the inverse of that +number of entries and omit file headers. + +Returns number of entries matched. See also documentation for the variable +rolo-file-list." t nil) + +(autoload 'rolo-kill "wrolo" "\ +Kills a rolodex entry given by NAME within 'rolo-file-list'. +With prefix argument, prompts for optional FILE to locate entry within. +NAME may be of the form: parent/child to kill child below a parent entry +which begins with the parent string. +Returns t if entry is killed, nil otherwise." t nil) + +(autoload 'rolo-sort "wrolo" "\ +Sorts up to 14 levels of entries in ROLO-FILE (default is personal rolo). +Assumes entries are delimited by one or more '*'characters. +Returns list of number of groupings at each entry level." t nil) + +(autoload 'rolo-yank "wrolo" "\ +Inserts at point the first rolodex entry matching NAME. +With optional prefix arg, REGEXP-P, treats NAME as a regular expression instead +of a string." t nil) + +;;;*** + +;;;### (autoloads (iso-accents-mode) "iso-acc" "iso/iso-acc.el") + +(autoload 'iso-accents-mode "iso-acc" "\ +Toggle ISO Accents mode, in which accents modify the following letter. +This permits easy insertion of accented characters according to ISO-8859-1. +When Iso-accents mode is enabled, accent character keys +\(`, ', \", ^, / and ~) do not self-insert; instead, they modify the following +letter key so that it inserts an ISO accented letter. + +You can customize ISO Accents mode to a particular language +with the command `iso-accents-customize'. + +Special combinations: ~c gives a c with cedilla, +~d gives an Icelandic eth (d with dash). +~t gives an Icelandic thorn. +\"s gives German sharp s. +/a gives a with ring. +/e gives an a-e ligature. +~< and ~> give guillemots. +~! gives an inverted exclamation mark. +~? gives an inverted question mark. + +With an argument, a positive argument enables ISO Accents mode, +and a negative argument disables it." t nil) + +;;;*** + +;;;### (autoloads (mc-deactivate-passwd mc-install-write-mode mc-install-read-mode) "mailcrypt" "mailcrypt/mailcrypt.el") + +(autoload 'mc-install-read-mode "mailcrypt" nil t nil) + +(autoload 'mc-install-write-mode "mailcrypt" nil t nil) + +(autoload 'mc-deactivate-passwd "mailcrypt" "\ +*Deactivate the passphrase cache." t nil) + +;;;*** + +;;;### (autoloads (mc-pgp-fetch-key mc-scheme-pgp) "mc-pgp" "mailcrypt/mc-pgp.el") + +(autoload 'mc-scheme-pgp "mc-pgp" nil nil nil) + +(autoload 'mc-pgp-fetch-key "mc-pgp" "\ +Attempt to fetch a key for addition to PGP keyring. Interactively, +prompt for string matching key to fetch. + +Non-interactively, ID must be a pair. The CAR must be a bare Email +address and the CDR a keyID (with \"0x\" prefix). Either, but not +both, may be nil. + +Return t if we think we were successful; nil otherwise. Note that nil +is not necessarily an error, since we may have merely fired off an Email +request for the key." t nil) + +;;;*** + +;;;### (autoloads (mc-remailer-insert-response-block mc-remailer-encrypt-for-chain mc-remailer-insert-pseudonym) "mc-remail" "mailcrypt/mc-remail.el") + +(autoload 'mc-remailer-insert-pseudonym "mc-remail" "\ +Insert pseudonym as a From field in the hash-mark header. + +See the documentation for the variable `mc-remailer-pseudonyms' for +more information." t nil) + +(autoload 'mc-remailer-encrypt-for-chain "mc-remail" "\ +Encrypt message for a remailer chain, prompting for chain to use. + +With \\[universal-argument], pause before each encryption." t nil) + +(autoload 'mc-remailer-insert-response-block "mc-remail" "\ +Insert response block at point, prompting for chain to use. + +With \\[universal-argument], enter a recursive edit of the innermost +layer of the block before encrypting it." t nil) + +;;;*** + +;;;### (autoloads (mc-mh-snarf-keys mc-mh-verify-signature mc-mh-decrypt-message mc-gnus-decrypt-message mc-gnus-snarf-keys mc-gnus-verify-signature mc-vm-snarf-keys mc-vm-decrypt-message mc-vm-verify-signature mc-rmail-decrypt-message mc-rmail-verify-signature mc-rmail-summary-snarf-keys mc-rmail-summary-decrypt-message mc-rmail-summary-verify-signature mc-snarf-keys mc-snarf mc-insert-public-key mc-verify-signature mc-verify mc-sign-message mc-sign mc-decrypt-message mc-decrypt mc-encrypt-message mc-encrypt mc-cleanup-recipient-headers) "mc-toplev" "mailcrypt/mc-toplev.el") + +(autoload 'mc-cleanup-recipient-headers "mc-toplev" nil nil nil) + +(autoload 'mc-encrypt "mc-toplev" "\ +*Encrypt the current buffer. + +Exact behavior depends on current major mode. + +With \\[universal-argument], prompt for User ID to sign as. + +With \\[universal-argument] \\[universal-argument], prompt for encryption scheme to use." t nil) + +(autoload 'mc-encrypt-message "mc-toplev" "\ +*Encrypt a message for RECIPIENTS using the given encryption SCHEME. +RECIPIENTS is a comma separated string. If SCHEME is nil, use the value +of `mc-default-scheme'. Returns t on success, nil otherwise." nil nil) + +(autoload 'mc-decrypt "mc-toplev" "\ +*Decrypt a message in the current buffer. + +Exact behavior depends on current major mode." t nil) + +(autoload 'mc-decrypt-message "mc-toplev" "\ +Decrypt whatever message is in the current buffer. +Returns a pair (SUCCEEDED . VERIFIED) where SUCCEEDED is t if the encryption +succeeded and VERIFIED is t if it had a valid signature." nil nil) + +(autoload 'mc-sign "mc-toplev" "\ +*Sign a message in the current buffer. + +Exact behavior depends on current major mode. + +With one prefix arg, prompts for private key to use, with two prefix args, +also prompts for encryption scheme to use. With negative prefix arg, +inhibits clearsigning (pgp)." t nil) + +(autoload 'mc-sign-message "mc-toplev" "\ +Clear sign the message." nil nil) + +(autoload 'mc-verify "mc-toplev" "\ +*Verify a message in the current buffer. + +Exact behavior depends on current major mode." t nil) + +(autoload 'mc-verify-signature "mc-toplev" "\ +*Verify the signature of the signed message in the current buffer. +Show the result as a message in the minibuffer. Returns t if the signature +is verified." nil nil) + +(autoload 'mc-insert-public-key "mc-toplev" "\ +*Insert your public key at point. +With one prefix arg, prompts for user id to use. With two prefix +args, prompts for encryption scheme." t nil) + +(autoload 'mc-snarf "mc-toplev" "\ +*Add all public keys in the buffer to your keyring. + +Exact behavior depends on current major mode." t nil) + +(autoload 'mc-snarf-keys "mc-toplev" "\ +*Add all public keys in the buffer to your keyring." t nil) + +(autoload 'mc-rmail-summary-verify-signature "mc-toplev" "\ +*Verify the signature in the current message." t nil) + +(autoload 'mc-rmail-summary-decrypt-message "mc-toplev" "\ +*Decrypt the contents of this message" t nil) + +(autoload 'mc-rmail-summary-snarf-keys "mc-toplev" "\ +*Adds keys from current message to public key ring" t nil) + +(autoload 'mc-rmail-verify-signature "mc-toplev" "\ +*Verify the signature in the current message." t nil) + +(autoload 'mc-rmail-decrypt-message "mc-toplev" "\ +*Decrypt the contents of this message" t nil) + +(autoload 'mc-vm-verify-signature "mc-toplev" "\ +*Verify the signature in the current VM message" t nil) + +(autoload 'mc-vm-decrypt-message "mc-toplev" "\ +*Decrypt the contents of the current VM message" t nil) + +(autoload 'mc-vm-snarf-keys "mc-toplev" "\ +*Snarf public key from the contents of the current VM message" t nil) + +(autoload 'mc-gnus-verify-signature "mc-toplev" nil t nil) + +(autoload 'mc-gnus-snarf-keys "mc-toplev" nil t nil) + +(autoload 'mc-gnus-decrypt-message "mc-toplev" nil t nil) + +(autoload 'mc-mh-decrypt-message "mc-toplev" "\ +Decrypt the contents of the current MH message in the show buffer." t nil) + +(autoload 'mc-mh-verify-signature "mc-toplev" "\ +*Verify the signature in the current MH message." t nil) + +(autoload 'mc-mh-snarf-keys "mc-toplev" nil t nil) + +;;;*** + +;;;### (autoloads (mh-letter-mode mh-smail-other-window mh-smail-batch mh-smail) "mh-comp" "mh-e/mh-comp.el") + +(autoload 'mh-smail "mh-comp" "\ +Compose and send mail with the MH mail system. +This function is an entry point to mh-e, the Emacs front end +to the MH mail system. + +See documentation of `\\[mh-send]' for more details on composing mail." t nil) + +(autoload 'mh-smail-batch "mh-comp" "\ +Set up a mail composition draft with the MH mail system. +This function is an entry point to mh-e, the Emacs front end +to 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." nil nil) + +(autoload 'mh-smail-other-window "mh-comp" "\ +Compose and send mail in other window with the MH mail system. +This function is an entry point to mh-e, the Emacs front end +to the MH mail system. + +See documentation of `\\[mh-send]' for more details on composing mail." t nil) + +(autoload 'mh-letter-mode "mh-comp" "\ +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. +See the documentation for \\[mh-edit-mhn] for information on composing MIME +messages. + +\\{mh-letter-mode-map} + +Variables controlling this mode (defaults in parentheses): + + mh-delete-yanked-msg-window (nil) + If non-nil, \\[mh-yank-cur-msg] will delete any windows displaying + the yanked message. + + mh-yank-from-start-of-msg (t) + If non-nil, \\[mh-yank-cur-msg] will include the entire message. + If `body', just yank the body (no header). + If nil, only the portion of the message following the point will be yanked. + If there is a region, this variable is ignored. + + mh-ins-buf-prefix (\"> \") + String to insert before each non-blank line of a message as it is + inserted in a draft letter. + + mh-signature-file-name (\"~/.signature\") + File to be inserted into message by \\[mh-insert-signature]. + +Upon invoking mh-letter-mode, text-mode-hook and mh-letter-mode-hook are +invoked with no args, if those values are non-nil." t nil) + +;;;*** + +;;;### (autoloads (mh-version mh-rmail) "mh-e" "mh-e/mh-e.el") + +(autoload 'mh-rmail "mh-e" "\ +Inc(orporate) new mail with MH, or, with arg, scan an MH mail folder. +This function is an entry point to mh-e, the Emacs front end +to the MH mail system." t nil) + +(autoload 'mh-version "mh-e" "\ +Display version information about mh-e and the MH mail handling system." t nil) + +;;;*** + +;;;### (autoloads nil "mh-mime" "mh-e/mh-mime.el") + +(defvar mh-mime-content-types '(("text/plain") ("text/richtext") ("multipart/mixed") ("multipart/alternative") ("multipart/digest") ("multipart/parallel") ("message/rfc822") ("message/partial") ("message/external-body") ("application/octet-stream") ("application/postscript") ("image/jpeg") ("image/gif") ("audio/basic") ("video/mpeg")) "\ +Legal MIME content types. See documentation for \\[mh-edit-mhn].") + +;;;*** + +;;;### (autoloads nil "mh-utils" "mh-e/mh-utils.el") + +(put 'mh-progs 'risky-local-variable t) + +(put 'mh-lib 'risky-local-variable t) + +;;;*** + +;;;### (autoloads nil "abbrev" "modes/abbrev.el") + +;;;*** + +;;;### (autoloads (ada-make-filename-from-adaname ada-mode) "ada-mode" "modes/ada-mode.el") + +(autoload 'ada-mode "ada-mode" "\ +Ada Mode is the major mode for editing Ada code. + +Bindings are as follows: (Note: 'LFD' is control-j.) + + Indent line '\\[ada-tab]' + Indent line, insert newline and indent the new line. '\\[newline-and-indent]' + + Re-format the parameter-list point is in '\\[ada-format-paramlist]' + Indent all lines in region '\\[ada-indent-region]' + Call external pretty printer program '\\[ada-call-pretty-printer]' + + Adjust case of identifiers and keywords in region '\\[ada-adjust-case-region]' + Adjust case of identifiers and keywords in buffer '\\[ada-adjust-case-buffer]' + + Call EXTERNAL pretty printer (if you have one) '\\[ada-call-pretty-printer]' + + Fill comment paragraph '\\[ada-fill-comment-paragraph]' + Fill comment paragraph and justify each line '\\[ada-fill-comment-paragraph-justify]' + Fill comment paragraph, justify and append postfix '\\[ada-fill-comment-paragraph-postfix]' + + Next func/proc/task '\\[ada-next-procedure]' Previous func/proc/task '\\[ada-previous-procedure]' + Next package '\\[ada-next-package]' Previous package '\\[ada-previous-package]' + + Goto matching start of current 'end ...;' '\\[ada-move-to-start]' + Goto end of current block '\\[ada-move-to-end]' + +Comments are handled using standard GNU Emacs conventions, including: + Start a comment '\\[indent-for-comment]' + Comment region '\\[comment-region]' + Uncomment region '\\[ada-uncomment-region]' + Continue comment on next line '\\[indent-new-comment-line]' + +If you use imenu.el: + Display index-menu of functions & procedures '\\[imenu]' + +If you use find-file.el: + Switch to other file (Body <-> Spec) '\\[ff-find-other-file]' + or '\\[ff-mouse-find-other-file] + Switch to other file in other window '\\[ada-ff-other-window]' + or '\\[ff-mouse-find-other-file-other-window] + If you use this function in a spec and no body is available, it gets created + with body stubs. + +If you use ada-xref.el: + Goto declaration: '\\[ada-point-and-xref]' on the identifier + or '\\[ada-goto-declaration]' with point on the identifier + Complete identifier: '\\[ada-complete-identifier]' + Execute Gnatf: '\\[ada-gnatf-current]'" t nil) + +(autoload 'ada-make-filename-from-adaname "ada-mode" "\ +Determine the filename of a package/procedure from its own Ada name." t nil) + +;;;*** + +;;;### (autoloads (archive-mode) "arc-mode" "modes/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}" nil nil) + +;;;*** + +;;;### (autoloads (asm-mode) "asm-mode" "modes/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} +" t nil) + +;;;*** + +;;;### (autoloads (awk-mode) "awk-mode" "modes/awk-mode.el") + +(autoload 'awk-mode "awk-mode" "\ +Major mode for editing AWK code. +This is much like C mode except for the syntax of comments. It uses +the same keymap as C mode and has the same variables for customizing +indentation. It has its own abbrev table and its own syntax table. + +Turning on AWK mode calls the value of the variable `awk-mode-hook' +with no args, if that value is non-nil." t nil) + +;;;*** + +;;;### (autoloads (bibtex-mode) "bibtex" "modes/bibtex.el") + +(autoload 'bibtex-mode "bibtex" "\ +Major mode for editing bibtex files. + +\\{bibtex-mode-map} + +A command such as \\[bibtex-Book] will outline the fields for a BibTeX book entry. + +The optional fields start with the string OPT, and thus ignored by BibTeX. +The OPT string may be removed from a field with \\[bibtex-remove-OPT]. +\\[bibtex-kill-optional-field] kills the current optional field entirely. +\\[bibtex-remove-double-quotes] removes the double-quotes around the text of +the current field. \\[bibtex-empty-field] replaces the text of the current +field with the default \"\". + +The command \\[bibtex-clean-entry] cleans the current entry, i.e. (i) removes +double-quotes from entirely numerical fields, (ii) removes OPT from all +non-empty optional fields, (iii) removes all empty optional fields, and (iv) +checks that no non-optional fields are empty. + +Use \\[bibtex-find-text] to position the dot at the end of the current field. +Use \\[bibtex-next-field] to move to end of the next field. + +The following may be of interest as well: + + Functions: + find-bibtex-duplicates + find-bibtex-entry-location + hide-bibtex-entry-bodies + sort-bibtex-entries + validate-bibtex-buffer + + Variables: + bibtex-clean-entry-zap-empty-opts + bibtex-entry-field-alist + bibtex-include-OPTannote + bibtex-include-OPTcrossref + bibtex-include-OPTkey + bibtex-maintain-sorted-entries + bibtex-mode-user-optional-fields + +Fields: + address + Publisher's address + annote + Long annotation used for annotated bibliographies (begins sentence) + author + Name(s) of author(s), in BibTeX name format + booktitle + Book title when the thing being referenced isn't the whole book. + For book entries, the title field should be used instead. + chapter + Chapter number + crossref + The database key of the entry being cross referenced. + edition + Edition of a book (e.g., \"second\") + editor + Name(s) of editor(s), in BibTeX name format. + If there is also an author field, then the editor field should be + for the book or collection that the work appears in + howpublished + How something strange has been published (begins sentence) + institution + Sponsoring institution + journal + Journal name (macros are provided for many) + key + Alphabetizing and labeling key (needed when no author or editor) + month + Month (macros are provided) + note + To help the reader find a reference (begins sentence) + number + Number of a journal or technical report + organization + Organization (sponsoring a conference) + pages + Page number or numbers (use `--' to separate a range) + publisher + Publisher name + school + School name (for theses) + series + The name of a series or set of books. + An individual book will also have its own title + title + The title of the thing being referenced + type + Type of a technical report (e.g., \"Research Note\") to be used + instead of the default \"Technical Report\" + volume + Volume of a journal or multivolume work + year + Year---should contain only numerals +--------------------------------------------------------- +Entry to this mode calls the value of bibtex-mode-hook if that value is +non-nil." t nil) + +;;;*** + +;;;### (autoloads (c-set-style java-mode objc-mode c++-mode c-mode) "cc-mode" "modes/cc-mode.el") + +(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 variable `c-mode-hook' is run with no args, if that value is +bound and has a non-nil value. Also the hook `c-mode-common-hook' is +run first. + +Key bindings: +\\{c-mode-map}" t nil) + +(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 variable `c++-mode-hook' is run with no args, if that +variable is bound and has a non-nil value. Also the hook +`c-mode-common-hook' is run first. + +Key bindings: +\\{c++-mode-map}" t nil) + +(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 variable `objc-mode-hook' is run with no args, if that value +is bound and has a non-nil value. Also the hook `c-mode-common-hook' +is run first. + +Key bindings: +\\{objc-mode-map}" t nil) + +(autoload 'java-mode "cc-mode" "\ +Major mode for editing Java code. +To submit a problem report, enter `\\[c-submit-bug-report]' from an +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 variable `java-mode-hook' is run with no args, if that value +is bound and has a non-nil value. Also the common hook +`c-mode-common-hook' is run first. Note that this mode automatically +sets the \"java\" style before calling any hooks so be careful if you +set styles in `c-mode-common-hook'. + +Key bindings: +\\{java-mode-map}" t nil) + +(autoload 'c-set-style "cc-mode" "\ +Set cc-mode variables to use one of several different indentation styles. +STYLENAME is a string representing the desired style from the list of +styles described in the variable `c-style-alist'. See that variable +for details of setting up styles." t nil) + +(fset 'set-c-style 'c-set-style) + +;;;*** + +;;;### (autoloads (common-lisp-indent-function) "cl-indent" "modes/cl-indent.el") + +(autoload 'common-lisp-indent-function "cl-indent" nil nil nil) + +;;;*** + +;;;### (autoloads (c-macro-expand) "cmacexp" "modes/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. +Prompt for arguments to the preprocessor (e.g. `-DDEBUG -I ./include') +if the user option `c-macro-prompt-flag' is non-nil. + +Noninteractive args are START, END, SUBST. +For use inside Lisp programs, see also `c-macro-expansion'." t nil) + +;;;*** + +;;;### (autoloads (eiffel-mode) "eiffel3" "modes/eiffel3.el") + +(autoload 'eiffel-mode "eiffel3" "\ +Major mode for editing Eiffel programs." t nil) + +;;;*** + +;;;### (autoloads (enriched-decode enriched-encode enriched-mode) "enriched" "modes/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. +Turning the mode on 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>\\{enriched-mode-map}" t nil) + +(autoload 'enriched-encode "enriched" nil nil nil) + +(autoload 'enriched-decode "enriched" nil nil nil) + +;;;*** + +;;;### (autoloads (executable-self-display executable-set-magic) "executable" "modes/executable.el") + +(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." 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." t nil) + +;;;*** + +;;;### (autoloads (f90-mode) "f90" "modes/f90.el") + +(autoload 'f90-mode "f90" "\ +Major mode for editing Fortran 90 code in free format. + +\\[f90-indent-new-line] corrects current indentation and creates new indented line. +\\[f90-indent-line] indents the current line correctly. +\\[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 case/where/forall blocks. (default 3) + f90-type-indent + Extra indentation within type/interface/block-data blocks. (default 3) + f90-program-indent + Extra indentation within program/module/subroutine/function blocks. + (default 2) + f90-continuation-indent + Extra indentation applied to continuation lines. (default 5) + f90-comment-region + String inserted by \\[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) + f90-startup-message + Set to nil to inhibit message first time F90 mode is used. (default t) + f90-keywords-re + List of keywords used for highlighting/upcase-keywords etc. + +Turning on F90 mode calls the value of the variable `f90-mode-hook' +with no args, if that value is non-nil." t nil) + +;;;*** + +;;;### (autoloads (follow-delete-other-windows-and-split follow-mode turn-off-follow-mode turn-on-follow-mode) "follow" "modes/follow.el") + +(add-minor-mode 'follow-mode nil 'follow-mode-map) + +(autoload 'turn-on-follow-mode "follow" "\ +Turn on Follow mode. Please see the function `follow-mode'." t nil) + +(autoload 'turn-off-follow-mode "follow" "\ +Turn off Follow mode. Please see the function `follow-mode'." t nil) + +(autoload 'follow-mode "follow" "\ +Minor mode which combines windows into one tall virtual window. + +The feeling of a \"virtual window\" has been accomplished by the use +of two major 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 window 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 beeing 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-horizontally]' or `M-x follow-delete-other-windows-and-split' can be used. + +Only windows displayed in the same frame follow each-other. + +If the variable `follow-intercept-processes' is non-nil, Follow mode +will listen to the output of processes and redisplay accordingly. +\(This is the default.) + +When Follow mode is switched on, the hook `follow-mode-hook' +is called. When turned off, `follow-mode-off-hook' is called. + +Keys specific to Follow mode: +\\{follow-mode-map}" 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 it 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. + +To bind this command to a hotkey, place the following line +in your `~/.emacs' file, replacing [f7] by your favourite key: + (global-set-key [f7] 'follow-delete-other-windows-and-split)" t nil) + +;;;*** + +;;;### (autoloads (fortran-mode) "fortran" "modes/fortran.el") + +(defvar fortran-tab-mode-default nil "\ +*Default tabbing/carriage control style for empty files in Fortran mode. +A value of t specifies tab-digit style of continuation control. +A value of nil specifies that continuation lines are marked +with a character in column 6.") + +(autoload 'fortran-mode "fortran" "\ +Major mode for editing Fortran code. +\\[fortran-indent-line] indents the current Fortran line correctly. +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: + + comment-start + Normally nil in Fortran mode. If you want 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 within full-line comments. (default 0) + fortran-comment-indent-style + nil means don't change indentation of text in full-line comments, + fixed means indent that text at `fortran-comment-line-extra-indent' beyond + the value of `fortran-minimum-statement-indent-fixed' (for fixed + format continuation style) or `fortran-minimum-statement-indent-tab' + (for TAB format continuation style). + relative means indent at `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 Fortran statements in fixed format mode. (def.6) + fortran-minimum-statement-indent-tab + Minimum indentation for Fortran statements in TAB format mode. (default 9) + fortran-line-number-indent + Maximum indentation for line numbers. A line number will get + less than this much indentation if necessary to avoid reaching + column 5. (default 1) + 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 statement to blink on + matching IF. Also, from an ENDDO statement, blink on matching DO [WHILE] + statement. (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 + 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 `fortran-fill' breaks lines before delimiters. + (default t) + fortran-startup-message + Set to nil to inhibit message first time Fortran mode is used. + +Turning on Fortran mode calls the value of the variable `fortran-mode-hook' +with no args, if that value is non-nil." t nil) + +;;;*** + +;;;### (autoloads (hide-ifdef-mode) "hideif" "modes/hideif.el") + +(add-minor-mode 'hide-ifdef-mode " Ifdef") + +(autoload 'hide-ifdef-mode "hideif" "\ +Toggle Hide-Ifdef mode. This is a minor mode, albeit a large one. +With ARG, turn Hide-Ifdef mode on if arg is positive, off otherwise. +In Hide-Ifdef mode, 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}" t nil) + +(defvar hide-ifdef-initially nil "\ +*Non-nil means call `hide-ifdefs' when Hide-Ifdef mode is first activated.") + +(defvar hide-ifdef-read-only nil "\ +*Set to non-nil if you want buffer to be read-only while hiding text.") + +(defvar hide-ifdef-lines nil "\ +*Non-nil means hide the #ifX, #else, and #endif lines.") + +;;;*** + +;;;### (autoloads (hs-minor-mode hs-hide-block hs-hide-all) "hideshow" "modes/hideshow.el") + +(defvar hs-minor-mode nil "\ +Non-nil if using hideshow mode as a minor mode of some other mode. +Use the command `hs-minor-mode' to toggle this variable.") + +(autoload 'hs-hide-all "hideshow" "\ +Hides all top-level blocks, displaying only first and last lines. +It moves point to the beginning of the line, and it runs the normal hook +`hs-hide-hook'. See documentation for `run-hooks'." t nil) + +(autoload 'hs-hide-block "hideshow" "\ +Selects a block and hides it. With prefix arg, reposition at end. +Block is defined as a sexp for lispish modes, mode-specific otherwise. +Comments are blocks, too. Upon completion, point is at repositioned and +the normal hook `hs-hide-hook' is run. See documentation for `run-hooks'." t nil) + +(autoload 'hs-minor-mode "hideshow" "\ +Toggle hideshow minor mode. +With ARG, turn hideshow minor mode on if ARG is positive, off otherwise. +When hideshow minor mode is on, the menu bar is augmented with hideshow +commands and the hideshow commands are enabled. The variables +`selective-display' and `selective-display-ellipses' are set to t. +Last, the normal hook `hs-minor-mode-hook' is run; see the doc for `run-hooks'. + +Turning hideshow minor mode off reverts the menu bar and the +variables to default values and disables the hideshow commands." t nil) + +(add-minor-mode 'hs-minor-mode " hs" 'hs-minor-mode-map) + +;;;*** + +;;;### (autoloads (icon-mode) "icon" "modes/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." t nil) + +;;;*** + +;;;### (autoloads (imenu imenu-add-to-menubar) "imenu" "modes/imenu.el") + +(defvar imenu-generic-expression nil "\ +The regex pattern to use for creating a buffer index. + +If non-nil this pattern is passed to `imenu-create-index-with-pattern' +to create a buffer index. + +It is an alist with elements that look like this: (MENU-TITLE +REGEXP INDEX). + +MENU-TITLE is a string used as the title for the submenu or nil if the +entries are not nested. + +REGEXP is a regexp that should match a construct in the buffer that is +to be displayed in the menu; i.e., function or variable definitions, +etc. It contains a substring which is the name to appear in the +menu. See the info section on Regexps for more information. + +INDEX points to the substring in REGEXP that contains the name (of the +function, variable or type) that is to appear in the menu. + +For emacs-lisp-mode for example PATTERN would look like: + +'((nil \"^\\\\s-*(def\\\\(un\\\\|subst\\\\|macro\\\\|advice\\\\)\\\\s-+\\\\([-A-Za-z0-9+]+\\\\)\" 2) + (\"*Vars*\" \"^\\\\s-*(def\\\\(var\\\\|const\\\\)\\\\s-+\\\\([-A-Za-z0-9+]+\\\\)\" 2) + (\"*Types*\" \"^\\\\s-*(def\\\\(type\\\\|struct\\\\|class\\\\|ine-condition\\\\)\\\\s-+\\\\([-A-Za-z0-9+]+\\\\)\" 2)) + +The variable is buffer-local.") + +(make-variable-buffer-local 'imenu-generic-expression) + +(autoload 'imenu-add-to-menubar "imenu" "\ +Adds 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." t nil) + +(autoload 'imenu "imenu" "\ +Jump to a place in the buffer chosen using a buffer menu or mouse menu. +See `imenu-choose-buffer-index' for more information." t nil) + +;;;*** + +;;;### (autoloads (ksh-mode) "ksh-mode" "modes/ksh-mode.el") + +(autoload 'ksh-mode "ksh-mode" "\ +ksh-mode $Revision: 1.3 $ - Major mode for editing (Bourne, Korn or Bourne again) +shell scripts. +Special key bindings and commands: +\\{ksh-mode-map} +Variables controlling indentation style: +ksh-indent + Indentation of ksh statements with respect to containing block. + Default value is 2. +ksh-case-indent + Additional indentation for statements under case items. + Default value is nil which will align the statements one position + past the \")\" of the pattern. +ksh-case-item-offset + Additional indentation for case items within a case statement. + Default value is 2. +ksh-group-offset + Additional indentation for keywords \"do\" and \"then\". + Default value is -2. +ksh-brace-offset + Additional indentation of \"{\" under functions or brace groupings. + Default value is 0. +ksh-multiline-offset + Additional indentation of line that is preceded of a line ending with a + \\ to make it continue on next line. +ksh-tab-always-indent + Controls the operation of the TAB key. If t (the default), always + reindent the current line. If nil, indent the current line only if + point is at the left margin or in the line's indentation; otherwise + insert a tab. +ksh-match-and-tell + If non-nil echo in the minibuffer the matching compound command + for the \"done\", \"}\", \"fi\", or \"esac\". Default value is t. + +ksh-align-to-keyword + Controls whether nested constructs align from the keyword or + the current indentation. If non-nil, indentation will be relative to + the column the keyword starts. If nil, indentation will be relative to + the current indentation of the line the keyword is on. + The default value is non-nil. + +ksh-comment-regexp + Regular expression used to recognize comments. Customize to support + ksh-like languages. Default value is \" \\s *#\". + +Style Guide. + By setting + (setq ksh-indent default-tab-width) + (setq ksh-group-offset 0) + + The following style is obtained: + + if [ -z $foo ] + then + bar # <-- ksh-group-offset is additive to ksh-indent + foo + fi + + By setting + (setq ksh-indent default-tab-width) + (setq ksh-group-offset (- 0 ksh-indent)) + + The following style is obtained: + + if [ -z $foo ] + then + bar + foo + fi + + By setting + (setq ksh-case-item-offset 1) + (setq ksh-case-indent nil) + + The following style is obtained: + + case x in * + foo) bar # <-- ksh-case-item-offset + baz;; # <-- ksh-case-indent aligns with \")\" + foobar) foo + bar;; + esac + + By setting + (setq ksh-case-item-offset 1) + (setq ksh-case-indent 6) + + The following style is obtained: + + case x in * + foo) bar # <-- ksh-case-item-offset + baz;; # <-- ksh-case-indent + foobar) foo + bar;; + esac + + +Installation: + + (setq ksh-mode-hook + (function (lambda () + (font-lock-mode 1) ;; font-lock the buffer + (setq ksh-indent 8) + (setq ksh-group-offset -8) + (setq ksh-brace-offset -8) + (setq ksh-tab-always-indent t) + (setq ksh-match-and-tell t) + (setq ksh-align-to-keyword t) ;; Turn on keyword alignment + )))" t nil) + +;;;*** + +;;;### (autoloads (m4-mode) "m4-mode" "modes/m4-mode.el") + +(autoload 'm4-mode "m4-mode" "\ +A major-mode to edit m4 macro files +\\{m4-mode-map} +" t nil) + +;;;*** + +;;;### (autoloads (define-mail-alias build-mail-aliases mail-aliases-setup) "mail-abbrevs" "modes/mail-abbrevs.el") + +(defvar mail-abbrev-mailrc-file nil "\ +Name of file with mail aliases. If nil, ~/.mailrc is used.") + +(defvar mail-aliases nil "\ +Word-abbrev table of mail address aliases. +If this is nil, it means the aliases have not yet been initialized and +should be read from the .mailrc file. (This is distinct from there being +no aliases, which is represented by this being a table with no entries.)") + +(autoload 'mail-aliases-setup "mail-abbrevs" nil nil nil) + +(autoload 'build-mail-aliases "mail-abbrevs" "\ +Read mail aliases from .mailrc and set mail-aliases." nil nil) + +(autoload 'define-mail-alias "mail-abbrevs" "\ +Define NAME as a mail-alias that translates to DEFINITION. +If DEFINITION contains multiple addresses, separate them with commas." t nil) + +;;;*** + +;;;### (autoloads (makefile-mode) "make-mode" "modes/make-mode.el") + +(autoload 'makefile-mode "make-mode" "\ +Major mode for editing Makefiles. +This function ends by invoking the function(s) `makefile-mode-hook'. + +\\{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-find-filenames-as-targets'), otherwise + filenames are omitted. + +makefile-cleanup-continuations-p: + 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." t nil) + +;;;*** + +;;;### (autoloads (modula-2-mode) "modula2" "modes/modula2.el") + +(autoload 'modula-2-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." t nil) + +;;;*** + +;;;### (autoloads (electric-nroff-mode nroff-mode) "nroff-mode" "modes/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." t nil) + +(autoload 'electric-nroff-mode "nroff-mode" "\ +Toggle `nroff-electric-newline' minor mode. +`nroff-electric-newline' forces Emacs to check for an nroff request at the +beginning of the line, and insert the matching closing request if necessary. +This command toggles that mode (off->on, on->off), with an argument, +turns it on iff arg is positive, otherwise off." t nil) + +(defvar nroff-electric-mode nil "\ +Non-nil if in electric-nroff minor mode.") + +(add-minor-mode 'nroff-electric-mode " Electric" nil nil 'electric-nroff-mode) + +;;;*** + +;;;### (autoloads (outl-mouse-minor-mode outl-mouse-mode) "outl-mouse" "modes/outl-mouse.el") + +(autoload 'outl-mouse-mode "outl-mouse" "\ +Calls outline-mode, with outl-mouse extensions" t nil) + +(autoload 'outl-mouse-minor-mode "outl-mouse" "\ +Toggles outline-minor-mode, with outl-mouse extensions" t nil) + +;;;*** + +;;;### (autoloads (outline-minor-mode outline-mode) "outline" "modes/outline.el") + +(defvar outline-minor-mode nil "\ +Non-nil if using Outline mode as a minor mode of some other mode.") + +(make-variable-buffer-local 'outline-minor-mode) + +(put 'outline-minor-mode 'permanent-local t) + +(add-minor-mode 'outline-minor-mode " Outl") + +(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. + +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." t nil) + +(autoload 'outline-minor-mode "outline" "\ +Toggle Outline minor mode. +With arg, turn Outline minor mode on if arg is positive, off otherwise. +See the command `outline-mode' for more information on this mode." t nil) + +;;;*** + +;;;### (autoloads (pascal-mode) "pascal" "modes/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. + +\\[pascal-complete-word] completes the word around current point with respect to position in code +\\[pascal-show-completions] 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] - Enter pascal-outline-mode (see also pascal-outline). + +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 simcolons and the punctation mark + after an end. + 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 hould 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." t nil) + +;;;*** + +;;;### (autoloads (perl-mode) "perl-mode" "modes/perl-mode.el") + +(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. + +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'." t nil) + +;;;*** + +;;;### (autoloads (picture-mode) "picture" "modes/picture.el") + +(autoload 'picture-mode "picture" "\ +Switch to Picture mode, in which a quarter-plane screen model is used. +Printing characters replace instead of inserting themselves with motion +afterwards settable by these commands: + C-c < Move left after insertion. + C-c > Move right after insertion. + C-c ^ Move up after insertion. + C-c . Move down after insertion. + C-c ` Move northwest (nw) after insertion. + C-c ' Move northeast (ne) after insertion. + C-c / Move southwest (sw) after insertion. + C-c \\ Move southeast (se) after insertion. +The current direction is displayed in the modeline. 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: + \\[picture-move-down] Move vertically to SAME column in previous line. + \\[picture-move-up] Move vertically to SAME column in next line. + \\[picture-end-of-line] Move to column following last non-whitespace character. + \\[picture-forward-column] Move right inserting spaces if required. + \\[picture-backward-column] Move left changing tabs to spaces if required. + C-c C-f Move in direction of current picture motion. + C-c C-b Move in opposite direction of current picture motion. + Return Move to beginning of next line. +You can edit tabular text with these commands: + M-Tab Move to column beneath (or at) next interesting character. + `Indents' relative to a previous line. + Tab Move to next stop in tab stop list. + C-c Tab Set tab stops according to context of this line. + With ARG resets tab stops to default (global) value. + See also documentation of variable picture-tab-chars + which defines \"interesting character\". You can manually + change the tab stop list with command \\[edit-tab-stops]. +You can manipulate text with these commands: + C-d Clear (replace) ARG columns after point without moving. + C-c C-d Delete char at point - the command normally assigned to C-d. + \\[picture-backward-clear-column] Clear (replace) ARG columns before point, moving back over them. + \\[picture-clear-line] Clear ARG lines, advancing over them. The cleared + text is saved in the kill ring. + \\[picture-open-line] Open blank line(s) beneath current line. +You can manipulate rectangles with these commands: + C-c C-k Clear (or kill) a rectangle and save it. + C-c C-w Like C-c C-k except rectangle is saved in named register. + C-c C-y Overlay (or insert) currently saved rectangle at point. + C-c C-x Like C-c C-y except rectangle is taken from named register. + \\[copy-rectangle-to-register] Copies a rectangle to a register. + \\[advertised-undo] Can undo effects of rectangle overlay commands + commands if invoked soon enough. +You can return to the previous mode with: + C-c C-c 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 defaultly assigned to keys." t nil) + +(defalias 'edit-picture 'picture-mode) + +;;;*** + +;;;### (autoloads (postscript-mode) "postscript" "modes/postscript.el") + +(autoload 'postscript-mode "postscript" "\ +Major mode for editing PostScript files. + +\\[ps-execute-buffer] will send the contents of the buffer to the NeWS +server using psh(1). \\[ps-execute-region] sends the current region. +\\[ps-shell] starts an interactive psh(1) window which will be used for +subsequent \\[ps-execute-buffer] or \\[ps-execute-region] commands. + +In this mode, TAB and \\[indent-region] attempt to indent code +based on the position of {}, [], and begin/end pairs. The variable +ps-indent-level controls the amount of indentation used inside +arrays and begin/end pairs. + +\\{ps-mode-map} + +\\[postscript-mode] calls the value of the variable postscript-mode-hook +with no args, if that value is non-nil." t nil) + +;;;*** + +;;;### (autoloads (run-prolog inferior-prolog-mode prolog-mode) "prolog" "modes/prolog.el") + +(autoload 'prolog-mode "prolog" "\ +Major mode for editing Prolog code for Prologs. +Blank lines and `%%...' separate paragraphs. `%'s start comments. +Commands: +\\{prolog-mode-map} +Entry to this mode calls the value of `prolog-mode-hook' +if that value is non-nil." t nil) + +(autoload 'inferior-prolog-mode "prolog" "\ +Major mode for interacting with an inferior Prolog process. + +The following commands are available: +\\{inferior-prolog-mode-map} + +Entry to this mode calls the value of `prolog-mode-hook' with no arguments, +if that value is non-nil. Likewise with the value of `comint-mode-hook'. +`prolog-mode-hook' is called after `comint-mode-hook'. + +You can send text to the inferior Prolog from other buffers +using the commands `send-region', `send-string' and \\[prolog-consult-region]. + +Commands: +Tab indents for Prolog; with argument, shifts rest + of expression rigidly with the current line. +Paragraphs are separated only by blank lines and '%%'. +'%'s start comments. + +Return at end of buffer sends line as input. +Return not at end copies rest of line to end and sends it. +\\[comint-kill-input] and \\[backward-kill-word] are kill commands, imitating normal Unix input editing. +\\[comint-interrupt-subjob] interrupts the shell or its current subjob if any. +\\[comint-stop-subjob] stops. \\[comint-quit-subjob] sends quit signal." t nil) + +(autoload 'run-prolog "prolog" "\ +Run an inferior Prolog process, input and output via buffer *prolog*." t nil) + +;;;*** + +;;;### (autoloads (py-shell python-mode) "python-mode" "modes/python-mode.el") + +(eval-when-compile (condition-case nil (progn (require 'cl) (require 'imenu)) (error nil))) + +(autoload 'python-mode "python-mode" "\ +Major mode for editing Python files. +To submit a problem report, enter `\\[py-submit-bug-report]' from a +`python-mode' buffer. Do `\\[py-describe-mode]' for detailed +documentation. To see what version of `python-mode' you are running, +enter `\\[py-version]'. + +This mode knows about Python indentation, tokens, comments and +continuation lines. Paragraphs are separated by blank lines only. + +COMMANDS +\\{py-mode-map} +VARIABLES + +py-indent-offset indentation increment +py-block-comment-prefix comment string used by comment-region +py-python-command shell command to invoke Python interpreter +py-scroll-process-buffer always scroll Python process buffer +py-temp-directory directory used for temp files (if needed) +py-beep-if-tab-change ring the bell if tab-width is changed" t nil) + +(autoload 'py-shell "python-mode" "\ +Start an interactive Python interpreter in another window. +This is like Shell mode, except that Python is running in the window +instead of a shell. See the `Interactive Shell' and `Shell Mode' +sections of the Emacs manual for details, especially for the key +bindings active in the `*Python*' buffer. + +See the docs for variable `py-scroll-buffer' for info on scrolling +behavior in the process window. + +Warning: Don't use an interactive Python if you change sys.ps1 or +sys.ps2 from their default values, or if you're running code that +prints `>>> ' or `... ' at the start of a line. `python-mode' can't +distinguish your output from Python's output, and assumes that `>>> ' +at the start of a line is a prompt from Python. Similarly, the Emacs +Shell mode code assumes that both `>>> ' and `... ' at the start of a +line are Python prompts. Bad things can happen if you fool either +mode. + +Warning: If you do any editing *in* the process buffer *while* the +buffer is accepting output from Python, do NOT attempt to `undo' the +changes. Some of the output (nowhere near the parts you changed!) may +be lost if you do. This appears to be an Emacs bug, an unfortunate +interaction between undo and process filters; the same problem exists in +non-Python process buffers using the default (Emacs-supplied) process +filter." t nil) + +;;;*** + +;;;### (autoloads (rexx-mode) "rexx-mode" "modes/rexx-mode.el") + +(autoload 'rexx-mode "rexx-mode" "\ +Major mode for editing REXX code. +\\{rexx-mode-map} + +Variables controlling indentation style: + rexx-indent + The basic indentation for do-blocks. + rexx-end-indent + The relative offset of the \"end\" statement. 0 places it in the + same column as the statements of the block. Setting it to the same + value as rexx-indent places the \"end\" under the do-line. + rexx-cont-indent + The indention for lines following \"then\", \"else\" and \",\" + (continued) lines. + rexx-tab-always-indent + Non-nil means TAB in REXX mode should always reindent the current + line, regardless of where in the line the point is when the TAB + command is used. + +If you have set rexx-end-indent to a nonzero value, you probably want to +remap RETURN to rexx-indent-newline-indent. It makes sure that lines +indents correctly when you press RETURN. + +An extensive abbrevation table consisting of all the keywords of REXX are +supplied. Expanded keywords are converted into upper case making it +easier to distinguish them. To use this feature the buffer must be in +abbrev-mode. (See example below.) + +Turning on REXX mode calls the value of the variable rexx-mode-hook with +no args, if that value is non-nil. + +For example: +\(setq rexx-mode-hook '(lambda () + (setq rexx-indent 4) + (setq rexx-end-indent 4) + (setq rexx-cont-indent 4) + (local-set-key \"\\C-m\" 'rexx-indent-newline-indent) + (abbrev-mode 1) + )) + +will make the END aligned with the DO/SELECT. It will indent blocks and +IF-statenents four steps and make sure that the END jumps into the +correct position when RETURN is pressed. Finaly it will use the abbrev +table to convert all REXX keywords into upper case." t nil) + +;;;*** + +;;;### (autoloads (resize-minibuffer-mode) "rsz-minibuf" "modes/rsz-minibuf.el") + +(defvar resize-minibuffer-mode nil "\ +*If non-`nil', resize the minibuffer so its entire contents are visible.") + +(defvar resize-minibuffer-window-max-height nil "\ +*Maximum size the minibuffer window is allowed to become. +If less than 1 or not a number, the limit is the height of the frame in +which the active minibuffer window resides.") + +(defvar resize-minibuffer-window-exactly t "\ +*If non-`nil', make minibuffer exactly the size needed to display all its contents. +Otherwise, the minibuffer window can temporarily increase in size but +never get smaller while it is active.") + +(defvar resize-minibuffer-frame nil "\ +*If non-`nil' and the active minibuffer is the sole window in its frame, allow changing the frame height.") + +(defvar resize-minibuffer-frame-max-height nil "\ +*Maximum size the minibuffer frame is allowed to become. +If less than 1 or not a number, there is no limit.") + +(defvar resize-minibuffer-frame-exactly nil "\ +*If non-`nil', make minibuffer frame exactly the size needed to display all its contents. +Otherwise, the minibuffer frame can temporarily increase in size but +never get smaller while it is active.") + +(autoload 'resize-minibuffer-mode "rsz-minibuf" "\ +Enable or disable resize-minibuffer mode. +A negative prefix argument disables this mode. A positive argument or +argument of 0 enables it. + +When this minor mode is enabled, the minibuffer is dynamically resized to +contain the entire region of text put in it as you type. + +The variable `resize-minibuffer-mode' is set to t or nil depending on +whether this mode is active or not. + +The maximum height to which the minibuffer can grow is controlled by the +variable `resize-minibuffer-window-max-height'. + +The variable `resize-minibuffer-window-exactly' determines whether the +minibuffer window should ever be shrunk to make it no larger than needed to +display its contents. + +When using a window system, it is possible for a minibuffer to tbe the sole +window in a frame. Since that window is already its maximum size, the only +way to make more text visible at once is to increase the size of the frame. +The variable `resize-minibuffer-frame' controls whether this should be +done. The variables `resize-minibuffer-frame-max-height' and +`resize-minibuffer-frame-exactly' are analogous to their window +counterparts." t nil) + +;;;*** + +;;;### (autoloads (scheme-mode) "scheme" "modes/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 +modeline of all Scheme buffers. The names of commands that interact +with the Scheme process start with \"xscheme-\". For more information +see the documentation for xscheme-interaction-mode. + +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." t nil) + +;;;*** + +;;;### (autoloads (scribe-mode) "scribe" "modes/scribe.el") + +(autoload 'scribe-mode "scribe" "\ +Major mode for editing files of Scribe (a text formatter) source. +Scribe-mode is similar text-mode, with a few extra commands added. +\\{scribe-mode-map} + +Interesting variables: + +scribe-fancy-paragraphs + Non-nil makes Scribe mode use a different style of paragraph separation. + +scribe-electric-quote + Non-nil makes insert of double quote use `` or '' depending on context. + +scribe-electric-parenthesis + Non-nil makes an open-parenthesis char (one of `([<{') + automatically insert its close if typed after an @Command form." t nil) + +;;;*** + +;;;### (autoloads (mail-other-frame mail-other-window mail mail-mode) "sendmail" "modes/sendmail.el") + +(defvar mail-from-style 'angles "\ +*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>") + +(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.") + +(defvar mail-interactive nil "\ +Non-nil means when sending a message wait for and display errors. +nil means let mailer mail back a message to report errors.") + +(defvar mail-dir nil "\ +*Default directory for saving messages.") + +(defvar rmail-ignored-headers (purecopy (concat "^\\(" (mapconcat 'identity '("Sender:" "References:" "Return-Path:" "Received:" "[^: \n]*Message-ID:" "Errors-To:" "Path:" "Expires:" "Xref:" "Lines:" "Approved:" "Distribution:" "Content-Length:" "Mime-Version:" "Content-Type:" "Content-Transfer-Encoding:" "X400-Received:" "X400-Originator:" "X400-Mts-Identifier:" "X400-Content-Type:" "Content-Identifier:" "Status:" "Summary-Line:" "X-Attribution:" "Via:" "Sent-Via:" "Mail-From:" "Origin:" "Comments:" "Originator:" "NF-ID:" "NF-From:" "Posting-Version:" "Posted:" "Posted-Date:" "Date-Received:" "Relay-Version:" "Article-I\\.D\\.:" "NNTP-Version:" "NNTP-Posting-Host:" "X-Mailer:" "X-Newsreader:" "News-Software:" "X-Received:" "X-References:" "X-Envelope-To:" "X-VMS-" "Remailed-" "X-Plantation:" "X-Windows:" "X-Pgp-") "\\|") "\\)")) "\ +*Gubbish header fields one would rather not see.") + +(defvar mail-yank-ignored-headers (purecopy (concat rmail-ignored-headers "\\|" "^\\(" (mapconcat 'identity '("Resent-To:" "Resent-By:" "Resent-CC:" "To:" "Subject:" "In-Reply-To:") "\\|") "\\)")) "\ +Delete these headers from old message when it's inserted in a reply.") + +(defvar send-mail-function 'sendmail-send-it "\ +Function to call to send the current buffer as mail. +The headers should be delimited by a line whose contents +match the variable `mail-header-separator'.") + +(defvar mail-header-separator (purecopy "--text follows this line--") "\ +*Line used to separate headers from text in messages being composed.") + +(defvar mail-archive-file-name nil "\ +*Name of file to write all outgoing messages in, or nil for none. +This can be an inbox file or an Rmail file.") + +(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.") + +(defvar mail-alias-file nil "\ +*If non-nil, the name of a file to use instead of `/usr/lib/aliases'. +This file defines aliases to be expanded by the mailer; this is a different +feature from that of defining aliases in `.mailrc' to be expanded in Emacs. +This variable has no effect unless your system uses sendmail as its mailer.") + +(defvar mail-yank-prefix "> " "\ +*Prefix insert on lines of yanked message being replied to. +nil means use indentation.") + +(defvar mail-signature nil "\ +*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'.") + +(autoload 'mail-mode "sendmail" "\ +Major mode for editing mail to be sent. +Like Text Mode but with these additional commands: +C-c C-s mail-send (send the message) C-c C-c mail-send-and-exit +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 Subj: + C-c C-f C-b move to BCC: C-c C-f C-c move to CC: + C-c C-f C-f move to FCC: C-c C-f C-r move to Reply-To: +C-c C-t mail-text (move to beginning of message text). +C-c C-w mail-signature (insert `mail-signature-file' file). +C-c C-y mail-yank-original (insert current message, in Rmail). +C-c C-q mail-fill-yanked-message (fill what was yanked). +C-c C-v mail-sent-via (add a sent-via field for each To or CC)." t nil) + +(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} + +The variable `mail-signature' controls whether the signature file +`mail-signature-file' is inserted immediately. + +If `mail-signature' is nil, use \\[mail-signature] to insert the +signature in `mail-signature-file'. + +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. + +When calling from a program, the first argument if non-nil says +not to erase the existing contents of the `*mail*' buffer. + +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 whose contents + should be yanked if the user types C-c C-y. +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'." t nil) + +(autoload 'mail-other-window "sendmail" "\ +Like `mail' command, but display mail buffer in another window." t nil) + +(autoload 'mail-other-frame "sendmail" "\ +Like `mail' command, but display mail buffer in another frame." t nil) + +(define-key ctl-x-map "m" 'mail) + +(define-key ctl-x-4-map "m" 'mail-other-window) + +(define-key ctl-x-5-map "m" 'mail-other-frame) + +(add-hook 'same-window-buffer-names "*mail*") + +;;;*** + +;;;### (autoloads (sh-mode) "sh-script" "modes/sh-script.el") + +(put 'sh-mode 'mode-class 'special) + +(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-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 + +\\[backward-delete-char-untabify] Delete backward one position, even if it was a tab. +\\[sh-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-maybe-here-document] Without prefix, following an unquoted < inserts here document. +{, (, [, ', \", ` + Unless quoted with \\, insert the pairs {}, (), [], or '', \"\", ``. + +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." t nil) + +(defalias 'shell-script-mode 'sh-mode) + +;;;*** + +;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl" "modes/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-electric-hash-style + Controls action of `#' key. + tcl-use-hairy-comment-detector + If t, use more complicated, but slower, comment detector. + This variable is only used in GNU Emacs 19. + 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 calls the value of the variable `tcl-mode-hook' +with no args, if that value is non-nil. Read the documentation for +`tcl-mode-hook' to see what kinds of interesting hook functions +already exist. + +Commands: +\\{tcl-mode-map}" 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." 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'." t nil) + +;;;*** + +;;;### (autoloads (latex-mode plain-tex-mode tex-mode) "tex-mode" "modes/tex-mode.el") + +(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 +is used." t nil) + +(fset 'TeX-mode 'tex-mode) + +(fset '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 \\[validate-tex-buffer] to check buffer for paragraphs containing +mismatched $'s or braces. + +Special commands: +\\{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 calls the value of text-mode-hook, then the value of +tex-mode-hook, and then the value of plain-tex-mode-hook. When the special +subshell is initiated, the value of tex-shell-hook is called." t nil) + +(fset 'plain-TeX-mode 'plain-tex-mode) + +(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 \\[validate-tex-buffer] to check buffer for paragraphs containing +mismatched $'s or braces. + +Special commands: +\\{tex-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 calls the value of text-mode-hook, then the value of +tex-mode-hook, and then the value of latex-mode-hook. When the special +subshell is initiated, the value of tex-shell-hook is called." t nil) + +;;;*** + +;;;### (autoloads (texinfo-mode) "texinfo" "modes/texinfo.el") + +(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." t nil) + +;;;*** + +;;;### (autoloads (tc-recenter tc-scroll-down tc-scroll-up tc-scroll-line tc-associated-buffer tc-merge tc-dissociate tc-split tc-associate-buffer tc-two-columns) "two-column" "modes/two-column.el") + +(defvar tc-mode-map nil "\ +Keymap for commands for two-column mode.") + +(if tc-mode-map nil (setq tc-mode-map (make-sparse-keymap)) (define-key tc-mode-map "1" 'tc-merge) (define-key tc-mode-map "2" 'tc-two-columns) (define-key tc-mode-map "b" 'tc-associate-buffer) (define-key tc-mode-map "d" 'tc-dissociate) (define-key tc-mode-map "\^L" 'tc-recenter) (define-key tc-mode-map "o" 'tc-associated-buffer) (define-key tc-mode-map "s" 'tc-split) (define-key tc-mode-map "{" 'shrink-window-horizontally) (define-key tc-mode-map "}" 'enlarge-window-horizontally) (define-key tc-mode-map " " 'tc-scroll-up) (define-key tc-mode-map "" 'tc-scroll-down) (define-key tc-mode-map " " 'tc-scroll-line)) + +(global-set-key "6" tc-mode-map) + +(defvar tc-other nil "\ +Marker to the associated buffer, if non-nil.") + +(make-variable-buffer-local 'tc-other) + +(put 'tc-other 'permanent-local t) + +(autoload 'tc-two-columns "two-column" "\ +Split current window vertically for two-column editing. + +When called the first time, associates a buffer with the current +buffer. Both buffers are put in two-column minor mode and +tc-mode-hook gets called on both. These buffers remember +about one another, even when renamed. + +When called again, restores the screen layout with the current buffer +first and the associated buffer to it's right. + +If you include long lines, i.e which will span both columns (eg. +source code), they should be in what will be the first column, with +the associated buffer having empty lines next to them. + +You have the following commands at your disposal: + +\\[tc-two-columns] Rearrange screen +\\[tc-associate-buffer] Reassociate buffer after changing major mode +\\[tc-scroll-up] Scroll both buffers up by a screenfull +\\[tc-scroll-down] Scroll both buffers down by a screenful +\\[tc-scroll-line] Scroll both buffers up by one or more lines +\\[tc-recenter] Recenter and realign other buffer +\\[shrink-window-horizontally], \\[enlarge-window-horizontally] Shrink, enlarge current column +\\[tc-associated-buffer] Switch to associated buffer +\\[tc-merge] Merge both buffers + +These keybindings can be customized in your ~/.emacs by `tc-prefix' +and `tc-mode-map'. + +The appearance of the screen can be customized by the variables +`tc-window-width', `tc-beyond-fill-column', +`tc-mode-line-format' and `truncate-partial-width-windows'." t nil) + +(add-minor-mode 'tc-other " 2C" nil nil 'tc-two-columns) + +(autoload 'tc-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 \\[tc-two-columns] and `lisp/two-column.el' for further details." t nil) + +(autoload 'tc-split "two-column" "\ +Unmerge a two-column text into two buffers in two-column minor mode. +The text is unmerged at the cursor's column which becomes the local +value of `tc-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 +`tc-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 as +you like them. You write the first line of each column with the +separator you like and then unmerge that line. E.g.: + +First column's text sSs Second columns text + \\___/\\ + / \\ + 5 character Separator You type M-5 \\[tc-split] with the point here + +See \\[tc-two-columns] and `lisp/two-column.el' for further details." t nil) + +(autoload 'tc-dissociate "two-column" "\ +Turn off two-column minor mode in current and associated buffer. +If the associated buffer is unmodified and empty, it is killed." t nil) + +(autoload 'tc-merge "two-column" "\ +Merges the associated buffer with the current buffer. +They get merged at the column, which is the value of +`tc-window-width', i.e. usually at the vertical window +separator. This separator gets replaced with white space. Beyond +that the value of gets inserted on merged lines. The two columns are +thus pasted side by side, in a single text. If the other buffer is +not displayed to the left of this one, then this one becomes the left +column. + +If you want `tc-separator' on empty lines in the second column, +you should put just one space in them. In the final result, you can strip +off trailing spaces with \\[beginning-of-buffer] \\[replace-regexp] [ SPC TAB ] + $ RET RET" t nil) + +(autoload 'tc-associated-buffer "two-column" "\ +Switch to associated buffer." t nil) + +(autoload 'tc-scroll-line "two-column" "\ +Scroll current window upward by ARG lines. +The associated window gets scrolled to the same line." t nil) + +(autoload 'tc-scroll-up "two-column" "\ +Scroll current window upward by ARG screens. +The associated window gets scrolled to the same line." t nil) + +(autoload 'tc-scroll-down "two-column" "\ +Scroll current window downward by ARG screens. +The associated window gets scrolled to the same line." t nil) + +(autoload 'tc-recenter "two-column" "\ +Center point in window. With ARG, put point on line ARG. +This counts from bottom if ARG is negative. The associated window +gets scrolled to the same line." t nil) + +;;;*** + +;;;### (autoloads (vhdl-mode) "vhdl-mode" "modes/vhdl-mode.el") + +(autoload 'vhdl-mode "vhdl-mode" "\ +Major mode for editing VHDL code. +vhdl-mode $Revision: 1.3 $ +To submit a problem report, enter `\\[vhdl-submit-bug-report]' from a +vhdl-mode buffer. This automatically sets up a mail buffer with version +information already added. You just need to add a description of the +problem, including a reproducable test case and send the message. + +Note that the details of configuring vhdl-mode will soon be moved to the +accompanying texinfo manual. Until then, please read the README file +that came with the vhdl-mode distribution. + +The hook variable `vhdl-mode-hook' is run with no args, if that value is +bound and has a non-nil value. + +Key bindings: +\\{vhdl-mode-map}" t nil) + +;;;*** + +;;;### (autoloads (auto-view-mode view-major-mode view-mode view-minor-mode view-buffer-other-window view-file-other-window view-buffer view-file) "view-less" "modes/view-less.el") + +(autoload 'view-file "view-less" "\ +Find FILE, enter view mode. With prefix arg OTHER-P, use other window." t nil) + +(autoload 'view-buffer "view-less" "\ +Switch to BUF, enter view mode. With prefix arg use other window." t nil) + +(autoload 'view-file-other-window "view-less" "\ +Find FILE in other window, and enter view mode." t nil) + +(autoload 'view-buffer-other-window "view-less" "\ +Switch to BUFFER in another window, and enter view mode." t nil) + +(autoload 'view-minor-mode "view-less" "\ +Minor mode for viewing text, with bindings like `less'. +Commands are: +\\<view-minor-mode-map> +0..9 prefix args +- prefix minus +\\[scroll-up] page forward +\\[scroll-down] page back +\\[view-scroll-lines-up] scroll prefix-arg lines forward, default 1. +\\[view-scroll-lines-down] scroll prefix-arg lines backward, default 1. +\\[view-scroll-some-lines-down] scroll prefix-arg lines backward, default 10. +\\[view-scroll-some-lines-up] scroll prefix-arg lines forward, default 10. +\\[what-line] print line number +\\[view-mode-describe] print this help message +\\[view-search-forward] regexp search, uses previous string if you just hit RET +\\[view-search-backward] as above but searches backward +\\[view-repeat-search] repeat last search +\\[view-goto-line] goto line prefix-arg, default 1 +\\[view-last-windowful] goto line prefix-arg, default last line +\\[view-goto-percent] goto a position by percentage +\\[toggle-truncate-lines] toggle truncate-lines +\\[view-file] view another file +\\[view-buffer] view another buffer +\\[view-cleanup-backspaces] cleanup backspace constructions +\\[shell-command] execute a shell command +\\[shell-command-on-region] execute a shell command with the region as input +\\[view-quit] exit view-mode, and bury the current buffer. + +If invoked with the optional (prefix) arg non-nil, view-mode cleans up +backspace constructions. + +More precisely: +\\{view-minor-mode-map}" t nil) + +(autoload 'view-mode "view-less" "\ +View the current buffer using view-minor-mode. This exists to be 99.9% +compatible with the implementations of `view-mode' in view.el and older +versions of view-less.el." t nil) + +(autoload 'view-major-mode "view-less" "\ +View the current buffer using view-mode, as a major mode. +This function has a nonstandard name because `view-mode' is wrongly +named but is like this for compatibility reasons." t nil) + +(autoload 'auto-view-mode "view-less" "\ +If the file of the current buffer is not writable, call view-mode. +This is meant to be added to `find-file-hooks'." nil nil) + +;;;*** + +;;;### (autoloads (vrml-mode) "vrml-mode" "modes/vrml-mode.el") + +(autoload 'vrml-mode "vrml-mode" "\ +Major mode for editing VRML code. +Expression and list commands understand all VRML brackets. +Tab indents for VRML code. +Paragraphs are separated by blank lines only. +Delete converts tabs to spaces as it moves back. + +Variables controlling indentation style: + vrml-indent-level + Indentation of VRML statements within surrounding block. + +Variables controlling user interaction with mode (see variable +documentation for details): + vrml-tab-always-indent + Controls action of TAB key. + vrml-auto-newline + Non-nil means automatically newline before and after braces + inserted in VRML code. + +Turning on VRML mode calls the value of the variable `vrml-mode-hook' +with no args, if that value is non-nil. Read the documentation for +`vrml-mode-hook' to see what kinds of interesting hook functions +already exist. + +Commands: +\\{vrml-mode-map}" t nil) + +;;;*** + +;;;### (autoloads (xpm-mode) "xpm-mode" "modes/xpm-mode.el") + +(autoload 'xpm-mode "xpm-mode" "\ +Treat the current buffer as an xpm file and colorize it. + + Shift-button-1 lets you paint by dragging the mouse. Shift-button-1 on a +color definition line will change the current painting color to that line's +value. + + Characters inserted from the keyboard will NOT be colored properly yet. +Use the mouse, or do xpm-init (\\[xpm-init]) after making changes. + +\\[xpm-add-color] Add a new color, prompting for character and value +\\[xpm-show-image] show the current image at the top of the buffer +\\[xpm-parse-color] parse the current line's color definition and add + it to the color table. Provided as a means of changing colors. +XPM minor mode bindings: +\\{xpm-mode-map}" t nil) + +;;;*** + +;;;### (autoloads (br-env-load br-env-browse) "br-env" "oobr/br-env.el") + +(autoload 'br-env-browse "br-env" "\ +Invoke the OO-Browser on an existing or to be created Environment ENV-FILE." t nil) + +(autoload 'br-env-load "br-env" "\ +Load browser Environment or spec from optional ENV-FILE or 'br-env-file'. +Non-nil PROMPT means prompt user before building tables. +Non-nil NO-BUILD means skip build of Environment entirely. +Return t if load is successful, else nil." t nil) + +;;;*** + +;;;### (autoloads (oo-browser) "br-start" "oobr/br-start.el") + +(fset 'oobr 'oo-browser) + +(autoload 'oo-browser "br-start" "\ +Prompt for an Environment and language over which to run the OO-Browser. +Optional prefix argument SAME-ENV-FLAG means browse the current Environment, +if any, without prompting." t nil) + +;;;*** + +;;;### (autoloads (br-to-from-viewer br-add-class-file) "br" "oobr/br.el") + +(autoload 'br-add-class-file "br" "\ +Add a file of classes to the current Environment. +Interactively or when optional CLASS-PATH is nil, CLASS-PATH defaults to the +current buffer file pathname. If optional LIB-TABLE-P is non-nil, add to +Library Environment, otherwise add to System Environment. If optional +SAVE-FILE is t, the Environment is then stored to the filename given by +'br-env-file'. If SAVE-FILE is non-nil and not t, its string value is used +as the file to which to save the Environment." t nil) + +(autoload 'br-to-from-viewer "br" "\ +Move point to viewer window or back to last recorded listing window." t nil) + +;;;*** + +;;;### (autoloads (c++-browse) "c++-browse" "oobr/c++-browse.el") + +(autoload 'c++-browse "c++-browse" "\ +Invoke the C++ OO-Browser. +This allows browsing through C++ library and system class hierarchies. With +an optional non-nil prefix argument ENV-FILE, prompt for Environment file to +use. Alternatively, a string value of ENV-FILE is used as the Environment +file name. See also the file \"br-help\"." t nil) + +;;;*** + +;;;### (autoloads (clos-browse) "clos-brows" "oobr/clos-brows.el") + +(autoload 'clos-browse "clos-brows" "\ +Invoke the CLOS OO-Browser. +This allows browsing through CLOS library and system class hierarchies. With +an optional non-nil prefix argument ENV-FILE, prompt for Environment file +to use. Alternatively, a string value of ENV-FILE is used as the +Environment file name. See also the file \"br-help\"." t nil) + +;;;*** + +;;;### (autoloads (eif-browse) "eif-browse" "oobr/eif-browse.el") + +(autoload 'eif-browse "eif-browse" "\ +Invoke the Eiffel OO-Browser. +This allows browsing through Eiffel library and system class hierarchies. +With an optional prefix arg ENV-FILE equal to t, prompt for Environment file +to use. Alternatively, a string value of ENV-FILE is used as the Environment +file name. See also the file \"br-help\"." t nil) + +;;;*** + +;;;### (autoloads (info-browse) "info-brows" "oobr/info-brows.el") + +(autoload 'info-browse "info-brows" "\ +Invoke the Info OO-Browser. +This allows browsing through Info library and system class hierarchies. With +an optional non-nil prefix argument ENV-FILE, prompt for Environment file to +use. Alternatively, a string value of ENV-FILE is used as the Environment +file name. See also the file \"br-help\"." t nil) + +;;;*** + +;;;### (autoloads (java-browse) "java-brows" "oobr/java-brows.el") + +(autoload 'java-browse "java-brows" "\ +Invoke the Java OO-Browser. +This allows browsing through Java library and system class hierarchies. With +an optional non-nil prefix argument ENV-FILE, prompt for Environment file to +use. Alternatively, a string value of ENV-FILE is used as the Environment +file name. See also the file \"br-help\"." t nil) + +;;;*** + +;;;### (autoloads (objc-browse) "objc-brows" "oobr/objc-brows.el") + +(autoload 'objc-browse "objc-brows" "\ +Invoke the Objective-C OO-Browser. +This allows browsing through Objective-C library and system class +hierarchies. With an optional non-nil prefix argument ENV-FILE, prompt for +Environment file to use. Alternatively, a string value of ENV-FILE is used +as the Environment file name. See also the file \"br-help\"." t nil) + +;;;*** + +;;;### (autoloads (python-browse) "python-browse" "oobr/python-browse.el") + +(autoload 'python-browse "python-browse" "\ +Invoke the Python OO-Browser. +This allows browsing through Python library and system class hierarchies. +With an optional non-nil prefix argument ENV-FILE, prompt for Environment +file to use. Alternatively, a string value of ENV-FILE is used as the +Environment file name. See also the file \"br-help\"." t nil) + +;;;*** + +;;;### (autoloads (smt-browse) "smt-browse" "oobr/smt-browse.el") + +(autoload 'smt-browse "smt-browse" "\ +Invoke the Smalltalk OO-Browser. +This allows browsing through Smalltalk library and system class hierarchies. +With an optional non-nil prefix argument ENV-FILE, prompt for Environment +file to use. Alternatively, a string value of ENV-FILE is used as the +Environment file name. See also the file \"br-help\"." t nil) + +;;;*** + +;;;### (autoloads (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" "packages/add-log.el") + +(defvar change-log-default-name nil "\ +*Name of a change log file for \\[add-change-log-entry].") + +(defvar add-log-current-defun-function nil "\ +*If non-nil, function to guess name of current function from surrounding text. +\\[add-change-log-entry] calls this function (if nil, `add-log-current-defun' +instead) with no arguments. It returns a string or nil if it cannot guess.") + +(defvar add-log-full-name nil "\ +*Full name of user, for inclusion in ChangeLog daily headers. +This defaults to the value returned by the `user-full-name' function.") + +(defvar add-log-mailing-address nil "\ +*Electronic mail address of user, for inclusion in ChangeLog daily headers. +This defaults to the value of `user-mail-address'.") + +(autoload 'prompt-for-change-log-name "add-log" "\ +Prompt for a change log name." 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." nil nil) + +(autoload 'add-change-log-entry "add-log" "\ +Find change log file and add an entry for today. +Optional arg (interactive prefix) non-nil means prompt for user name and site. +Second arg is file name of change log. If nil, uses `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." t nil) + +(autoload 'add-change-log-entry-other-window "add-log" "\ +Find change log file in other window and add an entry for today. +Optional arg (interactive prefix) non-nil means prompt for user name and site. +Second arg is file name of change log. If nil, uses `change-log-default-name'." t nil) + +(define-key ctl-x-4-map "a" 'add-change-log-entry-other-window) + +(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'." t nil) + +(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), Perl, and Fortran. + +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 variable +`add-log-current-defun-header-regexp'. + +Has a preference of looking backwards." nil nil) + +;;;*** + +;;;### (autoloads (apropos-documentation apropos-value apropos apropos-command) "apropos" "packages/apropos.el") + +(fset 'command-apropos 'apropos-command) + +(autoload 'apropos-command "apropos" "\ +Shows commands (interactively callable functions) that match REGEXP. +With optional prefix ARG or if `apropos-do-all' is non-nil, also show +variables." t nil) + +(autoload 'apropos "apropos" "\ +Show all bound symbols whose names match REGEXP. +With optional prefix ARG or if `apropos-do-all' is non-nil, also show unbound +symbols and key bindings, which is a little more time-consuming. +Returns list of symbols and documentation found." t nil) + +(autoload 'apropos-value "apropos" "\ +Show all symbols whose value's printed image matches REGEXP. +With optional prefix ARG or if `apropos-do-all' is non-nil, also looks +at the function and at the names and values of properties. +Returns list of symbols and values found." t nil) + +(autoload 'apropos-documentation "apropos" "\ +Show symbols whose documentation contain matches for REGEXP. +With optional prefix ARG or if `apropos-do-all' is non-nil, also use +documentation that is not stored in the documentation file and show key +bindings. +Returns list of symbols and documentation found." t nil) + +;;;*** + +;;;### (autoloads (define-auto-insert auto-insert) "autoinsert" "packages/autoinsert.el") + +(autoload 'auto-insert "autoinsert" "\ +Insert default contents into a new file if `auto-insert' is non-nil. +Matches the visited file name against the elements of `auto-insert-alist'." 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." nil nil) + +;;;*** + +;;;### (autoloads (mouse-avoidance-mode) "avoid" "packages/avoid.el") + +(autoload 'mouse-avoidance-mode "avoid" "\ +Set cursor 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\".)" t nil) + +(add-minor-mode 'mouse-avoidance-mode " Avoid") + +;;;*** + +;;;### (autoloads (blink-cursor-mode) "blink-cursor" "packages/blink-cursor.el") + +(autoload 'blink-cursor-mode "blink-cursor" "\ +Enable or disable a blinking cursor. +If TIMEOUT is nil, toggle on or off. +If TIMEOUT is t, enable with the previous timeout value. +If TIMEOUT is 0, disable. +If TIMEOUT is greater than 0, then the cursor will blink once +each TIMEOUT secs (can be a float)." t nil) + +;;;*** + +;;;### (autoloads (bookmark-menu-delete bookmark-menu-rename bookmark-menu-locate bookmark-menu-jump bookmark-menu-insert bookmark-bmenu-list bookmark-load bookmark-save bookmark-write bookmark-delete bookmark-insert bookmark-rename bookmark-insert-location bookmark-relocate bookmark-jump bookmark-set) "bookmark" "packages/bookmark.el") + +(if (symbolp (key-binding "r")) nil (progn (define-key ctl-x-map "rb" 'bookmark-jump) (define-key ctl-x-map "rm" 'bookmark-set) (define-key ctl-x-map "rl" 'bookmark-bmenu-list))) + +(defvar bookmark-map nil "\ +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.") + +(define-prefix-command 'bookmark-map) + +(define-key bookmark-map "x" 'bookmark-set) + +(define-key bookmark-map "m" 'bookmark-set) + +(define-key bookmark-map "j" 'bookmark-jump) + +(define-key bookmark-map "g" 'bookmark-jump) + +(define-key bookmark-map "i" 'bookmark-insert) + +(define-key bookmark-map "e" 'edit-bookmarks) + +(define-key bookmark-map "f" 'bookmark-insert-location) + +(define-key bookmark-map "r" 'bookmark-rename) + +(define-key bookmark-map "d" 'bookmark-delete) + +(define-key bookmark-map "l" 'bookmark-load) + +(define-key bookmark-map "w" 'bookmark-write) + +(define-key bookmark-map "s" 'bookmark-save) + +(autoload 'bookmark-set "bookmark" "\ +Set a bookmark named NAME inside a file. +If name is nil, then the user will be prompted. +With prefix arg, will not overwrite a bookmark that has the same name +as NAME if such a bookmark already exists, but instead will \"push\" +the new bookmark onto the bookmark alist. Thus the most recently set +bookmark with name NAME would be the one in effect at any given time, +but the others are still there, should you 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 the name of the last bookmark used in the buffer +\(as an aid in using a single bookmark name to track your progress +through a large file). If no bookmark was used, then C-u inserts the +name of the file being visited. + +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.)" 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." t nil) + +(autoload 'bookmark-relocate "bookmark" "\ +Relocate BOOKMARK -- prompts for a filename, and 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." t nil) + +(autoload 'bookmark-insert-location "bookmark" "\ +Insert the name of the file associated with BOOKMARK. +Optional second arg NO-HISTORY means don't record this in the +minibuffer history list `bookmark-history'." t nil) + +(autoload 'bookmark-rename "bookmark" "\ +Change the name of OLD bookmark to NEW name. If called from +keyboard, prompts for OLD and NEW. If called from menubar, OLD is +selected from a menu, and prompts for NEW. + +If called from Lisp, prompts for NEW if only OLD was passed as an +argument. If called with two strings, then no prompting is done. You +must pass at least OLD when calling from Lisp. + +While you are entering the new name, consecutive C-w's insert +consectutive words from the text of the buffer into the new bookmark +name." t nil) + +(autoload 'bookmark-insert "bookmark" "\ +Insert the text of the file pointed to by bookmark BOOKMARK. +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." t nil) + +(autoload 'bookmark-delete "bookmark" "\ +Delete BOOKMARK 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." t nil) + +(autoload 'bookmark-write "bookmark" "\ +Write bookmarks to a file (for which the user will be prompted +interactively). Don't use this in Lisp programs; use bookmark-save +instead." 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 PREFIX-ARG +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'." 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 REVERT 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." 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." t nil) + +(defalias 'list-bookmarks 'bookmark-bmenu-list) + +(defalias 'edit-bookmarks 'bookmark-bmenu-list) + +(autoload 'bookmark-menu-insert "bookmark" "\ +Insert the text of the file pointed to by bookmark BOOKMARK. +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. + +Warning: this function only takes an EVENT as argument. Use the +corresponding bookmark function from Lisp (the one without the +\"-menu-\" in its name)." t nil) + +(autoload 'bookmark-menu-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. + +Warning: this function only takes an EVENT as argument. Use the +corresponding bookmark function from Lisp (the one without the +\"-menu-\" in its name)." t nil) + +(autoload 'bookmark-menu-locate "bookmark" "\ +Insert the name of the file associated with BOOKMARK. +\(This is not the same as the contents of that file). + +Warning: this function only takes an EVENT as argument. Use the +corresponding bookmark function from Lisp (the one without the +\"-menu-\" in its name)." t nil) + +(autoload 'bookmark-menu-rename "bookmark" "\ +Change the name of OLD-BOOKMARK to NEWNAME. +If called from keyboard, prompts for OLD-BOOKMARK and NEWNAME. +If called from menubar, OLD-BOOKMARK is selected from a menu, and +prompts for NEWNAME. +If called from Lisp, prompts for NEWNAME if only OLD-BOOKMARK was +passed as an argument. If called with two strings, then no prompting +is done. You must pass at least OLD-BOOKMARK when calling from Lisp. + +While you are entering the new name, consecutive C-w's insert +consectutive words from the text of the buffer into the new bookmark +name. + +Warning: this function only takes an EVENT as argument. Use the +corresponding bookmark function from Lisp (the one without the +\"-menu-\" in its name)." t nil) + +(autoload 'bookmark-menu-delete "bookmark" "\ +Delete the bookmark named 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). + +Warning: this function only takes an EVENT as argument. Use the +corresponding bookmark function from Lisp (the one without the +\"-menu-\" in its name)." t nil) + +;;;*** + +;;;### (autoloads nil "buff-menu" "packages/buff-menu.el") + +(defvar list-buffers-directory nil) + +(make-variable-buffer-local 'list-buffers-directory) + +;;;*** + +;;;### (autoloads (command-history-mode list-command-history repeat-matching-complex-command) "chistory" "packages/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." 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." t nil) + +(autoload 'command-history-mode "chistory" "\ +Major mode for examining commands from `command-history'. +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} +Calls the value of `command-history-hook' if that is non-nil. +The Command History listing is recomputed each time this mode is invoked." t nil) + +;;;*** + +;;;### (autoloads nil "cmuscheme" "packages/cmuscheme.el") + +(add-hook 'same-window-buffer-names "*scheme*") + +;;;*** + +;;;### (autoloads (display-column-mode) "column" "packages/column.el") + +(autoload 'display-column-mode "column" "\ +Toggle display column mode. +With prefix arg, turn display column mode on iff arg is positive. + +When display column mode is on, the current column and line number are +displayed in the mode line." t nil) + +;;;*** + +;;;### (autoloads (compare-windows) "compare-w" "packages/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 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." t nil) + +;;;*** + +;;;### (autoloads (first-error previous-error next-error compilation-minor-mode grep compile) "compile" "packages/compile.el") + +(defvar compilation-mode-hook nil "\ +*List of hook functions run by `compilation-mode' (see `run-hooks').") + +(defvar compilation-window-height nil "\ +*Number of lines in a compilation window. If nil, use Emacs default.") + +(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. +nil means 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-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. +nil as an element means to try the default directory.") + +(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. + +Interactively, prompts for the command if `compilation-read-command' is +non-nil; otherwise uses `compile-command'. With prefix arg, always prompts. + +To run more than one compilation at once, start one and rename the +`*compilation*' buffer to some other name with \\[rename-buffer]. +Then start the next one. + +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." t nil) + +(autoload 'grep "compile" "\ +Run grep, with user-specified args, and collect output in a buffer. +While grep 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 grep command." t nil) + +(autoload 'compilation-minor-mode "compile" "\ +Toggle compilation minor mode. +With arg, turn compilation mode on if and only if arg is positive. +See `compilation-mode'. +! \\{compilation-mode-map}" t nil) + +(autoload 'next-error "compile" "\ +Visit next compilation error message and corresponding source code. +This operates on the output from the \\[compile] command. +If all preparsed error messages have been processed, +the error message buffer is checked for new ones. + +A prefix arg specifies how many error messages to move; +negative means move back to previous error messages. +Just C-u as a prefix means reparse the error message buffer +and start at the first error. + +\\[next-error] normally applies to the most recent compilation started, +but as long as you are in the middle of parsing errors from one compilation +output buffer, you stay with that compilation output buffer. + +Use \\[next-error] in a compilation output buffer to switch to +processing errors from that compilation. + +See variables `compilation-parse-errors-function' and +`compilation-error-regexp-alist' for customization ideas." t nil) + +(define-key ctl-x-map "`" 'next-error) + +(autoload 'previous-error "compile" "\ +Visit previous compilation error message and corresponding source code. +This operates on the output from the \\[compile] command." t nil) + +(autoload 'first-error "compile" "\ +Reparse the error message buffer and start at the first error +Visit corresponding source code. +This operates on the output from the \\[compile] command." t nil) + +;;;*** + +;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "packages/dabbrev.el") + +(define-key global-map [(meta /)] 'dabbrev-expand) + +(define-key global-map [(meta control /)] '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, 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 C-u C-u), +then it searches *all* buffers. + +With no prefix argument, it reuses an old completion list +if there is a suitable one already." 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]." t nil) + +;;;*** + +;;;### (autoloads (diff-backup diff) "diff" "packages/diff.el") + +(defvar diff-switches (purecopy "-c") "\ +*A string or list of strings specifying switches to be passed to diff.") + +(autoload 'diff "diff" "\ +Find and display the differences between OLD and NEW files. +Interactively the current buffer's file name is the default for NEW +and a backup file for NEW is the default for OLD. +With prefix arg, prompt for diff switches." 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'." t nil) + +;;;*** + +;;;### (autoloads (edit-faces) "edit-faces" "packages/edit-faces.el") + +(autoload 'edit-faces "edit-faces" "\ +Alter face characteristics by editing a list of defined faces. +Pops up a buffer containing a list of defined faces. + +Editing commands: + +\\{edit-faces-mode-map}" t nil) + +;;;*** + +;;;### (autoloads (report-xemacs-bug) "emacsbug" "packages/emacsbug.el") + +(autoload 'report-xemacs-bug "emacsbug" "\ +Report a bug in XEmacs. +Prompts for bug subject. Leaves you in a mail buffer." t nil) + +;;;*** + +;;;### (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" "packages/emerge.el") + +(autoload 'emerge-files "emerge" "\ +Run Emerge on two files." t nil) + +(fset 'emerge 'emerge-files) + +(autoload 'emerge-files-with-ancestor "emerge" "\ +Run Emerge on two files, giving another file as the ancestor." t nil) + +(autoload 'emerge-buffers "emerge" "\ +Run Emerge on two buffers." t nil) + +(autoload 'emerge-buffers-with-ancestor "emerge" "\ +Run Emerge on two buffers, giving another buffer as the ancestor." t nil) + +(autoload 'emerge-files-command "emerge" nil nil nil) + +(autoload 'emerge-files-with-ancestor-command "emerge" nil nil nil) + +(autoload 'emerge-files-remote "emerge" nil nil nil) + +(autoload 'emerge-files-with-ancestor-remote "emerge" nil nil nil) + +(autoload 'emerge-revisions "emerge" "\ +Emerge two RCS revisions of a file." t nil) + +(autoload 'emerge-revisions-with-ancestor "emerge" "\ +Emerge two RCS revisions of a file, with another revision as ancestor." t nil) + +(autoload 'emerge-merge-directories "emerge" nil t nil) + +;;;*** + +;;;### (autoloads (tags-apropos list-tags tags-query-replace tags-search tags-loop-continue next-file find-tag-other-window find-tag visit-tags-table) "etags" "packages/etags.el") + +(defvar tags-build-completion-table 'ask "\ +*If this variable is nil, then tags completion is disabled. +If this variable is t, then things which prompt for tags will do so with + completion across all known tags. +If this variable is the symbol `ask', then you will be asked whether each + tags table should be added to the completion list as it is read in. + (With the exception that for very small tags tables, you will not be asked, + since they can be parsed quickly.)") + +(defvar tags-always-exact nil "\ +*If this variable is non-nil, then tags always looks for exact matches.") + +(defvar tag-table-alist nil "\ +*A list which determines which tags files should be active for a +given buffer. This is not really an association list, in that all +elements are checked. The CAR of each element of this list is a +pattern against which the buffer's file name is compared; if it +matches, then the CDR of the list should be the name of the tags +table to use. If more than one element of this list matches the +buffer's file name, then all of the associated tags tables will be +used. Earlier ones will be searched first. + +If the CAR of elements of this list are strings, then they are treated +as regular-expressions against which the file is compared (like the +auto-mode-alist). If they are not strings, then they are evaluated. +If they evaluate to non-nil, then the current buffer is considered to +match. + +If the CDR of the elements of this list are strings, then they are +assumed to name a TAGS file. If they name a directory, then the string +\"TAGS\" is appended to them to get the file name. If they are not +strings, then they are evaluated, and must return an appropriate string. + +For example: + (setq tag-table-alist + '((\"/usr/src/public/perl/\" . \"/usr/src/public/perl/perl-3.0/\") + (\"\\\\.el$\" . \"/usr/local/emacs/src/\") + (\"/jbw/gnu/\" . \"/usr15/degree/stud/jbw/gnu/\") + (\"\" . \"/usr/local/emacs/src/\") + )) + +This means that anything in the /usr/src/public/perl/ directory should use +the TAGS file /usr/src/public/perl/perl-3.0/TAGS; and file ending in .el should +use the TAGS file /usr/local/emacs/src/TAGS; and anything in or below the +directory /jbw/gnu/ should use the TAGS file /usr15/degree/stud/jbw/gnu/TAGS. +A file called something like \"/usr/jbw/foo.el\" would use both the TAGS files +/usr/local/emacs/src/TAGS and /usr15/degree/stud/jbw/gnu/TAGS (in that order) +because it matches both patterns. + +If the buffer-local variable `buffer-tag-table' is set, then it names a tags +table that is searched before all others when find-tag is executed from this +buffer. + +If there is a file called \"TAGS\" in the same directory as the file in +question, then that tags file will always be used as well (after the +`buffer-tag-table' but before the tables specified by this list.) + +If the variable tags-file-name is set, then the tags file it names will apply +to all buffers (for backwards compatibility.) It is searched first. +") + +(autoload 'visit-tags-table "etags" "\ +Tell tags commands to use tags table file FILE first. +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." t nil) + +(autoload 'find-tag "etags" "\ +*Find tag whose name contains TAGNAME. + Selects the buffer that the tag is contained in +and puts point at its definition. + If TAGNAME is a null string, the expression in the buffer +around or before point is used as the tag name. + If called interactively with a numeric argument, searches for the next tag +in the tag table that matches the tagname used in the previous find-tag. + If second arg OTHER-WINDOW is non-nil, uses another window to display +the tag. + +This version of this function supports multiple active tags tables, +and completion. + +Variables of note: + + tag-table-alist controls which tables apply to which buffers + tags-file-name a default tags table + tags-build-completion-table controls completion behavior + buffer-tag-table another way of specifying a buffer-local table + make-tags-files-invisible whether tags tables should be very hidden + tag-mark-stack-max how many tags-based hops to remember" t nil) + +(autoload 'find-tag-other-window "etags" "\ +*Find tag whose name contains TAGNAME. + Selects the buffer that the tag is contained in in another window +and puts point at its definition. + If TAGNAME is a null string, the expression in the buffer +around or before point is used as the tag name. + If second arg NEXT is non-nil (interactively, with prefix arg), +searches for the next tag in the tag table +that matches the tagname used in the previous find-tag. + +This version of this function supports multiple active tags tables, +and completion. + +Variables of note: + + tag-table-alist controls which tables apply to which buffers + tags-file-name a default tags table + tags-build-completion-table controls completion behavior + buffer-tag-table another way of specifying a buffer-local table + make-tags-files-invisible whether tags tables should be very hidden + tag-mark-stack-max how many tags-based hops to remember" t nil) + +(autoload 'next-file "etags" "\ +Select next file among files in current tag table(s). + +A first argument of t (prefix arg, if interactive) initializes to the +beginning of the list of files in the (first) 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." 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 execute to operate on an interesting file +If the latter returns non-nil, we exit; otherwise we scan the next file." t nil) + +(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]. + +See documentation of variable `tag-table-alist'." t nil) + +(autoload 'tags-query-replace "etags" "\ +Query-replace-regexp FROM with TO through all files listed in tags table. +Third arg DELIMITED (prefix arg) means replace only word-delimited matches. +If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace +with the command \\[tags-loop-continue]. + +See documentation of variable `tag-table-alist'." t nil) + +(autoload 'list-tags "etags" "\ +Display list of tags in file FILE. +FILE should not contain a directory spec +unless it has one in the tag table." t nil) + +(autoload 'tags-apropos "etags" "\ +Display list of all tags in tag table REGEXP matches." t nil) + +;;;*** + +;;;### (autoloads (turn-on-fast-lock fast-lock-mode) "fast-lock" "packages/fast-lock.el") + +(defvar fast-lock-mode nil) + +(autoload 'fast-lock-mode "fast-lock" "\ +Toggle Fast Lock mode. +With arg, turn Fast Lock mode on if and only if arg is positive and the buffer +is associated with a file. Enable it automatically in your `~/.emacs' by: + + (setq font-lock-support-mode 'fast-lock-mode) + +If Fast Lock mode is enabled, and the current buffer does not contain any text +properties, any associated Font Lock cache is used if its timestamp matches the +buffer's file, and its `font-lock-keywords' match those that you are using. + +Font Lock caches may be saved: + - When you save the file's buffer. + - When you kill an unmodified file's buffer. + - When you exit Emacs, for all unmodified or saved buffers. +Depending on the value of `fast-lock-save-events'. +See also the commands `fast-lock-read-cache' and `fast-lock-save-cache'. + +Use \\[font-lock-fontify-buffer] to fontify the buffer if the cache is bad. + +Various methods of control are provided for the Font Lock cache. In general, +see variable `fast-lock-cache-directories' and function `fast-lock-cache-name'. +For saving, see variables `fast-lock-minimum-size', `fast-lock-save-events', +`fast-lock-save-others' and `fast-lock-save-faces'. + +Use \\[fast-lock-submit-bug-report] to send bug reports or feedback." t nil) + +(autoload 'turn-on-fast-lock "fast-lock" "\ +Unconditionally turn on Fast Lock mode." nil nil) + +(if (fboundp 'add-minor-mode) (add-minor-mode 'fast-lock-mode nil)) + +;;;*** + +;;;### (autoloads (feedmail-send-it) "feedmail" "packages/feedmail.el") + +(autoload 'feedmail-send-it "feedmail" nil nil nil) + +;;;*** + +;;;### (autoloads (make-file-part) "file-part" "packages/file-part.el") + +(autoload 'make-file-part "file-part" "\ +Make a file part on buffer BUFFER out of the region. Call it NAME. +This command creates a new buffer containing the contents of the +region and marks the buffer as referring to the specified buffer, +called the `master buffer'. When the file-part buffer is saved, +its changes are integrated back into the master buffer. When the +master buffer is deleted, all file parts are deleted with it. + +When called from a function, expects four arguments, START, END, +NAME, and BUFFER, all of which are optional and default to the +beginning of BUFFER, the end of BUFFER, a name generated from +BUFFER's name, and the current buffer, respectively." t nil) + +;;;*** + +;;;### (autoloads (font-lock-fontify-buffer turn-off-font-lock turn-on-font-lock font-lock-mode) "font-lock" "packages/font-lock.el") + +(defvar font-lock-auto-fontify t "\ +*Whether font-lock should automatically fontify files as they're loaded. +This will only happen if font-lock has fontifying keywords for the major +mode of the file. You can get finer-grained control over auto-fontification +by using this variable in combination with `font-lock-mode-enable-list' or +`font-lock-mode-disable-list'.") + +(defvar font-lock-mode-enable-list nil "\ +*List of modes to auto-fontify, if `font-lock-auto-fontify' is nil.") + +(defvar font-lock-mode-disable-list nil "\ +*List of modes not to auto-fontify, if `font-lock-auto-fontify' is t.") + +(defvar font-lock-use-colors '(color) "\ +*Specification for when Font Lock will set up color defaults. +Normally this should be '(color), meaning that Font Lock will set up +color defaults that are only used on color displays. Set this to nil +if you don't want Font Lock to set up color defaults at all. This +should be one of + +-- a list of valid tags, meaning that the color defaults will be used + when all of the tags apply. (e.g. '(color x)) +-- a list whose first element is 'or and whose remaining elements are + lists of valid tags, meaning that the defaults will be used when + any of the tag lists apply. +-- nil, meaning that the defaults should not be set up at all. + +\(If you specify face values in your init file, they will override any +that Font Lock specifies, regardless of whether you specify the face +values before or after loading Font Lock.) + +See also `font-lock-use-fonts'. If you want more control over the faces +used for fontification, see the documentation of `font-lock-mode' for +how to do it.") + +(defvar font-lock-use-fonts '(or (mono) (grayscale)) "\ +*Specification for when Font Lock will set up non-color defaults. + +Normally this should be '(or (mono) (grayscale)), meaning that Font +Lock will set up non-color defaults that are only used on either mono +or grayscale displays. Set this to nil if you don't want Font Lock to +set up non-color defaults at all. This should be one of + +-- a list of valid tags, meaning that the non-color defaults will be used + when all of the tags apply. (e.g. '(grayscale x)) +-- a list whose first element is 'or and whose remaining elements are + lists of valid tags, meaning that the defaults will be used when + any of the tag lists apply. +-- nil, meaning that the defaults should not be set up at all. + +\(If you specify face values in your init file, they will override any +that Font Lock specifies, regardless of whether you specify the face +values before or after loading Font Lock.) + +See also `font-lock-use-colors'. If you want more control over the faces +used for fontification, see the documentation of `font-lock-mode' for +how to do it.") + +(defvar font-lock-maximum-decoration nil "\ +*If non-nil, the maximum decoration level for fontifying. +If nil, use the minimum decoration (equivalent to level 0). +If t, use the maximum decoration available. +If a number, use that level of decoration (or if not available the maximum). +If a list, each element should be a cons pair of the form (MAJOR-MODE . LEVEL), +where MAJOR-MODE is a symbol or t (meaning the default). For example: + ((c++-mode . 2) (c-mode . t) (t . 1)) +means use level 2 decoration for buffers in `c++-mode', the maximum decoration +available for buffers in `c-mode', and level 1 decoration otherwise.") + +(define-obsolete-variable-alias 'font-lock-use-maximal-decoration 'font-lock-maximum-decoration) + +(defvar font-lock-maximum-size (* 250 1024) "\ +*If non-nil, the maximum size for buffers for fontifying. +Only buffers less than this can be fontified when Font Lock mode is turned on. +If nil, means size is irrelevant. +If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE), +where MAJOR-MODE is a symbol or t (meaning the default). For example: + ((c++-mode . 256000) (c-mode . 256000) (rmail-mode . 1048576)) +means that the maximum size is 250K for buffers in `c++-mode' or `c-mode', one +megabyte for buffers in `rmail-mode', and size is irrelevant otherwise.") + +(defvar font-lock-keywords nil "\ +*A list of the keywords to highlight. +Each element should be of the form: + + MATCHER + (MATCHER . MATCH) + (MATCHER . FACENAME) + (MATCHER . HIGHLIGHT) + (MATCHER HIGHLIGHT ...) + +where HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED. + +For highlighting single items, typically only MATCH-HIGHLIGHT is required. +However, if an item or (typically) items is to be hightlighted following the +instance of another item (the anchor) then MATCH-ANCHORED may be required. + +MATCH-HIGHLIGHT should be of the form: + + (MATCH FACENAME OVERRIDE LAXMATCH) + +Where MATCHER can be either the regexp to search for, or the function name to +call to make the search (called with one argument, the limit of the search). +MATCH is the subexpression of MATCHER to be highlighted. FACENAME is either +a symbol naming a face, or an expression whose value is the face name to use. +If you want FACENAME to be a symbol that evaluates to a face, use a form +like \"(progn sym)\". + +OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification may +be overwritten. If `keep', only parts not already fontified are highlighted. +If `prepend' or `append', existing fontification is merged with the new, in +which the new or existing fontification, respectively, takes precedence. +If LAXMATCH is non-nil, no error is signalled if there is no MATCH in MATCHER. + +For example, an element of the form highlights (if not already highlighted): + + \"\\\\\\=<foo\\\\\\=>\" Discrete occurrences of \"foo\" in the value of the + variable `font-lock-keyword-face'. + (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of \"fubar\" in + the value of `font-lock-keyword-face'. + (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of `fubar-face'. + (\"foo\\\\|bar\" 0 foo-bar-face t) + Occurrences of either \"foo\" or \"bar\" in the value + of `foo-bar-face', even if already highlighted. + +MATCH-ANCHORED should be of the form: + + (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...) + +Where MATCHER is as for MATCH-HIGHLIGHT with one exception. The limit of the +search is currently guaranteed to be (no greater than) the end of the line. +PRE-MATCH-FORM and POST-MATCH-FORM are evaluated before the first, and after +the last, instance MATCH-ANCHORED's MATCHER is used. Therefore they can be +used to initialise before, and cleanup after, MATCHER is used. Typically, +PRE-MATCH-FORM is used to move to some position relative to the original +MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might +be used to move, before resuming with MATCH-ANCHORED's parent's MATCHER. + +For example, an element of the form highlights (if not already highlighted): + + (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face))) + + Discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent + discrete occurrences of \"item\" (on the same line) in the value of `item-face'. + (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil. Therefore \"item\" is + initially searched for starting from the end of the match of \"anchor\", and + searching for subsequent instance of \"anchor\" resumes from where searching + for \"item\" concluded.) + +Note that the MATCH-ANCHORED feature is experimental; in the future, we may +replace it with other ways of providing this functionality. + +These regular expressions should not match text which spans lines. While +\\[font-lock-fontify-buffer] handles multi-line patterns correctly, updating +when you edit the buffer does not, since it considers text one line at a time. + +Be very careful composing regexps for this list; +the wrong pattern can dramatically slow things down!") + +(make-variable-buffer-local 'font-lock-keywords) + +(defvar font-lock-mode nil) + +(defvar font-lock-mode-hook nil "\ +Function or functions to run on entry to font-lock-mode.") + +(autoload 'font-lock-mode "font-lock" "\ +Toggle Font Lock Mode. +With arg, turn font-lock mode on if and only if arg is positive. + +When Font Lock mode is enabled, text is fontified as you type it: + + - Comments are displayed in `font-lock-comment-face'; + - Strings are displayed in `font-lock-string-face'; + - Documentation strings (in Lisp-like languages) are displayed in + `font-lock-doc-string-face'; + - Language keywords (\"reserved words\") are displayed in + `font-lock-keyword-face'; + - Function names in their defining form are displayed in + `font-lock-function-name-face'; + - Variable names in their defining form are displayed in + `font-lock-variable-name-face'; + - Type names are displayed in `font-lock-type-face'; + - References appearing in help files and the like are displayed + in `font-lock-reference-face'; + - Preprocessor declarations are displayed in + `font-lock-preprocessor-face'; + + and + + - Certain other expressions are displayed in other faces according + to the value of the variable `font-lock-keywords'. + +Where modes support different levels of fontification, you can use the variable +`font-lock-maximum-decoration' to specify which level you generally prefer. +When you turn Font Lock mode on/off the buffer is fontified/defontified, though +fontification occurs only if the buffer is less than `font-lock-maximum-size'. +To fontify a buffer without turning on Font Lock mode, and regardless of buffer +size, you can use \\[font-lock-fontify-buffer]. + +See the variable `font-lock-keywords' for customization." t nil) + +(autoload 'turn-on-font-lock "font-lock" "\ +Unconditionally turn on Font Lock mode." nil nil) + +(autoload 'turn-off-font-lock "font-lock" "\ +Unconditionally turn off Font Lock mode." nil nil) + +(autoload 'font-lock-fontify-buffer "font-lock" "\ +Fontify the current buffer the way `font-lock-mode' would. +See `font-lock-mode' for details. + +This can take a while for large buffers." t nil) + +(add-minor-mode 'font-lock-mode " Font") + +;;;*** + +;;;### (autoloads (sc-mode) "generic-sc" "packages/generic-sc.el") + +(autoload 'sc-mode "generic-sc" "\ +Toggle sc-mode. +SYSTEM can be sccs, rcs or cvs. +Cvs requires the pcl-cvs package. + +The following commands are available +\\[sc-next-operation] perform next logical source control operation on current file +\\[sc-show-changes] compare the version being edited with an older one +\\[sc-version-diff-file] compare two older versions of a file +\\[sc-show-history] display change history of current file +\\[sc-visit-previous-revision] display an older revision of current file +\\[sc-revert-file] revert buffer to last checked-in version +\\[sc-list-all-locked-files] show all files locked in current directory +\\[sc-list-locked-files] show all files locked by you in current directory +\\[sc-list-registered-files] show all files under source control in current directory +\\[sc-update-directory] get fresh copies of files checked-in by others in current directory +\\[sc-rename-file] rename the current file and its source control file + + +While you are entering a change log message for a check in, sc-log-entry-mode +will be in effect. + +Global user options: + sc-diff-command A list consisting of the command and flags + to be used for generating context diffs. + sc-mode-expert suppresses some conformation prompts, + notably for delta aborts and file saves. + sc-max-log-size specifies the maximum allowable size + of a log message plus one. + + +When using SCCS you have additional commands and options + +\\[sccs-insert-headers] insert source control headers in current file + +When you generate headers into a buffer using \\[sccs-insert-headers], +the value of sc-insert-headers-hook is called before insertion. If the +file is recognized a C or Lisp source, sc-insert-c-header-hook or +sc-insert-lisp-header-hook is called after insertion respectively. + + sccs-headers-wanted which %-keywords to insert when adding + headers with C-c h + sccs-insert-static if non-nil, keywords inserted in C files + get stuffed in a static string area so that + what(1) can see them in the compiled object code. + +When using CVS you have additional commands + +\\[sc-cvs-update-directory] update the current directory using pcl-cvs +\\[sc-cvs-file-status] show the CVS status of current file +" t nil) + +;;;*** + +;;;### (autoloads (gnuserv-start) "gnuserv" "packages/gnuserv.el") + +(defvar gnuserv-frame nil "\ +*If non-nil, the frame to be used to display all edited files. +If nil, then a new frame is created for each file edited. +This variable has no effect in XEmacs versions older than 19.9.") + +(autoload 'gnuserv-start "gnuserv" "\ +Allow this Emacs process to be a server for client processes. +This starts a server communications subprocess through which +client \"editors\" (gnuclient and gnudoit) can send editing commands to +this Emacs job. See the gnuserv(1) manual page for more details. + +Prefix arg means just kill any existing server communications subprocess." t nil) + +;;;*** + +;;;### (autoloads (gopher-atpoint gopher) "gopher" "packages/gopher.el") + +(autoload 'gopher "gopher" "\ +Start a gopher session. With C-u, prompt for a gopher server." t nil) + +(autoload 'gopher-atpoint "gopher" "\ +Try to interpret the text around point as a gopher bookmark, and dispatch +to that object." t nil) + +;;;*** + +;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl" "packages/hexl.el") + +(autoload 'hexl-mode "hexl" "\ +\\<hexl-mode-map> +A major mode for editing binary files in hex dump format. + +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 16 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 (ie. 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." t nil) + +(autoload 'hexl-find-file "hexl" "\ +Edit file FILENAME in hexl-mode. +Switch to a buffer visiting file FILENAME, creating one in none exists." t nil) + +(autoload 'hexlify-buffer "hexl" "\ +Convert a binary buffer to hexl format. +This discards the buffer's undo information." t nil) + +;;;*** + +;;;### (autoloads (hypropos-popup-menu hypropos-set-variable hyper-describe-function hyper-describe-variable hyper-apropos) "hyper-apropos" "packages/hyper-apropos.el") + +(defvar hypropos-show-brief-docs t "\ +*If non-nil, `hyper-apropos' will display some documentation in the +\"*Hyper Apropos*\" buffer. Setting this to nil will speed up searches.") + +(autoload 'hyper-apropos "hyper-apropos" "\ +Display lists of functions and variables matching REGEXP +in buffer \"*Hyper Apropos*\". If optional prefix arg is given, then the value +of `hypropos-programming-apropos' is toggled for this search. +See also `hyper-apropos-mode'." t nil) + +(autoload 'hyper-describe-variable "hyper-apropos" "\ +Hypertext drop-in replacement for `describe-variable'. +See also `hyper-apropos' and `hyper-describe-function'." t nil) + +(autoload 'hyper-describe-function "hyper-apropos" "\ +Hypertext replacement for `describe-function'. Unlike `describe-function' +in that the symbol under the cursor is the default if it is a function. +See also `hyper-apropos' and `hyper-describe-variable'." t nil) + +(autoload 'hypropos-set-variable "hyper-apropos" "\ +Interactively set the variable on the current line." t nil) + +(autoload 'hypropos-popup-menu "hyper-apropos" nil t nil) + +;;;*** + +;;;### (autoloads (icomplete-minibuffer-setup icomplete-mode) "icomplete" "packages/icomplete.el") + +(autoload 'icomplete-mode "icomplete" "\ +Activate incremental minibuffer completion for this emacs session, +or deactivate with negative prefix arg." t nil) + +(autoload 'icomplete-minibuffer-setup "icomplete" "\ +Run in minibuffer on activation to establish incremental completion. +Usually run by inclusion in `minibuffer-setup-hook'." nil nil) + +;;;*** + +;;;### (autoloads (Info-elisp-ref Info-emacs-key Info-goto-emacs-key-command-node Info-goto-emacs-command-node Info-emacs-command Info-search Info-visit-file Info-goto-node Info-query info) "info" "packages/info.el") + +(autoload 'info "info" "\ +Enter Info, the documentation browser. +Optional argument FILE specifies the file to examine; +the default is the top-level directory of Info. + +In interactive use, a prefix argument directs this command +to read a file name from the minibuffer." t nil) + +(autoload 'Info-query "info" "\ +Enter Info, the documentation browser. Prompt for name of Info file." t nil) + +(autoload 'Info-goto-node "info" "\ +Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME. +Actually, the following interpretations of NAME are tried in order: + (FILENAME)NODENAME + (FILENAME) (using Top node) + NODENAME (in current file) + TAGNAME (see below) + FILENAME (using Top node) +where TAGNAME is a string that appears in quotes: \"TAGNAME\", in an +annotation for any node of any file. (See `a' and `x' commands.)" t nil) + +(autoload 'Info-visit-file "info" "\ +Directly visit an info file." t nil) + +(autoload 'Info-search "info" "\ +Search for REGEXP, starting from point, and select node it's found in." t nil) + +(autoload 'Info-emacs-command "info" "\ +Look up an Emacs command in the Emacs manual in the Info system. +This command is designed to be used whether you are already in Info or not." t nil) + +(autoload 'Info-goto-emacs-command-node "info" "\ +Look up an Emacs command in the Emacs manual in the Info system. +This command is designed to be used whether you are already in Info or not." t nil) + +(autoload 'Info-goto-emacs-key-command-node "info" "\ +Look up an Emacs key sequence in the Emacs manual in the Info system. +This command is designed to be used whether you are already in Info or not." t nil) + +(autoload 'Info-emacs-key "info" "\ +Look up an Emacs key sequence in the Emacs manual in the Info system. +This command is designed to be used whether you are already in Info or not." t nil) + +(autoload 'Info-elisp-ref "info" "\ +Look up an Emacs Lisp function in the Elisp manual in the Info system. +This command is designed to be used whether you are already in Info or not." t nil) + +;;;*** + +;;;### (autoloads (batch-info-validate Info-validate Info-split Info-tagify) "informat" "packages/informat.el") + +(autoload 'Info-tagify "informat" "\ +Create or update Info-file tag table in current buffer." t nil) + +(autoload 'Info-split "informat" "\ +Split an info file into an indirect file plus bounded-size subfiles. +Each subfile will be up to 50,000 characters 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." 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." 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\"" nil nil) + +;;;*** + +;;;### (autoloads (ispell-message ispell-minor-mode ispell-complete-word-interior-frag ispell-complete-word ispell-continue ispell-buffer ispell-region ispell-change-dictionary ispell-kill-ispell ispell-help ispell-word) "ispell" "packages/ispell.el") + +(defvar ispell-personal-dictionary nil "\ +*File name of your personal spelling dictionary, or nil. +If nil, the default personal dictionary, \"~/.ispell_DICTNAME\" is used, +where DICTNAME is the name of your default dictionary.") + +(defvar ispell-dictionary-alist-1 '((nil "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil) ("english" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil) ("british" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "british") nil) ("deutsch" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex") ("deutsch8" "[a-zA-Z,ADV\dv_|(B]" "[^a-zA-Z,ADV\dv_|(B]" "[']" t ("-C" "-d" "deutsch") "~latin1") ("nederlands" "[A-Za-z,A@(B-,AEGH(B-,AOR(B-,AVY(B-,A\`(B-,Aegh(B-,Aoqr(B-,Avy(B-,A|(B]" "[^A-Za-z,A@(B-,AEGH(B-,AOR(B-,AVY(B-,A\`(B-,Aegh(B-,Aoqr(B-,Avy(B-,A|(B]" "[']" t ("-C") nil) ("nederlands8" "[A-Za-z,A@(B-,AEGH(B-,AOR(B-,AVY(B-,A\`(B-,Aegh(B-,Aoqr(B-,Avy(B-,A|(B]" "[^A-Za-z,A@(B-,AEGH(B-,AOR(B-,AVY(B-,A\`(B-,Aegh(B-,Aoqr(B-,Avy(B-,A|(B]" "[']" t ("-C") nil))) + +(defvar ispell-dictionary-alist-2 '(("svenska" "[A-Za-z}{|\\133\\135\\\\]" "[^A-Za-z}{|\\133\\135\\\\]" "[']" nil ("-C") nil) ("svenska8" "[A-Za-z,AedvEDv(B]" "[^A-Za-z,AedvEDv(B]" "[']" nil ("-C" "-d" "svenska") "~list") ("francais7" "[A-Za-z]" "[^A-Za-z]" "[`'^---]" t nil nil) ("francais" "[A-Za-z,A@BFGHIJKNOTY[\`bghijknoty{|(B]" "[^A-Za-z,A@BFGHIJKNOTY[\`bghijknoty{|(B]" "[---']" t nil "~list") ("francais-tex" "[A-Za-z,A@BFGHIJKNOTY[\`bghijknoty{|(B\\]" "[^A-Za-z,A@BFGHIJKNOTY[\`bghijknoty{|(B\\]" "[---'^`\"]" t nil "~tex") ("dansk" "[A-Z,AFXE(Ba-z,Afxe(B]" "[^A-Z,AFXE(Ba-z,Afxe(B]" "" nil ("-C") nil))) + +(defvar ispell-dictionary-alist (append ispell-dictionary-alist-1 ispell-dictionary-alist-2) "\ +An alist of dictionaries and their associated parameters. + +Each element of this list is also a list: + +\(DICTIONARY-NAME CASECHARS NOT-CASECHARS OTHERCHARS MANY-OTHERCHARS-P + ISPELL-ARGS EXTENDED-CHARACTER-MODE) + +DICTIONARY-NAME is a possible value of variable `ispell-dictionary', nil +means the default dictionary. + +CASECHARS is a regular expression of valid characters that comprise a +word. + +NOT-CASECHARS is the opposite regexp of CASECHARS. + +OTHERCHARS is a regular expression of other characters that are valid +in word constructs. Otherchars cannot be adjacent to each other in a +word, nor can they begin or end a word. This implies we can't check +\"Stevens'\" as a correct possessive and other correct formations. + +Hint: regexp syntax requires the hyphen to be declared first here. + +MANY-OTHERCHARS-P is non-nil if many otherchars are to be allowed in a +word instead of only one. + +ISPELL-ARGS is a list of additional arguments passed to the ispell +subprocess. + +EXTENDED-CHARACTER-MODE should be used when dictionaries are used which +have been configured in an Ispell affix file. (For example, umlauts +can be encoded as \\\"a, a\\\", \"a, ...) Defaults are ~tex and ~nroff +in English. This has the same effect as the command-line `-T' option. +The buffer Major Mode controls Ispell's parsing in tex or nroff mode, +but the dictionary can control the extended character mode. +Both defaults can be overruled in a buffer-local fashion. See +`ispell-parsing-keyword' for details on this. + +Note that the CASECHARS and OTHERCHARS slots of the alist should +contain the same character set as casechars and otherchars in the +language.aff file (e.g., english.aff).") + +(defvar ispell-menu-map nil "\ +Key map for ispell menu") + +(defvar ispell-menu-xemacs nil "\ +Spelling menu for XEmacs.") + +(defconst ispell-menu-map-needed (and (not ispell-menu-map) (string-lessp "19" emacs-version) (not (string-match "XEmacs" emacs-version)))) + +(if ispell-menu-map-needed (let ((dicts (reverse (cons (cons "default" nil) ispell-dictionary-alist))) name) (setq ispell-menu-map (make-sparse-keymap "Spell")) (while dicts (setq name (car (car dicts)) dicts (cdr dicts)) (if (stringp name) (define-key ispell-menu-map (vector (intern name)) (cons (concat "Select " (capitalize name)) (list 'lambda nil '(interactive) (list 'ispell-change-dictionary name)))))))) + +(if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-change-dictionary] '("Change Dictionary" . ispell-change-dictionary)) (define-key ispell-menu-map [ispell-kill-ispell] '("Kill Process" . ispell-kill-ispell)) (define-key ispell-menu-map [ispell-pdict-save] '("Save Dictionary" lambda nil (interactive) (ispell-pdict-save t t))) (define-key ispell-menu-map [ispell-complete-word] '("Complete Word" . ispell-complete-word)) (define-key ispell-menu-map [ispell-complete-word-interior-frag] '("Complete Word Frag" . ispell-complete-word-interior-frag)))) + +(if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-continue] '("Continue Check" . ispell-continue)) (define-key ispell-menu-map [ispell-word] '("Check Word" . ispell-word)) (define-key ispell-menu-map [ispell-region] '("Check Region" . ispell-region)) (define-key ispell-menu-map [ispell-buffer] '("Check Buffer" . ispell-buffer)))) + +(if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-message] '("Check Message" . ispell-message)) (define-key ispell-menu-map [ispell-help] '("Help" lambda nil (interactive) (describe-function 'ispell-help))) (put 'ispell-region 'menu-enable 'mark-active) (fset 'ispell-menu-map (symbol-value 'ispell-menu-map)))) + +(defvar ispell-local-pdict ispell-personal-dictionary "\ +A buffer local variable containing the current personal dictionary. +If non-nil, the value must be a string, which is a file name. + +If you specify a personal dictionary for the current buffer which is +different from the current personal dictionary, the effect is similar +to calling \\[ispell-change-dictionary]. This variable is automatically +set when defined in the file with either `ispell-pdict-keyword' or the +local variable syntax.") + +(define-key global-map [(meta ?\$)] '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. + +With a prefix argument (or if CONTINUE is non-nil), +resume interrupted spell-checking of a buffer or region. + +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. + +Word syntax described by `ispell-dictionary-alist' (which see). + +This will check or reload the dictionary. Use \\[ispell-change-dictionary] +or \\[ispell-region] to update the Ispell process." 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': Like `i', but allows one to include dictionary completion information. +`C-l': redraws screen +`C-r': recursive edit +`C-z': suspend emacs or iconify frame" 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." t nil) + +(autoload 'ispell-change-dictionary "ispell" "\ +Change `ispell-dictionary' (q.v.) and kill old Ispell process. +A new one will be started as soon as necessary. + +By just answering RET you can find out what the current dictionary is. + +With prefix argument, set the default directory." t nil) + +(autoload 'ispell-region "ispell" "\ +Interactively check a region for spelling errors." t nil) + +(autoload 'ispell-buffer "ispell" "\ +Check the current buffer for spelling errors interactively." t nil) + +(autoload 'ispell-continue "ispell" nil t nil) + +(autoload 'ispell-complete-word "ispell" "\ +Look up word before or under point in dictionary (see lookup-words command) +and try to complete it. 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." t nil) + +(autoload 'ispell-complete-word-interior-frag "ispell" "\ +Completes word matching character sequence inside a word." t nil) + +(autoload 'ispell-minor-mode "ispell" "\ +Toggle Ispell minor mode. +With prefix arg, turn Ispell minor mode on iff arg is positive. + +In Ispell minor mode, pressing SPC or RET +warns you if the previous word is incorrectly spelled." 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' or `q' command. (Any subsequent regions will be checked.) +The `X' command aborts the message send so that you can edit the buffer. + +To spell-check whenever a message is sent, include the appropriate lines +in your .emacs file: + (add-hook 'message-send-hook 'ispell-message) + (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)))" t nil) + +;;;*** + +;;;### (autoloads (jka-compr-install toggle-auto-compression jka-compr-load) "jka-compr" "packages/jka-compr.el") + +(autoload 'jka-compr-load "jka-compr" "\ +Documented as original." nil nil) + +(autoload 'toggle-auto-compression "jka-compr" "\ +Toggle automatic file compression and uncompression. +With prefix argument ARG, turn auto compression on if positive, else off. +Returns the new status of auto compression (non-nil means on). +If the argument MESSAGE is non-nil, it means to print a message +saying whether the mode is now on or off." t nil) + +(autoload 'jka-compr-install "jka-compr" "\ +Install jka-compr. +This adds entries to `file-name-handler-alist' and `auto-mode-alist' +and `inhibit-first-line-modes-suffixes'." nil nil) + +;;;*** + +;;;### (autoloads (turn-on-lazy-lock lazy-lock-mode) "lazy-lock" "packages/lazy-lock.el") + +(defvar lazy-lock-mode nil) + +(autoload 'lazy-lock-mode "lazy-lock" "\ +Toggle Lazy Lock mode. +With arg, turn Lazy Lock mode on if and only if arg is positive and the buffer +is at least `lazy-lock-minimum-size' characters long. + +When Lazy Lock mode is enabled, fontification is demand-driven and stealthy: + + - Fontification occurs in visible parts of buffers when necessary. + Occurs if there is no input after pausing for `lazy-lock-continuity-time'. + + - Fontification occurs in invisible parts when Emacs has been idle. + Occurs if there is no input after pausing for `lazy-lock-stealth-time'. + +If `lazy-lock-hide-invisible' is non-nil, text is not displayed until it is +fontified, otherwise it is displayed in `lazy-lock-invisible-foreground'. + +See also variables `lazy-lock-walk-windows' and `lazy-lock-ignore-commands' for +window (scroll) fontification, and `lazy-lock-stealth-lines', +`lazy-lock-stealth-nice' and `lazy-lock-stealth-verbose' for stealth +fontification. + +Use \\[lazy-lock-submit-bug-report] to send bug reports or feedback." t nil) + +(autoload 'turn-on-lazy-lock "lazy-lock" "\ +Unconditionally turn on Lazy Lock mode." nil nil) + +(add-minor-mode 'lazy-lock-mode " Lazy") + +;;;*** + +;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "packages/ledit.el") + +(defconst ledit-save-files t "\ +*Non-nil means Ledit should save files before transferring to Lisp.") + +(defconst ledit-go-to-lisp-string "%?lisp" "\ +*Shell commands to execute to resume Lisp job.") + +(defconst ledit-go-to-liszt-string "%?liszt" "\ +*Shell commands to execute to resume Lisp compiler job.") + +(autoload 'ledit-mode "ledit" "\ +\\<ledit-mode-map>Major mode for editing text and stuffing it to a Lisp job. +Like Lisp mode, plus these special commands: + \\[ledit-save-defun] -- record defun at or after point + for later transmission to Lisp job. + \\[ledit-save-region] -- record region for later transmission to Lisp job. + \\[ledit-go-to-lisp] -- transfer to Lisp job and transmit saved text. + \\[ledit-go-to-liszt] -- transfer to Liszt (Lisp compiler) job + and transmit saved text. +\\{ledit-mode-map} +To make Lisp mode automatically change to Ledit mode, +do (setq lisp-mode-hook 'ledit-from-lisp-mode)" t nil) + +(autoload 'ledit-from-lisp-mode "ledit" nil nil nil) + +;;;*** + +;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer) "lpr" "packages/lpr.el") + +(defvar lpr-switches nil "\ +*List of strings to pass as extra options for the printer program. +See `lpr-command'.") + +(defvar lpr-command (if (memq system-type '(usg-unix-v dgux hpux irix)) "lp" "lpr") "\ +*Name of program for printing a file.") + +(autoload 'lpr-buffer "lpr" "\ +Print buffer contents as with Unix command `lpr'. +`lpr-switches' is a list of extra switches (strings) to pass to lpr." t nil) + +(autoload 'print-buffer "lpr" "\ +Print buffer contents as with Unix command `lpr -p'. +`lpr-switches' is a list of extra switches (strings) to pass to lpr." t nil) + +(autoload 'lpr-region "lpr" "\ +Print region contents as with Unix command `lpr'. +`lpr-switches' is a list of extra switches (strings) to pass to lpr." t nil) + +(autoload 'print-region "lpr" "\ +Print region contents as with Unix command `lpr -p'. +`lpr-switches' is a list of extra switches (strings) to pass to lpr." t nil) + +;;;*** + +;;;### (autoloads (make-command-summary) "makesum" "packages/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." t nil) + +;;;*** + +;;;### (autoloads (manual-entry) "man" "packages/man.el") + +(autoload 'manual-entry "man" "\ +Display the Unix manual entry (or entries) for TOPIC. +If prefix arg is given, modify the search according to the value: + 2 = complement default exact matching of the TOPIC name; + exact matching default is specified by `Manual-match-topic-exactly' + 3 = force a search of the unformatted man directories + 4 = both 2 and 3 +The manual entries are searched according to the variable +Manual-directory-list, which should be a list of directories. If +Manual-directory-list is nil, \\[Manual-directory-list-init] is +invoked to create this list from the MANPATH environment variable. +See the variable Manual-topic-buffer which controls how the buffer +is named. See also the variables Manual-match-topic-exactly, +Manual-query-multiple-pages, and Manual-buffer-view-mode." t nil) + +;;;*** + +;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body metamail-interpret-header) "metamail" "packages/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." 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." 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." 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." t nil) + +;;;*** + +;;;### (autoloads (blink-paren paren-set-mode) "paren" "packages/paren.el") + +(defvar paren-mode nil "\ +*Sets the style of parenthesis highlighting. +Valid values are nil, `blink-paren', `paren', and `sexp'. + nil no parenthesis highlighting. + blink-paren causes the matching paren to blink. + paren causes the matching paren to be highlighted but not to blink. + sexp whole expression enclosed by the local paren at its mate. + nested (not yet implemented) use variable shading to see the + nesting of an expression. Also groks regular expressions + and shell quoting. + +This variable is global by default, but you can make it buffer-local and +highlight parentheses differrently in different major modes.") + +(autoload 'paren-set-mode "paren" "\ +Cycles through possible values for `paren-mode', force off with negative arg. +When called from lisp, a symbolic value for `paren-mode' can be pased directly. +See also `paren-mode' and `paren-highlight'." t nil) + +(make-obsolete 'blink-paren 'paren-set-mode) + +(autoload 'blink-paren "paren" "\ +Obsolete. Use `paren-set-mode' instead." t nil) + +;;;*** + +;;;### (autoloads (pending-delete pending-delete-off pending-delete-on) "pending-del" "packages/pending-del.el") + +(autoload 'pending-delete-on "pending-del" "\ +Turn on pending delete. +When it is ON, typed text replaces the selection if the selection is active. +When it is OFF, typed text is just inserted at point." t nil) + +(autoload 'pending-delete-off "pending-del" "\ +Turn off pending delete. +When it is ON, typed text replaces the selection if the selection is active. +When it is OFF, typed text is just inserted at point." t nil) + +(autoload 'pending-delete "pending-del" "\ +Toggle automatic deletion of the selected region. +With a positive argument, turns it on. +With a non-positive argument, turns it off. +When active, typed text replaces the selection." t nil) + +;;;*** + +;;;### (autoloads (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" "packages/ps-print.el") + +(defvar ps-paper-type 'ps-letter "\ +*Specifies the size of paper to format for. Should be one of +`ps-letter', `ps-legal', or `ps-a4'.") + +(defvar ps-print-color-p (and (or (fboundp 'x-color-values) (fboundp 'color-instance-rgb-components)) (fboundp 'float)) "\ +*If non-nil, print the buffer's text in color.") + +(autoload 'ps-print-buffer "ps-print" "\ +Generate and print a PostScript 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." 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." 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." 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." 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." 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." 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." 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." t nil) + +(autoload 'ps-despool "ps-print" "\ +Send the spooled PostScript to the printer. + +When called with a numeric prefix argument (C-u), prompt the user for +the name of a file to save the spooled PostScript 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." t nil) + +;;;*** + +;;;### (autoloads (remote-compile) "rcompile" "packages/rcompile.el") + +(autoload 'remote-compile "rcompile" "\ +Compile the current buffer's directory on HOST. Log in as USER. +See \\[compile]." t nil) + +;;;*** + +;;;### (autoloads (resume-suspend-hook) "resume" "packages/resume.el") + +(autoload 'resume-suspend-hook "resume" "\ +Clear out the file used for transmitting args when Emacs resumes." nil nil) + +;;;*** + +;;;### (autoloads nil "server" "packages/server.el") + +(make-obsolete 'server-start 'gnuserv-start) + +;;;*** + +;;;### (autoloads (install-shell-fonts) "shell-font" "packages/shell-font.el") + +(autoload 'install-shell-fonts "shell-font" "\ +Decorate the current interaction buffer with fonts. +This uses the faces called `shell-prompt', `shell-input' and `shell-output'; +you can alter the graphical attributes of those with the normal +face-manipulation functions." nil nil) + +;;;*** + +;;;### (autoloads (spell-string spell-region spell-word spell-buffer) "spell" "packages/spell.el") + +(put 'spell-filter 'risky-local-variable t) + +(autoload 'spell-buffer "spell" "\ +Check spelling of every word in the buffer. +For each incorrect word, you are asked for the correct spelling +and then put into a query-replace to fix some or all occurrences. +If you do not want to change a word, just give the same word +as its \"correct\" spelling; then the query replace is skipped." t nil) + +(autoload 'spell-word "spell" "\ +Check spelling of word at or before point. +If it is not correct, ask user for the correct spelling +and `query-replace' the entire buffer to substitute it." t nil) + +(autoload 'spell-region "spell" "\ +Like `spell-buffer' but applies only to region. +Used in a program, applies from START to END. +DESCRIPTION is an optional string naming the unit being checked: +for example, \"word\"." t nil) + +(autoload 'spell-string "spell" "\ +Check spelling of string supplied as argument." t nil) + +;;;*** + +;;;### (autoloads (tar-mode) "tar-mode" "packages/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. +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 Control-X Control-S, 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}" nil nil) + +;;;*** + +;;;### (autoloads (terminal-emulator) "terminal" "packages/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 an 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 behaviour +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. + +Presently with `termcap' only; if somebody sends us code to make this +work with `terminfo' we will try to use it." t nil) + +;;;*** + +;;;### (autoloads (batch-texinfo-format texinfo-format-region texinfo-format-buffer) "texinfmt" "packages/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 +names 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." 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." t nil) + +(autoload 'batch-texinfo-format "texinfmt" "\ +Runs texinfo-format-buffer 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 -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." nil nil) + +;;;*** + +;;;### (autoloads (texinfo-sequential-node-update texinfo-every-node-update texinfo-update-node) "texnfo-upd" "packages/texnfo-upd.el") + +(autoload 'texinfo-update-node "texnfo-upd" "\ +Without any prefix argument, update the node in which point is located. +Non-nil argument (prefix, if interactive) means update the nodes in the +marked region. + +The functions for creating or updating nodes and menus, and their +keybindings, are: + + texinfo-update-node (&optional region-p) \\[texinfo-update-node] + texinfo-every-node-update () \\[texinfo-every-node-update] + texinfo-sequential-node-update (&optional region-p) + + texinfo-make-menu (&optional region-p) \\[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. Its default value is 32." t nil) + +(autoload 'texinfo-every-node-update "texnfo-upd" "\ +Update every node in a Texinfo file." t nil) + +(autoload 'texinfo-sequential-node-update "texnfo-upd" "\ +Update one node (or many) in a Texinfo file with sequential pointers. + +This function causes the `Next' or `Previous' pointer to point to the +immediately preceding or following node, even if it is at a higher or +lower hierarchical level in the document. Continually pressing `n' or +`p' takes you straight through the file. + +Without any prefix argument, update the node in which point is located. +Non-nil argument (prefix, if interactive) means update the nodes in the +marked region. + +This command makes it awkward to navigate among sections and +subsections; it should be used only for those documents that are meant +to be read like a novel rather than a reference, and for which the +Info `g*' command is inadequate." t nil) + +;;;*** + +;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp" "packages/time-stamp.el") + +(autoload 'time-stamp "time-stamp" "\ +Update the time stamp string in the buffer. +If you put a time stamp template anywhere in the first 8 lines of a file, +it can be updated every time you save the file. See the top of +`time-stamp.el' for a sample. The template looks like one of the following: + Time-stamp: <> + Time-stamp: \" \" +The time stamp is written between the brackets or quotes, resulting in + Time-stamp: <95/01/18 10:20:51 gildea> +Only does its thing if the variable time-stamp-active is non-nil. +Typically used on write-file-hooks for automatic time-stamping. +The format of the time stamp is determined by the variable time-stamp-format. +The variables time-stamp-line-limit, time-stamp-start, and time-stamp-end +control finding the template." 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." t nil) + +;;;*** + +;;;### (autoloads (display-time) "time" "packages/time.el") + +(defvar display-time-day-and-date nil "\ +*Non-nil means \\[display-time] should display day and date as well as time.") + +(autoload 'display-time "time" "\ +Display current time, load level, and mail flag in mode line of each buffer. +Updates automatically every minute. +If `display-time-day-and-date' is non-nil, the current day and date +are displayed as well. +After each update, `display-time-hook' is run with `run-hooks'. +If `display-time-echo-area' is non-nil, the time is displayed in the +echo area instead of in the mode-line." t nil) + +;;;*** + +;;;### (autoloads (ununderline-and-unoverstrike-region overstrike-region unoverstrike-region ununderline-region underline-region) "underline" "packages/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." 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." t nil) + +(autoload 'unoverstrike-region "underline" "\ +Remove all overstriking (character-backspace-character) in the region. +Called from program, takes two arguments START and END which specify the +range to operate on." t nil) + +(autoload 'overstrike-region "underline" "\ +Overstrike (character-backspace-character) all nonblank characters in +the region. Called from program, takes two arguments START and END which +specify the range to operate on." t nil) + +(autoload 'ununderline-and-unoverstrike-region "underline" "\ +Remove underlining and overstriking in the region. Called from a program, +takes two arguments START and END which specify the range to operate on." t nil) + +;;;*** + +;;;### (autoloads (ask-to-update-copyright update-copyright) "upd-copyr" "packages/upd-copyr.el") + +(defvar copyright-do-not-disturb "Free Software Foundation, Inc." "\ +*If non-nil, the existing copyright holder is checked against this regexp. +If it does not match, then a new copyright line is added with the copyright +holder set to the value of `copyright-whoami'.") + +(defvar copyright-whoami nil "\ +*A string containing the name of the owner of new copyright notices.") + +(defvar copyright-notice-file nil "\ +*If non-nil, replace copying notices with this file.") + +(autoload 'update-copyright "upd-copyr" "\ +Update the copyright notice at the beginning of the buffer +to indicate the current year. If optional arg REPLACE is given +\(interactively, with prefix arg) replace the years in the notice +rather than adding the current year after them. +If `copyright-notice-file' is set, the copying permissions following the +copyright are replaced as well. + +If optional third argument ASK is non-nil, the user is prompted for whether +or not to update the copyright. If optional fourth argument ASK-YEAR is +non-nil, the user is prompted for whether or not to replace the year rather +than adding to it." t nil) + +(autoload 'ask-to-update-copyright "upd-copyr" "\ +If the current buffer contains a copyright notice that is out of date, +ask the user if it should be updated with `update-copyright' (which see). +Put this on write-file-hooks." nil nil) + +;;;*** + +;;;### (autoloads (vc-update-change-log vc-rename-this-file vc-rename-file vc-cancel-version vc-revert-buffer vc-print-log vc-retrieve-snapshot vc-create-snapshot vc-directory vc-insert-headers vc-version-other-window vc-version-diff vc-diff vc-register vc-next-action vc-file-status) "vc" "packages/vc.el") + +(defvar vc-checkin-hook nil "\ +*List of functions called after a checkin is done. See `run-hooks'.") + +(autoload 'vc-file-status "vc" "\ +Display the current status of the file being visited. +Currently, this is only defined for CVS. The information provided in the +modeline is generally sufficient for RCS and SCCS." t nil) + +(autoload 'vc-next-action "vc" "\ +Do the next logical checkin or checkout operation on the current file. + +For RCS and SCCS files: + If the file is not already registered, this registers it for version +control and then retrieves a writable, locked copy for editing. + If the file is registered and not locked by anyone, this checks out +a writable and locked file ready for editing. + If the file is checked out and locked by the calling user, this +first checks to see if the file has changed since checkout. If not, +it performs a revert. + If the file has been changed, this pops up a buffer for entry +of a log message; when the message has been entered, it checks in the +resulting changes along with the log message as change commentary. If +the variable `vc-keep-workfiles' is non-nil (which is its default), a +read-only copy of the changed file is left in place afterwards. + If the file is registered and locked by someone else, you are given +the option to steal the lock. + +For CVS files: + If the file is not already registered, this registers it for version +control. This does a \"cvs add\", but no \"cvs commit\". + If the file is added but not committed, it is committed. + If the file has not been changed, neither in your working area or +in the repository, a message is printed and nothing is done. + If your working file is changed, but the repository file is +unchanged, this pops up a buffer for entry of a log message; when the +message has been entered, it checks in the resulting changes along +with the logmessage as change commentary. A writable file is retained. + If the repository file is changed, you are asked if you want to +merge in the changes into your working copy. + +The following is true regardless of which version control system you +are using: + + If you call this from within a VC dired buffer with no files marked, +it will operate on the file in the current line. + If you call this from within a VC dired buffer, and one or more +files are marked, it will accept a log message and then operate on +each one. The log message will be used as a comment for any register +or checkin operations, but ignored when doing checkouts. Attempted +lock steals will raise an error. + + For checkin, a prefix argument lets you specify the version number to use." t nil) + +(autoload 'vc-register "vc" "\ +Register the current file into your version-control system." t nil) + +(autoload 'vc-diff "vc" "\ +Display diffs between file versions. +Normally this compares the current file and buffer with the most recent +checked in version of that file. This uses no arguments. +With a prefix argument, it reads the file name to use +and two version designators specifying which versions to compare." t nil) + +(autoload 'vc-version-diff "vc" "\ +For FILE, report diffs between two stored versions REL1 and REL2 of it. +If FILE is a directory, generate diffs between versions for all registered +files in or below it." t nil) + +(autoload 'vc-version-other-window "vc" "\ +Visit version REV of the current buffer in another window. +If the current buffer is named `F', the version is named `F.~REV~'. +If `F.~REV~' already exists, it is used instead of being re-created." t nil) + +(autoload 'vc-insert-headers "vc" "\ +Insert headers in a file for use with your version-control system. +Headers desired are inserted at the start of the buffer, and are pulled from +the variable `vc-header-alist'." t nil) + +(autoload 'vc-directory "vc" "\ +Show version-control status of all files in the directory DIR. +If the second argument VERBOSE is non-nil, show all files; +otherwise show only files that current locked in the version control system. +Interactively, supply a prefix arg to make VERBOSE non-nil. + +If the optional third argument NESTED is non-nil, +scan the entire tree of subdirectories of the current directory." t nil) + +(autoload 'vc-create-snapshot "vc" "\ +Make a snapshot called NAME. +The snapshot is made from all registered files at or below the current +directory. For each file, the version level of its latest +version becomes part of the named configuration." t nil) + +(autoload 'vc-retrieve-snapshot "vc" "\ +Retrieve the snapshot called NAME. +This function fails if any files are locked at or below the current directory +Otherwise, all registered files are checked out (unlocked) at their version +levels in the snapshot." t nil) + +(autoload 'vc-print-log "vc" "\ +List the change log of the current buffer in a window." t nil) + +(autoload 'vc-revert-buffer "vc" "\ +Revert the current buffer's file back to the latest checked-in version. +This asks for confirmation if the buffer contents are not identical +to that version. +If the back-end is CVS, this will give you the most recent revision of +the file on the branch you are editing." t nil) + +(autoload 'vc-cancel-version "vc" "\ +Get rid of most recently checked in version of this file. +A prefix argument means do not revert the buffer afterwards." t nil) + +(autoload 'vc-rename-file "vc" "\ +Rename file OLD to NEW, and rename its master file likewise." t nil) + +(autoload 'vc-rename-this-file "vc" nil t nil) + +(autoload 'vc-update-change-log "vc" "\ +Find change log file and add entries from recent RCS logs. +The mark is left at the end of the text prepended to the change log. +With prefix arg of C-u, only find log entries for the current buffer's file. +With any numeric prefix arg, find log entries for all files currently visited. +Otherwise, find log entries for all registered files in the default directory. +From a program, any arguments are passed to the `rcs2log' script." t nil) + +;;;*** + +;;;### (autoloads (webster-spell webster-endings webster) "webster" "packages/webster.el") + +(autoload 'webster "webster" "\ +Look up a word in the Webster's dictionary. +Open a network login connection to a webster host if necessary. +Communication with host is recorded in a buffer *webster*." t nil) + +(autoload 'webster-endings "webster" "\ +Look up endings for a word in the Webster's dictionary. +Open a network login connection to a webster host if necessary. +Communication with host is recorded in a buffer *webster*." t nil) + +(autoload 'webster-spell "webster" "\ +Look spelling for a word in the Webster's dictionary. +Open a network login connection to a webster host if necessary. +Communication with host is recorded in a buffer *webster*." t nil) + +;;;*** + +;;;### (autoloads (run-scheme) "xscheme" "packages/xscheme.el") + +(defvar scheme-program-name "scheme" "\ +*Program invoked by the `run-scheme' command.") + +(defvar scheme-band-name nil "\ +*Band loaded by the `run-scheme' command.") + +(defvar scheme-program-arguments nil "\ +*Arguments passed to the Scheme program by the `run-scheme' command.") + +(autoload 'run-scheme "xscheme" "\ +Run an inferior Scheme process. +Output goes to the buffer `*scheme*'. +With argument, asks for a command line." t nil) + +;;;*** + +;;;### (autoloads (pcl-cvs-fontify) "pcl-cvs-xemacs" "pcl-cvs/pcl-cvs-xemacs.el") + +(autoload 'pcl-cvs-fontify "pcl-cvs-xemacs" nil nil nil) + +;;;*** + +;;;### (autoloads (cvs-update-other-window cvs-update) "pcl-cvs" "pcl-cvs/pcl-cvs.el") + +(autoload 'cvs-update "pcl-cvs" "\ +Run a 'cvs update' in the current working directory. Feed the +output to a *cvs* buffer and run cvs-mode on it. +If optional prefix argument LOCAL is non-nil, 'cvs update -l' is run." t nil) + +(autoload 'cvs-update-other-window "pcl-cvs" "\ +Run a 'cvs update' in the current working directory. Feed the +output to a *cvs* buffer, display it in the other window, and run +cvs-mode on it. + +If optional prefix argument LOCAL is non-nil, 'cvs update -l' is run." t nil) + +;;;*** + +;;;### (autoloads (about-xemacs) "about" "prim/about.el") + +(autoload 'about-xemacs "about" nil t nil) + +;;;*** + +;;;### (autoloads (all-hail-emacs all-hail-xemacs praise-be-unto-emacs praise-be-unto-xemacs) "advocacy" "prim/advocacy.el") + +(defvar xemacs-praise-sound-file "sounds/im_so_happy.au" "\ +The name of an audio file containing something to play +when praising XEmacs") + +(defvar xemacs-praise-message "All Hail XEmacs!\n" "\ +What to praise XEmacs with") + +(autoload 'praise-be-unto-xemacs "advocacy" "\ +All Hail XEmacs!" t nil) + +(autoload 'praise-be-unto-emacs "advocacy" nil t nil) + +(autoload 'all-hail-xemacs "advocacy" "\ +All Hail XEmacs!" t nil) + +(autoload 'all-hail-emacs "advocacy" nil t nil) + +;;;*** + +;;;### (autoloads (describe-buffer-case-table) "case-table" "prim/case-table.el") + +(autoload 'describe-buffer-case-table "case-table" "\ +Describe the case table of the current buffer." t nil) + +;;;*** + +;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" "prim/debug.el") + +(autoload 'debug "debug" "\ +Enter debugger. To return, type \\<debugger-mode-map>`\\[debugger-continue]'. +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." t nil) + +(autoload 'debug-on-entry "debug" "\ +Request FUNCTION to invoke debugger each time it is called. +If you tell the debugger to continue, FUNCTION's execution proceeds. +This works by modifying the definition of FUNCTION, +which must be written in Lisp, not predefined. +Use \\[cancel-debug-on-entry] to cancel the effect of this command. +Redefining FUNCTION also cancels it." t nil) + +(autoload 'cancel-debug-on-entry "debug" "\ +Undo effect of \\[debug-on-entry] on FUNCTION. +If argument is nil or an empty string, cancel for all functions." t nil) + +;;;*** + +;;;### (autoloads (standard-display-european standard-display-underline standard-display-graphic standard-display-g1 standard-display-ascii standard-display-default standard-display-8bit make-display-table describe-current-display-table) "disp-table" "prim/disp-table.el") + +(autoload 'describe-current-display-table "disp-table" "\ +Describe the display table in use in the selected window and buffer." t nil) + +(autoload 'make-display-table "disp-table" "\ +Return a new, empty display table." nil nil) + +(autoload 'standard-display-8bit "disp-table" "\ +Display characters in the range L to H literally." nil nil) + +(autoload 'standard-display-default "disp-table" "\ +Display characters in the range L to H using the default notation." nil nil) + +(autoload 'standard-display-ascii "disp-table" "\ +Display character C using printable string 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." 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." nil nil) + +(autoload 'standard-display-underline "disp-table" "\ +Display character C as character UC plus underlining." nil nil) + +(autoload 'standard-display-european "disp-table" "\ +Toggle display of European characters encoded with ISO 8859. +When enabled, characters in the range of 160 to 255 display not +as octal escapes, but as accented characters. +With prefix argument, enable European character display iff arg is positive." t nil) + +;;;*** + +;;;### (autoloads (setenv) "env" "prim/env.el") + +(autoload 'setenv "env" "\ +Set the value of the environment variable named VARIABLE to VALUE. +VARIABLE should be a string. VALUE is optional; if not provided or is +`nil', the environment variable VARIABLE will be removed. + +Interactively, a prefix argument means to unset the variable. +Interactively, the current value (if any) of the variable +appears at the front of the history list when you type in the new value. + +This function works by modifying `process-environment'." t nil) + +;;;*** + +;;;### (autoloads nil "itimer" "prim/itimer.el") + +;;;*** + +;;;### (autoloads nil "loaddefs" "prim/loaddefs.el") + +;;;*** + +;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro name-last-kbd-macro) "macros" "prim/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." t nil) + +(autoload 'insert-kbd-macro "macros" "\ +Insert in buffer the definition of kbd macro NAME, as Lisp code. +Optional second argument 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." 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 frame, then ask again. +\\[edit] Enter recursive edit; ask again when you exit from that." t nil) + +(autoload 'apply-macro-to-region-lines "macros" "\ +For each complete line between point and mark, 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. +" t nil) + +;;;*** + +;;;### (autoloads (disable-command enable-command disabled-command-hook) "novice" "prim/novice.el") + +(autoload 'disabled-command-hook "novice" nil nil nil) + +(autoload 'enable-command "novice" "\ +Allow COMMAND to be executed without special confirmation from now on. +The user's .emacs file is altered so that this will apply +to future sessions." t nil) + +(autoload 'disable-command "novice" "\ +Require special confirmation to execute COMMAND from now on. +The user's .emacs file is altered so that this will apply +to future sessions." t nil) + +;;;*** + +;;;### (autoloads (edit-options list-options) "options" "prim/options.el") + +(autoload 'list-options "options" "\ +Display a list of XEmacs user options, with values and documentation." t nil) + +(autoload 'edit-options "options" "\ +Edit a list of XEmacs user option values. +Selects a buffer containing such a list, +in which there are commands to set the option values. +Type \\[describe-mode] in that buffer for a list of commands." t nil) + +;;;*** + +;;;### (autoloads (clear-rectangle string-rectangle open-rectangle insert-rectangle yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle delete-rectangle) "rect" "prim/rect.el") + +(autoload 'delete-rectangle "rect" "\ +Delete (don't save) text in rectangle with point and mark as corners. +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." t nil) + +(autoload 'delete-extract-rectangle "rect" "\ +Delete contents of rectangle and return it as a list of strings. +Arguments START and END are the corners of the rectangle. +The value is list of strings, one for each line of the rectangle." nil nil) + +(autoload 'extract-rectangle "rect" "\ +Return contents of rectangle with corners at START and END. +Value is list of strings, one for each line of the rectangle." nil nil) + +(defvar killed-rectangle nil "\ +Rectangle for yank-rectangle to insert.") + +(autoload 'kill-rectangle "rect" "\ +Delete rectangle with corners at point and mark; save as last killed one. +Calling from program, supply two args START and END, buffer positions. +But in programs you might prefer to use `delete-extract-rectangle'." t nil) + +(autoload 'yank-rectangle "rect" "\ +Yank the last killed rectangle with upper left corner at point." 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." nil nil) + +(autoload 'open-rectangle "rect" "\ +Blank out rectangle with corners at point and mark, 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." t nil) + +(autoload 'string-rectangle "rect" "\ +Insert STRING on each line of the region-rectangle, shifting text right. +The left edge of the rectangle specifies the column for insertion. +This command does not delete or overwrite any existing text. + +Called from a program, takes three args; START, END and STRING." t nil) + +(autoload 'clear-rectangle "rect" "\ +Blank out rectangle with corners at point and mark. +The text previously in the region is overwritten by the blanks. +When called from a program, requires two args which specify the corners." t nil) + +;;;*** + +;;;### (autoloads (reposition-window) "reposition" "prim/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)." t nil) + +;;;*** + +;;;### (autoloads (reverse-region sort-columns sort-regexp-fields sort-fields sort-float-fields sort-numeric-fields sort-pages sort-paragraphs sort-lines sort-subr) "sort" "prim/sort.el") + +(autoload 'sort-subr "sort" "\ +General text sorting routine to divide buffer into records and sort them. +Arguments are REVERSE NEXTRECFUN ENDRECFUN &optional STARTKEYFUN ENDKEYFUN. + +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." 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." 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." 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." t nil) + +(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. +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. +If you want to sort floating-point numbers, try `sort-float-fields'." t nil) + +(autoload 'sort-float-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 floating point number in each line of the region. 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." 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." t nil) + +(autoload 'sort-regexp-fields "sort" "\ +Sort the region lexicographically as specified by RECORD-REGEXP and KEY. +RECORD-REGEXP specifies the textual units which should be sorted. + For example, to sort lines RECORD-REGEXP would be \"^.*$\" +KEY specifies the part of each record (ie each match for RECORD-REGEXP) + is to be used for sorting. + If it is \"\\\\digit\" then the digit'th \"\\\\(...\\\\)\" match field from + RECORD-REGEXP is used. + If it is \"\\\\&\" then the whole record is used. + Otherwise, it is a regular-expression for which to search within the record. +If a match for KEY is not found within a record then that record is ignored. + +With a negative prefix arg sorts 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*\\\\>\"" 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 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." 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." t nil) + +;;;*** + +;;;### (autoloads (load-default-sounds load-sound-file) "sound" "prim/sound.el") + +(or sound-alist (setq sound-alist '((ready nil) (warp nil)))) + +(autoload 'load-sound-file "sound" "\ +Read in an audio-file and add it to the sound-alist. + +You can only play sound files if you are running on display 0 of the console +of a Sun SparcStation, SGI machine, or HP9000s700, or running a NetAudio +server. The sound file must be in the Sun/NeXT U-LAW format." t nil) + +(autoload 'load-default-sounds "sound" "\ +Load and install some sound files as beep-types. +This only works if you're on display 0 of a Sun SparcStation, SGI machine, +or HP9000s700, or running a NetAudio server." t nil) + +;;;*** + +;;;### (autoloads (tabify untabify) "tabify" "prim/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." 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." t nil) + +;;;*** + +;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) "userlock" "prim/userlock.el") + +(autoload 'ask-user-about-lock "userlock" "\ +Ask user what to do when he wants to edit FILE but it is locked by USER. +This function has a choice of three things to do: + do (signal 'file-locked (list FILE USER)) + 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 rewrite it to use any criterion you like to choose which one to do." 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." nil nil) + +;;;*** + +;;;### (autoloads (style-format) "psgml-fs" "psgml/psgml-fs.el") + +(autoload 'style-format "psgml-fs" nil t nil) + +;;;*** + +;;;### (autoloads nil "psgml-html" "psgml/psgml-html.el") + +(autoload 'html-mode "psgml-html" "\ +HTML mode." t) + +(autoload 'html3-mode "psgml-html" "\ +HTML3 mode." t) + +;;;*** + +;;;### (autoloads (sgml-mode) "psgml" "psgml/psgml.el") + +(autoload 'sgml-mode "psgml" "\ +Major mode for editing SGML.\\<sgml-mode-map> +Makes > display the matching <. Makes / display matching /. +Use \\[sgml-validate] to validate your document with an SGML parser. + +You can find information with: +\\[sgml-show-context] Show the nesting of elements at cursor position. +\\[sgml-list-valid-tags] Show the tags valid at cursor position. + +Insert tags with completion of contextually valid tags with \\[sgml-insert-tag]. +End the current element with \\[sgml-insert-end-tag]. Insert an element (i.e. +both start and end tag) with \\[sgml-insert-element]. Or tag a region with +\\[sgml-tag-region]. + +To tag a region with the mouse, use transient mark mode or secondary selection. + +Structure editing: +\\[sgml-backward-element] Moves backwards over the previous element. +\\[sgml-forward-element] Moves forward over the nex element. +\\[sgml-down-element] Move forward and down one level in the element structure. +\\[sgml-backward-up-element] Move backward out of this element level. +\\[sgml-beginning-of-element] Move to after the start tag of the current element. +\\[sgml-end-of-element] Move to before the end tag of the current element. +\\[sgml-kill-element] Kill the element following the cursor. + +Finding interesting positions +\\[sgml-next-data-field] Move forward to next point where data is allowed. +\\[sgml-next-trouble-spot] Move forward to next point where something is + amiss with the structure. + +Folding and unfolding +\\[sgml-fold-element] Fold the lines comprising the current element, leaving + the first line visible. +\\[sgml-fold-subelement] Fold the elements in the content of the current element. + Leaving the first line of every element visible. +\\[sgml-unfold-line] Show hidden lines in current line. + +User options: + +sgml-omittag Set this to reflect OMITTAG in the SGML declaration. +sgml-shortag Set this to reflect SHORTTAG in the SGML declaration. +sgml-auto-insert-required-elements If non-nil, automatically insert required + elements in the content of an inserted element. +sgml-balanced-tag-edit If non-nil, always insert start-end tag pairs. +sgml-omittag-transparent If non-nil, will show legal tags inside elements + with omitable start tags and legal tags beyond omitable end tags. +sgml-leave-point-after-insert If non-nil, the point will remain after + inserted tag(s). +sgml-warn-about-undefined-elements If non-nil, print a warning when a tag + for a undefined element is found. +sgml-max-menu-size Max number of entries in Tags and Entities menus before + they are split into several panes. +sgml-always-quote-attributes If non-nil, quote all attribute values + inserted after finishing edit attributes. +sgml-minimize-attributes Determines minimization of attributes inserted by + edit-attributes. +sgml-normalize-trims If non-nil, sgml-normalize will trim off white space + from end of element when adding end tag. +sgml-indent-step How much to increament indent for every element level. +sgml-indent-data If non-nil, indent in data/mixed context also. +sgml-set-face If non-nil, psgml will set the face of parsed markup. +sgml-markup-faces The faces used when the above variable is non-nil. +sgml-system-path List of directorys used to look for system identifiers. +sgml-public-map Mapping from public identifiers to file names. +sgml-offer-save If non-nil, ask about saving modified buffers before + \\[sgml-validate] is run. + +All bindings: +\\{sgml-mode-map} +" t nil) + +;;;*** + +;;;### (autoloads (rmail-input rmail-mode rmail) "rmail" "rmail/rmail.el") + +(defvar rmail-dont-reply-to-names nil "\ +*A regexp specifying names to prune of reply to messages. +A value of nil means exclude your own name only.") + +(defvar rmail-default-dont-reply-to-names "info-" "\ +A regular expression specifying part of the value of the default value of +the variable `rmail-dont-reply-to-names', for when the user does not set +`rmail-dont-reply-to-names' explicitly. (The other part of the default +value is the user's name.) +It is useful to set this variable in the site customization file.") + +(defvar rmail-delete-after-output nil "\ +*Non-nil means automatically delete a message that is copied to a file.") + +(defvar rmail-primary-inbox-list nil "\ +*List of files which are inboxes for user's primary mail file `~/RMAIL'. +`nil' means the default, which is (\"/usr/spool/mail/$USER\") +\(the name varies depending on the operating system, +and the value of the environment variable MAIL overrides it).") + +(defvar rmail-mail-new-frame nil "\ +*Non-nil means Rmail makes a new frame for composing outgoing mail.") + +(defvar rmail-retry-setup-hook nil "\ +Hook that `rmail-retry-failure' uses in place of `mail-setup-hook'.") + +(defvar rmail-last-file nil) + +(autoload 'rmail "rmail" "\ +Read and edit incoming mail. +Moves messages into file named by `rmail-file-name' (a babyl format file) + and edits that file in RMAIL Mode. +Type \\[describe-mode] once editing that file, for a list of RMAIL commands. + +May be called with filename as argument; then performs rmail editing on +that file, but does not copy any new mail into the file." 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 (same as \\[beginning-of-buffer]). +\\[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-to-rmail-file] Output this message to an Rmail file (append it). +\\[rmail-output] Output this message to a Unix-format mail file (append it). +\\[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." t nil) + +(autoload 'rmail-input "rmail" "\ +Run Rmail on file FILENAME." t nil) + +;;;*** + +;;;### (autoloads (rmail-file-p) "rmailout" "rmail/rmailout.el") + +(autoload 'rmail-file-p "rmailout" nil nil nil) + +;;;*** + +;;;### (autoloads (unrmail batch-unrmail) "unrmail" "rmail/unrmail.el") + +(autoload 'batch-unrmail "unrmail" "\ +Convert Rmail files to mailbox files. +Specify the input Rmail 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'." nil nil) + +(autoload 'unrmail "unrmail" "\ +Convert Rmail file FILE to mailbox-format file TO-FILE." t nil) + +;;;*** + +;;;### (autoloads (mime/editor-mode) "tm-edit" "tm/tm-edit.el") + +(autoload 'mime/editor-mode "tm-edit" "\ +MIME minor mode for editing the tagged MIME message. + +In this mode, basically, the message is composed in the tagged MIME +format. The message tag looks like: + + --[[text/plain; charset=ISO-2022-JP][7bit]] + +The tag specifies the MIME content type, subtype, optional parameters +and transfer encoding of the message following the tag. Messages +without any tag are treated as `text/plain' by default. Charset and +transfer encoding are automatically defined unless explicitly +specified. Binary messages such as audio and image are usually hidden. +The messages in the tagged MIME format are automatically translated +into a MIME compliant message when exiting this mode. + +Available charsets depend on Emacs version being used. The following +lists the available charsets of each emacs. + +EMACS 18: US-ASCII is only available. +NEmacs: US-ASCII and ISO-2022-JP are available. +EMACS 19: US-ASCII and ISO-8859-1 (or other charset) are available. +XEmacs 19: US-ASCII and ISO-8859-1 (or other charset) are available. +Mule: US-ASCII, ISO-8859-* (except for ISO-8859-5), KOI8-R, + ISO-2022-JP, ISO-2022-JP-2, ISO-2022-KR, BIG5 and + ISO-2022-INT-1 are available. + +ISO-2022-JP-2 and ISO-2022-INT-1 charsets used in mule is expected to +be used to represent multilingual text in intermixed manner. Any +languages that has no registered charset are represented as either +ISO-2022-JP-2 or ISO-2022-INT-1 in mule. + +If you want to use non-ISO-8859-1 charset in EMACS 19 or XEmacs 19, +please set variable `default-mime-charset'. This variable must be +symbol of which name is a MIME charset. + +If you want to add more charsets in mule, please set variable +`charsets-mime-charset-alist'. This variable must be alist of which +key is list of leading-char/charset and value is symbol of MIME +charset. (leading-char is a term of MULE 1.* and 2.*. charset is a +term of XEmacs/mule, mule merged EMACS and MULE 3.*) If name of +coding-system is different as MIME charset, please set variable +`mime-charset-coding-system-alist'. This variable must be alist of +which key is MIME charset and value is coding-system. + +Following commands are available in addition to major mode commands: + +[make single part] +\\[mime-editor/insert-text] insert a text message. +\\[mime-editor/insert-file] insert a (binary) file. +\\[mime-editor/insert-external] insert a reference to external body. +\\[mime-editor/insert-voice] insert a voice message. +\\[mime-editor/insert-message] insert a mail or news message. +\\[mime-editor/insert-mail] insert a mail message. +\\[mime-editor/insert-signature] insert a signature file at end. +\\[mime-editor/insert-key] insert PGP public key. +\\[mime-editor/insert-tag] insert a new MIME tag. + +[make enclosure (maybe multipart)] +\\[mime-editor/enclose-alternative-region] enclose as multipart/alternative. +\\[mime-editor/enclose-parallel-region] enclose as multipart/parallel. +\\[mime-editor/enclose-mixed-region] enclose as multipart/mixed. +\\[mime-editor/enclose-digest-region] enclose as multipart/digest. +\\[mime-editor/enclose-signed-region] enclose as PGP signed. +\\[mime-editor/enclose-encrypted-region] enclose as PGP encrypted. +\\[mime-editor/enclose-quote-region] enclose as verbose mode (to avoid to expand tags) + +[other commands] +\\[mime-editor/set-transfer-level-7bit] set transfer-level as 7. +\\[mime-editor/set-transfer-level-8bit] set transfer-level as 8. +\\[mime-editor/set-split] set message splitting mode. +\\[mime-editor/set-sign] set PGP-sign mode. +\\[mime-editor/set-encrypt] set PGP-encryption mode. +\\[mime-editor/preview-message] preview editing MIME message. +\\[mime-editor/exit] exit and translate into a MIME compliant message. +\\[mime-editor/help] show this help. +\\[mime-editor/maybe-translate] exit and translate if in MIME mode, then split. + +Additional commands are available in some major modes: +C-c C-c exit, translate and run the original command. +C-c C-s exit, translate and run the original command. + +The following is a message example written in the tagged MIME format. +TABs at the beginning of the line are not a part of the message: + + This is a conventional plain text. It should be translated + into text/plain. + --[[text/plain]] + This is also a plain text. But, it is explicitly specified as + is. + --[[text/plain; charset=ISO-2022-JP]] + ...Japanese text here.... + --[[text/richtext]] + <center>This is a richtext.</center> + --[[image/gif][base64]]^M...image encoded in base64 here... + --[[audio/basic][base64]]^M...audio encoded in base64 here... + +User customizable variables (not documented all of them): + mime-prefix + Specifies a key prefix for MIME minor mode commands. + + mime-ignore-preceding-spaces + Preceding white spaces in a message body are ignored if non-nil. + + mime-ignore-trailing-spaces + Trailing white spaces in a message body are ignored if non-nil. + + mime-auto-hide-body + Hide a non-textual body message encoded in base64 after insertion + if non-nil. + + mime-editor/transfer-level + A number of network transfer level. It should be bigger than 7. + If you are in 8bit-through environment, please set 8. + + mime-editor/voice-recorder + Specifies a function to record a voice message and encode it. + The function `mime-editor/voice-recorder-for-sun' is for Sun + SparcStations. + + mime/editor-mode-hook + Turning on MIME mode calls the value of mime/editor-mode-hook, if + it is non-nil. + + mime-editor/translate-hook + The value of mime-editor/translate-hook is called just before translating + the tagged MIME format into a MIME compliant message if it is + non-nil. If the hook call the function mime-editor/insert-signature, + the signature file will be inserted automatically. + + mime-editor/exit-hook + Turning off MIME mode calls the value of mime-editor/exit-hook, if it is + non-nil." t nil) + +(defalias 'edit-mime 'mime/editor-mode) + +;;;*** + +;;;### (autoloads (url-retrieve url-cache-expired url-popup-info url-get-url-at-point url-buffer-visiting url-normalize-url url-file-attributes) "url" "url/url.el") + +(autoload 'url-file-attributes "url" "\ +Return a list of attributes of URL. +Value is nil if specified file cannot be opened. +Otherwise, list elements are: + 0. t for directory, string (name linked to) for symbolic link, or nil. + 1. Number of links to file. + 2. File uid. + 3. File gid. + 4. Last access time, as a list of two integers. + First integer has high-order 16 bits of time, second has low 16 bits. + 5. Last modification time, likewise. + 6. Last status change time, likewise. + 7. Size in bytes. (-1, if number is out of range). + 8. File modes, as a string of ten letters or dashes as in ls -l. + If URL is on an http server, this will return the content-type if possible. + 9. t iff file's gid would change if file were deleted and recreated. +10. inode number. +11. Device number. + +If file does not exist, returns nil." nil nil) + +(autoload 'url-normalize-url "url" "\ +Return a 'normalized' version of URL. This strips out default port +numbers, etc." nil nil) + +(autoload 'url-buffer-visiting "url" "\ +Return the name of a buffer (if any) that is visiting URL." nil nil) + +(autoload 'url-get-url-at-point "url" "\ +Get the URL closest to point, but don't change your +position. Has a preference for looking backward when not +directly on a symbol." nil nil) + +(autoload 'url-popup-info "url" "\ +Retrieve the HTTP/1.0 headers and display them in a temp buffer." nil nil) + +(autoload 'url-cache-expired "url" "\ +Return t iff a cached file has expired." nil nil) + +(autoload 'url-retrieve "url" "\ +Retrieve a document over the World Wide Web. +The document should be specified by its fully specified +Uniform Resource Locator. No parsing is done, just return the +document as the server sent it. The document is left in the +buffer specified by url-working-buffer. url-working-buffer is killed +immediately before starting the transfer, so that no buffer-local +variables interfere with the retrieval. HTTP/1.0 redirection will +be honored before this function exits." nil nil) + +;;;*** + +;;;### (autoloads (defadvice ad-add-advice) "advice" "utils/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'.") + +(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.") + +(autoload 'ad-add-advice "advice" "\ +Adds a piece of ADVICE to FUNCTION's list of advices in CLASS. +If FUNCTION already has one or more pieces of advice of the specified +CLASS then POSITION determines where the new piece will go. The value +of POSITION can either be `first', `last' or a number where 0 corresponds +to `first'. Numbers outside the range will be mapped to the closest +extreme position. If there was already a piece of ADVICE with the same +name, then the position argument will be ignored and the old advice +will be overwritten with the new one. + If the FUNCTION was not advised already, then its advice info will be +initialized. Redefining a piece of advice whose name is part of the cache-id +will clear the cache." nil nil) + +(autoload 'defadvice "advice" "\ +Defines 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. + +Look at the file `advice.el' for comprehensive documentation." nil 'macro) + +;;;*** + +;;;### (autoloads (all-annotations annotation-list annotations-at annotations-in-region annotation-at annotationp delete-annotation make-annotation) "annotations" "utils/annotations.el") + +(defvar make-annotation-hook nil "\ +*Function or functions to run immediately after creating an annotation.") + +(defvar before-delete-annotation-hook nil "\ +*Function or functions to run immediately before deleting an annotation.") + +(defvar after-delete-annotation-hook nil "\ +*Function or functions to run immediately after deleting an annotation.") + +(autoload 'make-annotation "annotations" "\ +Create a marginal annotation, displayed using GLYPH, at position POS. +GLYPH may be either a glyph object or a string. Use layout policy +LAYOUT and place the annotation in buffer BUFFER. If POS is nil, point is +used. If LAYOUT is nil, `whitespace' is used. If BUFFER is nil, the +current buffer is used. If WITH-EVENT is non-nil, then when an annotation +is activated, the triggering event is passed as the second arg to the +annotation function. If D-GLYPH is non-nil then it is used as the glyph +that will be displayed when button1 is down. If RIGHTP is non-nil then +the glyph will be displayed on the right side of the buffer instead of the +left." nil nil) + +(autoload 'delete-annotation "annotations" "\ +Remove ANNOTATION from its buffer. This does not modify the buffer text." nil nil) + +(autoload 'annotationp "annotations" "\ +T if OBJECT is an annotation." nil nil) + +(autoload 'annotation-at "annotations" "\ +Return the first annotation at POS in BUFFER. +BUFFER defaults to the current buffer. POS defaults to point in BUFFER." nil nil) + +(autoload 'annotations-in-region "annotations" "\ +Return all annotations in BUFFER between START and END inclusively." nil nil) + +(autoload 'annotations-at "annotations" "\ +Return a list of all annotations at POS in BUFFER. +If BUFFER is nil, the current buffer is used. If POS is nil, point is used." nil nil) + +(autoload 'annotation-list "annotations" "\ +Return a list of all annotations in BUFFER. +If BUFFER is nil, the current buffer is used." nil nil) + +(autoload 'all-annotations "annotations" "\ +Return a list of all annotations in existence." nil nil) + +;;;*** + +;;;### (autoloads (batch-update-autoloads update-autoloads-from-directory update-autoloads-here update-file-autoloads generate-file-autoloads) "autoload" "utils/autoload.el") + +(autoload 'generate-file-autoloads "autoload" "\ +Insert at point a loaddefs autoload section for FILE. +autoloads are generated for defuns and defmacros in FILE +marked by `generate-autoload-cookie' (which see). +If FILE is being visited in a buffer, the contents of the buffer +are used." t nil) + +(autoload 'update-file-autoloads "autoload" "\ +Update the autoloads for FILE in `generated-autoload-file' +\(which FILE might bind in its local variables)." t nil) + +(autoload 'update-autoloads-here "autoload" "\ +Update sections of the current buffer generated by `update-file-autoloads'." t nil) + +(autoload 'update-autoloads-from-directory "autoload" "\ +Update `generated-autoload-file' with all the current autoloads from DIR. +This runs `update-file-autoloads' on each .el file in DIR. +Obsolete autoload entries for files that no longer exist are deleted." t nil) + +(autoload 'batch-update-autoloads "autoload" "\ +Update the autoloads for the files or directories on the command line. +Runs `update-file-autoloads' on files and `update-directory-autoloads' +on directories. 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 `xemacs -batch -f batch-update-autoloads *.el'." nil nil) + +;;;*** + +;;;### (autoloads (browse-url-lynx-emacs browse-url-lynx-xterm browse-url-w3 browse-url-iximosaic browse-url-grail browse-url-mosaic browse-url-netscape) "browse-url" "utils/browse-url.el") + +(defvar browse-url-browser-function 'browse-url-w3 "\ +*Function to display the current buffer in a WWW browser. +Used by the `browse-url-at-point', `browse-url-at-mouse', and +`browse-url-of-file' commands.") + +(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-p' 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-p. + +When called non-interactively, optional second argument NEW-WINDOW is +used instead of browse-url-new-window-p." t nil) + +(autoload 'browse-url-mosaic "browse-url" "\ +Ask the XMosaic WWW browser to load URL. +Default to the URL around or before point." t nil) + +(autoload 'browse-url-grail "browse-url" "\ +Ask the Grail WWW browser to load URL. +Default to the URL around or before point. Runs the program in the +variable `browse-url-grail'." t nil) + +(autoload 'browse-url-iximosaic "browse-url" "\ +Ask the IXIMosaic WWW browser to load URL. +Default to the URL around or before point." t nil) + +(autoload 'browse-url-w3 "browse-url" "\ +Ask the w3 WWW browser to load URL. +Default to the URL around or before point." t nil) + +(autoload 'browse-url-lynx-xterm "browse-url" "\ +Ask the Lynx WWW browser to load URL. +Default to the URL around or before point. A new Lynx process is run +in an Xterm window." t nil) + +(autoload 'browse-url-lynx-emacs "browse-url" "\ +Ask the Lynx WWW browser to load URL. +Default to the URL around or before point. Run a new Lynx process in +an Emacs buffer." t nil) + +;;;*** + +;;;### (autoloads (docref-setup) "docref" "utils/docref.el") + +(autoload 'docref-setup "docref" "\ +Process docref cross-references in the current buffer. +See also \\(f@docref-subst)." t nil) + +;;;*** + +;;;### (autoloads (easy-menu-define) "easymenu" "utils/easymenu.el") + +(autoload 'easy-menu-define "easymenu" "\ +Define a menu bar submenu in maps MAPS, according to MENU. +The arguments SYMBOL and DOC are ignored; they are present for +compatibility only. SYMBOL is not evaluated. In other Emacs versions +these arguments may be used as a variable to hold the menu data, and a +doc string for that variable. + +The first element of MENU must be a string. It is the menu bar item name. +The rest of the elements are menu items. + +A menu item is usually 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 a list to evaluate when the item is chosen. + +ENABLE is an expression; the item is enabled for selection +whenever this expression's value is non-nil. + +Alternatively, a menu item may have the form: + + [ NAME CALLBACK [ KEYWORD ARG ] ... ] + +Where KEYWORD is one of the symbol defined below. + + :keys KEYS + +KEYS is a string; a complex keyboard equivalent to this menu item. + + :active ENABLE + +ENABLE is an expression; the item is enabled for selection +whenever this expression's value is non-nil. + + :suffix NAME + +NAME is a string; the name of an argument to CALLBACK. + + :style STYLE + +STYLE is a symbol describing the type of menu item. The following are +defined: + +toggle: A checkbox. + Currently just prepend the name with the string \"Toggle \". +radio: A radio button. +nil: An ordinary menu item. + + :selected SELECTED + +SELECTED is an expression; the checkbox or radio button is selected +whenever this expression's value is non-nil. +Currently just disable radio buttons, no effect on checkboxes. + +A menu item can be a string. Then that string appears in the menu as +unselectable text. A string consisting solely of hyphens is displayed +as a solid horizontal line. + +A menu item can be a list. It is treated as a submenu. +The first element should be the submenu name. That's used as the +menu item in the top-level menu. The cdr of the submenu list +is a list of menu items, as above." nil 'macro) + +;;;*** + +;;;### (autoloads (elp-submit-bug-report elp-results elp-instrument-package elp-instrument-list elp-restore-function elp-instrument-function) "elp" "utils/elp.el") + +(autoload 'elp-instrument-function "elp" "\ +Instrument FUNSYM for profiling. +FUNSYM must be a symbol of a defined function." t nil) + +(autoload 'elp-restore-function "elp" "\ +Restore an instrumented function to its original definition. +Argument FUNSYM is the symbol of a defined function." t nil) + +(autoload 'elp-instrument-list "elp" "\ +Instrument for profiling, all functions in `elp-function-list'. +Use optional LIST if provided instead." 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" 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 are reset after results are +displayed." t nil) + +(autoload 'elp-submit-bug-report "elp" "\ +Submit via mail, a bug report on elp." t nil) + +;;;*** + +;;;### (autoloads (list-colors-display facemenu-read-color list-text-properties-at facemenu-remove-special facemenu-remove-props facemenu-set-read-only facemenu-set-intangible facemenu-set-invisible facemenu-make-much-smaller facemenu-make-much-larger facemenu-make-smaller facemenu-make-larger facemenu-set-size-default facemenu-set-face-from-menu facemenu-set-background facemenu-set-foreground facemenu-set-face) "facemenu" "utils/facemenu.el") + +(defvar facemenu-menu nil "\ +Facemenu top-level menu keymap.") + +(defvar facemenu-keymap (let ((map (make-sparse-keymap "Set face"))) (define-key map ?o 'facemenu-set-face) map) "\ +Keymap for face-changing commands. +`Facemenu-update' fills in the keymap according to the bindings +requested in `facemenu-keybindings'.") + +(autoload 'facemenu-set-face "facemenu" "\ +Add FACE to the region or next character typed. +It will be added to the top of the face list; any faces lower on the list that +will not show through at all will be removed. + +Interactively, the face to be used is read with the minibuffer. + +If the region is active and there is no prefix argument, +this command sets the region to the requested face. + +Otherwise, this command specifies the face for the next character +inserted. Moving point or switching buffers before +typing a character to insert cancels the specification." t nil) + +(autoload 'facemenu-set-foreground "facemenu" "\ +Set the foreground color of the region or next character typed. +The color is prompted for. A face named `fg:color' is used (or created). +If the region is active, it will be set to the requested face. If +it is inactive (even if mark-even-if-inactive is set) the next +character that is typed (via `self-insert-command') will be set to +the selected face. Moving point or switching buffers before +typing a character cancels the request." t nil) + +(autoload 'facemenu-set-background "facemenu" "\ +Set the background color of the region or next character typed. +The color is prompted for. A face named `bg:color' is used (or created). +If the region is active, it will be set to the requested face. If +it is inactive (even if mark-even-if-inactive is set) the next +character that is typed (via `self-insert-command') will be set to +the selected face. Moving point or switching buffers before +typing a character cancels the request." t nil) + +(autoload 'facemenu-set-face-from-menu "facemenu" "\ +Set the face of the region or next character typed. +This function is designed to be called from a menu; the face to use +is the menu item's name. + +If the region is active and there is no prefix argument, +this command sets the region to the requested face. + +Otherwise, this command specifies the face for the next character +inserted. Moving point or switching buffers before +typing a character to insert cancels the specification." nil nil) + +(autoload 'facemenu-set-size-default "facemenu" nil t nil) + +(autoload 'facemenu-make-larger "facemenu" nil t nil) + +(autoload 'facemenu-make-smaller "facemenu" nil t nil) + +(autoload 'facemenu-make-much-larger "facemenu" nil t nil) + +(autoload 'facemenu-make-much-smaller "facemenu" nil t nil) + +(autoload 'facemenu-set-invisible "facemenu" "\ +Make the region invisible. +This sets the `invisible' text property; it can be undone with +`facemenu-remove-special'." t nil) + +(autoload 'facemenu-set-intangible "facemenu" "\ +Make the region intangible: disallow moving into it. +This sets the `intangible' text property; it can be undone with +`facemenu-remove-special'." t nil) + +(autoload 'facemenu-set-read-only "facemenu" "\ +Make the region unmodifiable. +This sets the `read-only' text property; it can be undone with +`facemenu-remove-special'." t nil) + +(autoload 'facemenu-remove-props "facemenu" "\ +Remove all text properties that facemenu added to region." t nil) + +(autoload 'facemenu-remove-special "facemenu" "\ +Remove all the \"special\" text properties from the region. +These special properties include `invisible', `intangible' and `read-only'." t nil) + +(autoload 'list-text-properties-at "facemenu" "\ +Pop up a buffer listing text-properties at LOCATION." t nil) + +(autoload 'facemenu-read-color "facemenu" "\ +Read a color using the minibuffer." nil nil) + +(autoload 'list-colors-display "facemenu" "\ +Display names of defined colors, and show what they look like. +If the optional argument LIST is non-nil, it should be a list of +colors to display. Otherwise, this command computes a list +of colors that the current display can handle." t nil) + +;;;*** + +;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" "utils/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." 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. + +This function has no effect unless the current device is a tty. + +The tty terminal type is determined from the TERM environment variable. +Trailing hyphens and everything following is stripped, so a TERM +value of \"vt100-nam\" is treated the same as \"vt100\"." nil nil) + +;;;*** + +;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode) "forms" "utils/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-backward r + \\C-c \\C-s forms-search-forward s + \\C-c \\C-x forms-exit x +" t nil) + +(autoload 'forms-find-file "forms" "\ +Visit a file in Forms mode." t nil) + +(autoload 'forms-find-file-other-window "forms" "\ +Visit a file in Forms mode in other window." t nil) + +;;;*** + +;;;### (autoloads (highlight-headers-follow-url highlight-headers-follow-url-mosaic highlight-headers-follow-url-netscape highlight-headers) "highlight-headers" "utils/highlight-headers.el") + +(autoload 'highlight-headers "highlight-headers" "\ +Highlight message headers between start and end. +Faces used: + message-headers the part before the colon + message-header-contents the part after the colon + message-highlighted-header-contents contents of \"special\" headers + message-cited-text quoted text from other messages + +Variables used: + + highlight-headers-regexp what makes a \"special\" header + highlight-headers-citation-regexp matches lines of quoted text + highlight-headers-citation-header-regexp matches headers for quoted text + +If HACK-SIG is true,then we search backward from END for something that +looks like the beginning of a signature block, and don't consider that a +part of the message (this is because signatures are often incorrectly +interpreted as cited text.)" nil nil) + +(autoload 'highlight-headers-follow-url-netscape "highlight-headers" nil nil nil) + +(autoload 'highlight-headers-follow-url-mosaic "highlight-headers" nil nil nil) + +(autoload 'highlight-headers-follow-url "highlight-headers" nil t nil) + +;;;*** + +;;;### (autoloads (id-select-double-click-hook id-select-and-kill-thing id-select-and-copy-thing id-select-goto-matching-tag id-select-thing-with-mouse id-select-thing) "id-select" "utils/id-select.el") + +(autoload 'id-select-thing "id-select" "\ +Mark the region selected by the syntax of the thing at point. +If invoked repeatedly, selects bigger and bigger things. +If `id-select-display-type' is non-nil, the type of selection is displayed in +the minibuffer." t nil) + +(autoload 'id-select-thing-with-mouse "id-select" "\ +Select a region based on the syntax of the character from a mouse click. +If the click occurs at the same point as the last click, select +the next larger syntactic structure. If `id-select-display-type' is non-nil, +the type of selection is displayed in the minibuffer." t nil) + +(autoload 'id-select-goto-matching-tag "id-select" "\ +If in a major mode listed in `id-select-markup-modes,' moves point to the start of the tag paired with the closest tag that point is within or precedes. +Returns t if point is moved, else nil. +Signals an error if no tag is found following point or if the closing tag +does not have a `>' terminator character." t nil) + +(autoload 'id-select-and-copy-thing "id-select" "\ +Copy the region surrounding the syntactical unit at point." t nil) + +(autoload 'id-select-and-kill-thing "id-select" "\ +Kill the region surrounding the syntactical unit at point." t nil) + +(autoload 'id-select-double-click-hook "id-select" "\ +Select a region based on the syntax of the character wherever the mouse is double-clicked. +If the double-click occurs at the same point as the last double-click, select +the next larger syntactic structure. If `id-select-display-type' is non-nil, +the type of selection is displayed in the minibuffer." nil nil) + +;;;*** + +;;;### (autoloads (unload-feature) "loadhist" "utils/loadhist.el") + +(autoload 'unload-feature "loadhist" "\ +Unload the library that provided FEATURE, restoring all its autoloads. +If the feature is required by any other loaded code, and optional FORCE +is nil, raise an error." t nil) + +;;;*** + +;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr" "utils/mail-extr.el") + +(autoload 'mail-extract-address-components "mail-extr" "\ +Given an RFC-822 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. +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.) +If ADDRESS contains more than one RFC-822 address, only the first is + returned. Some day this function may be extended to extract multiple + addresses, or perhaps return the position at which parsing stopped." nil nil) + +(autoload 'what-domain "mail-extr" "\ +Prompts for a mail domain, and prints the country it corresponds to +in the minibuffer." t nil) + +;;;*** + +;;;### (autoloads (mail-fetch-field mail-file-babyl-p) "mail-utils" "utils/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.") + +(autoload 'mail-file-babyl-p "mail-utils" nil nil nil) + +(autoload 'mail-fetch-field "mail-utils" "\ +Return the value of the header field FIELD-NAME. +The buffer is expected to be narrowed to just the headers of the message. +If second arg LAST is non-nil, use the last such field if there are several. +If third arg ALL is non-nil, concatenate all such fields with commas between." nil nil) + +;;;*** + +;;;### (autoloads (read-passwd) "passwd" "utils/passwd.el") + +(autoload 'read-passwd "passwd" "\ +Prompts for a password in the minibuffer, and returns it as a string. +If PROMPT may be a prompt string or an alist of elements +'(prompt . default). +If optional arg CONFIRM is true, then ask the user to type the password +again to confirm that they typed it correctly. +If optional arg DEFAULT is provided, then it is a string to insert as +the default choice (it is not, of course, displayed.) + +If running under X, the keyboard will be grabbed (with XGrabKeyboard()) +to reduce the possibility that evesdropping is occuring. + +When reading a password, all keys self-insert, except for: +\\<read-passwd-map> + \\[read-passwd-erase-line] Erase the entire line. + \\[quoted-insert] Insert the next character literally. + \\[delete-backward-char] Delete the previous character. + \\[exit-minibuffer] Accept what you have typed. + \\[keyboard-quit] Abort the command. + +The returned value is always a newly-created string. No additional copies +of the password remain after this function has returned. + +NOTE: unless great care is taken, the typed password will exist in plaintext +form in the running image for an arbitrarily long time. Priveleged users may +be able to extract it from memory. If emacs crashes, it may appear in the +resultant core file. + +Some steps you can take to prevent the password from being copied around: + + - as soon as you are done with the returned string, destroy it with + (fillarray string 0). The same goes for any default passwords + or password histories. + + - do not copy the string, as with concat or substring - if you do, be + sure to keep track of and destroy all copies. + + - do not insert the password into a buffer - if you do, be sure to + overwrite the buffer text before killing it, as with the functions + `passwd-erase-buffer' or `passwd-kill-buffer'. Note that deleting + the text from the buffer does NOT necessarily remove the text from + memory. + + - be careful of the undo history - if you insert the password into a + buffer which has undo recording turned on, the password will be + copied onto the undo list, and thus recoverable. + + - do not pass it as an argument to a shell command - anyone will be + able to see it if they run `ps' at the right time. + +Note that the password will be temporarily recoverable with the `view-lossage' +command. This data will not be overwritten until another hundred or so +characters are typed. There's not currently a way around this." nil nil) + +;;;*** + +;;;### (autoloads (pp-eval-last-sexp pp-eval-expression pp) "pp" "utils/pp.el") + +(defalias 'pprint 'pp) + +(autoload 'pp "pp" "\ +Output the pretty-printed representation of OBJECT, any Lisp object. +Quoting characters are printed when needed to make output that `read' +can handle, whenever this is possible. +Output stream is STREAM, or value of `standard-output' (which see)." nil nil) + +(autoload 'pp-eval-expression "pp" "\ +Evaluate EXPRESSION and pretty-print value into a new display buffer. +If the pretty-printed value fits on one line, the message line is used +instead. Value is also consed on to front of variable values 's +value." t nil) + +(autoload 'pp-eval-last-sexp "pp" "\ +Run `pp-eval-expression' on sexp before point (which see). +With argument, pretty-print output into current buffer. +Ignores leading comment characters." t nil) + +;;;*** + +;;;### (autoloads (prettyexpand-all-sexp prettyexpand-sexp macroexpand-all-sexp macroexpand-sexp pp-plist pp-variable pp-function) "pretty-print" "utils/pretty-print.el") + +(autoload 'pp-function "pretty-print" "\ +Pretty print the function definition of SYMBOL in a seperate buffer" t nil) + +(autoload 'pp-variable "pretty-print" "\ +Pretty print the variable value of SYMBOL in a seperate buffer" t nil) + +(autoload 'pp-plist "pretty-print" "\ +Pretty print the property list of SYMBOL in a seperate buffer" t nil) + +(autoload 'macroexpand-sexp "pretty-print" "\ +Macro expand the sexpression following point. Pretty print expansion in a +temporary buffer. With prefix argument, replace the original +sexpression by its expansion in the current buffer." t nil) + +(autoload 'macroexpand-all-sexp "pretty-print" "\ +Macro expand recursively the sexpression following point. Pretty print +expansion in a temporary buffer. With prefix argument, replace the +original sexpression by its expansion in the current buffer." t nil) + +(autoload 'prettyexpand-sexp "pretty-print" "\ +Macro expand the sexpression following point. Pretty print expansion +in a temporary buffer. With prefix argument, replace the original +sexpression by its expansion in the current buffer. + However, calls to macros specified in the variable +`pp-shadow-expansion-list' are not expanded, in order to make the code +look nicer." t nil) + +(autoload 'prettyexpand-all-sexp "pretty-print" "\ +Macro expand recursively the sexpression following point. Pretty print +expansion in a temporary buffer. With prefix argument, replace the +original sexpression by its expansion in the current buffer. + However, calls to macros specified in the variable +`pp-shadow-expansion-list' are not expanded, in order to make the code +look nicer." t nil) + +;;;*** + +;;;### (autoloads (reporter-submit-bug-report) "reporter" "utils/reporter.el") + +(autoload 'reporter-submit-bug-report "reporter" nil nil nil) + +;;;*** + +;;;### (autoloads (make-ring ringp) "ring" "utils/ring.el") + +(autoload 'ringp "ring" "\ +Returns t if X is a ring; nil otherwise." nil nil) + +(define-obsolete-function-alias 'ring-p 'ringp) + +(autoload 'make-ring "ring" "\ +Make a ring that can contain SIZE elements." nil nil) + +;;;*** + +;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy skeleton-proxy-new define-skeleton) "skeleton" "utils/skeleton.el") + +(defvar skeleton-filter '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, while the variable of the same name, +which contains the skeleton, has a documentation to that effect. +INTERACTOR and ELEMENT ... are as defined under `skeleton-insert'." nil 'macro) + +(autoload 'skeleton-proxy-new "skeleton" "\ +Insert skeleton defined by variable of same name (see `skeleton-insert'). +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). + +When called as a function, optional first argument STR may also be a string +which will be the value of `str' whereas the skeleton's interactor is then +ignored." t nil) + +(autoload 'skeleton-proxy "skeleton" "\ +Insert skeleton defined by variable of same name (see `skeleton-insert'). +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). + +When called as a function, optional first argument STR may also be a string +which will be the value of `str' whereas the skeleton's interactor is then +ignored." t nil) + +(autoload 'skeleton-insert "skeleton" "\ +Insert the complex statement skeleton SKELETON describes very concisely. + +With optional third 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. + +Optional fourth STR 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'). Other possibilities are: + + \\n go to next line and indent according to mode + _ interesting point, interregion here, point after termination + > indent line (or interregion if > _) according to major mode + & 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 + +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 a list of +strings with the subskeleton being repeated once for each string. + +Quoted Lisp expressions are evaluated evaluated for their side-effect. +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'." 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' returns nil, pairing is performed. + +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." t nil) + +;;;*** + +;;;### (autoloads (tq-create) "tq" "utils/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." nil nil) + +;;;*** + +;;;### (autoloads (trace-function-background trace-function) "trace" "utils/trace.el") + +(defvar trace-buffer "*trace-output*" "\ +*Trace output will by default go to that buffer.") + +(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." t nil) + +(autoload 'trace-function-background "trace" "\ +Traces FUNCTION with trace output going quietly 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!! Trace output will quietly go to BUFFER without changing +the window or buffer configuration at all." t nil) + +;;;*** + +;;;### (autoloads (y-or-n-p-with-timeout yes-or-no-p-with-timeout with-timeout with-timeout-internal) "with-timeout" "utils/with-timeout.el") + +(autoload 'with-timeout-internal "with-timeout" nil nil nil) + +(autoload 'with-timeout "with-timeout" "\ +Usage: (with-timeout (seconds &rest timeout-forms) &rest body) +This is just like progn, but if the given number of seconds expires before +the body returns, then timeout-forms are evaluated and returned instead. +The body won't be interrupted in the middle of a computation: the check for +the timer expiration only occurs when body does a redisplay, or prompts the +user for input, or calls accept-process-output." nil 'macro) + +(autoload 'yes-or-no-p-with-timeout "with-timeout" "\ +Just like yes-or-no-p, but will time out after TIMEOUT seconds +if the user has not yes answered, returning DEFAULT-VALUE." nil nil) + +(autoload 'y-or-n-p-with-timeout "with-timeout" "\ +Just like y-or-n-p, but will time out after TIMEOUT seconds +if the user has not yes answered, returning DEFAULT-VALUE." nil nil) + +;;;*** + +;;;### (autoloads (xbm-button-create) "xbm-button" "utils/xbm-button.el") + +(autoload 'xbm-button-create "xbm-button" "\ +Returns a list of XBM image instantiators for a button displaying TEXT. +The list is of the form + (UP DOWN DISABLED) +where UP, DOWN, and DISABLED are the up, down and disabled image +instantiators for the button. + +BORDER-THICKNESS specifies how many pixels should be used for the +borders on the edges of the buttons. It should be a positive integer, +or 0 to mean no border." nil nil) + +;;;*** + +;;;### (autoloads (xpm-button-create) "xpm-button" "utils/xpm-button.el") + +(autoload 'xpm-button-create "xpm-button" "\ +Returns a list of XPM image instantiators for a button displaying TEXT. +The list is of the form + (UP DOWN DISABLED) +where UP, DOWN, and DISABLED are the up, down and disabled image +instantiators for the button. + +SHADOW-THICKNESS specifies how many pixels should be used for the +shadows on the edges of the buttons. It should be a positive integer, +or 0 to mean no shadows on the edges. +FG-COLOR is the color used to display the text. It should be a string. +BG-COLOR is the background color the text will be displayed upon. +It should be a string." nil nil) + +;;;*** + +;;;### (autoloads (viper-mode) "viper" "viper/viper.el") + +(autoload 'viper-mode "viper" "\ +Turn on Viper emulation of Vi." t nil) + +(defalias 'vip-mode 'viper-mode) + +;;;*** + +;;;### (autoloads (vm-easy-menu-create-keymaps vm-easy-menu-define) "vm-easymenu" "vm/vm-easymenu.el") + +(autoload 'vm-easy-menu-define "vm-easymenu" "\ +Define a menu bar submenu in maps MAPS, according to MENU. +The menu keymap is stored in symbol SYMBOL, both as its value +and as its function definition. DOC is used as the doc string for SYMBOL. + +The first element of MENU must be a string. It is the menu bar item name. +The rest of the elements are menu items. + +A menu item is usually 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 a list to evaluate when the item is chosen. + +ENABLE is an expression; the item is enabled for selection +whenever this expression's value is non-nil. + +Alternatively, a menu item may have the form: + + [ NAME CALLBACK [ KEYWORD ARG ] ... ] + +Where KEYWORD is one of the symbol defined below. + + :keys KEYS + +KEYS is a string; a complex keyboard equivalent to this menu item. +This is normally not needed because keyboard equivalents are usually +computed automatically. + + :active ENABLE + +ENABLE is an expression; the item is enabled for selection +whenever this expression's value is non-nil. + + :suffix NAME + +NAME is a string; the name of an argument to CALLBACK. + + :style + +STYLE is a symbol describing the type of menu item. The following are +defined: + +toggle: A checkbox. + Currently just prepend the name with the string \"Toggle \". +radio: A radio button. +nil: An ordinary menu item. + + :selected SELECTED + +SELECTED is an expression; the checkbox or radio button is selected +whenever this expression's value is non-nil. +Currently just disable radio buttons, no effect on checkboxes. + +A menu item can be a string. Then that string appears in the menu as +unselectable text. A string consisting solely of hyphens is displayed +as a solid horizontal line. + +A menu item can be a list. It is treated as a submenu. +The first element should be the submenu name. That's used as the +menu item in the top-level menu. The cdr of the submenu list +is a list of menu items, as above." nil 'macro) + +(autoload 'vm-easy-menu-create-keymaps "vm-easymenu" nil nil nil) + +;;;*** + +;;;### (autoloads (w3-use-hotlist) "w3-hot" "w3/w3-hot.el") + +(autoload 'w3-use-hotlist "w3-hot" "\ +Possibly go to a link in your W3/Mosaic hotlist. +This is part of the emacs World Wide Web browser. It will prompt for +one of the items in your 'hotlist'. A hotlist is a list of often +visited or interesting items you have found on the World Wide Web." t nil) + +;;;*** + +;;;### (autoloads (w3-follow-link w3-follow-link-other-frame w3-do-setup w3 w3-preview-this-buffer w3-batch-fetch w3-follow-url-at-point w3-follow-url-at-point-other-frame w3-maybe-follow-link w3-maybe-follow-link-mouse w3-fetch w3-fetch-other-frame w3-find-file w3-open-local) "w3" "w3/w3.el") + +(autoload 'w3-open-local "w3" "\ +Find a local file, and interpret it as a hypertext document. +It will prompt for an existing file or directory, and retrieve it as a +hypertext document. If it is a directory, and url-use-hypertext-dired +is non-nil, then an HTML directory listing is created on the fly. +Otherwise, dired-mode is used to visit the buffer." t nil) + +(autoload 'w3-find-file "w3" "\ +Find a local file, and interpret it as a hypertext document. +It will prompt for an existing file or directory, and retrieve it as a +hypertext document. If it is a directory, and url-use-hypertext-dired +is non-nil, then an HTML directory listing is created on the fly. +Otherwise, dired-mode is used to visit the buffer." t nil) + +(autoload 'w3-fetch-other-frame "w3" "\ +Attempt to follow the hypertext reference under point in a new frame. +With prefix-arg P, ignore viewers and dump the link straight +to disk." t nil) + +(autoload 'w3-fetch "w3" "\ +Retrieve a document over the World Wide Web. +The World Wide Web is a global hypertext system started by CERN in +Switzerland in 1991. + +The document should be specified by its fully specified +Uniform Resource Locator. The document will be parsed, printed, or +passed to an external viewer as appropriate. Variable +`mm-mime-info' specifies viewers for particular file types." t nil) + +(autoload 'w3-maybe-follow-link-mouse "w3" "\ +Maybe follow a hypertext link under point. +If there is no link under point, this will try using +url-get-url-at-point" t nil) + +(autoload 'w3-maybe-follow-link "w3" "\ +Maybe follow a hypertext link under point. +If there is no link under point, this will try using +url-get-url-at-point" t nil) + +(autoload 'w3-follow-url-at-point-other-frame "w3" "\ +Follow the URL under PT, defaults to link under (point)" t nil) + +(autoload 'w3-follow-url-at-point "w3" "\ +Follow the URL under PT, defaults to link under (point)" t nil) + +(autoload 'w3-batch-fetch "w3" "\ +Fetch all the URLs on the command line and save them to files in +the current directory. The first argument after the -f w3-batch-fetch +on the command line should be a string specifying how to save the +information retrieved. If it is \"html\", then the page will be +unformatted when it is written to disk. If it is \"text\", then the +page will be formatted before it is written to disk. If it is +\"binary\" it will not mess with the file extensions, and just save +the data in raw binary format. If none of those, the default is +\"text\", and the first argument is treated as a normal URL." nil nil) + +(autoload 'w3-preview-this-buffer "w3" "\ +See what this buffer will look like when its formatted as HTML. +HTML is the HyperText Markup Language used by the World Wide Web to +specify formatting for text. More information on HTML can be found at +ftp.w3.org:/pub/www/doc." t nil) + +(autoload 'w3 "w3" "\ +Retrieve the default World Wide Web home page. +The World Wide Web is a global hypertext system started by CERN in +Switzerland in 1991. + +The home page is specified by the variable w3-default-homepage. The +document should be specified by its fully specified Uniform Resource +Locator. The document will be parsed as HTML (if appropriate) and +displayed in a new buffer." t nil) + +(autoload 'w3-do-setup "w3" "\ +Do setup - this is to avoid conflict with user settings when W3 is +dumped with emacs." nil nil) + +(autoload 'w3-follow-link-other-frame "w3" "\ +Attempt to follow the hypertext reference under point in a new frame. +With prefix-arg P, ignore viewers and dump the link straight +to disk." nil nil) + +(autoload 'w3-follow-link "w3" "\ +Attempt to follow the hypertext reference under point. +With prefix-arg P, ignore viewers and dump the link straight +to disk." t nil) + +;;;*** + +;;;### (autoloads (font-menu-weight-constructor font-menu-size-constructor font-menu-family-constructor reset-device-font-menus) "x-font-menu" "x11/x-font-menu.el") + +(defvar font-menu-ignore-scaled-fonts t "\ +*If non-nil, then the font menu will try to show only bitmap fonts.") + +(defvar font-menu-this-frame-only-p nil "\ +*If non-nil, then changing the default font from the font menu will only +affect one frame instead of all frames.") + +(fset 'install-font-menus 'reset-device-font-menus) + +(autoload 'reset-device-font-menus "x-font-menu" "\ +Generates the `Font', `Size', and `Weight' submenus for the Options menu. +This is run the first time that a font-menu is needed for each device. +If you don't like the lazy invocation of this function, you can add it to +`create-device-hook' and that will make the font menus respond more quickly +when they are selected for the first time. If you add fonts to your system, +or if you change your font path, you can call this to re-initialize the menus." nil nil) + +(autoload 'font-menu-family-constructor "x-font-menu" nil nil nil) + +(autoload 'font-menu-size-constructor "x-font-menu" nil nil nil) + +(autoload 'font-menu-weight-constructor "x-font-menu" nil nil nil) + +;;;***
--- a/lisp/prim/faces.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/prim/faces.el Mon Aug 13 09:05:42 2007 +0200 @@ -1369,7 +1369,8 @@ (set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x)) (set-face-font 'modeline-buffer-id [bold-italic] nil '(grayscale x)))) - (set-face-font 'modeline-buffer-id [bold-italic] nil 'tty)))) + (if (featurep 'tty) + (set-face-font 'modeline-buffer-id [bold-italic] nil 'tty))))) (set-face-parent 'modeline-buffer-id 'modeline nil nil 'append) ;; modeline-mousable: @@ -1468,3 +1469,5 @@ ;; (if (featurep 'tty) (set-face-reverse-p 'isearch t 'global 'tty)) + +;;; faces.el ends here
--- a/lisp/prim/files-nomule.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/prim/files-nomule.el Mon Aug 13 09:05:42 2007 +0200 @@ -81,4 +81,4 @@ Return t if file exists." (load-internal file noerror nomessage nosuffix nil nil)) -;;; files-nomule.el ends here \ No newline at end of file +;;; files-nomule.el ends here
--- a/lisp/prim/frame.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/prim/frame.el Mon Aug 13 09:05:42 2007 +0200 @@ -796,7 +796,10 @@ Calls the internal function cde-start-drag-internal to do the actual work." (interactive "_r") (if (featurep 'cde) - (cde-start-drag-internal (buffer-substring-no-properties begin end)) + ;; Avoid build-time doc string warning by calling the function + ;; in the following roundabout way: + (funcall (intern "cde-start-drag-internal") + (buffer-substring-no-properties begin end)) (error "CDE functionality not compiled in.")))
--- a/lisp/prim/loaddefs.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/prim/loaddefs.el Mon Aug 13 09:05:42 2007 +0200 @@ -91,6 +91,7 @@ ".diff" ".oi")))) (make-variable-buffer-local 'indent-tabs-mode) + ;;; This code also was not generated by autoload.el, because VM goes out ;;; of its way to be perverse. @@ -308,13844 +309,12 @@ t) - -;;; Generated autoloads follow (made by autoload.el). - -;;; To sort them, execute the following after narrowing -;;; to a region starting just after the following formfeed (control-l) -;;; and ending just after the last formfeed in the file. - -;;;(sort-regexp-fields nil "\n*.*\n.*from \\(.*\\)[^ ]* " "\\1" -;;; (point-min) (point-max)) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "byte-optimize" "bytecomp/byte-optimize.el" (12984 29530)) -;;; Generated autoloads from bytecomp/byte-optimize.el - -;;;*** - -;;;### (autoloads nil "bytecomp-runtime" "bytecomp/bytecomp-runtime.el" (12984 29530)) -;;; Generated autoloads from bytecomp/bytecomp-runtime.el - -;;;### (autoloads (batch-byte-recompile-directory batch-byte-recompile-directory-norecurse batch-byte-compile display-call-tree byte-compile-sexp byte-compile compile-defun byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "bytecomp/bytecomp.el" (12984 29530)) -;;; Generated autoloads from bytecomp/bytecomp.el - -(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." t nil) - -(autoload 'byte-recompile-directory "bytecomp" "\ -Recompile every `.el' file in DIRECTORY that needs recompilation. -This is if a `.elc' file exists but is older than the `.el' file. -Files in subdirectories of DIRECTORY are processed also unless argument -NORECURSION is non-nil. - -If the `.elc' file does not exist, normally the `.el' file is *not* compiled. -But a prefix argument (optional second arg) means ask user, -for each such `.el' file, whether to compile it. Prefix argument 0 means -don't ask and compile the file anyway. - -A nonzero prefix argument also means ask about each subdirectory. - -If the fourth argument FORCE is non-nil, -recompile every `.el' file that already has a `.elc' file." t nil) - -(autoload 'byte-recompile-file "bytecomp" "\ -Recompile a file of Lisp code named FILENAME if it needs recompilation. -This is if the `.elc' file exists but is older than the `.el' file. - -If the `.elc' file does not exist, normally the `.el' file is *not* -compiled. But a prefix argument (optional second arg) means ask user -whether to compile it. Prefix argument 0 don't ask and recompile anyway." t nil) - -(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 made by appending `c' to the end of FILENAME. -With prefix arg (noninteractively: 2nd arg), load the file after compiling." t nil) - -(autoload 'compile-defun "bytecomp" "\ -Compile and evaluate the current top-level form. -Print the result in the minibuffer. -With argument, insert value in current buffer after the form." 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." nil nil) - -(autoload 'byte-compile-sexp "bytecomp" "\ -Compile and return SEXP." 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." t 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\"" nil nil) - -(autoload 'batch-byte-recompile-directory-norecurse "bytecomp" "\ -Same as `batch-byte-recompile-directory' but without recursion." nil nil) - -(autoload 'batch-byte-recompile-directory "bytecomp" "\ -Runs `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 `xemacs -batch -f batch-byte-recompile-directory .'." nil nil) - -;;;*** - -;;;### (autoloads (disassemble) "disass" "bytecomp/disass.el" (12984 29530)) -;;; Generated autoloads from bytecomp/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." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "appt" "calendar/appt.el" (12984 29530)) -;;; Generated autoloads from calendar/appt.el - -;;;*** - -;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (12984 29530)) -;;; 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) - -;;;*** - -;;;### (autoloads nil "cal-french" "calendar/cal-french.el" (12984 29530)) -;;; Generated autoloads from calendar/cal-french.el - -;;;*** - -;;;### (autoloads nil "cal-mayan" "calendar/cal-mayan.el" (12984 29530)) -;;; Generated autoloads from calendar/cal-mayan.el - -;;;*** - -;;;### (autoloads nil "cal-x" "calendar/cal-x.el" (12984 29531)) -;;; Generated autoloads from calendar/cal-x.el - -(defvar calendar-setup 'one-frame "\ -The frame set up of the calendar. -The choices are `one-frame' (calendar and diary together in one separate, -dediciated frame) or `two-frames' (calendar and diary in separate, dedicated -frames); with any other value the current frame is used.") - -;;;*** - -;;;*** - -;;;### (autoloads nil "cal-xemacs" "calendar/cal-xemacs.el" (12984 29531)) -;;; Generated autoloads from calendar/cal-xemacs.el - -;;;### (autoloads (list-yahrzeit-dates calendar) "calendar" "calendar/calendar.el" (12988 19656)) -;;; Generated autoloads from calendar/calendar.el - -(defvar calendar-week-start-day 0 "\ -*The day of the week on which a week in the calendar begins. -0 means Sunday (default), 1 means Monday, and so on.") - -(defvar calendar-offset 0 "\ -*The offset of the principal month from the center of the calendar window. -0 means the principal month is in the center (default), -1 means on the left, -+1 means on the right. Larger (or smaller) values push the principal month off -the screen.") - -(defvar view-diary-entries-initially nil "\ -*Non-nil means display current date's diary entries on entry. -The diary is displayed in another window when the calendar is first displayed, -if the current date is visible. The number of days of diary entries displayed -is governed by the variable `number-of-diary-entries'.") - -(defvar number-of-diary-entries 1 "\ -*Specifies how many days of diary entries are to be displayed initially. -This variable affects the diary display when the command M-x diary is used, -or if the value of the variable `view-diary-entries-initially' is t. For -example, if the default value 1 is used, then only the current day's diary -entries will be displayed. If the value 2 is used, then both the current -day's and the next day's entries will be displayed. - -The value can also be a vector such as [0 2 2 2 2 4 1]; this value -says to display no diary entries on Sunday, the display the entries -for the current date and the day after on Monday through Thursday, -display Friday through Monday's entries on Friday, and display only -Saturday's entries on Saturday. - -This variable does not affect the diary display with the `d' command -from the calendar; in that case, the prefix argument controls the -number of days of diary entries displayed.") - -(defvar mark-diary-entries-in-calendar nil "\ -*Non-nil means mark dates with diary entries, in the calendar window. -The marking symbol is specified by the variable `diary-entry-marker'.") - -(defvar view-calendar-holidays-initially nil "\ -*Non-nil means display holidays for current three month period on entry. -The holidays are displayed in another window when the calendar is first -displayed.") - -(defvar mark-holidays-in-calendar nil "\ -*Non-nil means mark dates of holidays in the calendar window. -The marking symbol is specified by the variable `calendar-holiday-marker'.") - -(defvar all-hebrew-calendar-holidays nil "\ -*If nil, show only major holidays from the Hebrew calendar. -This means only those Jewish holidays that appear on secular calendars. - -If t, show all the holidays that would appear in a complete Hebrew calendar.") - -(defvar all-christian-calendar-holidays nil "\ -*If nil, show only major holidays from the Christian calendar. -This means only those Christian holidays that appear on secular calendars. - -If t, show all the holidays that would appear in a complete Christian -calendar.") - -(defvar all-islamic-calendar-holidays nil "\ -*If nil, show only major holidays from the Islamic calendar. -This means only those Islamic holidays that appear on secular calendars. - -If t, show all the holidays that would appear in a complete Islamic -calendar.") - -(defvar calendar-load-hook nil "\ -*List of functions to be called after the calendar is first loaded. -This is the place to add key bindings to `calendar-mode-map'.") - -(defvar initial-calendar-window-hook nil "\ -*List of functions to be called when the calendar window is first opened. -The functions invoked are called after the calendar window is opened, but -once opened is never called again. Leaving the calendar with the `q' command -and reentering it will cause these functions to be called again.") - -(defvar today-visible-calendar-hook nil "\ -*List of functions called whenever the current date is visible. -This can be used, for example, to replace today's date with asterisks; a -function `calendar-star-date' is included for this purpose: - (setq today-visible-calendar-hook 'calendar-star-date) -It can also be used to mark the current date with `calendar-today-marker'; -a function is also provided for this: - (setq today-visible-calendar-hook 'calendar-mark-today) - -The corresponding variable `today-invisible-calendar-hook' is the list of -functions called when the calendar function was called when the current -date is not visible in the window. - -Other than the use of the provided functions, the changing of any -characters in the calendar buffer by the hooks may cause the failure of the -functions that move by days and weeks.") - -(defvar today-invisible-calendar-hook nil "\ -*List of functions called whenever the current date is not visible. - -The corresponding variable `today-visible-calendar-hook' is the list of -functions called when the calendar function was called when the current -date is visible in the window. - -Other than the use of the provided functions, the changing of any -characters in the calendar buffer by the hooks may cause the failure of the -functions that move by days and weeks.") - -(defvar diary-file "~/diary" "\ -*Name of the file in which one's personal diary of dates is kept. - -The file's entries are lines in any of the forms - - MONTH/DAY - MONTH/DAY/YEAR - MONTHNAME DAY - MONTHNAME DAY, YEAR - DAYNAME - -at the beginning of the line; the remainder of the line is the diary entry -string for that date. MONTH and DAY are one or two digit numbers, YEAR is -a number and may be written in full or abbreviated to the final two digits. -If the date does not contain a year, it is generic and applies to any year. -DAYNAME entries apply to any date on which is on that day of the week. -MONTHNAME and DAYNAME can be spelled in full, abbreviated to three -characters (with or without a period), capitalized or not. Any of DAY, -MONTH, or MONTHNAME, YEAR can be `*' which matches any day, month, or year, -respectively. - -The European style (in which the day precedes the month) can be used -instead, if you execute `european-calendar' when in the calendar, or set -`european-calendar-style' to t in your .emacs file. The European forms are - - DAY/MONTH - DAY/MONTH/YEAR - DAY MONTHNAME - DAY MONTHNAME YEAR - DAYNAME - -To revert to the default American style from the European style, execute -`american-calendar' in the calendar. - -A diary entry can be preceded by the character -`diary-nonmarking-symbol' (ordinarily `&') to make that entry -nonmarking--that is, it will not be marked on dates in the calendar -window but will appear in a diary window. - -Multiline diary entries are made by indenting lines after the first with -either a TAB or one or more spaces. - -Lines not in one the above formats are ignored. Here are some sample diary -entries (in the default American style): - - 12/22/1988 Twentieth wedding anniversary!! - &1/1. Happy New Year! - 10/22 Ruth's birthday. - 21: Payday - Tuesday--weekly meeting with grad students at 10am - Supowit, Shen, Bitner, and Kapoor to attend. - 1/13/89 Friday the thirteenth!! - &thu 4pm squash game with Lloyd. - mar 16 Dad's birthday - April 15, 1989 Income tax due. - &* 15 time cards due. - -If the first line of a diary entry consists only of the date or day name with -no trailing blanks or punctuation, then that line is not displayed in the -diary window; only the continuation lines is shown. For example, the -single diary entry - - 02/11/1989 - Bill Blattner visits Princeton today - 2pm Cognitive Studies Committee meeting - 2:30-5:30 Lizzie at Lawrenceville for `Group Initiative' - 4:00pm Jamie Tappenden - 7:30pm Dinner at George and Ed's for Alan Ryan - 7:30-10:00pm dance at Stewart Country Day School - -will appear in the diary window without the date line at the beginning. This -facility allows the diary window to look neater, but can cause confusion if -used with more than one day's entries displayed. - -Diary entries can be based on Lisp sexps. For example, the diary entry - - %%(diary-block 11 1 1990 11 10 1990) Vacation - -causes the diary entry \"Vacation\" to appear from November 1 through November -10, 1990. Other functions available are `diary-float', `diary-anniversary', -`diary-cyclic', `diary-day-of-year', `diary-iso-date', `diary-french-date', -`diary-hebrew-date', `diary-islamic-date', `diary-mayan-date', -`diary-yahrzeit', `diary-sunrise-sunset', `diary-phases-of-moon', -`diary-parasha', `diary-omer', `diary-rosh-hodesh', and -`diary-sabbath-candles'. See the documentation for the function -`list-sexp-diary-entries' for more details. - -Diary entries based on the Hebrew and/or the Islamic calendar are also -possible, but because these are somewhat slow, they are ignored -unless you set the `nongregorian-diary-listing-hook' and the -`nongregorian-diary-marking-hook' appropriately. See the documentation -for these functions for details. - -Diary files can contain directives to include the contents of other files; for -details, see the documentation for the variable `list-diary-entries-hook'.") - -(defvar diary-nonmarking-symbol "&" "\ -*Symbol indicating that a diary entry is not to be marked in the calendar.") - -(defvar hebrew-diary-entry-symbol "H" "\ -*Symbol indicating a diary entry according to the Hebrew calendar.") - -(defvar islamic-diary-entry-symbol "I" "\ -*Symbol indicating a diary entry according to the Islamic calendar.") - -(defvar diary-include-string "#include" "\ -*The string indicating inclusion of another file of diary entries. -See the documentation for the function `include-other-diary-files'.") - -(defvar sexp-diary-entry-symbol "%%" "\ -*The string used to indicate a sexp diary entry in diary-file. -See the documentation for the function `list-sexp-diary-entries'.") - -(defvar abbreviated-calendar-year t "\ -*Interpret a two-digit year DD in a diary entry as either 19DD or 20DD. -For the Gregorian calendar; similarly for the Hebrew and Islamic calendars. -If this variable is nil, years must be written in full.") - -(defvar european-calendar-style nil "\ -*Use the European style of dates in the diary and in any displays. -If this variable is t, a date 1/2/1990 would be interpreted as February 1, -1990. The accepted European date styles are - - DAY/MONTH - DAY/MONTH/YEAR - DAY MONTHNAME - DAY MONTHNAME YEAR - DAYNAME - -Names can be capitalized or not, written in full, or abbreviated to three -characters with or without a period.") - -(defvar american-date-diary-pattern '((month "/" day "[^/0-9]") (month "/" day "/" year "[^0-9]") (monthname " *" day "[^,0-9]") (monthname " *" day ", *" year "[^0-9]") (dayname "\\W")) "\ -*List of pseudo-patterns describing the American patterns of date used. -See the documentation of `diary-date-forms' for an explanation.") - -(defvar european-date-diary-pattern '((day "/" month "[^/0-9]") (day "/" month "/" year "[^0-9]") (backup day " *" monthname "\\W+\\<[^*0-9]") (day " *" monthname " *" year "[^0-9]") (dayname "\\W")) "\ -*List of pseudo-patterns describing the European patterns of date used. -See the documentation of `diary-date-forms' for an explanation.") - -(defvar european-calendar-display-form '((if dayname (concat dayname ", ")) day " " monthname " " year) "\ -*Pseudo-pattern governing the way a date appears in the European style. -See the documentation of calendar-date-display-form for an explanation.") - -(defvar american-calendar-display-form '((if dayname (concat dayname ", ")) monthname " " day ", " year) "\ -*Pseudo-pattern governing the way a date appears in the American style. -See the documentation of `calendar-date-display-form' for an explanation.") - -(defvar print-diary-entries-hook 'lpr-buffer "\ -*List of functions called after a temporary diary buffer is prepared. -The buffer shows only the diary entries currently visible in the diary -buffer. The default just does the printing. Other uses might include, for -example, rearranging the lines into order by day and time, saving the buffer -instead of deleting it, or changing the function used to do the printing.") - -(defvar list-diary-entries-hook nil "\ -*List of functions called after diary file is culled for relevant entries. -It is to be used for diary entries that are not found in the diary file. - -A function `include-other-diary-files' is provided for use as the value of -this hook. This function enables you to use shared diary files together -with your own. The files included are specified in the diary file by lines -of the form - - #include \"filename\" - -This is recursive; that is, #include directives in files thus included are -obeyed. You can change the \"#include\" to some other string by changing -the variable `diary-include-string'. When you use `include-other-diary-files' -as part of the list-diary-entries-hook, you will probably also want to use the -function `mark-included-diary-files' as part of `mark-diary-entries-hook'. - -For example, you could use - - (setq list-diary-entries-hook - '(include-other-diary-files sort-diary-entries)) - (setq diary-display-hook 'fancy-diary-display) - -in your `.emacs' file to cause the fancy diary buffer to be displayed with -diary entries from various included files, each day's entries sorted into -lexicographic order.") - -(defvar diary-hook nil "\ -*List of functions called after the display of the diary. -Can be used for appointment notification.") - -(defvar diary-display-hook nil "\ -*List of functions that handle the display of the diary. -If nil (the default), `simple-diary-display' is used. Use `ignore' for no -diary display. - -Ordinarily, this just displays the diary buffer (with holidays indicated in -the mode line), if there are any relevant entries. At the time these -functions are called, the variable `diary-entries-list' is a list, in order -by date, of all relevant diary entries in the form of ((MONTH DAY YEAR) -STRING), where string is the diary entry for the given date. This can be -used, for example, a different buffer for display (perhaps combined with -holidays), or produce hard copy output. - -A function `fancy-diary-display' is provided as an alternative -choice for this hook; this function prepares a special noneditable diary -buffer with the relevant diary entries that has neat day-by-day arrangement -with headings. The fancy diary buffer will show the holidays unless the -variable `holidays-in-diary-buffer' is set to nil. Ordinarily, the fancy -diary buffer will not show days for which there are no diary entries, even -if that day is a holiday; if you want such days to be shown in the fancy -diary buffer, set the variable `diary-list-include-blanks' to t.") - -(defvar nongregorian-diary-listing-hook nil "\ -*List of functions called for listing diary file and included files. -As the files are processed for diary entries, these functions are used to cull -relevant entries. You can use either or both of `list-hebrew-diary-entries' -and `list-islamic-diary-entries'. The documentation for these functions -describes the style of such diary entries.") - -(defvar mark-diary-entries-hook nil "\ -*List of functions called after marking diary entries in the calendar. - -A function `mark-included-diary-files' is also provided for use as the -mark-diary-entries-hook; it enables you to use shared diary files together -with your own. The files included are specified in the diary file by lines -of the form - #include \"filename\" -This is recursive; that is, #include directives in files thus included are -obeyed. You can change the \"#include\" to some other string by changing the -variable `diary-include-string'. When you use `mark-included-diary-files' as -part of the mark-diary-entries-hook, you will probably also want to use the -function `include-other-diary-files' as part of `list-diary-entries-hook'.") - -(defvar nongregorian-diary-marking-hook nil "\ -*List of functions called for marking diary file and included files. -As the files are processed for diary entries, these functions are used to cull -relevant entries. You can use either or both of `mark-hebrew-diary-entries' -and `mark-islamic-diary-entries'. The documentation for these functions -describes the style of such diary entries.") - -(defvar diary-list-include-blanks nil "\ -*If nil, do not include days with no diary entry in the list of diary entries. -Such days will then not be shown in the fancy diary buffer, even if they -are holidays.") - -(defvar holidays-in-diary-buffer t "\ -*Non-nil means include holidays in the diary display. -The holidays appear in the mode line of the diary buffer, or in the -fancy diary buffer next to the date. This slows down the diary functions -somewhat; setting it to nil makes the diary display faster.") - -(defvar general-holidays '((holiday-fixed 1 1 "New Year's Day") (holiday-float 1 1 3 "Martin Luther King Day") (holiday-fixed 2 2 "Ground Hog 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 Fool's 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.") - -(put 'general-holidays 'risky-local-variable t) - -(defvar local-holidays nil "\ -*Local holidays. -See the documentation for `calendar-holidays' for details.") - -(put 'local-holidays 'risky-local-variable t) - -(defvar other-holidays nil "\ -*User defined holidays. -See the documentation for `calendar-holidays' for details.") - -(put 'other-holidays 'risky-local-variable t) - -(defvar hebrew-holidays-1 '((holiday-rosh-hashanah-etc) (if all-hebrew-calendar-holidays (holiday-julian 11 (let* ((m displayed-month) (y displayed-year) (year)) (increment-calendar-month m y -1) (let ((year (extract-calendar-year (calendar-julian-from-absolute (calendar-absolute-from-gregorian (list m 1 y)))))) (if (zerop (% (1+ year) 4)) 22 21))) "\"Tal Umatar\" (evening)")))) - -(put 'hebrew-holidays-1 'risky-local-variable t) - -(defvar hebrew-holidays-2 '((if all-hebrew-calendar-holidays (holiday-hanukkah) (holiday-hebrew 9 25 "Hanukkah")) (if all-hebrew-calendar-holidays (holiday-hebrew 10 (let ((h-year (extract-calendar-year (calendar-hebrew-from-absolute (calendar-absolute-from-gregorian (list displayed-month 28 displayed-year)))))) (if (= (% (calendar-absolute-from-hebrew (list 10 10 h-year)) 7) 6) 11 10)) "Tzom Teveth")) (if all-hebrew-calendar-holidays (holiday-hebrew 11 15 "Tu B'Shevat")))) - -(put 'hebrew-holidays-2 'risky-local-variable t) - -(defvar hebrew-holidays-3 '((if all-hebrew-calendar-holidays (holiday-hebrew 11 (let ((m displayed-month) (y displayed-year)) (increment-calendar-month m y 1) (let* ((h-year (extract-calendar-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 (= (% (calendar-absolute-from-hebrew (list 7 1 h-year)) 7) 6) (calendar-dayname-on-or-before 6 (calendar-absolute-from-hebrew (list 11 17 h-year))) (calendar-dayname-on-or-before 6 (calendar-absolute-from-hebrew (list 11 16 h-year)))))) (day (extract-calendar-day s-s))) day)) "Shabbat Shirah")))) - -(put 'hebrew-holidays-3 'risky-local-variable t) - -(defvar hebrew-holidays-4 '((holiday-passover-etc) (if (and all-hebrew-calendar-holidays (let* ((m displayed-month) (y displayed-year) (year)) (increment-calendar-month m y -1) (let ((year (extract-calendar-year (calendar-julian-from-absolute (calendar-absolute-from-gregorian (list m 1 y)))))) (= 21 (% year 28))))) (holiday-julian 3 26 "Kiddush HaHamah")) (if all-hebrew-calendar-holidays (holiday-tisha-b-av-etc)))) - -(put 'hebrew-holidays-4 'risky-local-variable t) - -(defvar hebrew-holidays (append hebrew-holidays-1 hebrew-holidays-2 hebrew-holidays-3 hebrew-holidays-4) "\ -*Jewish holidays. -See the documentation for `calendar-holidays' for details.") - -(put 'hebrew-holidays 'risky-local-variable t) - -(defvar christian-holidays '((if all-christian-calendar-holidays (holiday-fixed 1 6 "Epiphany")) (holiday-easter-etc) (if all-christian-calendar-holidays (holiday-greek-orthodox-easter)) (if all-christian-calendar-holidays (holiday-fixed 8 15 "Assumption")) (if all-christian-calendar-holidays (holiday-advent)) (holiday-fixed 12 25 "Christmas") (if all-christian-calendar-holidays (holiday-julian 12 25 "Eastern Orthodox Christmas"))) "\ -*Christian holidays. -See the documentation for `calendar-holidays' for details.") - -(put 'christian-holidays 'risky-local-variable t) - -(defvar islamic-holidays '((holiday-islamic 1 1 (format "Islamic New Year %d" (let ((m displayed-month) (y displayed-year)) (increment-calendar-month m y 1) (extract-calendar-year (calendar-islamic-from-absolute (calendar-absolute-from-gregorian (list m (calendar-last-day-of-month m y) y))))))) (if all-islamic-calendar-holidays (holiday-islamic 1 10 "Ashura")) (if all-islamic-calendar-holidays (holiday-islamic 3 12 "Mulad-al-Nabi")) (if all-islamic-calendar-holidays (holiday-islamic 7 26 "Shab-e-Mi'raj")) (if all-islamic-calendar-holidays (holiday-islamic 8 15 "Shab-e-Bara't")) (holiday-islamic 9 1 "Ramadan Begins") (if all-islamic-calendar-holidays (holiday-islamic 9 27 "Shab-e Qadr")) (if all-islamic-calendar-holidays (holiday-islamic 10 1 "Id-al-Fitr")) (if all-islamic-calendar-holidays (holiday-islamic 12 10 "Id-al-Adha"))) "\ -*Islamic holidays. -See the documentation for `calendar-holidays' for details.") - -(put 'islamic-holidays 'risky-local-variable t) - -(defvar solar-holidays '((if (fboundp 'atan) (solar-equinoxes-solstices)) (if (progn (require 'cal-dst) t) (funcall 'holiday-sexp calendar-daylight-savings-starts '(format "Daylight Savings Time Begins %s" (if (fboundp 'atan) (solar-time-string (/ calendar-daylight-savings-starts-time (float 60)) calendar-standard-time-zone-name) "")))) (funcall 'holiday-sexp calendar-daylight-savings-ends '(format "Daylight Savings Time Ends %s" (if (fboundp 'atan) (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.") - -(put 'solar-holidays 'risky-local-variable t) - -(defvar calendar-holidays (append general-holidays local-holidays other-holidays christian-holidays hebrew-holidays islamic-holidays solar-holidays) "\ -*List of notable days for the command M-x holidays. - -Additional holidays are easy to add to the list, just put them in the list -`other-holidays' in your .emacs file. Similarly, by setting any of -`general-holidays', `local-holidays' `christian-holidays', `hebrew-holidays', -`islamic-holidays', or `solar-holidays' to nil in your .emacs file, you can -eliminate unwanted categories of holidays. The intention is that (in the US) -`local-holidays' be set in site-init.el and `other-holidays' be set by the -user. - -Entries on the list are expressions that return (possibly empty) lists of -items of the form ((month day year) string) of a holiday in the in the -three-month period centered around `displayed-month' of `displayed-year'. -Several basic functions are provided for this purpose: - - (holiday-fixed MONTH DAY STRING) is a fixed date on the Gregorian calendar - (holiday-float MONTH DAYNAME K STRING &optional day) is the Kth DAYNAME in - MONTH on the Gregorian calendar (0 for Sunday, - etc.); K<0 means count back from the end of the - month. An optional parameter DAY means the Kth - DAYNAME after/before MONTH DAY. - (holiday-hebrew MONTH DAY STRING) a fixed date on the Hebrew calendar - (holiday-islamic MONTH DAY STRING) a fixed date on the Islamic calendar - (holiday-julian MONTH DAY STRING) a fixed date on the Julian calendar - (holiday-sexp SEXP STRING) SEXP is a Gregorian-date-valued expression - in the variable `year'; if it evaluates to - a visible date, that's the holiday; if it - evaluates to nil, there's no holiday. STRING - is an expression in the variable `date'. - -For example, to add Bastille Day, celebrated in France on July 14, add - - (holiday-fixed 7 14 \"Bastille Day\") - -to the list. To add Hurricane Supplication Day, celebrated in the Virgin -Islands on the fourth Monday in August, add - - (holiday-float 8 1 4 \"Hurricane Supplication Day\") - -to the list (the last Monday would be specified with `-1' instead of `4'). -To add the last day of Hanukkah to the list, use - - (holiday-hebrew 10 2 \"Last day of Hanukkah\") - -since the Hebrew months are numbered with 1 starting from Nisan, while to -add the Islamic feast celebrating Mohammed's birthday use - - (holiday-islamic 3 12 \"Mohammed's Birthday\") - -since the Islamic months are numbered from 1 starting with Muharram. To -add Thomas Jefferson's birthday, April 2, 1743 (Julian), use - - (holiday-julian 4 2 \"Jefferson's Birthday\") - -To include a holiday conditionally, use the sexp form or a conditional. For -example, to include American presidential elections, which occur on the first -Tuesday after the first Monday in November of years divisible by 4, add - - (holiday-sexp - (if (zerop (% year 4)) - (calendar-gregorian-from-absolute - (1+ (calendar-dayname-on-or-before - 1 (+ 6 (calendar-absolute-from-gregorian - (list 11 1 year))))))) - \"US Presidential Election\") - -or - - (if (zerop (% displayed-year 4)) - (holiday-fixed 11 - (extract-calendar-day - (calendar-gregorian-from-absolute - (1+ (calendar-dayname-on-or-before - 1 (+ 6 (calendar-absolute-from-gregorian - (list 11 1 displayed-year))))))) - \"US Presidential Election\")) - -to the list. To include the phases of the moon, add - - (lunar-phases) - -to the holiday list, where `lunar-phases' is an Emacs-Lisp function that -you've written to return a (possibly empty) list of the relevant VISIBLE dates -with descriptive strings such as - - (((2 6 1989) \"New Moon\") ((2 12 1989) \"First Quarter Moon\") ... ).") - -(put 'calendar-holidays 'risky-local-variable t) - -(autoload 'calendar "calendar" "\ -Display a three-month calendar in another window. -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 called with an optional prefix argument, prompts for month and year. - -This function is suitable for execution in a .emacs file; appropriate setting -of the variable `view-diary-entries-initially' will cause the diary entries for -the current date to be displayed in another window. The value of the variable -`number-of-diary-entries' controls the number of days of diary entries -displayed upon initial display of the calendar. - -An optional prefix argument ARG causes the calendar displayed to be ARG -months in the future if ARG is positive or in the past if ARG is negative; -in this case the cursor goes on the first day of the month. - -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. The window is replotted as -necessary to display the desired date. - -Diary entries can be marked on the calendar or displayed in another window. - -Use M-x describe-mode for details of the key bindings in the calendar window. - -The Gregorian calendar is assumed. - -After loading the calendar, the hooks given by the variable -`calendar-load-hook' are run. This is the place to add key bindings to the -calendar-mode-map. - -After preparing the calendar window initially, the hooks given by the variable -`initial-calendar-window-hook' are run. - -The hooks given by the variable `today-visible-calendar-hook' are run -everytime the calendar window gets scrolled, if the current date is visible -in the window. If it is not visible, the hooks given by the variable -`today-invisible-calendar-hook' are run. Thus, for example, setting -`today-visible-calendar-hook' to 'calendar-star-date will cause today's date -to be replaced by asterisks to highlight it whenever it is in the window." t nil) - -(autoload 'list-yahrzeit-dates "calendar" "\ -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." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "diary-ins" "calendar/diary-ins.el" (12984 29531)) -;;; Generated autoloads from calendar/diary-ins.el - -;;;### (autoloads (diary) "diary-lib" "calendar/diary-lib.el" (12984 29531)) -;;; 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 `number-of-diary-entries'. This function is suitable for -execution in a `.emacs' file." t nil) - -;;;*** - -;;;### (autoloads (holidays) "holidays" "calendar/holidays.el" (12984 29530)) -;;; Generated autoloads from calendar/holidays.el - -(autoload 'holidays "holidays" "\ -Display the holidays for last month, this month, and next month. -If called with an optional prefix argument, prompts for month and year. - -This function is suitable for execution in a .emacs file." t nil) - -;;;*** - -;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (12984 29530)) -;;; Generated autoloads from calendar/lunar.el - -(autoload 'phases-of-moon "lunar" "\ -Display the quarters of the moon for last month, this month, and next month. -If called with an optional prefix argument, prompts for month and year. - -This function is suitable for execution in a .emacs file." t nil) - -;;;*** - -;;;### (autoloads (solar-equinoxes-solstices sunrise-sunset) "solar" "calendar/solar.el" (12984 29531)) -;;; Generated autoloads from calendar/solar.el - -(defvar calendar-time-display-form '(12-hours ":" minutes am-pm (if time-zone " (") time-zone (if time-zone ")")) "\ -*The pseudo-pattern that governs the way a time of day is formatted. - -A pseudo-pattern is a list of expressions that can involve the keywords -`12-hours', `24-hours', and `minutes', all numbers in string form, -and `am-pm' and `time-zone', both alphabetic strings. - -For example, the form - - '(24-hours \":\" minutes - (if time-zone \" (\") time-zone (if time-zone \")\")) - -would give military-style times like `21:07 (UTC)'.") - -(defvar calendar-latitude nil "\ -*Latitude of `calendar-location-name' in degrees. - -The value can be either a decimal fraction (one place of accuracy is -sufficient), + north, - south, such as 40.7 for New York City, or the value -can be a vector [degrees minutes north/south] such as [40 50 north] for New -York City. - -This variable should be set in site-local.el.") - -(defvar calendar-longitude nil "\ -*Longitude of `calendar-location-name' in degrees. - -The value can be either a decimal fraction (one place of accuracy is -sufficient), + east, - west, such as -73.9 for New York City, or the value -can be a vector [degrees minutes east/west] such as [73 55 west] for New -York City. - -This variable should be set in site-local.el.") - -(defvar calendar-location-name '(let ((float-output-format "%.1f")) (format "%s%s, %s%s" (if (numberp calendar-latitude) (abs calendar-latitude) (+ (aref calendar-latitude 0) (/ (aref calendar-latitude 1) 60.0))) (if (numberp calendar-latitude) (if (> calendar-latitude 0) "N" "S") (if (equal (aref calendar-latitude 2) 'north) "N" "S")) (if (numberp calendar-longitude) (abs calendar-longitude) (+ (aref calendar-longitude 0) (/ (aref calendar-longitude 1) 60.0))) (if (numberp calendar-longitude) (if (> calendar-longitude 0) "E" "W") (if (equal (aref calendar-latitude 2) 'east) "E" "W")))) "\ -*Expression evaluating to name of `calendar-longitude', calendar-latitude'. -For example, \"New York City\". Default value is just the latitude, longitude -pair. - -This variable should be set in site-local.el.") - -(autoload 'sunrise-sunset "solar" "\ -Local time of sunrise and sunset for today. Accurate to +/- 2 minutes. -If called with an optional prefix argument, 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 a .emacs file." t nil) - -(autoload 'solar-equinoxes-solstices "solar" "\ -Date and time of equinoxes and solstices, if visible in the calendar window. -Requires floating point." nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "cl-autoload" "cl/cl-autoload.el" (12984 29592)) -;;; Generated autoloads from cl/cl-autoload.el - -;;;*** - -;;;### (autoloads nil "cl-compat" "cl/cl-compat.el" (12984 29591)) -;;; Generated autoloads from cl/cl-compat.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "cl-defs" "cl/cl-defs.el" (12984 29592)) -;;; Generated autoloads from cl/cl-defs.el - -;;;*** - -;;;### (autoloads nil "cl-extra" "cl/cl-extra.el" (12984 29591)) -;;; Generated autoloads from cl/cl-extra.el - -;;;*** - -;;;### (autoloads nil "cl-macs" "cl/cl-macs.el" (12984 29591)) -;;; Generated autoloads from cl/cl-macs.el - -;;;*** - -;;;### (autoloads nil "cl-seq" "cl/cl-seq.el" (12984 29592)) -;;; Generated autoloads from cl/cl-seq.el - -;;;*** - -;;;### (autoloads nil "cl" "cl/cl.el" (12984 29591)) -;;; Generated autoloads from cl/cl.el - -;;;*** - -;;;### (autoloads nil "background" "comint/background.el" (12984 29968)) -;;; Generated autoloads from comint/background.el - -;;;*** - -;;;### (autoloads (comint-dynamic-list-completions comint-dynamic-complete comint-run make-comint) "comint" "comint/comint.el" (12984 29531)) -;;; Generated autoloads from comint/comint.el - -(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-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 to send the contents of to the process. - -If PROGRAM is a string, any more args are arguments to PROGRAM." 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'." t nil) - -(autoload 'comint-dynamic-complete "comint" "\ -Dynamically perform completion at point. -Calls the functions in `comint-dynamic-complete-functions' to perform -completion until a function returns non-nil, at which point completion is -assumed to have occurred." t nil) - -(autoload 'comint-dynamic-list-completions "comint" "\ -List in help buffer sorted COMPLETIONS. -Typing SPC flushes the help buffer." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "dbx" "comint/dbx.el" (12984 29968)) -;;; Generated autoloads from comint/dbx.el - -;;;### (autoloads (gdb) "gdb" "comint/gdb.el" (12984 29968)) -;;; Generated autoloads from comint/gdb.el - -(defvar gdb-command-name "gdb" "\ -Pathname for executing gdb.") - -(autoload 'gdb "gdb" "\ -Run gdb on program FILE in buffer *gdb-FILE*. -The directory containing FILE becomes the initial working directory -and source-file directory for GDB. If you wish to change this, use -the GDB commands `cd DIR' and `directory'." t nil) - -;;;*** - -;;;### (autoloads (gdbsrc) "gdbsrc" "comint/gdbsrc.el" (12984 29532)) -;;; Generated autoloads from comint/gdbsrc.el - -(autoload 'gdbsrc "gdbsrc" "\ -Activates a gdb session with gdbsrc-mode turned on. A numeric prefix -argument can be used to specify a running process to attach, and a non-numeric -prefix argument will cause you to be prompted for a core file to debug." t nil) - -;;;*** - -;;;### (autoloads (perldb xdb dbx sdb) "gud" "comint/gud.el" (12984 29532)) -;;; Generated autoloads from comint/gud.el - -(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." 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." 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." 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." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "history" "comint/history.el" (12984 29969)) -;;; Generated autoloads from comint/history.el - -;;;### (autoloads nil "inf-lisp" "comint/inf-lisp.el" (12984 29532)) -;;; Generated autoloads from comint/inf-lisp.el - -(add-hook 'same-window-buffer-names "*inferior-lisp*") - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "kermit" "comint/kermit.el" (12984 29532)) -;;; Generated autoloads from comint/kermit.el - -;;;### (autoloads (rlogin) "rlogin" "comint/rlogin.el" (12984 29532)) -;;; Generated autoloads from comint/rlogin.el - -(add-hook 'same-window-regexps "^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)") - -(autoload 'rlogin "rlogin" "\ -Open a network login connection to HOST via the `rlogin' program. -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 is a string or -buffer, it names 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." t nil) - -;;;*** - -;;;### (autoloads (shell) "shell" "comint/shell.el" (12984 29531)) -;;; Generated autoloads from comint/shell.el - -(defvar shell-prompt-pattern (purecopy "^[^#$%>\n]*[#$%>] *") "\ -Regexp to match prompts in the inferior shell. -Defaults to \"^[^#$%>\\n]*[#$%>] *\", which works pretty well. -This variable is used to initialise `comint-prompt-regexp' in the -shell buffer. - -The pattern should probably not match more than one line. If it does, -shell-mode may become confused trying to distinguish prompt from input -on lines which don't start with a prompt. - -This is a fine thing to set in your `.emacs' file.") - -(autoload 'shell "shell" "\ -Run an inferior shell, with I/O through buffer *shell*. -If buffer exists but shell process is not running, make new shell. -If buffer exists and shell process is running, - just switch to buffer `*shell*'. -Program used comes from variable `explicit-shell-file-name', - or (if that is nil) from the ESHELL environment variable, - or else from SHELL if there is no ESHELL. -If a file `~/.emacs_SHELLNAME' exists, it is given as initial input - (Note that this may lose 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'. - -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.)" t nil) - -(add-hook 'same-window-buffer-names "*shell*") - -;;;*** - -;;;### (autoloads (rsh telnet) "telnet" "comint/telnet.el" (12988 19660)) -;;; Generated autoloads from comint/telnet.el - -(add-hook 'same-window-regexps "\\*telnet-.*\\*\\(\\|<[0-9]+>\\)") - -(autoload 'telnet "telnet" "\ -Open a network login connection to host named HOST (a string). -With a prefix argument, prompts for the port name or number as well. -Communication with HOST is recorded in a buffer `*HOST-telnet*'. -Normally input is edited in Emacs and sent a line at a time. -See also `\\[rsh]'." t nil) - -(add-hook 'same-window-regexps "\\*rsh-[^-]*\\*\\(\\|<[0-9]*>\\)") - -(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. -See also `\\[telnet]'." t nil) - -;;;*** - -;;;### (autoloads (ange-ftp-hook-function) "ange-ftp" "dired/ange-ftp.el" (12995 25439)) -;;; Generated autoloads from dired/ange-ftp.el - -(defvar ange-ftp-path-format '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*\\):\\(.*\\)" 3 2 4) "\ -*Format of a fully expanded remote pathname. This is a cons -\(REGEXP . (HOST USER PATH)), where REGEXP is a regular expression matching -the full remote pathname, and HOST, USER, and PATH are the numbers of -parenthesized expressions in REGEXP for the components (in that order).") - -(autoload 'ange-ftp-hook-function "ange-ftp" nil nil nil) - -(or (assoc (car ange-ftp-path-format) file-name-handler-alist) (setq file-name-handler-alist (cons (cons (car ange-ftp-path-format) 'ange-ftp-hook-function) file-name-handler-alist))) - -;;;*** - -;;;*** - -;;;### (autoloads nil "default-dir" "dired/default-dir.el" (12995 3076)) -;;; Generated autoloads from dired/default-dir.el - -(defvar default-directory-function nil "\ -A function to call to compute the default-directory for the current buffer. -If this is nil, the function default-directory will return the value of the -variable default-directory. -Buffer local.") - -;;;*** - -;;;*** - -;;;### (autoloads nil "dired-cd" "dired/dired-cd.el" (12995 25439)) -;;; Generated autoloads from dired/dired-cd.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads (dired-make-permissions-interactive) "dired-chmod" "dired/dired-chmod.el" (12995 25439)) -;;; Generated autoloads from dired/dired-chmod.el - -(autoload 'dired-make-permissions-interactive "dired-chmod" nil nil nil) - -;;;*** - -;;;### (autoloads nil "dired-cmpr" "dired/dired-cmpr.el" (12995 3082)) -;;; Generated autoloads from dired/dired-cmpr.el - -;;;*** - -;;;### (autoloads (dired-cwd-make-magic) "dired-cwd" "dired/dired-cwd.el" (12995 25439)) -;;; Generated autoloads from dired/dired-cwd.el - -(autoload 'dired-cwd-make-magic "dired-cwd" "\ -Modify COMMAND so that it's working directory is the current dired directory. -This works by binding `default-directory' to `(default-directory)'s value. -See also function `default-directory'." t nil) - -;;;*** - -;;;### (autoloads nil "dired-diff" "dired/dired-diff.el" (12995 3082)) -;;; Generated autoloads from dired/dired-diff.el - -;;;*** - -;;;### (autoloads nil "dired-fsf" "dired/dired-fsf.el" (12995 3082)) -;;; Generated autoloads from dired/dired-fsf.el - -;;;*** - -;;;### (autoloads nil "dired-grep" "dired/dired-grep.el" (12995 3082)) -;;; Generated autoloads from dired/dired-grep.el - -;;;*** - -;;;### (autoloads nil "dired-guess" "dired/dired-guess.el" (12995 25439)) -;;; Generated autoloads from dired/dired-guess.el - -;;;*** - -;;;### (autoloads nil "dired-help" "dired/dired-help.el" (12995 3082)) -;;; Generated autoloads from dired/dired-help.el - -;;;*** - -;;;### (autoloads nil "dired-link" "dired/dired-link.el" (12995 25439)) -;;; Generated autoloads from dired/dired-link.el - -;;;*** - -;;;### (autoloads nil "dired-lisp" "dired/dired-lisp.el" (12995 25439)) -;;; Generated autoloads from dired/dired-lisp.el - -;;;*** - -;;;### (autoloads nil "dired-mob" "dired/dired-mob.el" (12995 3082)) -;;; Generated autoloads from dired/dired-mob.el - -;;;*** - -;;;### (autoloads nil "dired-mule" "dired/dired-mule.el" (12995 3082)) -;;; Generated autoloads from dired/dired-mule.el - -;;;*** - -;;;### (autoloads nil "dired-nstd" "dired/dired-nstd.el" (12995 25439)) -;;; Generated autoloads from dired/dired-nstd.el - -;;;*** - -;;;### (autoloads nil "dired-oas" "dired/dired-oas.el" (12995 3082)) -;;; Generated autoloads from dired/dired-oas.el - -;;;*** - -;;;### (autoloads nil "dired-rgxp" "dired/dired-rgxp.el" (12995 3082)) -;;; Generated autoloads from dired/dired-rgxp.el - -;;;*** - -;;;### (autoloads nil "dired-sex" "dired/dired-sex.el" (12995 3082)) -;;; Generated autoloads from dired/dired-sex.el - -;;;*** - -;;;### (autoloads nil "dired-trns" "dired/dired-trns.el" (12995 25440)) -;;; Generated autoloads from dired/dired-trns.el - -;;;*** - -;;;### (autoloads nil "dired-uu" "dired/dired-uu.el" (12995 3082)) -;;; Generated autoloads from dired/dired-uu.el - -;;;*** - -;;;### (autoloads nil "dired-vir" "dired/dired-vir.el" (12995 3082)) -;;; Generated autoloads from dired/dired-vir.el - -;;;*** - -;;;### (autoloads nil "dired-vms" "dired/dired-vms.el" (12995 25440)) -;;; Generated autoloads from dired/dired-vms.el - -;;;*** - -;;;### (autoloads nil "dired-xemacs-highlight" "dired/dired-xemacs-highlight.el" (12995 25440)) -;;; Generated autoloads from dired/dired-xemacs-highlight.el - -;;;### (autoloads (dired-do-rename-list dired-do-rename-numeric) "dired-num" "dired/dired-num.el" (12995 25439)) -;;; Generated autoloads from dired/dired-num.el - -(autoload 'dired-do-rename-numeric "dired-num" "\ -Rename all marked (or next ARG) files using numbers. -You are prompted for a format string, e.g \"part_%d_of_8\", and a starting -number, e.g. 1. If there are 8 marked files, this example will rename them to - - part_1_of_8 - part_2_of_8 - ... - part_8_of_8" t nil) - -(autoload 'dired-do-rename-list "dired-num" "\ -Rename all marked (or next ARG) files using elements from LIST. -You are prompted for a format string, e.g \"x_%s\", and the list, -e.g. '(foo bar zod). This example will rename the marked files to - - x_foo - x_bar - x_zod - -It is an error if LIST has not as many elements as there are files." t nil) - -;;;*** - -;;;### (autoloads (dired-rcs-mark-rcs-files dired-rcs-mark-rcs-locked-files) "dired-rcs" "dired/dired-rcs.el" (12995 25439)) -;;; Generated autoloads from dired/dired-rcs.el - -(autoload 'dired-rcs-mark-rcs-locked-files "dired-rcs" "\ -Mark all files that are under RCS control and RCS-locked. -With prefix argument, unflag all those files. -Mentions RCS files for which a working file was not found in this buffer. -Type \\[dired-why] to see them again." t nil) - -(autoload 'dired-rcs-mark-rcs-files "dired-rcs" "\ -Mark all files that are under RCS control. -With prefix argument, unflag all those files. -Mentions RCS files for which a working file was not found in this buffer. -Type \\[dired-why] to see them again." t nil) - -;;;*** - -;;;### (autoloads (dired-extra-startup) "dired-x" "dired/dired-x.el" (12995 25440)) -;;; Generated autoloads from dired/dired-x.el - -(autoload 'dired-extra-startup "dired-x" "\ -Automatically put on dired-mode-hook to get extra dired features: -\\<dired-mode-map> - \\[dired-vm] -- VM on folder - \\[dired-rmail] -- Rmail on folder - \\[dired-do-insert-subdir] -- insert all marked subdirs - \\[dired-do-find-file] -- visit all marked files simultaneously - \\[dired-set-marker-char], \\[dired-restore-marker-char] -- change and display dired-marker-char dynamically. - \\[dired-omit-toggle] -- toggle omitting of files - \\[dired-mark-sexp] -- mark by lisp expression - \\[dired-do-unmark] -- replace existing marker with another. - \\[dired-mark-rcs-files] -- mark all RCS controlled files - \\[dired-mark-files-compilation-buffer] -- mark compilation files - \\[dired-copy-filename-as-kill] -- copy the file or subdir names into the kill ring. - You can feed it to other commands using \\[yank]. - -For more features, see variables - - dired-omit-files - dired-omit-extenstions - dired-dangerous-shell-command - dired-mark-keys - dired-local-variables-file - dired-find-subdir - dired-guess-have-gnutar - dired-auto-shell-command-alist - -See also functions - - dired-sort-on-size - dired-do-relsymlink - dired-flag-extension - dired-virtual - dired-jump-back - dired-jump-back-other-window -" t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "dired-xemacs-menu" "dired/dired-xemacs-menu.el" (12995 25440)) -;;; Generated autoloads from dired/dired-xemacs-menu.el - -;;;### (autoloads nil "dired-xemacs" "dired/dired-xemacs.el" (12995 3082)) -;;; Generated autoloads from dired/dired-xemacs.el - -;;;*** - -;;;### (autoloads nil "dired-xy" "dired/dired-xy.el" (12995 3082)) -;;; Generated autoloads from dired/dired-xy.el - -;;;### (autoloads (dired-noselect dired-other-frame dired-other-window dired) "dired" "dired/dired.el" (12995 25440)) -;;; Generated autoloads from dired/dired.el - -(defvar dired-listing-switches (purecopy "-al") "\ -*Switches passed to ls for dired. MUST contain the `l' option. -Can contain even `F', `b', `i' and `s'.") - -(defvar dired-chown-program (purecopy (if (memq system-type '(dgux-unix hpux usg-unix-v silicon-graphics-unix irix)) "chown" "/etc/chown")) "\ -*Name of chown command (usully `chown' or `/etc/chown').") - -(defvar dired-ls-program (purecopy "ls") "\ -*Absolute or relative name of the ls program used by dired.") - -(defvar dired-ls-F-marks-symlinks t "\ -*Informs dired about how ls -lF marks symbolic links. -Set this to t if `dired-ls-program' with -lF marks the symbolic link -itself with a trailing @ (usually the case under Ultrix). - -Example: if `ln -s foo bar; ls -F bar' gives `bar -> foo', set it to -nil, if it gives `bar@ -> foo', set it to t. - -Dired checks if there is really a @ appended. Thus, if you have a -marking ls program on one host and a non-marking on another host, and -don't care about symbolic links which really end in a @, you can -always set this variable to t.") - -(defvar dired-trivial-filenames (purecopy "^\\.\\.?$\\|^#") "\ -*Regexp of files to skip when moving point to the first file of a new directory listing. -Nil means move to the subdir line, t means move to first file.") - -(defvar dired-keep-marker-move t "\ -If t, moved marked files are marked if their originals were. -If a character, those files (marked or not) are marked with that character.") - -(defvar dired-keep-marker-copy ?C "\ -If t, copied files are marked if their source files were. -If a character, those files are always marked with that character.") - -(defvar dired-keep-marker-hardlink ?H "\ -If t, hard-linked files are marked if the linked-to files were. -If a character, those files are always marked with that character.") - -(defvar dired-keep-marker-symlink ?Y "\ -If t, symlinked marked files are marked if the linked-to files were. -If a character, those files are always marked with that character.") - -(defvar dired-dwim-target nil "\ -*If non-nil, dired tries to guess a default target directory: -If there is a dired buffer displayed in the next window, use -its current subdir, instead of the current subdir of this dired -buffer. - -The target is used in the prompt for file copy, move etc.") - -(defvar dired-copy-preserve-time nil "\ -*If non-nil, Dired preserves the last-modified time in a file copy. -\(This works on only some systems.)\\<dired-mode-map> -Use `\\[dired-do-copy]' with a zero prefix argument to toggle its value.") - -(define-key ctl-x-map "d" 'dired) - -(autoload 'dired "dired" "\ -\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it. -With an optional prefix argument you can specify the ls SWITCHES that are used. -Dired displays a list of files in DIRNAME (which may also have - shell wildcards appended to select certain files). -You can move around in it with the usual commands. -You can flag files for deletion with \\<dired-mode-map>\\[dired-flag-file-deleted] and then delete them by - typing \\[dired-do-deletions]. -Type \\[describe-mode] after entering dired for more info. - -If DIRNAME is already in a dired buffer, that buffer is used without refresh." 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." 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." t nil) - -(autoload 'dired-noselect "dired" "\ -Like `dired' but returns the dired buffer as value, does not select it." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "efs-18" "dired/efs-18.el" (12995 3098)) -;;; Generated autoloads from dired/efs-18.el - -;;;*** - -;;;### (autoloads nil "efs-19.23" "dired/efs-19.23.el" (12995 3098)) -;;; Generated autoloads from dired/efs-19.23.el - -;;;*** - -;;;### (autoloads nil "efs-19" "dired/efs-19.el" (12995 3098)) -;;; Generated autoloads from dired/efs-19.el - -;;;*** - -;;;### (autoloads nil "efs-auto" "dired/efs-auto.el" (12995 3098)) -;;; Generated autoloads from dired/efs-auto.el - -;;;*** - -;;;### (autoloads nil "efs-cms-knet" "dired/efs-cms-knet.el" (12995 3098)) -;;; Generated autoloads from dired/efs-cms-knet.el - -;;;*** - -;;;### (autoloads nil "efs-cms" "dired/efs-cms.el" (12995 3098)) -;;; Generated autoloads from dired/efs-cms.el - -;;;*** - -;;;### (autoloads nil "efs-coke" "dired/efs-coke.el" (12995 3098)) -;;; Generated autoloads from dired/efs-coke.el - -;;;*** - -;;;### (autoloads nil "efs-cp-p" "dired/efs-cp-p.el" (12995 3098)) -;;; Generated autoloads from dired/efs-cp-p.el - -;;;*** - -;;;### (autoloads nil "efs-cu" "dired/efs-cu.el" (12995 3098)) -;;; Generated autoloads from dired/efs-cu.el - -;;;*** - -;;;### (autoloads nil "efs-defun" "dired/efs-defun.el" (12995 3098)) -;;; Generated autoloads from dired/efs-defun.el - -;;;*** - -;;;### (autoloads nil "efs-dired-mule" "dired/efs-dired-mule.el" (12995 3098)) -;;; Generated autoloads from dired/efs-dired-mule.el - -;;;*** - -;;;### (autoloads nil "efs-dired" "dired/efs-dired.el" (12995 3099)) -;;; Generated autoloads from dired/efs-dired.el - -;;;*** - -;;;### (autoloads nil "efs-dl" "dired/efs-dl.el" (12995 3099)) -;;; Generated autoloads from dired/efs-dl.el - -;;;*** - -;;;### (autoloads nil "efs-dos-distinct" "dired/efs-dos-distinct.el" (12995 3099)) -;;; Generated autoloads from dired/efs-dos-distinct.el - -;;;*** - -;;;### (autoloads nil "efs-fnh" "dired/efs-fnh.el" (12995 3099)) -;;; Generated autoloads from dired/efs-fnh.el - -;;;*** - -;;;### (autoloads nil "efs-guardian" "dired/efs-guardian.el" (12995 3099)) -;;; Generated autoloads from dired/efs-guardian.el - -;;;*** - -;;;### (autoloads nil "efs-gwp" "dired/efs-gwp.el" (12995 3099)) -;;; Generated autoloads from dired/efs-gwp.el - -;;;*** - -;;;### (autoloads nil "efs-hell" "dired/efs-hell.el" (12995 3099)) -;;; Generated autoloads from dired/efs-hell.el - -;;;*** - -;;;### (autoloads nil "efs-ka9q" "dired/efs-ka9q.el" (12995 3099)) -;;; Generated autoloads from dired/efs-ka9q.el - -;;;*** - -;;;### (autoloads nil "efs-l19.10" "dired/efs-l19.10.el" (12995 3099)) -;;; Generated autoloads from dired/efs-l19.10.el - -;;;*** - -;;;### (autoloads nil "efs-l19.11" "dired/efs-l19.11.el" (12995 3099)) -;;; Generated autoloads from dired/efs-l19.11.el - -;;;*** - -;;;### (autoloads nil "efs-l19.6" "dired/efs-l19.6.el" (12995 3099)) -;;; Generated autoloads from dired/efs-l19.6.el - -;;;*** - -;;;### (autoloads nil "efs-l19.8" "dired/efs-l19.8.el" (12995 3099)) -;;; Generated autoloads from dired/efs-l19.8.el - -;;;*** - -;;;### (autoloads nil "efs-mpe" "dired/efs-mpe.el" (12995 3099)) -;;; Generated autoloads from dired/efs-mpe.el - -;;;*** - -;;;### (autoloads nil "efs-ms-unix" "dired/efs-ms-unix.el" (12995 3099)) -;;; Generated autoloads from dired/efs-ms-unix.el - -;;;*** - -;;;### (autoloads nil "efs-mts" "dired/efs-mts.el" (12995 3099)) -;;; Generated autoloads from dired/efs-mts.el - -;;;*** - -;;;### (autoloads nil "efs-mvs" "dired/efs-mvs.el" (12995 3099)) -;;; Generated autoloads from dired/efs-mvs.el - -;;;*** - -;;;### (autoloads nil "efs-netrc" "dired/efs-netrc.el" (12995 3099)) -;;; Generated autoloads from dired/efs-netrc.el - -;;;*** - -;;;### (autoloads nil "efs-netware" "dired/efs-netware.el" (12995 3099)) -;;; Generated autoloads from dired/efs-netware.el - -;;;*** - -;;;### (autoloads nil "efs-nos-ve" "dired/efs-nos-ve.el" (12995 3099)) -;;; Generated autoloads from dired/efs-nos-ve.el - -;;;*** - -;;;### (autoloads nil "efs-ovwrt" "dired/efs-ovwrt.el" (12995 3099)) -;;; Generated autoloads from dired/efs-ovwrt.el - -;;;*** - -;;;### (autoloads nil "efs-pc" "dired/efs-pc.el" (12995 3099)) -;;; Generated autoloads from dired/efs-pc.el - -;;;*** - -;;;### (autoloads nil "efs-plan9" "dired/efs-plan9.el" (12995 3099)) -;;; Generated autoloads from dired/efs-plan9.el - -;;;*** - -;;;### (autoloads nil "efs-report" "dired/efs-report.el" (12995 3099)) -;;; Generated autoloads from dired/efs-report.el - -;;;*** - -;;;### (autoloads nil "efs-ti-explorer" "dired/efs-ti-explorer.el" (12995 3099)) -;;; Generated autoloads from dired/efs-ti-explorer.el - -;;;*** - -;;;### (autoloads nil "efs-ti-twenex" "dired/efs-ti-twenex.el" (12995 3099)) -;;; Generated autoloads from dired/efs-ti-twenex.el - -;;;*** - -;;;### (autoloads nil "efs-tops-20" "dired/efs-tops-20.el" (12995 3099)) -;;; Generated autoloads from dired/efs-tops-20.el - -;;;*** - -;;;### (autoloads nil "efs-vm" "dired/efs-vm.el" (12995 3099)) -;;; Generated autoloads from dired/efs-vm.el - -;;;*** - -;;;### (autoloads nil "efs-vms" "dired/efs-vms.el" (12995 3099)) -;;; Generated autoloads from dired/efs-vms.el - -;;;*** - -;;;### (autoloads nil "efs-vos" "dired/efs-vos.el" (12995 3099)) -;;; Generated autoloads from dired/efs-vos.el - -;;;*** - -;;;### (autoloads nil "efs" "dired/efs.el" (12995 3099)) -;;; Generated autoloads from dired/efs.el - -;;;*** - -;;;### (autoloads nil "emacs-19" "dired/emacs-19.el" (12995 3117)) -;;; Generated autoloads from dired/emacs-19.el - -;;;### (autoloads (find-grep-dired find-name-dired find-dired) "find-dired" "dired/find-dired.el" (12995 25440)) -;;; Generated autoloads from dired/find-dired.el - -(defvar find-ls-option (purecopy (if (eq system-type 'berkeley-unix) '("-ls" . "-gilsb") '("-exec ls -ld {} \\;" . "-ld"))) "\ -*Description of the option to `find' to produce an `ls -l'-type listing. -This is a cons of two strings (FIND-OPTION . LS-SWITCHES). FIND-OPTION -gives the option (or options) to `find' that produce the desired output. -LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output.") - -(defvar find-grep-options (purecopy (if (eq system-type 'berkeley-unix) "-s" "-q")) "\ -*Option to grep to be as silent as possible. -On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it. -On other systems, the closest you can come is to use `-l'.") - -(defvar find-dired-multiple-buffers nil "\ -*If non-nil, generates a new buffer for each find") - -(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 - - find . \\( ARGS \\) -ls" 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" t nil) - -(autoload 'find-grep-dired "find-dired" "\ -Find files in DIR containing a regexp ARG and start Dired on output. -The command run (after changing into DIR) is - - find . -type f -exec test -r {} \\; -exec egrep -s ARG {} \\; -ls - -Thus ARG can also contain additional grep options." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "fixup" "dired/fixup.el" (12995 3107)) -;;; Generated autoloads from dired/fixup.el - -;;;*** - -;;;### (autoloads nil "fn-handler" "dired/fn-handler.el" (12995 3111)) -;;; Generated autoloads from dired/fn-handler.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "gmhist-app" "dired/gmhist-app.el" (12995 25440)) -;;; Generated autoloads from dired/gmhist-app.el - -;;;*** - -;;;### (autoloads nil "gmhist-cmp" "dired/gmhist-cmp.el" (12995 25440)) -;;; Generated autoloads from dired/gmhist-cmp.el - -;;;*** - -;;;### (autoloads nil "gmhist-mh" "dired/gmhist-mh.el" (12995 25440)) -;;; Generated autoloads from dired/gmhist-mh.el - -;;;*** - -;;;### (autoloads nil "gmhist" "dired/gmhist.el" (12995 25441)) -;;; Generated autoloads from dired/gmhist.el - -;;;*** - -;;;### (autoloads nil "advise-eval-region" "edebug/advise-eval-region.el" (12984 30084)) -;;; Generated autoloads from edebug/advise-eval-region.el - -;;;*** - -;;;### (autoloads nil "cl-read" "edebug/cl-read.el" (12984 30081)) -;;; Generated autoloads from edebug/cl-read.el - -;;;*** - -;;;### (autoloads nil "cl-specs" "edebug/cl-specs.el" (12984 30081)) -;;; Generated autoloads from edebug/cl-specs.el - -;;;*** - -;;;### (autoloads nil "cust-print" "edebug/cust-print.el" (12984 30081)) -;;; Generated autoloads from edebug/cust-print.el - -;;;*** - -;;;### (autoloads nil "edebug-cl-read" "edebug/edebug-cl-read.el" (12984 30081)) -;;; Generated autoloads from edebug/edebug-cl-read.el - -;;;*** - -;;;### (autoloads nil "edebug-test" "edebug/edebug-test.el" (12984 29563)) -;;; Generated autoloads from edebug/edebug-test.el - -;;;*** - -;;;### (autoloads (edebug-eval-top-level-form def-edebug-spec) "edebug" "edebug/edebug.el" (12984 30083)) -;;; Generated autoloads from edebug/edebug.el - -(autoload 'def-edebug-spec "edebug" "\ -Set the edebug-form-spec property of SYMBOL according to SPEC. -Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol -\(naming a function), or a list." nil 'macro) - -(defalias 'edebug-defun 'edebug-eval-top-level-form) - -(autoload 'edebug-eval-top-level-form "edebug" "\ -Evaluate a top level form, such as a defun or defmacro. -This is like `eval-defun', but the code is always instrumented for Edebug. -Print its name in the minibuffer and leave point where it is, -or if an error occurs, leave point after it with mark at the original point." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "eval-reg" "edebug/eval-reg.el" (12984 30081)) -;;; Generated autoloads from edebug/eval-reg.el - -;;;*** - -;;;### (autoloads nil "ediff-diff" "ediff/ediff-diff.el" (12984 29570)) -;;; Generated autoloads from ediff/ediff-diff.el - -;;;*** - -;;;### (autoloads nil "ediff-hook" "ediff/ediff-hook.el" (12984 29571)) -;;; Generated autoloads from ediff/ediff-hook.el - -;;;*** - -;;;### (autoloads nil "ediff-init" "ediff/ediff-init.el" (12984 29570)) -;;; Generated autoloads from ediff/ediff-init.el - -;;;*** - -;;;### (autoloads nil "ediff-merg" "ediff/ediff-merg.el" (12984 29570)) -;;; Generated autoloads from ediff/ediff-merg.el - -;;;*** - -;;;### (autoloads (ediff-show-registry) "ediff-mult" "ediff/ediff-mult.el" (12984 29571)) -;;; Generated autoloads from ediff/ediff-mult.el - -(autoload 'ediff-show-registry "ediff-mult" "\ -Display Ediff's registry." t nil) - -(defalias 'eregistry 'ediff-show-registry) - -;;;*** - -;;;*** - -;;;### (autoloads nil "ediff-ptch" "ediff/ediff-ptch.el" (12984 29571)) -;;; Generated autoloads from ediff/ediff-ptch.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "ediff-util" "ediff/ediff-util.el" (12984 29570)) -;;; Generated autoloads from ediff/ediff-util.el - -;;;*** - -;;;### (autoloads nil "ediff-vers" "ediff/ediff-vers.el" (12984 29571)) -;;; Generated autoloads from ediff/ediff-vers.el - -;;;*** - -;;;### (autoloads nil "ediff-wind" "ediff/ediff-wind.el" (12984 29571)) -;;; Generated autoloads from ediff/ediff-wind.el - -;;;### (autoloads (ediff-documentation ediff-version ediff-revision ediff-patch-buffer ediff-patch-file run-ediff-from-cvs-buffer 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-files3 ediff-files) "ediff" "ediff/ediff.el" (12984 29571)) -;;; Generated autoloads from ediff/ediff.el - -(autoload 'ediff-files "ediff" "\ -Run Ediff on a pair of files, FILE-A and FILE-B." t nil) - -(autoload 'ediff-files3 "ediff" "\ -Run Ediff on three files, FILE-A, FILE-B, and FILE-C." t nil) - -(defalias 'ediff3 'ediff-files3) - -(defalias 'ediff 'ediff-files) - -(autoload 'ediff-buffers "ediff" "\ -Run Ediff on a pair of buffers, BUFFER-A and BUFFER-B." t nil) - -(defalias 'ebuffers 'ediff-buffers) - -(autoload 'ediff-buffers3 "ediff" "\ -Run Ediff on three buffers, BUFFER-A, BUFFER-B, and BUFFER-C." 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 a regular expression that -can be used to filter out certain file names." 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." 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 a regular -expression that can be used to filter out certain file names." 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 a regular expression that -can be used to filter out certain file names." 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 a regular expression that -can be used to filter out certain file names." 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." 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." 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." 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." t nil) - -(autoload 'ediff-regions-wordwise "ediff" "\ -Run Ediff on a pair of regions in two different buffers. -Regions (i.e., point and mark) are assumed to be set in advance. -This function is effective only for relatively small regions, up to 200 -lines. For large regions, use `ediff-regions-linewise'." t nil) - -(autoload 'ediff-regions-linewise "ediff" "\ -Run Ediff on a pair of regions in two different buffers. -Regions (i.e., point and mark) are assumed to be set in advance. -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'." t nil) - -(defalias 'ediff-merge 'ediff-merge-files) - -(autoload 'ediff-merge-files "ediff" "\ -Merge two files without ancestor." t nil) - -(autoload 'ediff-merge-files-with-ancestor "ediff" "\ -Merge two files with ancestor." t nil) - -(defalias 'ediff-merge-with-ancestor 'ediff-merge-files-with-ancestor) - -(autoload 'ediff-merge-buffers "ediff" "\ -Merge buffers without ancestor." t nil) - -(autoload 'ediff-merge-buffers-with-ancestor "ediff" "\ -Merge buffers with ancestor." 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." 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." t nil) - -(autoload 'run-ediff-from-cvs-buffer "ediff" "\ -Run Ediff-merge on appropriate revisions of the selected file. -First run after `M-x cvs-update'. Then place the cursor on a lide describing a -file and then run `run-ediff-from-cvs-buffer'." t nil) - -(autoload 'ediff-patch-file "ediff" "\ -Run Ediff by patching SOURCE-FILENAME." t nil) - -(autoload 'ediff-patch-buffer "ediff" "\ -Run Ediff by patching BUFFER-NAME." 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 visited by the current -buffer. Use `vc.el' or `rcs.el' depending on `ediff-version-control-package'." t nil) - -(autoload 'ediff-version "ediff" "\ -Return string describing the version of Ediff. -When called interactively, displays the version." t nil) - -(autoload 'ediff-documentation "ediff" "\ -Display Ediff's manual." t nil) - -;;;*** - -;;;### (autoloads (electric-buffer-list) "ebuff-menu" "electric/ebuff-menu.el" (12988 19666)) -;;; Generated autoloads from electric/ebuff-menu.el - -(autoload 'electric-buffer-list "ebuff-menu" "\ -Pops up a buffer describing the set of Emacs buffers. -Vaguely like ITS lunar select buffer; combining typeoutoid buffer -listing with menuoid buffer selection. - -If the very next character typed is a space then the buffer list -window disappears. Otherwise, one may move around in the buffer list -window, marking buffers to be selected, saved or deleted. - -To exit and select a new buffer, type a space when the cursor is on -the appropriate line of the buffer-list window. Other commands are -much like those of buffer-menu-mode. - -Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil. - -Non-null optional arg FILES-ONLY means mention only file buffers. -When called from Lisp code, FILES-ONLY may be a regular expression, -in which case only buffers whose names match that expression are listed, -or an arbitrary predicate function. - -\\{electric-buffer-menu-mode-map}" t nil) - -;;;*** - -;;;### (autoloads (electric-command-history Electric-command-history-redo-expression) "echistory" "electric/echistory.el" (12984 29975)) -;;; Generated autoloads from electric/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." t nil) - -(autoload 'electric-command-history "echistory" "\ -\\<electric-history-map>Major mode for examining and redoing commands from `command-history'. -This pops up a window with the Command History listing. -The number of command listed is controlled by `list-command-history-max'. -The command history is filtered by `list-command-history-filter' if non-nil. -Combines typeout Command History list window with menu like selection -of an expression from the history for re-evaluation in the *original* buffer. - -The history displayed is filtered by `list-command-history-filter' if non-nil. - -Like Emacs-Lisp mode except that characters do not insert themselves and -Tab and Linefeed do not indent. Instead these commands are provided: -\\{electric-history-map} - -Calls the value of `electric-command-history-hook' if that is non-nil. -The Command History listing is recomputed each time this mode is invoked." t nil) - -;;;*** - -;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "electric/ehelp.el" (12984 29974)) -;;; Generated autoloads from electric/ehelp.el - -(autoload 'with-electric-help "ehelp" "\ -Pop up an \"electric\" help buffer. -The arguments are THUNK &optional BUFFER NOERASE MINHEIGHT. -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 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') -BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." nil nil) - -(autoload 'electric-helpify "ehelp" nil nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "electric" "electric/electric.el" (12984 29974)) -;;; Generated autoloads from electric/electric.el - -;;;*** - -;;;### (autoloads (Helper-help Helper-describe-bindings) "helper" "electric/helper.el" (12984 29975)) -;;; Generated autoloads from electric/helper.el - -(autoload 'Helper-describe-bindings "helper" "\ -Describe local key bindings of current mode." t nil) - -(autoload 'Helper-help "helper" "\ -Provide help for current mode." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "crisp" "emulators/crisp.el" (12989 48890)) -;;; Generated autoloads from emulators/crisp.el - -;;;*** - -;;;### (autoloads nil "edt-lk201" "emulators/edt-lk201.el" (12984 29980)) -;;; Generated autoloads from emulators/edt-lk201.el - -;;;*** - -;;;### (autoloads nil "edt-mapper" "emulators/edt-mapper.el" (12984 29980)) -;;; Generated autoloads from emulators/edt-mapper.el - -;;;*** - -;;;### (autoloads nil "edt-pc" "emulators/edt-pc.el" (12984 29980)) -;;; Generated autoloads from emulators/edt-pc.el - -;;;*** - -;;;### (autoloads nil "edt-vt100" "emulators/edt-vt100.el" (12984 29980)) -;;; Generated autoloads from emulators/edt-vt100.el - - -;;;### (autoloads (edt-emulation-on) "edt" "emulators/edt.el" (12984 29976)) -;;; Generated autoloads from emulators/edt.el - -(autoload 'edt-emulation-on "edt" "\ -Turn on EDT Emulation." t nil) - -;;;*** - -;;;### (autoloads (convert-mocklisp-buffer) "mlconvert" "emulators/mlconvert.el" (12984 29977)) -;;; Generated autoloads from emulators/mlconvert.el - -(autoload 'convert-mocklisp-buffer "mlconvert" "\ -Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "mlsupport" "emulators/mlsupport.el" (12984 29977)) -;;; Generated autoloads from emulators/mlsupport.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "scroll-lock" "emulators/scroll-lock.el" (12984 29980)) -;;; Generated autoloads from emulators/scroll-lock.el - -;;;### (autoloads (teco-command) "teco" "emulators/teco.el" (12984 29977)) -;;; Generated autoloads from emulators/teco.el - -(autoload 'teco-command "teco" "\ -Read and execute a Teco command string." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "tpu-doc" "emulators/tpu-doc.el" (12984 29534)) -;;; Generated autoloads from emulators/tpu-doc.el - -;;;### (autoloads (tpu-edt-on) "tpu-edt" "emulators/tpu-edt.el" (12988 19668)) -;;; Generated autoloads from emulators/tpu-edt.el - -(fset 'tpu-edt-mode 'tpu-edt-on) - -(fset 'tpu-edt 'tpu-edt-on) - -(autoload 'tpu-edt-on "tpu-edt" "\ -Turn on TPU/edt emulation." t nil) - -;;;*** - -;;;### (autoloads (tpu-set-cursor-bound tpu-set-cursor-free tpu-set-scroll-margins) "tpu-extras" "emulators/tpu-extras.el" (12984 29979)) -;;; Generated autoloads from emulators/tpu-extras.el - -(autoload 'tpu-set-scroll-margins "tpu-extras" "\ -Set scroll margins." t nil) - -(autoload 'tpu-set-cursor-free "tpu-extras" "\ -Allow the cursor to move freely about the screen." t nil) - -(autoload 'tpu-set-cursor-bound "tpu-extras" "\ -Constrain the cursor to the flow of the text." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "tpu-mapper" "emulators/tpu-mapper.el" (12984 29979)) -;;; Generated autoloads from emulators/tpu-mapper.el - -;;;*** - -;;;### (autoloads (wordstar-mode) "ws-mode" "emulators/ws-mode.el" (12984 29978)) -;;; Generated autoloads from emulators/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-horizontally - C-o wo other-window - C-o wv split-window-vertically - - 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 -" t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "backtrace-logging" "energize/backtrace-logging.el" (12984 29534)) -;;; Generated autoloads from energize/backtrace-logging.el - -;;;*** - -;;;### (autoloads nil "energize-advice" "energize/energize-advice.el" (12984 29534)) -;;; Generated autoloads from energize/energize-advice.el - -;;;*** - -;;;### (autoloads nil "energize-annoprint" "energize/energize-annoprint.el" (12984 29535)) -;;; Generated autoloads from energize/energize-annoprint.el - -;;;*** - -;;;### (autoloads nil "energize-font-lock" "energize/energize-font-lock.el" (12984 29534)) -;;; Generated autoloads from energize/energize-font-lock.el - -;;;*** - -;;;### (autoloads nil "energize-font-size" "energize/energize-font-size.el" (12984 29535)) -;;; Generated autoloads from energize/energize-font-size.el - -;;;*** - -;;;### (autoloads nil "energize-init" "energize/energize-init.el" (12984 29534)) -;;; Generated autoloads from energize/energize-init.el - -;;;*** - -;;;### (autoloads nil "energize-load" "energize/energize-load.el" (12984 29534)) -;;; Generated autoloads from energize/energize-load.el - -;;;*** - -;;;### (autoloads nil "energize-menus" "energize/energize-menus.el" (12984 29534)) -;;; Generated autoloads from energize/energize-menus.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "energize-mode" "energize/energize-mode.el" (12984 29534)) -;;; Generated autoloads from energize/energize-mode.el - -;;;*** - -;;;### (autoloads nil "energize-shell" "energize/energize-shell.el" (12984 29534)) -;;; Generated autoloads from energize/energize-shell.el - -;;;*** - -;;;### (autoloads nil "energize-uimx" "energize/energize-uimx.el" (12984 29535)) -;;; Generated autoloads from energize/energize-uimx.el - -;;;*** - -;;;### (autoloads nil "energize-vi" "energize/energize-vi.el" (12984 29534)) -;;; Generated autoloads from energize/energize-vi.el - -;;;*** - -;;;### (autoloads nil "energize-visit-use" "energize/energize-visit-use.el" (12984 29534)) -;;; Generated autoloads from energize/energize-visit-use.el - -;;;*** - -;;;### (autoloads nil "energize-windows" "energize/energize-windows.el" (12984 29535)) -;;; Generated autoloads from energize/energize-windows.el - -;;;*** - -;;;### (autoloads nil "ostore" "energize/ostore.el" (12984 29534)) -;;; Generated autoloads from energize/ostore.el - -;;;*** - -;;;### (autoloads nil "write-file" "energize/write-file.el" (12984 29534)) -;;; Generated autoloads from energize/write-file.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "eos" "eos/eos.el" (12984 29566)) -;;; Generated autoloads from eos/eos.el - -;;;*** - -;;;### (autoloads nil "loaddefs-eos" "eos/loaddefs-eos.el" (12984 29566)) -;;; Generated autoloads from eos/loaddefs-eos.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "sun-eos-browser" "eos/sun-eos-browser.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos-browser.el - -;;;*** - -;;;### (autoloads nil "sun-eos-common" "eos/sun-eos-common.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos-common.el - -;;;*** - -;;;### (autoloads nil "sun-eos-debugger-extra" "eos/sun-eos-debugger-extra.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos-debugger-extra.el - -;;;*** - -;;;### (autoloads nil "sun-eos-debugger" "eos/sun-eos-debugger.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos-debugger.el - -;;;*** - -;;;### (autoloads nil "sun-eos-editor" "eos/sun-eos-editor.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos-editor.el - -;;;*** - -;;;### (autoloads nil "sun-eos-init" "eos/sun-eos-init.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos-init.el - -;;;*** - -;;;### (autoloads nil "sun-eos-load" "eos/sun-eos-load.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos-load.el - -;;;*** - -;;;### (autoloads nil "sun-eos-menubar" "eos/sun-eos-menubar.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos-menubar.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "sun-eos-toolbar" "eos/sun-eos-toolbar.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos-toolbar.el - -;;;*** - -;;;### (autoloads nil "sun-eos" "eos/sun-eos.el" (12984 29566)) -;;; Generated autoloads from eos/sun-eos.el - -;;;*** - -;;;### (autoloads nil "epoch" "epoch/epoch.el" (12984 29555)) -;;; Generated autoloads from epoch/epoch.el - -;;;### (autoloads (tshell) "tshell" "eterm/tshell.el" (12147 26618)) -;;; Generated autoloads from eterm/tshell.el - -(defvar tshell-prompt-pattern "^[^#$%>\n]*[#$%>] *" "\ -Regexp to match prompts in the inferior shell. -Defaults to \"^[^#$%>\\n]*[#$%>] *\", which works pretty well. -This variable is used to initialise `term-prompt-regexp' in the -shell buffer. - -The pattern should probably not match more than one line. If it does, -tshell-mode may become confused trying to distinguish prompt from input -on lines which don't start with a prompt. - -This is a fine thing to set in your `.emacs' file.") - -(autoload 'tshell "tshell" "\ -Run an inferior shell, with I/O through buffer *shell*. -If buffer exists but shell process is not running, make new shell. -If buffer exists and shell process is running, just switch to buffer `*shell*'. -Program used comes from variable `explicit-shell-file-name', - or (if that is nil) from the ESHELL environment variable, - or else from SHELL if there is no ESHELL. -If a file `~/.emacs_SHELLNAME' exists, it is given as initial input - (Note that this may lose due to a timing error if the shell - discards input when it starts up.) -The buffer is put in Tshell mode, giving commands for sending input -and controlling the subjobs of the shell. See `tshell-mode'. -See also the variable `tshell-prompt-pattern'. - -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.)" t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "NeXTify" "games/NeXTify.el" (12984 30080)) -;;; Generated autoloads from games/NeXTify.el - -;;;### (autoloads (blackbox) "blackbox" "games/blackbox.el" (12988 19779)) -;;; Generated autoloads from games/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." t nil) - -;;;*** - -;;;### (autoloads (conx-load conx conx-region conx-buffer) "conx" "games/conx.el" (12984 30079)) -;;; Generated autoloads from games/conx.el - -(autoload 'conx-buffer "conx" "\ -Absorb the text in the current buffer into the tree." t nil) - -(autoload 'conx-region "conx" "\ -Absorb the text in the current region into the tree." t nil) - -(autoload 'conx "conx" "\ -Generate some random sentences in the *conx* buffer." t nil) - -(autoload 'conx-load "conx" "\ -Load in a CONX database written by the \\[conx-save] command. -This clears the database currently in memory." t nil) - -;;;*** - -;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie) "cookie1" "games/cookie1.el" (12984 30076)) -;;; Generated autoloads from games/cookie1.el - -(autoload 'cookie "cookie1" "\ -Return a random phrase from PHRASE-FILE. When the phrase file -is read in, display STARTMSG at beginning of load, ENDMSG at end." 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 beginning of load, ENDMSG at end." 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." nil nil) - -(autoload 'shuffle-vector "cookie1" "\ -Randomly permute the elements of VECTOR (all permutations equally likely)" nil nil) - -;;;*** - -;;;### (autoloads (dissociated-press) "dissociate" "games/dissociate.el" (12984 30076)) -;;; Generated autoloads from games/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." t nil) - -;;;*** - -;;;### (autoloads (doctor) "doctor" "games/doctor.el" (12984 30077)) -;;; Generated autoloads from games/doctor.el - -(autoload 'doctor "doctor" "\ -Switch to *doctor* buffer and start giving psychotherapy." t nil) - -;;;*** - -;;;### (autoloads (dunnet) "dunnet" "games/dunnet.el" (12984 30080)) -;;; Generated autoloads from games/dunnet.el - -(autoload 'dunnet "dunnet" "\ -Switch to *dungeon* buffer and start game." t nil) - -;;;*** - -;;;### (autoloads (flame) "flame" "games/flame.el" (12984 30079)) -;;; Generated autoloads from games/flame.el - -(autoload 'flame "flame" "\ -Generate ARG (default 1) sentences of half-crazed gibberish." t nil) - -;;;*** - -;;;### (autoloads (gomoku) "gomoku" "games/gomoku.el" (12988 19780)) -;;; Generated autoloads from games/gomoku.el - -(autoload 'gomoku "gomoku" "\ -Start a Gomoku game between you and Emacs. -If a game is in progress, this command allow you to resume it. -If optional arguments N and M are given, an N by M board is used. - -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]. -Use \\[describe-mode] for more info." t nil) - -;;;*** - -;;;### (autoloads (hanoi) "hanoi" "games/hanoi.el" (12984 30078)) -;;; Generated autoloads from games/hanoi.el - -(autoload 'hanoi "hanoi" "\ -Towers of Hanoi diversion. Argument is number of rings." t nil) - -;;;*** - -;;;### (autoloads (life) "life" "games/life.el" (12984 30078)) -;;; Generated autoloads from games/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)." t nil) - -;;;*** - -;;;### (autoloads (mpuz) "mpuz" "games/mpuz.el" (12984 30078)) -;;; Generated autoloads from games/mpuz.el - -(autoload 'mpuz "mpuz" "\ -Multiplication puzzle with GNU Emacs." t nil) - -;;;*** - -;;;### (autoloads (snarf-spooks spook) "spook" "games/spook.el" (12984 30078)) -;;; Generated autoloads from games/spook.el - -(autoload 'spook "spook" "\ -Adds that special touch of class to your outgoing mail." t nil) - -(autoload 'snarf-spooks "spook" "\ -Return a vector containing the lines from `spook-phrases-file'." nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "studly" "games/studly.el" (12984 30080)) -;;; Generated autoloads from games/studly.el - -;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism yow) "yow" "games/yow.el" (12984 30079)) -;;; Generated autoloads from games/yow.el - -(autoload 'yow "yow" "\ -Return or display a random Zippy quotation. With prefix arg, insert it." t nil) - -(autoload 'insert-zippyism "yow" "\ -Prompt with completion for a known Zippy quotation, and insert it at point." t nil) - -(autoload 'apropos-zippy "yow" "\ -Return a list of all Zippy quotes matching REGEXP. -If called interactively, display a list of matches." t nil) - -(autoload 'psychoanalyze-pinhead "yow" "\ -Zippy goes to the analyst." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "custom" "gnus/custom.el" (12984 29536)) -;;; Generated autoloads from gnus/custom.el - -;;;*** - -;;;### (autoloads nil "dgnushack" "gnus/dgnushack.el" (12984 29536)) -;;; Generated autoloads from gnus/dgnushack.el - -;;;### (autoloads (gnus-earcon-display) "earcon" "gnus/earcon.el" (12984 29539)) -;;; Generated autoloads from gnus/earcon.el - -(autoload 'gnus-earcon-display "earcon" "\ -Play sounds in message buffers." t nil) - -;;;*** - -;;;### (autoloads (gnus-cache-generate-nov-databases gnus-cache-generate-active gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (12984 29536)) -;;; Generated autoloads from gnus/gnus-cache.el - -(autoload 'gnus-jog-cache "gnus-cache" "\ -Go through all groups and put the articles into the cache." t nil) - -(autoload 'gnus-cache-generate-active "gnus-cache" "\ -Generate the cache active file." t nil) - -(autoload 'gnus-cache-generate-nov-databases "gnus-cache" "\ -Generate NOV files recursively starting in DIR." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "gnus-cite" "gnus/gnus-cite.el" (12984 29536)) -;;; Generated autoloads from gnus/gnus-cite.el - -;;;*** - -;;;### (autoloads nil "gnus-cus" "gnus/gnus-cus.el" (12984 29536)) -;;; Generated autoloads from gnus/gnus-cus.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "gnus-demon" "gnus/gnus-demon.el" (12984 29538)) -;;; Generated autoloads from gnus/gnus-demon.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "gnus-edit" "gnus/gnus-edit.el" (12984 29536)) -;;; Generated autoloads from gnus/gnus-edit.el - -;;;*** - -;;;### (autoloads nil "gnus-ems" "gnus/gnus-ems.el" (12984 29537)) -;;; Generated autoloads from gnus/gnus-ems.el - -;;;*** - -;;;### (autoloads nil "gnus-gl" "gnus/gnus-gl.el" (12984 29536)) -;;; Generated autoloads from gnus/gnus-gl.el - -;;;*** - -;;;### (autoloads nil "gnus-kill" "gnus/gnus-kill.el" (12984 29537)) -;;; Generated autoloads from gnus/gnus-kill.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "gnus-mh" "gnus/gnus-mh.el" (12984 29537)) -;;; Generated autoloads from gnus/gnus-mh.el - -;;;*** - -;;;### (autoloads nil "gnus-msg" "gnus/gnus-msg.el" (12984 29537)) -;;; Generated autoloads from gnus/gnus-msg.el - -;;;*** - -;;;### (autoloads nil "gnus-nocem" "gnus/gnus-nocem.el" (12984 29538)) -;;; Generated autoloads from gnus/gnus-nocem.el - -;;;*** - -;;;### (autoloads nil "gnus-picon" "gnus/gnus-picon.el" (12984 29538)) -;;; Generated autoloads from gnus/gnus-picon.el - -;;;*** - -;;;### (autoloads nil "gnus-salt" "gnus/gnus-salt.el" (12984 29538)) -;;; Generated autoloads from gnus/gnus-salt.el - -;;;*** - -;;;### (autoloads nil "gnus-score" "gnus/gnus-score.el" (12984 29536)) -;;; Generated autoloads from gnus/gnus-score.el - -;;;*** - -;;;### (autoloads nil "gnus-setup" "gnus/gnus-setup.el" (12984 29538)) -;;; Generated autoloads from gnus/gnus-setup.el - -;;;### (autoloads (gnus-sound-play) "gnus-sound" "gnus/gnus-sound.el" (12984 29539)) -;;; Generated autoloads from gnus/gnus-sound.el - -(autoload 'gnus-sound-play "gnus-sound" "\ -Play a sound through the speaker." t nil) - -;;;*** - -;;;### (autoloads (gnus-batch-brew-soup) "gnus-soup" "gnus/gnus-soup.el" (12984 29538)) -;;; Generated autoloads from gnus/gnus-soup.el - -(autoload 'gnus-batch-brew-soup "gnus-soup" "\ -Brew a SOUP packet from groups mention on the command line. -Will use the remaining command line arguments as regular expressions -for matching on group names. - -For instance, if you want to brew on all the nnml groups, as well as -groups with \"emacs\" in the name, you could say something like: - -$ emacs -batch -f gnus-batch-brew-soup ^nnml \".*emacs.*\"" t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "gnus-srvr" "gnus/gnus-srvr.el" (12984 29538)) -;;; Generated autoloads from gnus/gnus-srvr.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "gnus-topic" "gnus/gnus-topic.el" (12984 29538)) -;;; Generated autoloads from gnus/gnus-topic.el - -;;;*** - -;;;### (autoloads nil "gnus-uu" "gnus/gnus-uu.el" (12984 29537)) -;;; Generated autoloads from gnus/gnus-uu.el - -;;;*** - -;;;### (autoloads nil "gnus-vis" "gnus/gnus-vis.el" (12984 29537)) -;;; Generated autoloads from gnus/gnus-vis.el - -;;;*** - -;;;### (autoloads nil "gnus-vm" "gnus/gnus-vm.el" (12984 29537)) -;;; Generated autoloads from gnus/gnus-vm.el - -;;;*** - -;;;### (autoloads nil "gnus-xmas" "gnus/gnus-xmas.el" (12984 29538)) -;;; Generated autoloads from gnus/gnus-xmas.el - -;;;*** - -;;;### (autoloads (gnus-batch-score gnus-fetch-group gnus gnus-other-frame gnus-slave gnus-no-server gnus-slave-no-server gnus-add-configuration gnus-update-format) "gnus" "gnus/gnus.el" (12984 29535)) -;;; Generated autoloads from gnus/gnus.el - -(autoload 'gnus-update-format "gnus" "\ -Update the format specification near point." t nil) - -(autoload 'gnus-add-configuration "gnus" "\ -Add the window configuration CONF to `gnus-buffer-configuration'." nil nil) - -(autoload 'gnus-slave-no-server "gnus" "\ -Read network news as a slave, without connecting to local server" 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." t nil) - -(autoload 'gnus-slave "gnus" "\ -Read news as a slave." t nil) - -(autoload 'gnus-other-frame "gnus" "\ -Pop up a frame to read news." 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." t nil) - -(autoload 'gnus-fetch-group "gnus" "\ -Start Gnus if necessary and enter GROUP. -Returns whether the fetching was successful or not." t nil) - -(defalias 'gnus-batch-kill 'gnus-batch-score) - -(autoload 'gnus-batch-score "gnus" "\ -Run batched scoring. -Usage: emacs -batch -l gnus -f gnus-batch-score <newsgroups> ... -Newsgroups is a list of strings in Bnews format. If you want to score -the comp hierarchy, you'd say \"comp.all\". If you would not like to -score the alt hierarchy, you'd say \"!alt.all\"." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "mailheader" "gnus/mailheader.el" (12984 29538)) -;;; Generated autoloads from gnus/mailheader.el - -;;;### (autoloads (unbold-region bold-region message-news-other-frame message-news-other-window message-mail-other-frame message-mail-other-window message-bounce message-resend 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" (12984 29538)) -;;; Generated autoloads from gnus/message.el - -(defvar message-fcc-handler-function 'rmail-output "\ -*A function called to save outgoing articles. -This function will be called with the name of the file to store the -article in. The default function is `rmail-output' which saves in Unix -mailbox format.") - -(defvar message-courtesy-message "The following message is a courtesy copy of an article\nthat has been posted as well.\n\n" "\ -*This is inserted at the start of a mailed copy of a posted message. -If this variable is nil, no such courtesy message will be added.") - -(defvar message-ignored-bounced-headers "^\\(Received\\|Return-Path\\):" "\ -*Regexp that matches headers to be removed in resent bounced mail.") - -(defvar message-from-style 'default "\ -*Specifies how \"From\" headers 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.") - -(defvar message-syntax-checks nil "\ -Controls what syntax checks should not be performed on outgoing posts. -To disable checking of long signatures, for instance, add - `(signature . disabled)' to this list. - -Don't touch this variable unless you really know what you're doing. - -Checks include subject-cmsg multiple-headers sendsys message-id from -long-lines control-chars size new-text redirected-followup signature -approved sender empty empty-headers message-id from subject.") - -(defvar message-required-news-headers '(From Newsgroups Subject Date Message-ID (optional . Organization) Lines (optional . X-Newsreader)) "\ -*Headers to be generated or prompted for when posting an article. -RFC977 and RFC1036 require From, Date, Newsgroups, Subject, -Message-ID. Organization, Lines, In-Reply-To, Expires, and -X-Newsreader are optional. If don't you want message to insert some -header, remove it from this list.") - -(defvar message-required-mail-headers '(From Subject Date (optional . In-Reply-To) Message-ID Lines (optional . X-Mailer)) "\ -*Headers to be generated or prompted for when mailing a message. -RFC822 required that From, Date, To, Subject and Message-ID be -included. Organization, Lines and X-Mailer are optional.") - -(defvar message-deletable-headers '(Message-ID Date) "\ -*Headers to be deleted if they already exist and were generated by message previously.") - -(defvar message-ignored-news-headers "^NNTP-Posting-Host:\\|^Xref:\\|^Bcc:\\|^Gcc:\\|^Fcc:" "\ -*Regexp of headers to be removed unconditionally before posting.") - -(defvar message-ignored-mail-headers "^Gcc:\\|^Fcc:" "\ -*Regexp of headers to be removed unconditionally before mailing.") - -(defvar message-ignored-supersedes-headers "^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|^Received:\\|^X-From-Line:\\|Return-Path:\\|^Supersedes:" "\ -*Header lines matching this regexp will be deleted before posting. -It's best to delete old Path and Date headers before posting to avoid -any confusion.") - -(defvar message-signature-separator "^-- *$" "\ -Regexp matching the signature separator.") - -(defvar message-interactive nil "\ -Non-nil means when sending a message wait for and display errors. -nil means let mailer mail back a message to report errors.") - -(defvar message-generate-new-buffers t "\ -*Non-nil means that a new message buffer will be created whenever `mail-setup' is called. -If this is a function, call that function with three parameters: The type, -the to address and the group name. (Any of these may be nil.) The function -should return the new buffer name.") - -(defvar message-kill-buffer-on-exit nil "\ -*Non-nil means that the message buffer will be killed after sending a message.") - -(defvar message-user-organization-file "/usr/lib/news/organization" "\ -*Local news organization file.") - -(defvar message-signature-before-forwarded-message t "\ -*If non-nil, put the signature before any included forwarded message.") - -(defvar message-included-forward-headers "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-\\|^Message-ID:\\|^References:" "\ -*Regexp matching headers to be included in forwarded messages.") - -(defvar message-ignored-resent-headers "^Return-receipt" "\ -*All headers that match this regexp will be deleted when resending a message.") - -(defvar message-ignored-cited-headers "." "\ -Delete these headers from the messages you yank.") - -(defvar message-send-mail-function 'message-send-mail-with-sendmail "\ -Function to call to send the current buffer as mail. -The headers should be delimited by a line whose contents match the -variable `mail-header-separator'. - -Legal values include `message-send-mail-with-mh' and -`message-send-mail-with-sendmail', which is the default.") - -(defvar message-send-news-function 'message-send-news "\ -Function to call to send the current buffer as news. -The headers should be delimited by a line whose contents match the -variable `mail-header-separator'.") - -(defvar message-reply-to-function nil "\ -Function that should return a list of headers. -This function should pick out addresses from the To, Cc, and From headers -and respond with new To and Cc headers.") - -(defvar message-wide-reply-to-function nil "\ -Function that should return a list of headers. -This function should pick out addresses from the To, Cc, and From headers -and respond with new To and Cc headers.") - -(defvar message-followup-to-function nil "\ -Function that should return a list of headers. -This function should pick out addresses from the To, Cc, and From headers -and respond with new To and Cc headers.") - -(defvar message-use-followup-to 'ask "\ -*Specifies what to do with Followup-To header. -If nil, ignore the header. If it is t, use its value, but query before -using the \"poster\" value. If it is the symbol `ask', query the user -whether to ignore the \"poster\" value. If it is the symbol `use', -always use the value.") - -(defvar message-post-method (cond ((and (boundp 'gnus-post-method) gnus-post-method) gnus-post-method) ((boundp 'gnus-select-method) gnus-select-method) (t '(nnspool ""))) "\ -Method used to post news.") - -(defvar message-generate-headers-first nil "\ -*If non-nil, generate all possible headers before composing.") - -(defvar message-citation-line-function 'message-insert-citation-line "\ -*Function called to insert the \"Whomever writes:\" line.") - -(defvar message-yank-prefix "> " "\ -*Prefix inserted on the lines of yanked messages. -nil means use indentation.") - -(defvar message-cite-function 'message-cite-original "\ -*Function for citing an original message.") - -(defvar message-indent-citation-function 'message-indent-citation "\ -*Function for modifying a citation just inserted in the mail buffer. -This can also be a list of functions. Each function can find the -citation between (point) and (mark t). And each function should leave -point and mark around the citation text as modified.") - -(defvar message-signature t "\ -*String to be inserted at the end of the message buffer. -If t, the `message-signature-file' file will be inserted instead. -If a function, the result from the function will be used instead. -If a form, the result from the form will be used instead.") - -(defvar message-signature-file "~/.signature" "\ -*File containing the text inserted at end of message. buffer.") - -(defvar message-default-headers nil "\ -*A string containing header lines to be inserted in outgoing messages. -It is inserted before you edit the message, so you can edit or delete -these lines.") - -(defvar message-default-mail-headers nil "\ -*A string of header lines to be inserted in outgoing mails.") - -(defvar message-default-news-headers nil "\ -*A string of header lines to be inserted in outgoing news articles.") - -(autoload 'message-mode "message" "\ -Major mode for editing mail and news to be sent. -Like Text Mode but with these additional commands: -C-c C-s message-send (send the message) C-c C-c message-send-and-exit -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-f 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 Followup-To -C-c C-t message-insert-to (add a To header to a news followup) -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-r message-ceasar-buffer-body (rot13 the message body)." t nil) - -(autoload 'message-mail "message" "\ -Start editing a mail message to be sent." t nil) - -(autoload 'message-news "message" "\ -Start editing a news article to be sent." t nil) - -(autoload 'message-reply "message" "\ -Start editing a reply to the article in the current buffer." t nil) - -(autoload 'message-wide-reply "message" nil t nil) - -(autoload 'message-followup "message" nil t nil) - -(autoload 'message-cancel-news "message" "\ -Cancel an article you posted." 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." t nil) - -(autoload 'message-recover "message" "\ -Reread contents of current buffer from its last auto-save file." t nil) - -(autoload 'message-forward "message" "\ -Forward the current message via mail. -Optional NEWS will use news to forward instead of mail." t nil) - -(autoload 'message-resend "message" "\ -Resend the current article to ADDRESS." t nil) - -(autoload 'message-bounce "message" "\ -Re-mail the current message. -This only makes sense if the current message is a bounce message than -contains some mail you have written which has been bounced back to -you." t nil) - -(autoload 'message-mail-other-window "message" "\ -Like `message-mail' command, but display mail buffer in another window." t nil) - -(autoload 'message-mail-other-frame "message" "\ -Like `message-mail' command, but display mail buffer in another frame." t nil) - -(autoload 'message-news-other-window "message" "\ -Start editing a news article to be sent." t nil) - -(autoload 'message-news-other-frame "message" "\ -Start editing a news article to be sent." t nil) - -(autoload '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." t nil) - -(autoload '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." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "messagexmas" "gnus/messagexmas.el" (12984 29539)) -;;; Generated autoloads from gnus/messagexmas.el - -;;;*** - -;;;### (autoloads nil "messcompat" "gnus/messcompat.el" (12984 29539)) -;;; Generated autoloads from gnus/messcompat.el - -;;;*** - -;;;### (autoloads nil "nnbabyl" "gnus/nnbabyl.el" (12984 29537)) -;;; Generated autoloads from gnus/nnbabyl.el - -;;;*** - -;;;### (autoloads nil "nndb" "gnus/nndb.el" (12984 29538)) -;;; Generated autoloads from gnus/nndb.el - -;;;*** - -;;;### (autoloads nil "nndir" "gnus/nndir.el" (12984 29537)) -;;; Generated autoloads from gnus/nndir.el - -;;;*** - -;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (12984 29537)) -;;; Generated autoloads from gnus/nndoc.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "nndraft" "gnus/nndraft.el" (12984 29539)) -;;; Generated autoloads from gnus/nndraft.el - -;;;*** - -;;;### (autoloads nil "nneething" "gnus/nneething.el" (12984 29537)) -;;; Generated autoloads from gnus/nneething.el - -;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el" (12984 29537)) -;;; 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." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "nnheader" "gnus/nnheader.el" (12984 29537)) -;;; Generated autoloads from gnus/nnheader.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "nnheaderxm" "gnus/nnheaderxm.el" (12984 29539)) -;;; Generated autoloads from gnus/nnheaderxm.el - -;;;*** - -;;;### (autoloads (nnkiboze-generate-groups) "nnkiboze" "gnus/nnkiboze.el" (12984 29537)) -;;; Generated autoloads from gnus/nnkiboze.el - -(autoload 'nnkiboze-generate-groups "nnkiboze" "\ -Usage: emacs -batch -l nnkiboze -f nnkiboze-generate-groups -Finds out what articles are to be part of the nnkiboze groups." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "nnmail" "gnus/nnmail.el" (12984 29537)) -;;; Generated autoloads from gnus/nnmail.el - -;;;*** - -;;;### (autoloads nil "nnmbox" "gnus/nnmbox.el" (12984 29537)) -;;; Generated autoloads from gnus/nnmbox.el - -;;;*** - -;;;### (autoloads nil "nnmh" "gnus/nnmh.el" (12984 29536)) -;;; Generated autoloads from gnus/nnmh.el - -;;;*** - -;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el" (12984 29537)) -;;; Generated autoloads from gnus/nnml.el - -(autoload 'nnml-generate-nov-databases "nnml" "\ -Generate nov databases in all nnml directories." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "nnoo" "gnus/nnoo.el" (12984 29538)) -;;; Generated autoloads from gnus/nnoo.el - -;;;### (autoloads (nnsoup-revert-variables nnsoup-set-variables nnsoup-pack-replies) "nnsoup" "gnus/nnsoup.el" (12984 29538)) -;;; Generated autoloads from gnus/nnsoup.el - -(autoload 'nnsoup-pack-replies "nnsoup" "\ -Make an outbound package of SOUP replies." t nil) - -(autoload 'nnsoup-set-variables "nnsoup" "\ -Use the SOUP methods for posting news and mailing mail." t nil) - -(autoload 'nnsoup-revert-variables "nnsoup" "\ -Revert posting and mailing methods to the standard Emacs methods." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "nnspool" "gnus/nnspool.el" (12984 29536)) -;;; Generated autoloads from gnus/nnspool.el - -;;;*** - -;;;### (autoloads nil "nntp" "gnus/nntp.el" (12984 29536)) -;;; Generated autoloads from gnus/nntp.el - -;;;*** - -;;;### (autoloads nil "nnvirtual" "gnus/nnvirtual.el" (12984 29537)) -;;; Generated autoloads from gnus/nnvirtual.el - -;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el" (12984 29538)) -;;; 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}" t nil) - -;;;*** - -;;;### (autoloads (gnus-smiley-display smiley-buffer smiley-region) "smiley" "gnus/smiley.el" (12984 29539)) -;;; Generated autoloads from gnus/smiley.el - -(autoload 'smiley-region "smiley" "\ -Smilify the region between point and mark." t nil) - -(autoload 'smiley-buffer "smiley" nil t nil) - -(autoload 'gnus-smiley-display "smiley" nil t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "adapt" "hm--html-menus/adapt.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/adapt.el - -;;;*** - -;;;### (autoloads nil "hm--date" "hm--html-menus/hm--date.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/hm--date.el - -;;;*** - -;;;### (autoloads nil "hm--html-configuration" "hm--html-menus/hm--html-configuration.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/hm--html-configuration.el - -;;;*** - -;;;### (autoloads nil "hm--html-drag-and-drop" "hm--html-menus/hm--html-drag-and-drop.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/hm--html-drag-and-drop.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "hm--html-keys" "hm--html-menus/hm--html-keys.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/hm--html-keys.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "hm--html-menu" "hm--html-menus/hm--html-menu.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/hm--html-menu.el - -;;;*** - -;;;### (autoloads (hm--html-minor-mode hm--html-mode) "hm--html-mode" "hm--html-menus/hm--html-mode.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/hm--html-mode.el - -(autoload 'hm--html-mode "hm--html-mode" "\ -Major mode for editing HTML hypertext documents. -Special commands:\\{hm--html-mode-map} -Turning on hm--html-mode calls the value of the variable hm--html-mode-hook, -if that value is non-nil." t nil) - -(autoload 'hm--html-minor-mode "hm--html-mode" "\ -Toggle hm--html-minor-mode. -With arg, turn hm--html-minor-mode on iff arg is positive." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "hm--html" "hm--html-menus/hm--html.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/hm--html.el - -;;;### (autoloads (html-view-get-display html-view-goto-url html-view-view-buffer html-view-view-file html-view-start-mosaic) "html-view" "hm--html-menus/html-view.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/html-view.el - -(autoload 'html-view-start-mosaic "html-view" "\ -Start Mosaic." t nil) - -(autoload 'html-view-view-file "html-view" "\ -View an html file with Mosaic." t nil) - -(autoload 'html-view-view-buffer "html-view" "\ -View html buffer with Mosaic. -If BUFFER-TO-VIEW is nil, then the current buffer is used." t nil) - -(autoload 'html-view-goto-url "html-view" "\ -Goto an URL in Mosaic." t nil) - -(autoload 'html-view-get-display "html-view" "\ -Get the display for Mosaic." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "internal-drag-and-drop" "hm--html-menus/internal-drag-and-drop.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/internal-drag-and-drop.el - -;;;*** - -;;;### (autoloads nil "tmpl-minor-mode" "hm--html-menus/tmpl-minor-mode.el" (12984 29576)) -;;; Generated autoloads from hm--html-menus/tmpl-minor-mode.el - -;;;*** - -;;;### (autoloads nil "hact" "hyperbole/hact.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hact.el - -;;;*** - -;;;### (autoloads nil "hactypes" "hyperbole/hactypes.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hactypes.el - -;;;*** - -;;;### (autoloads nil "hargs" "hyperbole/hargs.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hargs.el - -;;;*** - -;;;### (autoloads nil "hbdata" "hyperbole/hbdata.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hbdata.el - -;;;*** - -;;;### (autoloads nil "hbmap" "hyperbole/hbmap.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hbmap.el - -;;;*** - -;;;### (autoloads nil "hbut" "hyperbole/hbut.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hbut.el - -;;;*** - -;;;### (autoloads nil "hgnus" "hyperbole/hgnus.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hgnus.el - -;;;*** - -;;;### (autoloads nil "hhist" "hyperbole/hhist.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hhist.el - -;;;*** - -;;;### (autoloads nil "hib-doc-id" "hyperbole/hib-doc-id.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hib-doc-id.el - -;;;*** - -;;;### (autoloads nil "hib-kbd" "hyperbole/hib-kbd.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hib-kbd.el - -;;;*** - -;;;### (autoloads nil "hibtypes" "hyperbole/hibtypes.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hibtypes.el - -;;;*** - -;;;### (autoloads nil "hinit" "hyperbole/hinit.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hinit.el - -;;;*** - -;;;### (autoloads nil "hlvar" "hyperbole/hlvar.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hlvar.el - -;;;*** - -;;;### (autoloads (hmail:compose) "hmail" "hyperbole/hmail.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hmail.el - -(autoload 'hmail:compose "hmail" "\ -Compose mail with ADDRESS and evaluation of EXPR. -Optional SUBJECT and HELP message may also be given." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "hmh" "hyperbole/hmh.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hmh.el - -;;;*** - -;;;### (autoloads nil "hmoccur" "hyperbole/hmoccur.el" (12984 29571)) -;;; Generated autoloads from hyperbole/hmoccur.el - -;;;*** - -;;;### (autoloads (Info-handle-in-note smart-info-assist smart-info) "hmous-info" "hyperbole/hmous-info.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hmous-info.el - -(autoload 'smart-info "hmous-info" "\ -Walks through Info documentation networks using one key or mouse key. - -If key is pressed within: - (1) the first line of an Info Menu Entry or Cross Reference, the desired node - is found; - (2) the Up, Next, or Previous entries of a Node Header (first line), - the desired node is found; - (3) the File entry of a Node Header (first line), - the 'Top' node within that file is found; - (4) at the end of the current node, the Next node is found (this will - descend subtrees if the function 'Info-global-next' is bound); - (5) anywhere else (e.g. at the end of a line), the current node entry is - scrolled up one windowful. - -Returns t if key is pressed within an Info Node Header, Cross Reference, -or a Menu; otherwise returns nil." t nil) - -(autoload 'smart-info-assist "hmous-info" "\ -Walks through Info documentation networks using one assist-key or mouse assist-key. - -If assist-key is pressed within: - (1) the first line of an Info Menu Entry or Cross Reference, the desired node - is found; - (2) the Up, Next, or Previous entries of a Node Header (first line), - the last node in the history list is found; - (3) the File entry of a Node Header (first line), - the 'DIR' root-level node is found; - (4) at the end of the current node, the Previous node is found (this will - return from subtrees if the function 'Info-global-prev is bound); - (5) anywhere else (e.g. at the end of a line), the current node entry is - scrolled down one windowful. - -Returns t if assist-key is pressed within an Info Node Header, Cross Reference, -or a Menu; otherwise returns nil." t nil) - -(autoload 'Info-handle-in-note "hmous-info" "\ -Follows an Info cross-reference. -If point is within the first line of an Info note (cross-reference), follows -cross-reference and returns t; otherwise returns nil." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "hmouse-drv" "hyperbole/hmouse-drv.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hmouse-drv.el - -;;;*** - -;;;### (autoloads nil "hmouse-key" "hyperbole/hmouse-key.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hmouse-key.el - -;;;*** - -;;;### (autoloads nil "hmouse-mod" "hyperbole/hmouse-mod.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hmouse-mod.el - -;;;*** - -;;;### (autoloads nil "hmouse-reg" "hyperbole/hmouse-reg.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hmouse-reg.el - -;;;*** - -;;;### (autoloads nil "hmouse-sh" "hyperbole/hmouse-sh.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hmouse-sh.el - -;;;*** - -;;;### (autoloads (smart-tags-file smart-tags-file-path smart-objc-oobr smart-objc smart-fortran-at-tag-p smart-c++-oobr smart-c++ smart-c-at-tag-p smart-asm-at-tag-p) "hmouse-tag" "hyperbole/hmouse-tag.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hmouse-tag.el - -(autoload 'smart-asm-at-tag-p "hmouse-tag" "\ -Return assembly tag name that point is within, else nil." nil nil) - -(autoload 'smart-c-at-tag-p "hmouse-tag" "\ -Return C tag name that point is within, else nil." nil nil) - -(autoload 'smart-c++ "hmouse-tag" "\ -Jumps to the definition of optional C++ IDENTIFIER or the one at point. -Optional second arg NEXT means jump to next matching C++ tag. - -It assumes that its caller has already checked that the key was pressed in an -appropriate buffer and has moved the cursor to the selected buffer. - -If: - (1) on a '#include' statement, the include file is displayed; - Look for include file in directory lists 'smart-c-cpp-include-dirs' - and 'smart-c-include-dirs'. - (2) on a C++ identifier, the identifier definition is displayed, - assuming the identifier is found within an 'etags' generated tag file - in the current directory or any of its ancestor directories. - (3) if 'smart-c-use-lib-man' is non-nil, the C++ identifier is - recognized as a library symbol, and a man page is found for the - identifier, then the man page is displayed." t nil) - -(autoload 'smart-c++-oobr "hmouse-tag" "\ -Jumps to the definition of selected C++ construct via OO-Browser support. -Optional JUNK is ignored. Does nothing if the OO-Browser is not available. - -It assumes that its caller has already checked that the key was pressed in an -appropriate buffer and has moved the cursor to the selected buffer. - -If key is pressed: - (1) on a '#include' statement, the include file is displayed; - Look for include file in directory lists 'smart-c-cpp-include-dirs' - and 'smart-c-include-dirs'. - (2) within a method declaration, its definition is displayed; - (3) on a class name, the class definition is shown. - - (2) and (3) require that an OO-Browser Environment has been loaded with - the {M-x br-env-load RTN} command." t nil) - -(autoload 'smart-fortran-at-tag-p "hmouse-tag" "\ -Return Fortran tag name that point is within, else nil." nil nil) - -(autoload 'smart-objc "hmouse-tag" "\ -Jumps to the definition of optional Objective-C IDENTIFIER or the one at point. -Optional second arg NEXT means jump to next matching Objective-C tag. - -It assumes that its caller has already checked that the key was pressed in an -appropriate buffer and has moved the cursor to the selected buffer. - -If: - (1) on a '#include' statement, the include file is displayed; - Look for include file in directory lists 'smart-c-cpp-include-dirs' - and 'smart-c-include-dirs'. - (2) on an Objective-C identifier, the identifier definition is displayed, - assuming the identifier is found within an 'etags' generated tag file - in the current directory or any of its ancestor directories. - (3) if 'smart-c-use-lib-man' is non-nil, the Objective-C identifier is - recognized as a library symbol, and a man page is found for the - identifier, then the man page is displayed." t nil) - -(autoload 'smart-objc-oobr "hmouse-tag" "\ -Jumps to the definition of selected Objective-C construct via OO-Browser support. -Optional JUNK is ignored. Does nothing if the OO-Browser is not available. - -It assumes that its caller has already checked that the key was pressed in an -appropriate buffer and has moved the cursor to the selected buffer. - -If key is pressed: - (1) on a '#include' statement, the include file is displayed; - Look for include file in directory lists 'smart-c-cpp-include-dirs' - and 'smart-c-include-dirs'. - (2) within a method declaration, its definition is displayed; - (3) on a class name, the class definition is shown. - - (2) and (3) require that an OO-Browser Environment has been loaded with - the {M-x br-env-load RTN} command." t nil) - -(autoload 'smart-tags-file-path "hmouse-tag" "\ -Expand relative FILE name by looking it up in the nearest tags file. -Return FILE unchanged if it exists relative to the current directory or -cannot be expanded via a tags file." nil nil) - -(autoload 'smart-tags-file "hmouse-tag" "\ -Return appropriate tags file name for CURR-FILENAME or 'tags-file-name'." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "hpath" "hyperbole/hpath.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hpath.el - -;;;*** - -;;;### (autoloads nil "hrmail" "hyperbole/hrmail.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hrmail.el - -;;;*** - -;;;### (autoloads nil "hsite-ex" "hyperbole/hsite-ex.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hsite-ex.el - -;;;*** - -;;;### (autoloads nil "hsite" "hyperbole/hsite.el" (12984 29574)) -;;; Generated autoloads from hyperbole/hsite.el - -;;;*** - -;;;### (autoloads nil "hsmail" "hyperbole/hsmail.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hsmail.el - -;;;*** - -;;;### (autoloads nil "hsys-hbase" "hyperbole/hsys-hbase.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hsys-hbase.el - -;;;*** - -;;;### (autoloads nil "hsys-w3" "hyperbole/hsys-w3.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hsys-w3.el - -;;;*** - -;;;### (autoloads nil "hsys-wais" "hyperbole/hsys-wais.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hsys-wais.el - -;;;*** - -;;;### (autoloads nil "hsys-www" "hyperbole/hsys-www.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hsys-www.el - -;;;*** - -;;;### (autoloads nil "htz" "hyperbole/htz.el" (12984 29571)) -;;; Generated autoloads from hyperbole/htz.el - -;;;*** - -;;;### (autoloads nil "hui-em19-b" "hyperbole/hui-em19-b.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hui-em19-b.el - -;;;*** - -;;;### (autoloads nil "hui-ep-but" "hyperbole/hui-ep-but.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hui-ep-but.el - -;;;*** - -;;;### (autoloads nil "hui-epV4-b" "hyperbole/hui-epV4-b.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hui-epV4-b.el - -;;;*** - -;;;### (autoloads nil "hui-menu" "hyperbole/hui-menu.el" (12984 29574)) -;;; Generated autoloads from hyperbole/hui-menu.el - -;;;*** - -;;;### (autoloads nil "hui-mini" "hyperbole/hui-mini.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hui-mini.el - -;;;*** - -;;;### (autoloads nil "hui-mouse" "hyperbole/hui-mouse.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hui-mouse.el - -;;;*** - -;;;### (autoloads nil "hui-window" "hyperbole/hui-window.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hui-window.el - -;;;*** - -;;;### (autoloads nil "hui-xe-but" "hyperbole/hui-xe-but.el" (12984 29573)) -;;; Generated autoloads from hyperbole/hui-xe-but.el - -;;;*** - -;;;### (autoloads nil "hui" "hyperbole/hui.el" (12984 29572)) -;;; Generated autoloads from hyperbole/hui.el - -;;;*** - -;;;### (autoloads (var:append) "hvar" "hyperbole/hvar.el" (12984 29573)) -;;; Generated autoloads from hyperbole/hvar.el - -(autoload 'var:append "hvar" "\ -Appends to value held by VAR-SYMBOL-NAME, LIST-TO-ADD. Returns new value. -If VAR-SYMBOL-NAME is unbound, it is set to LIST-TO-ADD. -Often used to append to 'hook' variables." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "hversion" "hyperbole/hversion.el" (12984 29573)) -;;; Generated autoloads from hyperbole/hversion.el - -;;;*** - -;;;### (autoloads nil "hvm" "hyperbole/hvm.el" (12984 29573)) -;;; Generated autoloads from hyperbole/hvm.el - -;;;### (autoloads (hypb:configuration) "hypb" "hyperbole/hypb.el" (12984 29573)) -;;; Generated autoloads from hyperbole/hypb.el - -(autoload 'hypb:configuration "hypb" "\ -Insert Emacs configuration information at the end of optional OUT-BUF or the current buffer." nil nil) - -;;;*** - -;;;### (autoloads nil "hyperbole" "hyperbole/hyperbole.el" (12984 29573)) -;;; Generated autoloads from hyperbole/hyperbole.el - -(defvar action-key-url-function 'w3-fetch "\ -Value is a function of one argument, a url, which displays the url referent. -Possible values are: - w3-fetch - display using the W3 Emacs web browser; - highlight-headers-follow-url-netscape - display in Netscape; - highlight-headers-follow-url-mosaic - display in Mosaic.") - -(defvar kimport:mode-alist '((t . kimport:text) (outline-mode . kimport:star-outline)) "\ -Alist of (major-mode . importation-function) elements. -This determines the type of importation done on a file when `kimport:file' is -called if the major mode of the import file matches the car of an element in -this list. If there is no match, then `kimport:suffix-alist' is checked. If -that yields no match, the element in this list whose car is 't is used. It -normally does an import of a koutline or text file. - -Each importation-function must take two arguments, a buffer/file to import -and a buffer/file into which to insert the imported elements and a third -optional argument, CHILDREN-P, which when non-nil means insert imported cells -as the initial set of children of the current cell, if any. - - outline-mode - imported as an Emacs outline whose entries begin with - asterisks; - .kot - .kotl - imported as a structured koutline - - all others - imported as text.") - -(defvar kimport:suffix-alist '(("\\.otl$" . kimport:star-outline) ("\\.aug$" . kimport:aug-post-outline)) "\ -Alist of (buffer-name-suffix-regexp . importation-function) elements. -This determines the type of importation done on a file when `kimport:file' is -called. Each importation-function must take two arguments, a buffer/file to -import and a buffer/file into which to insert the imported elements and a -third optional argument, CHILDREN-P, which when non-nil means insert imported -cells as the initial set of children of the current cell, if any. - - .otl - imported as an Emacs outline whose entries begin with asterisks; - .kot - .kotl - imported as a structured koutline - .aug - imported as an Augment post-numbered outline.") - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "set" "hyperbole/set.el" (12984 29573)) -;;; Generated autoloads from hyperbole/set.el - -;;;### (autoloads (wconfig-yank-pop wconfig-ring-save wconfig-delete-pop wconfig-restore-by-name wconfig-delete-by-name wconfig-add-by-name) "wconfig" "hyperbole/wconfig.el" (12984 29573)) -;;; Generated autoloads from hyperbole/wconfig.el - -(autoload 'wconfig-add-by-name "wconfig" "\ -Saves the current window configuration under the string NAME. -When called interactively and a window configuration already exists under -NAME, confirms whether or not to replace it." t nil) - -(autoload 'wconfig-delete-by-name "wconfig" "\ -Deletes window configuration saved under NAME." t nil) - -(autoload 'wconfig-restore-by-name "wconfig" "\ -Restores window configuration saved under NAME." t nil) - -(autoload 'wconfig-delete-pop "wconfig" "\ -Replaces current window config with most recently saved config in ring. -Then deletes this new configuration from the ring." t nil) - -(autoload 'wconfig-ring-save "wconfig" "\ -Saves the current window configuration onto the save ring. -Use {\\[wconfig-yank-pop]} to restore it at a later time." t nil) - -(autoload 'wconfig-yank-pop "wconfig" "\ -Replaces current window config with prefix arg Nth prior one in save ring. -Interactively, default value of N = 1, meaning the last saved window -configuration is displayed. - -The sequence of window configurations wraps around, so that after the oldest -one comes the newest one." t nil) - -;;;*** - -;;;### (autoloads (rolo-logic) "wrolo-logic" "hyperbole/wrolo-logic.el" (12984 29573)) -;;; Generated autoloads from hyperbole/wrolo-logic.el - -(autoload 'rolo-logic "wrolo-logic" "\ -Apply FUNC to all entries in optional IN-BUFS, display entries where FUNC is non-nil. -If IN-BUFS is nil, 'rolo-file-list' is used. If optional COUNT-ONLY is -non-nil, don't display entries, return count of matching entries only. If -optional INCLUDE-SUB-ENTRIES flag is non-nil, FUNC will be applied across all -sub-entries at once. Default is to apply FUNC to each entry and sub-entry -separately. Entries are displayed with all of their sub-entries unless -INCLUDE-SUB-ENTRIES is nil and optional NO-SUB-ENTRIES-OUT flag is non-nil. -FUNC should use the free variables 'start' and 'end' which contain the limits -of the region on which it should operate. Returns number of applications of -FUNC that return non-nil." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "wrolo-menu" "hyperbole/wrolo-menu.el" (12984 29574)) -;;; Generated autoloads from hyperbole/wrolo-menu.el - -;;;*** - -;;;### (autoloads (rolo-yank rolo-sort rolo-kill rolo-grep rolo-fgrep rolo-edit rolo-display-matches rolo-add) "wrolo" "hyperbole/wrolo.el" (12984 29573)) -;;; Generated autoloads from hyperbole/wrolo.el - -(autoload 'rolo-add "wrolo" "\ -Adds a new entry in personal rolodex for NAME. -Last name first is best, e.g. \"Smith, John\". -With prefix argument, prompts for optional FILE to add entry within. -NAME may be of the form: parent/child to insert child below a parent -entry which begins with the parent string." t nil) - -(autoload 'rolo-display-matches "wrolo" "\ -Display optional DISPLAY-BUF buffer of previously found rolodex matches. -If DISPLAY-BUF is nil, use the value in 'rolo-display-buffer'. -Second arg RETURN-TO-BUFFER is the buffer to leave point within after the display." t nil) - -(autoload 'rolo-edit "wrolo" "\ -Edits a rolodex entry given by optional NAME within 'rolo-file-list'. -With prefix argument, prompts for optional FILE to locate entry within. -With no NAME arg, simply displays FILE or first entry in 'rolo-file-list' in an -editable mode. NAME may be of the form: parent/child to edit child below a -parent entry which begins with the parent string." t nil) - -(autoload 'rolo-fgrep "wrolo" "\ -Display rolodex entries matching STRING. -To a maximum of optional prefix arg MAX-MATCHES, in file(s) from optional -ROLO-FILE or rolo-file-list. Default is to find all matching entries. Each -entry is displayed with all of its sub-entries. Optional COUNT-ONLY non-nil -means don't retrieve and don't display matching entries. Optional NO-DISPLAY -non-nil means retrieve entries but don't display. - -Nil value of MAX-MATCHES means find all matches, t value means find all matches -but omit file headers, negative values mean find up to the inverse of that -number of entries and omit file headers. - -Returns number of entries matched. See also documentation for the variable -rolo-file-list." t nil) - -(autoload 'rolo-grep "wrolo" "\ -Display rolodex entries matching REGEXP. -To a maximum of prefix arg MAX-MATCHES, in buffer(s) from optional ROLO-BUFS or -rolo-file-list. Default is to find all matching entries. Each entry is -displayed with all of its sub-entries. Optional COUNT-ONLY non-nil means don't -retrieve and don't display matching entries. Optional NO-DISPLAY non-nil -means retrieve entries but don't display. - -Nil value of MAX-MATCHES means find all matches, t value means find all matches -but omit file headers, negative values mean find up to the inverse of that -number of entries and omit file headers. - -Returns number of entries matched. See also documentation for the variable -rolo-file-list." t nil) - -(autoload 'rolo-kill "wrolo" "\ -Kills a rolodex entry given by NAME within 'rolo-file-list'. -With prefix argument, prompts for optional FILE to locate entry within. -NAME may be of the form: parent/child to kill child below a parent entry -which begins with the parent string. -Returns t if entry is killed, nil otherwise." t nil) - -(autoload 'rolo-sort "wrolo" "\ -Sorts up to 14 levels of entries in ROLO-FILE (default is personal rolo). -Assumes entries are delimited by one or more '*'characters. -Returns list of number of groupings at each entry level." t nil) - -(autoload 'rolo-yank "wrolo" "\ -Inserts at point the first rolodex entry matching NAME. -With optional prefix arg, REGEXP-P, treats NAME as a regular expression instead -of a string." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "bridge" "ilisp/bridge.el" (12984 29539)) -;;; Generated autoloads from ilisp/bridge.el - -;;;*** - -;;;### (autoloads nil "comint-ipc" "ilisp/comint-ipc.el" (12984 29539)) -;;; Generated autoloads from ilisp/comint-ipc.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "comint-v18" "ilisp/comint-v18.el" (12984 29539)) -;;; Generated autoloads from ilisp/comint-v18.el - -;;;*** - -;;;### (autoloads nil "completer" "ilisp/completer.el" (12984 29539)) -;;; Generated autoloads from ilisp/completer.el - -;;;*** - -;;;### (autoloads nil "completer.new" "ilisp/completer.new.el" (12984 29541)) -;;; Generated autoloads from ilisp/completer.new.el - -;;;*** - -;;;### (autoloads nil "completer.no-fun" "ilisp/completer.no-fun.el" (12984 29541)) -;;; Generated autoloads from ilisp/completer.no-fun.el - -;;;*** - -;;;### (autoloads nil "ilcompat" "ilisp/ilcompat.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilcompat.el - -;;;*** - -;;;### (autoloads nil "ilfsf18" "ilisp/ilfsf18.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilfsf18.el - -;;;*** - -;;;### (autoloads nil "ilfsf19" "ilisp/ilfsf19.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilfsf19.el - -;;;*** - -;;;### (autoloads nil "ilisp-acl" "ilisp/ilisp-acl.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-acl.el - -;;;*** - -;;;### (autoloads nil "ilisp-aut" "ilisp/ilisp-aut.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-aut.el - -;;;*** - -;;;### (autoloads nil "ilisp-bat" "ilisp/ilisp-bat.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp-bat.el - -;;;*** - -;;;### (autoloads nil "ilisp-bug" "ilisp/ilisp-bug.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp-bug.el - -;;;*** - -;;;### (autoloads nil "ilisp-chs" "ilisp/ilisp-chs.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-chs.el - -;;;*** - -;;;### (autoloads nil "ilisp-cl" "ilisp/ilisp-cl.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp-cl.el - -;;;*** - -;;;### (autoloads nil "ilisp-cmp" "ilisp/ilisp-cmp.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-cmp.el - -;;;*** - -;;;### (autoloads nil "ilisp-cmt" "ilisp/ilisp-cmt.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-cmt.el - -;;;*** - -;;;### (autoloads nil "ilisp-cmu" "ilisp/ilisp-cmu.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-cmu.el - -;;;*** - -;;;### (autoloads nil "ilisp-cpat" "ilisp/ilisp-cpat.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp-cpat.el - -;;;*** - -;;;### (autoloads nil "ilisp-def" "ilisp/ilisp-def.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-def.el - -;;;*** - -;;;### (autoloads nil "ilisp-dia" "ilisp/ilisp-dia.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-dia.el - -;;;*** - -;;;### (autoloads nil "ilisp-doc" "ilisp/ilisp-doc.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-doc.el - -;;;*** - -;;;### (autoloads nil "ilisp-el" "ilisp/ilisp-el.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-el.el - -;;;*** - -;;;### (autoloads nil "ilisp-ext" "ilisp/ilisp-ext.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp-ext.el - -;;;*** - -;;;### (autoloads nil "ilisp-hi" "ilisp/ilisp-hi.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-hi.el - -;;;*** - -;;;### (autoloads nil "ilisp-hlw" "ilisp/ilisp-hlw.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-hlw.el - -;;;*** - -;;;### (autoloads nil "ilisp-hnd" "ilisp/ilisp-hnd.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-hnd.el - -;;;*** - -;;;### (autoloads nil "ilisp-ind" "ilisp/ilisp-ind.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-ind.el - -;;;*** - -;;;### (autoloads nil "ilisp-inp" "ilisp/ilisp-inp.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-inp.el - -;;;*** - -;;;### (autoloads nil "ilisp-kcl" "ilisp/ilisp-kcl.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-kcl.el - -;;;*** - -;;;### (autoloads nil "ilisp-key" "ilisp/ilisp-key.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-key.el - -;;;*** - -;;;### (autoloads nil "ilisp-kil" "ilisp/ilisp-kil.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-kil.el - -;;;*** - -;;;### (autoloads nil "ilisp-low" "ilisp/ilisp-low.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-low.el - -;;;*** - -;;;### (autoloads nil "ilisp-luc" "ilisp/ilisp-luc.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-luc.el - -;;;*** - -;;;### (autoloads nil "ilisp-mak" "ilisp/ilisp-mak.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp-mak.el - -;;;*** - -;;;### (autoloads nil "ilisp-menu" "ilisp/ilisp-menu.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp-menu.el - -;;;*** - -;;;### (autoloads nil "ilisp-mnb" "ilisp/ilisp-mnb.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-mnb.el - -;;;*** - -;;;### (autoloads nil "ilisp-mod" "ilisp/ilisp-mod.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-mod.el - -;;;*** - -;;;### (autoloads nil "ilisp-mov" "ilisp/ilisp-mov.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-mov.el - -;;;*** - -;;;### (autoloads nil "ilisp-out" "ilisp/ilisp-out.el" (12988 19693)) -;;; Generated autoloads from ilisp/ilisp-out.el - -;;;*** - -;;;### (autoloads nil "ilisp-prc" "ilisp/ilisp-prc.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-prc.el - -;;;*** - -;;;### (autoloads nil "ilisp-prn" "ilisp/ilisp-prn.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-prn.el - -;;;*** - -;;;### (autoloads nil "ilisp-rng" "ilisp/ilisp-rng.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-rng.el - -;;;*** - -;;;### (autoloads nil "ilisp-s2c" "ilisp/ilisp-s2c.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp-s2c.el - -;;;*** - -;;;### (autoloads nil "ilisp-sch" "ilisp/ilisp-sch.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-sch.el - -;;;*** - -;;;### (autoloads nil "ilisp-snd" "ilisp/ilisp-snd.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-snd.el - -;;;*** - -;;;### (autoloads nil "ilisp-src" "ilisp/ilisp-src.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp-src.el - -;;;*** - -;;;### (autoloads nil "ilisp-sym" "ilisp/ilisp-sym.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-sym.el - -;;;*** - -;;;### (autoloads nil "ilisp-utl" "ilisp/ilisp-utl.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-utl.el - -;;;*** - -;;;### (autoloads nil "ilisp-val" "ilisp/ilisp-val.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-val.el - -;;;*** - -;;;### (autoloads nil "ilisp-xfr" "ilisp/ilisp-xfr.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-xfr.el - -;;;*** - -;;;### (autoloads nil "ilisp-xls" "ilisp/ilisp-xls.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilisp-xls.el - -;;;*** - -;;;### (autoloads nil "ilisp" "ilisp/ilisp.el" (12984 29539)) -;;; Generated autoloads from ilisp/ilisp.el - -;;;*** - -;;;### (autoloads nil "illuc19" "ilisp/illuc19.el" (12984 29540)) -;;; Generated autoloads from ilisp/illuc19.el - -;;;*** - -;;;### (autoloads nil "ilxemacs" "ilisp/ilxemacs.el" (12984 29540)) -;;; Generated autoloads from ilisp/ilxemacs.el - -;;;*** - -;;;### (autoloads (iso-accents-mode) "iso-acc" "iso/iso-acc.el" (12984 29567)) -;;; Generated autoloads from iso/iso-acc.el - -(autoload 'iso-accents-mode "iso-acc" "\ -Toggle ISO Accents mode, in which accents modify the following letter. -This permits easy insertion of accented characters according to ISO-8859-1. -When Iso-accents mode is enabled, accent character keys -\(`, ', \", ^, / and ~) do not self-insert; instead, they modify the following -letter key so that it inserts an ISO accented letter. - -You can customize ISO Accents mode to a particular language -with the command `iso-accents-customize'. - -Special combinations: ~c gives a c with cedilla, -~d gives an Icelandic eth (d with dash). -~t gives an Icelandic thorn. -\"s gives German sharp s. -/a gives a with ring. -/e gives an a-e ligature. -~< and ~> give guillemots. -~! gives an inverted exclamation mark. -~? gives an inverted question mark. - -With an argument, a positive argument enables ISO Accents mode, -and a negative argument disables it." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "iso-ascii" "iso/iso-ascii.el" (12984 29566)) -;;; Generated autoloads from iso/iso-ascii.el - -;;;*** - -;;;### (autoloads nil "iso-cvt" "iso/iso-cvt.el" (12984 29567)) -;;; Generated autoloads from iso/iso-cvt.el - -;;;*** - -;;;### (autoloads nil "iso-insert" "iso/iso-insert.el" (12984 29567)) -;;; Generated autoloads from iso/iso-insert.el - -;;;*** - -;;;### (autoloads nil "iso-swed" "iso/iso-swed.el" (12984 29567)) -;;; Generated autoloads from iso/iso-swed.el - -;;;*** - -;;;### (autoloads nil "iso-syntax" "iso/iso-syntax.el" (12984 29567)) -;;; Generated autoloads from iso/iso-syntax.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "iso8859-1" "iso/iso8859-1.el" (12984 29566)) -;;; Generated autoloads from iso/iso8859-1.el - -;;;*** - -;;;### (autoloads nil "swedish" "iso/swedish.el" (12984 29567)) -;;; Generated autoloads from iso/swedish.el - -;;;### (autoloads nil "ChangeLog~" "lisp/ChangeLog~" (12967 2939)) -;;; Generated autoloads from lisp/ChangeLog~ - -;;;### (autoloads nil "site-start" "lisp/site-start.el" (12354 5512)) -;;; Generated autoloads from lisp/site-start.el - -;;;### (autoloads (mc-deactivate-passwd mc-install-write-mode mc-install-read-mode) "mailcrypt" "mailcrypt/mailcrypt.el" (12984 29567)) -;;; Generated autoloads from mailcrypt/mailcrypt.el - -(autoload 'mc-install-read-mode "mailcrypt" nil t nil) - -(autoload 'mc-install-write-mode "mailcrypt" nil t nil) - -(autoload 'mc-deactivate-passwd "mailcrypt" "\ -*Deactivate the passphrase cache." t nil) - -;;;*** - -;;;### (autoloads (mc-pgp-fetch-key mc-scheme-pgp) "mc-pgp" "mailcrypt/mc-pgp.el" (12984 29567)) -;;; Generated autoloads from mailcrypt/mc-pgp.el - -(autoload 'mc-scheme-pgp "mc-pgp" nil nil nil) - -(autoload 'mc-pgp-fetch-key "mc-pgp" "\ -Attempt to fetch a key for addition to PGP keyring. Interactively, -prompt for string matching key to fetch. - -Non-interactively, ID must be a pair. The CAR must be a bare Email -address and the CDR a keyID (with \"0x\" prefix). Either, but not -both, may be nil. - -Return t if we think we were successful; nil otherwise. Note that nil -is not necessarily an error, since we may have merely fired off an Email -request for the key." t nil) - -;;;*** - -;;;### (autoloads (mc-remailer-insert-response-block mc-remailer-encrypt-for-chain mc-remailer-insert-pseudonym) "mc-remail" "mailcrypt/mc-remail.el" (12984 29567)) -;;; Generated autoloads from mailcrypt/mc-remail.el - -(autoload 'mc-remailer-insert-pseudonym "mc-remail" "\ -Insert pseudonym as a From field in the hash-mark header. - -See the documentation for the variable `mc-remailer-pseudonyms' for -more information." t nil) - -(autoload 'mc-remailer-encrypt-for-chain "mc-remail" "\ -Encrypt message for a remailer chain, prompting for chain to use. - -With \\[universal-argument], pause before each encryption." t nil) - -(autoload 'mc-remailer-insert-response-block "mc-remail" "\ -Insert response block at point, prompting for chain to use. - -With \\[universal-argument], enter a recursive edit of the innermost -layer of the block before encrypting it." t nil) - -;;;*** - -;;;### (autoloads (mc-mh-snarf-keys mc-mh-verify-signature mc-mh-decrypt-message mc-gnus-decrypt-message mc-gnus-snarf-keys mc-gnus-verify-signature mc-vm-snarf-keys mc-vm-decrypt-message mc-vm-verify-signature mc-rmail-decrypt-message mc-rmail-verify-signature mc-rmail-summary-snarf-keys mc-rmail-summary-decrypt-message mc-rmail-summary-verify-signature mc-snarf-keys mc-snarf mc-insert-public-key mc-verify-signature mc-verify mc-sign-message mc-sign mc-decrypt-message mc-decrypt mc-encrypt-message mc-encrypt mc-cleanup-recipient-headers) "mc-toplev" "mailcrypt/mc-toplev.el" (12984 29567)) -;;; Generated autoloads from mailcrypt/mc-toplev.el - -(autoload 'mc-cleanup-recipient-headers "mc-toplev" nil nil nil) - -(autoload 'mc-encrypt "mc-toplev" "\ -*Encrypt the current buffer. - -Exact behavior depends on current major mode. - -With \\[universal-argument], prompt for User ID to sign as. - -With \\[universal-argument] \\[universal-argument], prompt for encryption scheme to use." t nil) - -(autoload 'mc-encrypt-message "mc-toplev" "\ -*Encrypt a message for RECIPIENTS using the given encryption SCHEME. -RECIPIENTS is a comma separated string. If SCHEME is nil, use the value -of `mc-default-scheme'. Returns t on success, nil otherwise." nil nil) - -(autoload 'mc-decrypt "mc-toplev" "\ -*Decrypt a message in the current buffer. - -Exact behavior depends on current major mode." t nil) - -(autoload 'mc-decrypt-message "mc-toplev" "\ -Decrypt whatever message is in the current buffer. -Returns a pair (SUCCEEDED . VERIFIED) where SUCCEEDED is t if the encryption -succeeded and VERIFIED is t if it had a valid signature." nil nil) - -(autoload 'mc-sign "mc-toplev" "\ -*Sign a message in the current buffer. - -Exact behavior depends on current major mode. - -With one prefix arg, prompts for private key to use, with two prefix args, -also prompts for encryption scheme to use. With negative prefix arg, -inhibits clearsigning (pgp)." t nil) - -(autoload 'mc-sign-message "mc-toplev" "\ -Clear sign the message." nil nil) - -(autoload 'mc-verify "mc-toplev" "\ -*Verify a message in the current buffer. - -Exact behavior depends on current major mode." t nil) - -(autoload 'mc-verify-signature "mc-toplev" "\ -*Verify the signature of the signed message in the current buffer. -Show the result as a message in the minibuffer. Returns t if the signature -is verified." nil nil) - -(autoload 'mc-insert-public-key "mc-toplev" "\ -*Insert your public key at point. -With one prefix arg, prompts for user id to use. With two prefix -args, prompts for encryption scheme." t nil) - -(autoload 'mc-snarf "mc-toplev" "\ -*Add all public keys in the buffer to your keyring. - -Exact behavior depends on current major mode." t nil) - -(autoload 'mc-snarf-keys "mc-toplev" "\ -*Add all public keys in the buffer to your keyring." t nil) - -(autoload 'mc-rmail-summary-verify-signature "mc-toplev" "\ -*Verify the signature in the current message." t nil) - -(autoload 'mc-rmail-summary-decrypt-message "mc-toplev" "\ -*Decrypt the contents of this message" t nil) - -(autoload 'mc-rmail-summary-snarf-keys "mc-toplev" "\ -*Adds keys from current message to public key ring" t nil) - -(autoload 'mc-rmail-verify-signature "mc-toplev" "\ -*Verify the signature in the current message." t nil) - -(autoload 'mc-rmail-decrypt-message "mc-toplev" "\ -*Decrypt the contents of this message" t nil) - -(autoload 'mc-vm-verify-signature "mc-toplev" "\ -*Verify the signature in the current VM message" t nil) - -(autoload 'mc-vm-decrypt-message "mc-toplev" "\ -*Decrypt the contents of the current VM message" t nil) - -(autoload 'mc-vm-snarf-keys "mc-toplev" "\ -*Snarf public key from the contents of the current VM message" t nil) - -(autoload 'mc-gnus-verify-signature "mc-toplev" nil t nil) - -(autoload 'mc-gnus-snarf-keys "mc-toplev" nil t nil) - -(autoload 'mc-gnus-decrypt-message "mc-toplev" nil t nil) - -(autoload 'mc-mh-decrypt-message "mc-toplev" "\ -Decrypt the contents of the current MH message in the show buffer." t nil) - -(autoload 'mc-mh-verify-signature "mc-toplev" "\ -*Verify the signature in the current MH message." t nil) - -(autoload 'mc-mh-snarf-keys "mc-toplev" nil t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "mel-b" "mel/mel-b.el" (12996 50653)) -;;; Generated autoloads from mel/mel-b.el - -;;;*** - -;;;### (autoloads nil "mel-g" "mel/mel-g.el" (12996 50653)) -;;; Generated autoloads from mel/mel-g.el - -;;;*** - -;;;### (autoloads nil "mel-q" "mel/mel-q.el" (12996 50653)) -;;; Generated autoloads from mel/mel-q.el - -;;;*** - -;;;### (autoloads nil "mel-u" "mel/mel-u.el" (12996 50653)) -;;; Generated autoloads from mel/mel-u.el - -;;;*** - -;;;### (autoloads nil "mel" "mel/mel.el" (12996 50653)) -;;; Generated autoloads from mel/mel.el - -;;;### (autoloads (mh-letter-mode mh-smail-other-window mh-smail-batch mh-smail) "mh-comp" "mh-e/mh-comp.el" (12984 29576)) -;;; Generated autoloads from mh-e/mh-comp.el - -(autoload 'mh-smail "mh-comp" "\ -Compose and send mail with the MH mail system. -This function is an entry point to mh-e, the Emacs front end -to the MH mail system. - -See documentation of `\\[mh-send]' for more details on composing mail." t nil) - -(autoload 'mh-smail-batch "mh-comp" "\ -Set up a mail composition draft with the MH mail system. -This function is an entry point to mh-e, the Emacs front end -to 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." nil nil) - -(autoload 'mh-smail-other-window "mh-comp" "\ -Compose and send mail in other window with the MH mail system. -This function is an entry point to mh-e, the Emacs front end -to the MH mail system. - -See documentation of `\\[mh-send]' for more details on composing mail." t nil) - -(autoload 'mh-letter-mode "mh-comp" "\ -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. -See the documentation for \\[mh-edit-mhn] for information on composing MIME -messages. - -\\{mh-letter-mode-map} - -Variables controlling this mode (defaults in parentheses): - - mh-delete-yanked-msg-window (nil) - If non-nil, \\[mh-yank-cur-msg] will delete any windows displaying - the yanked message. - - mh-yank-from-start-of-msg (t) - If non-nil, \\[mh-yank-cur-msg] will include the entire message. - If `body', just yank the body (no header). - If nil, only the portion of the message following the point will be yanked. - If there is a region, this variable is ignored. - - mh-ins-buf-prefix (\"> \") - String to insert before each non-blank line of a message as it is - inserted in a draft letter. - - mh-signature-file-name (\"~/.signature\") - File to be inserted into message by \\[mh-insert-signature]. - -Upon invoking mh-letter-mode, text-mode-hook and mh-letter-mode-hook are -invoked with no args, if those values are non-nil." t nil) - -;;;*** - -;;;### (autoloads (mh-version mh-rmail) "mh-e" "mh-e/mh-e.el" (12984 29577)) -;;; Generated autoloads from mh-e/mh-e.el - -(autoload 'mh-rmail "mh-e" "\ -Inc(orporate) new mail with MH, or, with arg, scan an MH mail folder. -This function is an entry point to mh-e, the Emacs front end -to the MH mail system." t nil) - -(autoload 'mh-version "mh-e" "\ -Display version information about mh-e and the MH mail handling system." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "mh-funcs" "mh-e/mh-funcs.el" (12984 29577)) -;;; Generated autoloads from mh-e/mh-funcs.el - -;;;*** - -;;;### (autoloads nil "mh-mime" "mh-e/mh-mime.el" (12984 29577)) -;;; Generated autoloads from mh-e/mh-mime.el - -(defvar mh-mime-content-types '(("text/plain") ("text/richtext") ("multipart/mixed") ("multipart/alternative") ("multipart/digest") ("multipart/parallel") ("message/rfc822") ("message/partial") ("message/external-body") ("application/octet-stream") ("application/postscript") ("image/jpeg") ("image/gif") ("audio/basic") ("video/mpeg")) "\ -Legal MIME content types. See documentation for \\[mh-edit-mhn].") - -;;;*** - -;;;*** - -;;;### (autoloads nil "mh-pick" "mh-e/mh-pick.el" (12984 29577)) -;;; Generated autoloads from mh-e/mh-pick.el - -;;;*** - -;;;### (autoloads nil "mh-seq" "mh-e/mh-seq.el" (12984 29577)) -;;; Generated autoloads from mh-e/mh-seq.el - -;;;### (autoloads nil "mh-utils" "mh-e/mh-utils.el" (12984 29577)) -;;; Generated autoloads from mh-e/mh-utils.el - -(put 'mh-progs 'risky-local-variable t) - -(put 'mh-lib 'risky-local-variable t) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "abbrev" "modes/abbrev.el" (12984 29541)) -;;; Generated autoloads from modes/abbrev.el - -;;;### (autoloads (ada-make-filename-from-adaname ada-mode) "ada-mode" "modes/ada-mode.el" (12984 29544)) -;;; Generated autoloads from modes/ada-mode.el - -(autoload 'ada-mode "ada-mode" "\ -Ada Mode is the major mode for editing Ada code. - -Bindings are as follows: (Note: 'LFD' is control-j.) - - Indent line '\\[ada-tab]' - Indent line, insert newline and indent the new line. '\\[newline-and-indent]' - - Re-format the parameter-list point is in '\\[ada-format-paramlist]' - Indent all lines in region '\\[ada-indent-region]' - Call external pretty printer program '\\[ada-call-pretty-printer]' - - Adjust case of identifiers and keywords in region '\\[ada-adjust-case-region]' - Adjust case of identifiers and keywords in buffer '\\[ada-adjust-case-buffer]' - - Call EXTERNAL pretty printer (if you have one) '\\[ada-call-pretty-printer]' - - Fill comment paragraph '\\[ada-fill-comment-paragraph]' - Fill comment paragraph and justify each line '\\[ada-fill-comment-paragraph-justify]' - Fill comment paragraph, justify and append postfix '\\[ada-fill-comment-paragraph-postfix]' - - Next func/proc/task '\\[ada-next-procedure]' Previous func/proc/task '\\[ada-previous-procedure]' - Next package '\\[ada-next-package]' Previous package '\\[ada-previous-package]' - - Goto matching start of current 'end ...;' '\\[ada-move-to-start]' - Goto end of current block '\\[ada-move-to-end]' - -Comments are handled using standard GNU Emacs conventions, including: - Start a comment '\\[indent-for-comment]' - Comment region '\\[comment-region]' - Uncomment region '\\[ada-uncomment-region]' - Continue comment on next line '\\[indent-new-comment-line]' - -If you use imenu.el: - Display index-menu of functions & procedures '\\[imenu]' - -If you use find-file.el: - Switch to other file (Body <-> Spec) '\\[ff-find-other-file]' - or '\\[ff-mouse-find-other-file] - Switch to other file in other window '\\[ada-ff-other-window]' - or '\\[ff-mouse-find-other-file-other-window] - If you use this function in a spec and no body is available, it gets created - with body stubs. - -If you use ada-xref.el: - Goto declaration: '\\[ada-point-and-xref]' on the identifier - or '\\[ada-goto-declaration]' with point on the identifier - Complete identifier: '\\[ada-complete-identifier]' - Execute Gnatf: '\\[ada-gnatf-current]'" t nil) - -(autoload 'ada-make-filename-from-adaname "ada-mode" "\ -Determine the filename of a package/procedure from its own Ada name." t nil) - -;;;*** - -;;;### (autoloads (archive-mode) "arc-mode" "modes/arc-mode.el" (12984 29544)) -;;; Generated autoloads from modes/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}" nil nil) - -;;;*** - -;;;### (autoloads (asm-mode) "asm-mode" "modes/asm-mode.el" (12984 29543)) -;;; Generated autoloads from modes/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} -" t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "auto-show" "modes/auto-show.el" (12984 29544)) -;;; Generated autoloads from modes/auto-show.el - -;;;### (autoloads (awk-mode) "awk-mode" "modes/awk-mode.el" (12984 29541)) -;;; Generated autoloads from modes/awk-mode.el - -(autoload 'awk-mode "awk-mode" "\ -Major mode for editing AWK code. -This is much like C mode except for the syntax of comments. It uses -the same keymap as C mode and has the same variables for customizing -indentation. It has its own abbrev table and its own syntax table. - -Turning on AWK mode calls the value of the variable `awk-mode-hook' -with no args, if that value is non-nil." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "bib-mode" "modes/bib-mode.el" (12984 29541)) -;;; Generated autoloads from modes/bib-mode.el - -;;;### (autoloads (bibtex-mode) "bibtex" "modes/bibtex.el" (12984 29541)) -;;; Generated autoloads from modes/bibtex.el - -(autoload 'bibtex-mode "bibtex" "\ -Major mode for editing bibtex files. - -\\{bibtex-mode-map} - -A command such as \\[bibtex-Book] will outline the fields for a BibTeX book entry. - -The optional fields start with the string OPT, and thus ignored by BibTeX. -The OPT string may be removed from a field with \\[bibtex-remove-OPT]. -\\[bibtex-kill-optional-field] kills the current optional field entirely. -\\[bibtex-remove-double-quotes] removes the double-quotes around the text of -the current field. \\[bibtex-empty-field] replaces the text of the current -field with the default \"\". - -The command \\[bibtex-clean-entry] cleans the current entry, i.e. (i) removes -double-quotes from entirely numerical fields, (ii) removes OPT from all -non-empty optional fields, (iii) removes all empty optional fields, and (iv) -checks that no non-optional fields are empty. - -Use \\[bibtex-find-text] to position the dot at the end of the current field. -Use \\[bibtex-next-field] to move to end of the next field. - -The following may be of interest as well: - - Functions: - find-bibtex-duplicates - find-bibtex-entry-location - hide-bibtex-entry-bodies - sort-bibtex-entries - validate-bibtex-buffer - - Variables: - bibtex-clean-entry-zap-empty-opts - bibtex-entry-field-alist - bibtex-include-OPTannote - bibtex-include-OPTcrossref - bibtex-include-OPTkey - bibtex-maintain-sorted-entries - bibtex-mode-user-optional-fields - -Fields: - address - Publisher's address - annote - Long annotation used for annotated bibliographies (begins sentence) - author - Name(s) of author(s), in BibTeX name format - booktitle - Book title when the thing being referenced isn't the whole book. - For book entries, the title field should be used instead. - chapter - Chapter number - crossref - The database key of the entry being cross referenced. - edition - Edition of a book (e.g., \"second\") - editor - Name(s) of editor(s), in BibTeX name format. - If there is also an author field, then the editor field should be - for the book or collection that the work appears in - howpublished - How something strange has been published (begins sentence) - institution - Sponsoring institution - journal - Journal name (macros are provided for many) - key - Alphabetizing and labeling key (needed when no author or editor) - month - Month (macros are provided) - note - To help the reader find a reference (begins sentence) - number - Number of a journal or technical report - organization - Organization (sponsoring a conference) - pages - Page number or numbers (use `--' to separate a range) - publisher - Publisher name - school - School name (for theses) - series - The name of a series or set of books. - An individual book will also have its own title - title - The title of the thing being referenced - type - Type of a technical report (e.g., \"Research Note\") to be used - instead of the default \"Technical Report\" - volume - Volume of a journal or multivolume work - year - Year---should contain only numerals ---------------------------------------------------------- -Entry to this mode calls the value of bibtex-mode-hook if that value is -non-nil." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "c-comment" "modes/c-comment.el" (12984 29541)) -;;; Generated autoloads from modes/c-comment.el - -;;;*** - -;;;### (autoloads nil "c-fill" "modes/c-fill.el" (12984 29541)) -;;; Generated autoloads from modes/c-fill.el - -;;;*** - -;;;### (autoloads nil "c-style" "modes/c-style.el" (12984 29541)) -;;; Generated autoloads from modes/c-style.el - -;;;*** - -;;;### (autoloads nil "cc-compat" "modes/cc-compat.el" (12984 29543)) -;;; Generated autoloads from modes/cc-compat.el - -;;;*** - -;;;### (autoloads nil "cc-guess" "modes/cc-guess.el" (12984 29544)) -;;; Generated autoloads from modes/cc-guess.el - -;;;*** - -;;;### (autoloads nil "cc-lobotomy" "modes/cc-lobotomy.el" (12984 29543)) -;;; Generated autoloads from modes/cc-lobotomy.el - -;;;### (autoloads (c-set-style java-mode objc-mode c++-mode c-mode) "cc-mode" "modes/cc-mode.el" (12988 19699)) -;;; Generated autoloads from modes/cc-mode.el - -(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 variable `c-mode-hook' is run with no args, if that value is -bound and has a non-nil value. Also the hook `c-mode-common-hook' is -run first. - -Key bindings: -\\{c-mode-map}" t nil) - -(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 variable `c++-mode-hook' is run with no args, if that -variable is bound and has a non-nil value. Also the hook -`c-mode-common-hook' is run first. - -Key bindings: -\\{c++-mode-map}" t nil) - -(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 variable `objc-mode-hook' is run with no args, if that value -is bound and has a non-nil value. Also the hook `c-mode-common-hook' -is run first. - -Key bindings: -\\{objc-mode-map}" t nil) - -(autoload 'java-mode "cc-mode" "\ -Major mode for editing Java code. -To submit a problem report, enter `\\[c-submit-bug-report]' from an -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 variable `java-mode-hook' is run with no args, if that value -is bound and has a non-nil value. Also the common hook -`c-mode-common-hook' is run first. Note that this mode automatically -sets the \"java\" style before calling any hooks so be careful if you -set styles in `c-mode-common-hook'. - -Key bindings: -\\{java-mode-map}" t nil) - -(autoload 'c-set-style "cc-mode" "\ -Set cc-mode variables to use one of several different indentation styles. -STYLENAME is a string representing the desired style from the list of -styles described in the variable `c-style-alist'. See that variable -for details of setting up styles." t nil) - -(fset 'set-c-style 'c-set-style) - -;;;*** - -;;;### (autoloads (common-lisp-indent-function) "cl-indent" "modes/cl-indent.el" (12984 29541)) -;;; Generated autoloads from modes/cl-indent.el - -(autoload 'common-lisp-indent-function "cl-indent" nil nil nil) - -;;;*** - -;;;### (autoloads (c-macro-expand) "cmacexp" "modes/cmacexp.el" (12984 29541)) -;;; Generated autoloads from modes/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. -Prompt for arguments to the preprocessor (e.g. `-DDEBUG -I ./include') -if the user option `c-macro-prompt-flag' is non-nil. - -Noninteractive args are START, END, SUBST. -For use inside Lisp programs, see also `c-macro-expansion'." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "cperl-mode" "modes/cperl-mode.el" (12984 29544)) -;;; Generated autoloads from modes/cperl-mode.el - -;;;### (autoloads (eiffel-mode) "eiffel3" "modes/eiffel3.el" (12988 19701)) -;;; Generated autoloads from modes/eiffel3.el - -(autoload 'eiffel-mode "eiffel3" "\ -Major mode for editing Eiffel programs." t nil) - -;;;*** - -;;;### (autoloads (enriched-decode enriched-encode enriched-mode) "enriched" "modes/enriched.el" (12984 29542)) -;;; Generated autoloads from modes/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. -Turning the mode on 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>\\{enriched-mode-map}" t nil) - -(autoload 'enriched-encode "enriched" nil nil nil) - -(autoload 'enriched-decode "enriched" nil nil nil) - -;;;*** - -;;;### (autoloads (executable-self-display executable-set-magic) "executable" "modes/executable.el" (12984 29545)) -;;; Generated autoloads from modes/executable.el - -(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." 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." t nil) - -;;;*** - -;;;### (autoloads (f90-mode) "f90" "modes/f90.el" (12984 29544)) -;;; Generated autoloads from modes/f90.el - -(autoload 'f90-mode "f90" "\ -Major mode for editing Fortran 90 code in free format. - -\\[f90-indent-new-line] corrects current indentation and creates new indented line. -\\[f90-indent-line] indents the current line correctly. -\\[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 case/where/forall blocks. (default 3) - f90-type-indent - Extra indentation within type/interface/block-data blocks. (default 3) - f90-program-indent - Extra indentation within program/module/subroutine/function blocks. - (default 2) - f90-continuation-indent - Extra indentation applied to continuation lines. (default 5) - f90-comment-region - String inserted by \\[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) - f90-startup-message - Set to nil to inhibit message first time F90 mode is used. (default t) - f90-keywords-re - List of keywords used for highlighting/upcase-keywords etc. - -Turning on F90 mode calls the value of the variable `f90-mode-hook' -with no args, if that value is non-nil." t nil) - -;;;*** - -;;;### (autoloads (follow-delete-other-windows-and-split follow-mode turn-off-follow-mode turn-on-follow-mode) "follow" "modes/follow.el" (12984 29542)) -;;; Generated autoloads from modes/follow.el - -(add-minor-mode 'follow-mode nil 'follow-mode-map) - -(autoload 'turn-on-follow-mode "follow" "\ -Turn on Follow mode. Please see the function `follow-mode'." t nil) - -(autoload 'turn-off-follow-mode "follow" "\ -Turn off Follow mode. Please see the function `follow-mode'." t nil) - -(autoload 'follow-mode "follow" "\ -Minor mode which combines windows into one tall virtual window. - -The feeling of a \"virtual window\" has been accomplished by the use -of two major 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 window 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 beeing 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-horizontally]' or `M-x follow-delete-other-windows-and-split' can be used. - -Only windows displayed in the same frame follow each-other. - -If the variable `follow-intercept-processes' is non-nil, Follow mode -will listen to the output of processes and redisplay accordingly. -\(This is the default.) - -When Follow mode is switched on, the hook `follow-mode-hook' -is called. When turned off, `follow-mode-off-hook' is called. - -Keys specific to Follow mode: -\\{follow-mode-map}" 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 it 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. - -To bind this command to a hotkey, place the following line -in your `~/.emacs' file, replacing [f7] by your favourite key: - (global-set-key [f7] 'follow-delete-other-windows-and-split)" t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "fortran-misc" "modes/fortran-misc.el" (12984 29542)) -;;; Generated autoloads from modes/fortran-misc.el - -;;;### (autoloads (fortran-mode) "fortran" "modes/fortran.el" (12991 6548)) -;;; Generated autoloads from modes/fortran.el - -(defvar fortran-tab-mode-default nil "\ -*Default tabbing/carriage control style for empty files in Fortran mode. -A value of t specifies tab-digit style of continuation control. -A value of nil specifies that continuation lines are marked -with a character in column 6.") - -(autoload 'fortran-mode "fortran" "\ -Major mode for editing Fortran code. -\\[fortran-indent-line] indents the current Fortran line correctly. -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: - - comment-start - Normally nil in Fortran mode. If you want 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 within full-line comments. (default 0) - fortran-comment-indent-style - nil means don't change indentation of text in full-line comments, - fixed means indent that text at `fortran-comment-line-extra-indent' beyond - the value of `fortran-minimum-statement-indent-fixed' (for fixed - format continuation style) or `fortran-minimum-statement-indent-tab' - (for TAB format continuation style). - relative means indent at `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 Fortran statements in fixed format mode. (def.6) - fortran-minimum-statement-indent-tab - Minimum indentation for Fortran statements in TAB format mode. (default 9) - fortran-line-number-indent - Maximum indentation for line numbers. A line number will get - less than this much indentation if necessary to avoid reaching - column 5. (default 1) - 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 statement to blink on - matching IF. Also, from an ENDDO statement, blink on matching DO [WHILE] - statement. (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 - 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 `fortran-fill' breaks lines before delimiters. - (default t) - fortran-startup-message - Set to nil to inhibit message first time Fortran mode is used. - -Turning on Fortran mode calls the value of the variable `fortran-mode-hook' -with no args, if that value is non-nil." t nil) - -;;;*** - -;;;### (autoloads (hide-ifdef-mode) "hideif" "modes/hideif.el" (12984 29541)) -;;; Generated autoloads from modes/hideif.el - -(add-minor-mode 'hide-ifdef-mode " Ifdef") - -(autoload 'hide-ifdef-mode "hideif" "\ -Toggle Hide-Ifdef mode. This is a minor mode, albeit a large one. -With ARG, turn Hide-Ifdef mode on if arg is positive, off otherwise. -In Hide-Ifdef mode, 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}" t nil) - -(defvar hide-ifdef-initially nil "\ -*Non-nil means call `hide-ifdefs' when Hide-Ifdef mode is first activated.") - -(defvar hide-ifdef-read-only nil "\ -*Set to non-nil if you want buffer to be read-only while hiding text.") - -(defvar hide-ifdef-lines nil "\ -*Non-nil means hide the #ifX, #else, and #endif lines.") - -;;;*** - -;;;### (autoloads (hs-minor-mode hs-hide-block hs-hide-all) "hideshow" "modes/hideshow.el" (12988 19709)) -;;; Generated autoloads from modes/hideshow.el - -(defvar hs-minor-mode nil "\ -Non-nil if using hideshow mode as a minor mode of some other mode. -Use the command `hs-minor-mode' to toggle this variable.") - -(autoload 'hs-hide-all "hideshow" "\ -Hides all top-level blocks, displaying only first and last lines. -It moves point to the beginning of the line, and it runs the normal hook -`hs-hide-hook'. See documentation for `run-hooks'." t nil) - -(autoload 'hs-hide-block "hideshow" "\ -Selects a block and hides it. With prefix arg, reposition at end. -Block is defined as a sexp for lispish modes, mode-specific otherwise. -Comments are blocks, too. Upon completion, point is at repositioned and -the normal hook `hs-hide-hook' is run. See documentation for `run-hooks'." t nil) - -(autoload 'hs-minor-mode "hideshow" "\ -Toggle hideshow minor mode. -With ARG, turn hideshow minor mode on if ARG is positive, off otherwise. -When hideshow minor mode is on, the menu bar is augmented with hideshow -commands and the hideshow commands are enabled. The variables -`selective-display' and `selective-display-ellipses' are set to t. -Last, the normal hook `hs-minor-mode-hook' is run; see the doc for `run-hooks'. - -Turning hideshow minor mode off reverts the menu bar and the -variables to default values and disables the hideshow commands." t nil) - -(add-minor-mode 'hs-minor-mode " hs" 'hs-minor-mode-map) - -;;;*** - -;;;### (autoloads (icon-mode) "icon" "modes/icon.el" (12984 29541)) -;;; Generated autoloads from modes/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." t nil) - -;;;*** - -;;;### (autoloads (imenu imenu-add-to-menubar) "imenu" "modes/imenu.el" (12984 29545)) -;;; Generated autoloads from modes/imenu.el - -(defvar imenu-generic-expression nil "\ -The regex pattern to use for creating a buffer index. - -If non-nil this pattern is passed to `imenu-create-index-with-pattern' -to create a buffer index. - -It is an alist with elements that look like this: (MENU-TITLE -REGEXP INDEX). - -MENU-TITLE is a string used as the title for the submenu or nil if the -entries are not nested. - -REGEXP is a regexp that should match a construct in the buffer that is -to be displayed in the menu; i.e., function or variable definitions, -etc. It contains a substring which is the name to appear in the -menu. See the info section on Regexps for more information. - -INDEX points to the substring in REGEXP that contains the name (of the -function, variable or type) that is to appear in the menu. - -For emacs-lisp-mode for example PATTERN would look like: - -'((nil \"^\\\\s-*(def\\\\(un\\\\|subst\\\\|macro\\\\|advice\\\\)\\\\s-+\\\\([-A-Za-z0-9+]+\\\\)\" 2) - (\"*Vars*\" \"^\\\\s-*(def\\\\(var\\\\|const\\\\)\\\\s-+\\\\([-A-Za-z0-9+]+\\\\)\" 2) - (\"*Types*\" \"^\\\\s-*(def\\\\(type\\\\|struct\\\\|class\\\\|ine-condition\\\\)\\\\s-+\\\\([-A-Za-z0-9+]+\\\\)\" 2)) - -The variable is buffer-local.") - -(make-variable-buffer-local 'imenu-generic-expression) - -(autoload 'imenu-add-to-menubar "imenu" "\ -Adds 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." t nil) - -(autoload 'imenu "imenu" "\ -Jump to a place in the buffer chosen using a buffer menu or mouse menu. -See `imenu-choose-buffer-index' for more information." t nil) - -;;;*** - -;;;### (autoloads (ksh-mode) "ksh-mode" "modes/ksh-mode.el" (12984 29542)) -;;; Generated autoloads from modes/ksh-mode.el - -(autoload 'ksh-mode "ksh-mode" "\ -ksh-mode $Revision: 1.2 $ - Major mode for editing (Bourne, Korn or Bourne again) -shell scripts. -Special key bindings and commands: -\\{ksh-mode-map} -Variables controlling indentation style: -ksh-indent - Indentation of ksh statements with respect to containing block. - Default value is 2. -ksh-case-indent - Additional indentation for statements under case items. - Default value is nil which will align the statements one position - past the \")\" of the pattern. -ksh-case-item-offset - Additional indentation for case items within a case statement. - Default value is 2. -ksh-group-offset - Additional indentation for keywords \"do\" and \"then\". - Default value is -2. -ksh-brace-offset - Additional indentation of \"{\" under functions or brace groupings. - Default value is 0. -ksh-multiline-offset - Additional indentation of line that is preceded of a line ending with a - \\ to make it continue on next line. -ksh-tab-always-indent - Controls the operation of the TAB key. If t (the default), always - reindent the current line. If nil, indent the current line only if - point is at the left margin or in the line's indentation; otherwise - insert a tab. -ksh-match-and-tell - If non-nil echo in the minibuffer the matching compound command - for the \"done\", \"}\", \"fi\", or \"esac\". Default value is t. - -ksh-align-to-keyword - Controls whether nested constructs align from the keyword or - the current indentation. If non-nil, indentation will be relative to - the column the keyword starts. If nil, indentation will be relative to - the current indentation of the line the keyword is on. - The default value is non-nil. - -ksh-comment-regexp - Regular expression used to recognize comments. Customize to support - ksh-like languages. Default value is \" \\s *#\". - -Style Guide. - By setting - (setq ksh-indent default-tab-width) - (setq ksh-group-offset 0) - - The following style is obtained: - - if [ -z $foo ] - then - bar # <-- ksh-group-offset is additive to ksh-indent - foo - fi - - By setting - (setq ksh-indent default-tab-width) - (setq ksh-group-offset (- 0 ksh-indent)) - - The following style is obtained: - - if [ -z $foo ] - then - bar - foo - fi - - By setting - (setq ksh-case-item-offset 1) - (setq ksh-case-indent nil) - - The following style is obtained: - - case x in * - foo) bar # <-- ksh-case-item-offset - baz;; # <-- ksh-case-indent aligns with \")\" - foobar) foo - bar;; - esac - - By setting - (setq ksh-case-item-offset 1) - (setq ksh-case-indent 6) - - The following style is obtained: - - case x in * - foo) bar # <-- ksh-case-item-offset - baz;; # <-- ksh-case-indent - foobar) foo - bar;; - esac - - -Installation: - - (setq ksh-mode-hook - (function (lambda () - (font-lock-mode 1) ;; font-lock the buffer - (setq ksh-indent 8) - (setq ksh-group-offset -8) - (setq ksh-brace-offset -8) - (setq ksh-tab-always-indent t) - (setq ksh-match-and-tell t) - (setq ksh-align-to-keyword t) ;; Turn on keyword alignment - )))" t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "lisp-mnt" "modes/lisp-mnt.el" (12984 29543)) -;;; Generated autoloads from modes/lisp-mnt.el - -;;;*** - -;;;### (autoloads nil "lisp-mode" "modes/lisp-mode.el" (12984 29541)) -;;; Generated autoloads from modes/lisp-mode.el - -;;;*** - -;;;### (autoloads nil "list-mode" "modes/list-mode.el" (12984 29542)) -;;; Generated autoloads from modes/list-mode.el - -;;;### (autoloads (m4-mode) "m4-mode" "modes/m4-mode.el" (12984 29545)) -;;; Generated autoloads from modes/m4-mode.el - -(autoload 'm4-mode "m4-mode" "\ -A major-mode to edit m4 macro files -\\{m4-mode-map} -" t nil) - -;;;*** - -;;;### (autoloads (makefile-mode) "make-mode" "modes/make-mode.el" (12984 29541)) -;;; Generated autoloads from modes/make-mode.el - -(autoload 'makefile-mode "make-mode" "\ -Major mode for editing Makefiles. -This function ends by invoking the function(s) `makefile-mode-hook'. - -\\{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-find-filenames-as-targets'), otherwise - filenames are omitted. - -makefile-cleanup-continuations-p: - 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." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "old-c++-mode" "modes/old-c++-mode.el" (12984 29543)) -;;; Generated autoloads from modes/old-c++-mode.el - -;;;*** - -;;;### (autoloads nil "old-c-mode" "modes/old-c-mode.el" (12984 29543)) -;;; Generated autoloads from modes/old-c-mode.el - -;;;### (autoloads (py-shell python-mode) "python-mode" "modes/python-mode.el" (12984 29545)) -;;; Generated autoloads from modes/python-mode.el - -(eval-when-compile (condition-case nil (progn (require 'cl) (require 'imenu)) (error nil))) - -(autoload 'python-mode "python-mode" "\ -Major mode for editing Python files. -To submit a problem report, enter `\\[py-submit-bug-report]' from a -`python-mode' buffer. Do `\\[py-describe-mode]' for detailed -documentation. To see what version of `python-mode' you are running, -enter `\\[py-version]'. - -This mode knows about Python indentation, tokens, comments and -continuation lines. Paragraphs are separated by blank lines only. - -COMMANDS -\\{py-mode-map} -VARIABLES - -py-indent-offset indentation increment -py-block-comment-prefix comment string used by comment-region -py-python-command shell command to invoke Python interpreter -py-scroll-process-buffer always scroll Python process buffer -py-temp-directory directory used for temp files (if needed) -py-beep-if-tab-change ring the bell if tab-width is changed" t nil) - -(autoload 'py-shell "python-mode" "\ -Start an interactive Python interpreter in another window. -This is like Shell mode, except that Python is running in the window -instead of a shell. See the `Interactive Shell' and `Shell Mode' -sections of the Emacs manual for details, especially for the key -bindings active in the `*Python*' buffer. - -See the docs for variable `py-scroll-buffer' for info on scrolling -behavior in the process window. - -Warning: Don't use an interactive Python if you change sys.ps1 or -sys.ps2 from their default values, or if you're running code that -prints `>>> ' or `... ' at the start of a line. `python-mode' can't -distinguish your output from Python's output, and assumes that `>>> ' -at the start of a line is a prompt from Python. Similarly, the Emacs -Shell mode code assumes that both `>>> ' and `... ' at the start of a -line are Python prompts. Bad things can happen if you fool either -mode. - -Warning: If you do any editing *in* the process buffer *while* the -buffer is accepting output from Python, do NOT attempt to `undo' the -changes. Some of the output (nowhere near the parts you changed!) may -be lost if you do. This appears to be an Emacs bug, an unfortunate -interaction between undo and process filters; the same problem exists in -non-Python process buffers using the default (Emacs-supplied) process -filter." t nil) - -;;;*** - -;;;### (autoloads (rexx-mode) "rexx-mode" "modes/rexx-mode.el" (12984 29543)) -;;; Generated autoloads from modes/rexx-mode.el - -(autoload 'rexx-mode "rexx-mode" "\ -Major mode for editing REXX code. -\\{rexx-mode-map} - -Variables controlling indentation style: - rexx-indent - The basic indentation for do-blocks. - rexx-end-indent - The relative offset of the \"end\" statement. 0 places it in the - same column as the statements of the block. Setting it to the same - value as rexx-indent places the \"end\" under the do-line. - rexx-cont-indent - The indention for lines following \"then\", \"else\" and \",\" - (continued) lines. - rexx-tab-always-indent - Non-nil means TAB in REXX mode should always reindent the current - line, regardless of where in the line the point is when the TAB - command is used. - -If you have set rexx-end-indent to a nonzero value, you probably want to -remap RETURN to rexx-indent-newline-indent. It makes sure that lines -indents correctly when you press RETURN. - -An extensive abbrevation table consisting of all the keywords of REXX are -supplied. Expanded keywords are converted into upper case making it -easier to distinguish them. To use this feature the buffer must be in -abbrev-mode. (See example below.) - -Turning on REXX mode calls the value of the variable rexx-mode-hook with -no args, if that value is non-nil. - -For example: -\(setq rexx-mode-hook '(lambda () - (setq rexx-indent 4) - (setq rexx-end-indent 4) - (setq rexx-cont-indent 4) - (local-set-key \"\\C-m\" 'rexx-indent-newline-indent) - (abbrev-mode 1) - )) - -will make the END aligned with the DO/SELECT. It will indent blocks and -IF-statenents four steps and make sure that the END jumps into the -correct position when RETURN is pressed. Finaly it will use the abbrev -table to convert all REXX keywords into upper case." t nil) - -;;;*** - -;;;### (autoloads (define-mail-alias build-mail-aliases mail-aliases-setup) "mail-abbrevs" "modes/mail-abbrevs.el" (12996 10112)) -;;; Generated autoloads from modes/mail-abbrevs.el - -(defvar mail-abbrev-mailrc-file nil "\ -Name of file with mail aliases. If nil, ~/.mailrc is used.") - -(defvar mail-aliases nil "\ -Word-abbrev table of mail address aliases. -If this is nil, it means the aliases have not yet been initialized and -should be read from the .mailrc file. (This is distinct from there being -no aliases, which is represented by this being a table with no entries.)") - -(autoload 'mail-aliases-setup "mail-abbrevs" nil nil nil) - -(autoload 'build-mail-aliases "mail-abbrevs" "\ -Read mail aliases from .mailrc and set mail-aliases." nil nil) - -(autoload 'define-mail-alias "mail-abbrevs" "\ -Define NAME as a mail-alias that translates to DEFINITION. -If DEFINITION contains multiple addresses, separate them with commas." t nil) - -;;;*** - -;;;### (autoloads (modula-2-mode) "modula2" "modes/modula2.el" (12984 29542)) -;;; Generated autoloads from modes/modula2.el - -(autoload 'modula-2-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." t nil) - -;;;*** - -;;;### (autoloads (electric-nroff-mode nroff-mode) "nroff-mode" "modes/nroff-mode.el" (12984 29542)) -;;; Generated autoloads from modes/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." t nil) - -(autoload 'electric-nroff-mode "nroff-mode" "\ -Toggle `nroff-electric-newline' minor mode. -`nroff-electric-newline' forces Emacs to check for an nroff request at the -beginning of the line, and insert the matching closing request if necessary. -This command toggles that mode (off->on, on->off), with an argument, -turns it on iff arg is positive, otherwise off." t nil) - -(defvar nroff-electric-mode nil "\ -Non-nil if in electric-nroff minor mode.") - -(add-minor-mode 'nroff-electric-mode " Electric" nil nil 'electric-nroff-mode) - -;;;*** - -;;;### (autoloads (outl-mouse-minor-mode outl-mouse-mode) "outl-mouse" "modes/outl-mouse.el" (12988 19705)) -;;; Generated autoloads from modes/outl-mouse.el - -(autoload 'outl-mouse-mode "outl-mouse" "\ -Calls outline-mode, with outl-mouse extensions" t nil) - -(autoload 'outl-mouse-minor-mode "outl-mouse" "\ -Toggles outline-minor-mode, with outl-mouse extensions" t nil) - -;;;*** - -;;;### (autoloads (outline-minor-mode outline-mode) "outline" "modes/outline.el" (12984 29541)) -;;; Generated autoloads from modes/outline.el - -(defvar outline-minor-mode nil "\ -Non-nil if using Outline mode as a minor mode of some other mode.") - -(make-variable-buffer-local 'outline-minor-mode) - -(put 'outline-minor-mode 'permanent-local t) - -(add-minor-mode 'outline-minor-mode " Outl") - -(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. - -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." t nil) - -(autoload 'outline-minor-mode "outline" "\ -Toggle Outline minor mode. -With arg, turn Outline minor mode on if arg is positive, off otherwise. -See the command `outline-mode' for more information on this mode." t nil) - -;;;*** - -;;;### (autoloads (pascal-mode) "pascal" "modes/pascal.el" (12984 29543)) -;;; Generated autoloads from modes/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. - -\\[pascal-complete-word] completes the word around current point with respect to position in code -\\[pascal-show-completions] 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] - Enter pascal-outline-mode (see also pascal-outline). - -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 simcolons and the punctation mark - after an end. - 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 hould 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." t nil) - -;;;*** - -;;;### (autoloads (perl-mode) "perl-mode" "modes/perl-mode.el" (12984 29542)) -;;; Generated autoloads from modes/perl-mode.el - -(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. - -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'." t nil) - -;;;*** - -;;;### (autoloads (picture-mode) "picture" "modes/picture.el" (12984 29542)) -;;; Generated autoloads from modes/picture.el - -(autoload 'picture-mode "picture" "\ -Switch to Picture mode, in which a quarter-plane screen model is used. -Printing characters replace instead of inserting themselves with motion -afterwards settable by these commands: - C-c < Move left after insertion. - C-c > Move right after insertion. - C-c ^ Move up after insertion. - C-c . Move down after insertion. - C-c ` Move northwest (nw) after insertion. - C-c ' Move northeast (ne) after insertion. - C-c / Move southwest (sw) after insertion. - C-c \\ Move southeast (se) after insertion. -The current direction is displayed in the modeline. 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: - \\[picture-move-down] Move vertically to SAME column in previous line. - \\[picture-move-up] Move vertically to SAME column in next line. - \\[picture-end-of-line] Move to column following last non-whitespace character. - \\[picture-forward-column] Move right inserting spaces if required. - \\[picture-backward-column] Move left changing tabs to spaces if required. - C-c C-f Move in direction of current picture motion. - C-c C-b Move in opposite direction of current picture motion. - Return Move to beginning of next line. -You can edit tabular text with these commands: - M-Tab Move to column beneath (or at) next interesting character. - `Indents' relative to a previous line. - Tab Move to next stop in tab stop list. - C-c Tab Set tab stops according to context of this line. - With ARG resets tab stops to default (global) value. - See also documentation of variable picture-tab-chars - which defines \"interesting character\". You can manually - change the tab stop list with command \\[edit-tab-stops]. -You can manipulate text with these commands: - C-d Clear (replace) ARG columns after point without moving. - C-c C-d Delete char at point - the command normally assigned to C-d. - \\[picture-backward-clear-column] Clear (replace) ARG columns before point, moving back over them. - \\[picture-clear-line] Clear ARG lines, advancing over them. The cleared - text is saved in the kill ring. - \\[picture-open-line] Open blank line(s) beneath current line. -You can manipulate rectangles with these commands: - C-c C-k Clear (or kill) a rectangle and save it. - C-c C-w Like C-c C-k except rectangle is saved in named register. - C-c C-y Overlay (or insert) currently saved rectangle at point. - C-c C-x Like C-c C-y except rectangle is taken from named register. - \\[copy-rectangle-to-register] Copies a rectangle to a register. - \\[advertised-undo] Can undo effects of rectangle overlay commands - commands if invoked soon enough. -You can return to the previous mode with: - C-c C-c 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 defaultly assigned to keys." t nil) - -(defalias 'edit-picture 'picture-mode) - -;;;*** - -;;;### (autoloads (postscript-mode) "postscript" "modes/postscript.el" (12984 29542)) -;;; Generated autoloads from modes/postscript.el - -(autoload 'postscript-mode "postscript" "\ -Major mode for editing PostScript files. - -\\[ps-execute-buffer] will send the contents of the buffer to the NeWS -server using psh(1). \\[ps-execute-region] sends the current region. -\\[ps-shell] starts an interactive psh(1) window which will be used for -subsequent \\[ps-execute-buffer] or \\[ps-execute-region] commands. - -In this mode, TAB and \\[indent-region] attempt to indent code -based on the position of {}, [], and begin/end pairs. The variable -ps-indent-level controls the amount of indentation used inside -arrays and begin/end pairs. - -\\{ps-mode-map} - -\\[postscript-mode] calls the value of the variable postscript-mode-hook -with no args, if that value is non-nil." t nil) - -;;;*** - -;;;### (autoloads (run-prolog inferior-prolog-mode prolog-mode) "prolog" "modes/prolog.el" (12984 29542)) -;;; Generated autoloads from modes/prolog.el - -(autoload 'prolog-mode "prolog" "\ -Major mode for editing Prolog code for Prologs. -Blank lines and `%%...' separate paragraphs. `%'s start comments. -Commands: -\\{prolog-mode-map} -Entry to this mode calls the value of `prolog-mode-hook' -if that value is non-nil." t nil) - -(autoload 'inferior-prolog-mode "prolog" "\ -Major mode for interacting with an inferior Prolog process. - -The following commands are available: -\\{inferior-prolog-mode-map} - -Entry to this mode calls the value of `prolog-mode-hook' with no arguments, -if that value is non-nil. Likewise with the value of `comint-mode-hook'. -`prolog-mode-hook' is called after `comint-mode-hook'. - -You can send text to the inferior Prolog from other buffers -using the commands `send-region', `send-string' and \\[prolog-consult-region]. - -Commands: -Tab indents for Prolog; with argument, shifts rest - of expression rigidly with the current line. -Paragraphs are separated only by blank lines and '%%'. -'%'s start comments. - -Return at end of buffer sends line as input. -Return not at end copies rest of line to end and sends it. -\\[comint-kill-input] and \\[backward-kill-word] are kill commands, imitating normal Unix input editing. -\\[comint-interrupt-subjob] interrupts the shell or its current subjob if any. -\\[comint-stop-subjob] stops. \\[comint-quit-subjob] sends quit signal." t nil) - -(autoload 'run-prolog "prolog" "\ -Run an inferior Prolog process, input and output via buffer *prolog*." t nil) - -;;;*** - -;;;### (autoloads (resize-minibuffer-mode) "rsz-minibuf" "modes/rsz-minibuf.el" (12984 29544)) -;;; Generated autoloads from modes/rsz-minibuf.el - -(defvar resize-minibuffer-mode nil "\ -*If non-`nil', resize the minibuffer so its entire contents are visible.") - -(defvar resize-minibuffer-window-max-height nil "\ -*Maximum size the minibuffer window is allowed to become. -If less than 1 or not a number, the limit is the height of the frame in -which the active minibuffer window resides.") - -(defvar resize-minibuffer-window-exactly t "\ -*If non-`nil', make minibuffer exactly the size needed to display all its contents. -Otherwise, the minibuffer window can temporarily increase in size but -never get smaller while it is active.") - -(defvar resize-minibuffer-frame nil "\ -*If non-`nil' and the active minibuffer is the sole window in its frame, allow changing the frame height.") - -(defvar resize-minibuffer-frame-max-height nil "\ -*Maximum size the minibuffer frame is allowed to become. -If less than 1 or not a number, there is no limit.") - -(defvar resize-minibuffer-frame-exactly nil "\ -*If non-`nil', make minibuffer frame exactly the size needed to display all its contents. -Otherwise, the minibuffer frame can temporarily increase in size but -never get smaller while it is active.") - -(autoload 'resize-minibuffer-mode "rsz-minibuf" "\ -Enable or disable resize-minibuffer mode. -A negative prefix argument disables this mode. A positive argument or -argument of 0 enables it. - -When this minor mode is enabled, the minibuffer is dynamically resized to -contain the entire region of text put in it as you type. - -The variable `resize-minibuffer-mode' is set to t or nil depending on -whether this mode is active or not. - -The maximum height to which the minibuffer can grow is controlled by the -variable `resize-minibuffer-window-max-height'. - -The variable `resize-minibuffer-window-exactly' determines whether the -minibuffer window should ever be shrunk to make it no larger than needed to -display its contents. - -When using a window system, it is possible for a minibuffer to tbe the sole -window in a frame. Since that window is already its maximum size, the only -way to make more text visible at once is to increase the size of the frame. -The variable `resize-minibuffer-frame' controls whether this should be -done. The variables `resize-minibuffer-frame-max-height' and -`resize-minibuffer-frame-exactly' are analogous to their window -counterparts." t nil) - -;;;*** - -;;;### (autoloads (scheme-mode) "scheme" "modes/scheme.el" (12984 29542)) -;;; Generated autoloads from modes/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 -modeline of all Scheme buffers. The names of commands that interact -with the Scheme process start with \"xscheme-\". For more information -see the documentation for xscheme-interaction-mode. - -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." t nil) - -;;;*** - -;;;### (autoloads (scribe-mode) "scribe" "modes/scribe.el" (12984 29542)) -;;; Generated autoloads from modes/scribe.el - -(autoload 'scribe-mode "scribe" "\ -Major mode for editing files of Scribe (a text formatter) source. -Scribe-mode is similar text-mode, with a few extra commands added. -\\{scribe-mode-map} - -Interesting variables: - -scribe-fancy-paragraphs - Non-nil makes Scribe mode use a different style of paragraph separation. - -scribe-electric-quote - Non-nil makes insert of double quote use `` or '' depending on context. - -scribe-electric-parenthesis - Non-nil makes an open-parenthesis char (one of `([<{') - automatically insert its close if typed after an @Command form." t nil) - -;;;*** - -;;;### (autoloads (mail-other-frame mail-other-window mail mail-mode) "sendmail" "modes/sendmail.el" (12984 29541)) -;;; Generated autoloads from modes/sendmail.el - -(defvar mail-from-style 'angles "\ -*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>") - -(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.") - -(defvar mail-interactive nil "\ -Non-nil means when sending a message wait for and display errors. -nil means let mailer mail back a message to report errors.") - -(defvar mail-dir nil "\ -*Default directory for saving messages.") - -(defvar rmail-ignored-headers (purecopy (concat "^\\(" (mapconcat 'identity '("Sender:" "References:" "Return-Path:" "Received:" "[^: \n]*Message-ID:" "Errors-To:" "Path:" "Expires:" "Xref:" "Lines:" "Approved:" "Distribution:" "Content-Length:" "Mime-Version:" "Content-Type:" "Content-Transfer-Encoding:" "X400-Received:" "X400-Originator:" "X400-Mts-Identifier:" "X400-Content-Type:" "Content-Identifier:" "Status:" "Summary-Line:" "X-Attribution:" "Via:" "Sent-Via:" "Mail-From:" "Origin:" "Comments:" "Originator:" "NF-ID:" "NF-From:" "Posting-Version:" "Posted:" "Posted-Date:" "Date-Received:" "Relay-Version:" "Article-I\\.D\\.:" "NNTP-Version:" "NNTP-Posting-Host:" "X-Mailer:" "X-Newsreader:" "News-Software:" "X-Received:" "X-References:" "X-Envelope-To:" "X-VMS-" "Remailed-" "X-Plantation:" "X-Windows:" "X-Pgp-") "\\|") "\\)")) "\ -*Gubbish header fields one would rather not see.") - -(defvar mail-yank-ignored-headers (purecopy (concat rmail-ignored-headers "\\|" "^\\(" (mapconcat 'identity '("Resent-To:" "Resent-By:" "Resent-CC:" "To:" "Subject:" "In-Reply-To:") "\\|") "\\)")) "\ -Delete these headers from old message when it's inserted in a reply.") - -(defvar send-mail-function 'sendmail-send-it "\ -Function to call to send the current buffer as mail. -The headers should be delimited by a line whose contents -match the variable `mail-header-separator'.") - -(defvar mail-header-separator (purecopy "--text follows this line--") "\ -*Line used to separate headers from text in messages being composed.") - -(defvar mail-archive-file-name nil "\ -*Name of file to write all outgoing messages in, or nil for none. -This can be an inbox file or an Rmail file.") - -(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.") - -(defvar mail-alias-file nil "\ -*If non-nil, the name of a file to use instead of `/usr/lib/aliases'. -This file defines aliases to be expanded by the mailer; this is a different -feature from that of defining aliases in `.mailrc' to be expanded in Emacs. -This variable has no effect unless your system uses sendmail as its mailer.") - -(defvar mail-yank-prefix "> " "\ -*Prefix insert on lines of yanked message being replied to. -nil means use indentation.") - -(defvar mail-signature nil "\ -*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'.") - -(autoload 'mail-mode "sendmail" "\ -Major mode for editing mail to be sent. -Like Text Mode but with these additional commands: -C-c C-s mail-send (send the message) C-c C-c mail-send-and-exit -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 Subj: - C-c C-f C-b move to BCC: C-c C-f C-c move to CC: - C-c C-f C-f move to FCC: C-c C-f C-r move to Reply-To: -C-c C-t mail-text (move to beginning of message text). -C-c C-w mail-signature (insert `mail-signature-file' file). -C-c C-y mail-yank-original (insert current message, in Rmail). -C-c C-q mail-fill-yanked-message (fill what was yanked). -C-c C-v mail-sent-via (add a sent-via field for each To or CC)." t nil) - -(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} - -The variable `mail-signature' controls whether the signature file -`mail-signature-file' is inserted immediately. - -If `mail-signature' is nil, use \\[mail-signature] to insert the -signature in `mail-signature-file'. - -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. - -When calling from a program, the first argument if non-nil says -not to erase the existing contents of the `*mail*' buffer. - -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 whose contents - should be yanked if the user types C-c C-y. -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'." t nil) - -(autoload 'mail-other-window "sendmail" "\ -Like `mail' command, but display mail buffer in another window." t nil) - -(autoload 'mail-other-frame "sendmail" "\ -Like `mail' command, but display mail buffer in another frame." t nil) - -(define-key ctl-x-map "m" 'mail) - -(define-key ctl-x-4-map "m" 'mail-other-window) - -(define-key ctl-x-5-map "m" 'mail-other-frame) - -(add-hook 'same-window-buffer-names "*mail*") - -;;;*** - -;;;### (autoloads (sh-mode) "sh-script" "modes/sh-script.el" (12984 29545)) -;;; Generated autoloads from modes/sh-script.el - -(put 'sh-mode 'mode-class 'special) - -(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-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 - -\\[backward-delete-char-untabify] Delete backward one position, even if it was a tab. -\\[sh-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-maybe-here-document] Without prefix, following an unquoted < inserts here document. -{, (, [, ', \", ` - Unless quoted with \\, insert the pairs {}, (), [], or '', \"\", ``. - -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." t nil) - -(defalias 'shell-script-mode 'sh-mode) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "simula" "modes/simula.el" (12984 29542)) -;;; Generated autoloads from modes/simula.el - -;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl" "modes/tcl.el" (12984 29543)) -;;; Generated autoloads from modes/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-electric-hash-style - Controls action of `#' key. - tcl-use-hairy-comment-detector - If t, use more complicated, but slower, comment detector. - This variable is only used in GNU Emacs 19. - 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 calls the value of the variable `tcl-mode-hook' -with no args, if that value is non-nil. Read the documentation for -`tcl-mode-hook' to see what kinds of interesting hook functions -already exist. - -Commands: -\\{tcl-mode-map}" 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." 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'." t nil) - -;;;*** - -;;;### (autoloads (latex-mode plain-tex-mode tex-mode) "tex-mode" "modes/tex-mode.el" (12984 29542)) -;;; Generated autoloads from modes/tex-mode.el - -(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 -is used." t nil) - -(fset 'TeX-mode 'tex-mode) - -(fset '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 \\[validate-tex-buffer] to check buffer for paragraphs containing -mismatched $'s or braces. - -Special commands: -\\{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 calls the value of text-mode-hook, then the value of -tex-mode-hook, and then the value of plain-tex-mode-hook. When the special -subshell is initiated, the value of tex-shell-hook is called." t nil) - -(fset 'plain-TeX-mode 'plain-tex-mode) - -(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 \\[validate-tex-buffer] to check buffer for paragraphs containing -mismatched $'s or braces. - -Special commands: -\\{tex-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 calls the value of text-mode-hook, then the value of -tex-mode-hook, and then the value of latex-mode-hook. When the special -subshell is initiated, the value of tex-shell-hook is called." t nil) - -;;;*** - -;;;### (autoloads (texinfo-mode) "texinfo" "modes/texinfo.el" (12984 29543)) -;;; Generated autoloads from modes/texinfo.el - -(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." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "text-mode" "modes/text-mode.el" (12984 29542)) -;;; Generated autoloads from modes/text-mode.el - -;;;### (autoloads (tc-recenter tc-scroll-down tc-scroll-up tc-scroll-line tc-associated-buffer tc-merge tc-dissociate tc-split tc-associate-buffer tc-two-columns) "two-column" "modes/two-column.el" (12984 29544)) -;;; Generated autoloads from modes/two-column.el - -(defvar tc-mode-map nil "\ -Keymap for commands for two-column mode.") - -(if tc-mode-map nil (setq tc-mode-map (make-sparse-keymap)) (define-key tc-mode-map "1" 'tc-merge) (define-key tc-mode-map "2" 'tc-two-columns) (define-key tc-mode-map "b" 'tc-associate-buffer) (define-key tc-mode-map "d" 'tc-dissociate) (define-key tc-mode-map "\^L" 'tc-recenter) (define-key tc-mode-map "o" 'tc-associated-buffer) (define-key tc-mode-map "s" 'tc-split) (define-key tc-mode-map "{" 'shrink-window-horizontally) (define-key tc-mode-map "}" 'enlarge-window-horizontally) (define-key tc-mode-map " " 'tc-scroll-up) (define-key tc-mode-map "" 'tc-scroll-down) (define-key tc-mode-map " " 'tc-scroll-line)) - -(global-set-key "6" tc-mode-map) - -(defvar tc-other nil "\ -Marker to the associated buffer, if non-nil.") - -(make-variable-buffer-local 'tc-other) - -(put 'tc-other 'permanent-local t) - -(autoload 'tc-two-columns "two-column" "\ -Split current window vertically for two-column editing. - -When called the first time, associates a buffer with the current -buffer. Both buffers are put in two-column minor mode and -tc-mode-hook gets called on both. These buffers remember -about one another, even when renamed. - -When called again, restores the screen layout with the current buffer -first and the associated buffer to it's right. - -If you include long lines, i.e which will span both columns (eg. -source code), they should be in what will be the first column, with -the associated buffer having empty lines next to them. - -You have the following commands at your disposal: - -\\[tc-two-columns] Rearrange screen -\\[tc-associate-buffer] Reassociate buffer after changing major mode -\\[tc-scroll-up] Scroll both buffers up by a screenfull -\\[tc-scroll-down] Scroll both buffers down by a screenful -\\[tc-scroll-line] Scroll both buffers up by one or more lines -\\[tc-recenter] Recenter and realign other buffer -\\[shrink-window-horizontally], \\[enlarge-window-horizontally] Shrink, enlarge current column -\\[tc-associated-buffer] Switch to associated buffer -\\[tc-merge] Merge both buffers - -These keybindings can be customized in your ~/.emacs by `tc-prefix' -and `tc-mode-map'. - -The appearance of the screen can be customized by the variables -`tc-window-width', `tc-beyond-fill-column', -`tc-mode-line-format' and `truncate-partial-width-windows'." t nil) - -(add-minor-mode 'tc-other " 2C" nil nil 'tc-two-columns) - -(autoload 'tc-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 \\[tc-two-columns] and `lisp/two-column.el' for further details." t nil) - -(autoload 'tc-split "two-column" "\ -Unmerge a two-column text into two buffers in two-column minor mode. -The text is unmerged at the cursor's column which becomes the local -value of `tc-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 -`tc-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 as -you like them. You write the first line of each column with the -separator you like and then unmerge that line. E.g.: - -First column's text sSs Second columns text - \\___/\\ - / \\ - 5 character Separator You type M-5 \\[tc-split] with the point here - -See \\[tc-two-columns] and `lisp/two-column.el' for further details." t nil) - -(autoload 'tc-dissociate "two-column" "\ -Turn off two-column minor mode in current and associated buffer. -If the associated buffer is unmodified and empty, it is killed." t nil) - -(autoload 'tc-merge "two-column" "\ -Merges the associated buffer with the current buffer. -They get merged at the column, which is the value of -`tc-window-width', i.e. usually at the vertical window -separator. This separator gets replaced with white space. Beyond -that the value of gets inserted on merged lines. The two columns are -thus pasted side by side, in a single text. If the other buffer is -not displayed to the left of this one, then this one becomes the left -column. - -If you want `tc-separator' on empty lines in the second column, -you should put just one space in them. In the final result, you can strip -off trailing spaces with \\[beginning-of-buffer] \\[replace-regexp] [ SPC TAB ] + $ RET RET" t nil) - -(autoload 'tc-associated-buffer "two-column" "\ -Switch to associated buffer." t nil) - -(autoload 'tc-scroll-line "two-column" "\ -Scroll current window upward by ARG lines. -The associated window gets scrolled to the same line." t nil) - -(autoload 'tc-scroll-up "two-column" "\ -Scroll current window upward by ARG screens. -The associated window gets scrolled to the same line." t nil) - -(autoload 'tc-scroll-down "two-column" "\ -Scroll current window downward by ARG screens. -The associated window gets scrolled to the same line." t nil) - -(autoload 'tc-recenter "two-column" "\ -Center point in window. With ARG, put point on line ARG. -This counts from bottom if ARG is negative. The associated window -gets scrolled to the same line." t nil) - -;;;*** - -;;;### (autoloads (vhdl-mode) "vhdl-mode" "modes/vhdl-mode.el" (12984 30015)) -;;; Generated autoloads from modes/vhdl-mode.el - -(autoload 'vhdl-mode "vhdl-mode" "\ -Major mode for editing VHDL code. -vhdl-mode $Revision: 1.2 $ -To submit a problem report, enter `\\[vhdl-submit-bug-report]' from a -vhdl-mode buffer. This automatically sets up a mail buffer with version -information already added. You just need to add a description of the -problem, including a reproducable test case and send the message. - -Note that the details of configuring vhdl-mode will soon be moved to the -accompanying texinfo manual. Until then, please read the README file -that came with the vhdl-mode distribution. - -The hook variable `vhdl-mode-hook' is run with no args, if that value is -bound and has a non-nil value. - -Key bindings: -\\{vhdl-mode-map}" t nil) - -;;;*** +;;; Load in generated autoloads (made by autoload.el). +(condition-case nil + (load "auto-autoloads") + (file-error nil)) -;;;### (autoloads (auto-view-mode view-major-mode view-mode view-minor-mode view-buffer-other-window view-file-other-window view-buffer view-file) "view-less" "modes/view-less.el" (12984 29542)) -;;; Generated autoloads from modes/view-less.el - -(autoload 'view-file "view-less" "\ -Find FILE, enter view mode. With prefix arg OTHER-P, use other window." t nil) - -(autoload 'view-buffer "view-less" "\ -Switch to BUF, enter view mode. With prefix arg use other window." t nil) - -(autoload 'view-file-other-window "view-less" "\ -Find FILE in other window, and enter view mode." t nil) - -(autoload 'view-buffer-other-window "view-less" "\ -Switch to BUFFER in another window, and enter view mode." t nil) - -(autoload 'view-minor-mode "view-less" "\ -Minor mode for viewing text, with bindings like `less'. -Commands are: -\\<view-minor-mode-map> -0..9 prefix args -- prefix minus -\\[scroll-up] page forward -\\[scroll-down] page back -\\[view-scroll-lines-up] scroll prefix-arg lines forward, default 1. -\\[view-scroll-lines-down] scroll prefix-arg lines backward, default 1. -\\[view-scroll-some-lines-down] scroll prefix-arg lines backward, default 10. -\\[view-scroll-some-lines-up] scroll prefix-arg lines forward, default 10. -\\[what-line] print line number -\\[view-mode-describe] print this help message -\\[view-search-forward] regexp search, uses previous string if you just hit RET -\\[view-search-backward] as above but searches backward -\\[view-repeat-search] repeat last search -\\[view-goto-line] goto line prefix-arg, default 1 -\\[view-last-windowful] goto line prefix-arg, default last line -\\[view-goto-percent] goto a position by percentage -\\[toggle-truncate-lines] toggle truncate-lines -\\[view-file] view another file -\\[view-buffer] view another buffer -\\[view-cleanup-backspaces] cleanup backspace constructions -\\[shell-command] execute a shell command -\\[shell-command-on-region] execute a shell command with the region as input -\\[view-quit] exit view-mode, and bury the current buffer. - -If invoked with the optional (prefix) arg non-nil, view-mode cleans up -backspace constructions. - -More precisely: -\\{view-minor-mode-map}" t nil) - -(autoload 'view-mode "view-less" "\ -View the current buffer using view-minor-mode. This exists to be 99.9% -compatible with the implementations of `view-mode' in view.el and older -versions of view-less.el." t nil) - -(autoload 'view-major-mode "view-less" "\ -View the current buffer using view-mode, as a major mode. -This function has a nonstandard name because `view-mode' is wrongly -named but is like this for compatibility reasons." t nil) - -(autoload 'auto-view-mode "view-less" "\ -If the file of the current buffer is not writable, call view-mode. -This is meant to be added to `find-file-hooks'." nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "view" "modes/view.el" (12984 29542)) -;;; Generated autoloads from modes/view.el - -;;;### (autoloads (vrml-mode) "vrml-mode" "modes/vrml-mode.el" (12984 29543)) -;;; Generated autoloads from modes/vrml-mode.el - -(autoload 'vrml-mode "vrml-mode" "\ -Major mode for editing VRML code. -Expression and list commands understand all VRML brackets. -Tab indents for VRML code. -Paragraphs are separated by blank lines only. -Delete converts tabs to spaces as it moves back. - -Variables controlling indentation style: - vrml-indent-level - Indentation of VRML statements within surrounding block. - -Variables controlling user interaction with mode (see variable -documentation for details): - vrml-tab-always-indent - Controls action of TAB key. - vrml-auto-newline - Non-nil means automatically newline before and after braces - inserted in VRML code. - -Turning on VRML mode calls the value of the variable `vrml-mode-hook' -with no args, if that value is non-nil. Read the documentation for -`vrml-mode-hook' to see what kinds of interesting hook functions -already exist. - -Commands: -\\{vrml-mode-map}" t nil) - -;;;*** - -;;;### (autoloads (xpm-mode) "xpm-mode" "modes/xpm-mode.el" (12984 29544)) -;;; Generated autoloads from modes/xpm-mode.el - -(autoload 'xpm-mode "xpm-mode" "\ -Treat the current buffer as an xpm file and colorize it. - - Shift-button-1 lets you paint by dragging the mouse. Shift-button-1 on a -color definition line will change the current painting color to that line's -value. - - Characters inserted from the keyboard will NOT be colored properly yet. -Use the mouse, or do xpm-init (\\[xpm-init]) after making changes. - -\\[xpm-add-color] Add a new color, prompting for character and value -\\[xpm-show-image] show the current image at the top of the buffer -\\[xpm-parse-color] parse the current line's color definition and add - it to the color table. Provided as a means of changing colors. -XPM minor mode bindings: -\\{xpm-mode-map}" t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "latex-math-symbol" "mu/latex-math-symbol.el" (12996 50654)) -;;; Generated autoloads from mu/latex-math-symbol.el - -;;;*** - -;;;### (autoloads nil "mu-bbdb" "mu/mu-bbdb.el" (12996 50654)) -;;; Generated autoloads from mu/mu-bbdb.el - -;;;*** - -;;;### (autoloads nil "mu-cite" "mu/mu-cite.el" (12996 50654)) -;;; Generated autoloads from mu/mu-cite.el - -;;;*** - -;;;### (autoloads nil "std11-parse" "mu/std11-parse.el" (12996 50654)) -;;; Generated autoloads from mu/std11-parse.el - -;;;*** - -;;;### (autoloads nil "std11" "mu/std11.el" (12996 50654)) -;;; Generated autoloads from mu/std11.el - -;;;### (autoloads nil "tl-822" "mu/tl-822.el" (12984 29595)) -;;; Generated autoloads from mu/tl-822.el - -;;;*** - -;;;### (autoloads nil "ns-init" "ns/ns-init.el" (12984 29591)) -;;; Generated autoloads from ns/ns-init.el - -;;;*** - -;;;### (autoloads nil "br-c++-ft" "oobr/br-c++-ft.el" (12984 29580)) -;;; Generated autoloads from oobr/br-c++-ft.el - -;;;*** - -;;;### (autoloads nil "br-c++" "oobr/br-c++.el" (12984 29580)) -;;; Generated autoloads from oobr/br-c++.el - -;;;*** - -;;;### (autoloads nil "br-c-ft" "oobr/br-c-ft.el" (12984 29583)) -;;; Generated autoloads from oobr/br-c-ft.el - -;;;*** - -;;;### (autoloads nil "br-clos-ft" "oobr/br-clos-ft.el" (12984 29580)) -;;; Generated autoloads from oobr/br-clos-ft.el - -;;;*** - -;;;### (autoloads nil "br-clos" "oobr/br-clos.el" (12984 29580)) -;;; Generated autoloads from oobr/br-clos.el - -;;;*** - -;;;### (autoloads nil "br-compl" "oobr/br-compl.el" (12984 29580)) -;;; Generated autoloads from oobr/br-compl.el - -;;;*** - -;;;### (autoloads nil "br-eif-ft" "oobr/br-eif-ft.el" (12984 29580)) -;;; Generated autoloads from oobr/br-eif-ft.el - -;;;*** - -;;;### (autoloads nil "br-eif" "oobr/br-eif.el" (12984 29580)) -;;; Generated autoloads from oobr/br-eif.el - -;;;*** - -;;;### (autoloads (br-env-load br-env-browse) "br-env" "oobr/br-env.el" (12984 29580)) -;;; Generated autoloads from oobr/br-env.el - -(autoload 'br-env-browse "br-env" "\ -Invoke the OO-Browser on an existing or to be created Environment ENV-FILE." t nil) - -(autoload 'br-env-load "br-env" "\ -Load browser Environment or spec from optional ENV-FILE or 'br-env-file'. -Non-nil PROMPT means prompt user before building tables. -Non-nil NO-BUILD means skip build of Environment entirely. -Return t if load is successful, else nil." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "br-ftr" "oobr/br-ftr.el" (12984 29581)) -;;; Generated autoloads from oobr/br-ftr.el - -;;;*** - -;;;### (autoloads nil "br-info" "oobr/br-info.el" (12984 29581)) -;;; Generated autoloads from oobr/br-info.el - -;;;*** - -;;;### (autoloads nil "br-init" "oobr/br-init.el" (12984 29581)) -;;; Generated autoloads from oobr/br-init.el - -;;;*** - -;;;### (autoloads nil "br-java-ft" "oobr/br-java-ft.el" (12984 29583)) -;;; Generated autoloads from oobr/br-java-ft.el - -;;;*** - -;;;### (autoloads nil "br-java" "oobr/br-java.el" (12984 29583)) -;;; Generated autoloads from oobr/br-java.el - -;;;*** - -;;;### (autoloads nil "br-lib" "oobr/br-lib.el" (12984 29581)) -;;; Generated autoloads from oobr/br-lib.el - -;;;*** - -;;;### (autoloads nil "br-menu" "oobr/br-menu.el" (12984 29583)) -;;; Generated autoloads from oobr/br-menu.el - -;;;*** - -;;;### (autoloads nil "br-objc-ft" "oobr/br-objc-ft.el" (12984 29581)) -;;; Generated autoloads from oobr/br-objc-ft.el - -;;;*** - -;;;### (autoloads nil "br-objc" "oobr/br-objc.el" (12984 29581)) -;;; Generated autoloads from oobr/br-objc.el - -;;;*** - -;;;### (autoloads nil "br-python-ft" "oobr/br-python-ft.el" (12984 29583)) -;;; Generated autoloads from oobr/br-python-ft.el - -;;;*** - -;;;### (autoloads nil "br-python" "oobr/br-python.el" (12984 29583)) -;;; Generated autoloads from oobr/br-python.el - -;;;*** - -;;;### (autoloads nil "br-site" "oobr/br-site.el" (12984 29581)) -;;; Generated autoloads from oobr/br-site.el - -;;;*** - -;;;### (autoloads nil "br-smt" "oobr/br-smt.el" (12984 29581)) -;;; Generated autoloads from oobr/br-smt.el - -;;;*** - -;;;### (autoloads (oo-browser) "br-start" "oobr/br-start.el" (12984 29581)) -;;; Generated autoloads from oobr/br-start.el - -(fset 'oobr 'oo-browser) - -(autoload 'oo-browser "br-start" "\ -Prompt for an Environment and language over which to run the OO-Browser. -Optional prefix argument SAME-ENV-FLAG means browse the current Environment, -if any, without prompting." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "br-tree" "oobr/br-tree.el" (12984 29581)) -;;; Generated autoloads from oobr/br-tree.el - -;;;*** - -;;;### (autoloads nil "br-vers" "oobr/br-vers.el" (12984 29581)) -;;; Generated autoloads from oobr/br-vers.el - -;;;### (autoloads (br-to-from-viewer br-add-class-file) "br" "oobr/br.el" (12984 29581)) -;;; Generated autoloads from oobr/br.el - -(autoload 'br-add-class-file "br" "\ -Add a file of classes to the current Environment. -Interactively or when optional CLASS-PATH is nil, CLASS-PATH defaults to the -current buffer file pathname. If optional LIB-TABLE-P is non-nil, add to -Library Environment, otherwise add to System Environment. If optional -SAVE-FILE is t, the Environment is then stored to the filename given by -'br-env-file'. If SAVE-FILE is non-nil and not t, its string value is used -as the file to which to save the Environment." t nil) - -(autoload 'br-to-from-viewer "br" "\ -Move point to viewer window or back to last recorded listing window." t nil) - -;;;*** - -;;;### (autoloads (c++-browse) "c++-browse" "oobr/c++-browse.el" (12984 29581)) -;;; Generated autoloads from oobr/c++-browse.el - -(autoload 'c++-browse "c++-browse" "\ -Invoke the C++ OO-Browser. -This allows browsing through C++ library and system class hierarchies. With -an optional non-nil prefix argument ENV-FILE, prompt for Environment file to -use. Alternatively, a string value of ENV-FILE is used as the Environment -file name. See also the file \"br-help\"." t nil) - -;;;*** - -;;;### (autoloads (clos-browse) "clos-brows" "oobr/clos-brows.el" (12984 29581)) -;;; Generated autoloads from oobr/clos-brows.el - -(autoload 'clos-browse "clos-brows" "\ -Invoke the CLOS OO-Browser. -This allows browsing through CLOS library and system class hierarchies. With -an optional non-nil prefix argument ENV-FILE, prompt for Environment file -to use. Alternatively, a string value of ENV-FILE is used as the -Environment file name. See also the file \"br-help\"." t nil) - -;;;*** - -;;;### (autoloads (eif-browse) "eif-browse" "oobr/eif-browse.el" (12984 29582)) -;;; Generated autoloads from oobr/eif-browse.el - -(autoload 'eif-browse "eif-browse" "\ -Invoke the Eiffel OO-Browser. -This allows browsing through Eiffel library and system class hierarchies. -With an optional prefix arg ENV-FILE equal to t, prompt for Environment file -to use. Alternatively, a string value of ENV-FILE is used as the Environment -file name. See also the file \"br-help\"." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "eif-calls" "oobr/eif-calls.el" (12984 29582)) -;;; Generated autoloads from oobr/eif-calls.el - -;;;*** - -;;;### (autoloads nil "eif-ise-er" "oobr/eif-ise-er.el" (12984 29582)) -;;; Generated autoloads from oobr/eif-ise-er.el - -;;;*** - -;;;### (autoloads nil "hash-test" "oobr/hash-test.el" (12984 29582)) -;;; Generated autoloads from oobr/hash-test.el - -;;;*** - -;;;### (autoloads nil "hasht" "oobr/hasht.el" (12984 29582)) -;;; Generated autoloads from oobr/hasht.el - -;;;*** - -;;;### (autoloads nil "hmouse-br" "oobr/hmouse-br.el" (12984 29582)) -;;; Generated autoloads from oobr/hmouse-br.el - -;;;### (autoloads (info-browse) "info-brows" "oobr/info-brows.el" (12984 29582)) -;;; Generated autoloads from oobr/info-brows.el - -(autoload 'info-browse "info-brows" "\ -Invoke the Info OO-Browser. -This allows browsing through Info library and system class hierarchies. With -an optional non-nil prefix argument ENV-FILE, prompt for Environment file to -use. Alternatively, a string value of ENV-FILE is used as the Environment -file name. See also the file \"br-help\"." t nil) - -;;;*** - -;;;### (autoloads (java-browse) "java-brows" "oobr/java-brows.el" (12984 29583)) -;;; Generated autoloads from oobr/java-brows.el - -(autoload 'java-browse "java-brows" "\ -Invoke the Java OO-Browser. -This allows browsing through Java library and system class hierarchies. With -an optional non-nil prefix argument ENV-FILE, prompt for Environment file to -use. Alternatively, a string value of ENV-FILE is used as the Environment -file name. See also the file \"br-help\"." t nil) - -;;;*** - -;;;### (autoloads (objc-browse) "objc-brows" "oobr/objc-brows.el" (12984 29582)) -;;; Generated autoloads from oobr/objc-brows.el - -(autoload 'objc-browse "objc-brows" "\ -Invoke the Objective-C OO-Browser. -This allows browsing through Objective-C library and system class -hierarchies. With an optional non-nil prefix argument ENV-FILE, prompt for -Environment file to use. Alternatively, a string value of ENV-FILE is used -as the Environment file name. See also the file \"br-help\"." t nil) - -;;;*** - -;;;### (autoloads (python-browse) "python-browse" "oobr/python-browse.el" (12984 29583)) -;;; Generated autoloads from oobr/python-browse.el - -(autoload 'python-browse "python-browse" "\ -Invoke the Python OO-Browser. -This allows browsing through Python library and system class hierarchies. -With an optional non-nil prefix argument ENV-FILE, prompt for Environment -file to use. Alternatively, a string value of ENV-FILE is used as the -Environment file name. See also the file \"br-help\"." t nil) - -;;;*** - -;;;### (autoloads (smt-browse) "smt-browse" "oobr/smt-browse.el" (12984 29582)) -;;; Generated autoloads from oobr/smt-browse.el - -(autoload 'smt-browse "smt-browse" "\ -Invoke the Smalltalk OO-Browser. -This allows browsing through Smalltalk library and system class hierarchies. -With an optional non-nil prefix argument ENV-FILE, prompt for Environment -file to use. Alternatively, a string value of ENV-FILE is used as the -Environment file name. See also the file \"br-help\"." t nil) - -;;;*** - -;;;### (autoloads (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" "packages/add-log.el" (12984 29545)) -;;; Generated autoloads from packages/add-log.el - -(defvar change-log-default-name nil "\ -*Name of a change log file for \\[add-change-log-entry].") - -(defvar add-log-current-defun-function nil "\ -*If non-nil, function to guess name of current function from surrounding text. -\\[add-change-log-entry] calls this function (if nil, `add-log-current-defun' -instead) with no arguments. It returns a string or nil if it cannot guess.") - -(defvar add-log-full-name nil "\ -*Full name of user, for inclusion in ChangeLog daily headers. -This defaults to the value returned by the `user-full-name' function.") - -(defvar add-log-mailing-address nil "\ -*Electronic mail address of user, for inclusion in ChangeLog daily headers. -This defaults to the value of `user-mail-address'.") - -(autoload 'prompt-for-change-log-name "add-log" "\ -Prompt for a change log name." 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." nil nil) - -(autoload 'add-change-log-entry "add-log" "\ -Find change log file and add an entry for today. -Optional arg (interactive prefix) non-nil means prompt for user name and site. -Second arg is file name of change log. If nil, uses `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." t nil) - -(autoload 'add-change-log-entry-other-window "add-log" "\ -Find change log file in other window and add an entry for today. -Optional arg (interactive prefix) non-nil means prompt for user name and site. -Second arg is file name of change log. If nil, uses `change-log-default-name'." t nil) - -(define-key ctl-x-4-map "a" 'add-change-log-entry-other-window) - -(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'." t nil) - -(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), Perl, and Fortran. - -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 variable -`add-log-current-defun-header-regexp'. - -Has a preference of looking backwards." nil nil) - -;;;*** - -;;;### (autoloads (apropos-documentation apropos-value apropos apropos-command) "apropos" "packages/apropos.el" (12991 23584)) -;;; Generated autoloads from packages/apropos.el - -(fset 'command-apropos 'apropos-command) - -(autoload 'apropos-command "apropos" "\ -Shows commands (interactively callable functions) that match REGEXP. -With optional prefix ARG or if `apropos-do-all' is non-nil, also show -variables." t nil) - -(autoload 'apropos "apropos" "\ -Show all bound symbols whose names match REGEXP. -With optional prefix ARG or if `apropos-do-all' is non-nil, also show unbound -symbols and key bindings, which is a little more time-consuming. -Returns list of symbols and documentation found." t nil) - -(autoload 'apropos-value "apropos" "\ -Show all symbols whose value's printed image matches REGEXP. -With optional prefix ARG or if `apropos-do-all' is non-nil, also looks -at the function and at the names and values of properties. -Returns list of symbols and values found." t nil) - -(autoload 'apropos-documentation "apropos" "\ -Show symbols whose documentation contain matches for REGEXP. -With optional prefix ARG or if `apropos-do-all' is non-nil, also use -documentation that is not stored in the documentation file and show key -bindings. -Returns list of symbols and documentation found." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "array" "packages/array.el" (12984 29546)) -;;; Generated autoloads from packages/array.el - -;;;*** - -;;;### (autoloads nil "auto-save" "packages/auto-save.el" (12984 29546)) -;;; Generated autoloads from packages/auto-save.el - -;;;### (autoloads (define-auto-insert auto-insert) "autoinsert" "packages/autoinsert.el" (12984 30019)) -;;; Generated autoloads from packages/autoinsert.el - -(autoload 'auto-insert "autoinsert" "\ -Insert default contents into a new file if `auto-insert' is non-nil. -Matches the visited file name against the elements of `auto-insert-alist'." 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." nil nil) - -;;;*** - -;;;### (autoloads (mouse-avoidance-mode) "avoid" "packages/avoid.el" (12984 29548)) -;;; Generated autoloads from packages/avoid.el - -(autoload 'mouse-avoidance-mode "avoid" "\ -Set cursor 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\".)" t nil) - -(add-minor-mode 'mouse-avoidance-mode " Avoid") - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "balloon-help" "packages/balloon-help.el" (12984 29550)) -;;; Generated autoloads from packages/balloon-help.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "big-menubar" "packages/big-menubar.el" (12984 29549)) -;;; Generated autoloads from packages/big-menubar.el - -;;;*** - -;;;### (autoloads (blink-cursor-mode) "blink-cursor" "packages/blink-cursor.el" (12984 29550)) -;;; Generated autoloads from packages/blink-cursor.el - -(autoload 'blink-cursor-mode "blink-cursor" "\ -Enable or disable a blinking cursor. -If TIMEOUT is nil, toggle on or off. -If TIMEOUT is t, enable with the previous timeout value. -If TIMEOUT is 0, disable. -If TIMEOUT is greater than 0, then the cursor will blink once -each TIMEOUT secs (can be a float)." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "blink-paren" "packages/blink-paren.el" (12984 29546)) -;;; Generated autoloads from packages/blink-paren.el - -;;;*** - -;;;### (autoloads (bookmark-menu-delete bookmark-menu-rename bookmark-menu-locate bookmark-menu-jump bookmark-menu-insert bookmark-bmenu-list bookmark-load bookmark-save bookmark-write bookmark-delete bookmark-insert bookmark-rename bookmark-insert-location bookmark-relocate bookmark-jump bookmark-set) "bookmark" "packages/bookmark.el" (12984 29547)) -;;; Generated autoloads from packages/bookmark.el - -(if (symbolp (key-binding "r")) nil (progn (define-key ctl-x-map "rb" 'bookmark-jump) (define-key ctl-x-map "rm" 'bookmark-set) (define-key ctl-x-map "rl" 'bookmark-bmenu-list))) - -(defvar bookmark-map nil "\ -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.") - -(define-prefix-command 'bookmark-map) - -(define-key bookmark-map "x" 'bookmark-set) - -(define-key bookmark-map "m" 'bookmark-set) - -(define-key bookmark-map "j" 'bookmark-jump) - -(define-key bookmark-map "g" 'bookmark-jump) - -(define-key bookmark-map "i" 'bookmark-insert) - -(define-key bookmark-map "e" 'edit-bookmarks) - -(define-key bookmark-map "f" 'bookmark-insert-location) - -(define-key bookmark-map "r" 'bookmark-rename) - -(define-key bookmark-map "d" 'bookmark-delete) - -(define-key bookmark-map "l" 'bookmark-load) - -(define-key bookmark-map "w" 'bookmark-write) - -(define-key bookmark-map "s" 'bookmark-save) - -(autoload 'bookmark-set "bookmark" "\ -Set a bookmark named NAME inside a file. -If name is nil, then the user will be prompted. -With prefix arg, will not overwrite a bookmark that has the same name -as NAME if such a bookmark already exists, but instead will \"push\" -the new bookmark onto the bookmark alist. Thus the most recently set -bookmark with name NAME would be the one in effect at any given time, -but the others are still there, should you 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 the name of the last bookmark used in the buffer -\(as an aid in using a single bookmark name to track your progress -through a large file). If no bookmark was used, then C-u inserts the -name of the file being visited. - -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.)" 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." t nil) - -(autoload 'bookmark-relocate "bookmark" "\ -Relocate BOOKMARK -- prompts for a filename, and 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." t nil) - -(autoload 'bookmark-insert-location "bookmark" "\ -Insert the name of the file associated with BOOKMARK. -Optional second arg NO-HISTORY means don't record this in the -minibuffer history list `bookmark-history'." t nil) - -(autoload 'bookmark-rename "bookmark" "\ -Change the name of OLD bookmark to NEW name. If called from -keyboard, prompts for OLD and NEW. If called from menubar, OLD is -selected from a menu, and prompts for NEW. - -If called from Lisp, prompts for NEW if only OLD was passed as an -argument. If called with two strings, then no prompting is done. You -must pass at least OLD when calling from Lisp. - -While you are entering the new name, consecutive C-w's insert -consectutive words from the text of the buffer into the new bookmark -name." t nil) - -(autoload 'bookmark-insert "bookmark" "\ -Insert the text of the file pointed to by bookmark BOOKMARK. -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." t nil) - -(autoload 'bookmark-delete "bookmark" "\ -Delete BOOKMARK 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." t nil) - -(autoload 'bookmark-write "bookmark" "\ -Write bookmarks to a file (for which the user will be prompted -interactively). Don't use this in Lisp programs; use bookmark-save -instead." 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 PREFIX-ARG -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'." 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 REVERT 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." 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." t nil) - -(defalias 'list-bookmarks 'bookmark-bmenu-list) - -(defalias 'edit-bookmarks 'bookmark-bmenu-list) - -(autoload 'bookmark-menu-insert "bookmark" "\ -Insert the text of the file pointed to by bookmark BOOKMARK. -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. - -Warning: this function only takes an EVENT as argument. Use the -corresponding bookmark function from Lisp (the one without the -\"-menu-\" in its name)." t nil) - -(autoload 'bookmark-menu-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. - -Warning: this function only takes an EVENT as argument. Use the -corresponding bookmark function from Lisp (the one without the -\"-menu-\" in its name)." t nil) - -(autoload 'bookmark-menu-locate "bookmark" "\ -Insert the name of the file associated with BOOKMARK. -\(This is not the same as the contents of that file). - -Warning: this function only takes an EVENT as argument. Use the -corresponding bookmark function from Lisp (the one without the -\"-menu-\" in its name)." t nil) - -(autoload 'bookmark-menu-rename "bookmark" "\ -Change the name of OLD-BOOKMARK to NEWNAME. -If called from keyboard, prompts for OLD-BOOKMARK and NEWNAME. -If called from menubar, OLD-BOOKMARK is selected from a menu, and -prompts for NEWNAME. -If called from Lisp, prompts for NEWNAME if only OLD-BOOKMARK was -passed as an argument. If called with two strings, then no prompting -is done. You must pass at least OLD-BOOKMARK when calling from Lisp. - -While you are entering the new name, consecutive C-w's insert -consectutive words from the text of the buffer into the new bookmark -name. - -Warning: this function only takes an EVENT as argument. Use the -corresponding bookmark function from Lisp (the one without the -\"-menu-\" in its name)." t nil) - -(autoload 'bookmark-menu-delete "bookmark" "\ -Delete the bookmark named 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). - -Warning: this function only takes an EVENT as argument. Use the -corresponding bookmark function from Lisp (the one without the -\"-menu-\" in its name)." t nil) - -;;;*** - -;;;### (autoloads nil "buff-menu" "packages/buff-menu.el" (12988 19714)) -;;; Generated autoloads from packages/buff-menu.el - -(defvar list-buffers-directory nil) - -(make-variable-buffer-local 'list-buffers-directory) - -;;;*** - -;;;### (autoloads (command-history-mode list-command-history repeat-matching-complex-command) "chistory" "packages/chistory.el" (12984 29546)) -;;; Generated autoloads from packages/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." 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." t nil) - -(autoload 'command-history-mode "chistory" "\ -Major mode for examining commands from `command-history'. -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} -Calls the value of `command-history-hook' if that is non-nil. -The Command History listing is recomputed each time this mode is invoked." t nil) - -;;;*** - -;;;### (autoloads nil "cmuscheme" "packages/cmuscheme.el" (12984 29550)) -;;; Generated autoloads from packages/cmuscheme.el - -(add-hook 'same-window-buffer-names "*scheme*") - -;;;*** - -;;;### (autoloads (display-column-mode) "column" "packages/column.el" (12984 30028)) -;;; Generated autoloads from packages/column.el - -(autoload 'display-column-mode "column" "\ -Toggle display column mode. -With prefix arg, turn display column mode on iff arg is positive. - -When display column mode is on, the current column and line number are -displayed in the mode line." t nil) - -;;;*** - -;;;### (autoloads (compare-windows) "compare-w" "packages/compare-w.el" (12984 29546)) -;;; Generated autoloads from packages/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 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." t nil) - -;;;*** - -;;;### (autoloads (first-error previous-error next-error compilation-minor-mode grep compile) "compile" "packages/compile.el" (12988 19715)) -;;; Generated autoloads from packages/compile.el - -(defvar compilation-mode-hook nil "\ -*List of hook functions run by `compilation-mode' (see `run-hooks').") - -(defvar compilation-window-height nil "\ -*Number of lines in a compilation window. If nil, use Emacs default.") - -(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. -nil means 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-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. -nil as an element means to try the default directory.") - -(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. - -Interactively, prompts for the command if `compilation-read-command' is -non-nil; otherwise uses `compile-command'. With prefix arg, always prompts. - -To run more than one compilation at once, start one and rename the -`*compilation*' buffer to some other name with \\[rename-buffer]. -Then start the next one. - -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." t nil) - -(autoload 'grep "compile" "\ -Run grep, with user-specified args, and collect output in a buffer. -While grep 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 grep command." t nil) - -(autoload 'compilation-minor-mode "compile" "\ -Toggle compilation minor mode. -With arg, turn compilation mode on if and only if arg is positive. -See `compilation-mode'. -! \\{compilation-mode-map}" t nil) - -(autoload 'next-error "compile" "\ -Visit next compilation error message and corresponding source code. -This operates on the output from the \\[compile] command. -If all preparsed error messages have been processed, -the error message buffer is checked for new ones. - -A prefix arg specifies how many error messages to move; -negative means move back to previous error messages. -Just C-u as a prefix means reparse the error message buffer -and start at the first error. - -\\[next-error] normally applies to the most recent compilation started, -but as long as you are in the middle of parsing errors from one compilation -output buffer, you stay with that compilation output buffer. - -Use \\[next-error] in a compilation output buffer to switch to -processing errors from that compilation. - -See variables `compilation-parse-errors-function' and -`compilation-error-regexp-alist' for customization ideas." t nil) - -(define-key ctl-x-map "`" 'next-error) - -(autoload 'previous-error "compile" "\ -Visit previous compilation error message and corresponding source code. -This operates on the output from the \\[compile] command." t nil) - -(autoload 'first-error "compile" "\ -Reparse the error message buffer and start at the first error -Visit corresponding source code. -This operates on the output from the \\[compile] command." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "completion" "packages/completion.el" (12984 29550)) -;;; Generated autoloads from packages/completion.el - -;;;*** - -;;;### (autoloads nil "crypt" "packages/crypt.el" (12984 29548)) -;;; Generated autoloads from packages/crypt.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "packages/dabbrev.el" (12984 29546)) -;;; Generated autoloads from packages/dabbrev.el - -(define-key global-map [(meta /)] 'dabbrev-expand) - -(define-key global-map [(meta control /)] '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, 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 C-u C-u), -then it searches *all* buffers. - -With no prefix argument, it reuses an old completion list -if there is a suitable one already." 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]." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "desktop" "packages/desktop.el" (12984 29549)) -;;; Generated autoloads from packages/desktop.el - -;;;*** - -;;;### (autoloads nil "detexinfo" "packages/detexinfo.el" (12984 29548)) -;;; Generated autoloads from packages/detexinfo.el - -;;;*** - -;;;### (autoloads (diff-backup diff) "diff" "packages/diff.el" (12984 29546)) -;;; Generated autoloads from packages/diff.el - -(defvar diff-switches (purecopy "-c") "\ -*A string or list of strings specifying switches to be passed to diff.") - -(autoload 'diff "diff" "\ -Find and display the differences between OLD and NEW files. -Interactively the current buffer's file name is the default for NEW -and a backup file for NEW is the default for OLD. -With prefix arg, prompt for diff switches." 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'." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "doctex" "packages/doctex.el" (12984 29546)) -;;; Generated autoloads from packages/doctex.el - -;;;### (autoloads (edit-faces) "edit-faces" "packages/edit-faces.el" (12984 29550)) -;;; Generated autoloads from packages/edit-faces.el - -(autoload 'edit-faces "edit-faces" "\ -Alter face characteristics by editing a list of defined faces. -Pops up a buffer containing a list of defined faces. - -Editing commands: - -\\{edit-faces-mode-map}" t nil) - -;;;*** - -;;;### (autoloads (report-xemacs-bug) "emacsbug" "packages/emacsbug.el" (12984 29546)) -;;; Generated autoloads from packages/emacsbug.el - -(autoload 'report-xemacs-bug "emacsbug" "\ -Report a bug in XEmacs. -Prompts for bug subject. Leaves you in a mail buffer." t nil) - -;;;*** - -;;;### (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" "packages/emerge.el" (12984 29546)) -;;; Generated autoloads from packages/emerge.el - -(autoload 'emerge-files "emerge" "\ -Run Emerge on two files." t nil) - -(fset 'emerge 'emerge-files) - -(autoload 'emerge-files-with-ancestor "emerge" "\ -Run Emerge on two files, giving another file as the ancestor." t nil) - -(autoload 'emerge-buffers "emerge" "\ -Run Emerge on two buffers." t nil) - -(autoload 'emerge-buffers-with-ancestor "emerge" "\ -Run Emerge on two buffers, giving another buffer as the ancestor." t nil) - -(autoload 'emerge-files-command "emerge" nil nil nil) - -(autoload 'emerge-files-with-ancestor-command "emerge" nil nil nil) - -(autoload 'emerge-files-remote "emerge" nil nil nil) - -(autoload 'emerge-files-with-ancestor-remote "emerge" nil nil nil) - -(autoload 'emerge-revisions "emerge" "\ -Emerge two RCS revisions of a file." t nil) - -(autoload 'emerge-revisions-with-ancestor "emerge" "\ -Emerge two RCS revisions of a file, with another revision as ancestor." t nil) - -(autoload 'emerge-merge-directories "emerge" nil t nil) - -;;;*** - -;;;### (autoloads (tags-apropos list-tags tags-query-replace tags-search tags-loop-continue next-file find-tag-other-window find-tag visit-tags-table) "etags" "packages/etags.el" (12984 29546)) -;;; Generated autoloads from packages/etags.el - -(defvar tags-build-completion-table 'ask "\ -*If this variable is nil, then tags completion is disabled. -If this variable is t, then things which prompt for tags will do so with - completion across all known tags. -If this variable is the symbol `ask', then you will be asked whether each - tags table should be added to the completion list as it is read in. - (With the exception that for very small tags tables, you will not be asked, - since they can be parsed quickly.)") - -(defvar tags-always-exact nil "\ -*If this variable is non-nil, then tags always looks for exact matches.") - -(defvar tag-table-alist nil "\ -*A list which determines which tags files should be active for a -given buffer. This is not really an association list, in that all -elements are checked. The CAR of each element of this list is a -pattern against which the buffer's file name is compared; if it -matches, then the CDR of the list should be the name of the tags -table to use. If more than one element of this list matches the -buffer's file name, then all of the associated tags tables will be -used. Earlier ones will be searched first. - -If the CAR of elements of this list are strings, then they are treated -as regular-expressions against which the file is compared (like the -auto-mode-alist). If they are not strings, then they are evaluated. -If they evaluate to non-nil, then the current buffer is considered to -match. - -If the CDR of the elements of this list are strings, then they are -assumed to name a TAGS file. If they name a directory, then the string -\"TAGS\" is appended to them to get the file name. If they are not -strings, then they are evaluated, and must return an appropriate string. - -For example: - (setq tag-table-alist - '((\"/usr/src/public/perl/\" . \"/usr/src/public/perl/perl-3.0/\") - (\"\\\\.el$\" . \"/usr/local/emacs/src/\") - (\"/jbw/gnu/\" . \"/usr15/degree/stud/jbw/gnu/\") - (\"\" . \"/usr/local/emacs/src/\") - )) - -This means that anything in the /usr/src/public/perl/ directory should use -the TAGS file /usr/src/public/perl/perl-3.0/TAGS; and file ending in .el should -use the TAGS file /usr/local/emacs/src/TAGS; and anything in or below the -directory /jbw/gnu/ should use the TAGS file /usr15/degree/stud/jbw/gnu/TAGS. -A file called something like \"/usr/jbw/foo.el\" would use both the TAGS files -/usr/local/emacs/src/TAGS and /usr15/degree/stud/jbw/gnu/TAGS (in that order) -because it matches both patterns. - -If the buffer-local variable `buffer-tag-table' is set, then it names a tags -table that is searched before all others when find-tag is executed from this -buffer. - -If there is a file called \"TAGS\" in the same directory as the file in -question, then that tags file will always be used as well (after the -`buffer-tag-table' but before the tables specified by this list.) - -If the variable tags-file-name is set, then the tags file it names will apply -to all buffers (for backwards compatibility.) It is searched first. -") - -(autoload 'visit-tags-table "etags" "\ -Tell tags commands to use tags table file FILE first. -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." t nil) - -(autoload 'find-tag "etags" "\ -*Find tag whose name contains TAGNAME. - Selects the buffer that the tag is contained in -and puts point at its definition. - If TAGNAME is a null string, the expression in the buffer -around or before point is used as the tag name. - If called interactively with a numeric argument, searches for the next tag -in the tag table that matches the tagname used in the previous find-tag. - If second arg OTHER-WINDOW is non-nil, uses another window to display -the tag. - -This version of this function supports multiple active tags tables, -and completion. - -Variables of note: - - tag-table-alist controls which tables apply to which buffers - tags-file-name a default tags table - tags-build-completion-table controls completion behavior - buffer-tag-table another way of specifying a buffer-local table - make-tags-files-invisible whether tags tables should be very hidden - tag-mark-stack-max how many tags-based hops to remember" t nil) - -(autoload 'find-tag-other-window "etags" "\ -*Find tag whose name contains TAGNAME. - Selects the buffer that the tag is contained in in another window -and puts point at its definition. - If TAGNAME is a null string, the expression in the buffer -around or before point is used as the tag name. - If second arg NEXT is non-nil (interactively, with prefix arg), -searches for the next tag in the tag table -that matches the tagname used in the previous find-tag. - -This version of this function supports multiple active tags tables, -and completion. - -Variables of note: - - tag-table-alist controls which tables apply to which buffers - tags-file-name a default tags table - tags-build-completion-table controls completion behavior - buffer-tag-table another way of specifying a buffer-local table - make-tags-files-invisible whether tags tables should be very hidden - tag-mark-stack-max how many tags-based hops to remember" t nil) - -(autoload 'next-file "etags" "\ -Select next file among files in current tag table(s). - -A first argument of t (prefix arg, if interactive) initializes to the -beginning of the list of files in the (first) 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." 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 execute to operate on an interesting file -If the latter returns non-nil, we exit; otherwise we scan the next file." t nil) - -(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]. - -See documentation of variable `tag-table-alist'." t nil) - -(autoload 'tags-query-replace "etags" "\ -Query-replace-regexp FROM with TO through all files listed in tags table. -Third arg DELIMITED (prefix arg) means replace only word-delimited matches. -If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace -with the command \\[tags-loop-continue]. - -See documentation of variable `tag-table-alist'." t nil) - -(autoload 'list-tags "etags" "\ -Display list of tags in file FILE. -FILE should not contain a directory spec -unless it has one in the tag table." t nil) - -(autoload 'tags-apropos "etags" "\ -Display list of all tags in tag table REGEXP matches." t nil) - -;;;*** - -;;;### (autoloads nil "fa-extras" "packages/fa-extras.el" (12547 41264)) -;;; Generated autoloads from packages/fa-extras.el - -;;;### (autoloads (turn-on-fast-lock fast-lock-mode) "fast-lock" "packages/fast-lock.el" (12984 29549)) -;;; Generated autoloads from packages/fast-lock.el - -(defvar fast-lock-mode nil) - -(autoload 'fast-lock-mode "fast-lock" "\ -Toggle Fast Lock mode. -With arg, turn Fast Lock mode on if and only if arg is positive and the buffer -is associated with a file. Enable it automatically in your `~/.emacs' by: - - (setq font-lock-support-mode 'fast-lock-mode) - -If Fast Lock mode is enabled, and the current buffer does not contain any text -properties, any associated Font Lock cache is used if its timestamp matches the -buffer's file, and its `font-lock-keywords' match those that you are using. - -Font Lock caches may be saved: - - When you save the file's buffer. - - When you kill an unmodified file's buffer. - - When you exit Emacs, for all unmodified or saved buffers. -Depending on the value of `fast-lock-save-events'. -See also the commands `fast-lock-read-cache' and `fast-lock-save-cache'. - -Use \\[font-lock-fontify-buffer] to fontify the buffer if the cache is bad. - -Various methods of control are provided for the Font Lock cache. In general, -see variable `fast-lock-cache-directories' and function `fast-lock-cache-name'. -For saving, see variables `fast-lock-minimum-size', `fast-lock-save-events', -`fast-lock-save-others' and `fast-lock-save-faces'. - -Use \\[fast-lock-submit-bug-report] to send bug reports or feedback." t nil) - -(autoload 'turn-on-fast-lock "fast-lock" "\ -Unconditionally turn on Fast Lock mode." nil nil) - -(if (fboundp 'add-minor-mode) (add-minor-mode 'fast-lock-mode nil)) - -;;;*** - -;;;### (autoloads (feedmail-send-it) "feedmail" "packages/feedmail.el" (12984 29546)) -;;; Generated autoloads from packages/feedmail.el - -(autoload 'feedmail-send-it "feedmail" nil nil nil) - -;;;*** - -;;;### (autoloads (make-file-part) "file-part" "packages/file-part.el" (12984 29549)) -;;; Generated autoloads from packages/file-part.el - -(autoload 'make-file-part "file-part" "\ -Make a file part on buffer BUFFER out of the region. Call it NAME. -This command creates a new buffer containing the contents of the -region and marks the buffer as referring to the specified buffer, -called the `master buffer'. When the file-part buffer is saved, -its changes are integrated back into the master buffer. When the -master buffer is deleted, all file parts are deleted with it. - -When called from a function, expects four arguments, START, END, -NAME, and BUFFER, all of which are optional and default to the -beginning of BUFFER, the end of BUFFER, a name generated from -BUFFER's name, and the current buffer, respectively." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "filladapt" "packages/filladapt.el" (12984 29550)) -;;; Generated autoloads from packages/filladapt.el - -;;;*** - -;;;### (autoloads (font-lock-fontify-buffer turn-off-font-lock turn-on-font-lock font-lock-mode) "font-lock" "packages/font-lock.el" (12988 58307)) -;;; Generated autoloads from packages/font-lock.el - -(defvar font-lock-auto-fontify t "\ -*Whether font-lock should automatically fontify files as they're loaded. -This will only happen if font-lock has fontifying keywords for the major -mode of the file. You can get finer-grained control over auto-fontification -by using this variable in combination with `font-lock-mode-enable-list' or -`font-lock-mode-disable-list'.") - -(defvar font-lock-mode-enable-list nil "\ -*List of modes to auto-fontify, if `font-lock-auto-fontify' is nil.") - -(defvar font-lock-mode-disable-list nil "\ -*List of modes not to auto-fontify, if `font-lock-auto-fontify' is t.") - -(defvar font-lock-use-colors '(color) "\ -*Specification for when Font Lock will set up color defaults. -Normally this should be '(color), meaning that Font Lock will set up -color defaults that are only used on color displays. Set this to nil -if you don't want Font Lock to set up color defaults at all. This -should be one of - --- a list of valid tags, meaning that the color defaults will be used - when all of the tags apply. (e.g. '(color x)) --- a list whose first element is 'or and whose remaining elements are - lists of valid tags, meaning that the defaults will be used when - any of the tag lists apply. --- nil, meaning that the defaults should not be set up at all. - -\(If you specify face values in your init file, they will override any -that Font Lock specifies, regardless of whether you specify the face -values before or after loading Font Lock.) - -See also `font-lock-use-fonts'. If you want more control over the faces -used for fontification, see the documentation of `font-lock-mode' for -how to do it.") - -(defvar font-lock-use-fonts '(or (mono) (grayscale)) "\ -*Specification for when Font Lock will set up non-color defaults. - -Normally this should be '(or (mono) (grayscale)), meaning that Font -Lock will set up non-color defaults that are only used on either mono -or grayscale displays. Set this to nil if you don't want Font Lock to -set up non-color defaults at all. This should be one of - --- a list of valid tags, meaning that the non-color defaults will be used - when all of the tags apply. (e.g. '(grayscale x)) --- a list whose first element is 'or and whose remaining elements are - lists of valid tags, meaning that the defaults will be used when - any of the tag lists apply. --- nil, meaning that the defaults should not be set up at all. - -\(If you specify face values in your init file, they will override any -that Font Lock specifies, regardless of whether you specify the face -values before or after loading Font Lock.) - -See also `font-lock-use-colors'. If you want more control over the faces -used for fontification, see the documentation of `font-lock-mode' for -how to do it.") - -(defvar font-lock-maximum-decoration nil "\ -*If non-nil, the maximum decoration level for fontifying. -If nil, use the minimum decoration (equivalent to level 0). -If t, use the maximum decoration available. -If a number, use that level of decoration (or if not available the maximum). -If a list, each element should be a cons pair of the form (MAJOR-MODE . LEVEL), -where MAJOR-MODE is a symbol or t (meaning the default). For example: - ((c++-mode . 2) (c-mode . t) (t . 1)) -means use level 2 decoration for buffers in `c++-mode', the maximum decoration -available for buffers in `c-mode', and level 1 decoration otherwise.") - -(define-obsolete-variable-alias 'font-lock-use-maximal-decoration 'font-lock-maximum-decoration) - -(defvar font-lock-maximum-size (* 250 1024) "\ -*If non-nil, the maximum size for buffers for fontifying. -Only buffers less than this can be fontified when Font Lock mode is turned on. -If nil, means size is irrelevant. -If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE), -where MAJOR-MODE is a symbol or t (meaning the default). For example: - ((c++-mode . 256000) (c-mode . 256000) (rmail-mode . 1048576)) -means that the maximum size is 250K for buffers in `c++-mode' or `c-mode', one -megabyte for buffers in `rmail-mode', and size is irrelevant otherwise.") - -(defvar font-lock-keywords nil "\ -*A list of the keywords to highlight. -Each element should be of the form: - - MATCHER - (MATCHER . MATCH) - (MATCHER . FACENAME) - (MATCHER . HIGHLIGHT) - (MATCHER HIGHLIGHT ...) - -where HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED. - -For highlighting single items, typically only MATCH-HIGHLIGHT is required. -However, if an item or (typically) items is to be hightlighted following the -instance of another item (the anchor) then MATCH-ANCHORED may be required. - -MATCH-HIGHLIGHT should be of the form: - - (MATCH FACENAME OVERRIDE LAXMATCH) - -Where MATCHER can be either the regexp to search for, or the function name to -call to make the search (called with one argument, the limit of the search). -MATCH is the subexpression of MATCHER to be highlighted. FACENAME is either -a symbol naming a face, or an expression whose value is the face name to use. -If you want FACENAME to be a symbol that evaluates to a face, use a form -like \"(progn sym)\". - -OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification may -be overwritten. If `keep', only parts not already fontified are highlighted. -If `prepend' or `append', existing fontification is merged with the new, in -which the new or existing fontification, respectively, takes precedence. -If LAXMATCH is non-nil, no error is signalled if there is no MATCH in MATCHER. - -For example, an element of the form highlights (if not already highlighted): - - \"\\\\\\=<foo\\\\\\=>\" Discrete occurrences of \"foo\" in the value of the - variable `font-lock-keyword-face'. - (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of \"fubar\" in - the value of `font-lock-keyword-face'. - (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of `fubar-face'. - (\"foo\\\\|bar\" 0 foo-bar-face t) - Occurrences of either \"foo\" or \"bar\" in the value - of `foo-bar-face', even if already highlighted. - -MATCH-ANCHORED should be of the form: - - (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...) - -Where MATCHER is as for MATCH-HIGHLIGHT with one exception. The limit of the -search is currently guaranteed to be (no greater than) the end of the line. -PRE-MATCH-FORM and POST-MATCH-FORM are evaluated before the first, and after -the last, instance MATCH-ANCHORED's MATCHER is used. Therefore they can be -used to initialise before, and cleanup after, MATCHER is used. Typically, -PRE-MATCH-FORM is used to move to some position relative to the original -MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might -be used to move, before resuming with MATCH-ANCHORED's parent's MATCHER. - -For example, an element of the form highlights (if not already highlighted): - - (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face))) - - Discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent - discrete occurrences of \"item\" (on the same line) in the value of `item-face'. - (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil. Therefore \"item\" is - initially searched for starting from the end of the match of \"anchor\", and - searching for subsequent instance of \"anchor\" resumes from where searching - for \"item\" concluded.) - -Note that the MATCH-ANCHORED feature is experimental; in the future, we may -replace it with other ways of providing this functionality. - -These regular expressions should not match text which spans lines. While -\\[font-lock-fontify-buffer] handles multi-line patterns correctly, updating -when you edit the buffer does not, since it considers text one line at a time. - -Be very careful composing regexps for this list; -the wrong pattern can dramatically slow things down!") - -(make-variable-buffer-local 'font-lock-keywords) - -(defvar font-lock-mode nil) - -(defvar font-lock-mode-hook nil "\ -Function or functions to run on entry to font-lock-mode.") - -(autoload 'font-lock-mode "font-lock" "\ -Toggle Font Lock Mode. -With arg, turn font-lock mode on if and only if arg is positive. - -When Font Lock mode is enabled, text is fontified as you type it: - - - Comments are displayed in `font-lock-comment-face'; - - Strings are displayed in `font-lock-string-face'; - - Documentation strings (in Lisp-like languages) are displayed in - `font-lock-doc-string-face'; - - Language keywords (\"reserved words\") are displayed in - `font-lock-keyword-face'; - - Function names in their defining form are displayed in - `font-lock-function-name-face'; - - Variable names in their defining form are displayed in - `font-lock-variable-name-face'; - - Type names are displayed in `font-lock-type-face'; - - References appearing in help files and the like are displayed - in `font-lock-reference-face'; - - Preprocessor declarations are displayed in - `font-lock-preprocessor-face'; - - and - - - Certain other expressions are displayed in other faces according - to the value of the variable `font-lock-keywords'. - -Where modes support different levels of fontification, you can use the variable -`font-lock-maximum-decoration' to specify which level you generally prefer. -When you turn Font Lock mode on/off the buffer is fontified/defontified, though -fontification occurs only if the buffer is less than `font-lock-maximum-size'. -To fontify a buffer without turning on Font Lock mode, and regardless of buffer -size, you can use \\[font-lock-fontify-buffer]. - -See the variable `font-lock-keywords' for customization." t nil) - -(autoload 'turn-on-font-lock "font-lock" "\ -Unconditionally turn on Font Lock mode." nil nil) - -(autoload 'turn-off-font-lock "font-lock" "\ -Unconditionally turn off Font Lock mode." nil nil) - -(autoload 'font-lock-fontify-buffer "font-lock" "\ -Fontify the current buffer the way `font-lock-mode' would. -See `font-lock-mode' for details. - -This can take a while for large buffers." t nil) - -(add-minor-mode 'font-lock-mode " Font") - -;;;*** - -;;;*** - -;;;### (autoloads nil "fontl-hooks" "packages/fontl-hooks.el" (12988 56251)) -;;; Generated autoloads from packages/fontl-hooks.el - -;;;*** - -;;;### (autoloads nil "func-menu" "packages/func-menu.el" (12984 29546)) -;;; Generated autoloads from packages/func-menu.el - -;;;### (autoloads (sc-mode) "generic-sc" "packages/generic-sc.el" (12984 29545)) -;;; Generated autoloads from packages/generic-sc.el - -(autoload 'sc-mode "generic-sc" "\ -Toggle sc-mode. -SYSTEM can be sccs, rcs or cvs. -Cvs requires the pcl-cvs package. - -The following commands are available -\\[sc-next-operation] perform next logical source control operation on current file -\\[sc-show-changes] compare the version being edited with an older one -\\[sc-version-diff-file] compare two older versions of a file -\\[sc-show-history] display change history of current file -\\[sc-visit-previous-revision] display an older revision of current file -\\[sc-revert-file] revert buffer to last checked-in version -\\[sc-list-all-locked-files] show all files locked in current directory -\\[sc-list-locked-files] show all files locked by you in current directory -\\[sc-list-registered-files] show all files under source control in current directory -\\[sc-update-directory] get fresh copies of files checked-in by others in current directory -\\[sc-rename-file] rename the current file and its source control file - - -While you are entering a change log message for a check in, sc-log-entry-mode -will be in effect. - -Global user options: - sc-diff-command A list consisting of the command and flags - to be used for generating context diffs. - sc-mode-expert suppresses some conformation prompts, - notably for delta aborts and file saves. - sc-max-log-size specifies the maximum allowable size - of a log message plus one. - - -When using SCCS you have additional commands and options - -\\[sccs-insert-headers] insert source control headers in current file - -When you generate headers into a buffer using \\[sccs-insert-headers], -the value of sc-insert-headers-hook is called before insertion. If the -file is recognized a C or Lisp source, sc-insert-c-header-hook or -sc-insert-lisp-header-hook is called after insertion respectively. - - sccs-headers-wanted which %-keywords to insert when adding - headers with C-c h - sccs-insert-static if non-nil, keywords inserted in C files - get stuffed in a static string area so that - what(1) can see them in the compiled object code. - -When using CVS you have additional commands - -\\[sc-cvs-update-directory] update the current directory using pcl-cvs -\\[sc-cvs-file-status] show the CVS status of current file -" t nil) - -;;;*** - -;;;### (autoloads (gnuserv-start) "gnuserv" "packages/gnuserv.el" (12984 29548)) -;;; Generated autoloads from packages/gnuserv.el - -(autoload 'gnuserv-start "gnuserv" "\ -Allow this Emacs process to be a server for client processes. -This starts a server communications subprocess through which -client \"editors\" (gnuclient and gnudoit) can send editing commands to -this Emacs job. See the gnuserv(1) manual page for more details. - -Prefix arg means just kill any existing server communications subprocess." t nil) - -;;;*** - -;;;### (autoloads (gopher-atpoint gopher) "gopher" "packages/gopher.el" (12984 29547)) -;;; Generated autoloads from packages/gopher.el - -(autoload 'gopher "gopher" "\ -Start a gopher session. With C-u, prompt for a gopher server." t nil) - -(autoload 'gopher-atpoint "gopher" "\ -Try to interpret the text around point as a gopher bookmark, and dispatch -to that object." t nil) - -;;;*** - -;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl" "packages/hexl.el" (12984 30023)) -;;; Generated autoloads from packages/hexl.el - -(autoload 'hexl-mode "hexl" "\ -\\<hexl-mode-map> -A major mode for editing binary files in hex dump format. - -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 16 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 (ie. 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." t nil) - -(autoload 'hexl-find-file "hexl" "\ -Edit file FILENAME in hexl-mode. -Switch to a buffer visiting file FILENAME, creating one in none exists." t nil) - -(autoload 'hexlify-buffer "hexl" "\ -Convert a binary buffer to hexl format. -This discards the buffer's undo information." t nil) - -;;;*** - -;;;### (autoloads (hypropos-popup-menu hypropos-set-variable hyper-describe-function hyper-describe-variable hyper-apropos) "hyper-apropos" "packages/hyper-apropos.el" (12984 29549)) -;;; Generated autoloads from packages/hyper-apropos.el - -(defvar hypropos-show-brief-docs t "\ -*If non-nil, `hyper-apropos' will display some documentation in the -\"*Hyper Apropos*\" buffer. Setting this to nil will speed up searches.") - -(autoload 'hyper-apropos "hyper-apropos" "\ -Display lists of functions and variables matching REGEXP -in buffer \"*Hyper Apropos*\". If optional prefix arg is given, then the value -of `hypropos-programming-apropos' is toggled for this search. -See also `hyper-apropos-mode'." t nil) - -(autoload 'hyper-describe-variable "hyper-apropos" "\ -Hypertext drop-in replacement for `describe-variable'. -See also `hyper-apropos' and `hyper-describe-function'." t nil) - -(autoload 'hyper-describe-function "hyper-apropos" "\ -Hypertext replacement for `describe-function'. Unlike `describe-function' -in that the symbol under the cursor is the default if it is a function. -See also `hyper-apropos' and `hyper-describe-variable'." t nil) - -(autoload 'hypropos-set-variable "hyper-apropos" "\ -Interactively set the variable on the current line." t nil) - -(autoload 'hypropos-popup-menu "hyper-apropos" nil t nil) - -;;;*** - -;;;### (autoloads (icomplete-minibuffer-setup icomplete-mode) "icomplete" "packages/icomplete.el" (12989 49060)) -;;; Generated autoloads from packages/icomplete.el - -(autoload 'icomplete-mode "icomplete" "\ -Activate incremental minibuffer completion for this emacs session, -or deactivate with negative prefix arg." t nil) - -(autoload 'icomplete-minibuffer-setup "icomplete" "\ -Run in minibuffer on activation to establish incremental completion. -Usually run by inclusion in `minibuffer-setup-hook'." nil nil) - -;;;*** - -;;;### (autoloads (Info-elisp-ref Info-emacs-key Info-goto-emacs-key-command-node Info-goto-emacs-command-node Info-emacs-command Info-search Info-visit-file Info-goto-node Info-query info) "info" "packages/info.el" (12984 29545)) -;;; Generated autoloads from packages/info.el - -(autoload 'info "info" "\ -Enter Info, the documentation browser. -Optional argument FILE specifies the file to examine; -the default is the top-level directory of Info. - -In interactive use, a prefix argument directs this command -to read a file name from the minibuffer." t nil) - -(autoload 'Info-query "info" "\ -Enter Info, the documentation browser. Prompt for name of Info file." t nil) - -(autoload 'Info-goto-node "info" "\ -Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME. -Actually, the following interpretations of NAME are tried in order: - (FILENAME)NODENAME - (FILENAME) (using Top node) - NODENAME (in current file) - TAGNAME (see below) - FILENAME (using Top node) -where TAGNAME is a string that appears in quotes: \"TAGNAME\", in an -annotation for any node of any file. (See `a' and `x' commands.)" t nil) - -(autoload 'Info-visit-file "info" "\ -Directly visit an info file." t nil) - -(autoload 'Info-search "info" "\ -Search for REGEXP, starting from point, and select node it's found in." t nil) - -(autoload 'Info-emacs-command "info" "\ -Look up an Emacs command in the Emacs manual in the Info system. -This command is designed to be used whether you are already in Info or not." t nil) - -(autoload 'Info-goto-emacs-command-node "info" "\ -Look up an Emacs command in the Emacs manual in the Info system. -This command is designed to be used whether you are already in Info or not." t nil) - -(autoload 'Info-goto-emacs-key-command-node "info" "\ -Look up an Emacs key sequence in the Emacs manual in the Info system. -This command is designed to be used whether you are already in Info or not." t nil) - -(autoload 'Info-emacs-key "info" "\ -Look up an Emacs key sequence in the Emacs manual in the Info system. -This command is designed to be used whether you are already in Info or not." t nil) - -(autoload 'Info-elisp-ref "info" "\ -Look up an Emacs Lisp function in the Elisp manual in the Info system. -This command is designed to be used whether you are already in Info or not." t nil) - -;;;*** - -;;;### (autoloads (batch-info-validate Info-validate Info-split Info-tagify) "informat" "packages/informat.el" (12984 29547)) -;;; Generated autoloads from packages/informat.el - -(autoload 'Info-tagify "informat" "\ -Create or update Info-file tag table in current buffer." t nil) - -(autoload 'Info-split "informat" "\ -Split an info file into an indirect file plus bounded-size subfiles. -Each subfile will be up to 50,000 characters 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." 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." 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\"" nil nil) - -;;;*** - -;;;### (autoloads (ispell-message ispell-minor-mode ispell-complete-word-interior-frag ispell-complete-word ispell-continue ispell-buffer ispell-region ispell-change-dictionary ispell-kill-ispell ispell-help ispell-word) "ispell" "packages/ispell.el" (12984 29547)) -;;; Generated autoloads from packages/ispell.el - -(defvar ispell-personal-dictionary nil "\ -*File name of your personal spelling dictionary, or nil. -If nil, the default personal dictionary, \"~/.ispell_DICTNAME\" is used, -where DICTNAME is the name of your default dictionary.") - -(defvar ispell-dictionary-alist-1 '((nil "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil) ("english" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil) ("british" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "british") nil) ("deutsch" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex") ("deutsch8" "[a-zA-Z,ADV\dv_|(B]" "[^a-zA-Z,ADV\dv_|(B]" "[']" t ("-C" "-d" "deutsch") "~latin1") ("nederlands" "[A-Za-z,A@(B-,AEGH(B-,AOR(B-,AVY(B-,A\`(B-,Aegh(B-,Aoqr(B-,Avy(B-,A|(B]" "[^A-Za-z,A@(B-,AEGH(B-,AOR(B-,AVY(B-,A\`(B-,Aegh(B-,Aoqr(B-,Avy(B-,A|(B]" "[']" t ("-C") nil) ("nederlands8" "[A-Za-z,A@(B-,AEGH(B-,AOR(B-,AVY(B-,A\`(B-,Aegh(B-,Aoqr(B-,Avy(B-,A|(B]" "[^A-Za-z,A@(B-,AEGH(B-,AOR(B-,AVY(B-,A\`(B-,Aegh(B-,Aoqr(B-,Avy(B-,A|(B]" "[']" t ("-C") nil))) - -(defvar ispell-dictionary-alist-2 '(("svenska" "[A-Za-z}{|\\133\\135\\\\]" "[^A-Za-z}{|\\133\\135\\\\]" "[']" nil ("-C") nil) ("svenska8" "[A-Za-z,AedvEDv(B]" "[^A-Za-z,AedvEDv(B]" "[']" nil ("-C" "-d" "svenska") "~list") ("francais7" "[A-Za-z]" "[^A-Za-z]" "[`'^---]" t nil nil) ("francais" "[A-Za-z,A@BFGHIJKNOTY[\`bghijknoty{|(B]" "[^A-Za-z,A@BFGHIJKNOTY[\`bghijknoty{|(B]" "[---']" t nil "~list") ("francais-tex" "[A-Za-z,A@BFGHIJKNOTY[\`bghijknoty{|(B\\]" "[^A-Za-z,A@BFGHIJKNOTY[\`bghijknoty{|(B\\]" "[---'^`\"]" t nil "~tex") ("dansk" "[A-Z,AFXE(Ba-z,Afxe(B]" "[^A-Z,AFXE(Ba-z,Afxe(B]" "" nil ("-C") nil))) - -(defvar ispell-dictionary-alist (append ispell-dictionary-alist-1 ispell-dictionary-alist-2) "\ -An alist of dictionaries and their associated parameters. - -Each element of this list is also a list: - -\(DICTIONARY-NAME CASECHARS NOT-CASECHARS OTHERCHARS MANY-OTHERCHARS-P - ISPELL-ARGS EXTENDED-CHARACTER-MODE) - -DICTIONARY-NAME is a possible value of variable `ispell-dictionary', nil -means the default dictionary. - -CASECHARS is a regular expression of valid characters that comprise a -word. - -NOT-CASECHARS is the opposite regexp of CASECHARS. - -OTHERCHARS is a regular expression of other characters that are valid -in word constructs. Otherchars cannot be adjacent to each other in a -word, nor can they begin or end a word. This implies we can't check -\"Stevens'\" as a correct possessive and other correct formations. - -Hint: regexp syntax requires the hyphen to be declared first here. - -MANY-OTHERCHARS-P is non-nil if many otherchars are to be allowed in a -word instead of only one. - -ISPELL-ARGS is a list of additional arguments passed to the ispell -subprocess. - -EXTENDED-CHARACTER-MODE should be used when dictionaries are used which -have been configured in an Ispell affix file. (For example, umlauts -can be encoded as \\\"a, a\\\", \"a, ...) Defaults are ~tex and ~nroff -in English. This has the same effect as the command-line `-T' option. -The buffer Major Mode controls Ispell's parsing in tex or nroff mode, -but the dictionary can control the extended character mode. -Both defaults can be overruled in a buffer-local fashion. See -`ispell-parsing-keyword' for details on this. - -Note that the CASECHARS and OTHERCHARS slots of the alist should -contain the same character set as casechars and otherchars in the -language.aff file (e.g., english.aff).") - -(defvar ispell-menu-map nil "\ -Key map for ispell menu") - -(defvar ispell-menu-xemacs nil "\ -Spelling menu for XEmacs.") - -(defconst ispell-menu-map-needed (and (not ispell-menu-map) (string-lessp "19" emacs-version) (not (string-match "XEmacs" emacs-version)))) - -(if ispell-menu-map-needed (let ((dicts (reverse (cons (cons "default" nil) ispell-dictionary-alist))) name) (setq ispell-menu-map (make-sparse-keymap "Spell")) (while dicts (setq name (car (car dicts)) dicts (cdr dicts)) (if (stringp name) (define-key ispell-menu-map (vector (intern name)) (cons (concat "Select " (capitalize name)) (list 'lambda nil '(interactive) (list 'ispell-change-dictionary name)))))))) - -(if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-change-dictionary] '("Change Dictionary" . ispell-change-dictionary)) (define-key ispell-menu-map [ispell-kill-ispell] '("Kill Process" . ispell-kill-ispell)) (define-key ispell-menu-map [ispell-pdict-save] '("Save Dictionary" lambda nil (interactive) (ispell-pdict-save t t))) (define-key ispell-menu-map [ispell-complete-word] '("Complete Word" . ispell-complete-word)) (define-key ispell-menu-map [ispell-complete-word-interior-frag] '("Complete Word Frag" . ispell-complete-word-interior-frag)))) - -(if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-continue] '("Continue Check" . ispell-continue)) (define-key ispell-menu-map [ispell-word] '("Check Word" . ispell-word)) (define-key ispell-menu-map [ispell-region] '("Check Region" . ispell-region)) (define-key ispell-menu-map [ispell-buffer] '("Check Buffer" . ispell-buffer)))) - -(if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-message] '("Check Message" . ispell-message)) (define-key ispell-menu-map [ispell-help] '("Help" lambda nil (interactive) (describe-function 'ispell-help))) (put 'ispell-region 'menu-enable 'mark-active) (fset 'ispell-menu-map (symbol-value 'ispell-menu-map)))) - -(defvar ispell-local-pdict ispell-personal-dictionary "\ -A buffer local variable containing the current personal dictionary. -If non-nil, the value must be a string, which is a file name. - -If you specify a personal dictionary for the current buffer which is -different from the current personal dictionary, the effect is similar -to calling \\[ispell-change-dictionary]. This variable is automatically -set when defined in the file with either `ispell-pdict-keyword' or the -local variable syntax.") - -(define-key global-map "\M-A" '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. - -With a prefix argument (or if CONTINUE is non-nil), -resume interrupted spell-checking of a buffer or region. - -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. - -Word syntax described by `ispell-dictionary-alist' (which see). - -This will check or reload the dictionary. Use \\[ispell-change-dictionary] -or \\[ispell-region] to update the Ispell process." 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': Like `i', but allows one to include dictionary completion information. -`C-l': redraws screen -`C-r': recursive edit -`C-z': suspend emacs or iconify frame" 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." t nil) - -(autoload 'ispell-change-dictionary "ispell" "\ -Change `ispell-dictionary' (q.v.) and kill old Ispell process. -A new one will be started as soon as necessary. - -By just answering RET you can find out what the current dictionary is. - -With prefix argument, set the default directory." t nil) - -(autoload 'ispell-region "ispell" "\ -Interactively check a region for spelling errors." t nil) - -(autoload 'ispell-buffer "ispell" "\ -Check the current buffer for spelling errors interactively." t nil) - -(autoload 'ispell-continue "ispell" nil t nil) - -(autoload 'ispell-complete-word "ispell" "\ -Look up word before or under point in dictionary (see lookup-words command) -and try to complete it. 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." t nil) - -(autoload 'ispell-complete-word-interior-frag "ispell" "\ -Completes word matching character sequence inside a word." t nil) - -(autoload 'ispell-minor-mode "ispell" "\ -Toggle Ispell minor mode. -With prefix arg, turn Ispell minor mode on iff arg is positive. - -In Ispell minor mode, pressing SPC or RET -warns you if the previous word is incorrectly spelled." 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' or `q' command. (Any subsequent regions will be checked.) -The `X' command aborts the message send so that you can edit the buffer. - -To spell-check whenever a message is sent, include the appropriate lines -in your .emacs file: - (add-hook 'message-send-hook 'ispell-message) - (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)))" t nil) - -;;;*** - -;;;### (autoloads (jka-compr-install toggle-auto-compression jka-compr-load) "jka-compr" "packages/jka-compr.el" (12984 29550)) -;;; Generated autoloads from packages/jka-compr.el - -(autoload 'jka-compr-load "jka-compr" "\ -Documented as original." nil nil) - -(autoload 'toggle-auto-compression "jka-compr" "\ -Toggle automatic file compression and uncompression. -With prefix argument ARG, turn auto compression on if positive, else off. -Returns the new status of auto compression (non-nil means on). -If the argument MESSAGE is non-nil, it means to print a message -saying whether the mode is now on or off." t nil) - -(autoload 'jka-compr-install "jka-compr" "\ -Install jka-compr. -This adds entries to `file-name-handler-alist' and `auto-mode-alist' -and `inhibit-first-line-modes-suffixes'." nil nil) - -;;;*** - -;;;### (autoloads (turn-on-lazy-lock lazy-lock-mode) "lazy-lock" "packages/lazy-lock.el" (12984 29550)) -;;; Generated autoloads from packages/lazy-lock.el - -(defvar lazy-lock-mode nil) - -(autoload 'lazy-lock-mode "lazy-lock" "\ -Toggle Lazy Lock mode. -With arg, turn Lazy Lock mode on if and only if arg is positive and the buffer -is at least `lazy-lock-minimum-size' characters long. - -When Lazy Lock mode is enabled, fontification is demand-driven and stealthy: - - - Fontification occurs in visible parts of buffers when necessary. - Occurs if there is no input after pausing for `lazy-lock-continuity-time'. - - - Fontification occurs in invisible parts when Emacs has been idle. - Occurs if there is no input after pausing for `lazy-lock-stealth-time'. - -If `lazy-lock-hide-invisible' is non-nil, text is not displayed until it is -fontified, otherwise it is displayed in `lazy-lock-invisible-foreground'. - -See also variables `lazy-lock-walk-windows' and `lazy-lock-ignore-commands' for -window (scroll) fontification, and `lazy-lock-stealth-lines', -`lazy-lock-stealth-nice' and `lazy-lock-stealth-verbose' for stealth -fontification. - -Use \\[lazy-lock-submit-bug-report] to send bug reports or feedback." t nil) - -(autoload 'turn-on-lazy-lock "lazy-lock" "\ -Unconditionally turn on Lazy Lock mode." nil nil) - -(add-minor-mode 'lazy-lock-mode " Lazy") - -;;;*** - -;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "packages/ledit.el" (12984 29547)) -;;; Generated autoloads from packages/ledit.el - -(defconst ledit-save-files t "\ -*Non-nil means Ledit should save files before transferring to Lisp.") - -(defconst ledit-go-to-lisp-string "%?lisp" "\ -*Shell commands to execute to resume Lisp job.") - -(defconst ledit-go-to-liszt-string "%?liszt" "\ -*Shell commands to execute to resume Lisp compiler job.") - -(autoload 'ledit-mode "ledit" "\ -\\<ledit-mode-map>Major mode for editing text and stuffing it to a Lisp job. -Like Lisp mode, plus these special commands: - \\[ledit-save-defun] -- record defun at or after point - for later transmission to Lisp job. - \\[ledit-save-region] -- record region for later transmission to Lisp job. - \\[ledit-go-to-lisp] -- transfer to Lisp job and transmit saved text. - \\[ledit-go-to-liszt] -- transfer to Liszt (Lisp compiler) job - and transmit saved text. -\\{ledit-mode-map} -To make Lisp mode automatically change to Ledit mode, -do (setq lisp-mode-hook 'ledit-from-lisp-mode)" t nil) - -(autoload 'ledit-from-lisp-mode "ledit" nil nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "lispm-fonts" "packages/lispm-fonts.el" (12984 29546)) -;;; Generated autoloads from packages/lispm-fonts.el - -;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer) "lpr" "packages/lpr.el" (12988 19720)) -;;; Generated autoloads from packages/lpr.el - -(defvar lpr-switches nil "\ -*List of strings to pass as extra options for the printer program. -See `lpr-command'.") - -(defvar lpr-command (if (memq system-type '(usg-unix-v dgux hpux irix)) "lp" "lpr") "\ -*Name of program for printing a file.") - -(autoload 'lpr-buffer "lpr" "\ -Print buffer contents as with Unix command `lpr'. -`lpr-switches' is a list of extra switches (strings) to pass to lpr." t nil) - -(autoload 'print-buffer "lpr" "\ -Print buffer contents as with Unix command `lpr -p'. -`lpr-switches' is a list of extra switches (strings) to pass to lpr." t nil) - -(autoload 'lpr-region "lpr" "\ -Print region contents as with Unix command `lpr'. -`lpr-switches' is a list of extra switches (strings) to pass to lpr." t nil) - -(autoload 'print-region "lpr" "\ -Print region contents as with Unix command `lpr -p'. -`lpr-switches' is a list of extra switches (strings) to pass to lpr." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "makeinfo" "packages/makeinfo.el" (12984 29547)) -;;; Generated autoloads from packages/makeinfo.el - -;;;*** - -;;;### (autoloads (make-command-summary) "makesum" "packages/makesum.el" (12984 29546)) -;;; Generated autoloads from packages/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." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "man-xref" "packages/man-xref.el" (12984 30034)) -;;; Generated autoloads from packages/man-xref.el - -;;;### (autoloads (manual-entry) "man" "packages/man.el" (12995 2358)) -;;; Generated autoloads from packages/man.el - -(autoload 'manual-entry "man" "\ -Display the Unix manual entry (or entries) for TOPIC. -If prefix arg is given, modify the search according to the value: - 2 = complement default exact matching of the TOPIC name; - exact matching default is specified by `Manual-match-topic-exactly' - 3 = force a search of the unformatted man directories - 4 = both 2 and 3 -The manual entries are searched according to the variable -Manual-directory-list, which should be a list of directories. If -Manual-directory-list is nil, \\[Manual-directory-list-init] is -invoked to create this list from the MANPATH environment variable. -See the variable Manual-topic-buffer which controls how the buffer -is named. See also the variables Manual-match-topic-exactly, -Manual-query-multiple-pages, and Manual-buffer-view-mode." t nil) - -;;;*** - -;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body metamail-interpret-header) "metamail" "packages/metamail.el" (12984 29549)) -;;; Generated autoloads from packages/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." 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." 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." 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." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "mic-paren" "packages/mic-paren.el" (12984 30034)) -;;; Generated autoloads from packages/mic-paren.el - -;;;*** - -;;;### (autoloads nil "mime-compose" "packages/mime-compose.el" (12984 29549)) -;;; Generated autoloads from packages/mime-compose.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "mode-motion+" "packages/mode-motion+.el" (12984 29550)) -;;; Generated autoloads from packages/mode-motion+.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "netunam" "packages/netunam.el" (12984 29547)) -;;; Generated autoloads from packages/netunam.el - -;;;*** - -;;;### (autoloads nil "page-ext" "packages/page-ext.el" (12984 29547)) -;;; Generated autoloads from packages/page-ext.el - -;;;### (autoloads (blink-paren paren-set-mode) "paren" "packages/paren.el" (12984 29547)) -;;; Generated autoloads from packages/paren.el - -(defvar paren-mode nil "\ -*Sets the style of parenthesis highlighting. -Valid values are nil, `blink-paren', `paren', and `sexp'. - nil no parenthesis highlighting. - blink-paren causes the matching paren to blink. - paren causes the matching paren to be highlighted but not to blink. - sexp whole expression enclosed by the local paren at its mate. - nested (not yet implemented) use variable shading to see the - nesting of an expression. Also groks regular expressions - and shell quoting. - -This variable is global by default, but you can make it buffer-local and -highlight parentheses differrently in different major modes.") - -(autoload 'paren-set-mode "paren" "\ -Cycles through possible values for `paren-mode', force off with negative arg. -When called from lisp, a symbolic value for `paren-mode' can be pased directly. -See also `paren-mode' and `paren-highlight'." t nil) - -(make-obsolete 'blink-paren 'paren-set-mode) - -(autoload 'blink-paren "paren" "\ -Obsolete. Use `paren-set-mode' instead." t nil) - -;;;*** - -;;;### (autoloads (pending-delete pending-delete-off pending-delete-on) "pending-del" "packages/pending-del.el" (12984 29547)) -;;; Generated autoloads from packages/pending-del.el - -(autoload 'pending-delete-on "pending-del" "\ -Turn on pending delete. -When it is ON, typed text replaces the selection if the selection is active. -When it is OFF, typed text is just inserted at point." t nil) - -(autoload 'pending-delete-off "pending-del" "\ -Turn off pending delete. -When it is ON, typed text replaces the selection if the selection is active. -When it is OFF, typed text is just inserted at point." t nil) - -(autoload 'pending-delete "pending-del" "\ -Toggle automatic deletion of the selected region. -With a positive argument, turns it on. -With a non-positive argument, turns it off. -When active, typed text replaces the selection." t nil) - -;;;*** - -;;;### (autoloads (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" "packages/ps-print.el" (12988 19728)) -;;; Generated autoloads from packages/ps-print.el - -(defvar ps-paper-type 'ps-letter "\ -*Specifies the size of paper to format for. Should be one of -`ps-letter', `ps-legal', or `ps-a4'.") - -(defvar ps-print-color-p (and (or (fboundp 'x-color-values) (fboundp 'color-instance-rgb-components)) (fboundp 'float)) "\ -*If non-nil, print the buffer's text in color.") - -(autoload 'ps-print-buffer "ps-print" "\ -Generate and print a PostScript 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." 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." 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." 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." 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." 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." 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." 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." t nil) - -(autoload 'ps-despool "ps-print" "\ -Send the spooled PostScript to the printer. - -When called with a numeric prefix argument (C-u), prompt the user for -the name of a file to save the spooled PostScript 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." t nil) - -;;;*** - -;;;### (autoloads (remote-compile) "rcompile" "packages/rcompile.el" (12984 29549)) -;;; Generated autoloads from packages/rcompile.el - -(autoload 'remote-compile "rcompile" "\ -Compile the current buffer's directory on HOST. Log in as USER. -See \\[compile]." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "recent-files" "packages/recent-files.el" (12984 29550)) -;;; Generated autoloads from packages/recent-files.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "refbib" "packages/refbib.el" (12984 29547)) -;;; Generated autoloads from packages/refbib.el - -;;;*** - -;;;### (autoloads nil "remote" "packages/remote.el" (12984 29547)) -;;; Generated autoloads from packages/remote.el - -;;;*** - -;;;### (autoloads nil "reportmail" "packages/reportmail.el" (12984 29548)) -;;; Generated autoloads from packages/reportmail.el - -;;;### (autoloads (resume-suspend-hook) "resume" "packages/resume.el" (12984 29548)) -;;; Generated autoloads from packages/resume.el - -(autoload 'resume-suspend-hook "resume" "\ -Clear out the file used for transmitting args when Emacs resumes." nil nil) - -;;;*** - -;;;### (autoloads nil "rnews" "packages/rnews.el" (12547 2125)) -;;; Generated autoloads from packages/rnews.el - -;;;*** - -;;;### (autoloads nil "rnewspost" "packages/rnewspost.el" (12547 2128)) -;;; Generated autoloads from packages/rnewspost.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "saveconf" "packages/saveconf.el" (12984 29548)) -;;; Generated autoloads from packages/saveconf.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "saveplace" "packages/saveplace.el" (12984 29546)) -;;; Generated autoloads from packages/saveplace.el - -;;;*** - -;;;### (autoloads nil "sccs" "packages/sccs.el" (12984 29547)) -;;; Generated autoloads from packages/sccs.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "scroll-in-place" "packages/scroll-in-place.el" (12995 42347)) -;;; Generated autoloads from packages/scroll-in-place.el - -;;;*** - -;;;### (autoloads nil "server" "packages/server.el" (12984 29548)) -;;; Generated autoloads from packages/server.el - -(make-obsolete 'server-start 'gnuserv-start) - -;;;*** - -;;;### (autoloads nil "session" "packages/session.el" (12677 32488)) -;;; Generated autoloads from packages/session.el - -;;;### (autoloads (install-shell-fonts) "shell-font" "packages/shell-font.el" (12984 29548)) -;;; Generated autoloads from packages/shell-font.el - -(autoload 'install-shell-fonts "shell-font" "\ -Decorate the current interaction buffer with fonts. -This uses the faces called `shell-prompt', `shell-input' and `shell-output'; -you can alter the graphical attributes of those with the normal -face-manipulation functions." nil nil) - -;;;*** - -;;;### (autoloads (spell-string spell-region spell-word spell-buffer) "spell" "packages/spell.el" (12984 29548)) -;;; Generated autoloads from packages/spell.el - -(put 'spell-filter 'risky-local-variable t) - -(autoload 'spell-buffer "spell" "\ -Check spelling of every word in the buffer. -For each incorrect word, you are asked for the correct spelling -and then put into a query-replace to fix some or all occurrences. -If you do not want to change a word, just give the same word -as its \"correct\" spelling; then the query replace is skipped." t nil) - -(autoload 'spell-word "spell" "\ -Check spelling of word at or before point. -If it is not correct, ask user for the correct spelling -and `query-replace' the entire buffer to substitute it." t nil) - -(autoload 'spell-region "spell" "\ -Like `spell-buffer' but applies only to region. -Used in a program, applies from START to END. -DESCRIPTION is an optional string naming the unit being checked: -for example, \"word\"." t nil) - -(autoload 'spell-string "spell" "\ -Check spelling of string supplied as argument." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "supercite" "packages/supercite.el" (12984 29549)) -;;; Generated autoloads from packages/supercite.el - -;;;### (autoloads (tar-mode) "tar-mode" "packages/tar-mode.el" (12984 29548)) -;;; Generated autoloads from packages/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. -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 Control-X Control-S, 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}" nil nil) - -;;;*** - -;;;### (autoloads (terminal-emulator) "terminal" "packages/terminal.el" (12984 29548)) -;;; Generated autoloads from packages/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 an 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 behaviour -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. - -Presently with `termcap' only; if somebody sends us code to make this -work with `terminfo' we will try to use it." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "tex-latin1" "packages/tex-latin1.el" (12984 29547)) -;;; Generated autoloads from packages/tex-latin1.el - -;;;*** - -;;;### (autoloads (batch-texinfo-format texinfo-format-region texinfo-format-buffer) "texinfmt" "packages/texinfmt.el" (12984 29548)) -;;; Generated autoloads from packages/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 -names 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." 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." t nil) - -(autoload 'batch-texinfo-format "texinfmt" "\ -Runs texinfo-format-buffer 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 -funcall batch-texinfo-format $docs/ ~/*.texinfo\"." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "texnfo-tex" "packages/texnfo-tex.el" (12984 29549)) -;;; Generated autoloads from packages/texnfo-tex.el - -;;;### (autoloads (texinfo-sequential-node-update texinfo-every-node-update texinfo-update-node) "texnfo-upd" "packages/texnfo-upd.el" (12984 29549)) -;;; Generated autoloads from packages/texnfo-upd.el - -(autoload 'texinfo-update-node "texnfo-upd" "\ -Without any prefix argument, update the node in which point is located. -Non-nil argument (prefix, if interactive) means update the nodes in the -marked region. - -The functions for creating or updating nodes and menus, and their -keybindings, are: - - texinfo-update-node (&optional region-p) \\[texinfo-update-node] - texinfo-every-node-update () \\[texinfo-every-node-update] - texinfo-sequential-node-update (&optional region-p) - - texinfo-make-menu (&optional region-p) \\[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. Its default value is 32." t nil) - -(autoload 'texinfo-every-node-update "texnfo-upd" "\ -Update every node in a Texinfo file." t nil) - -(autoload 'texinfo-sequential-node-update "texnfo-upd" "\ -Update one node (or many) in a Texinfo file with sequential pointers. - -This function causes the `Next' or `Previous' pointer to point to the -immediately preceding or following node, even if it is at a higher or -lower hierarchical level in the document. Continually pressing `n' or -`p' takes you straight through the file. - -Without any prefix argument, update the node in which point is located. -Non-nil argument (prefix, if interactive) means update the nodes in the -marked region. - -This command makes it awkward to navigate among sections and -subsections; it should be used only for those documents that are meant -to be read like a novel rather than a reference, and for which the -Info `g*' command is inadequate." t nil) - -;;;*** - -;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp" "packages/time-stamp.el" (12984 30020)) -;;; Generated autoloads from packages/time-stamp.el - -(autoload 'time-stamp "time-stamp" "\ -Update the time stamp string in the buffer. -If you put a time stamp template anywhere in the first 8 lines of a file, -it can be updated every time you save the file. See the top of -`time-stamp.el' for a sample. The template looks like one of the following: - Time-stamp: <> - Time-stamp: \" \" -The time stamp is written between the brackets or quotes, resulting in - Time-stamp: <95/01/18 10:20:51 gildea> -Only does its thing if the variable time-stamp-active is non-nil. -Typically used on write-file-hooks for automatic time-stamping. -The format of the time stamp is determined by the variable time-stamp-format. -The variables time-stamp-line-limit, time-stamp-start, and time-stamp-end -control finding the template." 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." t nil) - -;;;*** - -;;;### (autoloads (display-time) "time" "packages/time.el" (12984 29547)) -;;; Generated autoloads from packages/time.el - -(defvar display-time-day-and-date nil "\ -*Non-nil means \\[display-time] should display day and date as well as time.") - -(autoload 'display-time "time" "\ -Display current time, load level, and mail flag in mode line of each buffer. -Updates automatically every minute. -If `display-time-day-and-date' is non-nil, the current day and date -are displayed as well. -After each update, `display-time-hook' is run with `run-hooks'. -If `display-time-echo-area' is non-nil, the time is displayed in the -echo area instead of in the mode-line." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "uncompress" "packages/uncompress.el" (12984 29548)) -;;; Generated autoloads from packages/uncompress.el - -;;;### (autoloads (ununderline-and-unoverstrike-region overstrike-region unoverstrike-region ununderline-region underline-region) "underline" "packages/underline.el" (12984 29548)) -;;; Generated autoloads from packages/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." 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." t nil) - -(autoload 'unoverstrike-region "underline" "\ -Remove all overstriking (character-backspace-character) in the region. -Called from program, takes two arguments START and END which specify the -range to operate on." t nil) - -(autoload 'overstrike-region "underline" "\ -Overstrike (character-backspace-character) all nonblank characters in -the region. Called from program, takes two arguments START and END which -specify the range to operate on." t nil) - -(autoload 'ununderline-and-unoverstrike-region "underline" "\ -Remove underlining and overstriking in the region. Called from a program, -takes two arguments START and END which specify the range to operate on." t nil) - -;;;*** - -;;;### (autoloads (ask-to-update-copyright update-copyright) "upd-copyr" "packages/upd-copyr.el" (12984 29549)) -;;; Generated autoloads from packages/upd-copyr.el - -(defvar copyright-do-not-disturb "Free Software Foundation, Inc." "\ -*If non-nil, the existing copyright holder is checked against this regexp. -If it does not match, then a new copyright line is added with the copyright -holder set to the value of `copyright-whoami'.") - -(defvar copyright-whoami nil "\ -*A string containing the name of the owner of new copyright notices.") - -(defvar copyright-notice-file nil "\ -*If non-nil, replace copying notices with this file.") - -(autoload 'update-copyright "upd-copyr" "\ -Update the copyright notice at the beginning of the buffer -to indicate the current year. If optional arg REPLACE is given -\(interactively, with prefix arg) replace the years in the notice -rather than adding the current year after them. -If `copyright-notice-file' is set, the copying permissions following the -copyright are replaced as well. - -If optional third argument ASK is non-nil, the user is prompted for whether -or not to update the copyright. If optional fourth argument ASK-YEAR is -non-nil, the user is prompted for whether or not to replace the year rather -than adding to it." t nil) - -(autoload 'ask-to-update-copyright "upd-copyr" "\ -If the current buffer contains a copyright notice that is out of date, -ask the user if it should be updated with `update-copyright' (which see). -Put this on write-file-hooks." nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "vc-hooks" "packages/vc-hooks.el" (12984 29547)) -;;; Generated autoloads from packages/vc-hooks.el - -;;;*** - -;;;### (autoloads (vc-update-change-log vc-rename-this-file vc-rename-file vc-cancel-version vc-revert-buffer vc-print-log vc-retrieve-snapshot vc-create-snapshot vc-directory vc-insert-headers vc-version-other-window vc-version-diff vc-diff vc-register vc-next-action vc-file-status) "vc" "packages/vc.el" (12988 19712)) -;;; Generated autoloads from packages/vc.el - -(defvar vc-checkin-hook nil "\ -*List of functions called after a checkin is done. See `run-hooks'.") - -(autoload 'vc-file-status "vc" "\ -Display the current status of the file being visited. -Currently, this is only defined for CVS. The information provided in the -modeline is generally sufficient for RCS and SCCS." t nil) - -(autoload 'vc-next-action "vc" "\ -Do the next logical checkin or checkout operation on the current file. - -For RCS and SCCS files: - If the file is not already registered, this registers it for version -control and then retrieves a writable, locked copy for editing. - If the file is registered and not locked by anyone, this checks out -a writable and locked file ready for editing. - If the file is checked out and locked by the calling user, this -first checks to see if the file has changed since checkout. If not, -it performs a revert. - If the file has been changed, this pops up a buffer for entry -of a log message; when the message has been entered, it checks in the -resulting changes along with the log message as change commentary. If -the variable `vc-keep-workfiles' is non-nil (which is its default), a -read-only copy of the changed file is left in place afterwards. - If the file is registered and locked by someone else, you are given -the option to steal the lock. - -For CVS files: - If the file is not already registered, this registers it for version -control. This does a \"cvs add\", but no \"cvs commit\". - If the file is added but not committed, it is committed. - If the file has not been changed, neither in your working area or -in the repository, a message is printed and nothing is done. - If your working file is changed, but the repository file is -unchanged, this pops up a buffer for entry of a log message; when the -message has been entered, it checks in the resulting changes along -with the logmessage as change commentary. A writable file is retained. - If the repository file is changed, you are asked if you want to -merge in the changes into your working copy. - -The following is true regardless of which version control system you -are using: - - If you call this from within a VC dired buffer with no files marked, -it will operate on the file in the current line. - If you call this from within a VC dired buffer, and one or more -files are marked, it will accept a log message and then operate on -each one. The log message will be used as a comment for any register -or checkin operations, but ignored when doing checkouts. Attempted -lock steals will raise an error. - - For checkin, a prefix argument lets you specify the version number to use." t nil) - -(autoload 'vc-register "vc" "\ -Register the current file into your version-control system." t nil) - -(autoload 'vc-diff "vc" "\ -Display diffs between file versions. -Normally this compares the current file and buffer with the most recent -checked in version of that file. This uses no arguments. -With a prefix argument, it reads the file name to use -and two version designators specifying which versions to compare." t nil) - -(autoload 'vc-version-diff "vc" "\ -For FILE, report diffs between two stored versions REL1 and REL2 of it. -If FILE is a directory, generate diffs between versions for all registered -files in or below it." t nil) - -(autoload 'vc-version-other-window "vc" "\ -Visit version REV of the current buffer in another window. -If the current buffer is named `F', the version is named `F.~REV~'. -If `F.~REV~' already exists, it is used instead of being re-created." t nil) - -(autoload 'vc-insert-headers "vc" "\ -Insert headers in a file for use with your version-control system. -Headers desired are inserted at the start of the buffer, and are pulled from -the variable `vc-header-alist'." t nil) - -(autoload 'vc-directory "vc" "\ -Show version-control status of all files in the directory DIR. -If the second argument VERBOSE is non-nil, show all files; -otherwise show only files that current locked in the version control system. -Interactively, supply a prefix arg to make VERBOSE non-nil. - -If the optional third argument NESTED is non-nil, -scan the entire tree of subdirectories of the current directory." t nil) - -(autoload 'vc-create-snapshot "vc" "\ -Make a snapshot called NAME. -The snapshot is made from all registered files at or below the current -directory. For each file, the version level of its latest -version becomes part of the named configuration." t nil) - -(autoload 'vc-retrieve-snapshot "vc" "\ -Retrieve the snapshot called NAME. -This function fails if any files are locked at or below the current directory -Otherwise, all registered files are checked out (unlocked) at their version -levels in the snapshot." t nil) - -(autoload 'vc-print-log "vc" "\ -List the change log of the current buffer in a window." t nil) - -(autoload 'vc-revert-buffer "vc" "\ -Revert the current buffer's file back to the latest checked-in version. -This asks for confirmation if the buffer contents are not identical -to that version. -If the back-end is CVS, this will give you the most recent revision of -the file on the branch you are editing." t nil) - -(autoload 'vc-cancel-version "vc" "\ -Get rid of most recently checked in version of this file. -A prefix argument means do not revert the buffer afterwards." t nil) - -(autoload 'vc-rename-file "vc" "\ -Rename file OLD to NEW, and rename its master file likewise." t nil) - -(autoload 'vc-rename-this-file "vc" nil t nil) - -(autoload 'vc-update-change-log "vc" "\ -Find change log file and add entries from recent RCS logs. -The mark is left at the end of the text prepended to the change log. -With prefix arg of C-u, only find log entries for the current buffer's file. -With any numeric prefix arg, find log entries for all files currently visited. -Otherwise, find log entries for all registered files in the default directory. -From a program, any arguments are passed to the `rcs2log' script." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "webster-ucb" "packages/webster-ucb.el" (12984 29548)) -;;; Generated autoloads from packages/webster-ucb.el - -;;;### (autoloads (webster-spell webster-endings webster) "webster" "packages/webster.el" (12984 29549)) -;;; Generated autoloads from packages/webster.el - -(autoload 'webster "webster" "\ -Look up a word in the Webster's dictionary. -Open a network login connection to a webster host if necessary. -Communication with host is recorded in a buffer *webster*." t nil) - -(autoload 'webster-endings "webster" "\ -Look up endings for a word in the Webster's dictionary. -Open a network login connection to a webster host if necessary. -Communication with host is recorded in a buffer *webster*." t nil) - -(autoload 'webster-spell "webster" "\ -Look spelling for a word in the Webster's dictionary. -Open a network login connection to a webster host if necessary. -Communication with host is recorded in a buffer *webster*." t nil) - -;;;*** - -;;;### (autoloads (run-scheme) "xscheme" "packages/xscheme.el" (12984 29549)) -;;; Generated autoloads from packages/xscheme.el - -(defvar scheme-program-name "scheme" "\ -*Program invoked by the `run-scheme' command.") - -(defvar scheme-band-name nil "\ -*Band loaded by the `run-scheme' command.") - -(defvar scheme-program-arguments nil "\ -*Arguments passed to the Scheme program by the `run-scheme' command.") - -(autoload 'run-scheme "xscheme" "\ -Run an inferior Scheme process. -Output goes to the buffer `*scheme*'. -With argument, asks for a command line." t nil) - -;;;*** - -;;;### (autoloads nil "compile-all" "pcl-cvs/compile-all.el" (11903 15856)) -;;; Generated autoloads from pcl-cvs/compile-all.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "cookie" "pcl-cvs/cookie.el" (12984 29554)) -;;; Generated autoloads from pcl-cvs/cookie.el - -;;;*** - -;;;### (autoloads nil "dll-debug" "pcl-cvs/dll-debug.el" (12984 29554)) -;;; Generated autoloads from pcl-cvs/dll-debug.el - -;;;*** - -;;;### (autoloads nil "dll" "pcl-cvs/dll.el" (12984 29554)) -;;; Generated autoloads from pcl-cvs/dll.el - -;;;*** - -;;;### (autoloads nil "elib-node" "pcl-cvs/elib-node.el" (12984 29554)) -;;; Generated autoloads from pcl-cvs/elib-node.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "pcl-cvs-startup" "pcl-cvs/pcl-cvs-startup.el" (12984 29554)) -;;; Generated autoloads from pcl-cvs/pcl-cvs-startup.el - -;;;### (autoloads (pcl-cvs-fontify) "pcl-cvs-xemacs" "pcl-cvs/pcl-cvs-xemacs.el" (12984 29554)) -;;; Generated autoloads from pcl-cvs/pcl-cvs-xemacs.el - -(autoload 'pcl-cvs-fontify "pcl-cvs-xemacs" nil nil nil) - -;;;*** - -;;;### (autoloads (cvs-update-other-window cvs-update) "pcl-cvs" "pcl-cvs/pcl-cvs.el" (12988 55034)) -;;; Generated autoloads from pcl-cvs/pcl-cvs.el - -(autoload 'cvs-update "pcl-cvs" "\ -Run a 'cvs update' in the current working directory. Feed the -output to a *cvs* buffer and run cvs-mode on it. -If optional prefix argument LOCAL is non-nil, 'cvs update -l' is run." t nil) - -(autoload 'cvs-update-other-window "pcl-cvs" "\ -Run a 'cvs update' in the current working directory. Feed the -output to a *cvs* buffer, display it in the other window, and run -cvs-mode on it. - -If optional prefix argument LOCAL is non-nil, 'cvs update -l' is run." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "string" "pcl-cvs/string.el" (12984 29554)) -;;; Generated autoloads from pcl-cvs/string.el - -;;;### (autoloads (about-xemacs) "about" "prim/about.el" (12984 29553)) -;;; Generated autoloads from prim/about.el - -(autoload 'about-xemacs "about" nil t nil) - -;;;*** - -;;;### (autoloads (all-hail-emacs all-hail-xemacs praise-be-unto-emacs praise-be-unto-xemacs) "advocacy" "prim/advocacy.el" (12984 29554)) -;;; Generated autoloads from prim/advocacy.el - -(defvar xemacs-praise-sound-file "sounds/im_so_happy.au" "\ -The name of an audio file containing something to play -when praising XEmacs") - -(defvar xemacs-praise-message "All Hail XEmacs!\n" "\ -What to praise XEmacs with") - -(autoload 'praise-be-unto-xemacs "advocacy" "\ -All Hail XEmacs!" t nil) - -(autoload 'praise-be-unto-emacs "advocacy" nil t nil) - -(autoload 'all-hail-xemacs "advocacy" "\ -All Hail XEmacs!" t nil) - -(autoload 'all-hail-emacs "advocacy" nil t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "backquote" "prim/backquote.el" (12984 29553)) -;;; Generated autoloads from prim/backquote.el - -;;;*** - -;;;### (autoloads nil "buffer" "prim/buffer.el" (12984 30049)) -;;; Generated autoloads from prim/buffer.el - -;;;*** - -;;;### (autoloads (describe-buffer-case-table) "case-table" "prim/case-table.el" (12984 29551)) -;;; Generated autoloads from prim/case-table.el - -(autoload 'describe-buffer-case-table "case-table" "\ -Describe the case table of the current buffer." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "cmdloop" "prim/cmdloop.el" (12984 29553)) -;;; Generated autoloads from prim/cmdloop.el - -;;;*** - -;;;### (autoloads nil "cmdloop1" "prim/cmdloop1.el" (12984 29553)) -;;; Generated autoloads from prim/cmdloop1.el - -;;;*** - -;;;### (autoloads nil "console" "prim/console.el" (12984 29554)) -;;; Generated autoloads from prim/console.el - -;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" "prim/debug.el" (12984 30039)) -;;; Generated autoloads from prim/debug.el - -(autoload 'debug "debug" "\ -Enter debugger. To return, type \\<debugger-mode-map>`\\[debugger-continue]'. -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." t nil) - -(autoload 'debug-on-entry "debug" "\ -Request FUNCTION to invoke debugger each time it is called. -If you tell the debugger to continue, FUNCTION's execution proceeds. -This works by modifying the definition of FUNCTION, -which must be written in Lisp, not predefined. -Use \\[cancel-debug-on-entry] to cancel the effect of this command. -Redefining FUNCTION also cancels it." t nil) - -(autoload 'cancel-debug-on-entry "debug" "\ -Undo effect of \\[debug-on-entry] on FUNCTION. -If argument is nil or an empty string, cancel for all functions." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "device" "prim/device.el" (12984 29553)) -;;; Generated autoloads from prim/device.el - -;;;*** - -;;;### (autoloads nil "dialog" "prim/dialog.el" (12984 29553)) -;;; Generated autoloads from prim/dialog.el - -;;;### (autoloads (standard-display-european standard-display-underline standard-display-graphic standard-display-g1 standard-display-ascii standard-display-default standard-display-8bit make-display-table describe-current-display-table) "disp-table" "prim/disp-table.el" (12984 29553)) -;;; Generated autoloads from prim/disp-table.el - -(autoload 'describe-current-display-table "disp-table" "\ -Describe the display table in use in the selected window and buffer." t nil) - -(autoload 'make-display-table "disp-table" "\ -Return a new, empty display table." nil nil) - -(autoload 'standard-display-8bit "disp-table" "\ -Display characters in the range L to H literally." nil nil) - -(autoload 'standard-display-default "disp-table" "\ -Display characters in the range L to H using the default notation." nil nil) - -(autoload 'standard-display-ascii "disp-table" "\ -Display character C using printable string 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." 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." nil nil) - -(autoload 'standard-display-underline "disp-table" "\ -Display character C as character UC plus underlining." nil nil) - -(autoload 'standard-display-european "disp-table" "\ -Toggle display of European characters encoded with ISO 8859. -When enabled, characters in the range of 160 to 255 display not -as octal escapes, but as accented characters. -With prefix argument, enable European character display iff arg is positive." t nil) - -;;;*** - -;;;### (autoloads (setenv) "env" "prim/env.el" (12984 29553)) -;;; Generated autoloads from prim/env.el - -(autoload 'setenv "env" "\ -Set the value of the environment variable named VARIABLE to VALUE. -VARIABLE should be a string. VALUE is optional; if not provided or is -`nil', the environment variable VARIABLE will be removed. - -Interactively, a prefix argument means to unset the variable. -Interactively, the current value (if any) of the variable -appears at the front of the history list when you type in the new value. - -This function works by modifying `process-environment'." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "events" "prim/events.el" (12988 19747)) -;;; Generated autoloads from prim/events.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "extents" "prim/extents.el" (12984 29553)) -;;; Generated autoloads from prim/extents.el - -;;;*** - -;;;### (autoloads nil "faces" "prim/faces.el" (12984 29550)) -;;; Generated autoloads from prim/faces.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "files-nomule" "prim/files-nomule.el" (12984 30048)) -;;; Generated autoloads from prim/files-nomule.el - -;;;*** - -;;;### (autoloads nil "files" "prim/files.el" (12988 19732)) -;;; Generated autoloads from prim/files.el - -;;;*** - -;;;### (autoloads nil "fill" "prim/fill.el" (12984 29551)) -;;; Generated autoloads from prim/fill.el - -;;;*** - -;;;### (autoloads nil "float-sup" "prim/float-sup.el" (12984 29551)) -;;; Generated autoloads from prim/float-sup.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "format" "prim/format.el" (12984 30048)) -;;; Generated autoloads from prim/format.el - -;;;*** - -;;;### (autoloads nil "frame" "prim/frame.el" (12992 16669)) -;;; Generated autoloads from prim/frame.el - -;;;*** - -;;;### (autoloads nil "glyphs" "prim/glyphs.el" (12988 19745)) -;;; Generated autoloads from prim/glyphs.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "gui" "prim/gui.el" (12984 29553)) -;;; Generated autoloads from prim/gui.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "help" "prim/help.el" (12996 6142)) -;;; Generated autoloads from prim/help.el - -;;;### (autoloads nil "inc-vers" "prim/inc-vers.el" (12984 29552)) -;;; Generated autoloads from prim/inc-vers.el - -;;;*** - -;;;### (autoloads nil "indent" "prim/indent.el" (12984 30037)) -;;; Generated autoloads from prim/indent.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "isearch-mode" "prim/isearch-mode.el" (12984 29551)) -;;; Generated autoloads from prim/isearch-mode.el - -;;;*** - -;;;### (autoloads nil "itimer" "prim/itimer.el" (12984 29553)) -;;; Generated autoloads from prim/itimer.el - -;;;*** - -;;;### (autoloads nil "keydefs" "prim/keydefs.el" (12988 19742)) -;;; Generated autoloads from prim/keydefs.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "keymap" "prim/keymap.el" (12984 29553)) -;;; Generated autoloads from prim/keymap.el - -;;;*** - -;;;### (autoloads nil "lisp" "prim/lisp.el" (12991 23165)) -;;; Generated autoloads from prim/lisp.el - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "loaddefs" "prim/loaddefs.el" (12997 30656)) -;;; Generated autoloads from prim/loaddefs.el - -;;;*** - -;;;### (autoloads nil "loadup-el" "prim/loadup-el.el" (12984 29553)) -;;; Generated autoloads from prim/loadup-el.el - -;;;### (autoloads nil "loadup" "prim/loadup.el" (12988 19733)) -;;; Generated autoloads from prim/loadup.el - -;;;*** - -;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro name-last-kbd-macro) "macros" "prim/macros.el" (12984 29551)) -;;; Generated autoloads from prim/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." t nil) - -(autoload 'insert-kbd-macro "macros" "\ -Insert in buffer the definition of kbd macro NAME, as Lisp code. -Optional second argument 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." 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 frame, then ask again. -\\[edit] Enter recursive edit; ask again when you exit from that." t nil) - -(autoload 'apply-macro-to-region-lines "macros" "\ -For each complete line between point and mark, 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. -" t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "menubar" "prim/menubar.el" (12984 29551)) -;;; Generated autoloads from prim/menubar.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "minibuf" "prim/minibuf.el" (12988 19737)) -;;; Generated autoloads from prim/minibuf.el - -;;;*** - -;;;### (autoloads nil "misc" "prim/misc.el" (12984 29551)) -;;; Generated autoloads from prim/misc.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "mode-motion" "prim/mode-motion.el" (12984 29551)) -;;; Generated autoloads from prim/mode-motion.el - -;;;*** - -;;;### (autoloads nil "modeline" "prim/modeline.el" (12992 15753)) -;;; Generated autoloads from prim/modeline.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "mouse" "prim/mouse.el" (12988 19735)) -;;; Generated autoloads from prim/mouse.el - -;;;*** - -;;;### (autoloads (disable-command enable-command disabled-command-hook) "novice" "prim/novice.el" (12984 30043)) -;;; Generated autoloads from prim/novice.el - -(autoload 'disabled-command-hook "novice" nil nil nil) - -(autoload 'enable-command "novice" "\ -Allow COMMAND to be executed without special confirmation from now on. -The user's .emacs file is altered so that this will apply -to future sessions." t nil) - -(autoload 'disable-command "novice" "\ -Require special confirmation to execute COMMAND from now on. -The user's .emacs file is altered so that this will apply -to future sessions." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "objects" "prim/objects.el" (12984 29553)) -;;; Generated autoloads from prim/objects.el - -;;;*** - -;;;### (autoloads nil "obsolete" "prim/obsolete.el" (12988 19744)) -;;; Generated autoloads from prim/obsolete.el - -;;;### (autoloads (edit-options list-options) "options" "prim/options.el" (12984 30038)) -;;; Generated autoloads from prim/options.el - -(autoload 'list-options "options" "\ -Display a list of XEmacs user options, with values and documentation." t nil) - -(autoload 'edit-options "options" "\ -Edit a list of XEmacs user option values. -Selects a buffer containing such a list, -in which there are commands to set the option values. -Type \\[describe-mode] in that buffer for a list of commands." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "page" "prim/page.el" (12984 30036)) -;;; Generated autoloads from prim/page.el - -;;;*** - -;;;### (autoloads nil "paragraphs" "prim/paragraphs.el" (12984 30043)) -;;; Generated autoloads from prim/paragraphs.el - -;;;*** - -;;;### (autoloads nil "process" "prim/process.el" (12984 29553)) -;;; Generated autoloads from prim/process.el - -;;;*** - -;;;### (autoloads nil "profile" "prim/profile.el" (12984 29554)) -;;; Generated autoloads from prim/profile.el - -;;;### (autoloads (clear-rectangle string-rectangle open-rectangle insert-rectangle yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle delete-rectangle) "rect" "prim/rect.el" (12984 30040)) -;;; Generated autoloads from prim/rect.el - -(autoload 'delete-rectangle "rect" "\ -Delete (don't save) text in rectangle with point and mark as corners. -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." t nil) - -(autoload 'delete-extract-rectangle "rect" "\ -Delete contents of rectangle and return it as a list of strings. -Arguments START and END are the corners of the rectangle. -The value is list of strings, one for each line of the rectangle." nil nil) - -(autoload 'extract-rectangle "rect" "\ -Return contents of rectangle with corners at START and END. -Value is list of strings, one for each line of the rectangle." nil nil) - -(defvar killed-rectangle nil "\ -Rectangle for yank-rectangle to insert.") - -(autoload 'kill-rectangle "rect" "\ -Delete rectangle with corners at point and mark; save as last killed one. -Calling from program, supply two args START and END, buffer positions. -But in programs you might prefer to use `delete-extract-rectangle'." t nil) - -(autoload 'yank-rectangle "rect" "\ -Yank the last killed rectangle with upper left corner at point." 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." nil nil) - -(autoload 'open-rectangle "rect" "\ -Blank out rectangle with corners at point and mark, 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." t nil) - -(autoload 'string-rectangle "rect" "\ -Insert STRING on each line of the region-rectangle, shifting text right. -The left edge of the rectangle specifies the column for insertion. -This command does not delete or overwrite any existing text. - -Called from a program, takes three args; START, END and STRING." t nil) - -(autoload 'clear-rectangle "rect" "\ -Blank out rectangle with corners at point and mark. -The text previously in the region is overwritten by the blanks. -When called from a program, requires two args which specify the corners." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "register" "prim/register.el" (12984 30038)) -;;; Generated autoloads from prim/register.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "replace" "prim/replace.el" (12988 19736)) -;;; Generated autoloads from prim/replace.el - -;;;### (autoloads (reposition-window) "reposition" "prim/reposition.el" (12984 30043)) -;;; Generated autoloads from prim/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)." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "scrollbar" "prim/scrollbar.el" (12984 29554)) -;;; Generated autoloads from prim/scrollbar.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "simple" "prim/simple.el" (12988 19742)) -;;; Generated autoloads from prim/simple.el - -;;;### (autoloads (reverse-region sort-columns sort-regexp-fields sort-fields sort-float-fields sort-numeric-fields sort-pages sort-paragraphs sort-lines sort-subr) "sort" "prim/sort.el" (12996 12993)) -;;; Generated autoloads from prim/sort.el - -(autoload 'sort-subr "sort" "\ -General text sorting routine to divide buffer into records and sort them. -Arguments are REVERSE NEXTRECFUN ENDRECFUN &optional STARTKEYFUN ENDKEYFUN. - -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." 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." 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." 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." t nil) - -(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. -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. -If you want to sort floating-point numbers, try `sort-float-fields'." t nil) - -(autoload 'sort-float-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 floating point number in each line of the region. 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." 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." t nil) - -(autoload 'sort-regexp-fields "sort" "\ -Sort the region lexicographically as specified by RECORD-REGEXP and KEY. -RECORD-REGEXP specifies the textual units which should be sorted. - For example, to sort lines RECORD-REGEXP would be \"^.*$\" -KEY specifies the part of each record (ie each match for RECORD-REGEXP) - is to be used for sorting. - If it is \"\\\\digit\" then the digit'th \"\\\\(...\\\\)\" match field from - RECORD-REGEXP is used. - If it is \"\\\\&\" then the whole record is used. - Otherwise, it is a regular-expression for which to search within the record. -If a match for KEY is not found within a record then that record is ignored. - -With a negative prefix arg sorts 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*\\\\>\"" 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 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." 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." t nil) - -;;;*** - -;;;### (autoloads (load-default-sounds load-sound-file) "sound" "prim/sound.el" (12984 29552)) -;;; Generated autoloads from prim/sound.el - -(or sound-alist (setq sound-alist '((ready nil) (warp nil)))) - -(autoload 'load-sound-file "sound" "\ -Read in an audio-file and add it to the sound-alist. - -You can only play sound files if you are running on display 0 of the console -of a Sun SparcStation, SGI machine, or HP9000s700, or running a NetAudio -server. The sound file must be in the Sun/NeXT U-LAW format." t nil) - -(autoload 'load-default-sounds "sound" "\ -Load and install some sound files as beep-types. -This only works if you're on display 0 of a Sun SparcStation, SGI machine, -or HP9000s700, or running a NetAudio server." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "specifier" "prim/specifier.el" (12984 29554)) -;;; Generated autoloads from prim/specifier.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "startup" "prim/startup.el" (12995 22982)) -;;; Generated autoloads from prim/startup.el - -;;;### (autoloads nil "subr" "prim/subr.el" (12984 30040)) -;;; Generated autoloads from prim/subr.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "symbols" "prim/symbols.el" (12984 29554)) -;;; Generated autoloads from prim/symbols.el - -;;;*** - -;;;### (autoloads nil "syntax" "prim/syntax.el" (12984 29553)) -;;; Generated autoloads from prim/syntax.el - -;;;*** - -;;;### (autoloads (tabify untabify) "tabify" "prim/tabify.el" (12984 29553)) -;;; Generated autoloads from prim/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." 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." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "toolbar" "prim/toolbar.el" (12984 29552)) -;;; Generated autoloads from prim/toolbar.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "undo-stack" "prim/undo-stack.el" (12984 29554)) -;;; Generated autoloads from prim/undo-stack.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "update-elc" "prim/update-elc.el" (12984 29553)) -;;; Generated autoloads from prim/update-elc.el - -;;;*** - -;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) "userlock" "prim/userlock.el" (12984 30045)) -;;; Generated autoloads from prim/userlock.el - -(autoload 'ask-user-about-lock "userlock" "\ -Ask user what to do when he wants to edit FILE but it is locked by USER. -This function has a choice of three things to do: - do (signal 'file-locked (list FILE USER)) - 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 rewrite it to use any criterion you like to choose which one to do." 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." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "window" "prim/window.el" (12984 29552)) -;;; Generated autoloads from prim/window.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "iso-sgml" "psgml/iso-sgml.el" (12984 29592)) -;;; Generated autoloads from psgml/iso-sgml.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "nefarious" "psgml/nefarious.el" (12984 29593)) -;;; Generated autoloads from psgml/nefarious.el - -;;;*** - -;;;### (autoloads nil "psgml-api" "psgml/psgml-api.el" (12984 29592)) -;;; Generated autoloads from psgml/psgml-api.el - -;;;*** - -;;;### (autoloads nil "psgml-charent" "psgml/psgml-charent.el" (12984 29592)) -;;; Generated autoloads from psgml/psgml-charent.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "psgml-debug" "psgml/psgml-debug.el" (12984 29592)) -;;; Generated autoloads from psgml/psgml-debug.el - -;;;*** - -;;;### (autoloads nil "psgml-dtd" "psgml/psgml-dtd.el" (12984 29592)) -;;; Generated autoloads from psgml/psgml-dtd.el - -;;;*** - -;;;### (autoloads nil "psgml-edit" "psgml/psgml-edit.el" (12984 29592)) -;;; Generated autoloads from psgml/psgml-edit.el - -;;;### (autoloads (style-format) "psgml-fs" "psgml/psgml-fs.el" (12984 29592)) -;;; Generated autoloads from psgml/psgml-fs.el - -(autoload 'style-format "psgml-fs" nil t nil) - -;;;*** - -;;;### (autoloads nil "psgml-html" "psgml/psgml-html.el" (12984 29592)) -;;; Generated autoloads from psgml/psgml-html.el - -(autoload 'html-mode "psgml-html" "\ -HTML mode." t) - -(autoload 'html3-mode "psgml-html" "\ -HTML3 mode." t) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "psgml-info" "psgml/psgml-info.el" (12984 29592)) -;;; Generated autoloads from psgml/psgml-info.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "psgml-lfix" "psgml/psgml-lfix.el" (12984 29593)) -;;; Generated autoloads from psgml/psgml-lfix.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "psgml-other" "psgml/psgml-other.el" (12984 29592)) -;;; Generated autoloads from psgml/psgml-other.el - -;;;*** - -;;;### (autoloads nil "psgml-parse" "psgml/psgml-parse.el" (12989 49165)) -;;; Generated autoloads from psgml/psgml-parse.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "psgml-xemacs" "psgml/psgml-xemacs.el" (12984 29593)) -;;; Generated autoloads from psgml/psgml-xemacs.el - -;;;### (autoloads (sgml-mode) "psgml" "psgml/psgml.el" (12984 29593)) -;;; Generated autoloads from psgml/psgml.el - -(autoload 'sgml-mode "psgml" "\ -Major mode for editing SGML.\\<sgml-mode-map> -Makes > display the matching <. Makes / display matching /. -Use \\[sgml-validate] to validate your document with an SGML parser. - -You can find information with: -\\[sgml-show-context] Show the nesting of elements at cursor position. -\\[sgml-list-valid-tags] Show the tags valid at cursor position. - -Insert tags with completion of contextually valid tags with \\[sgml-insert-tag]. -End the current element with \\[sgml-insert-end-tag]. Insert an element (i.e. -both start and end tag) with \\[sgml-insert-element]. Or tag a region with -\\[sgml-tag-region]. - -To tag a region with the mouse, use transient mark mode or secondary selection. - -Structure editing: -\\[sgml-backward-element] Moves backwards over the previous element. -\\[sgml-forward-element] Moves forward over the nex element. -\\[sgml-down-element] Move forward and down one level in the element structure. -\\[sgml-backward-up-element] Move backward out of this element level. -\\[sgml-beginning-of-element] Move to after the start tag of the current element. -\\[sgml-end-of-element] Move to before the end tag of the current element. -\\[sgml-kill-element] Kill the element following the cursor. - -Finding interesting positions -\\[sgml-next-data-field] Move forward to next point where data is allowed. -\\[sgml-next-trouble-spot] Move forward to next point where something is - amiss with the structure. - -Folding and unfolding -\\[sgml-fold-element] Fold the lines comprising the current element, leaving - the first line visible. -\\[sgml-fold-subelement] Fold the elements in the content of the current element. - Leaving the first line of every element visible. -\\[sgml-unfold-line] Show hidden lines in current line. - -User options: - -sgml-omittag Set this to reflect OMITTAG in the SGML declaration. -sgml-shortag Set this to reflect SHORTTAG in the SGML declaration. -sgml-auto-insert-required-elements If non-nil, automatically insert required - elements in the content of an inserted element. -sgml-balanced-tag-edit If non-nil, always insert start-end tag pairs. -sgml-omittag-transparent If non-nil, will show legal tags inside elements - with omitable start tags and legal tags beyond omitable end tags. -sgml-leave-point-after-insert If non-nil, the point will remain after - inserted tag(s). -sgml-warn-about-undefined-elements If non-nil, print a warning when a tag - for a undefined element is found. -sgml-max-menu-size Max number of entries in Tags and Entities menus before - they are split into several panes. -sgml-always-quote-attributes If non-nil, quote all attribute values - inserted after finishing edit attributes. -sgml-minimize-attributes Determines minimization of attributes inserted by - edit-attributes. -sgml-normalize-trims If non-nil, sgml-normalize will trim off white space - from end of element when adding end tag. -sgml-indent-step How much to increament indent for every element level. -sgml-indent-data If non-nil, indent in data/mixed context also. -sgml-set-face If non-nil, psgml will set the face of parsed markup. -sgml-markup-faces The faces used when the above variable is non-nil. -sgml-system-path List of directorys used to look for system identifiers. -sgml-public-map Mapping from public identifiers to file names. -sgml-offer-save If non-nil, ask about saving modified buffers before - \\[sgml-validate] is run. - -All bindings: -\\{sgml-mode-map} -" t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "tempo" "psgml/tempo.el" (12984 29593)) -;;; Generated autoloads from psgml/tempo.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "rmail-kill" "rmail/rmail-kill.el" (12984 30051)) -;;; Generated autoloads from rmail/rmail-kill.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "rmail-xemacs" "rmail/rmail-xemacs.el" (12984 30051)) -;;; Generated autoloads from rmail/rmail-xemacs.el - -;;;### (autoloads (rmail-input rmail-mode rmail) "rmail" "rmail/rmail.el" (12984 29555)) -;;; Generated autoloads from rmail/rmail.el - -(defvar rmail-dont-reply-to-names nil "\ -*A regexp specifying names to prune of reply to messages. -A value of nil means exclude your own name only.") - -(defvar rmail-default-dont-reply-to-names "info-" "\ -A regular expression specifying part of the value of the default value of -the variable `rmail-dont-reply-to-names', for when the user does not set -`rmail-dont-reply-to-names' explicitly. (The other part of the default -value is the user's name.) -It is useful to set this variable in the site customization file.") - -(defvar rmail-delete-after-output nil "\ -*Non-nil means automatically delete a message that is copied to a file.") - -(defvar rmail-primary-inbox-list nil "\ -*List of files which are inboxes for user's primary mail file `~/RMAIL'. -`nil' means the default, which is (\"/usr/spool/mail/$USER\") -\(the name varies depending on the operating system, -and the value of the environment variable MAIL overrides it).") - -(defvar rmail-mail-new-frame nil "\ -*Non-nil means Rmail makes a new frame for composing outgoing mail.") - -(defvar rmail-retry-setup-hook nil "\ -Hook that `rmail-retry-failure' uses in place of `mail-setup-hook'.") - -(defvar rmail-last-file nil) - -(autoload 'rmail "rmail" "\ -Read and edit incoming mail. -Moves messages into file named by `rmail-file-name' (a babyl format file) - and edits that file in RMAIL Mode. -Type \\[describe-mode] once editing that file, for a list of RMAIL commands. - -May be called with filename as argument; then performs rmail editing on -that file, but does not copy any new mail into the file." 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 (same as \\[beginning-of-buffer]). -\\[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-to-rmail-file] Output this message to an Rmail file (append it). -\\[rmail-output] Output this message to a Unix-format mail file (append it). -\\[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." t nil) - -(autoload 'rmail-input "rmail" "\ -Run Rmail on file FILENAME." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "rmailedit" "rmail/rmailedit.el" (12984 29555)) -;;; Generated autoloads from rmail/rmailedit.el - -;;;*** - -;;;### (autoloads nil "rmailkwd" "rmail/rmailkwd.el" (12984 29555)) -;;; Generated autoloads from rmail/rmailkwd.el - -;;;*** - -;;;### (autoloads nil "rmailmsc" "rmail/rmailmsc.el" (12984 29555)) -;;; Generated autoloads from rmail/rmailmsc.el - -;;;### (autoloads (rmail-file-p) "rmailout" "rmail/rmailout.el" (12984 29555)) -;;; Generated autoloads from rmail/rmailout.el - -(autoload 'rmail-file-p "rmailout" nil nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "rmailsort" "rmail/rmailsort.el" (12984 29555)) -;;; Generated autoloads from rmail/rmailsort.el - -;;;*** - -;;;### (autoloads nil "rmailsum" "rmail/rmailsum.el" (12984 29555)) -;;; Generated autoloads from rmail/rmailsum.el - -;;;*** - -;;;### (autoloads nil "undigest" "rmail/undigest.el" (12984 29555)) -;;; Generated autoloads from rmail/undigest.el - -;;;*** - -;;;### (autoloads (unrmail batch-unrmail) "unrmail" "rmail/unrmail.el" (12984 29555)) -;;; Generated autoloads from rmail/unrmail.el - -(autoload 'batch-unrmail "unrmail" "\ -Convert Rmail files to mailbox files. -Specify the input Rmail 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'." nil nil) - -(autoload 'unrmail "unrmail" "\ -Convert Rmail file FILE to mailbox-format file TO-FILE." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "sunpro-init" "sunpro/sunpro-init.el" (12988 19778)) -;;; Generated autoloads from sunpro/sunpro-init.el - -;;;*** - -;;;### (autoloads nil "sunpro-keys" "sunpro/sunpro-keys.el" (12984 29562)) -;;; Generated autoloads from sunpro/sunpro-keys.el - -;;;*** - -;;;### (autoloads nil "sunpro-load" "sunpro/sunpro-load.el" (12984 29562)) -;;; Generated autoloads from sunpro/sunpro-load.el - -;;;*** - -;;;### (autoloads nil "sunpro-menubar" "sunpro/sunpro-menubar.el" (12984 29562)) -;;; Generated autoloads from sunpro/sunpro-menubar.el - -;;;*** - -;;;### (autoloads nil "sunpro-sparcworks" "sunpro/sunpro-sparcworks.el" (12984 29562)) -;;; Generated autoloads from sunpro/sunpro-sparcworks.el - -;;;*** - -;;;### (autoloads nil "AT386" "term/AT386.el" (12988 19751)) -;;; Generated autoloads from term/AT386.el - -;;;*** - -;;;### (autoloads nil "apollo" "term/apollo.el" (12984 29555)) -;;; Generated autoloads from term/apollo.el - -;;;*** - -;;;### (autoloads nil "bg-mouse" "term/bg-mouse.el" (12984 29555)) -;;; Generated autoloads from term/bg-mouse.el - -;;;*** - -;;;### (autoloads nil "bobcat" "term/bobcat.el" (12984 29555)) -;;; Generated autoloads from term/bobcat.el - -;;;*** - -;;;### (autoloads nil "internal" "term/internal.el" (12984 29555)) -;;; Generated autoloads from term/internal.el - -;;;*** - -;;;### (autoloads nil "keyswap" "term/keyswap.el" (12984 29555)) -;;; Generated autoloads from term/keyswap.el - -;;;*** - -;;;### (autoloads nil "linux" "term/linux.el" (12988 19753)) -;;; Generated autoloads from term/linux.el - -;;;*** - -;;;### (autoloads nil "lk201" "term/lk201.el" (12988 19753)) -;;; Generated autoloads from term/lk201.el - -;;;*** - -;;;### (autoloads nil "news" "term/news.el" (12988 19752)) -;;; Generated autoloads from term/news.el - -;;;*** - -;;;### (autoloads nil "pc-win" "term/pc-win.el" (12984 29555)) -;;; Generated autoloads from term/pc-win.el - -;;;*** - -;;;### (autoloads nil "scoansi" "term/scoansi.el" (12984 29555)) -;;; Generated autoloads from term/scoansi.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "sun-mouse" "term/sun-mouse.el" (12984 29555)) -;;; Generated autoloads from term/sun-mouse.el - -;;;*** - -;;;### (autoloads nil "sun" "term/sun.el" (12984 29555)) -;;; Generated autoloads from term/sun.el - -;;;*** - -;;;### (autoloads nil "sup-mouse" "term/sup-mouse.el" (12984 29555)) -;;; Generated autoloads from term/sup-mouse.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "tty-init" "term/tty-init.el" (12984 29555)) -;;; Generated autoloads from term/tty-init.el - -;;;*** - -;;;### (autoloads nil "tvi970" "term/tvi970.el" (12988 19754)) -;;; Generated autoloads from term/tvi970.el - -;;;*** - -;;;### (autoloads nil "vt-control" "term/vt-control.el" (12984 29555)) -;;; Generated autoloads from term/vt-control.el - -;;;*** - -;;;### (autoloads nil "vt100-led" "term/vt100-led.el" (12984 29555)) -;;; Generated autoloads from term/vt100-led.el - -;;;*** - -;;;### (autoloads nil "vt100" "term/vt100.el" (12984 29555)) -;;; Generated autoloads from term/vt100.el - -;;;*** - -;;;### (autoloads nil "vt102" "term/vt102.el" (12984 29555)) -;;; Generated autoloads from term/vt102.el - -;;;*** - -;;;### (autoloads nil "vt125" "term/vt125.el" (12984 29555)) -;;; Generated autoloads from term/vt125.el - -;;;*** - -;;;### (autoloads nil "vt200" "term/vt200.el" (12984 29555)) -;;; Generated autoloads from term/vt200.el - -;;;*** - -;;;### (autoloads nil "vt201" "term/vt201.el" (12984 29555)) -;;; Generated autoloads from term/vt201.el - -;;;*** - -;;;### (autoloads nil "vt220" "term/vt220.el" (12984 29555)) -;;; Generated autoloads from term/vt220.el - -;;;*** - -;;;### (autoloads nil "vt240" "term/vt240.el" (12984 29555)) -;;; Generated autoloads from term/vt240.el - -;;;*** - -;;;### (autoloads nil "vt300" "term/vt300.el" (12984 29555)) -;;; Generated autoloads from term/vt300.el - -;;;*** - -;;;### (autoloads nil "vt320" "term/vt320.el" (12984 29555)) -;;; Generated autoloads from term/vt320.el - -;;;*** - -;;;### (autoloads nil "vt400" "term/vt400.el" (12984 29555)) -;;; Generated autoloads from term/vt400.el - -;;;*** - -;;;### (autoloads nil "vt420" "term/vt420.el" (12984 29555)) -;;; Generated autoloads from term/vt420.el - -;;;*** - -;;;### (autoloads nil "win32-win" "term/win32-win.el" (12984 29555)) -;;; Generated autoloads from term/win32-win.el - -;;;*** - -;;;### (autoloads nil "wyse50" "term/wyse50.el" (12984 29555)) -;;; Generated autoloads from term/wyse50.el - -;;;*** - -;;;### (autoloads nil "xterm" "term/xterm.el" (12988 19756)) -;;; Generated autoloads from term/xterm.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "cless" "tl/cless.el" (12996 50654)) -;;; Generated autoloads from tl/cless.el - -;;;*** - -;;;### (autoloads nil "emu-e19" "tl/emu-e19.el" (12996 50654)) -;;; Generated autoloads from tl/emu-e19.el - -;;;*** - -;;;### (autoloads nil "emu-x20" "tl/emu-x20.el" (12996 50654)) -;;; Generated autoloads from tl/emu-x20.el - -;;;*** - -;;;### (autoloads nil "emu-xemacs" "tl/emu-xemacs.el" (12996 50654)) -;;; Generated autoloads from tl/emu-xemacs.el - -;;;*** - -;;;### (autoloads nil "emu" "tl/emu.el" (12996 50654)) -;;; Generated autoloads from tl/emu.el - -;;;*** - -;;;### (autoloads nil "file-detect" "tl/file-detect.el" (12996 50654)) -;;; Generated autoloads from tl/file-detect.el - -;;;*** - -;;;### (autoloads nil "filename" "tl/filename.el" (12996 50654)) -;;; Generated autoloads from tl/filename.el - -;;;*** - -;;;### (autoloads nil "range" "tl/range.el" (12996 50654)) -;;; Generated autoloads from tl/range.el - -;;;*** - -;;;### (autoloads nil "richtext" "tl/richtext.el" (12996 50654)) -;;; Generated autoloads from tl/richtext.el - -;;;*** - -;;;### (autoloads nil "texi-util" "tl/texi-util.el" (12996 50654)) -;;; Generated autoloads from tl/texi-util.el - -;;;*** - -;;;### (autoloads nil "tl-atype" "tl/tl-atype.el" (12996 50654)) -;;; Generated autoloads from tl/tl-atype.el - -;;;*** - -;;;### (autoloads nil "tl-list" "tl/tl-list.el" (12996 50654)) -;;; Generated autoloads from tl/tl-list.el - -;;;*** - -;;;### (autoloads nil "tl-misc" "tl/tl-misc.el" (12996 50654)) -;;; Generated autoloads from tl/tl-misc.el - -;;;*** - -;;;### (autoloads nil "tl-num" "tl/tl-num.el" (12996 50654)) -;;; Generated autoloads from tl/tl-num.el - -;;;*** - -;;;### (autoloads nil "tl-seq" "tl/tl-seq.el" (12996 50654)) -;;; Generated autoloads from tl/tl-seq.el - -;;;*** - -;;;### (autoloads nil "tl-str" "tl/tl-str.el" (12996 50654)) -;;; Generated autoloads from tl/tl-str.el - -;;;*** - -;;;### (autoloads nil "tu-comment" "tl/tu-comment.el" (12996 50654)) -;;; Generated autoloads from tl/tu-comment.el - -;;;*** - -;;;### (autoloads nil "tu-replace" "tl/tu-replace.el" (12996 50654)) -;;; Generated autoloads from tl/tu-replace.el - -;;;*** - -;;;### (autoloads nil "gnus-art-mime" "tm/gnus-art-mime.el" (12996 50654)) -;;; Generated autoloads from tm/gnus-art-mime.el - -;;;*** - -;;;### (autoloads nil "gnus-charset" "tm/gnus-charset.el" (12996 50654)) -;;; Generated autoloads from tm/gnus-charset.el - -;;;*** - -;;;### (autoloads nil "gnus-mime-old" "tm/gnus-mime-old.el" (12996 50654)) -;;; Generated autoloads from tm/gnus-mime-old.el - -;;;*** - -;;;### (autoloads nil "gnus-mime" "tm/gnus-mime.el" (12996 50654)) -;;; Generated autoloads from tm/gnus-mime.el - -;;;*** - -;;;### (autoloads nil "gnus-sum-mime" "tm/gnus-sum-mime.el" (12996 50654)) -;;; Generated autoloads from tm/gnus-sum-mime.el - -;;;*** - -;;;### (autoloads nil "message-mime" "tm/message-mime.el" (12996 50654)) -;;; Generated autoloads from tm/message-mime.el - -;;;*** - -;;;### (autoloads nil "mime-setup" "tm/mime-setup.el" (12996 50654)) -;;; Generated autoloads from tm/mime-setup.el - -;;;*** - -;;;### (autoloads nil "sc-setup" "tm/sc-setup.el" (12996 50655)) -;;; Generated autoloads from tm/sc-setup.el - -;;;*** - -;;;### (autoloads nil "signature" "tm/signature.el" (12996 50655)) -;;; Generated autoloads from tm/signature.el - -;;;*** - -;;;### (autoloads nil "tm-bbdb" "tm/tm-bbdb.el" (12996 50655)) -;;; Generated autoloads from tm/tm-bbdb.el - -;;;*** - -;;;### (autoloads nil "tm-def" "tm/tm-def.el" (12996 50655)) -;;; Generated autoloads from tm/tm-def.el - -;;;*** - -;;;### (autoloads nil "tm-edit-mc" "tm/tm-edit-mc.el" (12996 50655)) -;;; Generated autoloads from tm/tm-edit-mc.el - -;;;*** - -;;;### (autoloads nil "tm-edit-tipgp" "tm/tm-edit-tipgp.el" (12996 50655)) -;;; Generated autoloads from tm/tm-edit-tipgp.el - -;;;### (autoloads (mime/editor-mode) "tm-edit" "tm/tm-edit.el" (12997 33619)) -;;; Generated autoloads from tm/tm-edit.el - -(autoload 'mime/editor-mode "tm-edit" "\ -MIME minor mode for editing the tagged MIME message. - -In this mode, basically, the message is composed in the tagged MIME -format. The message tag looks like: - - --[[text/plain; charset=ISO-2022-JP][7bit]] - -The tag specifies the MIME content type, subtype, optional parameters -and transfer encoding of the message following the tag. Messages -without any tag are treated as `text/plain' by default. Charset and -transfer encoding are automatically defined unless explicitly -specified. Binary messages such as audio and image are usually hidden. -The messages in the tagged MIME format are automatically translated -into a MIME compliant message when exiting this mode. - -Available charsets depend on Emacs version being used. The following -lists the available charsets of each emacs. - -EMACS 18: US-ASCII is only available. -NEmacs: US-ASCII and ISO-2022-JP are available. -EMACS 19: US-ASCII and ISO-8859-1 (or other charset) are available. -XEmacs 19: US-ASCII and ISO-8859-1 (or other charset) are available. -Mule: US-ASCII, ISO-8859-* (except for ISO-8859-5), KOI8-R, - ISO-2022-JP, ISO-2022-JP-2, ISO-2022-KR, BIG5 and - ISO-2022-INT-1 are available. - -ISO-2022-JP-2 and ISO-2022-INT-1 charsets used in mule is expected to -be used to represent multilingual text in intermixed manner. Any -languages that has no registered charset are represented as either -ISO-2022-JP-2 or ISO-2022-INT-1 in mule. - -If you want to use non-ISO-8859-1 charset in EMACS 19 or XEmacs 19, -please set variable `default-mime-charset'. This variable must be -symbol of which name is a MIME charset. - -If you want to add more charsets in mule, please set variable -`charsets-mime-charset-alist'. This variable must be alist of which -key is list of leading-char/charset and value is symbol of MIME -charset. (leading-char is a term of MULE 1.* and 2.*. charset is a -term of XEmacs/mule, mule merged EMACS and MULE 3.*) If name of -coding-system is different as MIME charset, please set variable -`mime-charset-coding-system-alist'. This variable must be alist of -which key is MIME charset and value is coding-system. - -Following commands are available in addition to major mode commands: - -[make single part] -\\[mime-editor/insert-text] insert a text message. -\\[mime-editor/insert-file] insert a (binary) file. -\\[mime-editor/insert-external] insert a reference to external body. -\\[mime-editor/insert-voice] insert a voice message. -\\[mime-editor/insert-message] insert a mail or news message. -\\[mime-editor/insert-mail] insert a mail message. -\\[mime-editor/insert-signature] insert a signature file at end. -\\[mime-editor/insert-key] insert PGP public key. -\\[mime-editor/insert-tag] insert a new MIME tag. - -[make enclosure (maybe multipart)] -\\[mime-editor/enclose-alternative-region] enclose as multipart/alternative. -\\[mime-editor/enclose-parallel-region] enclose as multipart/parallel. -\\[mime-editor/enclose-mixed-region] enclose as multipart/mixed. -\\[mime-editor/enclose-digest-region] enclose as multipart/digest. -\\[mime-editor/enclose-signed-region] enclose as PGP signed. -\\[mime-editor/enclose-encrypted-region] enclose as PGP encrypted. -\\[mime-editor/enclose-quote-region] enclose as verbose mode (to avoid to expand tags) - -[other commands] -\\[mime-editor/set-transfer-level-7bit] set transfer-level as 7. -\\[mime-editor/set-transfer-level-8bit] set transfer-level as 8. -\\[mime-editor/set-split] set message splitting mode. -\\[mime-editor/set-sign] set PGP-sign mode. -\\[mime-editor/set-encrypt] set PGP-encryption mode. -\\[mime-editor/preview-message] preview editing MIME message. -\\[mime-editor/exit] exit and translate into a MIME compliant message. -\\[mime-editor/help] show this help. -\\[mime-editor/maybe-translate] exit and translate if in MIME mode, then split. - -Additional commands are available in some major modes: -C-c C-c exit, translate and run the original command. -C-c C-s exit, translate and run the original command. - -The following is a message example written in the tagged MIME format. -TABs at the beginning of the line are not a part of the message: - - This is a conventional plain text. It should be translated - into text/plain. - --[[text/plain]] - This is also a plain text. But, it is explicitly specified as - is. - --[[text/richtext]] - <center>This is a richtext.</center> - --[[image/gif][base64]]^M...image encoded in base64 here... - --[[audio/basic][base64]]^M...audio encoded in base64 here... - -User customizable variables (not documented all of them): - mime-prefix - Specifies a key prefix for MIME minor mode commands. - - mime-ignore-preceding-spaces - Preceding white spaces in a message body are ignored if non-nil. - - mime-ignore-trailing-spaces - Trailing white spaces in a message body are ignored if non-nil. - - mime-auto-hide-body - Hide a non-textual body message encoded in base64 after insertion - if non-nil. - - mime-editor/transfer-level - A number of network transfer level. It should be bigger than 7. - If you are in 8bit-through environment, please set 8. - - mime-editor/voice-recorder - Specifies a function to record a voice message and encode it. - The function `mime-editor/voice-recorder-for-sun' is for Sun - SparcStations. - - mime/editor-mode-hook - Turning on MIME mode calls the value of mime/editor-mode-hook, if - it is non-nil. - - mime-editor/translate-hook - The value of mime-editor/translate-hook is called just before translating - the tagged MIME format into a MIME compliant message if it is - non-nil. If the hook call the function mime-editor/insert-signature, - the signature file will be inserted automatically. - - mime-editor/exit-hook - Turning off MIME mode calls the value of mime-editor/exit-hook, if it is - non-nil." t nil) - -(defalias 'edit-mime 'mime/editor-mode) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "tm-ew-d" "tm/tm-ew-d.el" (12996 50655)) -;;; Generated autoloads from tm/tm-ew-d.el - -;;;*** - -;;;### (autoloads nil "tm-ew-e" "tm/tm-ew-e.el" (12996 50655)) -;;; Generated autoloads from tm/tm-ew-e.el - -;;;*** - -;;;### (autoloads nil "tm-file" "tm/tm-file.el" (12996 50655)) -;;; Generated autoloads from tm/tm-file.el - -;;;*** - -;;;### (autoloads nil "tm-ftp" "tm/tm-ftp.el" (12996 50655)) -;;; Generated autoloads from tm/tm-ftp.el - -;;;*** - -;;;### (autoloads nil "tm-html" "tm/tm-html.el" (12996 50655)) -;;; Generated autoloads from tm/tm-html.el - -;;;*** - -;;;### (autoloads nil "tm-image" "tm/tm-image.el" (12996 50655)) -;;; Generated autoloads from tm/tm-image.el - -;;;*** - -;;;### (autoloads nil "tm-latex" "tm/tm-latex.el" (12996 50655)) -;;; Generated autoloads from tm/tm-latex.el - -;;;*** - -;;;### (autoloads nil "tm-mail" "tm/tm-mail.el" (12996 50655)) -;;; Generated autoloads from tm/tm-mail.el - -;;;*** - -;;;### (autoloads nil "tm-mh-e" "tm/tm-mh-e.el" (12996 50655)) -;;; Generated autoloads from tm/tm-mh-e.el - -;;;*** - -;;;### (autoloads nil "tm-parse" "tm/tm-parse.el" (12996 50655)) -;;; Generated autoloads from tm/tm-parse.el - -;;;*** - -;;;### (autoloads nil "tm-partial" "tm/tm-partial.el" (12996 50655)) -;;; Generated autoloads from tm/tm-partial.el - -;;;*** - -;;;### (autoloads nil "tm-pgp" "tm/tm-pgp.el" (12996 50655)) -;;; Generated autoloads from tm/tm-pgp.el - -;;;*** - -;;;### (autoloads nil "tm-play" "tm/tm-play.el" (12996 50655)) -;;; Generated autoloads from tm/tm-play.el - -;;;*** - -;;;### (autoloads nil "tm-rmail" "tm/tm-rmail.el" (12996 50655)) -;;; Generated autoloads from tm/tm-rmail.el - -;;;*** - -;;;### (autoloads nil "tm-setup" "tm/tm-setup.el" (12996 50655)) -;;; Generated autoloads from tm/tm-setup.el - -;;;*** - -;;;### (autoloads nil "tm-tar" "tm/tm-tar.el" (12996 50655)) -;;; Generated autoloads from tm/tm-tar.el - -;;;*** - -;;;### (autoloads nil "tm-text" "tm/tm-text.el" (12996 50655)) -;;; Generated autoloads from tm/tm-text.el - -;;;*** - -;;;### (autoloads nil "tm-view" "tm/tm-view.el" (12996 50655)) -;;; Generated autoloads from tm/tm-view.el - -;;;*** - -;;;### (autoloads nil "tm-vm" "tm/tm-vm.el" (12996 50655)) -;;; Generated autoloads from tm/tm-vm.el - -;;;*** - -;;;### (autoloads nil "tmh-comp" "tm/tmh-comp.el" (12996 50655)) -;;; Generated autoloads from tm/tmh-comp.el - -;;;### (autoloads nil "tooltalk-init" "tooltalk/tooltalk-init.el" (12984 29562)) -;;; Generated autoloads from tooltalk/tooltalk-init.el - -;;;*** - -;;;### (autoloads nil "tooltalk-load" "tooltalk/tooltalk-load.el" (12984 29562)) -;;; Generated autoloads from tooltalk/tooltalk-load.el - -;;;*** - -;;;### (autoloads nil "tooltalk-macros" "tooltalk/tooltalk-macros.el" (12984 29562)) -;;; Generated autoloads from tooltalk/tooltalk-macros.el - -;;;*** - -;;;### (autoloads nil "tooltalk-util" "tooltalk/tooltalk-util.el" (12984 29562)) -;;; Generated autoloads from tooltalk/tooltalk-util.el - -;;;*** - -;;;### (autoloads nil "base64" "url/base64.el" (12984 29590)) -;;; Generated autoloads from url/base64.el - -;;;*** - -;;;### (autoloads nil "docomp" "url/docomp.el" (12984 29591)) -;;; Generated autoloads from url/docomp.el - -;;;*** - -;;;### (autoloads nil "md5" "url/md5.el" (12984 29590)) -;;; Generated autoloads from url/md5.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "mm" "url/mm.el" (12984 29590)) -;;; Generated autoloads from url/mm.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "ssl" "url/ssl.el" (12984 29590)) -;;; Generated autoloads from url/ssl.el - -;;;*** - -;;;### (autoloads nil "url-cookie" "url/url-cookie.el" (12984 29591)) -;;; Generated autoloads from url/url-cookie.el - -;;;*** - -;;;### (autoloads nil "url-file" "url/url-file.el" (12984 29591)) -;;; Generated autoloads from url/url-file.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "url-gopher" "url/url-gopher.el" (12984 29591)) -;;; Generated autoloads from url/url-gopher.el - -;;;*** - -;;;### (autoloads nil "url-hash" "url/url-hash.el" (12984 29591)) -;;; Generated autoloads from url/url-hash.el - -;;;*** - -;;;### (autoloads nil "url-http" "url/url-http.el" (12984 29591)) -;;; Generated autoloads from url/url-http.el - -;;;*** - -;;;### (autoloads nil "url-irc" "url/url-irc.el" (12984 29591)) -;;; Generated autoloads from url/url-irc.el - -;;;*** - -;;;### (autoloads nil "url-mail" "url/url-mail.el" (12984 29591)) -;;; Generated autoloads from url/url-mail.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "url-misc" "url/url-misc.el" (12984 29591)) -;;; Generated autoloads from url/url-misc.el - -;;;*** - -;;;### (autoloads nil "url-news" "url/url-news.el" (12984 29591)) -;;; Generated autoloads from url/url-news.el - -;;;*** - -;;;### (autoloads nil "url-nfs" "url/url-nfs.el" (12984 29591)) -;;; Generated autoloads from url/url-nfs.el - -;;;*** - -;;;### (autoloads nil "url-parse" "url/url-parse.el" (12984 29591)) -;;; Generated autoloads from url/url-parse.el - -;;;*** - -;;;### (autoloads nil "url-pgp" "url/url-pgp.el" (12984 29591)) -;;; Generated autoloads from url/url-pgp.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "url-sysdp" "url/url-sysdp.el" (12984 29591)) -;;; Generated autoloads from url/url-sysdp.el - -;;;*** - -;;;### (autoloads nil "url-vars" "url/url-vars.el" (12984 29591)) -;;; Generated autoloads from url/url-vars.el - -;;;*** - -;;;### (autoloads nil "url-wais" "url/url-wais.el" (12984 29591)) -;;; Generated autoloads from url/url-wais.el - - -;;; Generated autoloads from url/urlauth.el - -;;;*** - -;;;*** - -;;;### (autoloads (url-retrieve url-cache-expired url-popup-info url-get-url-at-point url-buffer-visiting url-normalize-url url-file-attributes) "url" "url/url.el" (12984 29590)) -;;; Generated autoloads from url/url.el - -(autoload 'url-file-attributes "url" "\ -Return a list of attributes of URL. -Value is nil if specified file cannot be opened. -Otherwise, list elements are: - 0. t for directory, string (name linked to) for symbolic link, or nil. - 1. Number of links to file. - 2. File uid. - 3. File gid. - 4. Last access time, as a list of two integers. - First integer has high-order 16 bits of time, second has low 16 bits. - 5. Last modification time, likewise. - 6. Last status change time, likewise. - 7. Size in bytes. (-1, if number is out of range). - 8. File modes, as a string of ten letters or dashes as in ls -l. - If URL is on an http server, this will return the content-type if possible. - 9. t iff file's gid would change if file were deleted and recreated. -10. inode number. -11. Device number. - -If file does not exist, returns nil." nil nil) - -(autoload 'url-normalize-url "url" "\ -Return a 'normalized' version of URL. This strips out default port -numbers, etc." nil nil) - -(autoload 'url-buffer-visiting "url" "\ -Return the name of a buffer (if any) that is visiting URL." nil nil) - -(autoload 'url-get-url-at-point "url" "\ -Get the URL closest to point, but don't change your -position. Has a preference for looking backward when not -directly on a symbol." nil nil) - -(autoload 'url-popup-info "url" "\ -Retrieve the HTTP/1.0 headers and display them in a temp buffer." nil nil) - -(autoload 'url-cache-expired "url" "\ -Return t iff a cached file has expired." nil nil) - -(autoload 'url-retrieve "url" "\ -Retrieve a document over the World Wide Web. -The document should be specified by its fully specified -Uniform Resource Locator. No parsing is done, just return the -document as the server sent it. The document is left in the -buffer specified by url-working-buffer. url-working-buffer is killed -immediately before starting the transfer, so that no buffer-local -variables interfere with the retrieval. HTTP/1.0 redirection will -be honored before this function exits." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "urlauth" "url/urlauth.el" (12984 29590)) -;;; Generated autoloads from url/urlauth.el - -;;;*** - -;;;### (autoloads nil "abbrevlist" "utils/abbrevlist.el" (12984 29556)) -;;; Generated autoloads from utils/abbrevlist.el - -;;;### (autoloads (defadvice ad-add-advice) "advice" "utils/advice.el" (12984 29556)) -;;; Generated autoloads from utils/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'.") - -(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.") - -(autoload 'ad-add-advice "advice" "\ -Adds a piece of ADVICE to FUNCTION's list of advices in CLASS. -If FUNCTION already has one or more pieces of advice of the specified -CLASS then POSITION determines where the new piece will go. The value -of POSITION can either be `first', `last' or a number where 0 corresponds -to `first'. Numbers outside the range will be mapped to the closest -extreme position. If there was already a piece of ADVICE with the same -name, then the position argument will be ignored and the old advice -will be overwritten with the new one. - If the FUNCTION was not advised already, then its advice info will be -initialized. Redefining a piece of advice whose name is part of the cache-id -will clear the cache." nil nil) - -(autoload 'defadvice "advice" "\ -Defines 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. - -Look at the file `advice.el' for comprehensive documentation." nil 'macro) - -;;;*** - -;;;### (autoloads (all-annotations annotation-list annotations-at annotations-in-region annotation-at annotationp delete-annotation make-annotation) "annotations" "utils/annotations.el" (12984 29556)) -;;; Generated autoloads from utils/annotations.el - -(defvar make-annotation-hook nil "\ -*Function or functions to run immediately after creating an annotation.") - -(defvar before-delete-annotation-hook nil "\ -*Function or functions to run immediately before deleting an annotation.") - -(defvar after-delete-annotation-hook nil "\ -*Function or functions to run immediately after deleting an annotation.") - -(autoload 'make-annotation "annotations" "\ -Create a marginal annotation, displayed using GLYPH, at position POS. -GLYPH may be either a glyph object or a string. Use layout policy -LAYOUT and place the annotation in buffer BUFFER. If POS is nil, point is -used. If LAYOUT is nil, `whitespace' is used. If BUFFER is nil, the -current buffer is used. If WITH-EVENT is non-nil, then when an annotation -is activated, the triggering event is passed as the second arg to the -annotation function. If D-GLYPH is non-nil then it is used as the glyph -that will be displayed when button1 is down. If RIGHTP is non-nil then -the glyph will be displayed on the right side of the buffer instead of the -left." nil nil) - -(autoload 'delete-annotation "annotations" "\ -Remove ANNOTATION from its buffer. This does not modify the buffer text." nil nil) - -(autoload 'annotationp "annotations" "\ -T if OBJECT is an annotation." nil nil) - -(autoload 'annotation-at "annotations" "\ -Return the first annotation at POS in BUFFER. -BUFFER defaults to the current buffer. POS defaults to point in BUFFER." nil nil) - -(autoload 'annotations-in-region "annotations" "\ -Return all annotations in BUFFER between START and END inclusively." nil nil) - -(autoload 'annotations-at "annotations" "\ -Return a list of all annotations at POS in BUFFER. -If BUFFER is nil, the current buffer is used. If POS is nil, point is used." nil nil) - -(autoload 'annotation-list "annotations" "\ -Return a list of all annotations in BUFFER. -If BUFFER is nil, the current buffer is used." nil nil) - -(autoload 'all-annotations "annotations" "\ -Return a list of all annotations in existence." nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "assoc" "utils/assoc.el" (12984 29557)) -;;; Generated autoloads from utils/assoc.el - -;;;*** - -;;;### (autoloads nil "atomic-extents" "utils/atomic-extents.el" (12984 29556)) -;;; Generated autoloads from utils/atomic-extents.el - -;;;*** - -;;;*** - -;;;### (autoloads (batch-update-autoloads update-directory-autoloads update-autoloads-here update-file-autoloads generate-file-autoloads) "autoload" "utils/autoload.el" (12984 29556)) -;;; Generated autoloads from utils/autoload.el - -(autoload 'generate-file-autoloads "autoload" "\ -Insert at point a loaddefs autoload section for FILE. -autoloads are generated for defuns and defmacros in FILE -marked by `generate-autoload-cookie' (which see). -If FILE is being visited in a buffer, the contents of the buffer -are used." t nil) - -(autoload 'update-file-autoloads "autoload" "\ -Update the autoloads for FILE in `generated-autoload-file' -\(which FILE might bind in its local variables)." t nil) - -(autoload 'update-autoloads-here "autoload" "\ -Update sections of the current buffer generated by \\[update-file-autoloads]." t nil) - -(autoload 'update-directory-autoloads "autoload" "\ -Run \\[update-file-autoloads] on each .el file in DIR." t nil) - -(autoload 'batch-update-autoloads "autoload" "\ -Update the autoloads for the files or directories on the command line. -Runs \\[update-file-autoloads] on files and \\[update-directory-autoloads] -on directories. 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-update-autoloads *.el'." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "bench" "utils/bench.el" (12988 19767)) -;;; Generated autoloads from utils/bench.el - -;;;*** - -;;;### (autoloads nil "blessmail" "utils/blessmail.el" (12984 29557)) -;;; Generated autoloads from utils/blessmail.el - -;;;*** - -;;;### (autoloads (browse-url-lynx-emacs browse-url-lynx-xterm browse-url-w3 browse-url-iximosaic browse-url-grail browse-url-mosaic browse-url-netscape) "browse-url" "utils/browse-url.el" (12984 29557)) -;;; Generated autoloads from utils/browse-url.el - -(defvar browse-url-browser-function 'browse-url-w3 "\ -*Function to display the current buffer in a WWW browser. -Used by the `browse-url-at-point', `browse-url-at-mouse', and -`browse-url-of-file' commands.") - -(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-p' 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-p. - -When called non-interactively, optional second argument NEW-WINDOW is -used instead of browse-url-new-window-p." t nil) - -(autoload 'browse-url-mosaic "browse-url" "\ -Ask the XMosaic WWW browser to load URL. -Default to the URL around or before point." t nil) - -(autoload 'browse-url-grail "browse-url" "\ -Ask the Grail WWW browser to load URL. -Default to the URL around or before point. Runs the program in the -variable `browse-url-grail'." t nil) - -(autoload 'browse-url-iximosaic "browse-url" "\ -Ask the IXIMosaic WWW browser to load URL. -Default to the URL around or before point." t nil) - -(autoload 'browse-url-w3 "browse-url" "\ -Ask the w3 WWW browser to load URL. -Default to the URL around or before point." t nil) - -(autoload 'browse-url-lynx-xterm "browse-url" "\ -Ask the Lynx WWW browser to load URL. -Default to the URL around or before point. A new Lynx process is run -in an Xterm window." t nil) - -(autoload 'browse-url-lynx-emacs "browse-url" "\ -Ask the Lynx WWW browser to load URL. -Default to the URL around or before point. Run a new Lynx process in -an Emacs buffer." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "crontab" "utils/crontab.el" (12984 29557)) -;;; Generated autoloads from utils/crontab.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "delbackspace" "utils/delbackspace.el" (12992 6938)) -;;; Generated autoloads from utils/delbackspace.el - -;;;*** - -;;;### (autoloads nil "derived" "utils/derived.el" (12984 29556)) -;;; Generated autoloads from utils/derived.el - -;;;### (autoloads (docref-setup) "docref" "utils/docref.el" (12984 29557)) -;;; Generated autoloads from utils/docref.el - -(autoload 'docref-setup "docref" "\ -Process docref cross-references in the current buffer. -See also \\(f@docref-subst)." t nil) - -;;;*** - -;;;### (autoloads (easy-menu-define) "easymenu" "utils/easymenu.el" (12984 29557)) -;;; Generated autoloads from utils/easymenu.el - -(autoload 'easy-menu-define "easymenu" "\ -Define a menu bar submenu in maps MAPS, according to MENU. -The arguments SYMBOL and DOC are ignored; they are present for -compatibility only. SYMBOL is not evaluated. In other Emacs versions -these arguments may be used as a variable to hold the menu data, and a -doc string for that variable. - -The first element of MENU must be a string. It is the menu bar item name. -The rest of the elements are menu items. - -A menu item is usually 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 a list to evaluate when the item is chosen. - -ENABLE is an expression; the item is enabled for selection -whenever this expression's value is non-nil. - -Alternatively, a menu item may have the form: - - [ NAME CALLBACK [ KEYWORD ARG ] ... ] - -Where KEYWORD is one of the symbol defined below. - - :keys KEYS - -KEYS is a string; a complex keyboard equivalent to this menu item. - - :active ENABLE - -ENABLE is an expression; the item is enabled for selection -whenever this expression's value is non-nil. - - :suffix NAME - -NAME is a string; the name of an argument to CALLBACK. - - :style STYLE - -STYLE is a symbol describing the type of menu item. The following are -defined: - -toggle: A checkbox. - Currently just prepend the name with the string \"Toggle \". -radio: A radio button. -nil: An ordinary menu item. - - :selected SELECTED - -SELECTED is an expression; the checkbox or radio button is selected -whenever this expression's value is non-nil. -Currently just disable radio buttons, no effect on checkboxes. - -A menu item can be a string. Then that string appears in the menu as -unselectable text. A string consisting solely of hyphens is displayed -as a solid horizontal line. - -A menu item can be a list. It is treated as a submenu. -The first element should be the submenu name. That's used as the -menu item in the top-level menu. The cdr of the submenu list -is a list of menu items, as above." nil 'macro) - -;;;*** - -;;;### (autoloads (elp-submit-bug-report elp-results elp-instrument-package elp-instrument-list elp-restore-function elp-instrument-function) "elp" "utils/elp.el" (12984 29556)) -;;; Generated autoloads from utils/elp.el - -(autoload 'elp-instrument-function "elp" "\ -Instrument FUNSYM for profiling. -FUNSYM must be a symbol of a defined function." t nil) - -(autoload 'elp-restore-function "elp" "\ -Restore an instrumented function to its original definition. -Argument FUNSYM is the symbol of a defined function." t nil) - -(autoload 'elp-instrument-list "elp" "\ -Instrument for profiling, all functions in `elp-function-list'. -Use optional LIST if provided instead." 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" 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 are reset after results are -displayed." t nil) - -(autoload 'elp-submit-bug-report "elp" "\ -Submit via mail, a bug report on elp." t nil) - -;;;*** - -;;;### (autoloads (list-colors-display facemenu-read-color list-text-properties-at facemenu-remove-special facemenu-remove-props facemenu-set-read-only facemenu-set-intangible facemenu-set-invisible facemenu-make-much-smaller facemenu-make-much-larger facemenu-make-smaller facemenu-make-larger facemenu-set-size-default facemenu-set-face-from-menu facemenu-set-background facemenu-set-foreground facemenu-set-face) "facemenu" "utils/facemenu.el" (12984 29556)) -;;; Generated autoloads from utils/facemenu.el - -(defvar facemenu-menu nil "\ -Facemenu top-level menu keymap.") - -(defvar facemenu-keymap (let ((map (make-sparse-keymap "Set face"))) (define-key map ?o 'facemenu-set-face) map) "\ -Keymap for face-changing commands. -`Facemenu-update' fills in the keymap according to the bindings -requested in `facemenu-keybindings'.") - -(autoload 'facemenu-set-face "facemenu" "\ -Add FACE to the region or next character typed. -It will be added to the top of the face list; any faces lower on the list that -will not show through at all will be removed. - -Interactively, the face to be used is read with the minibuffer. - -If the region is active and there is no prefix argument, -this command sets the region to the requested face. - -Otherwise, this command specifies the face for the next character -inserted. Moving point or switching buffers before -typing a character to insert cancels the specification." t nil) - -(autoload 'facemenu-set-foreground "facemenu" "\ -Set the foreground color of the region or next character typed. -The color is prompted for. A face named `fg:color' is used (or created). -If the region is active, it will be set to the requested face. If -it is inactive (even if mark-even-if-inactive is set) the next -character that is typed (via `self-insert-command') will be set to -the selected face. Moving point or switching buffers before -typing a character cancels the request." t nil) - -(autoload 'facemenu-set-background "facemenu" "\ -Set the background color of the region or next character typed. -The color is prompted for. A face named `bg:color' is used (or created). -If the region is active, it will be set to the requested face. If -it is inactive (even if mark-even-if-inactive is set) the next -character that is typed (via `self-insert-command') will be set to -the selected face. Moving point or switching buffers before -typing a character cancels the request." t nil) - -(autoload 'facemenu-set-face-from-menu "facemenu" "\ -Set the face of the region or next character typed. -This function is designed to be called from a menu; the face to use -is the menu item's name. - -If the region is active and there is no prefix argument, -this command sets the region to the requested face. - -Otherwise, this command specifies the face for the next character -inserted. Moving point or switching buffers before -typing a character to insert cancels the specification." nil nil) - -(autoload 'facemenu-set-size-default "facemenu" nil t nil) - -(autoload 'facemenu-make-larger "facemenu" nil t nil) - -(autoload 'facemenu-make-smaller "facemenu" nil t nil) - -(autoload 'facemenu-make-much-larger "facemenu" nil t nil) - -(autoload 'facemenu-make-much-smaller "facemenu" nil t nil) - -(autoload 'facemenu-set-invisible "facemenu" "\ -Make the region invisible. -This sets the `invisible' text property; it can be undone with -`facemenu-remove-special'." t nil) - -(autoload 'facemenu-set-intangible "facemenu" "\ -Make the region intangible: disallow moving into it. -This sets the `intangible' text property; it can be undone with -`facemenu-remove-special'." t nil) - -(autoload 'facemenu-set-read-only "facemenu" "\ -Make the region unmodifiable. -This sets the `read-only' text property; it can be undone with -`facemenu-remove-special'." t nil) - -(autoload 'facemenu-remove-props "facemenu" "\ -Remove all text properties that facemenu added to region." t nil) - -(autoload 'facemenu-remove-special "facemenu" "\ -Remove all the \"special\" text properties from the region. -These special properties include `invisible', `intangible' and `read-only'." t nil) - -(autoload 'list-text-properties-at "facemenu" "\ -Pop up a buffer listing text-properties at LOCATION." t nil) - -(autoload 'facemenu-read-color "facemenu" "\ -Read a color using the minibuffer." nil nil) - -(autoload 'list-colors-display "facemenu" "\ -Display names of defined colors, and show what they look like. -If the optional argument LIST is non-nil, it should be a list of -colors to display. Otherwise, this command computes a list -of colors that the current display can handle." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "find-gc" "utils/find-gc.el" (12984 29557)) -;;; Generated autoloads from utils/find-gc.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "finder-inf" "utils/finder-inf.el" (12984 29556)) -;;; Generated autoloads from utils/finder-inf.el - -;;;*** - -;;;### (autoloads nil "finder" "utils/finder.el" (12984 29557)) -;;; Generated autoloads from utils/finder.el - -;;;*** - -;;;*** - -;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" "utils/flow-ctrl.el" (12984 30059)) -;;; Generated autoloads from utils/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." 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. - -This function has no effect unless the current device is a tty. - -The tty terminal type is determined from the TERM environment variable. -Trailing hyphens and everything following is stripped, so a TERM -value of \"vt100-nam\" is treated the same as \"vt100\"." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "foldout" "utils/foldout.el" (12984 29557)) -;;; Generated autoloads from utils/foldout.el - -;;;*** - -;;;### (autoloads nil "forms-d2" "utils/forms-d2.el" (12984 29556)) -;;; Generated autoloads from utils/forms-d2.el - -;;;*** - -;;;### (autoloads nil "forms-pass" "utils/forms-pass.el" (12984 29556)) -;;; Generated autoloads from utils/forms-pass.el - -;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode) "forms" "utils/forms.el" (12984 30061)) -;;; Generated autoloads from utils/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-backward r - \\C-c \\C-s forms-search-forward s - \\C-c \\C-x forms-exit x -" t nil) - -(autoload 'forms-find-file "forms" "\ -Visit a file in Forms mode." t nil) - -(autoload 'forms-find-file-other-window "forms" "\ -Visit a file in Forms mode in other window." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "hide-copyleft" "utils/hide-copyleft.el" (12984 29557)) -;;; Generated autoloads from utils/hide-copyleft.el - -;;;*** - -;;;### (autoloads (highlight-headers-follow-url highlight-headers-follow-url-mosaic highlight-headers-follow-url-netscape highlight-headers) "highlight-headers" "utils/highlight-headers.el" (12984 29556)) -;;; Generated autoloads from utils/highlight-headers.el - -(autoload 'highlight-headers "highlight-headers" "\ -Highlight message headers between start and end. -Faces used: - message-headers the part before the colon - message-header-contents the part after the colon - message-highlighted-header-contents contents of \"special\" headers - message-cited-text quoted text from other messages - -Variables used: - - highlight-headers-regexp what makes a \"special\" header - highlight-headers-citation-regexp matches lines of quoted text - highlight-headers-citation-header-regexp matches headers for quoted text - -If HACK-SIG is true,then we search backward from END for something that -looks like the beginning of a signature block, and don't consider that a -part of the message (this is because signatures are often incorrectly -interpreted as cited text.)" nil nil) - -(autoload 'highlight-headers-follow-url-netscape "highlight-headers" nil nil nil) - -(autoload 'highlight-headers-follow-url-mosaic "highlight-headers" nil nil nil) - -(autoload 'highlight-headers-follow-url "highlight-headers" nil t nil) - -;;;*** - -;;;### (autoloads (id-select-double-click-hook id-select-and-kill-thing id-select-and-copy-thing id-select-goto-matching-tag id-select-thing-with-mouse id-select-thing) "id-select" "utils/id-select.el" (12984 30065)) -;;; Generated autoloads from utils/id-select.el - -(autoload 'id-select-thing "id-select" "\ -Mark the region selected by the syntax of the thing at point. -If invoked repeatedly, selects bigger and bigger things. -If `id-select-display-type' is non-nil, the type of selection is displayed in -the minibuffer." t nil) - -(autoload 'id-select-thing-with-mouse "id-select" "\ -Select a region based on the syntax of the character from a mouse click. -If the click occurs at the same point as the last click, select -the next larger syntactic structure. If `id-select-display-type' is non-nil, -the type of selection is displayed in the minibuffer." t nil) - -(autoload 'id-select-goto-matching-tag "id-select" "\ -If in a major mode listed in `id-select-markup-modes,' moves point to the start of the tag paired with the closest tag that point is within or precedes. -Returns t if point is moved, else nil. -Signals an error if no tag is found following point or if the closing tag -does not have a `>' terminator character." t nil) - -(autoload 'id-select-and-copy-thing "id-select" "\ -Copy the region surrounding the syntactical unit at point." t nil) - -(autoload 'id-select-and-kill-thing "id-select" "\ -Kill the region surrounding the syntactical unit at point." t nil) - -(autoload 'id-select-double-click-hook "id-select" "\ -Select a region based on the syntax of the character wherever the mouse is double-clicked. -If the double-click occurs at the same point as the last double-click, select -the next larger syntactic structure. If `id-select-display-type' is non-nil, -the type of selection is displayed in the minibuffer." nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "lib-complete" "utils/lib-complete.el" (12984 29557)) -;;; Generated autoloads from utils/lib-complete.el - -;;;*** - -;;;### (autoloads nil "live-icon" "utils/live-icon.el" (12984 29557)) -;;; Generated autoloads from utils/live-icon.el - -;;;### (autoloads (unload-feature) "loadhist" "utils/loadhist.el" (12984 29557)) -;;; Generated autoloads from utils/loadhist.el - -(autoload 'unload-feature "loadhist" "\ -Unload the library that provided FEATURE, restoring all its autoloads. -If the feature is required by any other loaded code, and optional FORCE -is nil, raise an error." t nil) - -;;;*** - -;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr" "utils/mail-extr.el" (12988 19760)) -;;; Generated autoloads from utils/mail-extr.el - -(autoload 'mail-extract-address-components "mail-extr" "\ -Given an RFC-822 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. -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.) -If ADDRESS contains more than one RFC-822 address, only the first is - returned. Some day this function may be extended to extract multiple - addresses, or perhaps return the position at which parsing stopped." nil nil) - -(autoload 'what-domain "mail-extr" "\ -Prompts for a mail domain, and prints the country it corresponds to -in the minibuffer." t nil) - -;;;*** - -;;;### (autoloads (mail-fetch-field mail-file-babyl-p) "mail-utils" "utils/mail-utils.el" (12984 29556)) -;;; Generated autoloads from utils/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.") - -(autoload 'mail-file-babyl-p "mail-utils" nil nil nil) - -(autoload 'mail-fetch-field "mail-utils" "\ -Return the value of the header field FIELD-NAME. -The buffer is expected to be narrowed to just the headers of the message. -If second arg LAST is non-nil, use the last such field if there are several. -If third arg ALL is non-nil, concatenate all such fields with commas between." nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "mailpost" "utils/mailpost.el" (12984 29556)) -;;; Generated autoloads from utils/mailpost.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "map-ynp" "utils/map-ynp.el" (12984 29556)) -;;; Generated autoloads from utils/map-ynp.el - -;;;*** - -;;;### (autoloads nil "meese" "utils/meese.el" (12984 29556)) -;;; Generated autoloads from utils/meese.el - -;;;### (autoloads (read-passwd) "passwd" "utils/passwd.el" (12984 29556)) -;;; Generated autoloads from utils/passwd.el - -(autoload 'read-passwd "passwd" "\ -Prompts for a password in the minibuffer, and returns it as a string. -If PROMPT may be a prompt string or an alist of elements -'(prompt . default). -If optional arg CONFIRM is true, then ask the user to type the password -again to confirm that they typed it correctly. -If optional arg DEFAULT is provided, then it is a string to insert as -the default choice (it is not, of course, displayed.) - -If running under X, the keyboard will be grabbed (with XGrabKeyboard()) -to reduce the possibility that evesdropping is occuring. - -When reading a password, all keys self-insert, except for: -\\<read-passwd-map> - \\[read-passwd-erase-line] Erase the entire line. - \\[quoted-insert] Insert the next character literally. - \\[delete-backward-char] Delete the previous character. - \\[exit-minibuffer] Accept what you have typed. - \\[keyboard-quit] Abort the command. - -The returned value is always a newly-created string. No additional copies -of the password remain after this function has returned. - -NOTE: unless great care is taken, the typed password will exist in plaintext -form in the running image for an arbitrarily long time. Priveleged users may -be able to extract it from memory. If emacs crashes, it may appear in the -resultant core file. - -Some steps you can take to prevent the password from being copied around: - - - as soon as you are done with the returned string, destroy it with - (fillarray string 0). The same goes for any default passwords - or password histories. - - - do not copy the string, as with concat or substring - if you do, be - sure to keep track of and destroy all copies. - - - do not insert the password into a buffer - if you do, be sure to - overwrite the buffer text before killing it, as with the functions - `passwd-erase-buffer' or `passwd-kill-buffer'. Note that deleting - the text from the buffer does NOT necessarily remove the text from - memory. - - - be careful of the undo history - if you insert the password into a - buffer which has undo recording turned on, the password will be - copied onto the undo list, and thus recoverable. - - - do not pass it as an argument to a shell command - anyone will be - able to see it if they run `ps' at the right time. - -Note that the password will be temporarily recoverable with the `view-lossage' -command. This data will not be overwritten until another hundred or so -characters are typed. There's not currently a way around this." nil nil) - -;;;*** - -;;;### (autoloads (pp-eval-last-sexp pp-eval-expression pp) "pp" "utils/pp.el" (12984 29556)) -;;; Generated autoloads from utils/pp.el - -(defalias 'pprint 'pp) - -(autoload 'pp "pp" "\ -Output the pretty-printed representation of OBJECT, any Lisp object. -Quoting characters are printed when needed to make output that `read' -can handle, whenever this is possible. -Output stream is STREAM, or value of `standard-output' (which see)." nil nil) - -(autoload 'pp-eval-expression "pp" "\ -Evaluate EXPRESSION and pretty-print value into a new display buffer. -If the pretty-printed value fits on one line, the message line is used -instead. Value is also consed on to front of variable values 's -value." t nil) - -(autoload 'pp-eval-last-sexp "pp" "\ -Run `pp-eval-expression' on sexp before point (which see). -With argument, pretty-print output into current buffer. -Ignores leading comment characters." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads (prettyexpand-all-sexp prettyexpand-sexp macroexpand-all-sexp macroexpand-sexp pp-plist pp-variable pp-function) "pretty-print" "utils/pretty-print.el" (12984 30065)) -;;; Generated autoloads from utils/pretty-print.el - -(autoload 'pp-function "pretty-print" "\ -Pretty print the function definition of SYMBOL in a seperate buffer" t nil) - -(autoload 'pp-variable "pretty-print" "\ -Pretty print the variable value of SYMBOL in a seperate buffer" t nil) - -(autoload 'pp-plist "pretty-print" "\ -Pretty print the property list of SYMBOL in a seperate buffer" t nil) - -(autoload 'macroexpand-sexp "pretty-print" "\ -Macro expand the sexpression following point. Pretty print expansion in a -temporary buffer. With prefix argument, replace the original -sexpression by its expansion in the current buffer." t nil) - -(autoload 'macroexpand-all-sexp "pretty-print" "\ -Macro expand recursively the sexpression following point. Pretty print -expansion in a temporary buffer. With prefix argument, replace the -original sexpression by its expansion in the current buffer." t nil) - -(autoload 'prettyexpand-sexp "pretty-print" "\ -Macro expand the sexpression following point. Pretty print expansion -in a temporary buffer. With prefix argument, replace the original -sexpression by its expansion in the current buffer. - However, calls to macros specified in the variable -`pp-shadow-expansion-list' are not expanded, in order to make the code -look nicer." t nil) - -(autoload 'prettyexpand-all-sexp "pretty-print" "\ -Macro expand recursively the sexpression following point. Pretty print -expansion in a temporary buffer. With prefix argument, replace the -original sexpression by its expansion in the current buffer. - However, calls to macros specified in the variable -`pp-shadow-expansion-list' are not expanded, in order to make the code -look nicer." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "regi" "utils/regi.el" (12984 29556)) -;;; Generated autoloads from utils/regi.el - -;;;*** - -;;;### (autoloads (reporter-submit-bug-report) "reporter" "utils/reporter.el" (12984 29556)) -;;; Generated autoloads from utils/reporter.el - -(autoload 'reporter-submit-bug-report "reporter" nil nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "rfc822" "utils/rfc822.el" (12984 29556)) -;;; Generated autoloads from utils/rfc822.el - -;;;*** - -;;;*** - -;;;### (autoloads (make-ring ringp) "ring" "utils/ring.el" (12984 29556)) -;;; Generated autoloads from utils/ring.el - -(autoload 'ringp "ring" "\ -Returns t if X is a ring; nil otherwise." nil nil) - -(define-obsolete-function-alias 'ring-p 'ringp) - -(autoload 'make-ring "ring" "\ -Make a ring that can contain SIZE elements." nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "shadowfile" "utils/shadowfile.el" (12984 29557)) -;;; Generated autoloads from utils/shadowfile.el - -;;;*** - -;;;*** - -;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy skeleton-proxy-new define-skeleton) "skeleton" "utils/skeleton.el" (12984 29557)) -;;; Generated autoloads from utils/skeleton.el - -(defvar skeleton-filter '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, while the variable of the same name, -which contains the skeleton, has a documentation to that effect. -INTERACTOR and ELEMENT ... are as defined under `skeleton-insert'." nil 'macro) - -(autoload 'skeleton-proxy-new "skeleton" "\ -Insert skeleton defined by variable of same name (see `skeleton-insert'). -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). - -When called as a function, optional first argument STR may also be a string -which will be the value of `str' whereas the skeleton's interactor is then -ignored." t nil) - -(autoload 'skeleton-proxy "skeleton" "\ -Insert skeleton defined by variable of same name (see `skeleton-insert'). -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). - -When called as a function, optional first argument STR may also be a string -which will be the value of `str' whereas the skeleton's interactor is then -ignored." t nil) - -(autoload 'skeleton-insert "skeleton" "\ -Insert the complex statement skeleton SKELETON describes very concisely. - -With optional third 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. - -Optional fourth STR 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'). Other possibilities are: - - \\n go to next line and indent according to mode - _ interesting point, interregion here, point after termination - > indent line (or interregion if > _) according to major mode - & 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 - -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 a list of -strings with the subskeleton being repeated once for each string. - -Quoted Lisp expressions are evaluated evaluated for their side-effect. -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'." 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' returns nil, pairing is performed. - -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." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "smtpmail" "utils/smtpmail.el" (12984 30065)) -;;; Generated autoloads from utils/smtpmail.el - -;;;*** - -;;;### (autoloads nil "soundex" "utils/soundex.el" (12984 29557)) -;;; Generated autoloads from utils/soundex.el - -;;;*** - -;;;### (autoloads nil "symbol-syntax" "utils/symbol-syntax.el" (12984 29556)) -;;; Generated autoloads from utils/symbol-syntax.el - -;;;*** - -;;;### (autoloads nil "sysdep" "utils/sysdep.el" (12984 29557)) -;;; Generated autoloads from utils/sysdep.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "text-props" "utils/text-props.el" (12984 29556)) -;;; Generated autoloads from utils/text-props.el - -;;;*** - -;;;### (autoloads nil "thing" "utils/thing.el" (12984 29557)) -;;; Generated autoloads from utils/thing.el - -;;;*** - -;;;### (autoloads nil "timezone" "utils/timezone.el" (12984 29557)) -;;; Generated autoloads from utils/timezone.el - -;;;### (autoloads (tq-create) "tq" "utils/tq.el" (12984 29557)) -;;; Generated autoloads from utils/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." nil nil) - -;;;*** - -;;;### (autoloads (trace-function-background trace-function) "trace" "utils/trace.el" (12984 29556)) -;;; Generated autoloads from utils/trace.el - -(defvar trace-buffer "*trace-output*" "\ -*Trace output will by default go to that buffer.") - -(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." t nil) - -(autoload 'trace-function-background "trace" "\ -Traces FUNCTION with trace output going quietly 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!! Trace output will quietly go to BUFFER without changing -the window or buffer configuration at all." t nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "tree-menu" "utils/tree-menu.el" (12984 29557)) -;;; Generated autoloads from utils/tree-menu.el - -;;;*** - -;;;### (autoloads nil "uniquify" "utils/uniquify.el" (12984 29557)) -;;; Generated autoloads from utils/uniquify.el - -;;;### (autoloads (y-or-n-p-with-timeout yes-or-no-p-with-timeout with-timeout with-timeout-internal) "with-timeout" "utils/with-timeout.el" (12984 29556)) -;;; Generated autoloads from utils/with-timeout.el - -(autoload 'with-timeout-internal "with-timeout" nil nil nil) - -(autoload 'with-timeout "with-timeout" "\ -Usage: (with-timeout (seconds &rest timeout-forms) &rest body) -This is just like progn, but if the given number of seconds expires before -the body returns, then timeout-forms are evaluated and returned instead. -The body won't be interrupted in the middle of a computation: the check for -the timer expiration only occurs when body does a redisplay, or prompts the -user for input, or calls accept-process-output." nil 'macro) - -(autoload 'yes-or-no-p-with-timeout "with-timeout" "\ -Just like yes-or-no-p, but will time out after TIMEOUT seconds -if the user has not yes answered, returning DEFAULT-VALUE." nil nil) - -(autoload 'y-or-n-p-with-timeout "with-timeout" "\ -Just like y-or-n-p, but will time out after TIMEOUT seconds -if the user has not yes answered, returning DEFAULT-VALUE." nil nil) - -;;;*** - -;;;### (autoloads (xbm-button-create) "xbm-button" "utils/xbm-button.el" (12984 29557)) -;;; Generated autoloads from utils/xbm-button.el - -(autoload 'xbm-button-create "xbm-button" "\ -Returns a list of XBM image instantiators for a button displaying TEXT. -The list is of the form - (UP DOWN DISABLED) -where UP, DOWN, and DISABLED are the up, down and disabled image -instantiators for the button. - -BORDER-THICKNESS specifies how many pixels should be used for the -borders on the edges of the buttons. It should be a positive integer, -or 0 to mean no border." nil nil) - -;;;*** - -;;;### (autoloads (xpm-button-create) "xpm-button" "utils/xpm-button.el" (12984 29556)) -;;; Generated autoloads from utils/xpm-button.el - -(autoload 'xpm-button-create "xpm-button" "\ -Returns a list of XPM image instantiators for a button displaying TEXT. -The list is of the form - (UP DOWN DISABLED) -where UP, DOWN, and DISABLED are the up, down and disabled image -instantiators for the button. - -SHADOW-THICKNESS specifies how many pixels should be used for the -shadows on the edges of the buttons. It should be a positive integer, -or 0 to mean no shadows on the edges. -FG-COLOR is the color used to display the text. It should be a string. -BG-COLOR is the background color the text will be displayed upon. -It should be a string." nil nil) - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "viper-ex" "viper/viper-ex.el" (12984 29577)) -;;; Generated autoloads from viper/viper-ex.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "viper-keym" "viper/viper-keym.el" (12984 29578)) -;;; Generated autoloads from viper/viper-keym.el - -;;;*** - -;;;### (autoloads nil "viper-macs" "viper/viper-macs.el" (12984 29578)) -;;; Generated autoloads from viper/viper-macs.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "viper-mous" "viper/viper-mous.el" (12984 29578)) -;;; Generated autoloads from viper/viper-mous.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "viper-util" "viper/viper-util.el" (12984 29578)) -;;; Generated autoloads from viper/viper-util.el - -;;;### (autoloads (viper-mode) "viper" "viper/viper.el" (12984 29578)) -;;; Generated autoloads from viper/viper.el - -(autoload 'viper-mode "viper" "\ -Turn on Viper emulation of Vi." t nil) - -(defalias 'vip-mode 'viper-mode) - -;;;*** - -;;;### (autoloads nil "tapestry" "vm/tapestry.el" (12677 32694)) -;;; Generated autoloads from vm/tapestry.el - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "vm-autoload" "vm/vm-autoload.el" (12997 30933)) -;;; Generated autoloads from vm/vm-autoload.el - -;;;### (autoloads nil "vm-byteopts" "vm/vm-byteopts.el" (12677 32690)) -;;; Generated autoloads from vm/vm-byteopts.el - -;;;*** - -;;;### (autoloads nil "vm-delete" "vm/vm-delete.el" (12807 56781)) -;;; Generated autoloads from vm/vm-delete.el - -;;;*** - -;;;### (autoloads nil "vm-digest" "vm/vm-digest.el" (12885 62665)) -;;; Generated autoloads from vm/vm-digest.el - -;;;### (autoloads (vm-easy-menu-create-keymaps vm-easy-menu-define) "vm-easymenu" "vm/vm-easymenu.el" (12677 32693)) -;;; Generated autoloads from vm/vm-easymenu.el - -(autoload 'vm-easy-menu-define "vm-easymenu" "\ -Define a menu bar submenu in maps MAPS, according to MENU. -The menu keymap is stored in symbol SYMBOL, both as its value -and as its function definition. DOC is used as the doc string for SYMBOL. - -The first element of MENU must be a string. It is the menu bar item name. -The rest of the elements are menu items. - -A menu item is usually 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 a list to evaluate when the item is chosen. - -ENABLE is an expression; the item is enabled for selection -whenever this expression's value is non-nil. - -Alternatively, a menu item may have the form: - - [ NAME CALLBACK [ KEYWORD ARG ] ... ] - -Where KEYWORD is one of the symbol defined below. - - :keys KEYS - -KEYS is a string; a complex keyboard equivalent to this menu item. -This is normally not needed because keyboard equivalents are usually -computed automatically. - - :active ENABLE - -ENABLE is an expression; the item is enabled for selection -whenever this expression's value is non-nil. - - :suffix NAME - -NAME is a string; the name of an argument to CALLBACK. - - :style - -STYLE is a symbol describing the type of menu item. The following are -defined: - -toggle: A checkbox. - Currently just prepend the name with the string \"Toggle \". -radio: A radio button. -nil: An ordinary menu item. - - :selected SELECTED - -SELECTED is an expression; the checkbox or radio button is selected -whenever this expression's value is non-nil. -Currently just disable radio buttons, no effect on checkboxes. - -A menu item can be a string. Then that string appears in the menu as -unselectable text. A string consisting solely of hyphens is displayed -as a solid horizontal line. - -A menu item can be a list. It is treated as a submenu. -The first element should be the submenu name. That's used as the -menu item in the top-level menu. The cdr of the submenu list -is a list of menu items, as above." nil 'macro) - -(autoload 'vm-easy-menu-create-keymaps "vm-easymenu" nil nil nil) - -;;;*** - -;;;### (autoloads nil "vm-edit" "vm/vm-edit.el" (12677 32667)) -;;; Generated autoloads from vm/vm-edit.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "vm-folder" "vm/vm-folder.el" (12989 40981)) -;;; Generated autoloads from vm/vm-folder.el - -;;;*** - -;;;### (autoloads nil "vm-license" "vm/vm-license.el" (12243 50296)) -;;; Generated autoloads from vm/vm-license.el - -;;;### (autoloads nil "vm-mark" "vm/vm-mark.el" (12677 32673)) -;;; Generated autoloads from vm/vm-mark.el - -;;;*** - -;;;### (autoloads nil "vm-menu" "vm/vm-menu.el" (12677 32677)) -;;; Generated autoloads from vm/vm-menu.el - -;;;*** - -;;;### (autoloads nil "vm-message" "vm/vm-message.el" (12677 32674)) -;;; Generated autoloads from vm/vm-message.el - -;;;*** - -;;;### (autoloads nil "vm-minibuf" "vm/vm-minibuf.el" (12677 32691)) -;;; Generated autoloads from vm/vm-minibuf.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "vm-misc" "vm/vm-misc.el" (12989 40635)) -;;; Generated autoloads from vm/vm-misc.el - -;;;### (autoloads nil "vm-motion" "vm/vm-motion.el" (12748 62837)) -;;; Generated autoloads from vm/vm-motion.el - -;;;*** - -;;;### (autoloads nil "vm-mouse" "vm/vm-mouse.el" (12677 32692)) -;;; Generated autoloads from vm/vm-mouse.el - -;;;*** - -;;;### (autoloads nil "vm-page" "vm/vm-page.el" (12677 32678)) -;;; Generated autoloads from vm/vm-page.el - -;;;*** - -;;;### (autoloads nil "vm-pop" "vm/vm-pop.el" (12748 62835)) -;;; Generated autoloads from vm/vm-pop.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "vm-reply" "vm/vm-reply.el" (12885 62666)) -;;; Generated autoloads from vm/vm-reply.el - -;;;*** - -;;;### (autoloads nil "vm-save" "vm/vm-save.el" (12677 32678)) -;;; Generated autoloads from vm/vm-save.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "vm-search" "vm/vm-search.el" (12995 4633)) -;;; Generated autoloads from vm/vm-search.el - -;;;*** - -;;;### (autoloads nil "vm-search18" "vm/vm-search18.el" (12243 50158)) -;;; Generated autoloads from vm/vm-search18.el - -;;;### (autoloads nil "vm-search19" "vm/vm-search19.el" (12677 32690)) -;;; Generated autoloads from vm/vm-search19.el - -;;;*** - -;;;### (autoloads nil "vm-sort" "vm/vm-sort.el" (12677 32686)) -;;; Generated autoloads from vm/vm-sort.el - -;;;*** - -;;;### (autoloads nil "vm-startup" "vm/vm-startup.el" (12748 62843)) -;;; Generated autoloads from vm/vm-startup.el - -;;;*** - -;;;### (autoloads nil "vm-summary" "vm/vm-summary.el" (12748 62838)) -;;; Generated autoloads from vm/vm-summary.el - -;;;*** - -;;;### (autoloads nil "vm-thread" "vm/vm-thread.el" (12677 32692)) -;;; Generated autoloads from vm/vm-thread.el - -;;;*** - -;;;### (autoloads nil "vm-toolbar" "vm/vm-toolbar.el" (12777 31551)) -;;; Generated autoloads from vm/vm-toolbar.el - -;;;### (autoloads nil "vm-undo" "vm/vm-undo.el" (12677 32680)) -;;; Generated autoloads from vm/vm-undo.el - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "vm-vars" "vm/vm-vars.el" (12997 29676)) -;;; Generated autoloads from vm/vm-vars.el - -;;;### (autoloads nil "vm-version" "vm/vm-version.el" (12972 42446)) -;;; Generated autoloads from vm/vm-version.el - -;;;### (autoloads nil "vm-virtual" "vm/vm-virtual.el" (12677 32684)) -;;; Generated autoloads from vm/vm-virtual.el - -;;;### (autoloads nil "vm-window" "vm/vm-window.el" (12748 62841)) -;;; Generated autoloads from vm/vm-window.el - -;;;*** - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "font" "w3/font.el" (12984 29564)) -;;; Generated autoloads from w3/font.el - -;;;*** - -;;;### (autoloads nil "images" "w3/images.el" (12984 29564)) -;;; Generated autoloads from w3/images.el - -;;;*** - -;;;### (autoloads nil "w3-about" "w3/w3-about.el" (12984 29564)) -;;; Generated autoloads from w3/w3-about.el - -;;;*** - -;;;### (autoloads nil "w3-annotat" "w3/w3-annotat.el" (12984 29565)) -;;; Generated autoloads from w3/w3-annotat.el - -;;;*** - -;;;### (autoloads nil "w3-auto" "w3/w3-auto.el" (12984 29565)) -;;; Generated autoloads from w3/w3-auto.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "w3-draw" "w3/w3-draw.el" (12984 29564)) -;;; Generated autoloads from w3/w3-draw.el - -;;;*** - -;;;### (autoloads nil "w3-e19" "w3/w3-e19.el" (12984 29564)) -;;; Generated autoloads from w3/w3-e19.el - -;;;*** - -;;;### (autoloads nil "w3-emulate" "w3/w3-emulate.el" (12984 29565)) -;;; Generated autoloads from w3/w3-emulate.el - -;;;*** - -;;;### (autoloads nil "w3-forms" "w3/w3-forms.el" (12984 29565)) -;;; Generated autoloads from w3/w3-forms.el - -;;;*** - -;;;*** - -;;;### (autoloads (w3-use-hotlist) "w3-hot" "w3/w3-hot.el" (12984 29565)) -;;; Generated autoloads from w3/w3-hot.el - -(autoload 'w3-use-hotlist "w3-hot" "\ -Possibly go to a link in your W3/Mosaic hotlist. -This is part of the emacs World Wide Web browser. It will prompt for -one of the items in your 'hotlist'. A hotlist is a list of often -visited or interesting items you have found on the World Wide Web." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "w3-imap" "w3/w3-imap.el" (12984 29565)) -;;; Generated autoloads from w3/w3-imap.el - -;;;*** - -;;;### (autoloads nil "w3-keyword" "w3/w3-keyword.el" (12984 29565)) -;;; Generated autoloads from w3/w3-keyword.el - -;;;*** - -;;;### (autoloads nil "w3-latex" "w3/w3-latex.el" (12984 29565)) -;;; Generated autoloads from w3/w3-latex.el - -;;;*** - -;;;### (autoloads nil "w3-menu" "w3/w3-menu.el" (12984 29565)) -;;; Generated autoloads from w3/w3-menu.el - -;;;*** - -;;;### (autoloads nil "w3-mouse" "w3/w3-mouse.el" (12984 29565)) -;;; Generated autoloads from w3/w3-mouse.el - -;;;*** - -;;;### (autoloads nil "w3-mule" "w3/w3-mule.el" (12984 29564)) -;;; Generated autoloads from w3/w3-mule.el - -;;;*** - -;;;### (autoloads nil "w3-parse" "w3/w3-parse.el" (12984 29564)) -;;; Generated autoloads from w3/w3-parse.el - -;;;*** - -;;;### (autoloads nil "w3-prefs" "w3/w3-prefs.el" (12984 29565)) -;;; Generated autoloads from w3/w3-prefs.el - -;;;*** - -;;;### (autoloads nil "w3-print" "w3/w3-print.el" (12984 29565)) -;;; Generated autoloads from w3/w3-print.el - -;;;*** - -;;;### (autoloads nil "w3-speak" "w3/w3-speak.el" (12984 29565)) -;;; Generated autoloads from w3/w3-speak.el - -;;;*** - -;;;### (autoloads nil "w3-style" "w3/w3-style.el" (12984 29565)) -;;; Generated autoloads from w3/w3-style.el - -;;;*** - -;;;### (autoloads nil "w3-sysdp" "w3/w3-sysdp.el" (12984 29564)) -;;; Generated autoloads from w3/w3-sysdp.el - -;;;*** - -;;;### (autoloads nil "w3-toolbar" "w3/w3-toolbar.el" (12984 29564)) -;;; Generated autoloads from w3/w3-toolbar.el - -;;;*** - -;;;### (autoloads nil "w3-vars" "w3/w3-vars.el" (12984 29564)) -;;; Generated autoloads from w3/w3-vars.el - -;;;*** - -;;;### (autoloads nil "w3-widget" "w3/w3-widget.el" (12984 29565)) -;;; Generated autoloads from w3/w3-widget.el - -;;;*** - -;;;### (autoloads nil "w3-xem20" "w3/w3-xem20.el" (12984 29565)) -;;; Generated autoloads from w3/w3-xem20.el - -;;;*** - -;;;### (autoloads nil "w3-xemac" "w3/w3-xemac.el" (12984 29564)) -;;; Generated autoloads from w3/w3-xemac.el - -;;;*** - -;;;*** - -;;;### (autoloads (w3-follow-link w3-follow-link-other-frame w3-do-setup w3 w3-preview-this-buffer w3-batch-fetch w3-follow-url-at-point w3-follow-url-at-point-other-frame w3-maybe-follow-link w3-maybe-follow-link-mouse w3-fetch w3-fetch-other-frame w3-find-file w3-open-local) "w3" "w3/w3.el" (12984 29564)) -;;; Generated autoloads from w3/w3.el - -(autoload 'w3-open-local "w3" "\ -Find a local file, and interpret it as a hypertext document. -It will prompt for an existing file or directory, and retrieve it as a -hypertext document. If it is a directory, and url-use-hypertext-dired -is non-nil, then an HTML directory listing is created on the fly. -Otherwise, dired-mode is used to visit the buffer." t nil) - -(autoload 'w3-find-file "w3" "\ -Find a local file, and interpret it as a hypertext document. -It will prompt for an existing file or directory, and retrieve it as a -hypertext document. If it is a directory, and url-use-hypertext-dired -is non-nil, then an HTML directory listing is created on the fly. -Otherwise, dired-mode is used to visit the buffer." t nil) - -(autoload 'w3-fetch-other-frame "w3" "\ -Attempt to follow the hypertext reference under point in a new frame. -With prefix-arg P, ignore viewers and dump the link straight -to disk." t nil) - -(autoload 'w3-fetch "w3" "\ -Retrieve a document over the World Wide Web. -The World Wide Web is a global hypertext system started by CERN in -Switzerland in 1991. - -The document should be specified by its fully specified -Uniform Resource Locator. The document will be parsed, printed, or -passed to an external viewer as appropriate. Variable -`mm-mime-info' specifies viewers for particular file types." t nil) - -(autoload 'w3-maybe-follow-link-mouse "w3" "\ -Maybe follow a hypertext link under point. -If there is no link under point, this will try using -url-get-url-at-point" t nil) - -(autoload 'w3-maybe-follow-link "w3" "\ -Maybe follow a hypertext link under point. -If there is no link under point, this will try using -url-get-url-at-point" t nil) - -(autoload 'w3-follow-url-at-point-other-frame "w3" "\ -Follow the URL under PT, defaults to link under (point)" t nil) - -(autoload 'w3-follow-url-at-point "w3" "\ -Follow the URL under PT, defaults to link under (point)" t nil) - -(autoload 'w3-batch-fetch "w3" "\ -Fetch all the URLs on the command line and save them to files in -the current directory. The first argument after the -f w3-batch-fetch -on the command line should be a string specifying how to save the -information retrieved. If it is \"html\", then the page will be -unformatted when it is written to disk. If it is \"text\", then the -page will be formatted before it is written to disk. If it is -\"binary\" it will not mess with the file extensions, and just save -the data in raw binary format. If none of those, the default is -\"text\", and the first argument is treated as a normal URL." nil nil) - -(autoload 'w3-preview-this-buffer "w3" "\ -See what this buffer will look like when its formatted as HTML. -HTML is the HyperText Markup Language used by the World Wide Web to -specify formatting for text. More information on HTML can be found at -ftp.w3.org:/pub/www/doc." t nil) - -(autoload 'w3 "w3" "\ -Retrieve the default World Wide Web home page. -The World Wide Web is a global hypertext system started by CERN in -Switzerland in 1991. - -The home page is specified by the variable w3-default-homepage. The -document should be specified by its fully specified Uniform Resource -Locator. The document will be parsed as HTML (if appropriate) and -displayed in a new buffer." t nil) - -(autoload 'w3-do-setup "w3" "\ -Do setup - this is to avoid conflict with user settings when W3 is -dumped with emacs." nil nil) - -(autoload 'w3-follow-link-other-frame "w3" "\ -Attempt to follow the hypertext reference under point in a new frame. -With prefix-arg P, ignore viewers and dump the link straight -to disk." nil nil) - -(autoload 'w3-follow-link "w3" "\ -Attempt to follow the hypertext reference under point. -With prefix-arg P, ignore viewers and dump the link straight -to disk." t nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "widget-edit" "w3/widget-edit.el" (12984 29565)) -;;; Generated autoloads from w3/widget-edit.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "widget" "w3/widget.el" (12984 29565)) -;;; Generated autoloads from w3/widget.el - -;;;*** - -;;;### (autoloads nil "x-compose" "x11/x-compose.el" (12984 29561)) -;;; Generated autoloads from x11/x-compose.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "x-faces" "x11/x-faces.el" (12984 29561)) -;;; Generated autoloads from x11/x-faces.el - -;;;*** - -;;;### (autoloads (font-menu-weight-constructor font-menu-size-constructor font-menu-family-constructor reset-device-font-menus) "x-font-menu" "x11/x-font-menu.el" (12996 41539)) -;;; Generated autoloads from x11/x-font-menu.el - -(defvar font-menu-ignore-scaled-fonts t "\ -*If non-nil, then the font menu will try to show only bitmap fonts.") - -(defvar font-menu-this-frame-only-p nil "\ -*If non-nil, then changing the default font from the font menu will only -affect one frame instead of all frames.") - -(fset 'install-font-menus 'reset-device-font-menus) - -(autoload 'reset-device-font-menus "x-font-menu" "\ -Generates the `Font', `Size', and `Weight' submenus for the Options menu. -This is run the first time that a font-menu is needed for each device. -If you don't like the lazy invocation of this function, you can add it to -`create-device-hook' and that will make the font menus respond more quickly -when they are selected for the first time. If you add fonts to your system, -or if you change your font path, you can call this to re-initialize the menus." nil nil) - -(autoload 'font-menu-family-constructor "x-font-menu" nil nil nil) - -(autoload 'font-menu-size-constructor "x-font-menu" nil nil nil) - -(autoload 'font-menu-weight-constructor "x-font-menu" nil nil nil) - -;;;*** - -;;;*** - -;;;### (autoloads nil "x-init" "x11/x-init.el" (12988 19777)) -;;; Generated autoloads from x11/x-init.el - -;;;*** - -;;;*** - -;;;*** - -;;;### (autoloads nil "x-iso8859-1" "x11/x-iso8859-1.el" (12988 19775)) -;;; Generated autoloads from x11/x-iso8859-1.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "x-menubar" "x11/x-menubar.el" (12997 29158)) -;;; Generated autoloads from x11/x-menubar.el - -;;;### (autoloads nil "x-misc" "x11/x-misc.el" (12984 29562)) -;;; Generated autoloads from x11/x-misc.el - -;;;*** - -;;;### (autoloads nil "x-mouse" "x11/x-mouse.el" (12984 29561)) -;;; Generated autoloads from x11/x-mouse.el - -;;;*** - -;;;### (autoloads nil "x-scrollbar" "x11/x-scrollbar.el" (12984 29562)) -;;; Generated autoloads from x11/x-scrollbar.el - -;;;*** - -;;;### (autoloads nil "x-select" "x11/x-select.el" (12984 29561)) -;;; Generated autoloads from x11/x-select.el - -;;;*** - -;;;*** - -;;;### (autoloads nil "x-toolbar" "x11/x-toolbar.el" (12906 6177)) -;;; Generated autoloads from x11/x-toolbar.el - -;;;### (autoloads nil "x-win-sun" "x11/x-win-sun.el" (12823 45303)) -;;; Generated autoloads from x11/x-win-sun.el - -;;;### (autoloads nil "x-win-xfree86" "x11/x-win-xfree86.el" (12677 32709)) -;;; Generated autoloads from x11/x-win-xfree86.el - -;;; Generated autoloads from x11/x-win-sun.el - -;;; Don't make backup versions of this file - most of it is generated -;;; automatically by autoload.el, and what isn't changes rarely. ;;; Local Variables: -;;; version-control: never ;;; no-byte-compile: t ;;; no-update-autoloads: t ;;; End:
--- a/lisp/prim/replace.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/prim/replace.el Mon Aug 13 09:05:42 2007 +0200 @@ -258,7 +258,7 @@ () (setq occur-mode-map (make-sparse-keymap)) (set-keymap-name occur-mode-map 'occur-mode-map) ; XEmacs - (define-key occur-mode-map [mouse-2] 'occur-mode-mouse-goto) + (define-key occur-mode-map 'button2 'occur-mode-mouse-goto) ; XEmacs (define-key occur-mode-map "\C-c\C-c" 'occur-mode-goto-occurrence) (define-key occur-mode-map "\C-m" 'occur-mode-goto-occurrence)) @@ -304,7 +304,7 @@ ;; preserve the window/frame setup (unwind-protect (progn - (mouse-set-point e) + (mouse-set-point event) (occur-mode-goto-occurrence)) (select-frame frame-save) (select-window window-save))))
--- a/lisp/prim/simple.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/prim/simple.el Mon Aug 13 09:05:42 2007 +0200 @@ -2665,7 +2665,9 @@ (goto-char blinkpos) (if (pos-visible-in-window-p) (and blink-matching-paren-on-screen - (sit-for blink-matching-delay)) + (progn + (auto-show-make-point-visible) + (sit-for blink-matching-delay))) (goto-char blinkpos) (message "Matches %s"
--- a/lisp/prim/subr.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/prim/subr.el Mon Aug 13 09:05:42 2007 +0200 @@ -92,7 +92,7 @@ ;; XEmacs: (define-function 'not 'null) -(define-function-when-void 'numberp 'intergerp) ; different when floats +(define-function-when-void 'numberp 'integerp) ; different when floats (defun local-variable-if-set-p (sym buffer) "Return t if SYM would be local to BUFFER after it is set.
--- a/lisp/prim/update-elc.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/prim/update-elc.el Mon Aug 13 09:05:42 2007 +0200 @@ -48,10 +48,11 @@ (progn (setq command-line-args (cons (car command-line-args) - (append '("-l" "loadup-el.el" "run-temacs" - "-batch" "-q" "-no-site-file" "-f" - "batch-byte-compile") - update-elc-files-to-compile))) + (append + '("-l" "loadup-el.el" "run-temacs" + "-batch" "-q" "-no-site-file" + "-l" "bytecomp" "-f" "batch-byte-compile") + update-elc-files-to-compile))) (load "loadup-el.el"))) (kill-emacs)
--- a/lisp/psgml/ChangeLog Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/psgml/ChangeLog Mon Aug 13 09:05:42 2007 +0200 @@ -1,7 +1,34 @@ -Sat Dec 21 11:59:34 1996 Steven L Baur <steve@altair.xemacs.org> +Wed Nov 20 19:40:05 1996 Lennart Staflin <lenst@lysator.liu.se> + + * psgml-parse.el (sgml-modify-dtd): set sgml-current-tree to + sgml-top-tree. Needed by sgml-open-element. + +Mon Nov 11 01:50:40 1996 Lennart Staflin <lenst@lysator.liu.se> + + * Version 1.0 released. + +Sun Sep 15 14:07:24 1996 Lennart Staflin <lenst@lysator.liu.se> + + * psgml.el (sgml-mode): modify mode-line-format with subst, don't + replicate the whole format in the code. + +Thu Sep 12 20:27:38 1996 Lennart Staflin <lenst@lysator.liu.se> - * psgml-parse.el (sgml-final): Moved up in file to make the byte - compiler happier. + * psgml-parse.el (sgml-external-file): Try to find system + identifiers using the sgml-public-map + if sgml-system-identifiers-are-preferred; this way that flag will + have effect even if the sgml-public-map contains `%s'. + (sgml-final): moved to be defined before use. + + * psgml-dtd.el (sgml-parse-parameter-literal): Try to handle + character references to character number above 255 by leaving a + character reference in then parsed entity text. + +Thu Sep 5 14:11:00 1996 Dave Love <d.love@dl.ac.uk> + + * psgml-other.el (sgml-set-face-for): Nullify + {after,before}-change-functions as well as (obsolete) + {after,before}-change-function. Tue Sep 10 17:52:40 1996 Steven L Baur <steve@miranova.com>
--- a/lisp/psgml/README.psgml Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/psgml/README.psgml Mon Aug 13 09:05:42 2007 +0200 @@ -1,4 +1,4 @@ -This is the READ ME file for psgml.el version 1a12. -*- text -*- +This is the READ ME file for psgml.el version 1.0 -*- text -*- PSGML is a major mode for editing SGML documents. It works with GNU Emacs 19.19 and later or with XEmacs 19.13. @@ -13,12 +13,8 @@ psgml-dtd.el psgml-info.el psgml-charent.el - psgml-debug.el -- some functions used in development psgml-api.texi -- internals documentation psgml-api.el -- Extra functions for the API - fs.el -- Example use of psgml to format a SGML file - style.fs -- example style file for fs.el - catalog.sgml -- example SGML-file for fs.el and style.el iso88591.map Makefile.in @@ -46,544 +42,243 @@ Send bug reports, comments and suggestions to lenst@lysator.liu.se. -New in version 1.0a12 +New in version 1.0 + +* Main changes + +** Support for general entities -See ChangeLog... +** Support for short reference + +** Support for catalog files + +** New mechanism for caching parsed DTD - -New in version 1.0a11 +** Includes commands to list various aspects of the DTD + +* Entity support -* Autoconf support +PSGML will recognize entity references (except in attribute values). If +the entity is a general text entity, PSGML will also parse the content +of the entity. To support this PSGML has a new entity manager with a +new mechanism for looking up entities (see belove). -Tanks to Karl Eichwalder. +Short references are also supported, for the short reference delimiters +from the concrete reference syntax. -* Bugs fixed +There are some new and changed commands to complete the entity support: + +** Command: `sgml-expand-entity-reference' -** after-change-function lost if text entity referenced +Insert the text of the entity referenced at point. + +** Command: `sgml-expand-all-shortrefs' -** Mouse button 3, has wrong binding in XEmacs. +Expand all short references in the buffer. Short references to text +entities are expanded to the replacement text of the entity, other +short references are expanded into general entity references. If +argument, `to-entity', is non-nil, or if called interactive with +numeric prefix argument, all short references are replaced by generally +entity references. + +** Command: `sgml-normalize' - -New in version 1.0a10 +Changed to expand short references also. Normalize buffer by filling in +omitted tags and expanding empty tags. Argument `to-entity' controls +how short references are expanded as with `sgml-expand-all-shortrefs'. -* Changed how fontification is done +* Fontification + +If `sgml-set-face' is true and the DTD has been activated, PSGML will +automatically set the face of markup in the buffer. First the current line is parsed and fontified. If this would mean parsing more than 500 chars, wait 1 second first. -Wait 6 seconds and then fontify rest of buffer. +The rest of the buffer is fontified after 6 seconds idle time. + +Fontification can be interrupted by any input event. + +The buffer can be fontified initially if `sgml-auto-activate-dtd' is +true. + +* New entity manager + +The new entity manager will handle an entity reference thus: + +** If the entity has a system identifier, the entity manager will first +try and call the functions on `sgml-sysid-resolve-functions' with the +system identifier as argument, and if any function returns non-nil +assume that the function has handled the entity. + +** If the entity has a system identifier and +`sgml-system-identifiers-are-preferred' is non-nil, the system +identifier will be used as a file name relative to the file containing +the entity declaration. -These waits and the parsing can be interrupted by any input event. +** Next the entity manager will try the catalog, and + +** if not found there use the `sgml-public-map'. + +** Finally if the entity has not been found and it has a system +identifier, this will be used as a file name. + +Note: `sgml-system-path' is no longer used for entity lookup. -This seems to work well with Emacs 19.29 and XEmacs 19.13 on Linux. +The catalog files searched is given by the variable +`sgml-local-catalogs' and `sgml-catalog-files'. The +`sgml-catalog-files' variable is initialized from the environment +variable `SGML_CATALOG_FILES' (should be a colon separated list of +files). The `sgml-local-catalogs' variable is assumed to be set in a +files local variables. + +File names for external entities (e.g system identifiers) are relative +to the directory containing the file declaring the entity. + +The `sgml-public-map' is initialized from the environment variable +`SGML_PATH'. + +`sgml-system-path' defaults to nil. -* XEmacs menus made with easy-menu +Supports most of sgmls substitutions for sgml-public-map. Supported: +%%, %N, %P, %S, %Y, %C, %L, %O, %T, %V. Unsupported: %D, %X, %A, %E, +%I, %R, %U. Note: that %D is and alias for %C in PSGML (historical +accident). + +* New and changed options + +** `sgml-recompile-out-of-date-cdtd' + +** New options for insert-element: +`sgml-insert-missing-element-comment' and +`sgml-insert-end-tag-on-new-line'. + +** `sgml-validate-files' and slight change of `sgml-validate-command' + +The variable `sgml-validate-command' can now be a list of strings. The +strings can contain %-sequences that will be expanded: %b to buffer +file name, %s to SGML Declaration file, either the value of +sgml-declaration variable or SGML Declaration file for parent document +or DOCTYPE file or SGMLDECL from catalog. %d value of `sgml-doctype'. + +** `sgml-set-face' + +Now automatically sets faces for all visible text, with a delay of 1s. -Now there is only one set of menu for both Emacs and XEmacs. +** `sgml-exposed-tags' + +The list of tag names that remain visible, despite `M-x +sgml-hide-tags'. Each name is a lowercase string, and start-tags and +end-tags must be listed individually. + +** `sgml-auto-activate-dtd' + +PSGML was behaving inconsistent when a new file was loaded. If the +variable `sgml-set-face' was true the DTD would automatically be +activated (loaded or parsed), but only if psgml-parse already loaded. -* Tracing catalog lookup +Rather than let `sgml-set-face' decide if the DTD is activated, there +is now a distinct option for this. This option works even the first +time. + +If non-nil, loading a sgml-file will automatically try to activate its +DTD. Activation means either to parse the document type declaration or +to load a previously saved parsed DTD. The name of the activated DTD +will be shown in the mode line. + +* Various + +** Tracing catalog lookup To help debug entity lookup there is a new option -`sgml-trace-entity-lookup'. If this option is t messages will be -logged in *SGML LOG* buffer when external entities are looked up. -These messages shows entity, catalogs searched, and entry type in -catalog where entity was found. - - +`sgml-trace-entity-lookup'. If this option is t messages will be logged +in *SGML LOG* buffer when external entities are looked up. These +messages shows entity, catalogs searched, and entry type in catalog +where entity was found. -* Renamed default style sheet for fs.el - -The default style sheet used by fs.el, style sheet formatter example -is now "style.fs". +** Translating between characters and entity references - -New in version 1.0a9 - -* XEmacs may have problem if sgml-set-face is t +Set the variable `sgml-display-char-list-filename' to a file that +contains mappings between all characters present in the presentation +character set, and their "standard replacement text" names, e.g. "å" -> +"[aring ]", e.t.c. The default value for this variable is +`iso88591.map'. -I tried with the latest version on a sun4 Solaris 2 machine and PSGML -would always parse to the end of the buffer even if I typed something. -There seem to be a problem with the input-pending-p function. I don't -know if this is specific for Solaris. Emacs on Solaris has problems -with signal handling. +Use the functions (also in the Modify menu) +`sgml-charent-to-display-char' and `sgml-display-char-to-charent' to +translate between entities and characters. - -* New options for insert-element -** sgml-insert-missing-element-comment -** sgml-insert-end-tag-on-new-line +** Handling of missing DOCTYPE -* psgml-api: -** sgml-map-content: new optional argument. If the argument ENTITY-FUN -is specified it should be a function with one argument. The function -will be called for data entity references instead of the entity text -being passed to the DATA-FUN. The argument is the entity referenced. -Use `sgml-entity-name', `sgml-entity-type' etc. +If the document prolog does not contain a document type declaration, +PSGML will try to supply one on the form `<!DOCTYPE DocTypeName +SYSTEM>' If the variable `sgml-default-doctype-name' is defined this +will be used for the document type name, otherwise the GI of the first +start tag will be used. I.e., if the document starts with `<book>', a +document type declaration `<!DOCTYPE book SYSTEM>' will be assumed. - -Version 1.0a8 has only bug-fixes. - +** Handling of tags for undefined elements -New in version 1.0a7 - -* Better CATALOG parsing - -** Will handle SGMLDECL, etc.. +*** Start-tags for undefined elements will either be ignored, if +`sgml-ignore-undefined-elements' is `t', or assumed to be acceptable in +the current element and defined with `O O ANY'. -** New option: sgml-system-identifiers-are-preferred -If nil PSGML will look up external entities by searching the catalogs -in `sgml-local-catalogs' and `sgml-catalog-files' and only if the entity -is not found in will a given system identifier be used. If the variable -is non-nil and a system identifier is given, the system identifier will -be used for the entity. If no system identifier is given the catalogs -will searched. +*** An end-tag for an element that is not currently open will be +ignored. -* File names for external entities (e.g system identifiers) are -relative to the directory containing the file declaring of the entity. +** Cleaned up Markup menu -* Changes to how the DTD is found +The removed entries can be added with sgml-custom-markup: -** If the variable sgml-doctype is set, it should be the name of a file -containing the DOCTYPE declaration to use. +(setq sgml-custom-markup + '(("<!entity ... >" "<!entity \r>\n") + ("<!attlist ... >" "<!attlist \r>\n") + ("<!element ... >" "<!element \r>\n") + ("<!doctype ...>" "<!doctype \r -- public or system --\n[\n]>\n") + ("Local variables comment" "<!--\nLocal variables:\n\rEnd:\n-->\n") + ("Comment" "<!-- \r -->\n") )) -** The variable sgml-parent-document is used when the current file -is part of a bigger document, and the variable describes how the -current files content fits into the element hierarchy. The variable -should have the form - - (parent-file context-element* top-element (has-seen-element*)?) - -*** parent-file (string) is the name of the file containing the -document entity. +** New commands -*** context-element (string) is used to set up exceptions and short -reference map. Good candidates for these elements are the elements -open when the entity pointing to the current file is used. +Thanks to David Megginson the custom menus are now reachable from the +keyboard: -*** top-element (string) is the top level element in the current file. -The file should contain one instance of this element, unless the last -(lisp) element of sgml-parent-document is a list. If it is a list, the -top level of the file should follow the content model of top-element. +`C-c C-u C-d' (`sgml-custom-dtd') -*** has-seen-element (string) element satisfied in the content model -of top-element. +`C-c C-u C-m' (`sgml-custom-markup') +* Changes to API -* sgml-validate - The variable sgml-validate-command can now be a list of strings. The -strings can contain %-sequences that will be expanded: - %b to buffer file name, - %s to SGML Declaration file, either the value of sgml-declaration -variable or SGML Declaration file for parent document or DOCTYPE file or -SGMLDECL from catalog. - %d value of sgml-doctype. +** New hooks + +*** `sgml-close-element-hook' +The hook run by `sgml-close-element'. These functions are invoked with +`sgml-current-tree' bound to the element just parsed. -* Hooks +*** `sgml-new-attribute-list-function' -** sgml-new-attribute-list-function This hook is run when a new element is inserted to construct the attribute specification list. The default function prompts for the required attributes. - -* API - -** New file psgml-api.el - -This file contain API-functions that are not used by other parts of -psgml. Use (require 'psgml-api) to use the API functions (psgml-api -includes the rest of the psgml files). - -The new functions in psgml-api is two functions to traverse the element -structure. - -*** (sgml-map-content element element-function data-function pi-function) - -Call element-function with every child of element. -Call data-function with all the data in element. -Don't modify the buffer in these functions. - -*** (sgml-map-element-modify function element) - -Call function on every sub element of element, allows the function to -modify the buffer (e.g. add/modify attributes of the elements). - -** Example of API use: fs.el -- a simple style sheet driven formatter. - -Try fs.el with the catalog.sgml file. The style.el is the style sheet -for catalog.sgml. The command to format current buffer is -`M-x style-format'. - - -New in version 1.0 a6 - -* Entity manager - -** Use system id as file name, if there is no %S in sgml-public-map. - -** Finds PUBLIC entries before DOCTYPE and ENTITY in catalog files. - -* Better error recovery for out of context data and tags - -* New command: sgml-general-dtd-info - -* Disables auto-fill in the prolog - -* Insert element leaves point at the end of the element, -it used to leave point at the beginning of the element. - -* sgml-hide-tags/attributes is better at handling minimized tags - -* New options -** sgml-validate-files and slight change of sgml-validate-command. -** sgml-recompile-out-of-date-cdtd - -* Now saving attribute specification list in parse tree -Faster sgml-element-attval, but more memory used. - -* Long menus that are split into sub-menus now show the range of -choices in the different sub-menus. - -The option `sgml-range-indicator-max-length' determines how many -characters from the first and the last choice to show. - -* Private abbrev table - - -New in version 1.0 a5 - -* New menu structure -Perhaps there is to many top-level menus now. Any suggestions how to -organize the menus? - -* Some new functions - -** Information from the DTD (used to be nefarious.el) - -*** sgml-describe-element-type - -*** sgml-describe-entity - -*** sgml-list-elements - Will list all elements and the attributes declared for the element. - -*** sgml-list-attributes - Will list all attributes declared and the elements that use them. - -*** sgml-list-terminals - Will list all elements that can contain data. - -*** sgml-list-occur-in-elements - Will list all element types and where it can occur. - -*** sgml-list-content-elements - Will list all element types and the element types that can occur - in its content. - - -** Translating between characters and entity references - -Set the variable `sgml-display-char-list-filename' to a file file that -contains mappings between all characters present in the presentation -character set, and their "standard replacement text" names, e.g. "å" --> "[aring ]", e.t.c. - -The default value for this variable is `iso88591.map'. - -The use the functions (also in the Modify menu) - - sgml-charent-to-display-char - sgml-display-char-to-charent - -to translate between entities and characters. - - - -* Two major bugs fixed -** DTD using undeclared elements was improperly saved -** Bug in using a precompiled DTD and local element, attlist or usemap -declaration. - - - -New in version 1.0 a4 - -* If the document prolog does not contain a document type declaration, -PSGML will try to supply one on the form `<!DOCTYPE DocTypeName -SYSTEM>' If the variable `sgml-default-doctype-name' is defined this -will be used for the document type name, otherwise the GI of the first -start tag will be used. I.e., if the document starts with `<book>', a -document type declaration `<!DOCTYPE book SYSTEM>' will be assumed. - - -* Compiled DTDs are now associated with external `Document Type -Declaration Subset' entities. You will have to create a catalog with -entries for all the DTDs that should be compiled. This should make -it, in most cases, unnecessary to make saved dtds or to set the -`sgml-default-dtd-file', at the expense of having to maintain the -catalog file. - -** Options - -`sgml-ecat-files' List of compiled dtd catalog files. - Default: ("ECAT" "~/sgml/ECAT" "/usr/local/lib/sgml/ECAT") - -`sgml-local-ecat-files' This can be set as a buffer local variable to -a list of catalogs to be searched before `sgml-ecat-files'. - -** Catalog format - -The catalog is similar to the catalog used to resolve public -identifiers. There are two types of entries: - - PUBLIC pubid pents? cfile -and - FILE file pents? cfile - -where pubid is a public identifier (as a minimum literal), pents is a -optional list of parameter entities and values, file is the file name -of a DTD file and cfile is the name of the complied DTD. The syntax -for pents is - - `[' (name literal)* `]' - -Example: - -PUBLIC "-//lenst//dtd My DTD//en" cdtd/bar -FILE "bar.dtd" cdtd/bar - -To better handle DTDs with options, like TEI and HTML 2.0/+ it is -possible to have several entries for the same DTD with different -parameter entity settings. The parameters are listed between `[' and -`]' before the file name of the compiled dtd. - -FILE "~/sgml/htmlplus.dtd" - [ HTML.emph "INCLUDE" ] "~/sgml/htmlplus.ced" - -PUBLIC "-//Text Encoding Initiative//DTD - P3 3.6.1: Main TEI document type declaration//EN" - [ TEI.prose 'INCLUDE' TEI.analysis 'INCLUDE' ] "tei2an.cdtd" - -PUBLIC "-//Text Encoding Initiative//DTD - P3 3.6.1: Main TEI document type declaration//EN" - [ TEI.prose 'INCLUDE' TEI.verse 'INCLUDE' ] "tei2verse.cdtd" - -The entries will be searched in order and the first matching will be -used. Put more specific entries before less specific. Matching is -done by matching pubid or file and checking that all the listed -parameters are defined with the listed values. - - - -** Example: setting up for editing HTML +*** `sgml-doctype-parsed-hook' -If you have the files for the html.dtd in ~/sgml. -Put in ~/sgml/CATALOG: - PUBLIC "-//IETF//DTD HTML//EN" html.dtd - PUBLIC "-//IETF//DTD HTML//EN//2.0" html.dtd - PUBLIC "-//IETF//DTD HTML Level 1//EN//2.0" html-1.dtd - PUBLIC "-//IETF//ENTITIES Added Latin 1 for HTML//EN" ISOlat1.sgml - DOCTYPE HTML html.dtd - -Put in ~/sgml/ECAT: - FILE html.dtd [ HTML.Recommended "INCLUDE" ] cdtd/html-r - FILE html.dtd cdtd/html - -Put ~/sgml/CATALOG in sgml-catalog-files and ~/sgml/ECAT in -sgml-ecat-files. - -Now it should be possible to edit html files if you put them in -sgml-mode. The file must either start with a proper DOCTYPE or with a -<html> tag. To be able to start with empty files and to edit files -not starting with <html> you can create a html-mode that sets the -default document type name: - -(defun html-mode () - (interactive) - (sgml-mode) - (make-local-variable 'sgml-declaration) - (make-local-variable 'sgml-default-doctype-name) - (setq sgml-declaration "~/sgml/html.decl" - sgml-default-doctype-name "html" - sgml-always-quote-attributes t - sgml-indent-step 2 - sgml-indent-data t - sgml-minimize-attributes nil - sgml-omittag t - sgml-shortag t )) - - -* Handling of tags for undefined elements - -** Start-tags for undefined elements will either be ignored, if -`sgml-ignore-undefined-elements' is t, or assumed to be acceptable in -the current element and defined with `O O ANY'. - -** An end-tag for an element that is not currently open will be ignored. - - -* I have (as an experiment) turned off all warnings. Warnings are only -given if the sgml-next-trouble-spot is used or while parsing the DTD. - - -* Entity manager - -** sgml-system-path is no longer used for entity lookup - -** PSGML will recognize that a catalog file has been changed - - -News in version 1.0 a3 - -* Change in user options - -** sgml-live-element-indicator no longer buffer local - -** sgml-save-options only saves: - (sgml-parent-document sgml-omittag sgml-shorttag - sgml-minimize-attributes sgml-always-quote-attributes sgml-indent-step - sgml-indent-data sgml-default-dtd-file sgml-exposed-tags) - and saves all of them, even if they have no buffer local value - -** Options menu split in to two menus - -* Cleaned up Markup menu -The removed entries can be added with sgml-custom-markup: - -(setq sgml-custom-markup - '( - ("<!entity ... >" "<!entity \r>\n") - ("<!attlist ... >" "<!attlist \r>\n") - ("<!element ... >" "<!element \r>\n") - ("<!doctype ...>" "<!doctype \r -- public or system --\n[\n]>\n") - ("Local variables comment" "<!--\nLocal variables:\n\rEnd:\n-->\n") - ("Comment" "<!-- \r -->\n") - )) - - -* Some bug fixes -Including new default for sgml-catalog-files is -"CATALOG" and "/usr/local/lib/sgml/CATALOG". - -* Some tuning - - -News in version 1.0 a2 - -* Support for short references - -** Command: sgml-expand-all-shortrefs -Expand all short references in the buffer. Short references to text -entities are expanded to the replacement text of the entity, other -short references are expanded into general entity references. If -argument, TO-ENTITY, is non-nil, or if called interactive with numeric -prefix argument, all short references are replaced by generally entity -references. - -** sgml-normalize: expand short references also -Normalize buffer by filling in omitted tags and expanding empty tags. -Argument TO-ENTITY controls how short references are expanded as with -`sgml-expand-all-shortrefs'. - - -* Variable: sgml-auto-activate-dtd - -PSGML was behaving inconsistent when a new file was loaded. If the -variable `sgml-set-face' was true the DTD would automatically be -activated (loaded or parsed), but only if psgml-parse already loaded. - -Rather than let `sgml-set-face' decide if the DTD is activated, there -is now a distinct option for this. This option works even the first -time. - -If non-nil, loading a sgml-file will automatically try to activate its DTD. -Activation means either to parse the document type declaration or to -load a previously saved parsed DTD. The name of the activated DTD -will be shown in the mode line. - - -* face setting -If `sgml-set-face' is true and the DTD has been activated, PSGML will -automatically set the face of markup in the buffer. This is done by -parsing, with error messages turned off, as much as possible after -every command. The parsing is interrupted by input and is almost -transparent. - -* Local catalog files -Variable `sgml-local-catalogs' -A list of SGML entity catalogs to be searched first when parsing the buffer. -This is used in addition to `sgml-catalog-files', and `sgml-public-map'. -This variable is automatically local to the buffer. - -* New commands -Thanks to David Megginson the custom menus are now reachable from the -keyboard: -** C-c C-u C-d (sgml-custom-dtd) -** C-c C-u C-m (sgml-custom-markup) - -* New command: sgml-expand-entity-reference -Insert the text of the entity referenced at point. - -* sgml-validate-command is now a format string - - -News in version 1.0 a1 - -* A lot of internal changes - -* Support for general entities - -* New entity manager - -The new entity manager will handle an entity thus: - -1. If the entity has a system identifier, the entity manager will - first try and call the functions on sgml-sysid-resolve-functions - with the system identifier as argument, and if any function returns - non-nil assume that the function has handled the entity. -2. Next the entity manager will try the catalogue, and -3. if not found there use the sgml-public-map. - -The catalogue files searched is given by the variable -sgml-catalog-files (I suppose it would be confusing to call it -sgml-catalogue-files.) This variable is initialised from the -environment variable SGML_CATALOG_FILES (should be a colon separated -list of files). - -The sgml-public-map is initialised from the environment variable -SGML_PATH. - -sgml-system-path defaults to nil. - -Supports most of sgmls substitutions for sgml-public-map. -Supported: %%, %N, %P, %S, %Y, %C, %L, %O, %T, %V -Unsupported: %D, %X, %A, %E, %I, %R, %U -Note: that %D is and alias for %C in PSGML (historical accident). - - -* Hooks - -** sgml-close-element-hook -The hook run by `sgml-close-element'. -These functions are invoked with `sgml-current-tree' bound to the -element just parsed. - -** sgml-doctype-parsed-hook -This hook is called after the doctype has been parsed. -It can be used to load any additional information into the DTD structure. +This hook is called after the doctype has been parsed. It can be used +to load any additional information into the DTD structure. Example: add description to element types + (defun set-help-info () (let ((help '(("para" "A Paragraph") ("q" "A Quotation") ("date" "A Date"))) (dtd (sgml-pstate-dtd sgml-buffer-parse-state))) (loop for h in help do - (setf (sgml-eltype-appdata (sgml-lookup-eltype (first h) dtd) + (setf (sgml-eltype-appdata (sgml-lookup-eltype (first h) dtd) 'help-string) (second h))))) (add-hook 'sgml-doctype-parsed-hook 'set-help-info) - (defun sgml-help-for-element () (interactive) (let* ((el (sgml-find-element-of (point))) @@ -591,15 +286,16 @@ (and help (message "%s" help)))) +*** sgml-sysid-resolve-functions -** sgml-sysid-resolve-functions -This variable should contain a list of functions. -Each function should take one argument, the system identifier of an entity. -If the function can handle that identifier, it should insert the text -of the entity into the current buffer at point and return t. If the -system identifier is not handled the function should return nil. +This variable should contain a list of functions. Each function should +take one argument, the system identifier of an entity. If the function +can handle that identifier, it should insert the text of the entity +into the current buffer at point and return t. If the system identifier +is not handled the function should return nil. -Example use: Support URLs as system identifiers +Example use: Support URLs as system identifiers + (defun sgml-url-sysid (sysid) (cond ((string-match "^\\([a-z]+\\):" sysid) ; looks like url (require 'url) @@ -609,18 +305,11 @@ t))) (add-hook 'sgml-sysid-resolve-functions 'sgml-url-sysid) - -* sgml-set-face Now automatically sets faces for all visible text, -with a delay of 1s. +** New file psgml-api.el -* sgml-exposed-tags -The list of tag names that remain visible, despite M-x sgml-hide-tags. -Each name is a lowercase string, and start-tags and end-tags must be -listed individually. - -`sgml-exposed-tags' is local to each buffer in which it has been set; -use `setq-default' to set it to a value that is shared among buffers. - +This file contain API-functions that are not used by other parts of +psgml. Use `(require 'psgml-api)' to use the API functions (psgml-api +includes the rest of the psgml files). Local variables: mode: text
--- a/lisp/psgml/catalog.sgml Mon Aug 13 09:05:11 2007 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,69 +0,0 @@ -<!doctype example [ -<!element example - - (front, body) > -<!element front - - (titlegrp) > -<!element titlegrp - - (title, subtitle*)> -<!element body - - (p|lit)* > -<!element p - - (#PCDATA|keyword|list)* > -<!element (title|subtitle|keyword|lit) - - (#PCDATA) > -<!element list - - (item*) > -<!element item - - (p*) > - -<!ENTITY soi "<keyword>storage object identifier</keyword>"> - -]> - -<example> - <front> - <titlegrp> - <title>Entity Management</title> - <subtitle>Excerpts from: SGML Open Technical Resolution -9401:1995</subtitle> - </titlegrp> - </front> - <body> - <p>An entry in the catalog is interpreted as follows:<list> - <item><p>The PUBLIC keyword indicates that an entity manager -should use the associated &soi; to locate the entity text for an -entity with the specified public identifier.</p></item> - <item><p>The ENTITY keyword indicates that an entity manager -should use the associated <keyword>storage object identifier</keyword> -to locate the entity text for an entity with the entity name specified -by the <keyword>entity name spec</keyword>.</p></item> - <item><p>The DOCTYPE keyword indicates that an entity manager -should use the associated &soi; to locate the entity text (to be used -as the external subset) for a doctype declaration whose document type -name is specified by the <keyword>entity name -spec</keyword>.</p></item> - <item><p>The LINKTYPE keyword indicates that an entity manager -should use the associated &soi; to locate the entity text (to be used -as the external subset) for a linktype declaration whose link type -name is specified by the <keyword>entity name spec</keyword>. -</p></item> - <item><p>The SGMLDECL keyword indicates that an entity manager -should use the associated &soi; to locate the entity text to be used -as the SGML declaration.</p></item> - <item><p>The DTDDECL keyword indicates that an entity manager -should use the associated &soi; to locate the entity text to be used -as the SGML declaration. Note that the <keyword>public -identifier</keyword> in a DTDDECL entry is meant to match a public -identifier given as part of the doctype declaration to reference the -external subset.</p></item> - <item><p>The DOCUMENT keyword indicates that an entity manager -should use the associated &soi; to locate the entity in which parsing -begins.</p></item> - </list></p> - <p>For example, the following are possible catalog entries that -associate a public identifier with an s.o.i.:</p> -<lit>PUBLIC "ISO 8879-1986//ENTITIES Added Latin 1//EN" "iso-lat1.gml" -PUBLIC "-//USA/AAP//DTD BK-1//EN" "aapbook.dtd" PUBLIC "-//ACME DTD -Writers//DTD General Report//EN" "report.dtd"</lit> - </body> -</example> - - - -<!-- Keep this comment at the end of the file -Local variables: -sgml-exposed-tags:("title" "body") -End: --->
--- a/lisp/psgml/psgml-dtd.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/psgml/psgml-dtd.el Mon Aug 13 09:05:42 2007 +0200 @@ -1,5 +1,5 @@ ;;;; psgml-dtd.el --- DTD parser for SGML-editing mode with parsing support -;; $Id: psgml-dtd.el,v 1.1.1.1 1996/12/18 22:43:36 steve Exp $ +;; $Id: psgml-dtd.el,v 1.2 1997/01/03 03:10:27 steve Exp $ ;; Copyright (C) 1994 Lennart Staflin @@ -310,7 +310,9 @@ (sgml-error "Parameter literal unterminated"))) ((sgml-parse-parameter-entity-ref)) ((setq temp (sgml-parse-character-reference dofunchar)) - (setq value (concat value (format "%c" temp)))) + (setq value (concat value (if (< temp 256) + (format "%c" temp) + (format "&#%d;" temp))))) (t (setq value (concat value
--- a/lisp/psgml/psgml-other.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/psgml/psgml-other.el Mon Aug 13 09:05:42 2007 +0200 @@ -1,5 +1,5 @@ ;;;; psgml-other.el --- Part of SGML-editing mode with parsing support -;; $Id: psgml-other.el,v 1.1.1.1 1996/12/18 22:43:36 steve Exp $ +;; $Id: psgml-other.el,v 1.2 1997/01/03 03:10:27 steve Exp $ ;; Copyright (C) 1994 Lennart Staflin @@ -39,9 +39,9 @@ ;;;; Key Commands ;; Doesn't this work in Lucid? *** -(define-key sgml-mode-map [?\M-\C-\ ] 'sgml-mark-element) +(define-key sgml-mode-map [(meta control space)] 'sgml-mark-element) -(define-key sgml-mode-map [S-mouse-1] 'sgml-tags-menu) +(define-key sgml-mode-map [(shift button-3)] 'sgml-tags-menu) ;;;; Pop Up Menus @@ -111,8 +111,10 @@ (cond (sgml-use-text-properties (let ((inhibit-read-only t) - (after-change-function nil) - (before-change-function nil)) + (after-change-function nil) ; obsolete variable + (before-change-function nil) ; obsolete variable + (after-change-functions nil) + (before-change-functions nil)) (put-text-property start end 'face face))) (t (let ((current (overlays-at start))
--- a/lisp/psgml/psgml-parse.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/psgml/psgml-parse.el Mon Aug 13 09:05:42 2007 +0200 @@ -1,5 +1,5 @@ ;;;; psgml-parse.el --- Parser for SGML-editing mode with parsing support -;; $Id: psgml-parse.el,v 1.1.1.2 1996/12/21 20:50:41 steve Exp $ +;; $Id: psgml-parse.el,v 1.2 1997/01/03 03:10:27 steve Exp $ ;; Copyright (C) 1994, 1995 Lennart Staflin @@ -446,6 +446,17 @@ ;;; Using states +(defsubst sgml-final (state) + (if (sgml-normal-state-p state) + (sgml-state-final-p state) + (sgml-final-and state))) + +(defun sgml-final-and (state) + (and (sgml-final (sgml-and-state-substate state)) + (loop for s in (sgml-and-state-dfas state) + always (sgml-state-final-p s)) + (sgml-state-final-p (sgml-and-state-next state)))) + ;; get-move: State x Token --> State|nil (defsubst sgml-get-move (state token) @@ -465,11 +476,6 @@ (t ;state is a and-state (sgml-get-and-move state token)))) -(defsubst sgml-final (state) - (if (sgml-normal-state-p state) - (sgml-state-final-p state) - (sgml-final-and state))) - (defun sgml-get-and-move (state token) ;; state is a and-state (let ((m (sgml-get-move (sgml-and-state-substate state) token))) @@ -507,13 +513,6 @@ nconc (sgml-tokens-of-moves (sgml-state-reqs s))) (sgml-tokens-of-moves (sgml-state-reqs (sgml-and-state-next state)))))) - -(defun sgml-final-and (state) - (and (sgml-final (sgml-and-state-substate state)) - (loop for s in (sgml-and-state-dfas state) - always (sgml-state-final-p s)) - (sgml-state-final-p (sgml-and-state-next state)))) - (defun sgml-optional-tokens (state) (if (sgml-normal-state-p state) (sgml-tokens-of-moves (sgml-state-opts state)) @@ -1207,7 +1206,7 @@ (sgml-pop-entity) (erase-buffer) ;; For XEmacs-20.0/Mule - (setq file-coding-system 'no-conversion) + (setq file-coding-system 'noconv) (sgml-write-dtd sgml-dtd-info to-file) t)) @@ -1235,7 +1234,7 @@ "Merge the binary coded dtd in the current buffer with the current dtd. The current dtd is the variable sgml-dtd-info. Return t if mereged was successfull or nil if failed." - (setq file-coding-system 'no-conversion) + (setq file-coding-system 'noconv) (goto-char (point-min)) (sgml-read-sexp) ; skip filev (let ((dependencies (sgml-read-sexp)) @@ -1966,8 +1965,12 @@ (or name "?") pubid (sgml-extid-sysid extid)) - (or (if sgml-system-identifiers-are-preferred - (sgml-lookup-sysid-as-file extid)) + (or (if (and sgml-system-identifiers-are-preferred + (sgml-extid-sysid extid)) + (or (sgml-lookup-sysid-as-file extid) + (sgml-path-lookup ;Try the path also, but only using sysid + (sgml-make-extid nil (sgml-extid-sysid extid)) + nil nil))) (sgml-catalog-lookup sgml-current-localcat pubid type name) (sgml-catalog-lookup sgml-catalog-files pubid type name) (if (not sgml-system-identifiers-are-preferred) @@ -2365,7 +2368,7 @@ ;; (reported by Jeffrey Friedl <jfriedl@nff.ncl.omron.co.jp>) (setq mc-flag nil) ;; For XEmacs 20.0/Mule - (setq file-coding-system 'no-conversion) + (setq file-coding-system 'noconv) (when (eq sgml-scratch-buffer (default-value 'sgml-scratch-buffer)) (make-local-variable 'sgml-scratch-buffer) (setq sgml-scratch-buffer nil)) @@ -3640,7 +3643,7 @@ (setq sgml-dtd-info (sgml-pstate-dtd sgml-buffer-parse-state) sgml-top-tree (sgml-pstate-top-tree sgml-buffer-parse-state)) (sgml-set-global) - ;;*** what is sgml-current-tree now? + (setq sgml-current-tree sgml-top-tree) (while (stringp (cadr modifier)) ; Loop thru the context elements (let ((et (sgml-lookup-eltype (car modifier)))) (sgml-open-element et nil (point-min) (point-min))
--- a/lisp/psgml/psgml.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/psgml/psgml.el Mon Aug 13 09:05:42 2007 +0200 @@ -1,11 +1,13 @@ ;;; psgml.el --- SGML-editing mode with parsing support -;; $Id: psgml.el,v 1.1.1.1 1996/12/18 22:43:37 steve Exp $ +;; $Id: psgml.el,v 1.2 1997/01/03 03:10:28 steve Exp $ ;; Copyright (C) 1993, 1994, 1995, 1996 Lennart Staflin ;; Copyright (C) 1992 Free Software Foundation, Inc. ;; Author: Lennart Staflin <lenst@lysator.liu.se> ;; James Clark <jjc@clark.com> +;; Maintainer: Lennart Staflin <lenst@lysator.liu.se> +;; Keywords: languages ;; ;; This program is free software; you can redistribute it and/or @@ -50,7 +52,7 @@ ;;; Code: -(defconst psgml-version "1.0a12" +(defconst psgml-version "1.0.1" "Version of psgml package.") (defconst psgml-maintainer-address "lenst@lysator.liu.se") @@ -1086,8 +1088,7 @@ (make-local-variable 'indent-line-function) (setq indent-line-function 'sgml-indent-line) (make-local-variable 'mode-line-format) - ;; wing change: use `subst' rather than duplicating the whole - ;; mode-line-format. XEmacs 19.14 changes the default mode-line-format. + ;; Modify mode-line-format with susbt (sugested by wing) (setq mode-line-format (subst '("" mode-name sgml-active-dtd-indicator) 'mode-name mode-line-format)) @@ -1449,4 +1450,4 @@ (t (require 'psgml-other))) -;;; psgml.el ends HERE +;;; psgml.el ends here
--- a/lisp/sunpro/sunpro-load.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/sunpro/sunpro-load.el Mon Aug 13 09:05:42 2007 +0200 @@ -1,8 +1,13 @@ -(load "sunpro-init") -;;(load "sunpro-menubar") -;;(load "sunpro-keys") -;;(load "sccs") -;;(load "sunpro-sparcworks") -(load "eos/sun-eos-load") -(load "annotations") - +(let ((gc-cons-threshold 30000)) + (require 'cc-mode) + ;(require 'fortran) + (load "sunpro-init") + ;;(load "sunpro-menubar") + ;;(load "sunpro-keys") + ;;(load "sccs") + ;;(load "sunpro-sparcworks") + (load "eos/sun-eos-load") + (require 'annotations) + (when (featurep 'mule) + (load "mime-setup")) + (garbage-collect))
--- a/lisp/tl/emu.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/tl/emu.el Mon Aug 13 09:05:42 2007 +0200 @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> -;; Version: $Id: emu.el,v 1.1.1.2 1996/12/21 20:50:49 steve Exp $ +;; Version: $Id: emu.el,v 1.2 1997/01/03 03:10:29 steve Exp $ ;; Keywords: emulation, compatibility, NEmacs, MULE, Emacs/mule, XEmacs ;; This file is part of emu. @@ -141,8 +141,9 @@ ;;; @ EMACS 19.29 emulation ;;; -(defvar path-separator ":" - "Character used to separate concatenated paths.") +; XEmacs: this causes a strange message at DOC file generation time. +;(defvar path-separator ":" +; "Character used to separate concatenated paths.") (defun-maybe buffer-substring-no-properties (beg end) "Return the text from BEG to END, without text properties, as a string.
--- a/lisp/tm/gnus-charset.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/tm/gnus-charset.el Mon Aug 13 09:05:42 2007 +0200 @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Created: 1996/8/6 ;; Version: -;; $Id: gnus-charset.el,v 1.1.1.2 1996/12/21 20:50:47 steve Exp $ +;; $Id: gnus-charset.el,v 1.2 1997/01/04 23:05:18 steve Exp $ ;; Keywords: news, MIME, multimedia, multilingual, encoded-word ;; This file is not part of GNU Emacs yet. @@ -107,7 +107,12 @@ after-insert-file-functions) '(jam-code-guess-after-insert-file-function)))) (insert-file-contents filename visit beg end replace)) - )) + ) + ;; for gnspool on OS/2 + (while (re-search-forward "\r$" nil t) + (replace-match "") + ) + ) ;; imported from Red Gnus 0.66 (or (fboundp 'nnheader-auto-mode-alist) (defun nnheader-auto-mode-alist ()
--- a/lisp/tm/mime-setup.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/tm/mime-setup.el Mon Aug 13 09:05:42 2007 +0200 @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Version: -;; $Id: mime-setup.el,v 1.2 1996/12/28 21:03:12 steve Exp $ +;; $Id: mime-setup.el,v 1.3 1997/01/03 03:10:30 steve Exp $ ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word ;; This file is part of tm (Tools for MIME). @@ -28,8 +28,8 @@ (require 'tm-setup) -(autoload 'mime/editor-mode "tm-edit" - "Minor mode for editing MIME message." t) +;(autoload 'mime/editor-mode "tm-edit" +; "Minor mode for editing MIME message." t) (autoload 'mime/decode-message-header "tm-ew-d" "Decode MIME encoded-words in message header." t)
--- a/lisp/tm/tm-edit-tipgp.el Mon Aug 13 09:05:11 2007 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,132 +0,0 @@ -;;; tm-edit-tipgp.el -- TinyPgp.el PGP interface - -;; Copyright (C) 1996 Jari aalto - -;; Author: Jari Aalto <jari.aalto@poboxes.com> -;; Version: $Id: tm-edit-tipgp.el,v 1.1 1996/12/28 21:12:31 steve Exp $ -;; Keywords: mail, news, MIME, multimedia, multilingual, security, PGP - -;; This file is part of tm (Tools for MIME). - -;; 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 GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Code: - -(require 'tinypgpa.el) - -(defun tm:tipgp-process-region (result-buffer boundary) - (let ((obuf (current-buffer)) - ) - (cond - (boundary - (goto-char (point-min)) - (insert (format "--%s\n" boundary)) - (goto-char (point-max)) - (insert (format "\n--%s -Content-Type: application/pgp-signature -Content-Transfer-Encoding: 7bit - -" boundary)) - (insert-buffer-substring result-buffer) - (goto-char (point-max)) - (insert (format "\n--%s--\n" boundary)) - ) - (t - (delete-region beg end) - (goto-char beg) - (insert-buffer-substring result-buffer) - )) - )) - - - - -(defun tm:tipgp-sign-region (start end &optional id unclear boundary) - ;; start end = Region - ;; id = - ;; unclear = - ;; boundary = pgp-sign-Multipart_Wed_Dec__4_11:14:41_1996-1 - - (let (tipgp-:xpgp-header-mode ;Do not use X-Pgp signing - passwd - ret - ) - - (setq passwd (tipgp-password-get-old "Sign pass phrase: ")) - - - ;; The region is already narrowed by TM, so we pass the - ;; point-min point-max - ;; - ;; The macro tipgp-run-in-tmp-buffer cpies the contents to - ;; another buffer and when signing is over, it will - ;; contain fully signed message - ;; - (setq - ret - (tipgp-run-in-tmp-buffer nil - (tipgp-sign-region - (point-min) (point-max) passwd 'verb - (format - "+comment=\"Processed by TinyPgp.el %s\"" - (strmatget "[0-9][0-9.]+" 0 tipgp-version-id) - ) - 'noerr - ))) - - (if ret - (tm:tipgp-process-region tipgp-:buffer-tmp-copy boundary)) - - (cond - ((and boundary ret) - (goto-char (point-min)) - (insert - (format "\ ---[[multipart/signed; protocol=\"application/pgp-signature\"; - boundary=\"%s\"; micalg=pgp-md5][7bit]]\n" boundary)) - )) - ret - )) - - - -(defun tm:tipgp-pgp-encrypt-region (recipients start end &optional id sign) - (let (;; do not use these hooks while in TM - - tipgp-cmd-macro-before-hook - tipgp-cmd-macro-after-hook - - ;; TinyPgp.el: has separate encrypt and signing functions. - ;; -;;; (mc-pgp-always-sign -;;; (if (eq sign 'maybe) -;;; mc-pgp-always-sign -;;; 'never)) - - (elist (ti::mt-email-from-string recipients)) - ) - (if (null elist) - (error "TO,CC,BCC fields don't contain email addresses.")) - (tipgp-encrypt-region (point-min) (point-max) elist nil 'verb) - )) - - -;;; @ end -;;; - -(provide 'tm-edit-tipgp) - -;;; tm-edit-tipgp.el ends here
--- a/lisp/tm/tm-edit.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/tm/tm-edit.el Mon Aug 13 09:05:42 2007 +0200 @@ -6,7 +6,7 @@ ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Created: 1994/08/21 renamed from mime.el -;; Version: $Revision: 1.2 $ +;; Version: $Revision: 1.3 $ ;; Keywords: mail, news, MIME, multimedia, multilingual ;; This file is part of tm (Tools for MIME). @@ -120,7 +120,7 @@ ;;; (defconst mime-editor/RCS-ID - "$Id: tm-edit.el,v 1.2 1996/12/28 21:03:13 steve Exp $") + "$Id: tm-edit.el,v 1.3 1997/01/03 03:10:30 steve Exp $") (defconst mime-editor/version (get-version-string mime-editor/RCS-ID)) @@ -749,6 +749,8 @@ --[[text/plain]] This is also a plain text. But, it is explicitly specified as is. + --[[text/plain; charset=ISO-2022-JP]] + ...Japanese text here.... --[[text/richtext]] <center>This is a richtext.</center> --[[image/gif][base64]]^M...image encoded in base64 here...
--- a/lisp/utils/autoload.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/utils/autoload.el Mon Aug 13 09:05:42 2007 +0200 @@ -1,5 +1,4 @@ ;;; autoload.el --- maintain autoloads in loaddefs.el. - ;;; Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc. ;;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. ;;; Copyright (C) 1996 Ben Wing. @@ -7,23 +6,24 @@ ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> ;; Keywords: maint -;;; 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. -;;; -;;; A copy of the GNU General Public License can be obtained from this -;;; program's author (send electronic mail to roland@ai.mit.edu) or from -;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA -;;; 02139, USA. -;;; +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. -;;; Synched up with: FSF 19.30. +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Synched up with: Not synched with FSF. ;;; Commentary: @@ -59,9 +59,9 @@ (put 'define-skeleton 'doc-string-elt 3) -(defconst generate-autoload-cookie ";;;###autoload" +(defvar generate-autoload-cookie ";;;###autoload" "Magic comment indicating the following form should be autoloaded. -Used by \\[update-file-autoloads]. This string should be +Used by `update-file-autoloads'. This string should be meaningless to Lisp (e.g., a comment). This string is used: @@ -69,17 +69,17 @@ ;;;###autoload \(defun function-to-be-autoloaded () ...) -If this string appears alone on a line, the following form will be read and -an autoload made for it. If it is followed by the string \"immediate\", -then the form on the following will be copied verbatim. If there is further -text on the line, that text will be copied verbatim to -`generated-autoload-file'.") +If this string appears alone on a line, the following form will be +read and an autoload made for it. If it is followed by the string +\"immediate\", then the form on the following line will be copied +verbatim. If there is further text on the line, that text will be +copied verbatim to `generated-autoload-file'.") -(defconst generate-autoload-section-header "\f\n;;;### " +(defvar generate-autoload-section-header "\f\n;;;### " "String inserted before the form identifying the section of autoloads for a file.") -(defconst generate-autoload-section-trailer "\n;;;***\n" +(defvar generate-autoload-section-trailer "\n;;;***\n" "String which indicates the end of the section of autoloads for a file.") ;;; Forms which have doc-strings which should be printed specially. @@ -107,12 +107,11 @@ (put 'defmacro 'doc-string-elt 3) (defun autoload-trim-file-name (file) - ;; returns a relative pathname of FILE including the last directory. + "Returns a relative pathname of FILE including the last directory." (setq file (expand-file-name file)) - (file-relative-name file - (file-name-directory - (directory-file-name - (file-name-directory file))))) + (file-relative-name file (file-name-directory + (directory-file-name + (file-name-directory file))))) ;;;###autoload (defun generate-file-autoloads (file &optional funlist) @@ -122,17 +121,25 @@ If FILE is being visited in a buffer, the contents of the buffer are used." (interactive "fGenerate autoloads for file: ") + (generate-file-autoloads-1 file funlist)) + +(defun* generate-file-autoloads-1 (file funlist) + "Insert at point a loaddefs autoload section for FILE. +autoloads are generated for defuns and defmacros in FILE +marked by `generate-autoload-cookie' (which see). +If FILE is being visited in a buffer, the contents of the buffer +are used." (let ((outbuf (current-buffer)) (autoloads-done '()) - (load-name (let ((name (file-name-nondirectory file))) - (if (string-match "\\.elc?$" name) - (substring name 0 (match-beginning 0)) - name))) + (load-name (replace-in-string (file-name-nondirectory file) + "\\.elc?$" + "")) + (trim-name (autoload-trim-file-name file)) (dofiles (not (null funlist))) (print-length nil) (print-readably t) ; XEmacs (float-output-format nil) - (done-any nil) + ;; (done-any nil) (visited (get-file-buffer file)) output-end) @@ -144,23 +151,21 @@ ;; subdirectory of the current buffer's directory, we'll make it ;; relative to the current buffer's directory. (setq file (expand-file-name file)) - (let* ((source-truename (file-truename file)) - (dir-truename (file-name-as-directory - (file-truename default-directory))) - (len (length dir-truename))) - (if (and (< len (length source-truename)) - (string= dir-truename (substring source-truename 0 len))) - (setq file (substring source-truename len)))) - (message "Generating autoloads for %s..." file) (save-excursion (unwind-protect (progn - (set-buffer (find-file-noselect file)) + (set-buffer (or visited (find-file-noselect file))) (save-excursion (save-restriction (widen) (goto-char (point-min)) + (unless (search-forward generate-autoload-cookie nil t) + (message "No autoloads found in %s" trim-name) + (return-from generate-file-autoloads-1)) + + (message "Generating autoloads for %s..." trim-name) + (goto-char (point-min)) (while (if dofiles funlist (not (eobp))) (if (not dofiles) (skip-chars-forward " \t\n\f") @@ -177,7 +182,7 @@ nil (search-forward generate-autoload-cookie) (skip-chars-forward " \t")) - (setq done-any t) + ;; (setq done-any t) (if (or dofiles (eolp)) ;; Read the next form and make an autoload. (let* ((form (prog1 (read (current-buffer)) @@ -286,7 +291,7 @@ (forward-line 1))) (if dofiles (setq funlist (cdr funlist))))))) - (or visited + (unless visited ;; We created this buffer, so we should kill it. (kill-buffer (current-buffer))) (set-buffer outbuf) @@ -296,15 +301,15 @@ ;; that we've processed the file already. (progn (insert generate-autoload-section-header) - (prin1 (list 'autoloads autoloads-done load-name - (autoload-trim-file-name file) - (nth 5 (file-attributes file))) + (prin1 (list 'autoloads autoloads-done load-name trim-name) outbuf) (terpri outbuf) - (insert ";;; Generated autoloads from " - (autoload-trim-file-name file) "\n") + ;;;; (insert ";;; Generated autoloads from " + ;;;; (autoload-trim-file-name file) "\n") ;; Warn if we put a line in loaddefs.el ;; that is long enough to cause trouble. + (when (< output-end (point)) + (setq output-end (point-marker))) (while (< (point) output-end) (let ((beg (point))) (end-of-line) @@ -318,129 +323,58 @@ (insert generate-autoload-section-trailer))) (or noninteractive ; XEmacs: only need one line in -batch mode. (message "Generating autoloads for %s...done" file)))) + -(defconst generated-autoload-file (expand-file-name "../lisp/prim/loaddefs.el" - data-directory) - "*File \\[update-file-autoloads] puts autoloads into. +(defvar generated-autoload-file + (expand-file-name "../lisp/prim/auto-autoloads.el" data-directory) + "*File `update-file-autoloads' puts autoloads into. A .el file can set this in its local variables section to make its autoloads go somewhere else.") -(defvar generate-autoload-dynamic-but-inefficient nil - "If non-nil, `update-file-autoloads' will always read in its files. -This allows you to bind `generated-autoload-file' in your local variables -(do you really want to do that?) but makes it very slow in updating -lots of files.") - ;;;###autoload (defun update-file-autoloads (file) "Update the autoloads for FILE in `generated-autoload-file' \(which FILE might bind in its local variables)." (interactive "fUpdate autoloads for file: ") - ;; avoid horrid horrid problems with relative filenames. - (setq file (expand-file-name file default-directory)) - (let ((load-name (let ((name (file-name-nondirectory file))) - (if (string-match "\\.elc?$" name) - (substring name 0 (match-beginning 0)) - name))) + (setq file (expand-file-name file)) + (let ((load-name (replace-in-string (file-name-nondirectory file) + "\\.elc?$" + "")) (trim-name (autoload-trim-file-name file)) - (found nil) - (pass 'first) - (existing-buffer (get-file-buffer file))) + section-begin form) (save-excursion - ;; We want to get a value for generated-autoload-file from - ;; the local variables section if it's there. - (and generate-autoload-dynamic-but-inefficient - (set-buffer (find-file-noselect file))) (set-buffer (or (get-file-buffer generated-autoload-file) (find-file-noselect generated-autoload-file))) - (save-excursion - (save-restriction - (widen) - (while pass - ;; This is done in two passes: - ;; 1st pass: Look for the section for LOAD-NAME anywhere in the file. - ;; 2st pass: Find a place to insert it. Use alphabetical order. - (goto-char (point-min)) - (while (and (not found) - (search-forward generate-autoload-section-header nil t)) - (let ((form (condition-case () - (read (current-buffer)) - (end-of-file nil)))) - (cond ((and (eq pass 'first) - (string= (nth 2 form) load-name)) - ;; We found the section for this file. - ;; Check if it is up to date. - (let ((begin (match-beginning 0)) - (last-time (nth 4 form)) - (file-time (nth 5 (file-attributes file)))) - (if (and (or (null existing-buffer) - (not (buffer-modified-p existing-buffer))) - (listp last-time) (= (length last-time) 2) - (or (> (car last-time) (car file-time)) - (and (= (car last-time) (car file-time)) - (>= (nth 1 last-time) - (nth 1 file-time))))) - (progn - (or noninteractive - ;; jwz: too loud in -batch mode - (message - "Autoload section for %s is up to date." - file)) - (setq found 'up-to-date)) - ;; Okay, we found it and it's not up to date... - (search-forward generate-autoload-section-trailer) - (delete-region begin (point)) - ;; if the file has moved, then act like it hasn't - ;; been found and then reinsert it alphabetically. - (setq found (string= trim-name (nth 3 form))) - ))) - ;; XEmacs change -- we organize by sub-directories - ;; so inserting new autoload entries is a bit tricky... - ((and (eq pass 'last) - (string< trim-name (nth 3 form))) - ;; We've come to a section alphabetically later than - ;; LOAD-NAME. We assume the file is in order and so - ;; there must be no section for LOAD-NAME. We will - ;; insert one before the section here. - (goto-char (match-beginning 0)) - (setq found 'new)) - ))) - (cond (found - (setq pass nil)) ; success -- exit loop - ((eq pass 'first) - (setq pass 'last)) - (t - ;; failure -- exit loop - (setq pass nil)))) - (or (eq found 'up-to-date) - ;; XEmacs -- don't do the following. If we do, then - ;; every time we update autoloads we have to search - ;; the whole file (yuck). -; (and (eq found 'new) -; ;; Check that FILE has any cookies before generating a -; ;; new section for it. -; (save-excursion -; (set-buffer (find-file-noselect file)) -; (save-excursion -; (widen) -; (goto-char (point-min)) -; (if (search-forward (concat "\n" -; generate-autoload-cookie) -; nil t) -; nil -; (if (interactive-p) -; (message file " has no autoloads")) -; t)))) - (generate-file-autoloads file)))) - (if (interactive-p) (save-buffer)) - (if (and (null existing-buffer) - (setq existing-buffer (get-file-buffer file))) - (kill-buffer existing-buffer))))) + ;; First delete all sections for this file. + (goto-char (point-min)) + (while (search-forward generate-autoload-section-header nil t) + (setq section-begin (match-beginning 0)) + (setq form (read (current-buffer))) + (when (string= (nth 2 form) load-name) + (search-forward generate-autoload-section-trailer) + (delete-region section-begin (point)))) + + ;; Now find insertion point for new section + (block find-insertion-point + (goto-char (point-min)) + (while (search-forward generate-autoload-section-header nil t) + (setq form (read (current-buffer))) + (when (string< trim-name (nth 3 form)) + ;; Found alphabetically correct insertion point + (goto-char (match-beginning 0)) + (return-from find-insertion-point)) + (search-forward generate-autoload-section-trailer)) + (when (eq (point) (point-min)) ; No existing entries? + (goto-char (point-max)))) ; Append. + + ;; Add in new sections for file + (generate-file-autoloads file)) + + (when (interactive-p) (save-buffer)))) ;;;###autoload (defun update-autoloads-here () - "\ -Update sections of the current buffer generated by \\[update-file-autoloads]." + "Update sections of the current buffer generated by `update-file-autoloads'." (interactive) (let ((generated-autoload-file (buffer-file-name))) (save-excursion @@ -469,15 +403,18 @@ (setq file loc) nil)))))) (t - (setq file (if (y-or-n-p (format "Can't find library `%s'; remove its autoloads? " - (nth 2 form) file)) - t - (condition-case () - (read-file-name - (format "Find `%s' load file: " - (nth 2 form)) - nil nil t) - (quit nil)))))) + (setq file + (if (y-or-n-p + (format + "Can't find library `%s'; remove its autoloads? " + (nth 2 form) file)) + t + (condition-case () + (read-file-name + (format "Find `%s' load file: " + (nth 2 form)) + nil nil t) + (quit nil)))))) (if file (let ((begin (match-beginning 0))) (search-forward generate-autoload-section-trailer) @@ -486,58 +423,62 @@ (generate-file-autoloads file))))))) ;;;###autoload -(defun update-directory-autoloads (dir) - "Run \\[update-file-autoloads] on each .el file in DIR." +(defun update-autoloads-from-directory (dir) + "Update `generated-autoload-file' with all the current autoloads from DIR. +This runs `update-file-autoloads' on each .el file in DIR. +Obsolete autoload entries for files that no longer exist are deleted." (interactive "DUpdate autoloads for directory: ") - (let ((enable-local-eval nil)) - (mapcar 'update-file-autoloads - (directory-files dir t "^[^=].*\\.el$"))) - (if (interactive-p) - (save-excursion - (set-buffer (find-file-noselect generated-autoload-file)) - (save-buffer)))) + (setq dir (expand-file-name dir)) + (let ((simple-dir (file-name-as-directory + (file-name-nondirectory + (directory-file-name dir)))) + (enable-local-eval nil)) + (save-excursion + (set-buffer (find-file-noselect generated-autoload-file)) + (goto-char (point-min)) + (while (search-forward generate-autoload-section-header nil t) + (let* ((begin (match-beginning 0)) + (form (condition-case () + (read (current-buffer)) + (end-of-file nil))) + (file (nth 3 form))) + (when (and (stringp file) + (string= (file-name-directory file) simple-dir) + (not (file-exists-p + (expand-file-name + (file-name-nondirectory file) dir)))) + ;; Remove the obsolete section. + (search-forward generate-autoload-section-trailer) + (delete-region begin (point))))) + ;; Update or create autoload sections for existing files. + (mapcar 'update-file-autoloads (directory-files dir t "^[^=].*\\.el$")) + (unless noninteractive + (save-buffer))))) ;;;###autoload (defun batch-update-autoloads () "Update the autoloads for the files or directories on the command line. -Runs \\[update-file-autoloads] on files and \\[update-directory-autoloads] +Runs `update-file-autoloads' on files and `update-directory-autoloads' on directories. 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-update-autoloads *.el'." - (if (not noninteractive) - (error "batch-update-autoloads is to be used only with -batch")) - (let ((lost nil) - (args command-line-args-left) - (defdir default-directory) - (enable-local-eval nil)) ;Don't query in batch mode. +For example, invoke `xemacs -batch -f batch-update-autoloads *.el'." + (unless noninteractive + (error "batch-update-autoloads is to be used only with -batch")) + (let ((defdir default-directory) + (enable-local-eval nil)) ; Don't query in batch mode. (message "Updating autoloads in %s..." generated-autoload-file) - (let ((frob (function - (lambda (file) - (condition-case lossage - (let ((default-directory defdir)) - (update-file-autoloads file)) - (error - (princ ">>Error processing ") - (princ file) - (princ ": ") - (if (fboundp 'display-error) - (display-error lossage nil) - (prin1 lossage)) - (princ "\n") - (setq lost t))))))) - (while args - (if (file-directory-p (expand-file-name (car args))) - (let ((rest (directory-files (car args) t "\\.el$"))) - (if noninteractive - (message "Processing directory %s..." (car args))) - (while rest - (funcall frob (car rest)) - (setq rest (cdr rest)))) - (funcall frob (car args))) - (setq args (cdr args)))) + (dolist (arg command-line-args-left) + (setq arg (expand-file-name arg defdir)) + (cond + ((file-directory-p arg) + (message "Updating autoloads for directory %s..." arg) + (update-autoloads-from-directory arg)) + ((file-exists-p arg) + (update-file-autoloads arg)) + (t (error "No such file or directory: %s" arg)))) (save-some-buffers t) (message "Done") - (kill-emacs (if lost 1 0)))) + (kill-emacs 0))) (provide 'autoload)
--- a/lisp/utils/browse-url.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/utils/browse-url.el Mon Aug 13 09:05:42 2007 +0200 @@ -9,21 +9,22 @@ ;; Keywords: hypertext ;; X-Home page: http://wombat.doc.ic.ac.uk/ -;; This file is part of GNU Emacs. +;; This file is part of XEmacs. -;; 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 1, or (at your -;; option) any later version. +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 1, or (at your option) +;; any later version. -;; GNU Emacs is distributed in the hope that it will be useful, but +;; XEmacs is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Commentary:
--- a/lisp/utils/easymenu.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/utils/easymenu.el Mon Aug 13 09:05:42 2007 +0200 @@ -1,27 +1,30 @@ ;;; easymenu.el - Easy menu support for Emacs 19 and XEmacs. ;; -;; $Id: easymenu.el,v 1.1.1.1 1996/12/18 22:43:01 steve Exp $ +;; $Id: easymenu.el,v 1.2 1997/01/03 03:10:33 steve Exp $ ;; ;; LCD Archive Entry: ;; easymenu|Per Abrahamsen|abraham@iesd.auc.dk| ;; Easy menu support for XEmacs| -;; $Date: 1996/12/18 22:43:01 $|$Revision: 1.1.1.1 $|~/misc/easymenu.el.gz| +;; $Date: 1997/01/03 03:10:33 $|$Revision: 1.2 $|~/misc/easymenu.el.gz| ;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc. -;; -;; This program is free software; you can redistribute it and/or modify + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. -;; -;; This program is distributed in the hope that it will be useful, + +;; XEmacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. -;; + ;; You should have received a copy of the GNU General Public License -;; along with this program; if not, write to the Free Software -;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +;; along with XEmacs; if not, write to the Free Software +;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. ;;; Synched up with: Not synched with FSF. ;;; In RMS's typical lame-ass way, he removed all support for
--- a/lisp/utils/facemenu.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/utils/facemenu.el Mon Aug 13 09:05:42 2007 +0200 @@ -5,21 +5,22 @@ ;; Original author: Boris Goldowsky <boris@gnu.ai.mit.edu> ;; Keywords: faces -;; This file is part of GNU Emacs. +;; This file is part of XEmacs. -;; 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 +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. -;; 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. +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. ;;; Synched up with: FSF 19.30.
--- a/lisp/utils/map-ynp.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/utils/map-ynp.el Mon Aug 13 09:05:42 2007 +0200 @@ -5,20 +5,22 @@ ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> ;; Keywords: lisp, extensions -;;; 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 1, 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. -;;; -;;; A copy of the GNU General Public License can be obtained from this -;;; program's author (send electronic mail to roland@ai.mit.edu) or from -;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA -;;; 02139, USA. +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. ;;; Synched up with: FSF 19.30.
--- a/lisp/utils/pretty-print.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/utils/pretty-print.el Mon Aug 13 09:05:42 2007 +0200 @@ -6,20 +6,25 @@ ;; This file is written in GNU Emacs Lisp, but is not part of GNU Emacs. -;; The software contained in 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, or (at your option) any later version. +;; This file is part of XEmacs. -;; 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. +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;; +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Synched up with: Not in FSF. + ;; Please send bugs and comments to the author. ;; ;; <DISCLAIMER> @@ -109,8 +114,8 @@ ; Change History ; ; $Log: pretty-print.el,v $ -; Revision 1.1.1.1 1996/12/18 22:51:29 steve -; XEmacs 20.0 -- Beta 31 +; Revision 1.2 1997/01/03 03:10:34 steve +; Main beta 34 patches ; ; Revision 1.4 1993/03/25 14:09:52 bosch ; Commands `prettyexpand-sexp' and `prettyexpand-all-sexp' and
--- a/lisp/utils/text-props.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/utils/text-props.el Mon Aug 13 09:05:42 2007 +0200 @@ -22,8 +22,9 @@ ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to -;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. ;;; Synched up with: Not in FSF.
--- a/lisp/utils/thing.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/utils/thing.el Mon Aug 13 09:05:42 2007 +0200 @@ -29,8 +29,9 @@ ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to -;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. ;;; Synched up with: Not in FSF. ;;; #### FSF has thingatpt.el, which does the same thing. Should merge
--- a/lisp/version.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/version.el Mon Aug 13 09:05:42 2007 +0200 @@ -25,7 +25,7 @@ (defconst emacs-version "20.0" "Version numbers of this version of Emacs.") -(setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta33)"))) +(setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta34)"))) (defconst emacs-major-version (progn (or (string-match "^[0-9]+" emacs-version)
--- a/lisp/viper/Makefile Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/viper/Makefile Mon Aug 13 09:05:42 2007 +0200 @@ -7,7 +7,7 @@ # variables VERSION, EMACS, DATADIR and comment out the Emacs-specific # versions. -VERSION = 19.31 +VERSION = 19.34 EMACS = emacs-$(VERSION) #VERSION = 19.14 #EMACS = xemacs-$(VERSION) @@ -124,7 +124,7 @@ install: all $(INSTALL) -m444 $(VIPER) $(LISPDIR) $(INSTALL) -m644 viper*.elc $(LISPDIR) - $(INSTALL) -m444 viper.info* $(INFODIR) + $(INSTALL) -m444 viper viper-? $(INFODIR) $(INSTALL) -m644 viper.dvi viperCard.dvi $(ETCDIR) @echo "" @echo "Please move viper.texi and viper-cmd.texi to"
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/viper/README Mon Aug 13 09:05:42 2007 +0200 @@ -0,0 +1,113 @@ +**** Viper requires Emacs 19.23 or later. + +This directory: + +README -- This file +Makefile -- Automated installation file + +viper.el -- Viper Emacs Lisp code +viper-macs.el -- Viper Emacs Lisp code +viper-ex.el -- Viper Emacs Lisp code +viper-util.el -- Viper Emacs Lisp code +viper-mous.el -- Viper Emacs Lisp code +viper-keym.el -- Viper Emacs Lisp code + +viper.texi -- Manual in Texinfo format, main part +viper-cmd.texi -- Command reference part of the manual + +viperCard.tex -- Reference card in TeX format + +viper, viper-? -- The Info files + +viper.dvi -- Dvi version of the Viper manual +viperCard.dvi -- Dvi version of the quick reference card + +To install Viper, do: + + uncompress viper.tar.Z + tar xf viper.tar + + +Then do the following: + +1. To compile Lisp: + + make elc + + Since the DVI and Info files are bundled with the distribution, this is + the only make command you need. + +2. To recompile the DVI files (if you have to), type: + + make dvi + +3. To re-make the info files (if needed), type: + + make info + +4. To redo everything: + + make all + + "make all" is useful if you made your own changes to the *.texi or + *.el files. This way, this single command will recompile exactly what's + needed. + +5. You can also run + + make install + + to do what "make all" does plus to copy viper*.elc into + a suitable Lisp directory and Viper Info files into the Info + directory; DVI files containing printable version of Viper + Manual and Reference Card will be copied into the 'etc' directory. + + You will still have to edit the 'dir' file manually (see below), if + you haven't done so during a previous installation. + + To make all this happen, you will most likely have to change the PREFIX + variable in Makefile and, possibly, one or more of these variables: + + DATADIR, LISPDIR, INFODIR, ETCDIR, and VERSION + + if they don't point to the right directories in your installation. + You also need to have a write permission for all directories + mentioned in LISPDIR, INFODIR, and ETCDIR. + +6. XEmacs users must invoke make with the parameter EMACS=xemacs + or whatever name is used to invoke XEmacs (some sites still use xemacs + for Emacs 18). An even better thing would be to edit Makefile directly + as indicated in the comments there. + +For manual installation, copy viper.elc into a directory on your load-path. + +To install on-line documentation, you need to install the Info files +by copying the files + +viper.info* + +into your Info directory (which is emacs-root-dir/info, +if emacs-root-dir is the root directory of the installation). + +Then edit the file + +emacs-root-dir/info/dir + +to include the root menu item for Viper (check how other menu +items look like in this file). + +In Emacs, this item should look like this: + +* Viper: (viper.info). A VI Plan to Rescue Emacs and a venomous VI PERil + +In XEmacs, it should look like: + +* Viper:: A VI Plan to Rescue Emacs and a venomous VI PERil + + +If you need a hard copy of the documentation, the files + +viper.dvi +viperCard.dvi + +contain the Viper manual and the quick reference card, respectively.
--- a/lisp/viper/viper-ex.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/viper/viper-ex.el Mon Aug 13 09:05:42 2007 +0200 @@ -285,6 +285,7 @@ ;; A token has a type, \(command, address, end-mark\), and a value (defun vip-get-ex-token () (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (skip-chars-forward " \t|") (cond ((looking-at "#") @@ -420,6 +421,7 @@ "!*"))) (save-window-excursion ;; put cursor at the end of the Ex working buffer + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (goto-char (point-max))) (cond ((vip-looking-back quit-regex1) (exit-minibuffer)) @@ -497,8 +499,7 @@ map))) (save-window-excursion ;; just a precaution - (or (vip-buffer-live-p vip-ex-work-buf) - (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name))) + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (delete-region (point-min) (point-max)) (insert com-str "\n") @@ -518,6 +519,8 @@ (t (vip-execute-ex-command) (save-window-excursion + (setq vip-ex-work-buf + (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (skip-chars-forward " \t") (cond ((looking-at "|") @@ -554,6 +557,7 @@ ;; Get a regular expression and set `ex-variant', if found (defun vip-get-ex-pat () (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (skip-chars-forward " \t") (if (looking-at "!") @@ -590,6 +594,7 @@ ;; get an ex command (defun vip-get-ex-command () (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (if (looking-at "/") (forward-char 1)) (skip-chars-forward " \t") @@ -605,6 +610,7 @@ ;; Get an Ex option g or c (defun vip-get-ex-opt-gc (c) (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (if (looking-at (format "%c" c)) (forward-char 1)) (skip-chars-forward " \t") @@ -716,6 +722,7 @@ (setq ex-count nil) (setq ex-flag nil) (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (skip-chars-forward " \t") (if (looking-at "[a-zA-Z]") @@ -741,6 +748,7 @@ ex-count nil ex-flag nil) (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (skip-chars-forward " \t") (if (looking-at "!") @@ -802,6 +810,7 @@ ex-cmdfile nil) (save-excursion (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (skip-chars-forward " \t") (if (looking-at "!") @@ -1167,12 +1176,14 @@ (if (null (setq file (get-file-buffer ex-file))) (progn (ex-find-file ex-file) - (vip-change-state-to-vi) + (or (eq major-mode 'dired-mode) + (vip-change-state-to-vi)) (goto-char (point-min))) (switch-to-buffer file)) (if ex-offset (progn (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (delete-region (point-min) (point-max)) (insert ex-offset "\n") @@ -1181,13 +1192,16 @@ (beginning-of-line))) (ex-fixup-history vip-last-ex-prompt ex-file)) -;; Splits the string FILESPEC into substrings separated by newlines. +;; Find-file FILESPEC if it appears to specify a single file. +;; Otherwise, assume that FILES{EC is a wildcard. +;; In this case, split it into substrings separated by newlines. ;; Each line is assumed to be a file name. find-file's each file thus obtained. (defun ex-find-file (filespec) - (let ((nonstandard-filename-chars "[^a-zA-Z0-9_.-/,\\]")) - (if (string-match nonstandard-filename-chars filespec) - (funcall ex-nontrivial-find-file-function filespec) - (find-file filespec)) + (let ((nonstandard-filename-chars "[^-a-zA-Z0-9_./,~$\\]")) + (cond ((file-exists-p filespec) (find-file filespec)) + ((string-match nonstandard-filename-chars filespec) + (funcall ex-nontrivial-find-file-function filespec)) + (t (find-file filespec))) )) @@ -1241,6 +1255,7 @@ (forward-line -1) (end-of-line))))) (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (setq com-str (buffer-substring (1+ (point)) (1- (point-max))))) (while marks @@ -1312,6 +1327,7 @@ (setq ex-addresses (cons (point) nil))) (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (skip-chars-forward " \t") (if (looking-at "[a-z]") @@ -1446,6 +1462,7 @@ (defun ex-quit () ;; skip "!", if it is q!. In Viper q!, w!, etc., behave as q, w, etc. (save-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (if (looking-at "!") (forward-char 1))) (if (< vip-expert-level 3) @@ -1679,6 +1696,7 @@ ;; special meaning (defun ex-get-inline-cmd-args (regex-forw &optional chars-back replace-str) (save-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (goto-char (point-min)) (re-search-forward regex-forw nil t) @@ -1812,6 +1830,7 @@ (defun ex-tag () (let (tag) (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (skip-chars-forward " \t") (set-mark (point)) @@ -1945,6 +1964,7 @@ (defun ex-command () (let (command) (save-window-excursion + (setq vip-ex-work-buf (get-buffer-create vip-ex-work-buf-name)) (set-buffer vip-ex-work-buf) (skip-chars-forward " \t") (setq command (buffer-substring (point) (point-max)))
--- a/lisp/viper/viper-keym.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/viper/viper-keym.el Mon Aug 13 09:05:42 2007 +0200 @@ -25,6 +25,18 @@ ;;; Variables +(defvar vip-toggle-key "\C-z" + "The key used to change states from emacs to Vi and back. +In insert mode, this key also functions as Meta. +Must be set in .vip file or prior to loading Viper. +This setting cannot be changed interactively.") + +(defvar vip-ESC-key "\e" + "Key used to ESC. +Must be set in .vip file or prior to loading Viper. +This setting cannot be changed interactively.") + + ;;; Keymaps ;; Keymaps for vital things like \e and C-z. @@ -177,6 +189,8 @@ (if vip-xemacs-p [(shift tab)] [S-tab]) 'vip-insert-tab) (define-key vip-insert-basic-map "\C-v" 'quoted-insert) (define-key vip-insert-basic-map "\C-?" 'vip-del-backward-char-in-insert) +(define-key vip-insert-basic-map "\C-\\" 'vip-alternate-Meta-key) +(define-key vip-insert-basic-map vip-toggle-key 'vip-escape-to-vi) (define-key vip-insert-basic-map "\C-c\M-p" 'vip-insert-prev-from-insertion-ring) (define-key vip-insert-basic-map "\C-c\M-n" @@ -195,16 +209,15 @@ (define-key vip-vi-basic-map "\C-^" (function (lambda () (interactive) (vip-ex "e#")))) -(define-key vip-vi-basic-map "\C-b" 'vip-scroll-back) +(define-key vip-vi-basic-map "\C-b" 'vip-scroll-screen-back) (define-key vip-vi-basic-map "\C-d" 'vip-scroll-up) (define-key vip-vi-basic-map "\C-e" 'vip-scroll-up-one) -(define-key vip-vi-basic-map "\C-f" 'vip-scroll) +(define-key vip-vi-basic-map "\C-f" 'vip-scroll-screen) (define-key vip-vi-basic-map "\C-m" 'vip-next-line-at-bol) (define-key vip-vi-basic-map "\C-u" 'vip-scroll-down) (define-key vip-vi-basic-map "\C-y" 'vip-scroll-down-one) (define-key vip-vi-basic-map "\C-s" 'vip-isearch-forward) (define-key vip-vi-basic-map "\C-r" 'vip-isearch-backward) -;(define-key vip-vi-basic-map "\C-\\" 'universal-argument) (define-key vip-vi-basic-map "\C-c/" 'vip-toggle-search-style) (define-key vip-vi-basic-map "\C-cg" 'vip-info-on-file) @@ -279,7 +292,7 @@ (define-key vip-vi-basic-map "\\" 'vip-escape-to-emacs) (define-key vip-vi-basic-map "[" 'vip-brac-function) (define-key vip-vi-basic-map "]" 'vip-ket-function) -(define-key vip-vi-basic-map "_" 'vip-alternate-ESC) +(define-key vip-vi-basic-map "\C-\\" 'vip-alternate-Meta-key) (define-key vip-vi-basic-map "^" 'vip-bol-and-skip-white) (define-key vip-vi-basic-map "`" 'vip-goto-mark) @@ -321,9 +334,10 @@ (define-key vip-vi-basic-map "}" 'vip-forward-paragraph) (define-key vip-vi-basic-map "~" 'vip-toggle-case) (define-key vip-vi-basic-map "\C-?" 'vip-backward-char) - +(define-key vip-vi-basic-map "_" 'vip-nil) + ;;; Escape from Emacs to Vi for one command -(global-set-key "\M-\C-z" 'vip-escape-to-vi) ;; in emacs-state +(global-set-key "\C-c\\" 'vip-escape-to-vi) ; everywhere ;;; This is vip-vi-diehard-map. Used when vip-vi-diehard-minor-mode is on. @@ -343,10 +357,11 @@ (define-key vip-vi-diehard-map "\C-v" 'vip-nil) (define-key vip-vi-diehard-map "\C-w" 'vip-nil) (define-key vip-vi-diehard-map "@" 'vip-nil) +(define-key vip-vi-diehard-map "_" 'vip-nil) (define-key vip-vi-diehard-map "*" 'vip-nil) (define-key vip-vi-diehard-map "#" 'vip-nil) (define-key vip-vi-diehard-map "\C-_" 'vip-nil) -(define-key vip-vi-diehard-map "\C-]" 'vip-nil);; This is actually tags. +(define-key vip-vi-diehard-map "\C-]" 'vip-nil) ; This is actually tags. ;;; Minibuffer keymap @@ -368,8 +383,24 @@ (define-key ex-read-filename-map " " 'vip-complete-filename-or-exit) (define-key ex-read-filename-map "!" 'vip-handle-!) +;; Some other maps +(defvar vip-slash-and-colon-map (make-sparse-keymap) + "This map redefines `/' and `:' to behave as in Vi. +Useful in some modes, such as Gnus, MH, etc.") +(define-key vip-slash-and-colon-map ":" 'vip-ex) +(define-key vip-slash-and-colon-map "/" 'vip-search-forward) - +(defvar vip-comint-mode-modifier-map (make-sparse-keymap) + "This map modifies comint mode.") +(define-key vip-comint-mode-modifier-map "\C-m" 'comint-send-input) +(define-key vip-comint-mode-modifier-map "\C-d" 'comint-delchar-or-maybe-eof) + +(defvar vip-dired-modifier-map (make-sparse-keymap) + "This map modifies Dired behavior.") +(define-key vip-dired-modifier-map ":" 'vip-ex) +(define-key vip-dired-modifier-map "/" 'vip-search-forward) + + ;;; Code @@ -410,9 +441,9 @@ (defun vip-zap-local-keys () "Unconditionally reset Viper vip-*-local-user-map's. -Rarely useful, but if u made a mistake by switching to a mode that adds -undesirable local keys, e.g., comint-mode, then this function can return -you to sanity." +Rarely useful, but if you made a mistake by switching to a mode that adds +undesirable local keys, e.g., comint-mode, then this function can restore +sanity." (interactive) (setq vip-vi-local-user-map (make-sparse-keymap) vip-need-new-vi-local-map nil
--- a/lisp/viper/viper-mous.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/viper/viper-mous.el Mon Aug 13 09:05:42 2007 +0200 @@ -354,8 +354,10 @@ vip-mouse-click-search-limit nil))) (goto-char (match-beginning 0)) (message "Searching for: %s" vip-s-string) - (if (<= arg 1) - (vip-flash-search-pattern)) + (if (<= arg 1) ; found the right occurrence of the pattern + (progn + (vip-adjust-window) + (vip-flash-search-pattern))) ) (error (beep 1) (if (or (not (string= click-word previous-search-string))
--- a/lisp/viper/viper-util.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/viper/viper-util.el Mon Aug 13 09:05:42 2007 +0200 @@ -55,7 +55,12 @@ (device-type (selected-device)))) ;; in XEmacs: device-type is tty on tty and stream in batch. (defun vip-window-display-p () - (and (vip-device-type) (not (memq (vip-device-type) '(tty stream))))) + (and (vip-device-type) (not (memq (vip-device-type) '(tty stream pc))))) + +(defvar vip-ms-style-os-p (memq system-type '(ms-dos windows-nt windows-95)) + "Tells if Emacs is running under an MS-style OS: ms-dos, windows-nt, W95.") +(defvar vip-vms-os-p (memq system-type '(vax-vms axp-vms)) + "Tells if Emacs is running under VMS.") (defvar vip-force-faces nil "If t, Viper will think that it is running on a display that supports faces. @@ -194,7 +199,19 @@ (eq (device-class (selected-device)) 'color))) (defsubst vip-get-cursor-color () - (cdr (assoc 'cursor-color (frame-parameters)))) + (if vip-emacs-p + (cdr (assoc 'cursor-color (frame-parameters))) + (color-instance-name (frame-property (selected-frame) 'cursor-color)))) + +(defun vip-set-face-pixmap (face pixmap) + "Set face pixmap on a monochrome display." + (if (and (vip-window-display-p) (not (vip-color-display-p))) + (condition-case nil + (set-face-background-pixmap face pixmap) + (error + (message "Pixmap not found for %S: %s" (face-name face) pixmap) + (sit-for 1))))) + ;; OS/2 (cond ((eq (vip-device-type) 'pm) @@ -232,10 +249,13 @@ (not (string= color vip-replace-overlay-cursor-color))) (vip-overlay-put vip-replace-overlay 'vip-cursor-color color))))) -(defsubst vip-restore-cursor-color () +;; restore cursor color from replace overlay +(defsubst vip-restore-cursor-color-after-replace () (vip-change-cursor-color (vip-overlay-get vip-replace-overlay 'vip-cursor-color))) - +(defsubst vip-restore-cursor-color-after-insert () + (vip-change-cursor-color vip-saved-cursor-color)) + ;; Check the current version against the major and minor version numbers ;; using op: cur-vers op major.minor If emacs-major-version or @@ -418,11 +438,11 @@ ;; using cond in anticipation of further additions (cond (ex-unix-type-shell-options) )) - (command (cond (vip-ms-style-os-p (format "\"ls -1 %s\"" filespec)) - (t (format "ls -1 %s" filespec)))) - file-list) + (command (cond (vip-ms-style-os-p (format "\"ls -1 -d %s\"" filespec)) + (t (format "ls -1 -d %s" filespec)))) + file-list status) (save-excursion - (set-buffer (setq tmp-buf (get-buffer-create vip-ex-tmp-buf-name))) + (set-buffer (get-buffer-create vip-ex-tmp-buf-name)) (erase-buffer) (setq status (if gshell-options @@ -462,7 +482,7 @@ `ex-nontrivial-find-file-function'. If this doesn't work, the user may have to write a custom function, similar to `vip-ex-nontrivial-find-file-unix'." (save-excursion - (set-buffer (setq tmp-buf (get-buffer-create vip-ex-tmp-buf-name))) + (set-buffer (get-buffer-create vip-ex-tmp-buf-name)) (erase-buffer) (insert filespec) (goto-char (point-min)) @@ -475,7 +495,7 @@ ;; return a list of file names listed in the buffer beginning at point ;; If optional arg is supplied, assume each filename is listed on a separate ;; line -(defun vip-get-filenames-from-buffer (one-per-line) +(defun vip-get-filenames-from-buffer (&optional one-per-line) (let ((skip-chars (if one-per-line "\t\n" " \t\n")) result fname delim) (skip-chars-forward skip-chars) @@ -500,7 +520,7 @@ ;; convert MS-DOS wildcards to regexp (defun vip-wildcard-to-regexp (wcard) (save-excursion - (set-buffer (setq tmp-buf (get-buffer-create vip-ex-tmp-buf-name))) + (set-buffer (get-buffer-create vip-ex-tmp-buf-name)) (erase-buffer) (insert wcard) (goto-char (point-min)) @@ -536,7 +556,11 @@ (setq tmp (cdr tmp))) (reverse (apply 'append tmp2)))) - +(defun vip-convert-standard-file-name (fname) + (if vip-emacs-p + (convert-standard-filename fname) + ;; hopefully, XEmacs adds this functionality + fname)) @@ -736,6 +760,7 @@ (sit-for 2) (vip-overlay-put vip-search-overlay 'face nil)))) + ;; Replace state (defsubst vip-move-replace-overlay (beg end) @@ -767,7 +792,8 @@ (defsubst vip-hide-replace-overlay () (vip-set-replace-overlay-glyphs nil nil) - (vip-restore-cursor-color) + (vip-restore-cursor-color-after-replace) + (vip-restore-cursor-color-after-insert) (if (vip-has-face-support-p) (vip-overlay-put vip-replace-overlay 'face nil))) @@ -934,15 +960,17 @@ ;; This function lets function-key-map convert key sequences into logical ;; keys. This does a better job than vip-read-event when it comes to kbd -;; macros, since it enables certain macros to be shared between X and TTY -;; modes. +;; macros, since it enables certain macros to be shared between X and TTY modes +;; by correctly mapping key sequences for Left/Right/... (one an ascii +;; terminal) into logical keys left, right, etc. (defun vip-read-key () - (let ((overriding-local-map vip-overriding-map) + (let ((overriding-local-map vip-overriding-map) + (inhibit-quit t) key) (use-global-map vip-overriding-map) (setq key (elt (read-key-sequence nil) 0)) (use-global-map global-map) - key)) + key)) ;; Emacs has a bug in eventp, which causes (eventp nil) to return (nil) @@ -1126,9 +1154,8 @@ Usually contains ` ', linefeed, TAB or formfeed.") (defun vip-update-alphanumeric-class () - "Set the syntactic class of Viper alphanumeric symbols according to -the variable `vip-ALPHA-char-class'. Should be called in order for changes to -`vip-ALPHA-char-class' to take effect." + "Set the syntax class of Viper alphanumerals according to `vip-syntax-preference'. +Must be called in order for changes to `vip-syntax-preference' to take effect." (interactive) (setq-default vip-ALPHA-char-class
--- a/lisp/viper/viper.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/viper/viper.el Mon Aug 13 09:05:42 2007 +0200 @@ -8,7 +8,7 @@ ;; Copyright (C) 1994, 1995, 1996 Free Software Foundation, Inc. -(defconst viper-version "2.90 of June 19, 1996" +(defconst viper-version "2.91 of August 5, 1996" "The current version of Viper") ;; This file is part of GNU Emacs. @@ -24,8 +24,9 @@ ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. ;;; Commentary: @@ -88,7 +89,7 @@ ;; The same macro name can have several different definitions: ;; one global, several definitions for various major modes, and ;; definitions for specific buffers. -;; Bffer-specific definitions override mode-specific +;; Buffer-specific definitions override mode-specific ;; definitions, which, in turn, override global definitions. ;; ;; @@ -100,8 +101,8 @@ ;;; Acknowledgements: ;; ----------------- -;; Bug reports and ideas contributed by the following users -;; have helped improve Viper and the various versions of VIP. +;; Bug reports and ideas contributed by many users have helped +;; improve Viper and the various versions of VIP. ;; See the on-line manual for a complete list of contributors. ;; ;; @@ -155,8 +156,8 @@ ;; For instance, C-c will not have its standard Emacs binding ;; and so many of the goodies of Emacs are not available. ;; -;; An skilled user, should set vip-expert-level to at least 3. This will -;; enable ;; C-c and many Emacs facilities will become available. +;; A skilled user should set vip-expert-level to at least 3. This will +;; enable `C-c; and many Emacs facilities will become available. ;; In this case, vip-vi-diehard-minor-mode is inactive. ;; ;; Viper gurus should have at least @@ -336,7 +337,12 @@ ;;; Viper minor modes -;; This is not local in Emacs, so we make it local. +;; This must be local because although the stack of minor modes can be the same +;; for all buffers, the associated *keymaps* can be different. In Viper, +;; vip-vi-local-user-map, vip-insert-local-user-map, and others can have +;; different keymaps for different buffers. +;; Also, the keymaps associated with vip-vi/insert-state-modifier-minor-mode +;; can be different. (make-variable-buffer-local 'minor-mode-map-alist) ;; Mode for vital things like \e, C-z. @@ -473,26 +479,40 @@ (defvar vip-replace-overlay-cursor-color "Red" "*Cursor color to use in Replace state") - +(defvar vip-insert-state-cursor-color nil + "Cursor color for Viper insert state.") +(put 'vip-insert-state-cursor-color 'permanent-local t) +;; place to save cursor colow when switching to insert mode +(vip-deflocalvar vip-saved-cursor-color nil "") + (vip-deflocalvar vip-replace-overlay nil "") (put 'vip-replace-overlay 'permanent-local t) -(if (vip-has-face-support-p) - (progn - (make-face 'vip-replace-overlay-face) - (vip-hide-face 'vip-replace-overlay-face) - (or (face-differs-from-default-p 'vip-replace-overlay-face) - (progn - (if (vip-can-use-colors "darkseagreen2" "Black") - (progn - (set-face-background - 'vip-replace-overlay-face "darkseagreen2") - (set-face-foreground 'vip-replace-overlay-face "Black"))) - (set-face-underline-p 'vip-replace-overlay-face t)) - ))) - -(defvar vip-replace-overlay-face 'vip-replace-overlay-face - "*Face for highlighting replace regions on a window display.") +(defvar vip-replace-overlay-pixmap "gray3" + "Pixmap to use for search face on non-color displays.") +(defvar vip-search-face-pixmap "gray3" + "Pixmap to use for search face on non-color displays.") + + +(defun vip-set-replace-overlay-face () + (if (vip-has-face-support-p) + (defvar vip-replace-overlay-face + (progn + (make-face 'vip-replace-overlay-face) + (vip-hide-face 'vip-replace-overlay-face) + (or (face-differs-from-default-p 'vip-replace-overlay-face) + (progn + (if (vip-can-use-colors "darkseagreen2" "Black") + (progn + (set-face-background + 'vip-replace-overlay-face "darkseagreen2") + (set-face-foreground 'vip-replace-overlay-face "Black"))) + (set-face-underline-p 'vip-replace-overlay-face t) + (vip-set-face-pixmap + 'vip-replace-overlay-face vip-replace-overlay-pixmap))) + 'vip-replace-overlay-face) + "*Face for highlighting replace regions on a window display.") + )) (defvar vip-replace-region-end-delimiter "$" "A string marking the end of replacement regions. @@ -502,12 +522,10 @@ "A string marking the beginning of replacement regions. It is used only with TTYs or if `vip-use-replace-region-delimiters' is non-nil.") -(defvar vip-use-replace-region-delimiters - (or (not (vip-has-face-support-p)) (not (vip-color-display-p))) +(defvar vip-use-replace-region-delimiters (not (vip-has-face-support-p)) "*If non-nil, Viper will always use `vip-replace-region-end-delimiter' and `vip-replace-region-start-delimiter' to delimit replacement regions, even on -color displays. By default, the delimiters are used only on TTYs or -monochrome displays.") +color displays. By default, the delimiters are used only on TTYs.") ;; XEmacs requires glyphs (if vip-xemacs-p @@ -562,21 +580,8 @@ ;; Current mode. One of: `emacs-state', `vi-state', `insert-state' (vip-deflocalvar vip-current-state 'emacs-state) - -(defvar vip-toggle-key "\C-z" - "The key used to change states from emacs to Vi and back. -In insert mode, this key also functions as Meta. -Must be set in .vip file or prior to loading Viper. -This setting cannot be changed interactively.") - -(defvar vip-ESC-key "\e" - "Key used to ESC. -Must be set in .vip file or prior to loading Viper. -This setting cannot be changed interactively.") - (defvar vip-no-multiple-ESC t "*If true, multiple ESC in Vi mode will cause bell to ring. -\_ is then mapped to Meta. This is set to t on a windowing terminal and to 'twice on a dumb terminal (unless the user level is 1, 2, or 5). On a dumb terminal, this enables cursor keys and is generally more convenient, as terminals usually @@ -697,10 +702,14 @@ (defvar vip-s-forward nil) (defconst vip-case-fold-search nil - "*If t, search ignores cases.") + "*If not nil, search ignores case.") (defconst vip-re-search t - "*If t, search is reg-exp search, otherwise vanilla search.") + "*If not nil, search is reg-exp search, otherwise vanilla search.") + +(defvar vip-adjust-window-after-search t + "*If not nil, pull the window up or down, depending on the direction of the +search, if search ends up near the bottom or near the top of the window.") (defconst vip-re-query-replace t "*If t then do regexp replace, if nil then do string replace.") @@ -820,18 +829,7 @@ (defvar vip-always t "t means, arrange that vi-state will be a default.") -(defvar vip-ms-style-os-p (memq system-type '(ms-dos windows-nt windows-95)) - "Tells is Emacs is running under an MS-style OS: ms-dos, window-nt, W95.") -(defvar vip-vms-os-p (memq system-type '(vax-vms axp-vms)) - "Tells if Emacs is running under VMS.") - -(defvar vip-custom-file-name (cond (vip-vms-os-p "sys$login:.vip") - ((memq system-type '(emx ms-dos)) - "/_vip") - ((memq system-type '(windows-nt windows-95)) - "~/_vip") - (t ; Unix - "~/.vip")) +(defvar vip-custom-file-name (vip-convert-standard-file-name "~/.vip") "Viper customisation file. This variable must be set _before_ loading Viper.") @@ -936,7 +934,7 @@ "Movement commands") (vip-test-com-defun vip-movement-command) -;; Commands that can be repeated by .(dotted) +;; Commands that can be repeated by . (dotted) (defconst vip-dotable-commands '(?c ?d ?C ?D ?> ?<)) (vip-test-com-defun vip-dotable-command) @@ -948,7 +946,14 @@ (defconst vip-regsuffix-commands '(?d ?y ?Y ?D ?p ?P ?x ?X)) (vip-test-com-defun vip-regsuffix-command) - +(defconst vip-vi-commands (append vip-movement-commands + vip-dotable-commands + vip-charpair-commands + vip-hash-cmds + vip-prefix-commands + vip-regsuffix-commands) + "The list of all commands in Vi-state.") +(vip-test-com-defun vip-vi-command) ;;; Arrange the keymaps (require 'viper-keym) @@ -985,6 +990,14 @@ vip-insert-point (>= (point) vip-insert-point)) (setq vip-last-posn-while-in-insert-state (point-marker))) + (if (eq vip-current-state 'insert-state) + (progn + (or (stringp vip-saved-cursor-color) + (string= (vip-get-cursor-color) vip-insert-state-cursor-color) + (setq vip-saved-cursor-color (vip-get-cursor-color))) + (if (stringp vip-saved-cursor-color) + (vip-change-cursor-color vip-insert-state-cursor-color)) + )) (if (and (eq this-command 'dabbrev-expand) (integerp vip-pre-command-point) (> vip-insert-point vip-pre-command-point)) @@ -992,6 +1005,11 @@ ) (defsubst vip-insert-state-pre-command-sentinel () + (or (memq this-command '(self-insert-command)) + (memq (vip-event-key last-command-event) + '(up down left right (meta f) (meta b) + (control n) (control p) (control f) (control b))) + (vip-restore-cursor-color-after-insert)) (if (and (eq this-command 'dabbrev-expand) (markerp vip-insert-point) (marker-position vip-insert-point)) @@ -1007,7 +1025,7 @@ (if (and (<= (vip-replace-start) (point)) (<= (point) (vip-replace-end))) (vip-change-cursor-color vip-replace-overlay-cursor-color) - (vip-restore-cursor-color) + (vip-restore-cursor-color-after-replace) )) ;; to speed up, don't change cursor color before self-insert @@ -1031,7 +1049,7 @@ ;; cursor color or, if they terminate replace mode, the color will be changed ;; in vip-finish-change (or (memq this-command '(self-insert-command)) - (vip-restore-cursor-color)) + (vip-restore-cursor-color-after-replace)) (cond ((eq vip-current-state 'replace-state) ;; delete characters to compensate for inserted chars. @@ -1150,18 +1168,18 @@ (if vip-want-ctl-h-help (progn - (define-key vip-insert-basic-map "\C-h" 'help-command) - (define-key vip-replace-map "\C-h" 'help-command)) + (define-key vip-insert-basic-map [(control h)] 'help-command) + (define-key vip-replace-map [(control h)] 'help-command)) (define-key vip-insert-basic-map - "\C-h" 'vip-del-backward-char-in-insert) + [(control h)] 'vip-del-backward-char-in-insert) (define-key vip-replace-map - "\C-h" 'vip-del-backward-char-in-replace))) - - (t + [(control h)] 'vip-del-backward-char-in-replace))) + + (t ; Vi state (setq vip-vi-diehard-minor-mode (not vip-want-emacs-keys-in-vi)) (if vip-want-ctl-h-help - (define-key vip-vi-basic-map "\C-h" 'help-command) - (define-key vip-vi-basic-map "\C-h" 'vip-backward-char))) + (define-key vip-vi-basic-map [(control h)] 'help-command) + (define-key vip-vi-basic-map [(control h)] 'vip-backward-char))) )) @@ -1281,7 +1299,7 @@ 4. Viper supports multiple undo: `u' will undo. Typing `.' will repeat undo. Another `u' changes direction. - 6. Emacs Meta functions are invoked by typing `_' or `\\ ESC'. + 6. Emacs Meta functions are invoked by typing `C-\\' or `\\ ESC'. On a window system, the best way is to use the Meta-key. 7. Try \\[keyboard-quit] and \\[abort-recursive-edit] repeatedly,if something funny happens. This would abort the current editing command. @@ -1431,7 +1449,9 @@ ;; keys `,',^ in Vi state, as they will do accents instead of Vi actions. (if (and (boundp 'iso-accents-mode) iso-accents-mode) (iso-accents-mode -1)) - + + (vip-restore-cursor-color-after-insert) + ;; Protection against user errors in hooks (condition-case conds (run-hooks 'vip-vi-state-hook) @@ -1445,6 +1465,14 @@ (if (and vip-automatic-iso-accents (fboundp 'iso-accents-mode)) (iso-accents-mode 1)) ; turn iso accents on + (or (stringp vip-saved-cursor-color) + (string= (vip-get-cursor-color) vip-insert-state-cursor-color) + (setq vip-saved-cursor-color (vip-get-cursor-color))) + ;; Commented out, because if vip-change-state-to-insert is executed + ;; non-interactively then the old cursor color may get lost. Same old Emacs + ;; bug related to local variables? +;;;(if (stringp vip-saved-cursor-color) +;;; (vip-change-cursor-color vip-insert-state-cursor-color)) ;; Protection against user errors in hooks (condition-case conds (run-hooks 'vip-insert-state-hook) @@ -1496,20 +1524,24 @@ ARG is used as the prefix value for the executed command. If EVENTS is a list of events, which become the beginning of the command." (interactive "P") + (if (= last-command-char ?\\) + (message "Switched to EMACS state for the next command...")) (vip-escape-to-state arg events 'emacs-state)) ;; escape to Vi mode termporarily -(defun vip-escape-to-vi () +(defun vip-escape-to-vi (arg) "Escape from Emacs state to Vi state for one Vi 1-character command. -This doesn't work with prefix arguments or most complex commands like -cw, dw, etc. But it does work with some 2-character commands, -like dd or dr." - (interactive) - (vip-escape-to-state nil nil 'vi-state)) - +If the Vi command that the user types has a prefix argument, e.g., `d2w', then +Vi's prefix argument will be used. Otherwise, the prefix argument passed to +`vip-escape-to-vi' is used." + (interactive "P") + (message "Switched to VI state for the next command...") + (vip-escape-to-state arg nil 'vi-state)) + ;; Escape to STATE mode for one Emacs command. (defun vip-escape-to-state (arg events state) - (let (com key prefix-arg) + ;;(let (com key prefix-arg) + (let (com key) ;; this temporarily turns off Viper's minor mode keymaps (vip-set-mode-vars-for state) (vip-normalize-minor-mode-map-alist) @@ -1517,23 +1549,26 @@ ;; protect against keyboard quit and other errors (condition-case nil - (progn + (let (vip-vi-kbd-minor-mode + vip-insert-kbd-minor-mode + vip-emacs-kbd-minor-mode) (unwind-protect (progn (setq com (key-binding (setq key (if vip-xemacs-p (read-key-sequence nil) (read-key-sequence nil t))))) - ;; In case of indirection--chase definitions. + ;; In case of binding indirection--chase definitions. ;; Have to do it here because we execute this command under ;; different keymaps, so command-execute may not do the ;; right thing there (while (vectorp com) (setq com (key-binding com)))) nil) - ;; exec command in the right Viper state - ;; otherwise, if we switch buffers in the escaped command, - ;; Viper's mode vars will remain those of `state'. When we return - ;; to the orig buffer, the bindings will be screwed up. + ;; Execute command com in the original Viper state, not in state + ;; `state'. Otherwise, if we switch buffers while executing the + ;; escaped to command, Viper's mode vars will remain those of + ;; `state'. When we return to the orig buffer, the bindings will be + ;; screwed up. (vip-set-mode-vars-for vip-current-state) ;; this-command, last-command-char, last-command-event @@ -1547,13 +1582,27 @@ (if (commandp com) (progn - (setq prefix-arg arg) + (setq prefix-arg (or prefix-arg arg)) (command-execute com))) ) (quit (ding)) (error (beep 1)))) - (vip-set-mode-vars-for vip-current-state)) ; set state in new buffer + ;; set state in the new buffer + (vip-set-mode-vars-for vip-current-state)) +(defun vip-exec-form-in-vi (form) + "Execute FORM in Vi state, regardless of the Ccurrent Vi state." + (let ((buff (current-buffer)) + result) + (vip-set-mode-vars-for 'vi-state) + (setq result (eval form)) + (if (not (equal buff (current-buffer))) ; cmd switched buffer + (save-excursion + (set-buffer buff) + (vip-set-mode-vars-for vip-current-state))) + (vip-set-mode-vars-for vip-current-state) + result)) + (defun vip-exec-form-in-emacs (form) "Execute FORM in Emacs, temporarily disabling Viper's minor modes. Similar to vip-escape-to-emacs, but accepts forms rather than keystrokes." @@ -1596,13 +1645,13 @@ (defun vip-ESC (arg) "Emulate ESC key in Emacs. -Prevents multiple escape keystrokes if vip-no-multiple-ESC is true. In that -case \@ will be bound to ESC. If vip-no-multiple-ESC is 'twice double ESC -would dings in vi-state. Other ESC sequences are emulated via the current -Emacs's major mode keymap. This is more convenient on dumb terminals and in -Emacs -nw, since this won't block functional keys such as up,down, -etc. Meta key also will work. When vip-no-multiple-ESC is nil, ESC key -behaves as in Emacs, any number of multiple escapes is allowed." +Prevents multiple escape keystrokes if vip-no-multiple-ESC is true. +If vip-no-multiple-ESC is 'twice double ESC would ding in vi-state. +Other ESC sequences are emulated via the current Emacs's major mode +keymap. This is more convenient on TTYs, since this won't block +function keys such as up,down, etc. ESC will also will also work as +a Meta key in this case. When vip-no-multiple-ESC is nil, ESC functions +as a Meta key and any number of multiple escapes is allowed." (interactive "P") (let (char) (cond ((and (not vip-no-multiple-ESC) (eq vip-current-state 'vi-state)) @@ -1617,11 +1666,19 @@ (t (ding))) )) -(defun vip-alternate-ESC (arg) - "ESC key without checking for multiple keystrokes." +(defun vip-alternate-Meta-key (arg) + "Simulate Emacs Meta key." (interactive "P") (vip-escape-to-emacs arg '(?\e))) - + +(defun vip-toggle-key-action () + "Action bound to `vip-toggle-key'." + (interactive) + (if (and (< vip-expert-level 2) (equal vip-toggle-key "\C-z")) + (if (vip-window-display-p) + (vip-iconify) + (suspend-emacs)) + (vip-change-state-to-emacs))) ;; Intercept ESC sequences on dumb terminals. ;; Based on the idea contributed by Marcelino Veiga Tuimil <mveiga@dit.upm.es> @@ -1792,9 +1849,9 @@ ;; Compute numeric prefix arg value. -;; Invoked by CHAR. COM is the command part obtained so far. +;; Invoked by EVENT. COM is the command part obtained so far. (defun vip-prefix-arg-value (event com) - (let (value) + (let (value func) ;; read while number (while (and (vip-characterp event) (>= event ?0) (<= event ?9)) (setq value (+ (* (if (vip-characterp value) value 0) 10) (- event ?0))) @@ -1805,11 +1862,39 @@ (while (eq event ?U) (vip-describe-arg prefix-arg) (setq event (vip-read-event-convert-to-char))) - (vip-set-unread-command-events event))) + + (if (or com (and (not (eq vip-current-state 'vi-state)) + ;; make sure it is a Vi command + (vip-characterp event) (vip-vi-command-p event) + )) + ;; If appears to be one of the vi commands, + ;; then execute it with funcall and clear prefix-arg in order to not + ;; confuse subsequent commands + (progn + ;; last-command-char is the char we want emacs to think was typed + ;; last. If com is not nil, the vip-digit-argument command was called + ;; from within vip-prefix-arg command, such as `d', `w', etc., i.e., + ;; the user typed, say, d2. In this case, `com' would be `d', `w', + ;; etc. + ;; If vip-digit-argument was invoked by vip-escape-to-vi (which is + ;; indicated by the fact that the current state is not vi-state, + ;; then `event' represents the vi command to be executed (e.g., `d', + ;; `w', etc. Again, last-command-char must make emacs believe that + ;; this is the command we typed. + (setq last-command-char (or com event)) + (setq func (vip-exec-form-in-vi + (` (key-binding (char-to-string (, event)))))) + (funcall func prefix-arg) + (setq prefix-arg nil)) + ;; some other command -- let emacs do it in its own way + (vip-set-unread-command-events event)) + )) + ;; Vi operator as prefix argument." (defun vip-prefix-arg-com (char value com) - (let ((cont t)) + (let ((cont t) + cmd-info mv-or-digit-cmd) (while (and cont (memq char (list ?c ?d ?y ?! ?< ?> ?= ?# ?r ?R ?\" @@ -1843,20 +1928,21 @@ (setq char (read-char)))) (t (setq com char) - (setq char (vip-read-char-exclusive))))))) + (setq char (vip-read-char-exclusive)))))) (if (atom com) - ;; com is a single char, so we construct prefix-arg - ;; and if char is ?, describe prefix arg, otherwise exit by - ;; pushing the char back into vip-set-unread-command-events - ;; Since char is a command, the command will execute with the prefix - ;; argument that we just constructed. + ;; `com' is a single char, so we construct the command argument + ;; and if `char' is `?', we describe the arg; otherwise + ;; we prepare the command that will be executed at the end. (progn - (setq prefix-arg (cons value com)) + (setq cmd-info (cons value com)) (while (= char ?U) - (vip-describe-arg prefix-arg) + (vip-describe-arg cmd-info) (setq char (read-char))) - (vip-set-unread-command-events char) - ) + ;; `char' is a movement command or a digit arg command---so we execute + ;; it at the very end + (setq mv-or-digit-cmd + (vip-exec-form-in-vi + (` (key-binding (char-to-string (, char))))))) ;; as com is non-nil, this means that we have a command to execute (if (memq (car com) '(?r ?R)) ;; execute apropriate region command. @@ -1877,7 +1963,13 @@ ((equal com '(?> . ?>)) (vip-line (cons value ?>))) ((equal com '(?! . ?!)) (vip-line (cons value ?!))) ((equal com '(?= . ?=)) (vip-line (cons value ?=))) - (t (error "")))))) + (t (error ""))))) + + (if mv-or-digit-cmd + (progn + (setq last-command-char char) + (funcall mv-or-digit-cmd cmd-info))) + )) (defun vip-describe-arg (arg) (let (val com) @@ -1895,8 +1987,8 @@ "Begin numeric argument for the next command." (interactive "P") (vip-leave-region-active) - (vip-prefix-arg-value last-command-char - (if (consp arg) (cdr arg) nil))) + (vip-prefix-arg-value + last-command-char (if (consp arg) (cdr arg) nil))) (defun vip-command-argument (arg) "Accept a motion command as an argument." @@ -2480,22 +2572,25 @@ ;; Tells whether BEG is on the same line as END. ;; If one of the args is nil, it'll return nil. (defun vip-same-line (beg end) - (let ((selective-display nil)) - (cond ((and beg end) - ;; This 'if' is needed because Emacs treats the next empty line - ;; as part of the previous line. - (if (or (> beg (point-max)) (> end (point-max))) ; out of range - () - (if (and (> end beg) (= (vip-line-pos 'start) end)) - (setq end (min (1+ end) (point-max)))) - (if (and (> beg end) (= (vip-line-pos 'start) beg)) - (setq beg (min (1+ beg) (point-max)))) - (<= (count-lines beg end) 1) )) - - (t nil)) - )) - - + (let ((selective-display nil) + (incr 0) + temp) + (if (and beg end (> beg end)) + (setq temp beg + beg end + end temp)) + (if (and beg end) + (cond ((or (> beg (point-max)) (> end (point-max))) ; out of range + nil) + (t + ;; This 'if' is needed because Emacs treats the next empty line + ;; as part of the previous line. + (if (= (vip-line-pos 'start) end) + (setq incr 1)) + (<= (+ incr (count-lines beg end)) 1)))) + )) + + ;; Check if the string ends with a newline. (defun vip-end-with-a-newline-p (string) (or (string= string "") @@ -2546,8 +2641,8 @@ (progn (set-face-background 'vip-search-face "khaki") (set-face-foreground 'vip-search-face "Black")) - (copy-face 'italic 'vip-search-face) - (set-face-underline-p 'vip-search-face t))) + (set-face-underline-p 'vip-search-face t) + (vip-set-face-pixmap 'vip-search-face vip-search-face-pixmap))) 'vip-search-face) "*Face used to flash out the search pattern.") )) @@ -2781,10 +2876,8 @@ (setq vip-cted t) (if vip-electric-mode (indent-according-to-mode) - (indent-to col)) - )) - (vip-change-state-to-insert) - )))) + (indent-to col)))) + (vip-change-state-to-insert))))) (defun vip-Open-line (arg) "Open line above." @@ -2960,7 +3053,7 @@ 'vip-replace-state-post-command-sentinel) (vip-remove-hook 'vip-pre-command-hooks 'vip-replace-state-pre-command-sentinel) - (vip-restore-cursor-color) + (vip-restore-cursor-color-after-replace) (setq vip-sitting-in-replace nil) ; just in case we'll need to know it (save-excursion (if (and @@ -3776,6 +3869,32 @@ (interactive "p") (recenter (- (window-height) (1+ arg)))) +;; If vip-adjust-window-after-search is t, scroll up or down 1/4 of window +;; height, depending on whether we are at the bottom or at the top of the +;; window. This function is called by vip-search (which is called from +;; vip-search-forward/backward/next) +(defun vip-adjust-window () + (let ((win-height (if vip-emacs-p + (1- (window-height)) ; adjust for modeline + (window-displayed-height))) + (pt (point)) + at-top-p at-bottom-p + min-scroll direction) + (save-excursion + (move-to-window-line 0) ; top + (setq at-top-p (<= (count-lines pt (point)) 2)) + (move-to-window-line -1) ; bottom + (setq at-bottom-p (<= (count-lines pt (point)) 2)) + ) + (cond (at-top-p (setq min-scroll 1 + direction 1)) + (at-bottom-p (setq min-scroll 2 + direction -1))) + (if (and vip-adjust-window-after-search min-scroll) + (recenter + (* (max min-scroll (/ win-height 7)) direction))) + )) + ;; paren match ;; must correct this to only match ( to ) etc. On the other hand @@ -3785,8 +3904,9 @@ (defun vip-paren-match (arg) "Go to the matching parenthesis." (interactive "P") + (vip-leave-region-active) (let ((com (vip-getcom arg)) - anchor-point) + parse-sexp-ignore-comments anchor-point) (if (integerp arg) (if (or (> arg 99) (< arg 1)) (error "Prefix must be between 1 and 99") @@ -3914,21 +4034,30 @@ (setq scroll-step 1) -(defun vip-scroll (arg) +(defun vip-scroll-screen (arg) "Scroll to next screen." (interactive "p") - (if (> arg 0) - (while (> arg 0) - (scroll-up) - (setq arg (1- arg))) - (while (> 0 arg) - (scroll-down) - (setq arg (1+ arg))))) - -(defun vip-scroll-back (arg) + (condition-case nil + (if (> arg 0) + (while (> arg 0) + (scroll-up) + (setq arg (1- arg))) + (while (> 0 arg) + (scroll-down) + (setq arg (1+ arg)))) + (error (beep 1) + (if (> arg 0) + (progn + (message "End of buffer") + (goto-char (point-max))) + (message "Beginning of buffer") + (goto-char (point-min)))) + )) + +(defun vip-scroll-screen-back (arg) "Scroll to previous screen." (interactive "p") - (vip-scroll (- arg))) + (vip-scroll-screen (- arg))) (defun vip-scroll-down (arg) "Pull down half screen." @@ -4017,6 +4146,62 @@ (setq msg "Search style remains unchanged"))) (prin1 msg t))) +(defun vip-set-vi-search-style-macros (unset) + "Set the macros for toggling the search style in Viper's vi-state. +The macro that toggles case sensitivity is bound to `//', and the one that +toggles regexp search is bound to `///'. +With a prefix argument, this function unsets the macros. " + (interactive "P") + (or noninteractive + (if (not unset) + (progn + ;; toggle case sensitivity in search + (vip-record-kbd-macro + "//" 'vi-state + [1 (meta x) v i p - t o g g l e - s e a r c h - s t y l e return] + 't) + ;; toggle regexp/vanila search + (vip-record-kbd-macro + "///" 'vi-state + [2 (meta x) v i p - t o g g l e - s e a r c h - s t y l e return] + 't) + (if (interactive-p) + (message + "// and /// now toggle case-sensitivity and regexp search."))) + (vip-unrecord-kbd-macro "//" 'vi-state) + (sit-for 2) + (vip-unrecord-kbd-macro "///" 'vi-state)))) + +(defun vip-set-emacs-search-style-macros (unset &optional arg-majormode) + "Set the macros for toggling the search style in Viper's emacs-state. +The macro that toggles case sensitivity is bound to `//', and the one that +toggles regexp search is bound to `///'. +With a prefix argument, this function unsets the macros. +If the optional prefix argument is non-nil and specifies a valid major mode, +this sets the macros only in the macros in that major mode. Otherwise, +the macros are set in the current major mode. +\(When unsetting the macros, the second argument has no effect.\)" + (interactive "P") + (or noninteractive + (if (not unset) + (progn + ;; toggle case sensitivity in search + (vip-record-kbd-macro + "//" 'emacs-state + [1 (meta x) v i p - t o g g l e - s e a r c h - s t y l e return] + (or arg-majormode major-mode)) + ;; toggle regexp/vanila search + (vip-record-kbd-macro + "///" 'emacs-state + [2 (meta x) v i p - t o g g l e - s e a r c h - s t y l e return] + (or arg-majormode major-mode)) + (if (interactive-p) + (message + "// and /// now toggle case-sensitivity and regexp search."))) + (vip-unrecord-kbd-macro "//" 'emacs-state) + (sit-for 2) + (vip-unrecord-kbd-macro "///" 'emacs-state)))) + (defun vip-search-forward (arg) "Search a string forward. @@ -4085,15 +4270,12 @@ (re-search-backward string)) (search-forward string nil nil val) (search-backward string)) - ;; don't wait and don't flash in macros - (or executing-kbd-macro - (vip-flash-search-pattern)) (if (not (equal start-point (point))) (push-mark start-point t))) (search-failed (if (and (not fail-if-not-found) vip-search-wrap-around-t) (progn - (message "Search wrapped around end of buffer") + (message "Search wrapped around BOTTOM of buffer") (goto-char (point-min)) (vip-search string forward (cons 1 com) t start-point 'fail) ;; don't wait in macros @@ -4112,15 +4294,12 @@ (if vip-re-search (re-search-backward string nil nil val) (search-backward string nil nil val)) - ;; don't wait and don't flash in macros - (or executing-kbd-macro - (vip-flash-search-pattern)) (if (not (equal start-point (point))) (push-mark start-point t))) (search-failed (if (and (not fail-if-not-found) vip-search-wrap-around-t) (progn - (message "Search wrapped around beginning of buffer") + (message "Search wrapped around TOP of buffer") (goto-char (point-max)) (vip-search string forward (cons 1 com) t start-point 'fail) ;; don't wait in macros @@ -4132,7 +4311,14 @@ (error "`%s': %s not found" string (if vip-re-search "Pattern" "String")) - ))))))) + )))) + ;; pull up or down if at top/bottom of window + (vip-adjust-window) + ;; highlight the result of search + ;; don't wait and don't highlight in macros + (or executing-kbd-macro + (vip-flash-search-pattern)) + ))) (defun vip-search-next (arg) "Repeat previous search." @@ -4338,6 +4524,7 @@ (setq vip-use-register nil) (if (vip-end-with-a-newline-p text) (progn + (end-of-line) (if (eobp) (insert "\n") (forward-line 1)) @@ -4752,6 +4939,7 @@ (if (and (vip-same-line (point) vip-last-jump) (= (point) vip-last-jump-ignore)) (goto-char vip-last-jump)) + (if (null (mark t)) (error "Mark is not set in this buffer")) (if (= (point) (mark t)) (pop-mark)) (exchange-point-and-mark) (setq vip-last-jump (point-marker) @@ -4828,7 +5016,9 @@ vip-open-line vip-Open-line vip-replace-state-exit-cmd)) (indent-to-left-margin)) - (newline 1) + ;; use \n instead of newline, or else <Return> will move the insert point + ;;(newline 1) + (insert "\n") (if vip-auto-indent (progn (setq vip-cted t) @@ -4952,13 +5142,10 @@ vip-ex-style-editing-in-insert t vip-want-ctl-h-help nil) - (cond - ;; a novice or a beginner - ((eq vip-expert-level 1) - (global-set-key vip-toggle-key ;; in emacs-state - (if (vip-window-display-p) - 'vip-iconify - 'suspend-emacs)) + (cond ((eq vip-expert-level 1) ; novice or beginner + (global-set-key ; in emacs-state + vip-toggle-key + (if (vip-window-display-p) 'vip-iconify 'suspend-emacs)) (setq vip-no-multiple-ESC t vip-re-search t vip-vi-style-in-minibuffer t @@ -4966,8 +5153,8 @@ vip-want-emacs-keys-in-vi nil vip-want-emacs-keys-in-insert nil)) - ;; an intermediate to guru ((and (> vip-expert-level 1) (< vip-expert-level 5)) + ;; an intermediate to guru (setq vip-no-multiple-ESC (if (vip-window-display-p) t 'twice) vip-want-emacs-keys-in-vi t vip-want-emacs-keys-in-insert (> vip-expert-level 2)) @@ -4992,9 +5179,9 @@ (cdr (assoc 'vip-no-multiple-ESC vip-saved-user-settings)))))) - ;; A wizard + ;; A wizard!! ;; Ideally, if 5 is selected, a buffer should pop up to let the - ;; user toggle variable values. + ;; user toggle the values of variables. (t (setq-default vip-ex-style-editing-in-insert (cdr (assoc 'vip-ex-style-editing-in-insert vip-saved-user-settings)) @@ -5374,17 +5561,11 @@ ;; This hook designed to enable Vi-style editing in comint-based modes." (defun vip-comint-mode-hook () - (setq require-final-newline nil) - (setq vip-ex-style-editing-in-insert nil + (setq require-final-newline nil + vip-ex-style-editing-in-insert nil vip-ex-style-motion nil) - (vip-add-local-keys 'vi-state - '(("\C-m" . comint-send-input) ; return - ("\C-d" . comint-delchar-or-maybe-eof))) ; \C-d - (vip-add-local-keys 'insert-state - '(("\C-m" . comint-send-input) ; return - ("\C-d" . comint-delchar-or-maybe-eof))) ; \C-d - ) - + (vip-change-state-to-insert)) + ;; This sets major mode hooks to make them come up in vi-state. (defun vip-set-hooks () @@ -5413,7 +5594,9 @@ (add-hook 'html-mode-hook 'viper-mode) (defvar html-helper-mode-hook) (add-hook 'html-helper-mode-hook 'viper-mode) - + (defvar java-mode-hook) + (add-hook 'java-mode-hook 'viper-mode) + (defvar emacs-lisp-mode-hook) (add-hook 'emacs-lisp-mode-hook 'viper-mode) @@ -5438,6 +5621,11 @@ (defvar fortran-mode-hook) (add-hook 'fortran-mode-hook 'vip-mode) + (defvar basic-mode-hook) + (add-hook 'basic-mode-hook 'vip-mode) + (defvar bat-mode-hook) + (add-hook 'bat-mode-hook 'vip-mode) + (defvar text-mode-hook) (add-hook 'text-mode-hook 'viper-mode) @@ -5449,7 +5637,18 @@ (defvar emerge-startup-hook) (add-hook 'emerge-startup-hook 'vip-change-state-to-emacs) - ;; Run vip-change-state-to-vi after quitting emerge. + + ;; Tell vc-diff to put *vc* in Vi mode + (if (featurep 'vc) + (defadvice vc-diff (after vip-vc-ad activate) + "Force Vi state in VC diff buffer." + (vip-change-state-to-vi)) + (vip-eval-after-load + "vc" + '(defadvice vc-diff (after vip-vc-ad activate) + "Force Vi state in VC diff buffer." + (vip-change-state-to-vi)))) + (vip-eval-after-load "emerge" '(defadvice emerge-quit (after vip-emerge-advice activate) @@ -5482,9 +5681,27 @@ ;; Emacs shell, ange-ftp, and comint-based modes (defvar comint-mode-hook) - (add-hook 'comint-mode-hook 'vip-change-state-to-insert) + (vip-modify-major-mode + 'comint-mode 'insert-state vip-comint-mode-modifier-map) + (vip-modify-major-mode + 'comint-mode 'vi-state vip-comint-mode-modifier-map) + (vip-modify-major-mode + 'shell-mode 'insert-state vip-comint-mode-modifier-map) + (vip-modify-major-mode + 'shell-mode 'vi-state vip-comint-mode-modifier-map) + ;; ange-ftp in XEmacs + (vip-modify-major-mode + 'ange-ftp-shell-mode 'insert-state vip-comint-mode-modifier-map) + (vip-modify-major-mode + 'ange-ftp-shell-mode 'vi-state vip-comint-mode-modifier-map) + ;; ange-ftp in Emacs + (vip-modify-major-mode + 'internal-ange-ftp-mode 'insert-state vip-comint-mode-modifier-map) + (vip-modify-major-mode + 'internal-ange-ftp-mode 'vi-state vip-comint-mode-modifier-map) + ;; set hook (add-hook 'comint-mode-hook 'vip-comint-mode-hook) - + ;; Shell scripts (defvar sh-mode-hook) (add-hook 'sh-mode-hook 'viper-mode) @@ -5492,9 +5709,50 @@ (add-hook 'ksh-mode-hook 'viper-mode) ;; Dired - ;; This is only necessary when the user uses vip-modify-major-mode + (vip-modify-major-mode 'dired-mode 'emacs-state vip-dired-modifier-map) + (vip-set-emacs-search-style-macros nil 'dired-mode) (add-hook 'dired-mode-hook 'vip-change-state-to-emacs) + ;; Tar + (vip-modify-major-mode 'tar-mode 'emacs-state vip-slash-and-colon-map) + (vip-set-emacs-search-style-macros nil 'tar-mode) + + ;; MH-E + (vip-modify-major-mode 'mh-folder-mode 'emacs-state vip-slash-and-colon-map) + (vip-set-emacs-search-style-macros nil 'mh-folder-mode) + ;; changing state to emacs is needed so the preceding will take hold + (add-hook 'mh-folder-mode-hook 'vip-change-state-to-emacs) + (add-hook 'mh-show-mode-hook 'viper-mode) + + ;; Gnus + (vip-modify-major-mode 'gnus-group-mode 'emacs-state vip-slash-and-colon-map) + (vip-set-emacs-search-style-macros nil 'gnus-group-mode) + (vip-modify-major-mode + 'gnus-summary-mode 'emacs-state vip-slash-and-colon-map) + (vip-set-emacs-search-style-macros nil 'gnus-summary-mode) + ;; changing state to emacs is needed so the preceding will take hold + (add-hook 'gnus-group-mode-hook 'vip-change-state-to-emacs) + (add-hook 'gnus-summary-mode-hook 'vip-change-state-to-emacs) + (add-hook 'gnus-article-mode-hook 'viper-mode) + + ;; Info + (vip-modify-major-mode 'Info-mode 'emacs-state vip-slash-and-colon-map) + (vip-set-emacs-search-style-macros nil 'Info-mode) + ;; Switching to emacs is needed so the above will take hold + (defadvice Info-mode (after vip-Info-ad activate) + "Switch to emacs mode." + (vip-change-state-to-emacs)) + + ;; Buffer menu + (vip-modify-major-mode + 'Buffer-menu-mode 'emacs-state vip-slash-and-colon-map) + (vip-set-emacs-search-style-macros nil 'Buffer-menu-mode) + ;; Switching to emacs is needed so the above will take hold + (defadvice Buffer-menu-mode (after vip-Buffer-menu-ad activate) + "Switch to emacs mode." + (vip-change-state-to-emacs)) + + ;; View mode (if vip-emacs-p (progn (defvar view-mode-hook) @@ -5537,15 +5795,9 @@ (vector vip-repeat-from-history-key '\2) 'vi-state [(meta x) v i p - r e p e a t - f r o m - h i s t o r y return] 't) -;; toggle case sensitivity in search -(vip-record-kbd-macro - "//" 'vi-state - [1 (meta x) v i p - t o g g l e - s e a r c h - s t y l e return] 't) -;; toggle regexp/vanila search -(vip-record-kbd-macro - "///" 'vi-state - [2 (meta x) v i p - t o g g l e - s e a r c h - s t y l e return] 't) - +;; set the toggle case sensitivity and regexp search macros +(vip-set-vi-search-style-macros nil) + ;; ~/.vip is loaded if it exists (if (and (file-exists-p vip-custom-file-name) @@ -5575,6 +5827,7 @@ (vip-set-minibuffer-style) (vip-set-minibuffer-faces) (vip-set-search-face) +(vip-set-replace-overlay-face) (if vip-buffer-search-char (vip-buffer-search-enable)) (vip-update-alphanumeric-class) @@ -5603,15 +5856,10 @@ ;; This is taken care of by vip-insert-global-user-map. ;;(define-key vip-replace-map vip-ESC-key 'vip-intercept-ESC-key) -(define-key vip-insert-intercept-map vip-toggle-key 'vip-alternate-ESC) + ;; The default vip-toggle-key is \C-z; for the novice, it suspends or ;; iconifies Emacs -(define-key vip-vi-intercept-map vip-toggle-key - '(lambda () (interactive) - (if (and (< vip-expert-level 2) (equal vip-toggle-key "\C-z")) - (if (vip-window-display-p) (vip-iconify) (suspend-emacs)) - (vip-change-state-to-emacs)))) - +(define-key vip-vi-intercept-map vip-toggle-key 'vip-toggle-key-action) (define-key vip-emacs-intercept-map vip-toggle-key 'vip-change-state-to-vi)
--- a/lisp/x11/x-menubar.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/x11/x-menubar.el Mon Aug 13 09:05:42 2007 +0200 @@ -161,6 +161,13 @@ ["Mouse Paste At Text Cursor" (setq mouse-yank-at-point (not mouse-yank-at-point)) :style toggle :selected mouse-yank-at-point] + ["Require Newline At End" (setq require-final-newline + (or (eq require-final-newline 'ask) + (not require-final-newline))) + :style toggle :selected (eq require-final-newline 't)] + ["Add Newline When Moving Past End" (setq next-line-add-newlines + (not next-line-add-newlines)) + :style toggle :selected next-line-add-newlines] ) ("General Options" ["Teach Extended Commands" (setq teach-extended-commands-p @@ -230,6 +237,14 @@ (setq temp-buffer-show-function nil) :style radio :selected (null temp-buffer-show-function)] + "-----" + ["Make current frame gnuserv target" + (setq gnuserv-frame + (if (equal gnuserv-frame (selected-frame)) + nil + (selected-frame))) + :style radio + :selected (equal gnuserv-frame (selected-frame))] ) "-----" @@ -316,11 +331,15 @@ ;; this shouldn't be necessary so there has to ;; be a redisplay bug lurking somewhere (or ;; possibly another event handler bug) - (redraw-modeline)) + (redraw-modeline) + (remove-hook 'font-lock-mode-hook + 'turn-on-lazy-lock)) (if font-lock-mode (progn (lazy-lock-mode 1) - (redraw-modeline))))) + (redraw-modeline) + (add-hook 'font-lock-mode-hook + 'turn-on-lazy-lock))))) :active font-lock-mode :style toggle :selected (and (boundp 'lazy-lock-mode) lazy-lock-mode)] @@ -990,6 +1009,8 @@ (pending-delete-on nil))) zmacs-regions mouse-yank-at-point + require-final-newline + next-line-add-newlines ;; General Options menu. teach-extended-commands-p @@ -1006,6 +1027,8 @@ ;; Other Window Location get-frame-for-buffer-default-instance-limit temp-buffer-show-function + (if gnuserv-frame + '(setq gnuserv-frame (selected-frame))) ;; Syntax Highlighting font-lock-auto-fontify
--- a/lisp/x11/x-mouse.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/x11/x-mouse.el Mon Aug 13 09:05:42 2007 +0200 @@ -144,9 +144,11 @@ (set-glyph-image gc-pointer-glyph (or (x-get-resource "gcPointer" "Cursor" 'string device) "watch")) - (set-glyph-image scrollbar-pointer-glyph - (or (x-get-resource "scrollbarPointer" "Cursor" 'string device) - "top_left_arrow")) + (when (featurep 'scrollbar) + (set-glyph-image + scrollbar-pointer-glyph + (or (x-get-resource "scrollbarPointer" "Cursor" 'string device) + "top_left_arrow"))) (set-glyph-image busy-pointer-glyph (or (x-get-resource "busyPointer" "Cursor" 'string device) "watch"))
--- a/lwlib/Makefile.in.in Mon Aug 13 09:05:11 2007 +0200 +++ b/lwlib/Makefile.in.in Mon Aug 13 09:05:42 2007 +0200 @@ -17,7 +17,8 @@ You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ /* Some people use these in paths they define. We don't want their paths getting changed on them. */ @@ -195,6 +196,12 @@ EZ_SUBDIR = #endif +#if defined (HAVE_X_WINDOWS) +# ifndef NEED_TOOLKIT +# define NEED_TOOLKIT +# endif +#endif + SRCS = lwlib.c MOTIF_SRCS LUCID_SRCS ATHENA_SRCS lwlib-utils.c \ lwlib-config.c OBJS = lwlib.o MOTIF_OBJS LUCID_OBJS ATHENA_OBJS lwlib-utils.o \
--- a/lwlib/lwlib-Xaw.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lwlib/lwlib-Xaw.c Mon Aug 13 09:05:42 2007 +0200 @@ -15,7 +15,8 @@ You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ #include <stdio.h> #include <stdlib.h> @@ -555,9 +556,16 @@ static Widget xaw_create_scrollbar (widget_instance *instance, int vertical) { - Arg av[20]; + Arg av[10]; int ac = 0; - Widget scrollbar; + + static XtCallbackRec jumpCallbacks[2] = + { {xaw_scrollbar_jump, NULL}, {NULL, NULL} }; + + static XtCallbackRec scrollCallbacks[2] = + { {xaw_scrollbar_scroll, NULL}, {NULL, NULL} }; + + jumpCallbacks[0].closure = scrollCallbacks[0].closure = (XtPointer) instance; /* #### This is tacked onto the with and height and completely screws our geometry management. We should probably make the
--- a/lwlib/lwlib-Xlw.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lwlib/lwlib-Xlw.c Mon Aug 13 09:05:42 2007 +0200 @@ -15,7 +15,8 @@ You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ #include <stdlib.h> /* for abort () */ #include <limits.h> @@ -53,7 +54,7 @@ /* #### - this code used to (for some random back_asswards reason) pass the expression below in the call_data slot. For incremental menu construction, this needs to go. I can't even figure out why it was done - this way in the first place...it's just a historical wierdism. --Stig */ + this way in the first place...it's just a historical weirdism. --Stig */ call_data = (val ? val->call_data : NULL); #endif if (val && val->call_data) @@ -161,7 +162,7 @@ if (data->event) { - switch (data->event->xany.type) + switch (data->event->type) { case KeyPress: case KeyRelease: @@ -221,48 +222,37 @@ instance->info->pre_activate_cb (widget, id, (XtPointer) &event_data); } +#define add_scrollbar_callback(resource) \ +XtAddCallback (scrollbar, resource, xlw_scrollbar_callback, (XtPointer) instance) + /* #### Does not yet support horizontal scrollbars. */ static Widget xlw_create_scrollbar (widget_instance *instance, int vertical) { Arg al[20]; int ac = 0; - Widget scrollbar; + static XtCallbackRec callbacks[2] = + { {xlw_scrollbar_callback, NULL}, {NULL, NULL} }; + + callbacks[0].closure = (XtPointer) instance; - XtSetArg (al[ac], (String) XmNminimum, 1); ac++; - XtSetArg (al[ac], (String) XmNmaximum, INT_MAX); ac++; - XtSetArg (al[ac], (String) XmNincrement, 1); ac++; - XtSetArg (al[ac], (String) XmNpageIncrement, 1); ac++; - if (vertical) - { - XtSetArg (al[ac], (String) XmNorientation, XmVERTICAL); ac++; - } - else - { - XtSetArg (al[ac], (String) XmNorientation, XmHORIZONTAL); ac++; - } - - scrollbar = - XtCreateWidget (instance->info->name, xlwScrollBarWidgetClass, instance->parent, al, ac); + XtSetArg (al[ac], XmNminimum, 1); ac++; + XtSetArg (al[ac], XmNmaximum, INT_MAX); ac++; + XtSetArg (al[ac], XmNincrement, 1); ac++; + XtSetArg (al[ac], XmNpageIncrement, 1); ac++; + XtSetArg (al[ac], XmNorientation, (vertical ? XmVERTICAL : XmHORIZONTAL)); ac++; - XtAddCallback(scrollbar, XmNdecrementCallback, xlw_scrollbar_callback, - (XtPointer) instance); - XtAddCallback(scrollbar, XmNdragCallback, xlw_scrollbar_callback, - (XtPointer) instance); - XtAddCallback(scrollbar, XmNincrementCallback, xlw_scrollbar_callback, - (XtPointer) instance); - XtAddCallback(scrollbar, XmNpageDecrementCallback, xlw_scrollbar_callback, - (XtPointer) instance); - XtAddCallback(scrollbar, XmNpageIncrementCallback, xlw_scrollbar_callback, - (XtPointer) instance); - XtAddCallback(scrollbar, XmNtoBottomCallback, xlw_scrollbar_callback, - (XtPointer) instance); - XtAddCallback(scrollbar, XmNtoTopCallback, xlw_scrollbar_callback, - (XtPointer) instance); - XtAddCallback(scrollbar, XmNvalueChangedCallback, xlw_scrollbar_callback, - (XtPointer) instance); + XtSetArg (al[ac], XmNdecrementCallback, callbacks); ac++; + XtSetArg (al[ac], XmNdragCallback, callbacks); ac++; + XtSetArg (al[ac], XmNincrementCallback, callbacks); ac++; + XtSetArg (al[ac], XmNpageDecrementCallback, callbacks); ac++; + XtSetArg (al[ac], XmNpageIncrementCallback, callbacks); ac++; + XtSetArg (al[ac], XmNtoBottomCallback, callbacks); ac++; + XtSetArg (al[ac], XmNtoTopCallback, callbacks); ac++; + XtSetArg (al[ac], XmNvalueChangedCallback, callbacks); ac++; - return scrollbar; + return XtCreateWidget (instance->info->name, xlwScrollBarWidgetClass, + instance->parent, al, ac); } static Widget @@ -288,9 +278,7 @@ int new_sliderSize, new_value; double percent; - /* - * First size and position the scrollbar widget. - */ + /* First size and position the scrollbar widget. */ XtVaSetValues (widget, XtNx, data->scrollbar_x, XtNy, data->scrollbar_y, @@ -298,9 +286,7 @@ XtNheight, data->scrollbar_height, 0); - /* - * Now the size the scrollbar's slider. - */ + /* Now the size the scrollbar's slider. */ XtVaGetValues (widget, XmNsliderSize, &widget_sliderSize,
--- a/lwlib/lwlib-Xm.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lwlib/lwlib-Xm.c Mon Aug 13 09:05:42 2007 +0200 @@ -16,7 +16,8 @@ You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ #include <stdlib.h> #include <unistd.h> @@ -110,8 +111,8 @@ make_destroyed_instance (char* name, char* type, Widget widget, Widget parent, Boolean pop_up_p) { - destroyed_instance* instance = - (destroyed_instance*)malloc (sizeof (destroyed_instance)); + destroyed_instance *instance = + (destroyed_instance *) malloc (sizeof (destroyed_instance)); instance->name = safe_strdup (name); instance->type = safe_strdup (type); instance->widget = widget; @@ -152,8 +153,8 @@ XtResource resource; char *result = NULL; - resource.resource_name = (String) "labelString"; - resource.resource_class = (String) "LabelString"; /* #### should be Xmsomething... */ + resource.resource_name = "labelString"; + resource.resource_class = "LabelString"; /* #### should be Xmsomething... */ resource.resource_type = XtRString; resource.resource_size = sizeof (String); resource.resource_offset = 0; @@ -1115,7 +1116,7 @@ /* invisible seperator button */ ac = 0; XtSetArg (al[ac], XmNmappedWhenManaged, FALSE); ac++; - children [n_children] = XmCreateLabel (row, (char *) "separator_button", + children [n_children] = XmCreateLabel (row, "separator_button", al, ac); DO_DND_KLUDGE (children [n_children]); n_children++;
--- a/lwlib/lwlib-config.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lwlib/lwlib-config.c Mon Aug 13 09:05:42 2007 +0200 @@ -15,7 +15,8 @@ You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ /* This is a kludge to make sure emacs can only link against a version of
--- a/lwlib/lwlib-utils.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lwlib/lwlib-utils.c Mon Aug 13 09:05:42 2007 +0200 @@ -15,7 +15,8 @@ You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ++Boston, MA 02111-1307, USA. */ #include <stdlib.h> #include <unistd.h>
--- a/lwlib/lwlib.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lwlib/lwlib.c Mon Aug 13 09:05:42 2007 +0200 @@ -1253,7 +1253,8 @@ void lw_set_keyboard_focus (Widget parent, Widget w) { -#ifdef NEED_MOTIF +#if defined(NEED_MOTIF) && !defined(LESSTIF_VERSION) + /* This loses with Lesstif v0.75a */ xm_set_keyboard_focus (parent, w); #else XtSetKeyboardFocus (parent, w);
--- a/lwlib/xlwmenu.c Mon Aug 13 09:05:11 2007 +0200 +++ b/lwlib/xlwmenu.c Mon Aug 13 09:05:42 2007 +0200 @@ -15,8 +15,9 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +along with XEmacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ /* Created by devin@lucid.com */ @@ -25,6 +26,7 @@ #include <string.h> #include <ctype.h> #include <stdio.h> +#include <limits.h> #include <sys/types.h> #include <X11/Xos.h> @@ -53,8 +55,7 @@ /* There are three font list resources, so that we can accept either of the resources *fontList: or *font:, and so that we can tell the difference between them being specified, and being defaulted to a - font from the XtRString specified here. - */ + font from the XtRString specified here. */ {XmNfontList, XmCFontList, XmRFontList, sizeof(XmFontList), offset(menu.font_list), XtRImmediate, (XtPointer)0}, {XtNfont, XtCFont, XmRFontList, sizeof(XmFontList), @@ -63,17 +64,16 @@ offset(menu.fallback_font_list), /* We must use an iso8859-1 font here, or people without $LANG set lose. It's fair to assume that those who do have $LANG set also have the - *fontList resource set, or at least know how to deal with this. - */ - XtRString, (String) "-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-1"}, + *fontList resource set, or at least know how to deal with this. */ + XtRString, "-*-helvetica-bold-r-*-*-*-120-*-*-*-*-iso8859-1"}, #else {XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *), offset(menu.font), XtRString, "XtDefaultFont"}, #endif {XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel), - offset(menu.foreground), XtRString, (String) "XtDefaultForeground"}, + offset(menu.foreground), XtRString, "XtDefaultForeground"}, {XtNbuttonForeground, XtCButtonForeground, XtRPixel, sizeof(Pixel), - offset(menu.button_foreground), XtRString, (String)"XtDefaultForeground"}, + offset(menu.button_foreground), XtRString, "XtDefaultForeground"}, {XtNmargin, XtCMargin, XtRDimension, sizeof(Dimension), offset(menu.margin), XtRImmediate, (XtPointer)2}, {XmNmarginWidth, XmCMarginWidth, XmRHorizontalDimension, sizeof(Dimension), @@ -139,9 +139,9 @@ static XtActionsRec xlwMenuActionsList [] = { - {(String) "start", Start}, - {(String) "drag", Drag}, - {(String) "select", Select}, + {"start", Start}, + {"drag", Drag}, + {"select", Select}, }; #define SuperClass ((CoreWidgetClass)&coreClassRec) @@ -150,7 +150,7 @@ { { /* CoreClass fields initialization */ (WidgetClass) SuperClass, /* superclass */ - (String) "XlwMenu", /* class_name */ + "XlwMenu", /* class_name */ sizeof(XlwMenuRec), /* size */ XlwMenuClassInitialize, /* class_initialize */ NULL, /* class_part_initialize */ @@ -174,7 +174,8 @@ NULL, /* set_values_hook */ XtInheritSetValuesAlmost, /* set_values_almost */ NULL, /* get_values_hook */ - NULL, /* #### - should this be set for grabs? accept_focus */ + NULL, /* #### - should this be set for */ + /* grabs? accept_focus */ XtVersion, /* version */ NULL, /* callback_private */ xlwMenuTranslations, /* tm_table */ @@ -213,68 +214,49 @@ allocate_nearest_color (Display *display, Colormap screen_colormap, XColor *color_def) { - int status; + int status = XAllocColor (display, screen_colormap, color_def); + if (status) + return status; - status = XAllocColor (display, screen_colormap, color_def); - if (!status) { /* If we got to this point, the colormap is full, so we're going to try and get the next closest color. The algorithm used is a least-squares matching, which is what X uses for closest color matching with StaticColor visuals. */ - XColor *cells; - int no_cells; - int nearest; - long nearest_delta, trial_delta; - int x; + int nearest, x; + unsigned long nearest_delta = ULONG_MAX; - no_cells = XDisplayCells (display, XDefaultScreen (display)); + int no_cells = XDisplayCells (display, XDefaultScreen (display)); /* Don't use alloca here because lwlib doesn't have the necessary configuration information that src does. */ - cells = (XColor *) malloc (sizeof (XColor) * no_cells); + XColor *cells = (XColor *) malloc (sizeof (XColor) * no_cells); for (x = 0; x < no_cells; x++) cells[x].pixel = x; XQueryColors (display, screen_colormap, cells, no_cells); - nearest = 0; - /* I'm assuming CSE so I'm not going to condense this. */ - nearest_delta = - ((((color_def->red >> 8) - (cells[0].red >> 8)) - * ((color_def->red >> 8) - (cells[0].red >> 8))) - + - (((color_def->green >> 8) - (cells[0].green >> 8)) - * ((color_def->green >> 8) - (cells[0].green >> 8))) - + - (((color_def->blue >> 8) - (cells[0].blue >> 8)) - * ((color_def->blue >> 8) - (cells[0].blue >> 8)))); - for (x = 1; x < no_cells; x++) + + for (nearest = 0, x = 0; x < no_cells; x++) { - trial_delta = - ((((color_def->red >> 8) - (cells[x].red >> 8)) - * ((color_def->red >> 8) - (cells[x].red >> 8))) - + - (((color_def->green >> 8) - (cells[x].green >> 8)) - * ((color_def->green >> 8) - (cells[x].green >> 8))) - + - (((color_def->blue >> 8) - (cells[x].blue >> 8)) - * ((color_def->blue >> 8) - (cells[x].blue >> 8)))); - if (trial_delta < nearest_delta) + long dred = (color_def->red >> 8) - (cells[x].red >> 8); + long dgreen = (color_def->green >> 8) - (cells[x].green >> 8); + long dblue = (color_def->blue >> 8) - (cells[x].blue >> 8); + unsigned long delta = dred * dred + dgreen * dgreen + dblue * dblue; + + if (delta < nearest_delta) { nearest = x; - nearest_delta = trial_delta; + nearest_delta = delta; } } color_def->red = cells[nearest].red; color_def->green = cells[nearest].green; color_def->blue = cells[nearest].blue; - status = XAllocColor (display, screen_colormap, color_def); free (cells); + return XAllocColor (display, screen_colormap, color_def); } - - return status; } static void @@ -425,7 +407,7 @@ static XtResource nameResource[] = { - { (String) "labelString", (String) "LabelString", XtRString, sizeof(String), + { "labelString", "LabelString", XtRString, sizeof(String), 0, XtRImmediate, 0 } };
--- a/man/ediff.texi Mon Aug 13 09:05:11 2007 +0200 +++ b/man/ediff.texi Mon Aug 13 09:05:42 2007 +0200 @@ -5,7 +5,7 @@ @comment %**start of header (This is for running Texinfo on a region.) @comment Using ediff.info instead of ediff in setfilename breaks DOS. -@setfilename ../info/ediff.info +@setfilename ediff @comment @setfilename ediff.info @settitle Ediff User's Manual @@ -39,9 +39,9 @@ @titlepage @title Ediff User's Manual @sp 4 -@subtitle Ediff version 2.61 +@subtitle Ediff version 2.62 @sp 1 -@subtitle June 1996 +@subtitle July 1996 @sp 5 @author Michael Kifer @page @@ -62,7 +62,7 @@ @menu * Introduction:: About Ediff. * Major Entry Points:: How to use Ediff. -* Commands:: Ediff commands. +* Session Commands:: Ediff commands used within a session. * Registry of Ediff Sessions:: Keeping track of multiple Ediff sessions. * Session Groups:: Comparing and merging directories. * Remote and Compressed Files:: You may want to know about this. @@ -80,7 +80,8 @@ @cindex Finding differences Ediff provides a convenient way for simultaneous browsing through -the differences between a pair (or a triple) of files or buffers. The +the differences between a pair (or a triple) of files or buffers +(which are called @samp{variants} for our purposes). The files being compared, file-A, file-B, and file-C (if applicable) are shown in separate windows (side by side, one above the another, or in separate frames), and the differences are highlighted as you step @@ -97,29 +98,28 @@ both files, the patched and the original one, simultaneously, difference-by-difference. You can even apply a patch right out of a mail buffer, i.e., patches received by mail don't even have to be saved. Since -Ediff lets you copy differences between buffers, you can, in effect, apply +Ediff lets you copy differences between variants, you can, in effect, apply patches selectively (i.e., you can copy a difference region from -@file{file_orig} to @file{file}, thereby undoing any particular patch that +@file{file.orig} to @file{file}, thereby undoing any particular patch that you don't like). Ediff even understands multi-file patches and can apply them interactively! -(Ediff can recognize multi-file patches only if they are in the context or -GNU unified format. All other patches are treated as 1-file patches. Ediff -is [hopefully] using the same algorithm as patch to determine which -files need to be patched.) +(Ediff can recognize multi-file patches only if they are in the context +format or GNU unified format. All other patches are treated as 1-file +patches. Ediff is [hopefully] using the same algorithm as @file{patch} to +determine which files need to be patched.) Ediff is aware of version control, which lets you compare files with their older versions. Ediff also works with remote and compressed files, automatically ftp'ing them over and uncompressing them. @xref{Remote and Compressed Files}, for details. -This package builds upon ideas borrowed from Emerge and -several Ediff's functions are adaptations from Emerge. -Although Ediff subsumes Emerge, -much of the functionality of Ediff is influenced by Emerge. +This package builds upon ideas borrowed from Emerge and several Ediff's +functions are adaptations from Emerge. Although Ediff subsumes and greatly +extends Emerge, much of the functionality in Ediff is influenced by Emerge. The architecture and the interface are, of course, drastically different. -@node Major Entry Points, Commands, Introduction, Top +@node Major Entry Points, Session Commands, Introduction, Top @chapter Major Entry Points Ediff can be invoked interactively using the following functions, which can @@ -239,6 +239,8 @@ @findex edirs-merge-with-ancestor @findex ediff-merge-directories-with-ancestor Same but using files in a third directory as ancestors. + If a pair of files doesn't have an ancestor in the ancestor-directory, you + will still be able to merge them without the ancestor. @item ediff-merge-revisions @findex ediff-merge-revisions @@ -247,6 +249,15 @@ @item ediff-merge-revisions-with-ancestor @findex ediff-merge-revisions-with-ancestor Same but with ancestor. + +@item ediff-documentation +@findex ediff-documentation +Brings up this manual. + +@item ediff-show-registry +@itemx eregistry +Brings up Ediff session registry. This feature enables you to quickly find +and restart active Ediff sessions. @end table @noindent @@ -261,8 +272,8 @@ Otherwise, Ediff will be loaded automatically when you use one of the above functions, either directly or through the menus. -When the above functions are invoked, they prompt the user for the -information they need---typically the files or buffers to compare or +When the above functions are invoked, the user is prompted for all the +necessary information---typically the files or buffers to compare, merge, or patch. Ediff tries to be smart about these prompts. For instance, in comparing/merging files, it will offer the visible buffers as defaults. In prompting for files, if the user enters a directory, the previously input @@ -272,17 +283,20 @@ separately for each type of file, A, B, or C). @vindex @code{ediff-use-last-dir} -All the above functions use the POSIX @code{diff} program to find -differences between two files. They process the @code{diff} output and -display it in a convenient form. At present, Ediff understands only the -plain output from diff. Options such as @samp{-c} are not supported, -nor is the format produced by incompatible file comparison programs such -as the VMS version of @code{diff}. +All the above functions use the POSIX @code{diff} or @code{diff3} programs +to find differences between two files. They process the @code{diff} output +and display it in a convenient form. At present, Ediff understands only +the plain output from diff. Options such as @samp{-c} are not supported, +nor is the format produced by incompatible file comparison programs such as +the VMS version of @code{diff}. The functions @code{ediff-files}, @code{ediff-buffers}, @code{ediff-files3}, @code{ediff-buffers3} first display the coarse, -line-based difference regions, as reported by the @file{diff} program. -Since diff may report fairly large chunks of text as being different, +line-based difference regions, as reported by the @file{diff} program. The +total number of difference regions and the current difference number are +always displayed in the mode line of the control window. + +Since @code{diff} may report fairly large chunks of text as being different, even though the difference may be localized to just a few words or even to the white space or line breaks, Ediff further @emph{refines} the regions to indicate which exact words differ. If the only difference is @@ -323,116 +337,437 @@ related Ediff sessions by taking a directory and comparing (or merging) versions of files in that directory. -@node Commands, Registry of Ediff Sessions, Major Entry Points, Top -@chapter Commands +@node Session Commands, Registry of Ediff Sessions, Major Entry Points, Top +@chapter Session Commands -All Ediff commands are displayed in a quick -help window, unless you type @kbd{?} to shrink the window to just one line. -You can redisplay the help window by typing @kbd{?} again. -In this section -we comment only on the features that cannot be readily deduced from the -quick help window. -You can always type @kbd{E} in the control window to display this manual. +All Ediff commands are displayed in a Quick Help window, unless you type +@kbd{?} to shrink the window to just one line. You can redisplay the help +window by typing @kbd{?} again. The Quick Help commands are detailed below. Many Ediff commands take numeric prefix arguments. For instance, if you -type a number, say 3, and then @kbd{j} (@code{ediff-jump-to-difference}), Ediff -moves to the third difference region. Typing 3 and then @kbd{a} -(@code{ediff-diff-to-diff}) copies the 3d difference region from buffer -A to buffer B. Typing @kbd{b} does copying in the opposite -direction. (In 3-way comparison mode, the commands for copying are -@kbd{ab}, @kbd{ba}, @kbd{ca}, etc.) -Likewise, 4 followed by @kbd{ra} -restores the 4th difference region in buffer A (if it was previously -saved as a result of copying from, say, buffer B to A). +type a number, say 3, and then @kbd{j} (@code{ediff-jump-to-difference}), +Ediff moves to the third difference region. Typing 3 and then @kbd{a} +(@code{ediff-diff-to-diff}) copies the 3d difference region from variant A +to variant B. Likewise, 4 followed by @kbd{ra} restores the 4th difference +region in buffer A (if it was previously written over via the command +@kbd{a}). + +Some commands take negative prefix arguments as well. For instance, typing +@kbd{-} and then @kbd{j} will make the last difference region +current. Typing @kbd{-2} then @kbd{j} makes the penultimate difference +region current, etc. + +Without the prefix argument, all commands operate on the currently +selected difference region. You can make any difference region +current using the various commands explained below. + +For some commands, the actual value of the prefix argument is +immaterial. However, if supplied, the prefix argument may modify the +command (see @kbd{ga}, @kbd{gb}, and @kbd{gc}). + +@menu +* Quick Help Commands:: Frequently used commands. +* Other Session Commands:: Commands that are not bound to keys. +@end menu + +@node Quick Help Commands,Other Session Commands,,Session Commands +@section Quick Help Commands + +@table @kbd +@item ? +Toggles the Ediff Quick Help window ON and OFF. +@item G +Prepares a mail buffer for sending a praise or a curse to the Ediff maintainer. + +@item E +Brings up the top node of this manual, where you can find further +information on the various Ediff functions and advanced issues, such as +customization, session groups, etc. -Some commands take negative prefix arguments as well. -For instance, typing @kbd{-} and then @kbd{j} will take Ediff to the last -difference. Typing @kbd{-2} then @kbd{j} takes Ediff to the penultimate -difference region, etc. +@item v +Scrolls up buffers A and B (and buffer C where appropriate) in a +coordinated fashion. +@item V +Scrolls the buffers down. + +@item < +Scrolls the buffers to the left simultaneously. +@item > +Scrolls buffers to the right. + +@item wd +Saves the output from the diff utility, for further reference. + +With prefix argument, saves the plain output from @file{diff} (see +@code{ediff-diff-program} and @code{ediff-diff-options}). Without the +argument, it saves customized @file{diff} output (see +@code{ediff-custom-diff-program} and @code{ediff-custom-diff-options}), if +it is available. -Without the prefix argument, all commands operate on the current -selected difference region. You can select any difference region -as the current one using other Ediff commands. +@item wa +Saves buffer A, if it was modified. +@item wb +Saves buffer B, if it was modified. +@item wc +Saves buffer C, if it was modified (if you are in a session that +compares three files simultaneously). + +@item a +@emph{In comparison sessions:} +Copies the current difference region (or the region specified as the prefix +to this command) from buffer A to buffer B. +Ediff saves the old contents of buffer B's region; it can +be restored via the command @kbd{rb}, which see. + +@emph{In merge sessions:} +Copies the current difference region (or the region specified as the prefix +to this command) from buffer A to the merge buffer. The old contents of +this region in buffer C can be restored via the command @kbd{r}. + +@item b +Works similarly, but copies the current difference region from buffer B to +buffer A (in @emph{comparison sessions}) or the merge buffer (in +@emph{merge sessions}). + +Ediff saves the old contents of the difference region copied over; it can +be reinstated via the command @kbd{ra} in comparison sessions and +@kbd{r} in merge sessions. -For some commands, the value of the prefix argument is immaterial. However, -if supplied, the prefix argument modifies the command. For instance, -normally the commands @kbd{ga}/@kbd{gb}/@kbd{gc} -(@code{ediff-jump-to-difference-at-point}) causes Ediff to jump to the -difference region that is closest to the point in a specified buffer (the -buffer, A, B, or C, is specified by the last character of the command, -i.e., for @code{gb}, the specified buffer is B). -However, with a prefix argument, Ediff would position all these -buffers around the area indicated by the current point in the specified -buffer: if the point is inside a difference region, then the buffers will -be positioned at this difference region. If the point is not in any -difference region, then it is in an area where all buffers agree with each -other. In this case, all buffers will be positioned so that they would -display this area. +@item ab +Copies the current difference region (or the region specified as the prefix +to this command) from buffer A to buffer B. This (and the next five) +command is enabled only in sessions that compare three files +simultaneously. The old region in buffer B is saved and can be restored +via the command @kbd{rb}. +@item ac +Copies the difference region from buffer A to buffer C. +The old region in buffer C is saved and can be restored via the command +@kbd{rc}. +@item ba +Copies the difference region from buffer B to buffer A. +The old region in buffer A is saved and can be restored via the command +@kbd{ra}. +@item bc +Copies the difference region from buffer B to buffer C. +The command @kbd{rc} undoes this. +@item ca +Copies the difference region from buffer C to buffer A. +The command @kbd{ra} undoes this. +@item cb +Copies the difference region from buffer C to buffer B. +The command @kbd{rb} undoes this. + +@item p +@itemx DEL +Makes the previous difference region current. +@item n +@itemx SPC +Makes the next difference region current. + +@item j +@itemx -j +@itemx Nj +Makes the very first difference region current. + +@kbd{-j} makes the last region current. Typing a number, N, and then `j' +makes the difference region N current. Typing -N (a negative number) then +`j' makes current the region Last - N. + +@item ga +Makes current the difference region closest to the position of the point in +buffer A. + +However, with a prefix argument, Ediff would position all variants +around the area indicated by the current point in buffer A: if +the point is inside a difference region, then the variants will be +positioned at this difference region. If the point is not in any difference +region, then it is in an area where all variants agree with each other. In +this case, the variants will be positioned so that each would display this +area (of agreement). +@item gb +Makes current the difference region closest to the position of the point in +buffer B. + +With a prefix argument, behaves like @kbd{ga}, but with respect to buffer B. +@item gc +@emph{In merge sessions:} +makes current the difference region closest to the point in the merge buffer. -The total number of differences and the current difference number are -always displayed in the mode line of the control window. +@emph{In 3-file comparison sessions:} +makes current the region closest to the point in buffer C. + +With a prefix argument, behaves like @kbd{ga}, but with respect to buffer C. + +@item ! +Recomputes the difference regions, bringing them up to date. This is often +needed because it is common to do all sorts of editing during Ediff +sessions, so after a while, the highlighted difference regions may no +longer reflect the actual differences among the buffers. + +@item * +Forces refinement of the current difference region, which highlights the exact +words of disagreement among the buffers. With a negative prefix argument, +unhighlights the current region. + +Forceful refinement may be needed if Ediff encounters a difference region +that is larger than @code{ediff-auto-refine-limit}. In this situation, +Ediff doesn't do automatic refinement in order to improve response time. +(Ediff doesn't auto-refine on dumb terminals as well, but @kbd{*} still +works there. However, the only useful piece of information it can tell you +is whether or not the difference regions disagree only in the amount of +white space.) + +This command is also useful when the highlighted fine differences are +no longer current, due to user editing. -If, after making changes to buffers A, B, or C, you decide to save them, it -is best to use @code{ediff-save-buffer}, which is bound to @kbd{wa}, -@kbd{wb}, and @kbd{wc} (@kbd{wa} will save buffer A, @kbd{wb} saves buffer -B, etc.). +@item m +Displays the current Ediff session in a frame as wide as the physical +display. This is useful when comparing files side-by-side. Typing `m' again +restores the original size of the frame. + +@item | +Toggles the horizontal/vertical split of the Ediff display. Horizontal +split is convenient when it is possible to compare files +side-by-side. If the frame in which files are displayed is too narrow +and lines are cut off, typing @kbd{m} may help some. + +@item @@ +Toggles auto-refinement of difference regions (i.e., automatic highlighting +of the exact words that differ among the variants). Auto-refinement is +turned off on devices where Emacs doesn't support highlighting. -Typing @kbd{wd} saves the output from the @code{diff} utility to a file, so -you can later refer to it. With prefix argument, this command saves the -plain output from @file{diff} (see @code{ediff-diff-program} and -@code{ediff-diff-options}). Without the argument, it saves customized -@file{diff} output (see @code{ediff-custom-diff-program} and -@code{ediff-custom-diff-options}), if it is available. +On slow machines, it may be advantageous to turn auto-refinement off. The +user can always forcefully refine specific difference regions by typing +@kbd{*}. + +@item h +Cycles between full highlighting, the mode where fine differences are not +highlighted (but computed), and the mode where highlighting is done with +ASCII strings. The latter is not really recommended, unless on a dumb TTY. + +@item r +Restores the old contents of the region in the merge buffer. +(If you copied a difference region from buffer A or B into the merge buffer +using the commands @kbd{a} or @kbd{b}, Ediff saves the old contents of the +region in case you change your mind.) + +This command is enabled in merge sessions only. -Instead of saving it, @file{diff} output can be @emph{displayed} using the -command @kbd{D}. Without the prefix argument, it displays the customized -@file{diff} output of the session. With the prefix argument, it displays -the plain @file{diff} output If either of the @file{diff} outputs is -unavailable (because it wasn't generated or the user killed the respective -buffer), then Ediff will try to display the other @file{diff} output. If -none is available, a warning is issued. +@item ra +Restores the old contents of the current difference region in buffer A, +which was previously saved when the user invoked one of these commands: +@kbd{b}, @kbd{ba}, @kbd{ca}, which see. This command is enabled in +comparison sessions only. +@item rb +Restores the old contents of the current difference region in buffer B, +which was previously saved when the user invoked one of these commands: +@kbd{a}, @kbd{ab}, @kbd{cb}, which see. This command is enabled in +comparison sessions only. +@item rc +Restores the old contents of the current difference region in buffer C, +which was previously saved when the user invoked one of these commands: +@kbd{ac}, @kbd{bc}, which see. This command is enabled in 3-file +comparison sessions only. + +@item ## +Tell Ediff to skip over regions that disagree among themselves only in the +amount of white space and line breaks. + +Even though such regions will be skipped over, you can still jump to any +one of them by typing the region number and then `j'. Typing @kbd{##} +again puts Ediff back in the original state. + +@item #h +@itemx #f +Ediff works hard to ameliorate the effects of boredom in the workplace... + +Quite often differences are due to identical replacements (e.g., the word +`foo' is replaced with the word `bar' everywhere). If the number of regions +with such boring differences exceeds your tolerance threshold, you may be +tempted to tell Ediff to skip these regions altogether (you will still be able +to jump to them via the command @kbd{j}). The above commands, @kbd{#h} +and @kbd{#f}, may well save your day! + +@kbd{#h} prompts you to specify regular expressions for each +variant. Difference regions where each variant's region matches the +corresponding regular expression will be skipped from then on. (You can +also tell Ediff to skip regions where at least one variant matches its +regular expression.) + +@kbd{#f} does dual job: it focuses on regions that match the corresponding +regular expressions. All other regions will be skipped +over. @xref{Selective Browsing}, for more. -The command @kbd{z} suspends the current ediff session. It hides the -control buffer and the variants. The easiest way to resume a suspended -Ediff session is through the registry of active sessions. -@xref{Registry of Ediff Sessions}, for details. +@item A +Toggles the read-only property in buffer A. +If file A is under version control and is checked in, it is checked out +(with your permission). +@item B +Toggles the read-only property in buffer B. +If file B is under version control and is checked in, it is checked out. +@item C +Toggles the read-only property in buffer C (in 3-file comparison sessions). +If file C is under version control and is checked in, it is checked out. + +@item ~ +Swaps the windows where buffers A and B are displayed. If you are comparing +three buffers at once, then this command would rotate the windows among +buffers A, B, and C. + +@item i +Displays all kinds of useful data about the current Ediff session. +@item D +Runs @code{ediff-custom-diff-program} on the variants and displays the +buffer containing the output. This is useful when you must send the output +to your Mom. + +With a prefix argument, displays the plain @file{diff} output. +@xref{Patch and Diff Programs}, for details. -The command @kbd{q} quits the current Ediff session. With a prefix -argument, it will ask the user whether to delete the variant -buffers. +@item R +Displays a list of currently active Ediff sessions---the Ediff Registry. +You can then restart any of these sessions by either clicking on a session +record or by putting the cursor over it and then typing the return key. + +(Some poor souls leave so many active Ediff sessions around that they loose +track of them completely... The `R' command is designed to save these +people from the recently discovered Ediff Proficiency Syndrome.) + +Typing @kbd{R} brings up Ediff Registry only if it is typed into an Ediff +Control Panel. If you don't have a control panel handy, type this in the +minibuffer: @kbd{M-x eregistry}. @xref{Registry of Ediff Sessions}. + +@item M +Shows the session group buffer that invoked the current Ediff session. +@xref{Session Groups}, for more information on session groups. -The command @kbd{s} is used only for merging. It shrinks window C (the -merge window) to its minimal size, thereby exposing as much of buffers A -and B as possible. This command is intended only for temporary viewing; -therefore, Ediff restores window C to its original size whenever it -makes any other change in the window configuration. Typing @kbd{s} -again also restores the original size of window C. However, recentering and -jumping to a difference does not affect window C's size. +@item z +Suspends the current Ediff session. (If you develop a condition known as +Repetitive Ediff Injury---a serious but curable illness---you must change +your current activity. This command tries hard to hide all Ediff-related +buffers.) + +The easiest way to resume a suspended Ediff session is through the registry +of active sessions. @xref{Registry of Ediff Sessions}, for details. +@item q +Terminates this Ediff session. With a prefix argument (e.g.,@kbd{1q}), asks +if you also want to delete the buffers of the variants. +Modified files and the results of merges are never deleted. + +@item % +Toggles narrowing in Ediff buffers. Ediff buffers may be narrowed if you +are comparing only parts of these buffers via the commands +@code{ediff-windows-*} and @code{ediff-regions-*}, which see. -With a positive prefix argument, the command @kbd{s} makes the merge -window, window C, slightly taller. With @kbd{-} or a negative prefix -argument, @kbd{s} makes window C slightly shorter. +@item C-l +Restores the usual Ediff window setup. This is the quickest way to resume +an Ediff session, but it works only if the control panel of that session is +visible. + +@item $ +While merging with an ancestor file, Ediff is determined to reduce user's +wear and tear by saving him and her much of unproductive, repetitive +typing. If it notices that, say, file A's difference region is identical to +the same difference region in the ancestor file, then the merge buffer will +automatically get the difference region taken from buffer B. The rationale +is that this difference region in buffer A is as old as that in the +ancestor buffer, so the contents of that region in buffer B represents real +change. + +You may want to ignore such `obvious' merges and concentrate on difference +regions where both files `clash' with the ancestor, since this means that +two different people have been changing this region independently and they +had different ideas on how to do this. + +The above command does this for you by skipping the regions where only one +of the variants clashes with the ancestor but the other variant agrees with +it. Typing @kbd{$} again undoes this setting. -Another command used only for merging is @kbd{+}. Its effect is to -combine the current difference regions of buffers A and B and put the -combination into the merge buffer. @xref{Merging and diff3}, specifically, -the variables @code{ediff-combine-diffs} and -@code{ediff-combination-pattern}. +@item / +Displays the ancestor file during merges. +@item & +In some situations, such as when one of the files agrees with the ancestor file +on a difference region and the other doesn't, Ediff knows what to do: it copies +the current difference region from the second buffer into the merge buffer. + +In other cases, the right course of action is not that clearcut, and Ediff +would use a default action. The above command changes the default action. +The default action can be @samp{default-A} (choose the region from buffer +A), @samp{default-B} (choose the region from buffer B), or @samp{combined} +(combine the regions from the two buffers). +@xref{Merging and diff3}, for further details. + +The command @kbd{&} also affects the regions in the merge buffers that have +@samp{default-A}, @samp{default-B}, or @samp{combined} status, provided +they weren't changed with respect to the original. For instance, if such a +region has the status @samp{default-A} then changing the default action to +@samp{default-B} will also replace this merge-buffer's region with the +corresponding region from buffer B. + +@item s +Causes the merge wondow shrink to its minimum size, thereby exposing as much +of the variant buffers as possible. Typing `s' again restores +the original size of that window. -In merge mode, Ediff uses a default variant (one of the two files being -merged) when it cannot decide which of the difference regions (that of -buffer A or buffer B) should be copied into the merge buffer. You might -decide to use the other variant instead. To facilitate this, Ediff has -a command, bound to @kbd{&}, which selects another default variant for -the current difference and subsequent differences. You can specify as -the new default any of @samp{default-A}, @samp{default-B}, or -@samp{combined}. @xref{Merging and diff3}, for details. +With a positive prefix argument, this command enlarges the merge window. +E.g., @kbd{4s} increases the size of the window by about 4 lines, if +possible. With a negative numeric argument, the size of the merge window +shrinks by that many lines, if possible. Thus, @kbd{-s} shrinks the window +by about 1 line and @kbd{-3s} by about 3 lines. + +This command is intended only for temporary viewing; therefore, Ediff +restores window C to its original size whenever it makes any other change +in the window configuration. However, redisplaying (@kbd{C-l}) or jumping +to another difference does not affect window C's size. + +The split between the merge window and the variant windows is controlled by +the variable @code{ediff-merge-window-share}, which see. + +@item + +Combines the difference regions from buffers A and B and copies the +result into the merge buffer. @xref{Merging and diff3} and the +variables @code{ediff-combine-diffs} and @code{ediff-combination-pattern}. + + +@item = +You may run into situations when a large chunk of text in one file has been +edited and then moved to a different place in another file. In such a case, +these two chunks of text are unlikely to belong to the same difference +region, so the refinement feature of Ediff will not be able to tell you +what exactly differs inside these chunks. Since eyeballing large pieces of +text is contrary to human nature, Ediff has a special command to help +reduce the risk of developing a cataract. -Such repeated merging affects only difference regions that have -default-A/B status, and only if they were not changed with respect to -their originals. +The above command compares regions within Ediff buffers. This creates a +child Ediff session for comparing current Emacs regions in buffers A, B, or +C as follows: + +@emph{If you are comparing 2 files or buffers:} +Ediff would compare current Emacs regions in buffers A and B. + +@emph{If you are comparing 3 files or buffers simultaneously:} Ediff would +compare the current Emacs regions in the buffers of your choice (you will +be asked which two of the three buffers to use). + +@emph{If you are merging files or buffers (with or without ancestor):} +Ediff would take the current region in the merge buffer and compare +it to the current region in the buffer of your choice (A or B). -Some commands are not bound to any key: +Highlighting set by the parent Ediff session is removed, to avoid interference +with highlighting of the child session. When done with the child session, type +@kbd{C-l} in the parent's control panel to restore the original highlighting. + +If you temporarily switch to the parent session, parent highlighting will be +restored. If you then come back to the child session, you may want to remove +parent highlighting, so it won't interfere. Typing @kbd{h} may help here. + +@end table + +@node Other Session Commands,,Quick Help Commands,Session Commands +@section Other Session Commands + +The following commands can be invoked from within any Ediff session, +although some of them are not bound to a key. @table @code @item eregistry @@ -440,16 +775,40 @@ @findex eregistry @findex ediff-show-registry This command brings up the registry of active Ediff sessions. Ediff -registry is a useful device that can be used for resuming Ediff sessions -when the user switched to some other work before finishing a comparison or -merging job. It is also useful for switching between multiple active Ediff -sessions that are run at the same time. The function @code{eregistry} is an -alias for @code{ediff-show-registry}. +registry is a device that can be used to resume any active Ediff session +(which may have been postponed because the user switched to some other +activity). This command is also useful for switching between multiple +active Ediff sessions that are run at the same time. The function +@code{eregistry} is an alias for @code{ediff-show-registry}. +@xref{Registry of Ediff Sessions}, for more information on this registry. + @item ediff-toggle-multiframe @findex ediff-toggle-multiframe Changes the display from the multi-frame mode (where the quick help window is in a separate frame) to the single-frame mode (where all Ediff buffers -share the same frame), and vice versa. +share the same frame), and vice versa. See +@code{ediff-window-setup-function} for details on how to make either of +these modes the default one. + +This function can also be invoked from Ediff menus. However, in this case, +it will affect only @emph{new} Ediff sessions, not the currently running +ones. +@item ediff-toggle-use-toolbar +@findex ediff-toggle-use-toolbar +Available in XEmacs only. The Ediff toolbar provides quick access to some +of the common Ediff functions. This function toggles the display of the +toolbar. If invoked from the menu, the function will not have immediate +effect---you will have to perform an action that changes Ediff window +configuration to see the effect (e.g., you could try to change the window +split). + +@item ediff-use-toolbar-p +@vindex ediff-use-toolbar-p +The use of the toolbar can also be specified via the variable +@code{ediff-use-toolbar-p} (default is @code{t}). This variable can be set +only in @file{.emacs} --- do @strong{not} change it interactively. Use the +function @code{ediff-toggle-use-toolbar} instead. + @item ediff-revert-buffers-then-recompute-diffs @findex ediff-revert-buffers-then-recompute-diffs This command reverts the buffers you are comparing and recomputes their @@ -470,7 +829,7 @@ profiling of ediff commands. @end table -@node Registry of Ediff Sessions, Session Groups, Commands, Top +@node Registry of Ediff Sessions, Session Groups, Session Commands, Top @chapter Registry of Ediff Sessions Ediff maintains a registry of all its invocations that are @@ -526,7 +885,7 @@ that invocation. Many commands are available in the session group buffer; some are -applicable only for certain types of work. The relevant commands are always +applicable only to certain types of work. The relevant commands are always listed at the top of each session group buffer, so there is no need to memorize them. @@ -553,6 +912,24 @@ for future operations (other than hiding) on a group of sessions. At present, the only such group-level operation is the creation of a multi-file patch. +@vindex ediff-autostore-merges +For group sessions created to merge files, Ediff can store all merges +automatically in a directory. The user is asked to specify such directory +if the value of @code{ediff-autostore-merges} is non-nil. If the value is +@code{nil}, nothing is done to the merge buffers---it will be the user's +responsibility to save them. If the value is @code{t}, the user will be +asked where to save the merge buffers in all merge jobs, even those that do +not originate from a session group. It the value is neither @code{nil} nor +@code{t}, the merge buffer is saved @emph{only} if this merge session was +invoked from a session group. This behavior is implemented in the function +@code{ediff-maybe-save-and-delete-merge}, which is a hook in +@code{ediff-quit-merge-hook}. The user can supply a different hook, if +necessary. + +The variable @code{ediff-autostore-merges} is buffer-local, so it can be +set in a per-buffer manner. Therefore, use @code{setq-default} to globally +change this variable. + @cindex Multi-file patches A multi-file patch is a concatenated output of several runs of the Unix @file{diff} command (some versions of @file{diff} let you create a @@ -568,6 +945,11 @@ output, and it is easier to handle by running Ediff on the inactive sessions. +Last, but not least, by typing @kbd{=}, you can quickly find out which +sessions have identical files, so you won't have to run Ediff on those +sessions. This, however, works only on local, uncompressed files. +For compressed or local files, this command won't report anything. + @node Remote and Compressed Files, Customization, Session Groups, Top @chapter Remote and Compressed Files @@ -585,11 +967,11 @@ in a temporary file that has the suffix @file{_patched} attached. Generally, this applies to files that are handled using black magic, such as special file handlers (ange-ftp and some compression and encryption -packages all use this method). +packages also use this method). Regular files are treated by the @code{patch} utility in the usual manner, i.e., the original is renamed into @file{source-name.orig} and the result -of the patch is placed into the file source-name. (Ediff @file{_orig} +of the patch is placed into the file source-name (@file{_orig} is used on systems like VMS, DOS, etc.) @node Customization, Credits, Remote and Compressed Files, Top @@ -597,7 +979,7 @@ Ediff has a rather self-explanatory interface, and in most cases you won't need to change anything. However, should the need arise, there are -extensive facilities to change the default behavior. +extensive facilities for changing the default behavior. Most of the customization can be done by setting various variables in the @file{.emacs} file. Some customization (mostly window-related @@ -612,7 +994,7 @@ @menu * Hooks:: Customization via the hooks. -* Quick Help:: How to customize Ediff's quick help feature. +* Quick Help Customization:: How to customize Ediff's quick help feature. * Window and Frame Configuration:: Controlling the way Ediff displays things. * Selective Browsing:: Advanced browsing through difference regions. * Highlighting Difference Regions:: Controlling highlighting. @@ -628,7 +1010,7 @@ * Notes on Heavy-duty Customization:: Customization for the gurus. @end menu -@node Hooks, Quick Help, Customization, Customization +@node Hooks, Quick Help Customization, Customization, Customization @section Hooks The bulk of customization can be done via the following hooks: @@ -640,7 +1022,9 @@ @item ediff-keymap-setup-hook @vindex ediff-keymap-setup-hook -This hook can be used to alter bindings in Ediff's keymap. These hooks are +@vindex ediff-mode-map +This hook can be used to alter bindings in Ediff's keymap, +@code{ediff-mode-map}. These hooks are run right after the default bindings are set but before @code{ediff-load-hook}. The regular user needs not be concerned with this hook---it is provided for implementors of other Emacs packages built on top @@ -690,6 +1074,15 @@ same buffer in two separate Ediff sessions: quitting one of them will delete this buffer in another session as well. +@item ediff-quit-merge-hook +@vindex ediff-quit-merge-hook +@vindex ediff-autostore-merges +@findex ediff-maybe-save-and-delete-merge +This hook is called when Ediff quits a merge job. By default, the value is +@code{ediff-maybe-save-and-delete-merge}, which is a function that attempts +to save the merge buffer according to the value of +@code{ediff-autostore-merges}, as described later. + @item ediff-before-setup-control-frame-hook @itemx ediff-after-setup-control-frame-hook @vindex ediff-before-setup-control-frame-hook @@ -740,10 +1133,20 @@ @vindex ediff-session-group-setup-hook Hooks run after setting up a control panel for a group of related Ediff sessions. @xref{Session Groups}, for details. +@item ediff-quit-session-group-hook +@vindex ediff-quit-session-group-hook +Hooks run just before exiting a session group. +@item ediff-meta-buffer-keymap-setup-hook +@vindex ediff-meta-buffer-keymap-setup-hook +@vindex ediff-meta-buffer-map +Hooks run just after setting up the @code{ediff-meta-buffer-map} --- the +map that controls key bindings in the meta buffer. Since +@code{ediff-meta-buffer-map} is a local variable, you can set different +bindings for different kinds of meta buffers. @end table -@node Quick Help, Window and Frame Configuration, Hooks, Customization -@section Quick Help +@node Quick Help Customization, Window and Frame Configuration, Hooks, Customization +@section Quick Help Customization @vindex ediff-use-long-help-message @vindex ediff-control-buffer @vindex ediff-startup-hook @@ -766,7 +1169,7 @@ the variable @code{ediff-help-message}, which is local to @code{ediff-control-buffer}. -@node Window and Frame Configuration, Selective Browsing, Quick Help, Customization +@node Window and Frame Configuration, Selective Browsing, Quick Help Customization, Customization @section Window and Frame Configuration On a non-windowing display, Ediff sets things up in one frame, splitting @@ -786,10 +1189,10 @@ (@code{ediff-next-difference}), etc. The above behavior also depends on whether the current frame is splittable, -dedicated, etc. Unfortunately, the margin is too small to present this -remarkable algorithm. +dedicated, etc. Unfortunately, the margin of this book is too narrow to +present the details of this remarkable algorithm. -The bottom line of all this is that you can compare buffers in one frame or +The upshot of all this is that you can compare buffers in one frame or in different frames. The former is done by default, while the latter can be achieved by arranging buffers A, B (and C, if applicable) to be seen in different frames. Ediff respects these arrangements, automatically @@ -855,9 +1258,9 @@ To start Ediff with an iconified Control Panel, you should set this variable to @code{t} and @code{ediff-prefer-long-help-message} to -@code{nil} (@pxref{Quick Help}). This behavior is useful only if the -window manager is TWM or a derivative. Also, this doesn't work under -XEmacs, since this editor ignores input from icons. +@code{nil} (@pxref{Quick Help Customization}). This behavior is useful +only if the window manager is TWM or a derivative. Also, this doesn't work +under XEmacs, since this editor ignores input from icons. @end table @findex ediff-setup-windows @@ -867,7 +1270,7 @@ separate frame offers an important opportunity by allowing you to iconify that frame. Under Emacs, the icon will usually accept all of the Ediff commands, but will free up valuable real estate on your screen -(this may depend on the window manager, though). Iconifying won't do +(this may depend on your window manager, though). Iconifying won't do any good under XEmacs since XEmacs icons are not sensitive to keyboard input. The saving grace is that, even if not iconified, the control frame is very small, smaller than some icons, so it does not take much @@ -910,9 +1313,9 @@ @section Selective Browsing Sometimes it is convenient to be able to step through only some difference -regions, those that satisfy certain regular expressions, and to ignore all +regions, those that match certain regular expressions, and to ignore all others. On other occasions, you may want to ignore difference regions that -satisfy some regular expressions, and to look only at the rest. +match some regular expressions, and to look only at the rest. The commands @kbd{#f} and @kbd{#h} let you do precisely this. @@ -933,7 +1336,7 @@ On the other hand, typing @kbd{#h} lets you specify (hide) uninteresting regions. That is, if a difference region in buffer A matches @var{regexp-A}, the corresponding region in buffer B matches @var{regexp-B} -and (if applicable) buffer-C's region matches @var{regexp-C}, then the +and (if applicable) buffer C's region matches @var{regexp-C}, then the region will be ignored by the commands @kbd{n}/@key{SPC} (@code{ediff-next-difference}) and @kbd{p}/@key{DEL} (@code{ediff-previous-difference}) commands. @@ -963,7 +1366,7 @@ line. You can use the status command, @kbd{i}, to find out whether -selective browsing is currently in use. +selective browsing is currently in effect. The regular expressions you specified are kept in the local variables @code{ediff-regexp-focus-A}, @code{ediff-regexp-focus-B}, @@ -974,14 +1377,16 @@ In addition to the ability to ignore regions that match regular expressions, Ediff can be ordered to start skipping over certain -``inessential'' regions. This is controlled by the following variable: +``uninteresting'' difference regions. This is controlled by the following +variable: @table @code @item ediff-ignore-similar-regions @vindex ediff-ignore-similar-regions -If @code{t}, causes Ediff to skip over difference regions -that deemed inessential, i.e., where the only differences are those -in the white space and newlines. +If @code{t}, causes Ediff to skip over "uninteresting" difference regions, +which are the regions where the variants differ only in the amount of the +white space and newlines. This feature can be toggled on/off interactively, +via the command @kbd{##}. @end table @strong{Note:} In order for this feature to work, auto-refining of @@ -991,10 +1396,10 @@ text-only terminals. In that case, you must explicitly turn auto-refining on (such as, by typing @kbd{@@}). -@strong{Reassurance:} If many inessential regions appear in a row, Ediff may -take a long time to jump to the next region because it has to compute -fine differences of all intermediate regions. This delay does not -indicate any problem. +@strong{Reassurance:} If many such uninteresting regions appear in a row, +Ediff may take a long time to skip over them because it has to compute fine +differences of all intermediate regions. This delay does not indicate any +problem. @node Highlighting Difference Regions, Narrowing, Selective Browsing, Customization @section Highlighting Difference Regions @@ -1053,6 +1458,21 @@ displays, because without colors options are limited. So, Ediff uses italics to highlight non-current differences. +@item ediff-even-diff-pixmap +@itemx ediff-odd-diff-pixmap +@itemx ediff-fine-diff-pixmap +@vindex ediff-even-diff-pixmap +@vindex ediff-odd-diff-pixmap +@vindex ediff-fine-diff-pixmap +On monochrome graphical displays, Ediff attempts to provide additional +hues using background pixmaps. The above variables specify pixmaps (which +are strings representing filenames of bitmaps) for even-numbered background +difference regions, odd-numbered regions, and fine differences. If Ediff's +default pixmaps don't exist on your machine, check the bitmap directory at +your installation to find an appropriate bitmap. The bitmap directory can +be found by checking the value of the Emacs variable +@code{x-bitmap-file-path}. + @item ediff-force-faces @vindex ediff-force-faces Ediff generally can detect when Emacs is running on a device where it can @@ -1062,15 +1482,15 @@ @item ediff-highlight-all-diffs @vindex ediff-highlight-all-diffs -Indicates whether---on a window system---Ediff should highlight differences -using inserted strings (as on a text-only terminal) or using colors and -highlighting. Normally, Ediff highlights all differences, but the -selected difference is highlighted more visibly. One can cycle through -various modes of highlighting by typing @kbd{h}. By default, Ediff -starts in the mode where all difference regions are highlighted. If you -prefer to start in the mode where unselected differences are not -highlighted, you should set @code{ediff-highlight-all-diffs} to -@code{nil}. Type @kbd{h} to restore highlighting of all differences. +Indicates whether---on a windowind display---Ediff should highlight +differences using inserted strings (as on text-only terminals) or using +colors and highlighting. Normally, Ediff highlights all differences, but +the selected difference is highlighted more visibly. One can cycle through +various modes of highlighting by typing @kbd{h}. By default, Ediff starts +in the mode where all difference regions are highlighted. If you prefer to +start in the mode where unselected differences are not highlighted, you +should set @code{ediff-highlight-all-diffs} to @code{nil}. Type @kbd{h} to +restore highlighting for all differences. Ediff lets you switch between the two modes of highlighting. That is, you can switch interactively from highlighting using faces to @@ -1095,7 +1515,7 @@ @example (setq ediff-current-diff-face-A -(copy-face 'bold-italic 'ediff-current-diff-face-A)) + (copy-face 'bold-italic 'ediff-current-diff-face-A)) @end example @noindent @@ -1127,15 +1547,14 @@ If buffers being compared are narrowed at the time of invocation of Ediff, @code{ediff-buffers} will preserve the narrowing range. However, if @code{ediff-files} is invoked on the files visited by these buffers, -that widens the buffers, since this command is defined to compare the +that would widen the buffers, since this command is defined to compare the entire files. -Calling @code{ediff-regions-linewise} or @code{ediff-windows-linewise}, -or the corresponding @samp{-wordwise} commands, narrows the buffers -being compared (corresponding to the regions being compared). The -original accessible ranges are restored when you quit Ediff. -During the command, you can toggle this narrowing on and off -with the @kbd{%} command. +Calling @code{ediff-regions-linewise} or @code{ediff-windows-linewise}, or +the corresponding @samp{-wordwise} commands, narrows the variants to the +particular regions being compared. The original accessible ranges are +restored when you quit Ediff. During the command, you can toggle this +narrowing on and off with the @kbd{%} command. These two variables control this narrowing behavior: @@ -1191,7 +1610,7 @@ @item ediff-forward-word-function @vindex ediff-forward-word-function -This variable gives control over how fine differences are computed. The +This variable controls how fine differences are computed. The value must be a Lisp function that determines how the current difference region should be split into words. @@ -1199,12 +1618,11 @@ @vindex ediff-forward-word-function @findex ediff-forward-word Fine differences are computed by first splitting the current difference -region into words and then passing this along to -@code{ediff-diff-program}. For the default -@code{ediff-forward-word-function} (which is @code{ediff-forward-word}), a -word is a string consisting of letters, @samp{-}, or @samp{_}; a string of -punctuation symbols; a string of digits, or a string consisting of symbols -that are neither space, nor a letter. +region into words and then passing the result to +@code{ediff-diff-program}. For the default forward word function (which is +@code{ediff-forward-word}), a word is a string consisting of letters, +@samp{-}, or @samp{_}; a string of punctuation symbols; a string of digits, +or a string consisting of symbols that are neither space, nor a letter. This default behavior is controlled by four variables: @code{ediff-word-1}, ..., @code{ediff-word-4}. See the on-line documentation for these variables @@ -1235,8 +1653,7 @@ fine difference regions): @table @code -@item ediff-patch-program -@itemx ediff-diff-program +@item ediff-diff-program @itemx ediff-diff3-program @vindex ediff-patch-program @vindex ediff-diff-program @@ -1244,8 +1661,7 @@ These variables specify the programs to use to produce differences and do patching. -@item ediff-patch-options -@itemx ediff-diff-options +@item ediff-diff-options @itemx ediff-diff3-options @vindex ediff-patch-options @vindex ediff-diff-options @@ -1257,6 +1673,40 @@ Ediff does not let you use the option @samp{-c}, as it doesn't recognize this format yet. +@item ediff-patch-program +The program to use to apply patches. Since there are certain +incompatibilities between the different versions of the patch program, the +best way to stay out of trouble is to use a GNU-compatible version. +Otherwise, you may have to tune the values of the variables +@code{ediff-patch-options}, @code{ediff-backup-specs}, and +@code{ediff-backup-extension} as described below. +@item ediff-patch-options +Options to pass to @code{ediff-patch-program}. + +Note: the `-b' option should be specified in `ediff-backup-specs'. + +It is recommended to pass the `-f' option to the patch program, so it won't +ask questions. However, some implementations don't accept this option, in +which case the default value of this variable should be changed. + +@item ediff-backup-extension +Backup extension used by the patch program. Must be specified, even if +@code{ediff-backup-specs} is given. +@item ediff-backup-specs +Backup directives to pass to the patch program. +Ediff requires that the old version of the file (before applying the patch) +is saved in a file named @file{the-patch-file.extension}. Usually +`extension' is `.orig', but this can be changed by the user, and may also be +system-dependent. Therefore, Ediff needs to know the backup extension used +by the patch program. + +Some versions of the patch program let the user specify `-b backup-extension'. +Other versions only permit `-b', which (usually) assumes the extension `.orig'. + +Note that both `ediff-backup-extension' and `ediff-backup-specs' must be +properly set. If your patch program takes the option `-b', but not +`-b extension', the variable `ediff-backup-extension' must still +be set so Ediff will know which extension to use. @item ediff-custom-diff-program @itemx ediff-custom-diff-options @@ -1289,7 +1739,7 @@ @noindent @strong{Warning:} Ediff does not support the output format of VMS -@code{diff}. Instead, make sure to use some implementation of POSIX +@code{diff}. Instead, make sure you are using some implementation of POSIX @code{diff}, such as @code{gnudiff}. @node Merging and diff3, Support for Version Control, Patch and Diff Programs, Customization @@ -1333,27 +1783,27 @@ the difference region of buffer A; the second string goes between the regions; the third goes after region B, as shown in the above example. -In addition to the state of the difference, during merging Ediff -displays the state of the merge for each region. If a difference came -from buffer A by default (because both regions A and B were different -from the ancestor and @code{ediff-default-variant} was set to @code{default-A}) -then @samp{[=diff(A) default-A]} is displayed in the mode line. If the -difference in buffer C came, say, from buffer B because the difference region -in that buffer differs from the ancestor, but the region in buffer A +In addition to the state of the difference, Ediff displays the state of the +merge for each region. If a difference came from buffer A by default +(because both regions A and B were different from the ancestor and +@code{ediff-default-variant} was set to @code{default-A}) then +@samp{[=diff(A) default-A]} is displayed in the mode line. If the +difference in buffer C came, say, from buffer B because the difference +region in that buffer differs from the ancestor, but the region in buffer A does not (if merging with an ancestor) then @samp{[=diff(B) prefer-B]} is displayed. The indicators default-A/B and prefer-A/B are inspired by -Emerge and have the same meaning. +Emerge and have the same meaning. Another indicator of the state of merge is @samp{combined}. It appears with any difference region in buffer C that was obtained by combining the difference regions in buffers A and B as explained above. -In addition to state of merge and difference indicator, while merging with an -ancestor file or buffer, Ediff informs the user when the current difference -region in the (normally invisible) ancestor buffer is empty via the -@emph{AncestorEmpty} indicator. This helps determine if the changes -made to the original in variants A and B represent pure insertion or -deletion of text: if the mode line shows @emph{AncestorEmpty} and the +In addition to the state of merge and state of difference indicators, while +merging with an ancestor file or buffer, Ediff informs the user when the +current difference region in the (normally invisible) ancestor buffer is +empty via the @emph{AncestorEmpty} indicator. This helps determine if the +changes made to the original in variants A and B represent pure insertion +or deletion of text: if the mode line shows @emph{AncestorEmpty} and the corresponding region in buffers A or B is not empty, this means that new text was inserted. If this indicator is not present and the difference regions in buffers A or B are non-empty, this means that text was @@ -1438,10 +1888,31 @@ You can toggle this feature interactively by typing @kbd{$}. -Note that this variable controls only how Ediff chooses the -next/previous difference to show. You can still jump directly to any -difference using the command @kbd{j} (with a prefix argument specifying -the difference number). +Note that this variable affects only the show next/previous difference +commands. You can still jump directly to any difference region directly +using the command @kbd{j} (with a prefix argument specifying the difference +number). + +@vindex ediff-autostore-merges +@vindex ediff-quit-merge-hook +@findex ediff-maybe-save-and-delete-merge +The variable @code{ediff-autostore-merges} controls what happens to the +merge buffer when Ediff quits. If the value is @code{nil}, nothing is done +to the merge buffer---it will be the user's responsibility to save it. +If the value is @code{t}, the user will be asked where to save the buffer +and whether to delete it afterwards. It the value is neither @code{nil} nor +@code{t}, the merge buffer is saved @emph{only} if this merge session was +invoked from a group of related Ediff session, such as those that result +from @code{ediff-merge-directories}, +@code{ediff-merge-directory-revisions}, etc. +@xref{Session Groups}. This behavior is implemented in the function +@code{ediff-maybe-save-and-delete-merge}, which is a hook in +@code{ediff-quit-merge-hook}. The user can supply a different hook, if +necessary. + +The variable @code{ediff-autostore-merges} is buffer-local, so it can be +set in a per-buffer manner. Therefore, use @code{setq-default} to globally +change this variable. @node Support for Version Control, Customizing the Mode Line, Merging and diff3, Customization @section Support for Version Control @@ -1691,8 +2162,9 @@ by emerge.el written by Dale R. Worley <drw@@math.mit.edu>. An idea due to Boris Goldowsky <boris@@cs.rochester.edu> made it possible to highlight fine differences in Ediff buffers. Alastair Burt <burt@@dfki.uni-kl.de> -ported Ediff to XEmacs, and Eric Freudenthal <freudent@@jan.ultra.nyu.edu> -made it work with VC. +ported Ediff to XEmacs, Eric Freudenthal <freudent@@jan.ultra.nyu.edu> +made it work with VC, and Marc Paquette <paquette@@crim.ca> wrote the +toolbar support package for Ediff. Many people provided help with bug reports, patches, and advice. Without them, Ediff would not be nearly as useful as it is today. @@ -1713,7 +2185,9 @@ Eric Freudenthal (freudent@@jan.ultra.nyu.edu), Job Ganzevoort (Job.Ganzevoort@@cwi.nl), Boris Goldowsky (boris@@cs.rochester.edu), -Allan Gottlieb (gottlieb@@allan.ultra.nyu.edu), Xiaoli Huang (hxl@@epic.com), +Allan Gottlieb (gottlieb@@allan.ultra.nyu.edu), +Xiaoli Huang (hxl@@epic.com), +Lars Magne Ingebrigtsen (larsi@@ifi.uio.no), Larry Gouge (larry@@itginc.com), Karl Heuer (kwzh@@gnu.ai.mit.edu), (irvine@@lks.csi.com), (jaffe@@chipmunk.cita.utoronto.ca), David Karr (dkarr@@nmo.gtegsc.com), @@ -1739,12 +2213,14 @@ Sandy Rutherford (sandy@@ibm550.sissa.it), Heribert Schuetz (schuetz@@ecrc.de), Andy Scott (ascott@@pcocd2.intel.com), Axel Seibert (axel@@tumbolia.ppp.informatik.uni-muenchen.de), +Scott O. Sherman (Scott.Sherman@@mci.com), Richard Stallman (rms@@gnu.ai.mit.edu), Richard Stanton (stanton@@haas.berkeley.edu), Ake Stenhoff (etxaksf@@aom.ericsson.se), Stig (stig@@hackvan.com), Peter Stout (Peter_Stout@@cs.cmu.edu), Chuck Thompson (cthomp@@cs.uiuc.edu), Ray Tomlinson (tomlinso@@bbn.com), Raymond Toy (toy@@rtp.ericsson.se), +Philippe Waroquiers (philippe.waroquiers@@eurocontrol.be), Ben Wing (wing@@666.com), Ilya Zakharevich (ilya@@math.ohio-state.edu), Eli Zaretskii (eliz@@is.elta.co.il)
--- a/man/lispref/help.texi Mon Aug 13 09:05:11 2007 +0200 +++ b/man/lispref/help.texi Mon Aug 13 09:05:42 2007 +0200 @@ -77,14 +77,12 @@ @end itemize @cindex @file{DOC} (documentation) file -@cindex @file{emacs/etc/DOC-@var{version}} -@cindex @file{etc/DOC-@var{version}} To save space, the documentation for preloaded functions and variables (including primitive functions and autoloaded functions) is stored in -the @dfn{internal doc file} @file{emacs/etc/DOC-@var{version}}. The -documentation for functions and variables loaded during the XEmacs -session from byte-compiled files is stored in those very same -byte-compiled files (@pxref{Docs and Compilation}). +the @dfn{internal doc file} @file{DOC}. The documentation for functions +and variables loaded during the XEmacs session from byte-compiled files +is stored in those very same byte-compiled files (@pxref{Docs and +Compilation}). XEmacs does not keep documentation strings in memory unless necessary. Instead, XEmacs maintains, for preloaded symbols, an integer offset into @@ -250,18 +248,17 @@ them in the in-core function definitions and variable property lists in place of the actual strings. @xref{Building XEmacs}. - XEmacs finds the file @var{filename} in the @file{xemacs/lib-src} -directory. When the dumped XEmacs is later executed, the same file is -found in the directory @code{doc-directory}. Usually @var{filename} is -@file{"DOC-@var{version}"}, but this can be changed by modifying the -variable @code{internal-doc-file-name}. + XEmacs finds the file @var{filename} in the @file{lib-src} directory. +When the dumped XEmacs is later executed, the same file is found in the +directory @code{doc-directory}. The usual value for @var{filename} is +@file{DOC}, but this can be changed by modifying the variable +@code{internal-doc-file-name}. @end defun @defvar internal-doc-file-name This variable holds the name of the file containing documentation -strings of built-in symbols, usually @file{"DOC-@var{version}"}. The -full pathname of the internal doc file is @samp{(concat doc-directory -internal-doc-file-name)}. +strings of built-in symbols, usually @file{DOC}. The full pathname of +the internal doc file is @samp{(concat doc-directory internal-doc-file-name)}. @end defvar @defvar doc-directory
--- a/man/lispref/loading.texi Mon Aug 13 09:05:11 2007 +0200 +++ b/man/lispref/loading.texi Mon Aug 13 09:05:42 2007 +0200 @@ -346,7 +346,7 @@ @noindent In this case, @code{"prolog"} is the name of the file to load, 169681 -refers to the documentation string in the @file{emacs/etc/DOC} file +refers to the documentation string in the @file{DOC} file (@pxref{Documentation Basics}), @code{t} means the function is interactive, and @code{nil} that it is not a macro or a keymap. @end defun @@ -415,7 +415,7 @@ The backslash and newline immediately following the double-quote are a convention used only in the preloaded Lisp files such as @file{loaddefs.el}; they tell @code{make-docfile} to put the -documentation string in the @file{etc/DOC} file. @xref{Building XEmacs}. +documentation string in the @file{DOC} file. @xref{Building XEmacs}. @node Repeated Loading @section Repeated Loading
--- a/man/lispref/sequences.texi Mon Aug 13 09:05:11 2007 +0200 +++ b/man/lispref/sequences.texi Mon Aug 13 09:05:42 2007 +0200 @@ -302,18 +302,20 @@ @node Array Functions @section Functions that Operate on Arrays - In this section, we describe the functions that accept both strings -and vectors. + In this section, we describe the functions that accept strings, vectors, +and bit vectors. @defun arrayp object -This function returns @code{t} if @var{object} is an array (i.e., either a -vector or a string). +This function returns @code{t} if @var{object} is an array (i.e., a +string, vector, or bit vector). @example @group +(arrayp "asdf") +@result{} t (arrayp [a]) @result{} t -(arrayp "asdf") +(arrayp #*101) @result{} t @end group @end example @@ -336,7 +338,12 @@ @group (aref "abcdefg" 1) - @result{} 98 ; @r{@samp{b} is @sc{ASCII} code 98.} + @result{} ?b +@end group + +@group +(aref #*1101 2) + @result{} 0 @end group @end example @@ -361,10 +368,19 @@ (setq x "asdfasfd") @result{} "asdfasfd" (aset x 3 ?Z) - @result{} 90 + @result{} ?Z x @result{} "asdZasfd" @end group + +@group +(setq bv #*1111) + @result{} #*1111 +(aset bv 2 0) + @result{} 0 +bv + @result{} #*1101 +@end group @end example If @var{array} is a string and @var{object} is not a character, a @@ -390,6 +406,13 @@ (fillarray s ?-) @result{} "------------------" @end group + +@group +(setq bv #*1101) + @result{} #*1101 +(fillarray bv 0) + @result{} #*0000 +@end group @end example If @var{array} is a string and @var{object} is not a character, a @@ -545,9 +568,8 @@ create a bit vector with 100,000 elements if you really wanted to. Bit vectors have a special printed representation consisting of -@samp{#*} followed by the bits of the vector. For example, a bit -vector whose elements are 0, 1, 1, 0, and 1, respectively, is printed -as +@samp{#*} followed by the bits of the vector. For example, a bit vector +whose elements are 0, 1, 1, 0, and 1, respectively, is printed as @example #*01101 @@ -570,7 +592,7 @@ @result{} t (bit-vector-p [0 1]) @result{} nil -(vectorp "asdf") +(bit-vector-p "01") @result{} nil @end group @end example @@ -581,27 +603,27 @@ @end defun @defun bit-vector &rest objects -This function creates and returns a vector whose elements are the -arguments, @var{objects}. The elements must be either of the two +This function creates and returns a bit vector whose elements are the +arguments @var{objects}. The elements must be either of the two integers 0 or 1. @example @group (bit-vector 0 0 0 1 0 0 0 0 1 0) @result{} #*0001000010 -(vector) +(bit-vector) @result{} #* @end group @end example @end defun @defun make-bit-vector length object -This function returns a new bit vector consisting of @var{length} elements, -each initialized to @var{object}. +This function creates and returns a bit vector consisting of +@var{length} elements, each initialized to @var{object}. @example @group -(setq sleepy (make-vector 9 1)) +(setq picket-fence (make-bit-vector 9 1)) @result{} #*111111111 @end group @end example @@ -609,13 +631,13 @@ @defun bvconcat &rest sequences @cindex copying bit vectors -This function returns a new bit vector containing all the elements of the -@var{sequences}. The arguments @var{sequences} may be lists or vectors, -all of whose elements are the integers 0 or 1. If no @var{sequences} are -given, an empty bit vector is returned. +This function returns a new bit vector containing all the elements of +the @var{sequences}. The arguments @var{sequences} may be lists, +vectors, or bit vectors, all of whose elements are the integers 0 or 1. +If no @var{sequences} are given, an empty bit vector is returned. The value is a newly constructed bit vector that is not @code{eq} to any -existing vector. +existing bit vector. @example @group @@ -642,9 +664,9 @@ @example @group -(setq avector #*00001110) +(setq bv #*00001110) @result{} #*00001110 -(append avector nil) +(append bv nil) @result{} (0 0 0 0 1 1 1 0) @end group @end example
--- a/man/lispref/symbols.texi Mon Aug 13 09:05:11 2007 +0200 +++ b/man/lispref/symbols.texi Mon Aug 13 09:05:42 2007 +0200 @@ -170,7 +170,7 @@ @emph{intended} to be used as variables, or as functions. In addition, utilities such as @file{etags} and @file{make-docfile} recognize definitions, and add appropriate information to tag tables and the -@file{emacs/etc/DOC-@var{version}} file. @xref{Accessing Documentation}. +@file{DOC} file. @xref{Accessing Documentation}. @node Creating Symbols @section Creating and Interning Symbols
--- a/man/tm/Makefile Mon Aug 13 09:05:11 2007 +0200 +++ b/man/tm/Makefile Mon Aug 13 09:05:42 2007 +0200 @@ -17,14 +17,15 @@ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -#### This makefile is currently broken! -#### makeinfo doesn't work with these .texi files! +# The japanese texinfo files requires the very latest 20.0 xemacs +EMACS = xemacs NAMES = tm tm-edit tm-view gnus-mime tm-mh-e -NAMES_EN = $(NAMES:%=%-en) +NAMES_EN = $(NAMES:%=%-en) tm-vm-en NAMES_JA = $(NAMES:%=%-ja) NAMES_ALL = $(NAMES_EN) $(NAMES_JA) +#NAMES_ALL = $(NAMES_EN) INFOS = $(NAMES_ALL:%=../../info/%.info) -DVIS = $(NAMES_ALL:%=%.dvi) +DVIS = $(NAMES_EN:%=%.dvi) TEXI2DVI = texi2dvi @@ -33,9 +34,14 @@ all : info info : $(INFOS) -../../info/%.info : %.texi +../../info/%-en.info : %-en.texi makeinfo -o $@ $< +../../info/%-ja.info : %-ja.texi + $(EMACS) -batch -q -no-site-file $< -eval '(cd "../../info")' \ + -l texinfmt -f texinfo-format-buffer \ + -eval '(setq file-coding-system (quote iso-2022-7))' -f save-buffer + dvi: $(DVIS) .texi.dvi : $(TEXI2DVI) $<
--- a/man/tm/tm-vm-en.texi Mon Aug 13 09:05:11 2007 +0200 +++ b/man/tm/tm-vm-en.texi Mon Aug 13 09:05:42 2007 +0200 @@ -1,6 +1,6 @@ \input texinfo.tex @c %**start of header -@setfilename tm-vm_en.info +@setfilename tm-vm-en.info @settitle tm-vm Manual (English Version) @c %**end of header @@ -26,7 +26,7 @@ @titlepage @title tm-vm Manual (English Version) @author by Oscar Figueiredo -@code{$Id: tm-vm-en.texi,v 1.1 1996/12/28 21:12:52 steve Exp $} +@code{$Id: tm-vm-en.texi,v 1.2 1997/01/04 23:05:28 steve Exp $} @page tm-vm is part of the TM Package. @@ -56,7 +56,7 @@ * Install:: Installation procedure * Usage:: Detailed usage of tm-vm * Customization:: How to customize tm-vm behavior. -* What's new:: Recent modifications +* News:: Recent modifications * Copyright:: * Variable Index:: * Concept Index:: @@ -258,7 +258,7 @@ -@node Customization, What's new, Usage, Top +@node Customization, News, Usage, Top @chapter Customization Several variables let you adapt the behavior of tm-vm to your needs. You @@ -320,8 +320,8 @@ @end lisp -@node What's new, Copyright, Customization, Top -@chapter What's new +@node News, Copyright, Customization, Top +@chapter News This section documents the changes in the latest releases of tm-vm. @@ -390,7 +390,7 @@ -@node Copyright, Variable Index, What's new, Top +@node Copyright, Variable Index, News, Top @ifinfo @chapter Copyright
--- a/man/viper-cmd.texi Mon Aug 13 09:05:11 2007 +0200 +++ b/man/viper-cmd.texi Mon Aug 13 09:05:42 2007 +0200 @@ -1259,8 +1259,8 @@ @node Mouse-bound Commands,,,Commands @section Mouse-bound Commands -The following two mouse actions are normally bound to special search and -insert commands in Viper: +The following two mouse actions are normally bound to to special search and +insert commands in of Viper: @table @kbd @item S-mouse-1 (Emacs)
--- a/man/viper.texi Mon Aug 13 09:05:11 2007 +0200 +++ b/man/viper.texi Mon Aug 13 09:05:42 2007 +0200 @@ -4,7 +4,8 @@ \input texinfo @comment Using viper.info instead of viper in setfilename breaks DOS. -@setfilename ../info/viper.info +@setfilename viper +@comment @setfilename ../info/viper @comment @setfilename viper.info @iftex @@ -288,7 +289,7 @@ @kbd{x} while holding the Meta key down. For keyboards that do not have a Meta key, @key{ESC} is used as Meta. Thus @kbd{M-x} is typed as @kbd{ESC x}. Viper uses @key{ESC} to switch -from Insert state to Vi state. Therefore Viper defines @kbd{_} as its Meta +from Insert state to Vi state. Therefore Viper defines @kbd{C-\} as its Meta key in Vi state. @xref{Vi State}, for more info.@refill Emacs is structured as a lisp interpreter around a C core. Emacs keys @@ -377,7 +378,6 @@ @section States in Viper @kindex @kbd{C-z} -@kindex @kbd{C-z} @kindex @kbd{ESC} @kindex @kbd{i} @cindex Emacs state @@ -442,11 +442,10 @@ those special modes (typing @kbd{C-h m} in a buffer provides help with key bindings for the major mode of that buffer). -If you switch to Vi in Dired or similar modes---no harm is -done. It is just that -the special keybindings provided by those modes will be temporarily -overshadowed by Viper's bindings. Switching back to Viper's -Emacs state will revive the environment provided by the current major mode. +If you switch to Vi in Dired or similar modes---no harm is done. It is just +that the special keybindings provided by those modes will be temporarily +overshadowed by Viper's bindings. Switching back to Viper's Emacs state +will revive the environment provided by the current major mode. States in Viper are orthogonal to Emacs major modes, such as C mode or Dired mode. You can turn Viper on and off for any Emacs state. When Viper is turned @@ -480,7 +479,7 @@ You will be in this mode only by accident (hopefully). This is the state Emacs is normally in (imagine!!). Now leave it as soon as possible by -typing @kbd{C-z}. The you will be in Vi state (sigh of relief) :-). +typing @kbd{C-z}. Then you will be in Vi state (sigh of relief) :-). Emacs state is actually a Viperism to denote all the major and minor modes (@xref{Emacs Preliminaries}) other than Viper that Emacs can be in. Emacs @@ -499,10 +498,10 @@ sequences that begin with @kbd{C-x} and @kbd{C-c}. There is also a key that lets you temporarily escape to Vi command state -from Emacs state: typing @kbd{M-C-z} (or @kbd{ESC C-z}) will let -you execute a single Vi command while staying in Viper's Emacs state. -At present, this works only for 1-character Vi commands (and for some -complex commands). +from Emacs or Insert states: typing @kbd{C-c \} will let you execute a +single Vi command while staying in Viper's Emacs or Insert state. +In Insert state, the same can also be achieved by typing @kbd{C-z}. + @node Vi State, Insert State, Emacs State, States in Viper @subsection Vi State @@ -544,15 +543,18 @@ At user level 1, @kbd{C-g} is bound to @code{vip-info-on-file} function instead. @refill -@item Underscore -@kindex @kbd{_} +@item C-\ +@kindex @kbd{C-\} @cindex Meta key Viper uses @kbd{ESC} as a switch between Insert and Vi states. Emacs uses @kbd{ESC} for Meta. We need a Meta key to call the Meta key functions -such as @kbd{M-x function name}. The underscore key, @kbd{_}, was chosen, -since it is the only reasonable, free Vi key left. Thus, in Vi state, to -get @kbd{M-x}, you should type @kbd{_x} (if the keyboard has no Meta key). +such as @kbd{M-x function name}. This role is played by the key @kbd{C-\}. +Thus, to +get @kbd{M-x}, you should type @kbd{C-\ x} (if the keyboard has no Meta key). +This works both in the Vi state and the Insert state. +Alternatively, you can use @kbd{\ ESC} in Vi state to simulate the meta +key. It is possible to use @kbd{ESC} as Meta, but then you cannot press @kbd{ESC} multiple times in Vi state. @xref{Customization}, to find out how to rebind ESC to be Meta.@refill @@ -698,15 +700,8 @@ @cindex Meta key -You can call Meta functions from Insert state. The Vi-to-Emacs toggle key, -normally @kbd{C-z}, is bound to Meta in Insert state. Thus @kbd{M-x} is -typed as @kbd{C-zx}. The key @kbd{_} will now insert itself---it is not a -Meta key in Insert state. (It is well understood that switching Meta keys -around is inconvenient. However, there seems to be no way around this -problem, short of changing Vi ESC key to something -else. @xref{Customization}, for the information on @code{vip-ESC-key}, which -can be used to free up @kbd{ESC} and designate some other key to do escape -from Insert state to Vi state.) +You can call Meta functions from Insert state. As in Vi state, the Meta key +is @kbd{C-\}. Thus @kbd{M-x} is typed as @kbd{C-\ x}. Other Emacs commands that are useful in Insert state are @kbd{C-e} and @kbd{C-a}, which move the cursor to the end and the beginning of the @@ -715,7 +710,7 @@ If your display has a Meta key, these functions are invoked by holding the Meta key and then typing @kbd{f} and @kbd{b}, respectively. On displays without the Meta key, these functions are invoked by typing -@kbd{C-z f} and @kbd{C-z b} (@kbd{C-z} simulates the Meta key in Insert +@kbd{C-\ f} and @kbd{C-\ b} (@kbd{C-\} simulates the Meta key in Insert state, as explained above). When Viper is in Insert state, you will see <I> in the mode line. @@ -1173,14 +1168,14 @@ @code{vip-search-face}. If you don't want any highlighting at all, put @example -(copy-face 'default 'vip-search-face) +(setq vip-search-face 'default) @end example @vindex @code{vip-search-face} @noindent in @file{~/.vip}. If you want to change how patterns are highlighted, you will have to set the variable @code{vip-search-face} to some other face, such as @code{highlight}. If none of the existing faces fits the bill, you -may have to create your own. Further details on faces can be found +would have to create your own. Further details on faces can be found in the Emacs Lisp Manual. @node Abbreviation Facilities,Movement and Markers,Improved Search,Improvements over Vi @@ -1256,6 +1251,7 @@ Changes to @code{vip-syntax-preference} should be done in the hooks to various major modes. Furthermore, for these changes to take effect, you should execute @code{(vip-update-alphanumeric-class)} right after changing +the value of @code{vip-syntax-preference}. The above discussion of the meaning of Viper's words concerns only Viper's movement commands. In regular expressions, words remain the same as in @@ -1282,8 +1278,7 @@ @kindex @kbd{C-x} @kindex @kbd{C-c} @kbd{C-x} will exit from Vi state and return to Emacs state -@emph{temporarily}. If -you hit one of these keys, Emacs will believe +@emph{temporarily}. If you hit one of these keys, Emacs will believe that you hit that key in Emacs state. For example, if you hit @kbd{C-x} followed by @kbd{2}, then the current window will be split into 2 and you will be in Vi state again. Except for novice users, @kbd{C-c} is also set @@ -1291,8 +1286,8 @@ major mode. @kbd{ESC} will do the same, if you configure @key{ESC} as Meta by setting @code{vip-no-multiple-ESC} to nil -in @file{.vip}. @xref{Customization}. @kbd{C-z} -in Insert state will make Emacs think @kbd{Meta} has been hit.@refill +in @file{.vip}. @xref{Customization}. @kbd{C-\} +in Insert or Vi states will make Emacs think @kbd{Meta} has been hit.@refill @item \ @kindex @kbd{\} Escape to Emacs to execute a single Emacs command. For instance, @kbd{\ @@ -1385,9 +1380,6 @@ Search buffer for text delimited by movement command. The canonical example is @kbd{gw} to search for the word under the cursor. @xref{Improved Search}, for details.@refill -@item _ -@kindex @kbd{_} -Meta key when in Vi state.@xref{Vi State}, for an explanation. @item C-g and C-] @kindex @kbd{C-g} @kindex @kbd{C-]} @@ -1521,8 +1513,7 @@ @pindex hilit19.el @cindex font-lock @pindex font-lock.el -@code{hilit19.el} and @code{font-lock.el} for automatic highlighting -various parts of a buffer +@code{font-lock.el} for automatic highlighting various parts of a buffer using different fonts and colors. @item Saving Emacs Configuration @cindex desktop @@ -1620,21 +1611,22 @@ @kbd{:se ai} changes the value of @code{vip-auto-indent} in the current buffer only; @kbd{:se gai} does the same globally. @item vip-electric-mode t -If @code{t}, auto-indentation becomes electric, which means that @kbd{RET}, -@kbd{O}, and @kbd{o} indent cursor according to the current major mode. In -the future, this variable may control additional electric features. +If not @code{nil}, auto-indentation becomes electric, which means that +@kbd{RET}, @kbd{O}, and @kbd{o} indent cursor according to the current +major mode. In the future, this variable may control additional electric +features. This is a local variable: @code{setq} changes the value of this variable in the current buffer only. Use @code{setq-default} to change the value in all buffers. @item vip-case-fold-search nil @itemx :se ic (:se ignorecase) -If @code{t}, search ignores cases. +If not @code{nil}, search ignores cases. This can also be toggled by quickly hitting @kbd{/} twice. @item vip-re-search nil @itemx :se magic -If @code{t} then search is reg-exp search, if @code{nil} then vanilla -search. +If not @code{nil}, search will use regular expressions; if @code{nil} then +use vanilla search. This behavior can also be toggled by quickly hitting @kbd{/} trice. @item buffer-read-only @itemx :se ro (:se readonly) @@ -1673,18 +1665,21 @@ The number of columns shifted by @kbd{>} and @kbd{<} commands. @item vip-search-wrap-around t @itemx :se ws (:se wrapscan) -If @code{t}, search wraps around the end/beginning of buffer. +If not @code{nil}, search wraps around the end/beginning of buffer. +@item vip-adjust-window-after-search t +If not @code{nil}, window will be pulled up or down, as appropriate, if +search lands near the first (or last) line of the window. @item vip-tags-file-name "TAGS" The name of the file used as the tag table. @item vip-re-query-replace nil -If @code{t}, use reg-exp replace in query replace. +If not @code{nil}, use reg-exp replace in query replace. @item vip-want-ctl-h-help nil -If @code{t}, @kbd{C-h} is bound to @code{help-command}; +If not @code{nil}, @kbd{C-h} is bound to @code{help-command}; if @code{nil}, it is bound to @code{delete-backward-char}. @item vip-vi-style-in-minibuffer t -If @code{t}, Viper provides a high degree of compatibility with Vi insert mode -when you type text in the Minibuffer; if @code{nil}, typing in the -Minibuffer feels like plain Emacs. +If not @code{nil}, Viper provides a high degree of compatibility with Vi +insert mode when you type text in the Minibuffer; if @code{nil}, typing in +the Minibuffer feels like plain Emacs. @item vip-no-multiple-ESC t If you set this to @code{nil}, you can use @kbd{ESC} as Meta in Vi state. Normally, this is not necessary, since graphical displays have separate @@ -1703,7 +1698,7 @@ Set this to @code{nil}, if you want @kbd{l,h} to cross lines, etc. @xref{Movement and Markers}, for more info. @item vip-ex-style-editing-in-insert t -Set this to @code{nil}, if you want @kbd{ESC} to not move back and +Set this to to @code{nil}, if you want @kbd{ESC} to not move back and @kbd{C-h} to not stop at the beginning of a line in Insert state. @item vip-always t @@ -1734,7 +1729,7 @@ @findex @code{vip-ex-nontrivial-find-file-ms} @findex @code{vip-ex-nontrivial-find-file-unix} @item ex-cycle-other-window t -If @code{t}, @kbd{:n} and @kbd{:b} will cycle through files in another +If not @code{nil}, @kbd{:n} and @kbd{:b} will cycle through files in another window, if one exists. @item ex-cycle-through-non-files nil @kbd{:n} does not normally cycle through buffers. Set this to get @@ -1762,9 +1757,9 @@ unless you are a novice, as this precludes the use of language-specific features provided by the major modes. @item vip-keep-point-on-repeat t -If @code{t}, point is not moved when the user repeats the previous command -by typing `.' This is very useful for doing repeated changes with the -@kbd{.} key. +If not @code{nil}, point is not moved when the user repeats the previous +command by typing `.' This is very useful for doing repeated changes with +the @kbd{.} key. @item vip-repeat-from-history-key 'f12 Prefix key used to invoke the macros @kbd{f12 1} and @kbd{f12 2} that repeat the second-last and the third-last destructive command. @@ -1775,44 +1770,59 @@ but the user can bind more in @file{~/.vip}. @xref{Vi Macros}, for how to do this. @item vip-keep-point-on-undo nil -If @code{t}, Viper tries to not move point when undoing commands. +If not @code{nil}, Viper tries to not move point when undoing commands. Instead, it will briefly move the cursor to the place where change has taken place. However, if the undone piece of text is not seen in window, then point will be moved to the place where the change took place. Set it to @code{t} and see if you like it better. @item vip-delete-backwards-in-replace nil -If @code{t}, DEL key will delete characters while moving the cursor backwards. -If @code{nil}, the cursor will move backwards without deleting anything. +If not @code{nil}, DEL key will delete characters while moving the cursor +backwards. If @code{nil}, the cursor will move backwards without deleting +anything. @item vip-replace-overlay-face 'vip-replace-overlay-face +@itemx vip-replace-overlay-pixmap "grey3" On a graphical display, Viper highlights replacement regions instead of putting a @samp{$} at the end. This variable controls the so called @dfn{face} used to highlight the region. -By default, @code{vip-replace-overlay-face} underlines the replacement -on monochrome displays and highlights it with color on color displays. -If you know something about Emacs -faces and don't like how Viper highlights replacement regions, you can change -this variable to specify a new face name. (Emacs faces are described in the -Emacs Lisp reference.) -On a color display, the following customization method is usually -most effective: +By default, @code{vip-replace-overlay-face} underlines the replacement on +monochrome displays and also lays a pixmap over them (as specified in the +variable @code{vip-replace-overlay-pixmap}. On color displays, replacement +regions are highlighted with color. + +If you know something about Emacs faces and don't like how Viper highlights +replacement regions, you can change @code{vip-replace-overlay-face} by +specifying a new face. (Emacs faces are described in the Emacs Lisp +reference.) On a color display, the following customization method is +usually most effective: @example (set-face-foreground vip-replace-overlay-face "DarkSlateBlue") (set-face-background vip-replace-overlay-face "yellow") @end example -For a complete list of colors available to you, evaluate the -expression @code{(x-defined-colors)}. (Type it in the buffer @code{*scratch*} -and then hit the @kbd{C-j} key. +For a complete list of colors available to you, evaluate the expression +@code{(x-defined-colors)}. (Type it in the buffer @code{*scratch*} and then +hit the @kbd{C-j} key. + +On a monochrome display, you can change the value of the variable +@code{vip-replace-overlay-pixmap} to specify the pixmap of your choice +(which should be a string denoting the file name of the pixmap). Emacs +takes pixmaps from the directory specified in the variable +@code{x-bitmap-file-path}. @item vip-replace-overlay-cursor-color "Red" +@vindex @code{vip-replace-overlay-cursor-color} Cursor color when it is inside the replacement region. This has effect only on color displays and only when Emacs runs as an X application. +@item vip-insert-state-cursor-color nil +@vindex @code{vip-insert-state-cursor-color} +If set to a valid color, this will be the cursor color when Viper is in +insert state. @item vip-replace-region-end-delimiter "$" -A string used to mark the end of replacement regions. It is used only with +A string used to mark the end of replacement regions. It is used only on TTYs or if @code{vip-use-replace-region-delimiters} is non-nil. @item vip-replace-region-start-delimiter "" A string used to mark the beginning of replacement regions. It is used -only with TTYs or if @code{vip-use-replace-region-delimiters} is non-nil. +only on TTYs or if @code{vip-use-replace-region-delimiters} is non-nil. @item vip-use-replace-region-delimiters If non-nil, Viper will always use @code{vip-replace-region-end-delimiter} and @code{vip-replace-region-start-delimiter} to delimit replacement regions, @@ -1822,6 +1832,10 @@ Specifies the key used to switch from Emacs to Vi and back. Must be set in @file{.vip} or prior to loading Viper. This variable can't be changed interactively after Viper is loaded. + +In Insert state, this key acts as a temporary escape to Vi state, i.e., it +will set Viper up so that the very next command will be executed as if it +were typed in Vi state. @item vip-ESC-key "\e" Specifies the key used to escape from Insert/Replace states to Vi. Must be set in @file{.vip} or prior to loading Viper. This variable cannot be @@ -1864,6 +1878,7 @@ @vindex @code{vip-shift-width} @vindex @code{buffer-read-only} @vindex @code{vip-search-wrap-around} +@vindex @code{vip-adjust-window-after-search} @vindex @code{vip-search-face} @vindex @code{vip-tags-file-name} @vindex @code{vip-re-query-replace} @@ -1885,6 +1900,7 @@ @vindex @code{vip-keep-point-on-undo} @vindex @code{vip-delete-backwards-in-replace} @vindex @code{vip-replace-overlay-face} +@vindex @code{vip-replace-overlay-pixmap} @vindex @code{vip-replace-region-end-symbol} @vindex @code{vip-replace-region-start-symbol} @vindex @code{vip-toggle-key} @@ -2167,8 +2183,8 @@ a case, you will have to bind @code{vip-insert-tab} to some other convenient key. -Some packages, notably Dired, Gnus, Info, etc., attach special meaning -to common keys like @kbd{SPC}, @kbd{x}, @kbd{d}, @kbd{v}, and others. This +Some packages, notably Dired, Gnus, Info, etc., attach special meaning to +common keys like @kbd{SPC}, @kbd{x}, @kbd{d}, @kbd{v}, and others. This means that Vi command state is inappropriate for working with these packages. Fortunately, these modes operate on read-only buffers and are designed not for editing files, but for special-purpose browsing, reading @@ -2179,10 +2195,9 @@ usually, incremental search, which is bound to @kbd{C-s}, is sufficient in these situations). But you should then switch back to Emacs state if you plan to continue using these major modes productively. You can also switch -to Vi temporarily, to execute one 1-character command. This is done by -typing @kbd{M-C-z} (or @kbd{ESC C-z}). -This facility cannot execute several complex Vi commands, such as @kbd{dw}, -@kbd{de}, etc. +to Vi temporarily, to execute just one command. This is done by typing +@kbd{C-c \}. (In some of these modes, @kbd{/} and @kbd{:} are bound +Vi-style, unless these keys perform essential duties.) It is also possible to harness some major modes, even though they may bind common keys to specialized commands. Harnessing can make sense for modes @@ -2282,15 +2297,41 @@ second @kbd{/} doesn't follow quickly enough, then Viper will issue the usual prompt @kbd{/} and will wait for input, as usual in Vi. If you don't like this behavior, you can ``unrecord'' these macros in your -@file{~/.vip} file. For instance, if u don't like the above feature, put +@file{~/.vip} file. For instance, if you don't like the above feature, put this in @file{~/.vip}: @example -(vip-unrecord-kbd-macro "//" 'vi-state) -(vip-unrecord-kbd-macro "///" 'vi-state) +(vip-set-vi-search-style-macros 'undefine) @end example -@findex @code{vip-unrecord-kbd-macro} - +@findex @code{vip-set-vi-search-style-macros} + +@item Vi-isms in Emacs state +Some people find it useful to use the Vi-style search key, `/', to invoke +search in modes which Viper leaves in emacs-state. These modes are: +@code{dired-mode}, @code{mh-folder-mode}, @code{gnus-group-mode}, +@code{gnus-summary-mode}, @code{Info-mode}, and @code{Buffer-menu-mode} +(more may be added in the future). So, in the above modes, Viper binds `/' +so that it will behave Vi-style. Furthermore, in those major modes, Viper +binds `:' to invoke ex-style commands, like in vi-state. And, as described +above, `//' and `///' get bound to Vi-style macros that toggle +case-insensitivity and regexp-search. + +If you don't like these features---which I don't really understand---you +can unbind `/' and `:' in @code{vip-dired-modifier-map} (for Dired) or in +@code{vip-slash-and-colon-map}, for other modes. +@vindex @code{vip-slash-and-colon-map} +@vindex @code{vip-dired-modifier-map} + +To unbind the macros `//' and `///' for a major mode where you feel they +are undesirable, execute @code{vip-set-emacs-search-style-macros} with a +non-nil argument. This can be done either interactively, by supplying a +prefix argument, or by placing +@example +(vip-set-emacs-search-style-macros 'undefine) +@end example +@findex @code{vip-set-emacs-search-style-macros} +in the hook to the major mode (e.g., @code{dired-mode-hook}). @xref{Vi Macros}, for more information on Vi macros. + @item vip-heading-start @item vip-heading-end @cindex headings @@ -2413,7 +2454,7 @@ in the @file{~/.vip} file. However, in that case, the user will not have any indication of the current Viper state in the minibuffer. (This is important if the user accidentally switches to another Viper state by typing @kbd{ESC} or -@kbd{C-z}. +@kbd{C-z}). @end table @cindex Multifile documents and programs @@ -2917,7 +2958,9 @@ hatazaki@@bach.convex.com (Takao Hatazaki), sawdey@@lcse.umn.edu (Aaron Sawdey), jobrien@@hchp.org (John O'Brien), -mrb@@Eng.Sun.COM (Martin Buchholz) +mrb@@Eng.Sun.COM (Martin Buchholz), +kwzh@@gnu.ai.mit.edu (Karl Heuer), +sudish@@MindSpring.COM (Sudish Joseph) @end example
--- a/mule-doc/INSTALL Mon Aug 13 09:05:11 2007 +0200 +++ b/mule-doc/INSTALL Mon Aug 13 09:05:42 2007 +0200 @@ -220,9 +220,9 @@ 5) Put into `./lisp/site-init.el' or `./lisp/site-load.el' any Emacs Lisp code you want Emacs to load before it is dumped out. Use site-load.el for additional libraries if you arrange for their -documentation strings to be in the etc/DOC file (see -src/Makefile.in.in if you wish to figure out how to do that). For all -else, use site-init.el. +documentation strings to be in the DOC file (see src/Makefile.in.in if +you wish to figure out how to do that). For all else, use +site-init.el. <MULE> All language specific basic environments are defined `./lisp/mule-init.el'.
--- a/src/ChangeLog Mon Aug 13 09:05:11 2007 +0200 +++ b/src/ChangeLog Mon Aug 13 09:05:42 2007 +0200 @@ -1,3 +1,35 @@ +Sat Jan 4 12:15:16 1997 Steven L Baur <steve@altair.xemacs.org> + + * toolbar.c (specifier_vars_of_toolbar): Clean up fallback + specifiers so XEmacs can be built without tty support. + + * console-stream.c: Moved function bodies of + semi_canonicalize_console_connection, + canonicalize_console_connection, + semi_canonicalize_device_connection, and + canonicalize_device_connection into this file from console-tty.c. + Moved variable Vstdio_str into this file. + + * console-tty.c: See above. + +Fri Jan 3 18:07:11 1997 Axel Seibert <aseibert@cybernet-ag.net> + + * m/next.h: Cleanup accumulated cruft. + + * s/nextstep.h: Remove useless #undef REL_ALLOC/HAVE_MMAP. + + * syssignal.h: Don't typedef SIGTYPE on NeXT. + +Fri Jan 3 12:06:44 1997 Michael Sperber <sperber@informatik.uni-tuebingen.de> + + * m/ibmrs6000.inp: Added various get.* symbols. + +Sun Dec 29 20:16:08 1996 Steven L Baur <steve@altair.xemacs.org> + + * m/next.h: Remove signal_handler_t #define. + + * s/nextstep.h: Remove signal_handler_t #define. + Fri Dec 27 21:13:33 1996 Martin Buchholz <mrb@Eng.Sun.COM> * event-Xt.c (x_to_emacs_keysym): Corrections to SUNOS_GCC_LO_BUG.
--- a/src/Makefile.in.in Mon Aug 13 09:05:11 2007 +0200 +++ b/src/Makefile.in.in Mon Aug 13 09:05:42 2007 +0200 @@ -899,7 +899,7 @@ general.o getloadavg.o GIF_OBJS glyphs.o GUI_OBJS \ hash.o \ indent.o inline.o insdel.o intl.o \ - keymap.o \ + keymap.o $(RTC_PATCH_O) \ lread.o lstream.o \ macros.o marker.o md5.o MENUBAR_OBJS minibuf.o MOCKLISPOBJS \ NAS_OBJS NSOBJS \ @@ -1237,7 +1237,8 @@ here because we do not want things to appear to be out-of-date just because the version number has been incremented. -- D.N.G. 8/28/93] */ -lisp= ${lispdir}paths.el ${lispdir}prim/loaddefs.elc \ +lisp= ${lispdir}paths.el \ + ${lispdir}prim/loaddefs.elc ${lispdir}prim/auto-autoloads.elc \ ${lispdir}prim/loadup.el ${lispdir}prim/subr.elc \ ${lispdir}prim/cmdloop.elc CMDLOOP_LISP \ ${lispdir}utils/text-props.elc MOUSE_LISP \ @@ -1434,6 +1435,23 @@ cemacs: TEMACS_DEPS $(LD) $(ENERGIZEP) TEMACS_LINK_ARGS +rtc_patch.o: + rtc_patch_area -o $@ + +rtcmacs: TEMACS_DEPS rtc_patch.o + rm -f temacs; $(MAKE) $(MAKE_FLAGS) temacs RTC_PATCH_O=rtc_patch.o + mv temacs rtcmacs + +rtcrun: rtcmacs + dbx -q -C -c \ + 'dbxenv rtc_error_log_file_name /dev/fd/1; \ + dbxenv suppress_startup_message 5.0; \ + ignore POLL; \ + check -access; \ + suppress rui; \ + runargs -batch -l loadup.el run-temacs -q; \ + run' rtcmacs + puremacs: TEMACS_DEPS $(PURIFY_PROG) $(PURIFY_FLAGS) $(LD) TEMACS_LINK_ARGS
--- a/src/buffer.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/buffer.c Mon Aug 13 09:05:42 2007 +0200 @@ -2510,7 +2510,8 @@ particular operation, you should bind the variable `overriding-file-coding-system' rather than changing the other two variables just mentioned, which are intended to be used for -global environment specification. */ ); +global environment specification. +*/ ); #endif /* MULE */ DEFVAR_BUFFER_LOCAL ("auto-fill-function", auto_fill_function /*
--- a/src/console-stream.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/console-stream.c Mon Aug 13 09:05:42 2007 +0200 @@ -42,7 +42,7 @@ Lisp_Object Vterminal_device; Lisp_Object Vterminal_frame; -extern Lisp_Object Vstdio_str; /* in console-tty.c */ +Lisp_Object Vstdio_str; static void allocate_stream_console_struct (struct console *con) @@ -124,32 +124,46 @@ free_stream_console_struct (con); } -static Lisp_Object +Lisp_Object stream_semi_canonicalize_console_connection (Lisp_Object connection, Error_behavior errb) { - return tty_semi_canonicalize_console_connection (connection, errb); + if (NILP (connection)) + return Vstdio_str; + + return connection; } -static Lisp_Object +Lisp_Object stream_canonicalize_console_connection (Lisp_Object connection, Error_behavior errb) { - return tty_canonicalize_console_connection (connection, errb); + if (NILP (connection) || !NILP (Fequal (connection, Vstdio_str))) + return Vstdio_str; + + if (!ERRB_EQ (errb, ERROR_ME)) + { + if (!STRINGP (connection)) + return Qunbound; + } + else + CHECK_STRING (connection); + + return Ffile_truename (connection, Qnil); } -static Lisp_Object +Lisp_Object stream_semi_canonicalize_device_connection (Lisp_Object connection, Error_behavior errb) { - return tty_semi_canonicalize_device_connection (connection, errb); + return stream_semi_canonicalize_console_connection (connection, errb); } -static Lisp_Object +Lisp_Object stream_canonicalize_device_connection (Lisp_Object connection, Error_behavior errb) { - return tty_canonicalize_device_connection (connection, errb); + return stream_canonicalize_console_connection (connection, errb); } @@ -317,6 +331,10 @@ The initial frame-object, which represents Emacs's stdout. */ ); Vterminal_frame = Qnil; + + /* Moved from console-tty.c */ + Vstdio_str = build_string ("stdio"); + staticpro (&Vstdio_str); } void
--- a/src/console-tty.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/console-tty.c Mon Aug 13 09:05:42 2007 +0200 @@ -43,8 +43,7 @@ Lisp_Object Qterminal_type; -Lisp_Object Vstdio_str; - +extern Lisp_Object Vstdio_str; /* in console-stream.c */ static void allocate_tty_console_struct (struct console *con) @@ -211,42 +210,28 @@ tty_semi_canonicalize_console_connection (Lisp_Object connection, Error_behavior errb) { - if (NILP (connection)) - return Vstdio_str; - - return connection; + return stream_semi_canonicalize_console_connection (connection, errb); } Lisp_Object tty_canonicalize_console_connection (Lisp_Object connection, Error_behavior errb) { - if (NILP (connection) || !NILP (Fequal (connection, Vstdio_str))) - return Vstdio_str; - - if (!ERRB_EQ (errb, ERROR_ME)) - { - if (!STRINGP (connection)) - return Qunbound; - } - else - CHECK_STRING (connection); - - return Ffile_truename (connection, Qnil); + return stream_canonicalize_console_connection (connection, errb); } Lisp_Object tty_semi_canonicalize_device_connection (Lisp_Object connection, Error_behavior errb) { - return tty_semi_canonicalize_console_connection (connection, errb); + return stream_semi_canonicalize_console_connection (connection, errb); } Lisp_Object tty_canonicalize_device_connection (Lisp_Object connection, Error_behavior errb) { - return tty_canonicalize_console_connection (connection, errb); + return stream_canonicalize_console_connection (connection, errb); } @@ -281,7 +266,4 @@ vars_of_console_tty (void) { Fprovide (Qtty); - - Vstdio_str = build_string ("stdio"); - staticpro (&Vstdio_str); }
--- a/src/doc.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/doc.c Mon Aug 13 09:05:42 2007 +0200 @@ -180,7 +180,7 @@ /* Extract a doc string from a file. FILEPOS says where to get it. (This could actually be byte code instructions/constants instead of a doc string.) - If it is an integer, use that position in the standard DOC-... file. + If it is an integer, use that position in the standard DOC file. If it is (FILE . INTEGER), use FILE as the file name and INTEGER as the position in that file. But if INTEGER is negative, make it positive.
--- a/src/editfns.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/editfns.c Mon Aug 13 09:05:42 2007 +0200 @@ -549,7 +549,7 @@ } DEFUN ("following-char", Ffollowing_char, 0, 1, 0, /* -Return the character following point, as a number. +Return the character following point. At the end of the buffer or accessible region, return 0. If BUFFER is nil, the current buffer is assumed. */ @@ -563,7 +563,7 @@ } DEFUN ("preceding-char", Fpreceding_char, 0, 1, 0, /* -Return the character preceding point, as a number. +Return the character preceding point. At the beginning of the buffer or accessible region, return 0. If BUFFER is nil, the current buffer is assumed. */ @@ -584,9 +584,7 @@ (buffer)) { struct buffer *b = decode_buffer (buffer, 1); - if (BUF_PT (b) == BUF_BEGV (b)) - return Qt; - return Qnil; + return BUF_PT (b) == BUF_BEGV (b) ? Qt : Qnil; } DEFUN ("eobp", Feobp, 0, 1, 0, /* @@ -597,9 +595,7 @@ (buffer)) { struct buffer *b = decode_buffer (buffer, 1); - if (BUF_PT (b) == BUF_ZV (b)) - return Qt; - return Qnil; + return BUF_PT (b) == BUF_ZV (b) ? Qt : Qnil; } int
--- a/src/emacs.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/emacs.c Mon Aug 13 09:05:42 2007 +0200 @@ -1557,6 +1557,7 @@ int to = 1; int from; int i; + int end_of_options_p = 0; /* Categorize all the options, and figure out which argv elts are option arguments. */ @@ -1564,7 +1565,11 @@ { options[from] = -1; priority[from] = 0; - if (argv[from][0] == '-') + /* Pseudo options "--" and "run-temacs" indicate end of options */ + if (!strcmp (argv[from], "--") || + !strcmp (argv[from], "run-temacs")) + end_of_options_p = 1; + if (!end_of_options_p && argv[from][0] == '-') { int match, thislen; char *equals; @@ -1760,39 +1765,36 @@ suppress_early_backtrace = 0; lim_data = 0; /* force reinitialization of this variable */ - if (sizeof (Lisp_Object) != sizeof (void *)) - abort (); /* Lisp_Object must fit in a word; - check VALBITS and GCTYPEBITS */ + /* Lisp_Object must fit in a word; check VALBITS and GCTYPEBITS */ + assert (sizeof (Lisp_Object) == sizeof (void *)); + if (!initialized) - { - run_temacs_argc = 0; - if (! SETJMP (run_temacs_catch)) - main_1 (vol_argc, vol_argv, vol_envp); - /* run-emacs-from-temacs called */ - vol_argc = run_temacs_argc; - run_temacs_argc = 0; - vol_argv = run_temacs_argv; + { + run_temacs_argc = 0; + if (! SETJMP (run_temacs_catch)) + main_1 (vol_argc, vol_argv, vol_envp); + /* run-emacs-from-temacs called */ + vol_argc = run_temacs_argc; + vol_argv = run_temacs_argv; #ifdef _SCO_DS - /* - This makes absolutely no sense to anyone involved. - There are several people using this stuff. We've - compared versions on everything we can think of. We - can find no difference. However, on both my systems - environ is a plain old global variable initialized to - zero. _environ is the one that contains pointers to - the actual environment. - Since we can't figure out the difference (and we're - hours away from a release), this takes a very cowardly - approach and is bracketed with both a system specific - preprocessor test and a runtime "do you have this - problem" test - 06/20/96 robertl@dgii.com - */ - { - extern char *_environ ; - if ((unsigned) environ == 0) - environ=_environ; - } + /* This makes absolutely no sense to anyone involved. There are + several people using this stuff. We've compared versions on + everything we can think of. We can find no difference. + However, on both my systems environ is a plain old global + variable initialized to zero. _environ is the one that + contains pointers to the actual environment. + + Since we can't figure out the difference (and we're hours + away from a release), this takes a very cowardly approach and + is bracketed with both a system specific preprocessor test + and a runtime "do you have this problem" test + + 06/20/96 robertl@dgii.com */ + { + extern char *_environ; + if ((unsigned) environ == 0) + environ=_environ; + } #endif /* _SCO_DS */ vol_envp = environ; }
--- a/src/event-Xt.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/event-Xt.c Mon Aug 13 09:05:42 2007 +0200 @@ -599,18 +599,8 @@ /* X to Emacs event conversion */ /************************************************************************/ -#if (defined(sun) || defined(__sun)) && defined(__GNUC__) -# define SUNOS_GCC_L0_BUG -#endif - -#ifdef SUNOS_GCC_L0_BUG -static void -x_to_emacs_keysym_sunos_bug (Lisp_Object *return_value_sunos_bug, /* #### */ - XKeyPressedEvent *event, int simple_p) -#else /* !SUNOS_GCC_L0_BUG */ static Lisp_Object x_to_emacs_keysym (XKeyPressedEvent *event, int simple_p) -#endif /* !SUNOS_GCC_L0_BUG */ /* simple_p means don't try too hard (ASCII only) */ { char *name; @@ -627,11 +617,6 @@ Status status; #endif -#ifdef SUNOS_GCC_L0_BUG -# define return(lose) \ - do {*return_value_sunos_bug = (lose); goto return_it; } while (0) -#endif - #ifdef HAVE_XIM #ifdef XIM_MOTIF #define LOOKUPSTRING \ @@ -708,9 +693,9 @@ enqueue_Xt_dispatch_event (emacs_event); } Lstream_close (XLSTREAM (instream)); - return (Qnil); + return Qnil; } - case XLookupNone: return (Qnil); + case XLookupNone: return Qnil; case XBufferOverflow: bufptr = alloca (len+1); bufsiz = len+1; @@ -724,36 +709,33 @@ if (keysym >= XK_exclam && keysym <= XK_asciitilde) /* We must assume that the X keysym numbers for the ASCII graphic characters are the same as their ASCII codes. */ - return (make_char (keysym)); + return make_char (keysym); switch (keysym) { /* These would be handled correctly by the default case, but by special-casing them here we don't garbage a string or call intern(). */ - case XK_BackSpace: return (QKbackspace); - case XK_Tab: return (QKtab); - case XK_Linefeed: return (QKlinefeed); - case XK_Return: return (QKreturn); - case XK_Escape: return (QKescape); - case XK_space: return (QKspace); - case XK_Delete: return (QKdelete); - case 0: return (Qnil); + case XK_BackSpace: return QKbackspace; + case XK_Tab: return QKtab; + case XK_Linefeed: return QKlinefeed; + case XK_Return: return QKreturn; + case XK_Escape: return QKescape; + case XK_space: return QKspace; + case XK_Delete: return QKdelete; + case 0: return Qnil; default: - if (simple_p) return (Qnil); - /* #### without return_value_sunos_bug, %l0 (GCC struct return pointer) - * #### gets roached (top 8 bits cleared) around this call. - */ + if (simple_p) return Qnil; /* !!#### not Mule-ized */ name = XKeysymToString (keysym); if (!name || !name[0]) /* this shouldn't happen... */ { char buf [255]; sprintf (buf, "unknown_keysym_0x%X", (int) keysym); - return (KEYSYM (buf)); + return KEYSYM (buf); } /* If it's got a one-character name, that's good enough. */ - if (!name[1]) return (make_char (name[0])); + if (!name[1]) return make_char (name[0]); /* If it's in the "Keyboard" character set, downcase it. The case of those keysyms is too totally random for us to @@ -772,28 +754,12 @@ } } *s2 = 0; - return (KEYSYM (buf)); + return KEYSYM (buf); } - return (KEYSYM (name)); + return KEYSYM (name); } -#ifdef SUNOS_GCC_L0_BUG -# undef return - return_it: - return; -#endif } -#ifdef SUNOS_GCC_L0_BUG -/* #### */ -static Lisp_Object -x_to_emacs_keysym (XKeyPressedEvent *event, int simple_p) -{ - Lisp_Object return_value_sunos_bug; - x_to_emacs_keysym_sunos_bug (&return_value_sunos_bug, event, simple_p); - return (return_value_sunos_bug); -} -#endif - static void set_last_server_timestamp (struct device *d, XEvent *x_event) {
--- a/src/inline.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/inline.c Mon Aug 13 09:05:42 2007 +0200 @@ -71,3 +71,8 @@ #ifdef MULE #include "mule-coding.h" #endif + +#ifdef TOOLTALK +#include <tt_c.h> +#include "tooltalk.h" +#endif
--- a/src/lread.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/lread.c Mon Aug 13 09:05:42 2007 +0200 @@ -2736,7 +2736,7 @@ { if (NILP (Vdoc_file_name)) /* We have not yet called Snarf-documentation, so - assume this file is described in the DOC-MM.NN + assume this file is described in the DOC file and Snarf-documentation will fill in the right value later. For now, replace the whole list with 0. */
--- a/src/m/ibmrs6000.inp Mon Aug 13 09:05:11 2007 +0200 +++ b/src/m/ibmrs6000.inp Mon Aug 13 09:05:42 2007 +0200 @@ -1,2 +1,6 @@ #! pthread_yield +gethostbyname_r +getservbyname_r +getpwnam_r +getpwuid_r
--- a/src/m/next.h Mon Aug 13 09:05:11 2007 +0200 +++ b/src/m/next.h Mon Aug 13 09:05:42 2007 +0200 @@ -35,14 +35,6 @@ #define EXPLICIT_SIGN_EXTEND -/* Data type of load average, as read out of kmem. */ - -#define LOAD_AVE_TYPE long - -/* Convert that into an integer that is 100 for a load average of 1.0 */ - -#define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE) - /* Say that the text segment of a.out includes the header; the header actually occupies the first few bytes of the text segment and is counted in hdr.a_text. */ @@ -54,10 +46,6 @@ #define SEGSIZ 0x20000 #define SEGMENT_MASK (SEGSIZ - 1) -#define HAVE_ALLOCA - -#define SYSTEM_MALLOC - #define HAVE_UNIX_DOMAIN #define LIB_X11_LIB -L/usr/lib/X11 -lX11 @@ -109,33 +97,4 @@ typedef unsigned short mode_t; #endif /* ! NOT_C_CODE */ -#ifdef hppa -/* The following are glommed from the hp9000s800.h file */ - -#define STACK_DIRECTION 1 -#endif - -/* Axel Seibert <seibert@leo.org> says the following is necessary due - to configure problems. */ - -#undef REL_ALLOC - -#undef SYSV_SYSTEM_DIR -#undef NONSYSTEM_DIR_LIBRARY - -#define signal_handler_t int -#define pid_t int - -#undef HAVE_TERMIOS -#undef BSD_TERMIOS -#define NO_TERMIO -#undef HAVE_TERMIO -#undef HAVE_MMAP - -#define TAB3 XTABS - -#define C_OPTIMIZE_SWITCH -pipe - -#undef HAVE_SETITIMER - #define ASSERT_VALID_POINTER(pnt) (assert ((((int) pnt) & 1) == 0))
--- a/src/mule-charset.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/mule-charset.c Mon Aug 13 09:05:42 2007 +0200 @@ -1242,7 +1242,7 @@ CHARSET_TYPE_94, 1, 0, 'B', CHARSET_LEFT_TO_RIGHT, build_string ("ASCII"), - build_string ("ISO8859-1")); + build_string ("iso8859-1")); Vcharset_control_1 = make_charset (Qcontrol_1, LEADING_BYTE_CONTROL_1, 2, CHARSET_TYPE_94, 1, 0, 0, @@ -1254,61 +1254,61 @@ CHARSET_TYPE_96, 1, 1, 'A', CHARSET_LEFT_TO_RIGHT, build_string ("Latin-1"), - build_string ("ISO8859-1")); + build_string ("iso8859-1")); Vcharset_latin_iso8859_2 = make_charset (Qlatin_iso8859_2, LEADING_BYTE_LATIN_ISO8859_2, 2, CHARSET_TYPE_96, 1, 1, 'B', CHARSET_LEFT_TO_RIGHT, build_string ("Latin-2"), - build_string ("ISO8859-2")); + build_string ("iso8859-2")); Vcharset_latin_iso8859_3 = make_charset (Qlatin_iso8859_3, LEADING_BYTE_LATIN_ISO8859_3, 2, CHARSET_TYPE_96, 1, 1, 'C', CHARSET_LEFT_TO_RIGHT, build_string ("Latin-3"), - build_string ("ISO8859-3")); + build_string ("iso8859-3")); Vcharset_latin_iso8859_4 = make_charset (Qlatin_iso8859_4, LEADING_BYTE_LATIN_ISO8859_4, 2, CHARSET_TYPE_96, 1, 1, 'D', CHARSET_LEFT_TO_RIGHT, build_string ("Latin-4"), - build_string ("ISO8859-4")); + build_string ("iso8859-4")); Vcharset_cyrillic_iso8859_5 = make_charset (Qcyrillic_iso8859_5, LEADING_BYTE_CYRILLIC_ISO8859_5, 2, CHARSET_TYPE_96, 1, 1, 'L', CHARSET_LEFT_TO_RIGHT, build_string ("Cyrillic"), - build_string ("ISO8859-5")); + build_string ("iso8859-5")); Vcharset_arabic_iso8859_6 = make_charset (Qarabic_iso8859_6, LEADING_BYTE_ARABIC_ISO8859_6, 2, CHARSET_TYPE_96, 1, 1, 'G', CHARSET_RIGHT_TO_LEFT, build_string ("Arabic"), - build_string ("ISO8859-6")); + build_string ("iso8859-6")); Vcharset_greek_iso8859_7 = make_charset (Qgreek_iso8859_7, LEADING_BYTE_GREEK_ISO8859_7, 2, CHARSET_TYPE_96, 1, 1, 'F', CHARSET_LEFT_TO_RIGHT, build_string ("Greek"), - build_string ("ISO8859-7")); + build_string ("iso8859-7")); Vcharset_hebrew_iso8859_8 = make_charset (Qhebrew_iso8859_8, LEADING_BYTE_HEBREW_ISO8859_8, 2, CHARSET_TYPE_96, 1, 1, 'H', CHARSET_RIGHT_TO_LEFT, build_string ("Hebrew"), - build_string ("ISO8859-8")); + build_string ("iso8859-8")); Vcharset_latin_iso8859_9 = make_charset (Qlatin_iso8859_9, LEADING_BYTE_LATIN_ISO8859_9, 2, CHARSET_TYPE_96, 1, 1, 'M', CHARSET_LEFT_TO_RIGHT, build_string ("Latin-5"), - build_string ("ISO8859-9")); + build_string ("iso8859-9")); Vcharset_thai_tis620 = make_charset (Qthai_tis620, LEADING_BYTE_THAI_TIS620, 2, CHARSET_TYPE_96, 1, 1, 'T', CHARSET_LEFT_TO_RIGHT, build_string ("Thai"), - build_string ("TIS620")); + build_string ("tis620")); /* Japanese */ Vcharset_katakana_jisx0201 = @@ -1317,35 +1317,35 @@ CHARSET_TYPE_94, 1, 1, 'I', CHARSET_LEFT_TO_RIGHT, build_string ("Japanese Katakana"), - build_string ("JISX0201.1976")); + build_string ("jisx0201.1976")); Vcharset_latin_jisx0201 = make_charset (Qlatin_jisx0201, LEADING_BYTE_LATIN_JISX0201, 2, CHARSET_TYPE_94, 1, 0, 'J', CHARSET_LEFT_TO_RIGHT, build_string ("Japanese Roman"), - build_string ("JISX0201.1976")); + build_string ("jisx0201.1976")); Vcharset_japanese_jisx0208_1978 = make_charset (Qjapanese_jisx0208_1978, LEADING_BYTE_JAPANESE_JISX0208_1978, 3, CHARSET_TYPE_94X94, 2, 0, '@', CHARSET_LEFT_TO_RIGHT, build_string ("Japanese Old"), - build_string ("\\(JISX0208\\|jisc6226\\).1978")); + build_string ("\\(jisx0208\\|jisc6226\\).19")); Vcharset_japanese_jisx0208 = make_charset (Qjapanese_jisx0208, LEADING_BYTE_JAPANESE_JISX0208, 3, CHARSET_TYPE_94X94, 2, 0, 'B', CHARSET_LEFT_TO_RIGHT, build_string ("Japanese"), - build_string ("JISX0208.\\(1983\\|1990\\)")); + build_string ("jisx0208.19\\(83\\|90\\)")); Vcharset_japanese_jisx0212 = make_charset (Qjapanese_jisx0212, LEADING_BYTE_JAPANESE_JISX0212, 3, CHARSET_TYPE_94X94, 2, 0, 'D', CHARSET_LEFT_TO_RIGHT, build_string ("Japanese Supplement"), - build_string ("JISX0212")); + build_string ("jisx0212")); /* Chinese */ Vcharset_chinese_gb2312 = @@ -1353,8 +1353,8 @@ CHARSET_TYPE_94X94, 2, 0, 'A', CHARSET_LEFT_TO_RIGHT, build_string ("Chinese GB2312"), - build_string ("GB2312")); -#define CHINESE_CNS_PLANE_RE(n) "CNS11643[.-]\\(.*[.-]\\)?" n "$" + build_string ("gb2312")); +#define CHINESE_CNS_PLANE_RE(n) "cns11643[.-]\\(.*[.-]\\)?" n "$" Vcharset_chinese_cns11643_1 = make_charset (Qchinese_cns11643_1, LEADING_BYTE_CHINESE_CNS11643_1, 3, @@ -1374,20 +1374,20 @@ CHARSET_TYPE_94X94, 2, 0, '0', CHARSET_LEFT_TO_RIGHT, build_string ("Chinese Big5 Level 1"), - build_string ("Big5")); + build_string ("big5")); Vcharset_chinese_big5_2 = make_charset (Qchinese_big5_2, LEADING_BYTE_CHINESE_BIG5_2, 3, CHARSET_TYPE_94X94, 2, 0, '1', CHARSET_LEFT_TO_RIGHT, build_string ("Chinese Big5 Level 2"), - build_string ("Big5")); + build_string ("big5")); Vcharset_korean_ksc5601 = make_charset (Qkorean_ksc5601, LEADING_BYTE_KOREAN_KSC5601, 3, CHARSET_TYPE_94X94, 2, 0, 'C', CHARSET_LEFT_TO_RIGHT, build_string ("Korean"), - build_string ("KSC5601")); + build_string ("ksc5601")); /* #### For simplicity, we put composite chars into a 96x96 charset. This is going to lead to problems because you can run out of room, esp. as we don't yet recycle numbers. */
--- a/src/mule-charset.h Mon Aug 13 09:05:11 2007 +0200 +++ b/src/mule-charset.h Mon Aug 13 09:05:42 2007 +0200 @@ -505,19 +505,9 @@ #define CHARSET_CCL_PROGRAM(cs) ((cs)->ccl_program) #define CHARSET_REVERSE_DIRECTION_CHARSET(cs) ((cs)->reverse_direction_charset) -INLINE int -CHARSET_DIMENSION (struct Lisp_Charset *cs) -{ - /* Optimized using inside knowledge of CHARSET_TYPE values */ - return (CHARSET_TYPE (cs) <= CHARSET_TYPE_96) ? 1 : 2; -} - -INLINE int -CHARSET_CHARS (struct Lisp_Charset *cs) -{ - /* Optimized using inside knowledge of CHARSET_TYPE values */ - return (CHARSET_TYPE (cs) & 0x1) ? 96 : 94; -} +/* Optimized using inside knowledge of CHARSET_TYPE values */ +#define CHARSET_DIMENSION(cs) ((CHARSET_TYPE (cs) <= CHARSET_TYPE_96) ? 1 : 2) +#define CHARSET_CHARS(cs) ((CHARSET_TYPE (cs) & 0x1) ? 96 : 94) #define CHARSET_PRIVATE_P(cs) LEADING_BYTE_PRIVATE_P (CHARSET_LEADING_BYTE (cs))
--- a/src/s/decosf4-0.h Mon Aug 13 09:05:11 2007 +0200 +++ b/src/s/decosf4-0.h Mon Aug 13 09:05:42 2007 +0200 @@ -25,3 +25,4 @@ #define regmatch_t sys_regmatch_t #define SYSTEM_MALLOC +#define HAVE_RENAME
--- a/src/s/nextstep.h Mon Aug 13 09:05:11 2007 +0200 +++ b/src/s/nextstep.h Mon Aug 13 09:05:42 2007 +0200 @@ -113,17 +113,13 @@ /* The following are glommed from the hp9000s800.h file */ #define STACK_DIRECTION 1 #endif -/* Axel Seibert <seibert@leo.org> says the following is necessary due - to configure problems. */ -#undef REL_ALLOC + #undef SYSV_SYSTEM_DIR #undef NONSYSTEM_DIR_LIBRARY -#define signal_handler_t int #define pid_t int #undef BSD_TERMIOS #undef HAVE_TERMIOS #undef HAVE_TERMIO -#undef HAVE_MMAP #define NO_TERMIO #define TAB3 XTABS #define C_OPTIMIZE_SWITCH -pipe
--- a/src/syntax.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/syntax.c Mon Aug 13 09:05:42 2007 +0200 @@ -328,7 +328,7 @@ -INLINE int +static int word_constituent_p (struct buffer *buf, Bufpos pos, struct Lisp_Char_Table *tab) {
--- a/src/sysdep.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/sysdep.c Mon Aug 13 09:05:42 2007 +0200 @@ -38,6 +38,9 @@ #ifdef HAVE_TTY #include "console-tty.h" +#else +#include "syssignal.h" +#include "systty.h" #endif /* HAVE_TTY */ #include "console-stream.h"
--- a/src/syssignal.h Mon Aug 13 09:05:11 2007 +0200 +++ b/src/syssignal.h Mon Aug 13 09:05:42 2007 +0200 @@ -88,7 +88,9 @@ the risk of someone forgetting this convention and calling signal() directly. */ +#ifndef NeXT typedef SIGTYPE (*signal_handler_t) (int); +#endif #if defined (HAVE_SIGPROCMASK)
--- a/src/toolbar.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/toolbar.c Mon Aug 13 09:05:42 2007 +0200 @@ -1669,22 +1669,44 @@ toolbar_size_changed_in_frame); /* #### this is ugly. */ + /* sb - even uglier to make this work without console tty support, ugh. */ + elt = Qnil; +#ifdef HAVE_TTY elt = list1 (Fcons (list1 (Qtty), Qzero)); +#endif #ifdef HAVE_X_WINDOWS - elt = Fcons (Fcons (list1 (Qx), make_int (DEFAULT_TOOLBAR_HEIGHT)), elt); + if (elt != Qnil) + elt = Fcons (Fcons (list1 (Qx), make_int (DEFAULT_TOOLBAR_HEIGHT)), elt); + else + elt = list1 (Fcons (list1 (Qx), make_int (DEFAULT_TOOLBAR_HEIGHT))); #endif #ifdef HAVE_NEXTSTEP - elt = Fcons (Fcons (list1 (Qns), make_int (DEFAULT_TOOLBAR_HEIGHT)), elt); + if (elt != Qnil) + elt = Fcons (Fcons (list1 (Qns), make_int (DEFAULT_TOOLBAR_HEIGHT)), elt); + else + elt = list1 (Fcons (list1 (Qns), make_int (DEFAULT_TOOLBAR_HEIGHT))); #endif - set_specifier_fallback (Vdefault_toolbar_height, elt); + if (elt != Qnil) + set_specifier_fallback (Vdefault_toolbar_height, elt); + + elt = Qnil; +#ifdef HAVE_TTY elt = list1 (Fcons (list1 (Qtty), Qzero)); +#endif #ifdef HAVE_X_WINDOWS - elt = Fcons (Fcons (list1 (Qx), make_int (DEFAULT_TOOLBAR_WIDTH)), elt); + if (elt != Qnil) + elt = Fcons (Fcons (list1 (Qx), make_int (DEFAULT_TOOLBAR_WIDTH)), elt); + else + elt = list1 (Fcons (list1 (Qx), make_int (DEFAULT_TOOLBAR_WIDTH))); #endif #ifdef HAVE_NEXTSTEP - elt = Fcons (Fcons (list1 (Qns), make_int (DEFAULT_TOOLBAR_WIDTH)), elt); + if (elt != Qnil) + elt = Fcons (Fcons (list1 (Qns), make_int (DEFAULT_TOOLBAR_WIDTH)), elt); + else + elt = list1 (Fcons (list1 (Qns), make_int (DEFAULT_TOOLBAR_WIDTH))); #endif - set_specifier_fallback (Vdefault_toolbar_width, elt); + if (elt != Qnil) + set_specifier_fallback (Vdefault_toolbar_width, elt); set_specifier_fallback (Vtoolbar_size[TOP_TOOLBAR], Vdefault_toolbar_height); elt = list1 (Fcons (Qnil, Qzero));
--- a/src/tooltalk.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/tooltalk.c Mon Aug 13 09:05:42 2007 +0200 @@ -418,12 +418,12 @@ { switch (n) { - case TT_MODE_UNDEFINED: return Q_TT_MODE_UNDEFINED; - case TT_IN: return Q_TT_IN; - case TT_OUT: return Q_TT_OUT; - case TT_INOUT: return Q_TT_INOUT; - case TT_MODE_LAST: return Q_TT_MODE_LAST; - default: return Qnil; + case TT_MODE_UNDEFINED: return Q_TT_MODE_UNDEFINED; + case TT_IN: return Q_TT_IN; + case TT_OUT: return Q_TT_OUT; + case TT_INOUT: return Q_TT_INOUT; + case TT_MODE_LAST: return Q_TT_MODE_LAST; + default: return Qnil; } } @@ -432,12 +432,12 @@ { switch (n) { - case TT_SCOPE_NONE: return Q_TT_SCOPE_NONE; - case TT_SESSION: return Q_TT_SESSION; - case TT_FILE: return Q_TT_FILE; - case TT_BOTH: return Q_TT_BOTH; - case TT_FILE_IN_SESSION: return Q_TT_FILE_IN_SESSION; - default: return Qnil; + case TT_SCOPE_NONE: return Q_TT_SCOPE_NONE; + case TT_SESSION: return Q_TT_SESSION; + case TT_FILE: return Q_TT_FILE; + case TT_BOTH: return Q_TT_BOTH; + case TT_FILE_IN_SESSION: return Q_TT_FILE_IN_SESSION; + default: return Qnil; } } @@ -447,11 +447,11 @@ { switch (n) { - case TT_CLASS_UNDEFINED: return Q_TT_CLASS_UNDEFINED; - case TT_NOTICE: return Q_TT_NOTICE; - case TT_REQUEST: return Q_TT_REQUEST; - case TT_CLASS_LAST: return Q_TT_CLASS_LAST; - default: return Qnil; + case TT_CLASS_UNDEFINED: return Q_TT_CLASS_UNDEFINED; + case TT_NOTICE: return Q_TT_NOTICE; + case TT_REQUEST: return Q_TT_REQUEST; + case TT_CLASS_LAST: return Q_TT_CLASS_LAST; + default: return Qnil; } } @@ -465,11 +465,11 @@ { switch (n) { - case TT_CATEGORY_UNDEFINED: return Q_TT_CATEGORY_UNDEFINED; - case TT_OBSERVE: return Q_TT_OBSERVE; - case TT_HANDLE: return Q_TT_HANDLE; - case TT_CATEGORY_LAST: return Q_TT_CATEGORY_LAST; - default: return Qnil; + case TT_CATEGORY_UNDEFINED: return Q_TT_CATEGORY_UNDEFINED; + case TT_OBSERVE: return Q_TT_OBSERVE; + case TT_HANDLE: return Q_TT_HANDLE; + case TT_CATEGORY_LAST: return Q_TT_CATEGORY_LAST; + default: return Qnil; } } #endif /* 0 */ @@ -479,12 +479,12 @@ { switch (n) { - case TT_PROCEDURE: return Q_TT_PROCEDURE; - case TT_OBJECT: return Q_TT_OBJECT; - case TT_HANDLER: return Q_TT_HANDLER; - case TT_OTYPE: return Q_TT_OTYPE; - case TT_ADDRESS_LAST: return Q_TT_ADDRESS_LAST; - default: return Qnil; + case TT_PROCEDURE: return Q_TT_PROCEDURE; + case TT_OBJECT: return Q_TT_OBJECT; + case TT_HANDLER: return Q_TT_HANDLER; + case TT_OTYPE: return Q_TT_OTYPE; + case TT_ADDRESS_LAST: return Q_TT_ADDRESS_LAST; + default: return Qnil; } } @@ -493,15 +493,15 @@ { switch (n) { - case TT_CREATED: return Q_TT_CREATED; - case TT_SENT: return Q_TT_SENT; - case TT_HANDLED: return Q_TT_HANDLED; - case TT_FAILED: return Q_TT_FAILED; - case TT_QUEUED: return Q_TT_QUEUED; - case TT_STARTED: return Q_TT_STARTED; - case TT_REJECTED: return Q_TT_REJECTED; - case TT_STATE_LAST: return Q_TT_STATE_LAST; - default: return Qnil; + case TT_CREATED: return Q_TT_CREATED; + case TT_SENT: return Q_TT_SENT; + case TT_HANDLED: return Q_TT_HANDLED; + case TT_FAILED: return Q_TT_FAILED; + case TT_QUEUED: return Q_TT_QUEUED; + case TT_STARTED: return Q_TT_STARTED; + case TT_REJECTED: return Q_TT_REJECTED; + case TT_STATE_LAST: return Q_TT_STATE_LAST; + default: return Qnil; } }